Помогите улучшить игру Опции

[Obri]

Пожалуйста помогите сделать фон, закрасить мячик и сделать выход в игре

uses graph,crt;
label k,l,p;
const v=7;
var grdriver,grmode:integer;
    x1,x2,y1,y2:integer;
    a,b,n:integer;
    s:char;
    c:string;
begin
p:
randomize;
initgraph(grdriver,grmode,s);
outtextXY(190,180,'For control use navigation button');
outtextXY(390,458,'Press ENTER for continue');
line(0,456,640,456);
readln;
x1:=0;
y1:=190;
x2:=20;
y2:=260;
n:=0;
l:
b:=random(470);
a:=631;
k:
s:=' ';
if keypressed=true  then s:=readkey;
cleardevice;
dec(a);
Rectangle(x1,y1,x2,y2);
circle(a,b,5);
delay(900);
if s=#0 then begin
          s:=readkey;
          if s=#72 then begin y1:=y1-v; y2:=y2-v; end;
          if s=#80 then begin y1:=y1+v; y2:=y2+v; end;
          end;
if x2+5=a then if (b>y1)and(b<y2 ) then begin
          inc(n);
					goto l;
					end;
if a=0 then begin outtextXY(300,220,'game over');
	    outtextXY(390,458,'Press ENTER for continue');
      str (n,c);
      outtextXY(330,240,'balls');
      outtextXY(300,240,c);
	    line(0,456,640,456);
 	    readln;
	    goto p;
	    end;
goto k;
readln;
end.

Сообщение отредактировано: volvo - 14.04.2009 23:02

[renesko1]

Пишу в free pascal, а compiler mode стоит turbo pascal.
Те. что бы начать игру мне надо мышом менять активные окна, что надо сделать, что бы избежать этого ?

Сообщение отредактировано: renesko1 - 4.06.2009 16:16