Adblock breaks this site

Need Auto Guild Fisher

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

Thread Tools

Thread Tools

  • Thread ID:
  1. bkilled1992

    bkilled1992 Active Member
    Banned

    Joined:
    Feb 24, 2007
    Posts:
    226
    Referrals:
    0
    Sythe Gold:
    0
    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]
     
    bkilled1992, Mar 24, 2007
    #1
  2. Gofez0r

    Gofez0r Guru

    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0
    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.
     
    Gofez0r, Mar 26, 2007
    #2
  3. killskilla

    killskilla Guest

    Referrals:
    0
    Need Auto Guild Fisher
    umm where do u get scar version 2.0.3
     
    killskilla, Apr 18, 2007
    #3
  4. killskilla

    killskilla Guest

    Referrals:
    0
    Need Auto Guild Fisher
    where do u get scar version 2.0.3
     
    killskilla, Apr 18, 2007
    #4
  5. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    Need Auto Guild Fisher
    Town, Apr 18, 2007
    #5
  6. WinterDreamZ3

    WinterDreamZ3 Guru
    Banned

    Joined:
    Feb 22, 2007
    Posts:
    1,024
    Referrals:
    0
    Sythe Gold:
    0
    Need Auto Guild Fisher
    WinterDreamZ3, Apr 18, 2007
    #6
  7. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    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.
     
    Town, Apr 18, 2007
    #7
  8. runekingex

    runekingex Member
    Banned

    Joined:
    Mar 17, 2007
    Posts:
    26
    Referrals:
    0
    Sythe Gold:
    0
    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?
     
    runekingex, Apr 24, 2007
    #8
< looking for Seer's flax picker | Need A Simple Auto Power Fisher!!! >


 
 
Adblock breaks this site