procedure TAnt_Hill.Resize_Ant_Hill
procedure TAnt_Hill.Resize_Ant_Hill;
var pom : integer;
begin
// rovnosti jen v dokumentaci
if not changed_ant_hill then
begin
if (curr_num_woods_hill<=100) and (curr_size_ant_hill<=50) then
begin
pom := curr_num_woods_hill mod 5;
if (pom = 0) then
begin
curr_size_ant_hill:=curr_size_ant_hill+5;
Do_Ant_Hill(curr_size_ant_hill,curr_num_woods_hill);
changed_ant_hill := true;
end;
end;
if (curr_num_woods_hill>100) and (curr_num_woods_hill<=200) and (curr_size_ant_hill<=150) then
begin
pom := curr_num_woods_hill mod 7;
if pom = 0 then
begin
curr_size_ant_hill:=curr_size_ant_hill+3;
Do_Ant_Hill(curr_size_ant_hill,curr_num_woods_hill);
changed_ant_hill := true;
end;
end;
if (curr_num_woods_hill>200) and (curr_num_woods_hill<=400) and (curr_size_ant_hill<=200) then
begin
pom := curr_num_woods_hill mod 10;
if pom = 0 then
begin
curr_size_ant_hill:=curr_size_ant_hill+2;
Do_Ant_Hill(curr_size_ant_hill,curr_num_woods_hill);
changed_ant_hill := true;
end;
end;
if (curr_num_woods_hill>400) and (curr_size_ant_hill<=400) then
begin
pom := (curr_num_woods_hill - 400) mod 20;
if pom = 0 then
begin
curr_size_ant_hill:=curr_size_ant_hill+1;
Do_Ant_Hill(curr_size_ant_hill,curr_num_woods_hill);
changed_ant_hill := true;
end;
end;
counter_hill:=0;
end;
end;
|