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

DrawTSpr(Base2,ManX*8,20,ManHgt,ManWdt,@ManSpr[2]);

DrawTSpr(Base2,ManX*8+4,17,StoneHgt,StoneWdt,@StoneSpr);

end else

begin

DrawTSpr(Base2,ManX*8,20,ManHgt,ManWdt,@ManSpr[1]);

DrawTSpr(Base2,StoneX,StoneY,StoneHgt,StoneWdt,@StoneSpr);

Inc(StoneY,10);

if StoneY>199 then

begin

StoneY:=0;

if Combo<7 then ComboString(ComboStr[Combo]) else ComboString('Kiiler!!!');

Combo:=0;

end;

end;

end;

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

Procedure CheckCollisions;

Var

i:Byte;

begin

if StoneY>0 then

for i:=1 to MaxEnemies do

With Enemies[i] do

if not Free and not Falling then

begin

if ((StoneX+8>X) and (StoneX<X+EnemyWdt)) and

((StoneY+8>Y) and (StoneY<Y+EnemyHgt)) then

begin

Falling:=true;