NGSoft Forums

Go Back   NGSoft Forums > TibiaBot NG > Scripts

Reply
 
Thread Tools Display Modes
  #1  
Old 11-12-2006, 05:20 PM
Casey Casey is offline
Troll
 
Join Date: Feb 2006
Posts: 30
Default Premmy chickens rook [Script]

Well, I got tired of looking for a premmy script to get chicken feathers so I made one myself, it's not the best script ever but it works fine, I'm using it atm

I'll give you some tips.
- Cut off the wheat close to Billy (The food NPC), you'll need a sythe.
-Don't use/make a waypoint script that goes from premmy side to free side all the way, it'll be a waste of time, use a free account to hunt chickens on the free area, and your premmy acc to hunt 'em on the premmy side, it'll save you a lot of time.

In case you don't know it, the chicken feather ID is 5890


Here is my wpt script
premmychickens.wpt

Here's the free area chicken wpt script, all credits to Ziwe
free rook chicken.wpt



In order to attack the chickens you must add this to your Scripter (All credits to Elwineyok nor):

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;

Last edited by Casey; 11-12-2006 at 08:56 PM.
Reply With Quote
  #2  
Old 11-12-2006, 07:44 PM
Fibeo Fibeo is offline
Elf
 
Join Date: Sep 2006
Posts: 117
Default

Great! Just what I want. Thanks
Reply With Quote
  #3  
Old 11-12-2006, 09:39 PM
Nick24 Nick24 is offline
Hunter
 
Join Date: Nov 2006
Posts: 229
Send a message via ICQ to Nick24
Default

mine is a combination of both premmy and rook, i got 60 feathers in one night
Attached Files
File Type: wpt My_chickens.wpt (401 Bytes, 1170 views)
Reply With Quote
  #4  
Old 11-12-2006, 10:29 PM
Casey Casey is offline
Troll
 
Join Date: Feb 2006
Posts: 30
Default

Two days straight of hunting chickens



Reply With Quote
  #5  
Old 11-18-2006, 11:00 AM
In flames fan In flames fan is offline
Troll
 
Join Date: Nov 2006
Location: England
Posts: 33
Default

Hail
Reply With Quote
  #6  
Old 11-23-2006, 04:16 PM
viperlz viperlz is offline
Dwarf
 
Join Date: Aug 2006
Posts: 80
Default

using it right now
Reply With Quote
  #7  
Old 11-23-2006, 06:04 PM
Ribenaz Ribenaz is offline
Behemoth
 
Join Date: Jul 2006
Location: Heaven, Looking for targets to smite with my almighty power
Posts: 866
Default

im using too
Reply With Quote
  #8  
Old 11-24-2006, 06:33 AM
ben909 ben909 is offline
Rotworm
 
Join Date: Sep 2006
Posts: 58
Default

awesome scripts im using both
Reply With Quote
  #9  
Old 11-26-2006, 08:50 AM
Tazzi Tazzi is offline
Rat
 
Join Date: Nov 2006
Posts: 8
Default

hey...

nice scripts... but on the premmy side its some fault with me... he don't go thw whole way down... it goes so it can see the chicken and then take atk on it.. but i just follows the bot too the next place....

is this only happenig with me :S....

Tazzi
Reply With Quote
  #10  
Old 11-27-2006, 01:55 PM
Izah'Corleone Izah'Corleone is offline
Wolf
 
Join Date: Oct 2006
Posts: 14
Default

Very nice
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT. The time now is 03:49 PM.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.