Реферат: Создание игры

outtextxy(324,240,'_');beep;

outtextxy(332,240,'W');beep;

outtextxy(340,240,'I');beep;

outtextxy(348,240,'N');beep;

end;

if b>500 then begin

outtextxy(300,240,'G');beep;

outtextxy(308,240,'a');beep;

outtextxy(316,240,'m');beep;

outtextxy(324,240,'e');beep;

outtextxy(332,240,'_');beep;

outtextxy(340,240,'O');beep;

outtextxy(348,240,'v');beep;

outtextxy(356,240,'e');beep;

outtextxy(364,240,'r');beep;

delay(45000);outtextxy(330,260,':');beep;

outtextxy(338,260,'-');beep;

outtextxy(346,260,'>');beep;

end;

delay(64500);delay(64500);

delay(64500);

for u:=0 to 640 do

for o:=0 to 480 do begin

putimage(u,o,i^,copyput);

end;

end;

procedure jim; {Непосредственно игра}

label 2,3;

var i,j,x,y,m,n,v,b:integer;