Chickens in rook [Script]

Danny_Boi · #1 10-28-2006, 09:56 AM

I decided to make a chicken script in Rook. Tell me what you think about it

Also I noticed that none of the scripts here go to Al Dee's shop. This is my first script I've ever done

This script is for the facc area of Rook..

The loot number for feathers is : 5890

Credits to Mahamad_4u for making the chicken attacker!

To make this script work go to Tools, Scripter, then paste in the code below and press execute.

Code:

Const
  Monster = 'Chicken'

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;