Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

With Enemies[i] do if not Free then begin if Falling then begin

Y:=Y+10; if Y>199 then begin

Free:=true; if Kills=(Level+1)*20 then NextLevel; end; if D=0 then begin

2 then A:=1;

D:=2; end else Dec(D); end else if D=0 then begin

Y:=Y-5; if Y2 then A:=1;

D:=S; end else Dec(D); end else if (EnemyLimit>0) and (EnemyDelay=0) then begin

X:=Random(38)*8;

Y:=200;

D:=0;

S:=(10-Level);

A:=1;

EnemyDelay:=(13-Level)*2+1;

Falling:=false;

Free:=false;

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])X) and (StoneXY) and (StoneY0 then Dec(ManX); if Key[keyRight] then if ManX=10) or GameOver; if GameOver then GameOverProc; end;
Procedure Done; begin

DoneButtons;

SetTextMode;

DoneVirtualPage; end;
{==================================================================}
Var choice:Byte; begin

Рекомендуем скачать другие рефераты по теме: список литературы реферат, изложение дубровский.

Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата