Guild LOBBIE Fisher And bank/cooker

Discussion in 'Script Requests' started by R_I_P_Lolz, Apr 12, 2007.

Sign in to Post
Thread Tools

Thread Tools

  • Thread ID:
Guild LOBBIE Fisher And bank/cooker
  1. Unread #1 - Apr 12, 2007 at 8:23 AM
  2. R_I_P_Lolz
    Joined:
    Mar 16, 2007
    Posts:
    237
    Referrals:
    0
    Sythe Gold:
    0

    R_I_P_Lolz Active Member
    Banned

    Guild LOBBIE Fisher And bank/cooker
    Anyone got Fishing guild Script that Gets lobbies, Anti randoms And posibly cooks the lobs. Thanx
     
    Share
  3. Unread #2 - Apr 12, 2007 at 8:46 AM
  4. Gofez0r
    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0

    Gofez0r Guru

    Guild LOBBIE Fisher And bank/cooker
    Hm.. This is a guildfisher, not 100% sure how well it works..

    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.
     
    Share
  5. Unread #3 - Apr 12, 2007 at 9:41 AM
  6. R_I_P_Lolz
    Joined:
    Mar 16, 2007
    Posts:
    237
    Referrals:
    0
    Sythe Gold:
    0

    R_I_P_Lolz Active Member
    Banned

    Guild LOBBIE Fisher And bank/cooker
    Line 1: [Error] (1:1): 'BEGIN' expected in script C:\Documents and Settings\Myuser\Desktop\Secret msn.scar Failed when compiling Line 244: [Error] (18050:1): Unknown identifier 'Deposit2' in script C:\Documents and Settings\Myuser\Desktop\Secret msn.scar :/
     
    Share
  7. Unread #4 - Apr 12, 2007 at 11:14 AM
  8. Gofez0r
    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0

    Gofez0r Guru

    Guild LOBBIE Fisher And bank/cooker
    Blame Charmz not me.
     
    Share
  9. Unread #5 - Apr 12, 2007 at 12:48 PM
  10. the scar noob
    Joined:
    Jan 21, 2007
    Posts:
    620
    Referrals:
    0
    Sythe Gold:
    0

    the scar noob Forum Addict

    Guild LOBBIE Fisher And bank/cooker
    dude copy the script correctly, i got 1 error...
    you can solve that one by adding this l ine:
    {.include SRL/SRL/extended/xBank.Scar}
    underneeth those other 2 includes :p
    EDIT:
    so this is the working one:
    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}
{.include SRL/SRL/extended/xBank.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.
     
    Share
  11. Unread #6 - Apr 12, 2007 at 8:05 PM
  12. R_I_P_Lolz
    Joined:
    Mar 16, 2007
    Posts:
    237
    Referrals:
    0
    Sythe Gold:
    0

    R_I_P_Lolz Active Member
    Banned

    Guild LOBBIE Fisher And bank/cooker
    K thx
     
    Share
  13. Unread #7 - Apr 12, 2007 at 11:05 PM
  14. phoenixx
    Referrals:
    0

    phoenixx Guest

    Guild LOBBIE Fisher And bank/cooker
    Hey there. IS this script clear of scams? Is it a good script?
     
    Share
  15. Unread #8 - Apr 29, 2007 at 7:58 PM
  16. runekingex
    Joined:
    Mar 17, 2007
    Posts:
    26
    Referrals:
    0
    Sythe Gold:
    0

    runekingex Member
    Banned

    Guild LOBBIE Fisher And bank/cooker
    it wont scam you and it is a good script
     
    Share
< Need a progress report for your script? | paying for ez to use ess miner! >

Users viewing this thread
1 guest


 
 
Adblock breaks this site