procedure TQueen_Ant.Pohyb
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;
|