program kretanje;
uses graph,crt;
var a,b,c,d:integer;
begin
detectgraph(a,b);
initgraph(a,b, 'c:\tp\bgi\');
rectangle(0,0,getmaxx,getmaxy);
c:=getmaxx div 2;
d:=getmaxy div 2;
circle(c,d,50);
readln;
end.
Mene sada zanima kako napravit da uz pomoc tastera (a-lijevo;d-desno;
w-gore;s-dolje) krecem ovaj krug u prostoru ogranicenom sa rectangle,
to sam zapravo htio da skuzim iz tvog koda od igrice (peromalosutra) al
bezuspjesno.....;)