Guild fisher/banker

Id like to request a guild fisher+banker that can fish up to sharks.

 

I need one too!

 

wtf wat the hell it mean

 

add me [email protected]..

 

Code:

{==============================================================================]
[                             ------------------                               ]
[                                ~GuildFisher~                                 ]
[                                -----------                                   ]
[                                   By:                                        ]
[                                  ChArMz                                      ]
[ --------------                                                               ]
[  Version 1.50                                                                ]
[ --------------                                                               ]
[                                                                              ]
[ Version History:                                                             ]
[  ~v1.0 - First Release                                                       ]
[  ~v1.25 - Fixed Some Bugs, Added Some Things                                 ]
[  ~v1.50 - Fixed it up alot                                                   ]                                                        ]
[                                                                              ]
[ Features:                                                                    ]
[  ~AutoLogin                                                                  ]
[  ~Randoms                                                                    ]
[  ~AntiBan                                                                    ]
[  ~Progress Report                                                            ]
[                                                                              ]
[ Description:                                                                 ]
[   Will fish Lobsters, Swordfish/Tuna, or Sharks in the fishing guild.        ]
[                                                                              ]
[ Directions:                                                                  ]
[  (1) Start in the Fishing guild bank.                                        ]
[  (2) Harpoon or Lobster Pot in first invetory spot.                          ]
[  (3) Setup lines 43-72.                                                      ]
[  (2) Set the Runescape brightness to V-bright.                               ]
[  (3) SCAR version 2.0.3 needed.                                              ]
[==============================================================================}

Program SuPaFisher;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Fishing.Scar}

Var
FishCaught, BBanks, StartPlayer, EXP, FishSpotDTM, SwordfishDTM,
TunaDTM: Integer;
UseAntiBan : Boolean;

Const
Ver = 'v1.50';

{-Setup-}

Const
{===============Setup==========================================================}

DockColor= 1391189;           //Color Of The Dock
FishSpot= 598582;             //Lighest Color, Of The Bubbley Fishing Spots
FishType= 'Lobsters';         //Lobsters, Swordfish, Or Sharks

Procedure SetUpVars;
Begin
 StartPlayer     := 0;         //First Player To Start
 MouseSpeed      := 25;        //Set Mouse Speed
 HowManyPlayers  := 1;         //Number of Players
 UseAntiBan      := True;      //Will Chat, Rotate Screen, Check Exp, Ect
End;

Procedure DeclarePlayers;
Begin
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=StartPlayer;

     Players[0].Name   :='LuCkY';       //Type User And Pass For AutoLogin
     Players[0].Pass   :='ChArMz';
     Players[0].Nick   :='cky';         //Nick Name of Current Player
     Players[0].Active :=True;
End;

{==============================================================================}

{-Main Script-}

{-Walking Procedures-}

Procedure ToFish;
Begin
PerfectNorth;
GameTab(4);
WriteLn('Walking To Fishies');
If(FindColor(x, y, DockColor, 682, 70, 695, 95))then
Begin
  Mouse(x, y, 3, 5, true)
   Flag;
  Wait(2000);
End;
If(FindColor(x, y, DockColor, 672, 65, 686, 73))then
Begin
   Mouse(x, y, 3, 5, true)
    Flag;
   Wait(2000);
 If (FindSymbol(x, y, 'fish')) then
 End;
End;

Procedure ToFish2;
Begin
PerfectNorth;
GameTab(4);
WriteLn('Walking To Fishies');
If(FindColor(x, y, DockColor, 682, 70, 695, 95))then
Begin
  Mouse(x, y, 3, 5, true)
   Flag;
  Wait(2000);
End;
If (FindSymbol(x, y, 'fish')) then
Begin
 Mouse(x, y, 4, 6, true)
  Flag;
  Wait(2000);
 End;
End;

Procedure WalkToFish;
Var RandomToFish: Integer;
Begin
  RandomToFish:=Random(2)+1
    Case RandomToFish of
      1:ToFish;
      2:ToFish2;
  End;
End;

Procedure ToBank;
Begin
PerfectNorth;
GameTab(4);
WriteLn('Walking To Bank');
  Repeat
    RadialWalk(DockColor, 270, 260, 20, -2, 2); Until
     FindSymbol(x, y, 'bank');
    Mouse(x, y, 3, 5, true)
  Flag;
Wait(2000);
End;

Procedure ToBank2;
Begin
PerfectNorth;
GameTab(4);
WriteLn('Walking To Bank');
If(FindColor(x, y, DockColor, 682, 70, 695, 95))then
Begin
  Mouse(x, y, 3, 5, true)
   Flag;
Wait(2000);
   End;
