Atacando monstros que não atacam

[Puncker 201]

Script:

Const

Monster = 'Rabbit' //pode ser alterado para o bixo que vc quizer


function GetCreatureByName(Name: string): 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 Continue;

if Creatures.Creature[x].Name = Name then

begin

Result := Creatures.Creature[x];

Exit;

end;

end;

end;


while not Terminated do

begin

UpdateWorld;

if not Self.Attacking then

begin

Creature := GetCreatureByName(Monster);

if Creature <> nil then Creature.Attacking := True;

end;

Sleep(1000);

end;