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

end;

end;

Procedure NextLevel; forward;

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

Procedure InitEnemies;

Var

i:Byte;

begin

for i:=1 to MaxEnemies do Enemies[i].Free:=true;

end;

Procedure DrawEnemies;

Var

i:Byte;

begin

for i:=1 to MaxEnemies do

With Enemies[i] do if not Free then

DrawTSpr(Base2,X,Y,EnemyHgt,EnemyWdt,@EnemySpr[A]);

end;

Procedure MoveEnemies;

Var

i:Byte;

begin

for i:=1 to MaxEnemies do

With Enemies[i] do

if not Free then

begin

if Falling then

begin

Y:=Y+10;