Results 1 to 5 of 5

Thread: 05Hartor's Fisher

  1. #1
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default 05Hartor's Fisher

    okay, havent scripted in ages so i started from scratch... I am going to do standards, maybe a better drop procedure (but then it only drops one type of fish), better anti-randoms and failsafes

    SCAR Code:
    program PowerFisher;
    {.include SRL/SRL.scar}

    const
    fisharea1 = ;
    fisharea2 = ;
    fisharea3 = ;

    var
    antiban:integer;

    {---------------------}

    Function FindAndClick;
    begin
    if(FindColor(x,y,fisharea1,color,coords,coords,coords,coords))
    or
    if(FindColor(x,y,fisharea2,color,coords,coords,coords,coords))
    or
    if(FindColor(x,y,fisharea3,color,coords,coords,coords,coords))
    then
    MMouse(x,y,0,0);
    else if
    WriteLn('cant find the fishy place');
    End;

    {---------------------}

    Function AntiBan;
    begin
    antiban:= Random(5);
     case antiban of
     1:GameTab(2)
     2:RotateEvery(7 +random(4))
     3:LeaveScreenEvery(5 + Random(5));
     4:HoverSkill('Fishing', False);
     5:DragItem(2, 1 + Random(16));
    End;

    {---------------------}

    Procedure DeclarePlayers;
    begin
        HowManyPlayers:=1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

        Players[0].Name :='login_name';
        Players[0].Pass :='login_pass';
        Players[0].Nick :='4_letters_of_login_name';
        Players[0].Active :=True;
       
        Players[1].Name :='login_name';
        Players[1].Pass :='login_pass';
        Players[1].Nick :='4_letters_of_login_name';
        Players[1].Active :=True;
       
        Players[2].Name :='login_name';
        Players[2].Pass :='login_pass';
        Players[2].Nick :='4_letters_of_login_name';
        Players[2].Active :=True;
    end;
     
    {---------------------}
     
     Procedure Randoms;
     begin
     Findnormalrandoms;
     End;

    {---------------------}

    Function DropAll;
    if(InvFull) then
    DropTo(2,28);
    End;

    {---------------------}

     //Main loop
     Begin
     setupSRL;
     DeclarePlayers;
     repeat
     FindAndClick;
     Drop;
      repeat
      Randoms;
      AntiBan;
      Until(false)
     until(False)
     End.


    I need testers and i am guessing the syntax errors from the colour var's are becuase there are no colours in it
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  2. #2
    Join Date
    May 2008
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea i got syntax errors
    Line 5: [Error] (12648:13): Syntax error in script

  3. #3
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "errors from the colour var's are becuase there are no colours in it"


    Wow this is old, how detectable is it now?
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  4. #4
    Join Date
    Dec 2007
    Location
    UK
    Posts
    479
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Procedure Randoms;
    begin
    Findnormalrandoms;
    End;
    Why have you done this? All you need is FindNormalRandoms

    Im not sure this script is good enough for Junior Section. Sorry

    Try in 1st scripts?

    EDIT: Oop. Just checked date. Still... What I said.
    I don't play runescape. I auto it

  5. #5
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i was going to add some more randoms or somthing, cant remember
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Need A Fisher.
    By Why2u in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 06-30-2008, 11:02 PM
  2. a new lob fisher ~~please view~~
    By Pu3rto0wn in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 06-10-2008, 11:44 PM
  3. Need Fisher!
    By effinpanda in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 04-09-2008, 10:59 PM
  4. Fisher
    By Rich in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 10-24-2007, 10:03 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •