Реферат Розробка ігрової програми на мові програмування Turbo Pascal

;>');

Old: = Res;

end;

if Pressed (keyUp) then

begin

Res: = Res-1;

if Res <1 then Res: = 4;

end;

if Pressed (keyDown) then

begin

Res: = Res +1;

if Res> 4 then Res: = 1;

end;

Until Key [keyEnter];

Logo: = Res;

end;

Procedure Center (y: Integer; Const s: String);

begin

DrawString (Base1, 160 - (Length (s) * 8 div 2), y, s);

end;

Procedure Info;

begin

ClearBase (Base1);

Center (2, 'Instructions');

Center (20, 'Arrows - moving Hero');

Center (30, 'Space - throw stone');

Center (40, 'Esc - exit the game');

Center (190, 'Press any key');

ClearKeys;

Repeat Until IsKeypressed;

end;

Procedure Story;

begin

ClearBase (Base1);

Center (2, 'Передісторія');

DrawString (Base1, 1,20, 'Багато років тому на Землю впав метеорит. ');

DrawString (Base1, 1,30, 'При дослідженні в лабораторії вчені ');

DrawString (Base1, 1,40, 'виявили в ньому біологічне вещес-');

DrawString (Base1, 1,50, 'тво позаземного походження. Зрозумівши всю ');

DrawString (Base1, 1,60, 'небезпека цього вірусу, вони спробували ');

DrawString (Base1, 1,70, 'нейтралізувати его.Но вірус став швидко ');

DrawString (Base1, 1,80, 'поширюватися і заразив всіх учасни ');

DrawString (Base1, 1,90, 'ков дослідження. Вийшовши за стіни лабораторних ');

DrawString (Base1, 1,100, ' торії він став Зарожани людей.Зараженние ');

DrawString (Base1, 1,110, 'вірусом зовні не відрізнялися від звичайних ');

DrawString (Base1, 1,120, 'людей, але підпорядковувалися неземному розуму. ');

DrawString (Base1, 1,130, 'Їх завданням було: знищити залишився ');

DrawString (Base1, 1,140, ​​'населеніе.Тогда люди стали поєднувати-');

DrawString (Base1, 1,150, 'ся, щоб захистити себе. Вони влаштували ');

DrawString (Base1, 1,160, 'засідку у фортеці. Але агресивних "лик-');

DrawString (Base1, 1,170, 'відаторов ніщо не могло зупинити ..... ');

ClearKeys;

Repeat Until IsKeypressed;

end;

END.

UNIT SiegeSpr;

INTERFACE

Const p> BrickHgt = 10;

BrickWdt = 10;

BrickSpr: Array [1 .. BrickHgt, 1 .. BrickWdt] of Byte =

((7,7,7,7,7,7,7,7,7,7),

(4,4,4,4,4,4,4,4,4,7),

(4,4,4,4,4,4,4,4,4,7),

(4,4,4,4,4,4,4,4,4,7),

(4,4,4,4,4,4,4,4,4,7),

(7,7,7,7,7,7,7,7,7,7),

(4,4,4,4,7,4,4,4,4,4),

(4,4,4,4,7,4,4,4,4,4),

(4,4,4,4,7,4,4,4,4,4),

...