Need Auto Guild Fisher

bkilled1992 · Mar 24, 2007

HELLO I NEED A AUTO GUILD FISHER THAT FISHES LOBBIES IN THE FISHING GUILD BANKS THEN RETURNS FOR MORE PLZ MAKE 1 OR PM ME ON MSN.....

[email protected]

Gofez0r · Mar 26, 2007

I had this on my comp

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.

Not sure how well that works.

killskilla · Apr 18, 2007

umm where do u get scar version 2.0.3

killskilla · Apr 18, 2007

where do u get scar version 2.0.3

Town · Apr 18, 2007

www.Dylock.net/scar

WinterDreamZ3 · Apr 18, 2007

Town said:
www.Dylock.net/scar

http://www.freddy1990.com/scar.php

^^ You can get scar divi 3.02 up there it works good

Town · Apr 18, 2007

Meh, it is at 3.01 right now. It will be updated seeingt as it is still the official Scar download.

runekingex · Apr 24, 2007

when i try to run the script it says

Failed when compiling
Line 242: [Error] (17723:1): Unknown identifier 'Deposit2'

what should i do?

Need Auto Guild Fisher

More options

bkilled1992

Active Member

Gofez0r

Guru

killskilla

Guest

killskilla

Guest

Town

Grand Master

WinterDreamZ3

Guru

Town

Grand Master

runekingex

Member

Similar threads