Atacck com Intervalo de 2Sec

Const
MonsterList = ['Centipede', 'Dworc Venomsniper', 'Dworc Fleshhunter', 'Dworc Voodoomaster'] //Coloke o nome da Criatura aki
Delay = 2000 //this is the delay time after attack again

function GetCreatureByName: 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].Z = Self.Z then
for i := low(MonsterList) to high(monsterlist) do
if Creatures.Creature[x].Name = MonsterList then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

While not terminated do
begin
UpdateWorld;
Sleep(delay*1000);
C := GetCreatureByName;
if C <> nil then
if not self.attacking then
C.Attacking := true;
sleep(100);
end;