NG Phorum

Const
  MonsterList = ['Minotaur Mage']

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[i] then
    begin
      Result := Creatures.Creature[x];
      Exit;
    end;
  end;
end;

While not terminated do
begin
  UpdateWorld;
  C := GetCreatureByName;
  if C <> nil then
  if not self.attacking then
  C.Attacking := true;
  sleep(100);
end;[/hide]