Need Auto Guild Fisher

Discussion in 'Script Requests' started by bkilled1992, Mar 24, 2007.

Sign in to Post
Thread Tools

Thread Tools

  • Thread ID:
Need Auto Guild Fisher
  1. Unread #1 - Mar 24, 2007 at 3:57 PM
  2. bkilled1992
    Joined:
    Feb 24, 2007
    Posts:
    226
    Referrals:
    0
    Sythe Gold:
    0

    bkilled1992 Active Member
    Banned

    Need Auto Guild Fisher
    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]
     
    Share
  3. Unread #2 - Mar 26, 2007 at 9:45 AM
  4. Gofez0r
    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0

    Gofez0r Guru

    Need Auto Guild Fisher
    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.
     
    Share
  5. Unread #3 - Apr 18, 2007 at 3:53 PM
  6. killskilla
    Referrals:
    0

    killskilla Guest

    Need Auto Guild Fisher
    umm where do u get scar version 2.0.3
     
    Share
  7. Unread #4 - Apr 18, 2007 at 3:54 PM
  8. killskilla
    Referrals:
    0

    killskilla Guest

    Need Auto Guild Fisher
    where do u get scar version 2.0.3
     
    Share
  9. Unread #5 - Apr 18, 2007 at 4:35 PM
  10. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Need Auto Guild Fisher
    Share
  11. Unread #6 - Apr 18, 2007 at 4:46 PM
  12. WinterDreamZ3
    Joined:
    Feb 22, 2007
    Posts:
    1,024
    Referrals:
    0
    Sythe Gold:
    0

    WinterDreamZ3 Guru
    Banned

    Need Auto Guild Fisher
    Share
  13. Unread #7 - Apr 18, 2007 at 5:42 PM
  14. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Need Auto Guild Fisher
    Meh, it is at 3.01 right now. It will be updated seeingt as it is still the official Scar download.
     
    Share
  15. Unread #8 - Apr 24, 2007 at 8:11 PM
  16. runekingex
    Joined:
    Mar 17, 2007
    Posts:
    26
    Referrals:
    0
    Sythe Gold:
    0

    runekingex Member
    Banned

    Need Auto Guild Fisher
    when i try to run the script it says

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

    what should i do?
     
    Share
< looking for Seer's flax picker | Need A Simple Auto Power Fisher!!! >

Users viewing this thread
1 guest


 
 
Adblock breaks this site