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

s:=s+1;

end;

end;

if (kv=0) and (not(fire.v)) then ex:=ex+1;

if fire.v then begin {Полет снаряда}

setfillstyle(1,0);

setcolor(0);

bar(fire.xs-4,fire.ys-4,fire.xs+4,fire.ys+4);

xv:=round(fire.si*fire.r+320);

yv:=round(fire.co*fire.r+406);

fire.r:=fire.r+5;

fire.xs:=xv;fire.ys:=yv;

if (fire.xs<=23) or (fire.xs>=622)

or (fire.ys<=33) then begin

cou:=cou-50;

if cou<0 then cou:=0;

setcolor(10);

setfillstyle(1,0);

bar(100,3,220,17);

str(cou,em);

outtextxy(100,3,em);

fire.v:=false;

setfillstyle(1,0);

setcolor(0);

bar(fire.xs-4,fire.ys-4,fire.xs+4,fire.ys+4);

end else begin

setfillstyle(1,10);

setcolor(10);

fillellipse(xv,yv,3,3);