program Szmajlifogo;
var

szx, szy: integer;
status: integer;
donto: integer;

mitcsinaljak: integer;
mozgasidotartam: integer;
idoszamlalo: integer;

szmajli: image;

begin
szmajli:=loadimage('/sz.png');

szx:=0;
szy:=0;

donto:=10;

mozgasidotartam:=10000000000000000000000;

repeat
randomize;
 status:=random(1000);
 idoszamlalo:=random(10);

idoszamlalo:=0+idoszamlalo;

if status>donto then
begin
 repeat
  randomize;
   mitcsinaljak:=random(8);
 until mitcsinaljak>0;
 
 if mitcsinaljak=1 then
 begin
  repeat
   szx:=szx+1; {Jobbra}
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam;
 end;
 if mitcsinaljak=2 then
 begin
  repeat
   szx:=szx-1; {Balra}
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam;
 end;
 if mitcsinaljak=3 then
 begin
  repeat
   szy:=szy+1; {Felfele}
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam;
 end;
 if mitcsinaljak=4 then
 begin
  repeat
   szy:=szy-1; {Lefele}
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam;
 end;
 if mitcsinaljak=5 then
 begin
  repeat
   szx:=szx+1;
   szy:=szy+1; {Fel jobbra}
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam; 
 end;
 if mitcsinaljak=6 then
 begin
  repeat
   szx:=szx+1;
   szy:=szy-1;
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam; 
 end;
 if mitcsinaljak=7 then
 begin
  repeat
   szx:=szx-1;
   szy:=szy+1;
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam; 
 end;
 if mitcsinaljak=8 then
 begin
  repeat
   szx:=szx-1;
   szy:=szy-1;
   drawimage(szmajli,szx,szy);
   repaint;
  until idoszamlalo<mozgasidotartam; 
 end;
end;


drawimage(szmajli,szx,szy);
repaint;

until getkeypressed=KE_KEY5;   
end.