FACC + PACC Chicken Waypoint!! [Script]

[StingRayNL]

Well here it is, i don't know if it's already made by someone else... But this waypoint goes from Pacc to Facc for chicken feathers.

Here is the chicken attack script for the ones who doesn't have it
EDIT: If there is a bug or something, please tell me cause i'll make another one

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;

[Eddie1337]

PHP Code:

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; 


***

[StingRayNL]

Uhm, what's the difference?

[Eddie1337]

php not quote =]

[StingRayNL]

So, somebody tested it already, it worked fine for me but as i suggested in Low's scrip request, i hope somebody can make a script that pause's the cavebotter/waypoints when you're attacking something, this way you would make more profit on hunting chickens

[ass]

some reason it wont collect feathers on mine

[Imba]

Really nice script
Got 100 Feathers in 1day with this , awsome !

[Imba]

Originally Posted by ass

some reason it wont collect feathers on mine

I need to Add Item Number 5890 to ur Loot List

[Bulaa]

Where that waypoint starts?

[Robstah]

where do i put in this commandos? ngbot scripts att tools?