Begin
 FindSymbol(x, y, 'bank');
  Mouse(x, y, 3, 5, true)
   Flag;
 Wait(2000);
 End;
End;

Procedure WalkToBank;
Var RandomToBank: Integer;
Begin
  RandomToBank:=Random(2)+1
    Case RandomToBank of
      1:ToBank;
      2:ToBank2;
  End;
End;

Procedure OpenBank4;
Var
  x, y, fs, fs2 : Integer;
Begin
  If not BankScreen then
    Repeat
      If (FindObj3(x, y, 'Use Bank', 608609, 10)) then
        Mouse(x, y, 4, 4, False)
      Else
      If (FindObj3(x, y, 'Use Bank', 3239562, 10)) then
        Mouse(x, y, 4, 4, False)
      Else
      If (FindObj3(x, y, 'Use Bank', 4803151, 10)) then
        Mouse(x, y, 4, 4, False);
      Wait(250);
      If (ClickOption('quickly', 1)) then
      Begin
        Flag;
        Repeat
          Wait(100);
          fs := fs + 1;
        Until (BankScreen) or (fs >= 50);
      End;
      fs2 := fs2 + 1;
    Until (BankScreen) or (fs2 > 5);
End;

Procedure LoadDTMs;
Begin
FishSpotDTM:= DTMFromString('78DA6364626460E00262241092900FA661A28' +
       'C201627AA9A0507DEA0AA0199C38DAA66C785CFA86AFE02091E54' +
       '3507D0D400002E3F09A8');

SwordfishDTM:= DTMFromString('78DA633CC2C8C0E00DC44860CF8283601A26C' +
       'A781CC8724755B3B9610FAA9AA340962BAA9A7985CB51D51C06B2' +
       '7CF1DB05009B6F0C27');

TunaDTM:= DTMFromString('78DA63FCC5C0C07086910119CCE8EB05D3305' +
       '1C67F40E212AA1A06190654358C40D67954350777EC4055F31348' +
       '5C465573EFE64D5435DF81C4455435A70E1F46510300CC1510EB');
End;

{-Bank-}

Procedure Bank;
Begin
WriteLn('Banking');
If (FishType= 'Swordfish') then
Begin
OpenBank4;
  If(not(BankScreen))then
OpenBank4;
If (BankScreen) then
FindInvDTM(x, y,  SwordfishDTM);
Mouse (x, y, 5, 5, False);
  Wait(250);
  ChooseOption(x, y, 'Store All');
FindInvDTM(x, y,  TunaDTM);
Mouse (x, y, 5, 5, False);
  Wait(250);
  ChooseOption(x, y, 'Store All');
Repeat
  CloseWindow;
Until(not(BankScreen));
    End;
If (FishType= 'Lobsters') or (FishType= 'Sharks') then
Begin
Begin
OpenBank4;
  If(not(BankScreen))then
OpenBank4;
If (BankScreen) then
Deposit2(2, 0);
Repeat
  CloseWindow;
Until(not(BankScreen));
FishCaught:=FishCaught+27;
Banks:=Banks+1;
  End;
 End;
End;

Procedure FishExp;
Begin
   If(FishType= 'Lobsters')then EXP:= 90;
   If(FishType= 'Swordfish')then EXP:= 100;
   If(FishType= 'Sharks')then EXP:= 110;
End;

{=====================Progress Report==========================================}

Procedure ProgressReport;
Begin
  WriteLn('<============== Progress Report ===============>');
  WriteLn('~GuildFisher~'+ Ver +' By ChArMz');
  WriteLn('Worked for '+ TimeRunning);
  WriteLn('Banked '+IntToStr(BBanks)+' Loads.');
  If(FishType= 'Lobsters')then
    WriteLn('Caught ' + IntToStr(FishCaught) + ' Lobsters.');
    WriteLn('Gained ' + IntToStr(FishCaught*Exp) + ' Experince.');
  If(FishType= 'Swordfish')then
    WriteLn('Caught ' + IntToStr(FishCaught) + ' Swordfish/Tuna.');
    WriteLn('Gained ' + IntToStr(FishCaught*Exp) + ' Experince.');
  If(FishType= 'Sharks')then
    WriteLn('Caught' + IntToStr(FishCaught) + ' Sharks.');
    WriteLn('Gained ' + IntToStr(FishCaught*Exp) + ' Experince.');
  WriteLn('<============== Progress Report ===============>');
End;

{==============================================================================}

{-AntiBan-}

Procedure ABan;
Begin
If (UseAntiBan= True) then
Begin
 BoredHuman;
  HoverEvery (10 +Random(10), 'fishing');
   RotateEvery (20+Random(10));
    LeaveScreenEvery (5+Random(5));
   GameTab(1 + Random(12));
  PickUpMouse;
 RandomRClickEvery(2 + Random(13));
 End;
