procedure TQueen_Ant.Pohyb

Zpět
procedure TQueen_Ant.Pohyb;
var x,y,distance,i,nearest,pom : integer;
    random_angle : integer;
begin
 inc(citac);
 counter_eggs:=counter_eggs-1;
 Application.ProcessMessages;
 if  What_I_See<>1   then begin
     if (counter_eggs=0) then begin
       Ant_Hill.Add_Eggs(round(xx),round(yy));
       counter_eggs:=random(30)+40;
      end;
    end;
 case What_I_See of
 1: begin     // narazi mraveniste
     Smer:=Smer+Pi/2;
    end;
 2: begin     // narazi travicku
      Step;
    end;
 3: begin     // narazi kaminek
     repeat
      random_angle:=random(360);
     until random_angle<>0;
      smer:=Pi/180*random_angle;
      delka:=random(20)+10;
      citac:=0;
      Smer:=Smer+Pi;
      Step;
    end;
 4: begin     // narazi na studnu
     repeat
      random_angle:=random(360);
     until random_angle<>0;
      smer:=Pi/180*random_angle;
      delka:=random(20)+10;
      citac:=0;
      Smer:=Smer+Pi;
      Step;
    end;
 0: begin    //
     Step;
    end;


 else // vidi vetvicku
   Step;

end; // case

Zobraz;

end;