Реферат: Разработка игровой программы на языке программирования Turbo Pascal

Dec(EnemyLimit);

end;

Dec(EnemyDelay);

end;

{==================================================================}

Procedure DrawScreen;

Var

x,y:Integer;

s:String[80];

tmp:String[6];

begin

Bar(Base2,0,0,319,9,8);

FillBase(Base2,3200,9600,$03030303);

for y:=0 to 15 do

for x:=0 to 31 do

DrawOSpr(Base2,x*10,40+y*10,BrickHgt,BrickWdt,@BrickSpr);

s:='ю ~SIEGE~ ю Level:';

Str(Level,tmp);

While Byte(tmp[0])<2 do tmp:='ъ'+tmp;

s:=s+tmp+' ю Score:';

Str(Score,tmp);

While Byte(tmp[0])<5 do tmp:='ъ'+tmp;

s:=s+tmp+' ю';

DrawString(Base2,1,1,s);

end;

{==================================================================}

Procedure DrawMan;

begin

if StoneY=0 then