End;

{-Randoms-}

Procedure Randoms;
Begin
  CloseWindow;
  SolveBox;
  FindLamp('fishing');
  FindFight;
  DwarfItem;
  FindPlant;
  If(FindFight)then
  Begin
    RunAwayDirection('W');
    Wait(9000+random(2000));
    RunBack;
      If(FindName)then
      Begin
        FindTalk;
    End;
  End;
End;

Procedure Ro1;
Begin
Keydown(VK_DOWN);
 Wait(100+Random(2000));
Keyup(VK_DOWN);
  Wait(100+random(500));
Keydown(VK_Right);
 Wait(100+Random(2000));
Keyup(VK_Right);
  Wait(100+random(500));
Keydown(VK_Up);
 Wait(100+random(2000));
KeyUp(VK_Up);
 Wait(100+Random(500));
Keydown(VK_Left);
 Wait(100+Random(2000));
KeyUp(VK_Left);
End;

Procedure Ro2;
Begin
Keydown(VK_DOWN);
 Wait(100+Random(2000));
Keyup(VK_DOWN);
 Wait(100+Random(500));
Keydown(VK_Right);
 Wait(100+Random(2000));
KeyUp(VK_Right);
 Wait(100+Random(500));
Keydown(VK_Up);
 Wait(100+random(2000));
KeyUp(VK_Up);
 Wait(100+Random(500));
Keydown(VK_Left);
 Wait(100+Random(2000));
KeyUp(VK_Left);
End;

Procedure Rotate;
Var RandomRotate: Integer;
Begin
  RandomRotate:=Random(2)+1
    Case RandomRotate of
      1:Ro1;
      2:Ro2;
  End;
End;

{-Fishing Procedure-}

Procedure CatchFishies;
Var xs, ys, xe, ye: Integer;
Begin
WriteLn('Fishing :P');
Rotate;
If(FishType= 'Lobsters')then
Begin
If FindMSDTM(x, y, FishSpotDTM) or
     FindObj(x, y, 'Ca', FishSpot, 5) or
      FindColorSpiralTolerance(x, y, FishSpot, xs, ys, xe, ye, 10) then
 Repeat
  HandleWhirlPool;
  MMouse(x, y, 2, 2);
   Mouse(x, y, 5, 5, false)
    Wait(1000);
     Until ChooseOption(x, y, 'Cage');
    Wait(25000);
    End;
If(FishType= 'Swordfish')then
Begin
If FindMSDTM(x, y, FishSpotDTM) or
     FindObj(x, y, 'Ca', FishSpot, 5) or
      FindColorSpiralTolerance(x, y, FishSpot, xs, ys, xe, ye, 10) then
 Repeat
  HandleWhirlPool;
  MMouse(x, y, 2, 2);
   Mouse(x, y, 5, 5, false)
    Wait(1000);
     Until ChooseOption(x, y, 'Harpoon');
    Wait(25000);
    End;
If(FishType= 'Shark')then
Begin
If FindMSDTM(x, y, FishSpotDTM) or
    FindObj(x, y, 'Net', FishSpot, 5) or
     FindColorSpiralTolerance(x, y, FishSpot, xs, ys, xe, ye, 10) then
 Repeat
  HandleWhirlPool;
  MMouse(x, y, 2, 2);
   Mouse(x, y, 5, 5, false)
    Wait(1000);
     Until ChooseOption(x, y, 'Harpoon');
    Wait(25000);
    End;
If (InventoryCount=28) then
Begin
 WalkToBank;
  Bank;
   ProgressReport;
 End;
End;

Procedure Setup;
Begin
SetupSRL;
 SetupVars;
  DeclarePlayers;
   LoadDTMs;
     FishEXP;
    LoginPlayer;
   LoadSRLFishingBitMaps;
 DisguiseScar('Windows Media Player');
SymbolAccuracy := 0.5;
End;

{-Main Loop-}

Begin
Setup;
 Repeat
  WalkToFish;
   CatchFishies;
  Randoms;
 WalkToFish;
Until(False);
End.

There.

 

how do i use this script with scar SCAR Divi 3.01??



How do i set up this part in the directions i got the rest covered

(3) Setup lines 43-72.


and i got this error

Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.Scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Skill/Fishing.Scar does not exist.

 

I've never seen that script. You copy and paste it, then click run.

 

let me check that too, i think i tried once and didnt work(not sure), try to update(install) srl for that error or simply close scar and open it again then try..

 

yah i get that error when i plug in my user information. i can run it if i leave it blank though. so that means it will run all night with out logging which is bad. but it isnt that bad for a free one i guess.

 

there i try at, a deposit2 error appears...