constructor TAnt.Init

Zpět
constructor TAnt.Init(kdo : integer);
var random_smer,px,py : integer;
begin
  index:=kdo;
  pocetSnimku := 3;
  random_smer:=random(360);
  smer:=Pi/180*random_smer;
  uloha:=random(4);    // bud nosic vajicek nebo vetvicek
  move_ant:=0;
  repeat
    randomize;
     px := random(23)+2;
     py := random(18)+2;
    until Ant_Hill.Data_Images[px,py]=0  ;
 // Ant_Hill.Data_Images[px,py]:=4;

  xx:=px*32;
  yy:=py*32;
  citac:=0;
  snimek:=random(3);
  delka:=random(20)+10;

end;

constructor Tmravenec.Init(kdo : integer);
begin
  inherited Init(kdo);
  naklad:=0;
  energy:=random(50)+50;
  inteligence:=5;
  live:=random(60)+40;

end;

constructor TQueen_Ant.Init(kdo : integer);
var random_smer,px,py : integer;
begin
  inherited Init(kdo);
  naklad:=-1;
  delka:=random(20)+10;
  counter_eggs:=random(20)+5;
end;