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

sound(300);delay(100);nosound;

end;

key:=keypressed;

if key=false then goto 2;

a:=readkey;

if a=chr(77) then begin

x:=x+3;

if x>580 then begin

putimage(x,y,pp^,copyput);

x:=10;

end;

putimage(x,y,p^,copyput);

end;

if a=chr(75) then begin

x:=x-3;

if x<10 then begin

putimage(x,y,pp^,copyput);

x:=580;

end;

putimage(x,y,p^,copyput);

end;

if a=chr(32) then begin for m:=y-2 downto 56 do begin

putimage(x+8,m,p1^,copyput);

delay(5);

end;

if m<90 then

if round(n/3)>(x-50) then

if round(n/3)<(x+10) then begin

sound(800);delay(2000);