Results 1 to 4 of 4

Thread: [R]draynor village fish 'n bank

  1. #1
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default [R]draynor village fish 'n bank

    Well this isn't my first script at all, still I post it in this part of the forum because its of a very low level and the script doesn't contains any anti-ban nor anti-random.

    PHP Code:
    program draynorFisher;
    {.include 
    SRL/SRL/Misc/SMART.scar}
    {.include 
    SRL/SRL.scar}
    {.include 
    SRL/SRL/Reflection/Reflection.simba}

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

      
    Players[0].Name        := ' ';
      
    Players[0].Pass        := ' ';
      
    Players[0].Nick        := ' ';      // 3 or four letters form your character's name
      
    Players[0].Active      := true;
    end;


    procedure WaitForFish;
    var
     
    fails:Integer;
    begin
     repeat
      wait
    (200);
      if(
    GetAnimation = -1then
        fails 
    := fails +1;
     
    until(fails 4);
    end;

    procedure FindFish;
    var
      
    i,j:Integer;
      
    AllNPCs:array of TNPC;
      
    ClickingPoint:TPoint;
    begin
      AllNPCs 
    := GetNPCs;
      for 
    := 0 to (length(AllNPCs)-1) do
      
    begin
         
    if(AllNPCs[i].Name 'Fishing spot'then
         begin
           ClickingPoint 
    := TileToMs(AllNPCs[i].NPCTile,0);
           
    Mouse(ClickingPoint.x,ClickingPoint.y,10,10,False);
           
    wait(1500+random(1000));
           
    R_ChooseOption('ait');
           Exit;
         
    end;
      
    end;
    end;

    procedure Bank;
    var
      
    ClickingPoint:TPoint;
    begin
      wait
    (2000+random(2000));
      
    ClickingPoint := TileToMs(Tile(3091,3245),0);
      
    Mouse(ClickingPoint.x,ClickingPoint.y,10,10,False);
      
    wait(1500+random(1000));
      
    R_ChooseOption('uick');
      
    wait(2500+random(1000));
      
    Deposit(3,20,True);
      
    wait(500+random(500));
      
    CloseBank;
    end;

    procedure WalkToBank;
    var
      
    ThePoint:TPoint;
    begin
      ThePoint 
    := TileToMM(Tile(30873237));
      
    Mouse(ThePoint.xThePoint.y99true);
      
    wait(500+random(500));
      
    R_FFlag(1);
      
    ThePoint := TileToMM(Tile(30923245));
      
    Mouse(ThePoint.xThePoint.y44true);
      
    wait(500+random(500));
      
    R_FFlag(1);
      
    R_Flag;
    end;

    procedure WalkToFish;
    var
      
    ClickingPoint:TPoint;
    begin
      ClickingPoint 
    := TileToMM(Tile(30873237));
      
    Mouse(ClickingPoint.xClickingPoint.y99true);
      
    wait(500+random(500));
      
    R_FFlag(1);
      
    ClickingPoint := TileToMM(Tile(3086,3230));
      
    Mouse(ClickingPoint.xClickingPoint.y22true);
      
    wait(500+random(500));
      
    R_FFlag(1);
      
    wait(1000+random(1000));
    end;

    procedure MainLoop;
    begin
      repeat
        repeat
          FindFish
    ;
          
    wait(1500+random(1000));
          
    WaitForFish;
        
    until InvFull;
        
    WalkToBank;
        
    Bank;
        
    WalkToFish;
      
    until false
    end
    ;


    Procedure SetupProc;
    begin
      Smart_Server 
    := 38;
      
    Smart_Members := False;
      
    Smart_Signed := True;
      
    Smart_SuperDetail := False;
      
    SetupSRL;
      
    SmartSetupEx(Smart_ServerSmart_MembersSmart_SignedSmart_SuperDetail);
      
    DeclarePlayers;
      
    ActivateClient;
      
    LoginPlayer;
      
    Wait(2000 random(500));
      
    SetAngle(true);
    end;


    begin
      SetupProc
    ;
      
    MainLoop;
    end
    This script is 90% reflection and it runs for hours! The only thing that can stop this scripts are the randoms. Still I recommend to not use this script for over 30 minutes because it doesn't contain anti-ban.

    I created this script within 30 minutes just to get the feeling of reflection back, my next script will be an oak cutter! This one will contain other features and will be much more flexible.

    To run this script:
    • Place your character at the fishing spot
    • Place a fishing rod and fishing bait in the first 2 inventory slots


    If you want to net fish you have to change line number 40 and 43 to:
    PHP Code:
    Mouse(ClickingPoint.x,ClickingPoint.y,10,10,true); 
    Don't forget the fishing net!

  2. #2
    Join Date
    Mar 2006
    Location
    Rural New Zealand
    Posts
    688
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tested,worked seemed mint,but as u said anti ban would of been nice haha
    Come Add A Few Hits To My Site
    Cakemix lives on

  3. #3
    Join Date
    Jan 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hiya having a little trouble with this one its does not understand what GetNPCs is when i try and run it...

    can anyone help out??


    ok thanx
    Last edited by gsa serpent; 01-11-2011 at 12:34 AM.

  4. #4
    Join Date
    Dec 2010
    Posts
    808
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Gsa, this script is outdated, notice the thread was made 7 or 8 months ago

    -Boom

Thread Information

Users Browsing this Thread

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

Posting Permissions

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