Разработка игровой программы на языке программирования Turbo Pascal
Категория реферата: Рефераты по информатике, программированию
Теги реферата: ответы 8 класс, реферат история развития
Добавил(а) на сайт: Модест.
Предыдущая страница реферата | 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 | Следующая страница реферата