constructor TAnt.Init
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;
|