Ovaj dio upravlja figurom. X i Y su vrijednosti koordinata figure, (u tvom slucaju centra kruga).
Repeat
brisanje;
znak:=readkey;
ind:=ord (znak);
if (ind=97) or (ind=115) or (ind=100) or (ind=119) then
Case ind of
100: x:=x+1;
97: x:=x-1;
119: y:=y-1;
115: y:=y+1;
End;
Until ind=27 {odnosno ponavljaj dok se ne stisne taster ESC}
Umjesto procedure brisanje mozes staviti i ClrScr, medjutim docice do bljeskanja ako budes zelio taj program prosiriti pa u repeat petlji dodavati nove stvari koje ce se pojavljivati na ekranu. I ja sam imao ovaj problem sa prvom verzijom moje igre, ali sam ga otklonio uz pomoc Srki_82-ovog savjeta i on preveden na jezik pocetnika (u koje se i ja ubrajam) glasi: nacrtati isti lik na prethodnim koordinatama, obojen bojom pozadine. Efekat ovoga je isti kao i brisanje. A evo i procedure koja bi to radila:
Procedure brisanje;
begin
gotoxy (xs,ys); {xs,ys su stare koordinate tacke, ili u tvom slucaju, centra kruga}
if (x<>xs) or (y<>ys) then {ako je tijelo pomjereno, onda...}
circle (xs,ys,50); {samo ga moras nacrtati bojom pozadine}
xs:=x;
ys:=y;
end;
Vjerovatno negdje ima gresaka, ali to je otprilike to.