Spoiler:
Kod PHP:
var
MotherSlime: integer;
function Attacking: boolean;
var
x: integer;
begin
Result := False;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;
end;
end;
end;
function GetFollowedCreatureID: integer;
var
x: integer;
begin
Result := False;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Following then
begin
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
end;
function GetCreatureByNameExcludeID(Name: string; ID: integer): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if ((Creatures.Creature[x].Name = Name) and (Creatures.Creature[x].ID <> ID)) then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
begin
UpdateWorld;
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
if not Attacking then
begin
Creature := GetCreatureByNameExcludeID('Chicken', MotherSlime);
if Creature <> nil then
begin
Creature.Attacking := True;
end;
end;
Sleep(1000);
end;
end;