Results 1 to 5 of 5

Thread: Help with Fishing Script

  1. #1
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with Fishing Script

    Hey this is my 3rd script and im having trouble..it starts AT fishing spot IN DRAYNOR (near willow) and when full inv walks to bank and banks....i DONT want it to use SMART or REFLECTION just gold 'ol scripting...please post how i can fix this or add me on msn joelster134@hotmail.com

    thank you..those who help will have there name added to credits! and i will post to them b4 on here (on free for all)


    SCAR Code:
    {             [-----------------------]        o o o o o o       e eeeeeeeeeeeeee   L L                     SSSSSSSSSSSS     ')
    writeln('              [-----------------------]       o o         o      e eeeeeeeeeeeeee   L L                     SSSSSSSSSSSS   ')
    writeln('                         [   ]                 o  o          o       e                  L L                     SS           ')
    writeln('                         [   ]                o  o            o      e                  L L                     SS         ')
    writeln('                         [   ]               o o              o      e eeeeeeeeeeeeee   L L                     SS        ')
    writeln('                         [   ]               o o             o       e eeeeeeeeeeeeee   L L                     SS            ')
    writeln('                         [   ]               o o           o         e                  L L                     SSSSSSSSSSS ')
    writeln('                         [   ]                o o o o o o            e eeeeeeeeeeeeee   LLLLLLLLLLLL                     SS')
    writeln('                 [------------]                o o o o o             e eeeeeeeeeeeeee   LLLLLLLLLLLL            SSSSSSSSSSS  SCRIPTS (c) (jOELSTER134)')}

                           {  [------------]') }



                 {  /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
                   /\\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\                                                              /\
                   /\                Draynor fisher by Joelster134                 /\
                   /\                Credit:Joelster134                            /\
                   /\                Version: one                                  /\
                   /\                Anti randoms-and anti ban                     /\
                   /\                                                              /\
                   /\                Setup lines:                                  /\
                   /\                                                              /\
                   /\       Intro: Start in Fishing spot, select window hit run!   /\
                   /\                                                              /\
                   /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
                   \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ }


    program Draynor_Netter_nd_banker;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Fishing.scar}


    const
         BubbleColor1 = 12828346; //Change if you want
         BubbleColor2 = 10852753; //CHange if you want
         BubbleColor3 = 11774370; //change if you want
         
         
    procedure DeclarePlayers;


    begin
    HowManyPlayers := 1; //how many players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0; //Current player

    Players[0].Name := 'username'; //username for Runescape
    Players[0].Pass := 'password'; // Password for RUnescape Account
    Players[0].Nick := '3-4 letters of your username';
    Players[0].Active := True; //is the player active?

    Mousespeed := 30; //Speed of the mouse...recommended 20.
    end;

    procedure PreparePlayer;
    begin

    if not LoggedIn then LoginPlayer;
    SetRun(true);
    end;

    procedure AntiRandoms;
    begin
    if not LoggedIn then Exit;
    if FindFight then
    RunAway('s',True,1,7000);
    end;


    procedure AntiBan;
    begin
    case random(100) of //put in a random number//
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('Woodcutting',false);
    end;
    end;

    procedure FishSpot;
       var X,Y,Mark :Integer;
       begin
       FindObjCustom(X, Y, ['ish', 'pot', 'ing', 'fis'], [10786702,11645615,9666933,2384740] ,3);
       Mouse(X, Y, 2, 2, False);
       wait(25+random(10000));
       if not ChooseOption('et') then Exit;
       Flag;
       MarkTime(Mark);
       wait(2 + 5000 +random(10000));
      if HPPercent < 25 then RunTo('N', true);
        wait(7500);
    end;

    procedure MainLoop;
    var Mark : Integer;
    begin
    repeat
         repeat
         MarkTime(Mark);
         if not LoggedIn then Exit;
         FishSpot;
         until((TimeFromMark(Mark) / 1000 * 60) >= 50);
    end;
    procedure MainLoop;
    begin
    DeclarePlayers;
    PreparePlayer;

    end.

  2. #2
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    First thing, standards.
    This should do.
    It will be easier to you and for us to read.
    And in your AntiRandoms...
    Call:
    SCAR Code:
    FindNormalRandoms;
    This will solve the SRL Randoms.
    ~Eerik~

  3. #3
    Join Date
    Aug 2008
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    wait(25+random(10000));
       if not ChooseOption('et') then Exit;
       Flag;
       MarkTime(Mark);
       wait(2 + 5000 +random(10000));
    to
    SCAR Code:
    if not ChooseOption('et') then Exit;
       Fflag(0);
       GetSystemTime := MarkedTime;
       wait(1000+Random(1500));


    And.. Do somethin with the Marked Time..
    U might want to add some message finds like:
    SCAR Code:
    If(GetBlackChatMessage='You received some shrimps') or (GetSystemTime - MarkedTime > 15000) then exit;


    Further, add in your consts.
    SCAR Code:
    FindObjCustom(X, Y, ['ish', 'pot', 'ing', 'fis'], [10786702,11645615,9666933,2384740] ,3);
    to
    SCAR Code:
    FindObjCustom(X, Y, ['ish', 'pot', 'ing', 'fis'], [BubbleColor1,BubbleColor2,BubbleColor3] ,5);

  4. #4
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Woah, very nice Accure.

    Add more antiban, and lower the random number. 1/10 should do.

    Try using FindObjTPA if you know how.

    Standards...

    Thats all I got.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  5. #5
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok thanks for the advice...ill try and fix it up...THANK YOU FOR THE HELP! h):

    BTW if one of you can (prefferbly Accure he sounds good :P no offense others)
    add me on msn? Joelster134@hotmail.com

    i would really like help to finish it so its running..THANKS..if not its k

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 6
    Last Post: 04-16-2009, 06:40 AM
  2. Fishing Script
    By jamesreece in forum OSR Help
    Replies: 12
    Last Post: 03-14-2008, 08:58 AM
  3. Help with Net Fishing Script
    By asdf101 in forum OSR Help
    Replies: 4
    Last Post: 01-19-2008, 02:02 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
  •