procedure TAnt_Hill.Resize_Ant_Hill

Zpět
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;