Results 1 to 6 of 6

Thread: error in script..?

  1. #1
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    error in script..?

    hi ive tried using this script but it doesnt seem to work ive filled in the details and everything and i do not have a bank pin but i just set one now.. but everytime i click run this error comes up :

    Failed when compiling
    Line 135: [Error] (16354:22): Type mismatch in script C:\Documents and Settings\Amit\My Documents\Downloads\CatherbySharksAndLobbies2.3.sc ar

    what does it mean?

    heres the script:

    SCAR Code:
    {===============Script-info===============}
    {-----------------------------------------}
    { Author: King of Knives                  }
    { ----                                    }
    { If you downloaded this anywhere else    }
    { than SRL-forums.com, please go to       }
    { SRL-forums.com and send me a PM         }
    { about it. My name on SRL-forums.com is  }
    { King of Knives                          }
    { ----                                    }
    { Versions:                               }
    { > Tested on SCAR 3.13, but compatible   }
    {   with the latest 3.12                  }
    { > SRL Version 4, Rev #7                 }
    { ----                                    }
    { What it does:                           }
    { Fishes for mackerel, tuna, swordfish,   }
    { lobsters and sharks, banks and repeats. }
    { ----                                    }
    { Setup:                                  }
    { 1: Place your character(s) in Catherby  }
    {    bank, and place your fishing equip-  }
    {    ment in the top-part of the bank     }
    { 2: Make sure they are wearing nothing,  }
    {    as they can happen to die.           }
    { 3: Setup the Player Array (L. 101-138)  }
    { 4: Setup the consts (Lines 78-83)       }
    { 5: Hit run and check if the script gets }
    {    your first character to the fish     }
    {-----------------------------------------}
    {=========================================}

    ///////////////\\\\\\\\\\\\\\\
    //    Special Credits To:   \\
    ///////////////\\\\\\\\\\\\\\\
    // - Khazar
    //       = For lending me his Members account for the initial release
    //
    // - Tarajunky
    //       = For the AutoColoring-functions
    //                (Taken out from SRL and edited slightly)
    ///////////////\\\\\\\\\\\\\\\

    {===============-- NOTES --===============}
    { Note #1: Strings[0] can be set to either 'Auto','Lobster' or 'Shark'.
    {          'Auto': Will fish the highest possible fish. It will
    {                  autodetect if you can fish a higher fish.
    {          'Shark': Will fish sharks.
    {          'Swordfish': Will fish swordfish and tuna too.
    {          'Lobster': Will fish lobsters.
    {          'Tuna': Will fish tuna and swordfish if you have a
    {                  high enough level.
    {          'Big Net': Will fish with a big net. I only suggest using
    {                     this for players with low fishing level,
    {                     because it only counts mackerels.
    {
    { Note #2: Time in milliseconds that one fish MAX may take. If this
    {          time has gone before you have a caught a fish, it will
    {          automatically find a new fishing-spot.
    {
    { Note #3: Script performs Normal AntiBan once out of
    {          this number. For instance, If the number is 50, it will
    {          perform ONE AntiBan out of 50.
    {          If this number is low, it is a good idea to
    {          set UseLevelAsker and RandomTalk to false.
    {
    { Note #4: True to end the script when desired
    {          loads have been fished for each player ONCE.
    {          If this one is set to false, it will simply restart the
    {          fishing cycle, going through all the players again.
    {          If you are only using 1 player, it will do a relog.
    {
    { Note #5: Only set this to true if you have done
    {          Barbarian Training and you have the right strength level.
    {
    { Note #6: If this is true, it will check for a fishingspot in front
    {          of your character, and will move on if there is no spot found.
    {          And if Players[#].Integers[1] time has gone without a fish
    {          caught, but the spot is still there, it will reclick the spot.
    {          Sadly, the fishingspot-checker doesn't work very well,
    {          although I've done everything I can. The script still works,
    {          probably just a little slower.
    {=========================================}



    Program Catherby_Fisher;
    {.include SRL/SRL.scar}

    Type TFishing = Record
      Time: Integer;
      Fished: Integer;
      Loads: Integer;
      FishLevel: Integer;
      FishStr: String;
    end;

    var
     UserStats: Array of TFishing;
     MackerelFished,LobstersFished,TunaFished,SwordfishFished,SharksFished: Integer;
     Fished,Loads: Integer;
     CurrentPlayerTime,LoadTime,ProgTimer: Integer;
     BigNet,Cage,Harpoon,Equip: Integer;
     Shark,Swordfish,Tuna,Lobster,Mackerel: Integer;
     Fish,Fish2: Integer;
     PlayerNum,FishSpotChecks,FishingSpot: Integer;
     Fish_UpText,Fish_Option,EquipStr,FishStr: String;
     UseFishingSpotChecker: Boolean;

    {////\\\\////\\\\////\\\\}
    {} Const
    {}  AntiBanRate= 1; // See notes #3.
    {}  UseFishingSpotChecking= False; // See notes #6.
    {}  UseLevelAsker= False; // True to use my Level-Asker.
    {}  RandomTalk= False; // True to say randoms (But relevant) things.
    {}  AntiBanCommenting= True; // Commenting on AntiBan's or not.
    {}  SRL_Stats_ID = ''; // SRL-Stats-ID. If you do not have one, then go get one
    {}  SRL_Stats_Password = ''; // Password for SRL-Stats-Account.
    {}  SCARToTray= False; // True sends SCAR to windows tray.
    {}  ProggyInReport= True; // True: Writes proggy in the Report-Box.
    {                            False: Writes proggy in Debug-Box.
    {}
     StopWhenLoadsDone= False; // See notes #4.
    {////\\\\////\\\\////\\\\}

    Procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; // Number of players you are running
      CurrentPlayer:= 0; // Starting player
      NumberOfPlayers(HowManyPlayers) // Don't touch
      SetArrayLength(UserStats,HowManyPlayers) // Don't touch
      UseFishingSpotChecker:= UseFishingSpotChecking; // Don't touch

      Players[0].Name:= 'Username'; // Name of your RuneScape account
      Players[0].Pass:= 'Password'; // Password to your RuneScape account
      Players[0].Nick:= 'sern'; // 3-4 chars of your RuneScape-Accounts name. No capitals or numbers!
      Players[0].Pin:= 0000; // Bank-pin, if any
      Players[0].Strings[0]:= 'Swordfish'; // See notes #1 (But notes #5 first)
      Players[0].Booleans[0]:= False; // See notes #5
      Players[0].Integers[0]:= 3; // Loads to fish and bank, before changing player/relogging
      Players[0].Integers[1]:= 20000; // See notes #2
      Players[0].Integers[2]:= 1000; // Time in seconds 1 load can take before banking
      Players[0].Active:= True; // True to use account, false to skip
     
    { Players[1].Name:= '';
      Players[1].Pass:= '';
      Players[1].Nick:= '';
      Players[1].Pin:= 0000;
      Players[1].Strings[0]:= 'Shark';
      Players[1].Booleans[0]:= False;
      Players[1].Integers[0]:= 3;
      Players[1].Integers[1]:= 20000;
      Players[1].Integers[2]:= 1000;
      Players[1].Active:= True;
     
      Players[2].Name:= '';
      Players[2].Pass:= '';
      Players[2].Nick:= '';
      Players[2].Pin:= 0000;
      Players[2].Strings[0]:= 'Auto';
      Players[2].Integers[0]:= 3;
      Players[2].Integers[1]:= 20000;
      Players[2].Integers[2]:= 1000;
      Players[2].Active:= True;  }

      { You can add more players if you like. }
    end;

    Procedure DeclareDTMs;
    begin
      BigNet := DTMFromString('78DA63CC666260B8CF8002A27DAC18FE03694' +
           '620FE0F048C29986A20B23012482702D53C25A0261DA8E6390135' +
           '7940356F09A8A900AA7946404D1550CD63FC6A0021E50F36');
      Cage := DTMFromString('78DA8DCF410A40601005E019B7710016121B4' +
           '9CAEFFC885829257281DF5B62E1CDAB99D97C4D339A0522A3BC92' +
           '86221E53511ED112A6934FF4D1312B989E9816663098891807B31' +
           '8F6ACC434301B3135CC6EF8FD24A680B988C90D7B12988398C870' +
           '730C33FF9B1B6573172F');
      Harpoon := DTMFromString('78DA634C65626078C3800232FD3919FE03694' +
           '620FE0F048CC540355719D000231209A4CB816AAE1350930F54F3' +
           '88809A5CA09A6704D46462BA19434D1250CD07CACD01005A40106' +
           'B');
      Shark := DTMFromString('78DA639CC8C4C07097010554151532FC07D28' +
           'C40FC1F0818FB816AAE33A00146241248CF06AAB94540CD54A09A' +
           '9B04D42C00AA794040CD42A09AC704D42C06AA794140CD12A09AB' +
           '704D4CC03AAF94084DF5F11503305A8E625116A0899038A8BF704' +
           'D47410A986907BBA09C70500E3A91E5E');
      Swordfish := DTMFromString('78DA6374626460B0046224B0B8640DC37F200' +
           'D12FD0F048CFE409635AA1A882C8C04D20140962301351E40962D' +
           '01358E4498630364B912506349841A90390EF8D500007DE70AFE');
      Tuna := DTMFromString('78DA637464646030046224307B423FC37F200' +
           'D12FD0F048C6E409636AA1A882C8C04D2FE409609116A7409A871' +
           '07B2AC08A8B105B26C09A8B100B22C08A8B106B28CF0AB0100380' +
           '30A97');
      Lobster := DTMFromString('78DA63DCCFC4C0F088010554B8C832FC07D28' +
           'C40FC1F08188F01D5DC6240038C4824903E0954738D809A734035' +
           '3709A8390D54739D809A134035F708A8398EE92FAC6E7E4940CD1' +
           '1A09A4F04D4EC03AA794A40CD2EA09A1704D46C23C23D20731E10' +
           '50B31DA8E62101359B08BB190058C01EAC');
      Mackerel := DTMFromString('78DA63B4676460A8026224B0704134C37F200' +
           'D12FD0F048CEE40561DAA1A882C8C04D2BE98E660A8B101B29A09' +
           'A83127C22E3B22CC7102B29AF0AB0100AF2A0BF8');
    end;

    Procedure EndPlayer(Activity: Boolean; ReasonLoc: String);
    begin
      UserStats[CurrentPlayer].Time:= UserStats[CurrentPlayer].Time + TimeFromMark(CurrentPlayerTime);
      PlayerNum:= PlayerNum + 1;
      LogOut;
      Players[CurrentPlayer].Active:= Activity;
      Players[CurrentPlayer].Loc:= ReasonLoc;
      Writeln('Player was logged out')
      Writeln('ReasonLoc: '+ReasonLoc)
    end;

    Function Randomize(Original,Rand: Integer): Integer;
    begin
      case random(2) of
        0: Result:= Original - Random(Rand);
        1: Result:= Original + Random(Rand);
      end;
    end;

    Procedure DropToPosition(StartPos,EndPos: Integer);
    var I: Integer;
    begin
      for I:= Min(StartPos,EndPos) to Max(StartPos,EndPos) do
      begin
        DropItem(I)
        Wait(100+random(200))
      end;
    end;

    Procedure HighestAngle;
    var I: Integer;
    begin
      KeyDown(VK_UP)
      Wait(1100)
      for I:= 0 to 4 do
      begin
        Wait(random(50))
      end;
      KeyUp(VK_UP)
    end;

    Procedure AskForLevelsHuman; Forward;

    Procedure SaySomethingWeird;
    var Root,P1,P2,P3: String;
    Var C: Integer;
    begin
      Case Random(3) of
        0:
        begin
          Root:= IntToStr(Players[CurrentPlayer].Integers[0]-UserStats[CurrentPlayer].Loads)
          case Random(2) of
            0: P1:= 'only ';
          end;
          Case Random(3) of
            0: P2:= ' loads left';
            1: P2:= ' full invs left';
            2: P2:= ' loads to go';
          end;
          TypeSend(P1+Root+P2)
          Writeln(Players[CurrentPlayer].Name+': "'+P1+Root+P2+'"')
        end;
        1:
        begin
          P1:= 'b'
          for C:= 1+random(10) downto 0 do
          begin
            Root:= Root + 'o';
          end;
          case random(2) of
            0: P2:= 'rin';
            1: P2:= 'ring';
          end;
          TypeSend(P1+Root+P2)
          Writeln(Players[CurrentPlayer].Name+': "'+P1+Root+P2+'"')
        end;
        2:
        begin
          case random(2) of
            0: P1:= 'what ';
            1: P1:= 'wat ';
          end;
          case random(3) of
            0,1: P2:= 'are '
          end;
          case random(2) of
            0: P3:= 'you guys ';
            1: P3:= 'you ';
          end;
          case random(2) of
            0: Root:= ' fishing?';
            1: Root:= ' fishing';
          end;
          TypeSend(P1+P2+P3+Root)
          Writeln(Players[CurrentPlayer].Name+': "'+P1+P2+P3+Root+'"')
          FTWait(15)
          TypeSend('Im fishing '+UserStats[CurrentPlayer].FishStr)
          Writeln(Players[CurrentPlayer].Name+': "im fishing '+UserStats[CurrentPlayer].FishStr+'"')
        end;
      end;
    end;

    Procedure WriteAB(Text: String);
    begin
      if AntiBanCommenting then Writeln(Text);
    end;

    Function NormalAntiban: Boolean;
    var I,C: Integer;
    begin
      if (Not LoggedIn) then Exit;
      case Random(AntiBanRate) of
        0:
        begin
          WriteAB('Performing Normal-Antiban: ')
          case Random(7) of
            0:
            begin
              WriteAB('Random camera-tilt')
              I:= 300+random(700)
              KeyDown(40)
              Wait(I)
              KeyUp(40)
              Wait(500+random(500))
              KeyDown(38)
              Wait(I+random(200))
              KeyUp(38)
              Result:= True;
            end;
            1:
            begin
              WriteAB('Random camera-pane')
              I:= 300+random(800)
              C:= 4;
              case random(2) of
                0:
                begin
                  KeyDown(VK_RIGHT)
                  Wait(I)
                  KeyUp(VK_RIGHT)
                  C:= C - 1;
                end;
                1:
                begin
                  KeyDown(VK_LEFT)
                  Wait(I)
                  KeyUp(VK_LEFT)
                  C:= C - 3;
                end;
              end;
              Wait(700+random(500))
              case C of
                1:
                begin
                  KeyDown(VK_RIGHT)
                  Wait(Randomize(I,20))
                  KeyUp(VK_RIGHT)
                end;
                3:
                begin
                  KeyDown(VK_LEFT)
                  Wait(Randomize(I,20))
                  KeyUp(VK_LEFT)
                end;
              end;
              Result:= True;
            end;
            2:
            begin
              WriteAB('Random GameTab')
              I:= GetCurrentTab;
              C:= 1+random(10)
              if (C = 4) then
              begin
                case Random(2) of
                  0: GameTab(1+random(3));
                  1: GameTab(5+random(7));
                end;
              end else GameTab(1+random(10));
              Wait(500+random(1500))
              GameTab(I)
              Result:= True;
            end;
            3:
            begin
              if UseLevelAsker then
              begin
                WriteAB('Level Asker/Random mouse-movement')
                AskForLevelsHuman;
              end else NormalAntiban;
              Result:= True;
            end;
            4:
            begin
              WriteAB('SleepAndMoveMouse')
              SleepAndMoveMouse(200+random(2000))
              Result:= True;
            end;
            5:
            begin
              WriteAB('Random hoverskill')
              case Random(3) of
                0: HoverSkill('Fishing',false);
                1: HoverSkill('Cooking',false);
                2: HoverSkill('Woodcutting',false);
              end;
              UserStats[CurrentPlayer].Fishlevel:= GetSkillInfo('Fishing',true)
              GameTab(4)
              Result:= True;
            end;
            6:
            begin
              WriteAB('Saying something weird')
              if RandomTalk then SaySomethingWeird
              else NormalAntiban;
              Result:= True;
            end;
          end;
        end;
      end;
    end;
     
    Procedure MouseAntiban(Tx,Ty: Integer);
    var a,b: Integer;
    begin
      if (Not LoggedIn) then Exit;
      case Random(50) of
        0:
        begin
          WriteAB('Performing Mouse-Antiban')
          Case Random(5) of
            0:
            begin
              WriteAB('Starting-insecurity')
              GetMousePos(a,b)
              MMouse(a-5,b-5,10,10)
              Wait(500+random(500))
            end;
            1:
            begin
              WriteAB('PickUpMouse')
              PickUpMouse;
              Wait(200+random(300))
            end;
            2,4:
            begin
              WriteAB('Mousespeed-change')
              if MouseSpeed <= 10 then MouseSpeed:= MouseSpeed + Random(6);
              if MouseSpeed >= 20 then MouseSpeed:= MouseSpeed - Random(6);
              if ((MouseSpeed > 12) and (MouseSpeed < 18)) then MouseSpeed:= Randomize(MouseSpeed,5);
              Wait(200+random(300))
            end;
            3:
            begin
              WriteAB('Overshooting target')
              GetMousePos(a,b)
              if (Tx > 30) and (Ty > 30) and (Tx < 700) and (Ty < 420) then
              begin
                if Not PointInBox(IntToPoint(a,b),IntToBox(Tx-20,Ty-20,Tx+20,Ty+20)) then
                begin
                  case Random(4) of
                    0: MMouse(Tx,Ty-30,10,10);
                    1: MMouse(Tx-30,Ty,10,10);
                    2: MMouse(Tx,Ty+30,10,10);
                    3: MMouse(Tx+30,Ty,10,10);
                  end;
                  Wait(200+random(200))
                end;
              end;
            end;
          end;
        end;
      end;
    end;

    Procedure MMouse2(x,y,ranx,rany: Integer);
    var Tx,Ty: Integer;
    begin
      Tx:= X+Random(Ranx)
      Ty:= Y+Random(Rany)
      MouseAntiban(Tx,Ty);
      MMouse(Tx,Ty,0,0);
    end;

    Procedure Mouse2(x,y,ranx,rany: Integer; Left: Boolean);
    var Tx,Ty: Integer;
    begin
      Tx:= X+Random(Ranx)
      Ty:= Y+Random(Rany)
      MouseAntiban(Tx,Ty)
      Mouse(Tx,Ty,0,0,Left)
    end;

    Procedure BankToTop;
    var a,b,ScrollButton,C: Integer;
    begin
      if (Not LoggedIn) then Exit;
      ScrollButton := DTMFromString('78DA63BCC2C8C090CA8002CAD24218B880342' +
           '394CFF818C8AA465563ACAB8AA92695809A2B4498731DC82A4355' +
           'E3EB648CAAE62E90954D40CD4D20AB8408734A895093875BCD7F2' +
           '00000839C16A8');
      if SimilarColors(GetColor(474,75),1777699,5) then
      begin
        if FindDTM(ScrollButton,a,b,464,49,487,290) then
        begin
          MMouse(a,b,10,10)
          GetMousePos(a,b)
          HoldMouse(a,b,true)
          MouseSpeed:= 4+random(5)
          Wait(100+random(50))
          MMouse(468, 75,5,2)
          GetMousePos(a,b)
          ReleaseMouse(a,b,true)
          if SimilarColors(GetColor(474,75),1777699,5) then
          begin
            MMouse(469, 60,10,10)
            GetMousePos(a,b)
            HoldMouse(a,b,true)
            repeat
              Wait(100+random(100))
              C:= C + 1;
            until(not SimilarColors(GetColor(474,75),1777699,5)) or (C = 20)
          end;
        end;
      end;
      FreeDTM(ScrollButton)
    end;

    Function FindFishingSpot2(UpText,Choose: String): Boolean;
    var
     A,b,Bn,I,x,y,NFT,WCol: Integer;
     Boxes: Array of TBox;
    begin
      repeat

        Wait(1)
        if FindColorSkipBoxArrayTolerance(a,b,15584681,MSx1,MSy1,MSx2,MSy2,15,Boxes) then
        begin
          MMouse(a,b,5,5)
          Wait(200+random(300))
          if IsUpText('quarium') then
          begin
            Writeln('Noooees! We''re at the Aquarium!')
            WCol:= FindWaterColor;
            if WCol = 0 then
            begin
              Mouse(636, 127,10,10,true)
              FFlag(0)
              Exit;
            end;
            for I:= 30 to 80 do
            begin
              if FindColor(x,y,FindWaterColor,MMCx+I,MMCy-1,MMCx+I+1,MMCy+1) then
              begin
                Mouse(x,y,3,3,true)
                FFlag(0)
                Exit;
              end;
            end;
          end;
          if IsUpText(UpText) then
          begin
            GetMousePos(a,b)
            Mouse(a,b,0,0,false)
            Wait(200+random(300))
            if ChooseOption(Choose) then Result:= True
            else
            begin
              if Bn > 15 then Exit;
              SetArrayLength(Boxes,Bn+1)
              Boxes[Bn]:= IntToBox(A-30,b-30,a+30,b+30);
              Bn:= Bn + 1;
            end;
          end else
          begin
            if Bn > 15 then Exit;
            SetArrayLength(Boxes,Bn+1)
            Boxes[Bn]:= IntToBox(A-30,b-30,a+30,b+30);
            Bn:= Bn + 1;
          end;
        end else
        begin
          NFT:= NFT + 1;
          if NFT = 50 then Exit;
        end;
      until(Result)
    end;

    function FindObjUTCH(var x,y: Integer; Boxsize,SBSize: Integer; UpText,Choose: String; Colors: TIntegerArray; Tol,MaxSkipBoxes: Integer): Boolean;
    var
     A,b: TIntegerArray;
     Boxes: TBoxArray;
     C,CsInBox,NB: Integer;
     NBox: Boolean;
    begin
      if (Not LoggedIn) then Exit;
      SetArrayLength(a,GetArrayLength(Colors))
      SetArrayLength(b,GetArrayLength(Colors))
      if MaxSkipBoxes = 0 then MaxSkipBoxes:= 2;
      SetArrayLength(Boxes,MaxSkipBoxes)
      repeat
        NBox:= False;
        C:= 0;
        CsInBox:= 0;
        if FindColorSkipBoxArrayTolerance(A[0],B[0],Colors[C],MSx1,MSy1,MSx2,MSy2,Tol,Boxes)then
        begin
          repeat
            Inc(C)
            if FindColorTolerance(A[C],B[C],Colors[C],A[0]-BoxSize,B[0]-BoxSize,A[0]+BoxSize,B[0]+BoxSize,Tol)then
            begin
              Inc(CsInBox)
            end else NBox:= True;
          until (CsInBox = GetArrayLength(Colors)-1) or (NBox)
        end;
        begin
          if NB >= MaxSkipBoxes then Break;
          if NBox then
          begin
            Boxes[NB]:= IntToBox(A[0]-SBSize,B[0]-SBSize,A[0]+SBSize,B[0]+SBSize)
            Inc(NB)
          end else
          begin
            if Not PointInBox(IntToPoint(A[0],B[0]),IntToBox(0,0,4,4)) then
            begin
              MMouse2(A[0],B[0],3,3)
              Wait(120+random(70))
            end;
            if IsUpText(UpText) then
            begin
              GetMousePos(x,y)
              Mouse2(x,y,0,0,false)
              Wait(200+random(300))
              if ChooseOption(Choose) then
              begin
                Result:= True;
                Exit;
              end else
              begin
                if NB >= MaxSkipBoxes then Break;
                Boxes[NB]:= IntToBox(A[0]-SBSize,B[0]-SBSize,A[0]+SBSize,B[0]+SBSize)
                Inc(NB)
              end;
            end else
            begin
              if NB >= MaxSkipBoxes then Break;
              Boxes[NB]:= IntToBox(A[0]-SBSize,B[0]-SBSize,A[0]+SBSize,B[0]+SBSize)
              Inc(NB)
            end;
          end;
        end;
      until(false)
    end;

    Function MMColorAngle(var x,y: Integer; Col,Tol,StartAngle,EndAngle,StartRadius,EndRadius: Integer): Boolean;
    var Cpx,Cpy,R,A: Integer;
    begin
      if (Not LoggedIn) then Exit;
      if StartAngle > EndAngle then
      begin
        for A:= StartAngle downto EndAngle do
        begin
          if StartRadius > EndRadius then
          begin
            for R:= StartRadius downto EndRadius do
            begin
              Cpx:= Round(R*Sine(A))+MMCx;
              Cpy:= Round(-R*Cose(A))+MMCy;
              if FindColorTolerance(x,y,Col,Cpx,Cpy,Cpx+1,Cpy+1,Tol) then
              begin
                Result:= True;
                Exit;
              end;
            end;
          end else
          begin
            for R:= StartRadius to EndRadius do
            begin
              Cpx:= Round(R*Sine(A))+MMCx;
              Cpy:= Round(-R*Cose(A))+MMCy;
              if FindColorTolerance(x,y,Col,Cpx,Cpy,Cpx+1,Cpy+1,Tol) then
              begin
                Result:= True;
                Exit;
              end;
            end;
          end;
        end;
      end else
      begin
        for A:= StartAngle to EndAngle do
        begin
          if StartRadius > EndRadius then
          begin
            for R:= StartRadius downto EndRadius do
            begin
              Cpx:= Round(R*Sine(A))+MMCx;
              Cpy:= Round(-R*Cose(A))+MMCy;
              if FindColorTolerance(x,y,Col,Cpx,Cpy,Cpx+1,Cpy+1,Tol) then
              begin
                Result:= True;
                Exit;
              end;
            end;
          end else
          begin
            for R:= StartRadius to EndRadius do
            begin
              Cpx:= Round(R*Sine(A))+MMCx;
              Cpy:= Round(-R*Cose(A))+MMCy;
              if FindColorTolerance(x,y,Col,Cpx,Cpy,Cpx+1,Cpy+1,Tol) then
              begin
                Result:= True;
                Exit;
              end;
            end;
          end;
        end;
      end;
    end;

    Function FindDTMRMM(DTM: Integer; var a,b: Integer; SA,EA: Integer): Boolean;
    var E: Extended;
    begin
      if (Not LoggedIn) then Exit;
      Result:= FindDTMRotated(DTM,a,b,MMx1,MMy1,MMx2,MMy2,SA,EA,0.05,E)
    end;

    Function WeirdRW(Color,Tol,SR,ER,SRa,ERa: Integer): Boolean;
    var a,b: Integer;
    begin
      if (Not LoggedIn) then Exit;
      if MMColorAngle(a,b,Color,10,SR,ER,SRa,ERa) then
      begin
        Mouse2(a-2,b-2,4,4,true)
        Result:= True;
      end;
      if (Random(5)=0) then NormalAntiban;
    end;

    Function GotEquip: Boolean;
    var a,b: Integer;
    begin
      if (Not LoggedIn) then Exit;
      GameTab(4)
      Result:= FindDTM(Equip,a,b,MIx1,MIy1,MIx2,MIy2)
    end;

    Function MMColorPercent(Color: Integer): Integer;
    var P: TPointArray;
    begin
      if (Not LoggedIn) then Exit;
      FindColorsTolerance(p,Color, MMX1, MMY1, MMX2, MMY2, 0);
      Result := Round((Length(p) / 15741.0) * 100.0);
    end;

    {All Creds to Tarajunky for this. All I did was edit out the Writeln's}
    function FindWaterColorNC: Integer;
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
      GC := 12095356;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 50);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,50) then
          begin
            red := (TestColor mod 256);
            green := ((TestColor / 256) mod 256);
            blue := ((TestColor / 256) / 256);
            if Green - Red <= 22 then if Green - Red >= 18 then
              if Blue - Red >= 55 then if Blue - Red <= 72 then
                if Blue - Green >= 35 then if Blue - Green <= 52 then
                  if GetColor(P[a].x + 2, P[a].y + 2) = TestColor then
                    if GetColor(P[a].x + 1, P[a].y + 1) = TestColor then
                      if GetColor(P[a].x, P[a].y + 2) = TestColor then
                        if GetColor(P[a].x + 2, P[a].y) = TestColor then
                          if GetColor(P[a].x, P[a].y + 1) = TestColor then
                            if GetColor(P[a].x + 1, P[a].y) = TestColor then
                              if GetColor(P[a].x + 2, P[a].y + 1) = TestColor then
                                if GetColor(P[a].x + 1, P[a].y + 2) = TestColor then
                                begin
                                  Result := TestColor;
                                  WaterColor := TestColor;
                                  Exit;
                                end;
          end;
        end;
      end;
      Result := 0;
    end;

    {Same as above; 100% Tara-power :D}
    function FindRoadColorNC: Integer;
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
      GC := 5987170;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,60) then
          begin
            red := (TestColor mod 256);
            green := ((TestColor / 256) mod 256);
            blue := ((TestColor / 256) / 256);
            if Red - Green <= 10 then if Red - Green >= 5 then
              if Red - Blue <= 10 then if Red - Blue >= 5 then
                if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
                  if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
                    if GetColor(P[a].x, P[a].y + 5) = TestColor then
                      if GetColor(P[a].x + 5, P[a].y) = TestColor then
                        if GetColor(P[a].x, P[a].y + 3) = TestColor then
                          if GetColor(P[a].x + 3, P[a].y) = TestColor then
                            if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                              if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                              begin
                                Result := TestColor;
                                RoadColor := TestColor;
                                Exit;
                              end;
          end;
        end;
      end;
      Result := 0;
    end;

    Function InDoubleRange(Num,Dev,RangeOf: Integer): Boolean;
    begin
      if (Num-Dev <= RangeOf) and (Num+Dev >= RangeOf) then Result:= True;
    end;

    Function Spot: Integer;
    var WP,RP: Integer;
    begin
      if (Not LoggedIn) then Exit;
      WP:= MMColorPercent(FindWaterColorNC);
      RP:= MMColorPercent(FindRoadColorNC)
      if FindRoadColorNC = 0 then
      begin
        if InDoubleRange(36,5,WP) then Result:= 3
        else Result:= 4;
      end else
      begin
        if InDoubleRange(5,2,RP) then Result:= 1
        else Result:= 2;
      end;
    end;

    Procedure AskForLevelsHuman;
    var
     S1,S2,S3,Skill,QM: String;
    begin
      if (Not LoggedIn) then Exit;
      Case random(5) of
        0: Skill:= 'cooking';
        1: Skill:= 'cook';
        2: Skill:= 'fish';
        3: Skill:= 'fishing';
        4: Skill:= 'total';
      end;
      Case Random(5) of
        0: S1:= 'what ';
        1: S1:= 'wat ';
        2: S1:= 'waht ';
        3: S1:= 'what ';
      end;
      case random(4) of
        0: S2:= 'are your ';
        1: S2:= 'are youre ';
        2: S2:= 'is your ';
        3: S2:= 'is youre ';
      end;
      if(S1 = '')then
      begin
        S2:= ''
      end;
      Case random(4) of
        0: S3:= 'levels';
        1: S3:= 'lvls';
        2: S3:= 'lvs';
        3: S3:= 'level';
      end;
      Case random(3) of
        0: QM:= '?';
        1: QM:= '';
        2: QM:= ' ?';
      end;
      Wait(10+random(50))
      TypeSend(S1+S2+Skill+' '+S3+QM)
      Writeln('Asked: "'+S1+S2+Skill+' '+S3+QM+'"')
    end;

    Function CountInvDTM(DTM: Integer): Integer;
    var
     I,O: Integer;
     a,b: Integer;
    begin
      if (Not LoggedIn) then Exit;
      if (DTM = -1) then Exit;
      for O:= 0 to 7 do
      begin
        for I:= 1 to 4 do
        if(FindDTM(DTM,a,b,562+((I-1)*40),207+(O*37),562+(I*40),244+(O*37)))then
        begin
          Result:= Result + 1;
        end;
      end;
    end;

    Function FishCount: Integer;
    begin
      if (Not LoggedIn) then Exit;
      Result:= CountInvDTM(Fish);
    end;

    Function GetEquipFromGround: Boolean;
    var
     HarpoonGround,CageGround,a,b: Integer;
     E: Extended;
    begin
      if (Not LoggedIn) then Exit;
      HarpoonGround := DTMFromString('78DA6354626460D8C0800232FD3919E480342' +
           '394CF280764AD25A0460AC85A8DAA26C1034D8D3890B50A554D65' +
           '141FAA1A21206B19AA9AAAA24254352240D672543579E9E9286A0' +
           '090970B0A');
      CageGround := DTMFromString('78DA6354626460D8C0800232FD3919E480342' +
           '394CF280764AD25A0460AC85A8DAA26C1034D8D3890B50A554D65' +
           '141FAA1A21206B19AA9AAAA24254352240D672543579E9E9286A0' +
           '090970B0A');
      case LowerCase(EquipStr) of
        'harpoon':
        begin
          if FindDTMRotated(HarpoonGround,a,b,MSx1,MSy1,MSx2,MSy2,-30,30,0.05,E) then
          begin
            MMouse2(a,b,3,3)
            Wait(200+random(200))
            if IsUpText('ake')then
            begin
              GetMousePos(a,b)
              Mouse2(a,b,0,0,true)
              FFlag(0)
              Result:= True;
            end;
          end;
        end;
        'cage':
        begin
          if FindDTMRotated(CageGround,a,b,MSx1,MSy1,MSx2,MSy2,-30,30,0.05,E) then
          begin
            MMouse2(a,b,3,3)
            Wait(200+random(200))
            if IsUpText('ake')then
            begin
              GetMousePos(a,b)
              Mouse2(a,b,0,0,true)
              FFlag(0)
              Result:= True;
            end;
          end;
        end;
      end;
      FreeDTM(HarpoonGround)
      FreeDTM(CageGround)
    end;

    Procedure FishToBank; Forward;
    Procedure BankToFish; Forward;
    Function OpenCathyBank: Boolean; Forward;

    Procedure GetNewEq;
    var a,b,I: Integer;
    begin
      if (Not LoggedIn) then Exit;
      for I:= 1 to 28 do
      begin
        if ExistsItem(I) then
        begin
          MouseItem(I,false)
          ChooseOption('Store All')
        end;
      end;
      if BankScreen then
      begin
        if FindDTM(Equip,a,b,MSx1,MSy1,MSx2,MSy2) then
        begin
          Mouse2(a,b,5,5,true)
        end else
        begin
          CloseWindow;
          EndPlayer(False,'No new FishingEquip in bank')
        end;
      end;
    end;

    Procedure CheckEqExist;
    begin
      if (Not LoggedIn) then Exit;
      if not GotEquip then
      begin
        Writeln('Lost '+EquipStr)
        if GetEquipFromGround then Writeln('Got '+EquipStr+' from ground')
        else
        begin
          Writeln('Getting new '+EquipStr+' from bank')
          FishToBank;
          OpenCathyBank;
          BankToTop;
          GetNewEq;
          BankToFish;
        end;
      end;
    end;


    Function WalkWater(Sa,Ea,Sra,Era: Integer): Boolean;
    var a,b: integer;
    begin
      if (Not LoggedIn) then Exit;
      if MMColorAngle(a,b,FindWaterColor,2,Sa,Ea,Sra,Era) then
      begin
        Mouse(a,b-5,5,5,true)
        Result:= True;
      end;
    end;

    Procedure YouLaggedFix;
    var T: Integer;
    begin
      if(GetColor(346,294)=8356779)and(GetColor(272,339)=8356779)and(GetColor(370,339)=16777215)then
      begin
        Mouse(347,320,110,40,true)
        MarkTime(T)
        repeat
          Wait(300+random(300))
        until(LoggedIn) or (TimeFromMark(T) > 10000)
      end;
    end;

    Procedure FishLevelUpTalk(Level: Integer);
    var P1,P2,P3,P4,P5: String;
    var Count: Integer;
    begin
      Writeln('You advanced a fishing level. Assembling sentence...')
      case Random(4) of
        0: P1:= 'say ';
        1: P1:= 'sai ';
        2: P1:= 'omg ';
      end;
      case Random(2) of
        0:
        begin
          P2:= 'w';
          for Count:= 1+random(10) downto 0 do
          begin
            case random(2) of
              0: P2:= P2 + '0';
              1: P2:= P2 + 'o';
            end;
          end;
          case random(2) of
            0: P2:= P2 + 't! ';
            1: P2:= P2 + 't ';
          end;
        end;
        1:
        begin
          P2:= 'wh';
          for Count:= 1+random(10) downto 0 do
          begin
            P2:= P2 + 'a'
          end;
          case random(2) of
            0: P2:= P2 + 't! ';
            1: P2:= P2 + 't ';
          end;
        end;
      end;
      case random(4) of
        0: P3:= 'fish ';
        1: P3:= 'fishing ';
        2: P3:= 'fishin ';
      end;
      case random(4) of
        0: P4:= 'level ';
        1: P4:= 'lvl ';
        2: P4:= 'lv ';
        3:
        begin
          if (P3 = '') then
          begin
            case random(3) of
              0: P4:= 'level ';
              1: P4:= 'lvl ';
              2: P4:= 'lv ';
            end;
          end;
        end;
      end;
      case random(6) of
        0: P5:= 'up!';
        1: P5:= 'up';
        2,4: P5:= IntToStr(Level)+' !';
        3,5: P5:= IntToStr(Level);
      end;
      TypeSend(P1+P2+P3+P4+P5)
      Writeln('Said: '+P1+P2+P3+P4+P5)
    end;

    Procedure NearWaterCheck;
    var I: Integer;
    begin
      for I:= 0 to 10 do
      begin
        if (Not LoggedIn) then Exit;
        if (FindWaterColorNC = 0) then FTWait(4+random(5))
        else Exit;
      end;
      EndPlayer(False,'Not near water')
    end;

    Procedure CheckRandoms;
    var a,b,T: Integer;
    begin
      YouLaggedFix;
      if Not LoggedIn then
      begin
        if Players[CurrentPlayer].Active then LoginPlayer
        else Exit;
      end;
      if (GetColor(352,293)=8356779) and (GetColor(271,350)=8356779) then
      begin
        Mouse2(338,318,100,35,true)
        MarkTime(T)
        repeat
          Wait(100+random(100))
        until(LoggedIn) or (TimeFromMark(T) >= 15000)
        Wait(1000+random(1000))
      end;
      FindNormalRandoms;
      SolveChatRandom;
      FindTalk;
      if FindFight then
      begin
        RunTo('N',false)
        FTWait(10+random(10))
        if FindFight then RunTo('W',False);
        if FindSymbol(a,b,'Fish') then
        begin
          Mouse2(a,b,5,5,true)
          FFlag(0)
        end else if WalkWater(170,190,60,10) then FFlag(0);
      end;
      if FindDead then
      begin
        EndPlayer(False,'Dead')
      end;
      if FindText(a,b,'continue',NPCChars,MCx1,MCy1,MCx2,MCy2) then
      begin
        if FindText(a,b,'evel',NPCChars,MCx1,MCy1,MCx2,MCy2) then
        begin
          ClickToContinue;
          Wait(1000+random(1000))
          GameTab(2)
          Wait(1000+random(500))
          MMouse(682,274,45,20)
          Wait(1000+random(1000))
          MMouse(MSx1,MSy1,MSx2-MSx1,MSy2-MSy1)
          FishLevelUpTalk(GetSkillInfo('Fishing',false));
          GameTab(4)
        end;
      end;
      NearWaterCheck;
      if Not LoggedIn then Players[CurrentPlayer].Active:= False;
    end;

    Function NearSpots: Boolean;
    var a,b: Integer;
    begin
      if (Not LoggedIn) then Exit;
      Result:= (FindColorTolerance(a,b,FindWaterColor,642,92,643,102,2))
    end;

    Procedure BankToFish;
    var
     a,b,WaterRocks: Integer;
     GoBack: Boolean;
    Label Walk,FS;
    begin
      if (Not LoggedIn) then Exit;
      WaterRocks := DTMFromString('78DA63AC67626088604001C9D1110C22409A1' +
           '1CA676C03AA4922A0A60FA82681809A1AA09A44543535FD3B50D5' +
           '3400D5A41150D30E5493895F0D00DE850E7C');
      if WeirdRW(FindRoadColor,5,120,80,60,10) then FFlag(0)
      else if RadialWalk(FindRoadColor,120,80,60,1,1) then FFlag(0)
      else WalkWater(70,140,67,10);
      CheckRandoms;
      if WeirdRW(FindRoadColor,5,120,80,60,10) then FFlag(0)
      else if RadialWalk(FindRoadColor,110,80,60,1,1) then FFlag(0)
      else WalkWater(70,140,67,10);
      GoBack:= True;
      Walk:
      CheckRandoms;
      if MMColorAngle(a,b,FindRoadColor,5,120,80,65,10) then
      begin
        if WeirdRW(FindRoadColor,5,180,80,60,10) then
        begin
          Wait(20)
          if not FlagPresent then GoBack:= False;
          FFlag(0)
        end else WalkWater(70,140,67,10);
        if GoBack then Goto Walk;
      end;
      FS:
      if FindSymbolIn(a,b,'Fish',MMx1+((MMx2-MMx1)/2),MMy1,MMx2,MMy2) then
      begin
        Mouse2(a,b+10,5,5,true)
        FFlag(0)
      end else
      begin
        if FindDTMRMM(WaterRocks,a,b,-30,30) then
        begin
          Mouse2(a+5,b-5,5,5,true)
          FFlag(0)
        end else
        begin
          if WalkWater(60,140,50,20) then FFlag(0)
          else Goto FS;
        end;
      end;
      FishingSpot:= Spot;
      CheckRandoms;
      if Not NearSpots then
      begin
        Writeln('You weren''t near the spots. Waterwalking further.')
        if WalkWater(70,220,60,20) then FFlag(0)
      end;
    end;

    Function FindBankers(var x,y: Integer): Boolean;
    var Bankers: Integer;
    begin
      Bankers := DTMFromString('78DA636C666260706740012DD5550CFF81342' +
           '310FF0702C64AA01A2B54357FFE30316840D58000632D508D1901' +
           '358D4498D349580D00AACE12BF');
      Result:= (FindDTMRMM(Bankers,x,y,-30,30));
      FreeDTM(Bankers)
    end;

    Procedure FishToBank;
    var a,b,Tries: Integer;
    begin
      if (Not LoggedIn) then Exit;

      Tries:= 0;
      if (FishingSpot = 1) or (FishingSpot = 2) then Tries:= 0
      else
      begin
        if WalkWater(350,230,65,60) then FFlag(0)
        else if WalkWater(10,180,65,60) then FFlag(0)
      end;
      if (FindRoadColorNC=0) then if WalkWater(10,180,65,60) then FFlag(0);
      if WeirdRW(FindRoadColor,10,200,360,70,30) then FFlag(0)
      else
      begin
        if WeirdRW(FindRoadColor,5,200,20,70,30) then FFlag(0);
      end;
      CheckRandoms;
      repeat
        if WeirdRW(FindRoadColor,5,260,280,50,35) then FFlag(0);
        CheckRandoms;
        Tries:= Tries + 1;
      until(Tries = 5) or (FindBankers(a,b)) or FindSymbol(a,b,'Bank')
      if Tries = 5 then
      begin
        EndPlayer(False,'Lost')
      end else
      begin
        Mouse2(a,b+5,5,5,true)
        FFlag(0)
      end;
      CheckRandoms;
    end;

    Function OpenCathyBank: Boolean;
    var a,b,Tol,C: Integer;
    begin
      if (Not LoggedIn) then Exit;
      Tol:= 10;
      CheckRandoms;
      repeat
        if FindObjUTCH(a,b,30,50,'se','quickly',[7311519,3173769,5462367,608352],Tol,40) then
        begin
          FFlag(0)
          repeat
            Wait(200+random(200))
            C:= C + 1;
          until(BankScreen) or (PinScreen) or (C = 20)
          if C = 10 then
          begin
            EndPlayer(False,'Did not find bank')
            Exit;
          end;
          if PinScreen then
          begin
            InPin(IntToStr(Players[CurrentPlayer].Pin))
            C:= 0;
            repeat
              Wait(200+random(200))
              C:= C + 1;
            until(BankScreen) or (C = 20)
            if C = 20 then
            begin
              EndPlayer(False,'Bank problems')
              Exit;
            end;
            Wait(200+random(300))
          end;
          Wait(1000+random(1000))
          Result:= True;
          Exit;
        end else
        begin
          if FindBankers(a,b) then
          begin
            Mouse(a,b+2,5,5,true)
            FFlag(0)
            Wait(200+random(300))
          end;
        end;
        Tol:= Tol + 1;
      until(Tol = 20)
    end;

    Procedure ChangeToNewEq(OldEquip: String);
    var a,b,T: Integer;
    var EquipDeposited: Boolean;
    Label Redo;
    begin
      if (Not LoggedIn) then Exit;
      if BankScreen then
      begin
        case OldEquip of
          'Big Net':
          begin
            if FindDTM(BigNet,a,b,MIx1,MIy1,MIx2,MIy2) then
            begin
              Mouse2(a,b,5,5,true)
              EquipDeposited:= True;
              Redo:
            end;
          end;
          'Harpoon':
          begin
            if FindDTM(Harpoon,a,b,MIx1,MIy1,MIx2,MIy2) then
            begin
              Mouse2(a,b,5,5,true)
              EquipDeposited:= True;
              Redo:
            end;
          end;
          'Cage':
          begin
            if FindDTM(Cage,a,b,MIx1,MIy1,MIx2,MIy2) then
            begin
              Mouse2(a,b,5,5,true)
              EquipDeposited:= True;
              Redo:
            end;
          end;
        end;
        if EquipDeposited then
        begin
          if FindDTM(Equip,a,b,MSx1,MSy1,MSx2,MSy2) then
          begin
            Mouse2(a,b,5,5,true)
          end else
          begin
            if T <> 1 then
            begin
              BankToTop;
              T:= 1;
              Goto Redo;
            end else
            begin
              CloseWindow;
              LogOut;
            end;
          end;
        end;
      end;
    end;

    Procedure DepositItems;
    var a,b,Tries,I: Integer;
    begin
      if (Not LoggedIn) then Exit;
      if BankScreen then
      begin
        if FindDTM(Fish,a,b,MIx1,MIy1,MIx2,MIy2) then
        begin
          Mouse(a,b,5,5,false)
          Wait(300+random(300))
          ChooseOption('Store All')
          Wait(1000+random(1000))
        end;
        if not (Fish2 = -1) then
        begin
          if FindDTM(Fish2,a,b,MIx1,MIy1,MIx2,MIy2) then
          begin
            Mouse(a,b,5,5,false)
            Wait(300+random(300))
            ChooseOption('Store All')
            Wait(1000+random(1000))
          end;
        end;
        for I:= 2 to 28 do
        begin
          if ExistsItem(I) then
          begin
            MouseItem(I,False)
            Wait(300+random(300))
            ChooseOption('Store All')
            Wait(500+random(500))
          end;
        end;
        CloseWindow;
      end else
      begin
        OpenCathyBank;
        DepositItems;
        Tries:= Tries + 1;
        if Tries = 4 then
        begin
          EndPlayer(False,'Not in bank')
        end;
      end;
      ReportVars[0]:= ReportVars[0] + 1;
      Loads:= Loads + 1;
      Inc(UserStats[CurrentPlayer].Loads)
      CloseWindow;
      UserStats[CurrentPlayer].FishLevel:= GetSkillInfo('Fishing',true)
      GameTab(4)
      DropToPosition(2,28)
    end;

    Procedure TryOtherFishSpot;
    begin
      if (Not LoggedIn) then Exit;
      FishingSpot:= Spot;
      if FishingSpot = 0 then
      begin
        Disguise('Wtf?')
      end;
      Case FishingSpot of
        1,2,3:
        begin
          //Writeln('Changing from spot '+IntToStr(FishingSpot)+' to '+IntToStr(FishingSpot+1)+' via WaterWalk')
          case FishingSpot of
            1: if WalkWater(50,150,32,28) then FFlag(0);
            2: if WalkWater(50,150,35,30) then FFlag(0)
               else if WalkWater(310,210,32,28) then FFlag(0);
            3: if WalkWater(50,120,30,25) then FFlag(0);
               else if WalkWater(340,250,35,30) then FFlag(0);
          end;
          FishingSpot:= Spot;
        end;
        4:
        begin
          Writeln('WaterWalking to spot 1')
          if WalkWater(300,200,62,55) then FFlag(0);
          if WalkWater(300,200,30,25) then FFlag(0);
        end;
      end;
      FishingSpot:= Spot;
    end;

    Function FindFishingSpot(UpText,Choose: String): Boolean;
    var
     A,b,Bn,NFT,WCol,Time: Integer;
     Boxes: Array of TBox;
    begin
      CheckRandoms;
      MarkTime(Time)
      repeat
        Status('SpotChecks = '+IntToStr(FishSpotChecks))
        Wait(1)
        if FindColorSkipBoxArrayTolerance(a,b,15584681,MSx1,MSy1,MSx2,MSy2,15,Boxes) then
        begin
          MMouse(a,b,5,5)
          Wait(400+random(300))
          if IsUpText('quar') then
          begin
            Writeln('Noooees! We''re at the Aquarium!')
            WCol:= FindWaterColor;
            if WCol = 0 then
            begin
              Mouse(636, 127,10,10,true)
              FFlag(0)
              Exit;
            end;
            if WalkWater(90,200,68,30) then
            begin
              FFLag(0)
              Exit;
            end;
          end;
          if IsUpText(UpText) then
          begin
            GetMousePos(a,b)
            Mouse(a,b,0,0,false)
            Wait(200+random(300))
            if ChooseOption(Choose) then Result:= True
            else
            begin
              if Bn > 15 then Exit;
              SetArrayLength(Boxes,Bn+1)
              Boxes[Bn]:= IntToBox(A-30,b-30,a+30,b+30);
              Bn:= Bn + 1;
            end;
          end else
          begin
            if Bn > 15 then Exit;
            SetArrayLength(Boxes,Bn+1)
            Boxes[Bn]:= IntToBox(A-30,b-30,a+30,b+30);
            Bn:= Bn + 1;
          end;
        end else
        begin
          NFT:= NFT + 1;
          if NFT = 50 then Exit;
        end;
      until(Result)or(TimeFromMark(Time)>10000)
    end;

    Procedure GetFishingSpot;
    begin
      if (Not LoggedIn) then Exit;
      Players[CurrentPlayer].Loc:= 'Spot '+IntToStr(FishingSpot);
      repeat
        CheckRandoms;
        if (FindFishingSpot(Fish_UpText,Fish_Option)=False) then
        begin
          CheckRandoms;
          TryOtherFishSpot;
          FishSpotChecks:= FishSpotChecks + 1;
          Status('SpotChecks = '+IntToStr(FishSpotChecks))
          if FishSpotChecks > 50 then EndPlayer(False,'No fishing spot');
          if ((FishSpotChecks mod 6)=0) then
          begin
            Status('Waiting for some fishing spots')
            Wait(10000+random(10000))
          end;
        end else
        begin
          FishSpotChecks:= 0;
          Status('SpotChecks = 0')
          Break;
        end;
      until(false)
      Wait(2000+random(2000))
    end;

    Function InFrontOfSpot: Boolean;
    var
     T,Total: Integer;
     TPA: TPointArray;
    begin
      for T:= 1 to 5 do
      begin
        FindColorsTolerance(TPA,15124146,243,210,287,250,25)
        Total:= Total + GetArrayLength(TPA);
      end;
      Result:= (Total > 10)
    end;

    Function FishingAtSpot: Boolean;
    var Total,I: Integer;
    begin
      for I:= 0 to 10 do
      begin
        if InFrontOfSpot then Total:= Total + 1;
      end;
      Result:= (Total>4)
    end;

    Function IsFishing: Boolean;
    var
     I,MT,RT,TT,AT,Rx,A,B: Integer;
     SBF: Boolean;
    begin
      I:= FishCount;
      FishingSpot:= Spot;
      Players[CurrentPlayer].Loc:= 'Spot '+IntToStr(FishingSpot)
      Status('Fishing')
      MarkTime(MT)
      MarkTime(RT)
      MarkTime(TT)
      MarkTime(AT)
      case Random(5) of
        0: Rx:= 0+random(500);
        1: Rx:= 1000+random(500);
        2: Rx:= 2000+random(500);
        3: Rx:= 3000+random(500);
        4: Rx:= 4000+random(500);
      end;
      repeat
        Wait(100+random(100))
        if TimeFromMark(MT) > 8000+Rx then
        begin
          if not NormalAntiban then MMouse2(0,0,745,450);
          case Random(5) of
            0: Rx:= 0+random(500);
            1: Rx:= 1000+random(500);
            2: Rx:= 2000+random(500);
            3: Rx:= 3000+random(500);
            4: Rx:= 4000+random(500);
          end;
          MarkTime(MT)
        end;
        if TimeFromMark(RT) > 2000 then
        begin
          CheckRandoms;
          if not (EquipStr = 'Barehanded') then CheckEqExist;
          MarkTime(RT)
        end;
        if (UseFishingSpotChecker) and (not FishingAtSpot) then Break;
      until(FishCount > I) or (TimeFromMark(TT) > Players[CurrentPlayer].Integers[1])
      if (UseFishingSpotChecker) and (Not FishingAtSpot) then Exit;
      if FishCount > I then
      begin
        Result:= True;
        CheckRandoms;
      end else
      begin
        if (FishingAtSpot) and (UseFishingSpotChecker) then
        begin
          for I:= 0 to 2 do
          begin
            case I of
              0: A:= 240;
              1: A:= 235;
              2: A:= 345;
            end;
            MMouse(A,225,5,5)
            Wait(200+random(300))
            if IsUpText(Fish_UpText) then
            begin
              GetMousePos(A,B)
              Mouse(A,B,0,0,false)
              Wait(200+random(300))
              if ChooseOption(Fish_Option) then
              begin
                Result:= True;
                SBF:= True;
                Break;
              end;
            end;
          end;
        end;
      end;
      if (not (SBF)) then
      begin
        SBF:= False;
        A:= A;
        B:= B;
        Result:= False;
        CheckRandoms;
        Wait(1000+random(1000))
        if FishCount > I then
        begin
          Result:= True;
        end;
      end;
    end;

    Procedure SetupSharkFishing(SetDTM: Boolean);
    var FishLevel: Integer;
    begin
      Writeln('Setting up for Shark-Fishing')
      FishLevel:= UserStats[CurrentPlayer].FishLevel;
      if FishLevel >= 76 then
      begin
        if SetDTM then
        begin
          Equip:= Harpoon;
          Fish:= Shark;
          Fish2:= -1;
        end;
        Fish_UpText:= 'et'
        Fish_Option:= 'arpoon'
        FishStr:= 'Shark'
        if Players[CurrentPlayer].Booleans[0] then
        begin
          if FishLevel >= 96 then EquipStr:= 'Barehanded'
          else EquipStr:= 'Harpoon';
        end else EquipStr:= 'Harpoon';
        UserStats[CurrentPlayer].FishStr:= FishStr;
        Exit;
      end;
    end;

    Procedure SetupSwordfishFishing(SetDTM: Boolean);
    var FishLevel: Integer;
    begin
      Writeln('Setting up for Swordfish-Fishing')
      FishLevel:= UserStats[CurrentPlayer].FishLevel;
      if FishLevel >= 50 then
      begin
        if SetDTM then
        begin
          Equip:= Harpoon;
          Fish:= Swordfish;
          Fish2:= Tuna;
        end;
        Fish_UpText:= 'age'
        Fish_Option:= 'arpoon'
        FishStr:= 'Swordfish'
        if Players[CurrentPlayer].Booleans[0] then
        begin
          if FishLevel >= 70 then EquipStr:= 'Barehanded'
          else EquipStr:= 'Harpoon';
        end else EquipStr:= 'Harpoon';
        UserStats[CurrentPlayer].FishStr:= FishStr;
        Exit;
      end;
    end;

    Procedure SetupTunaFishing(SetDTM: Boolean);
    var FishLevel: Integer;
    begin
      Writeln('Setting up for Tuna-Fishing')
      FishLevel:= UserStats[CurrentPlayer].FishLevel;
      if FishLevel >= 35 then
      begin
        if SetDTM then
        begin
          Equip:= Harpoon;
          Fish:= Swordfish;
          Fish2:= Tuna;
        end;
        Fish_UpText:= 'age'
        Fish_Option:= 'arpoon'
        FishStr:= 'Tuna'
        if Players[CurrentPlayer].Booleans[0] then
        begin
          if FishLevel >= 55 then EquipStr:= 'Barehanded'
          else EquipStr:= 'Harpoon';
        end else EquipStr:= 'Harpoon';
        UserStats[CurrentPlayer].FishStr:= FishStr;
        Exit;
      end;
    end;

    Procedure SetupLobsterFishing(SetDTM: Boolean);
    var FishLevel: Integer;
    begin
      Writeln('Setting up for Lobster-Fishing')
      FishLevel:= UserStats[CurrentPlayer].FishLevel;
      if FishLevel >= 40 then
      begin
        if SetDTM then
        begin
          Equip:= Cage;
          Fish:= Lobster;
          Fish2:= -1;
        end;
        Fish_UpText:= 'age'
        Fish_Option:= 'age'
        FishStr:= 'Lobster'
        EquipStr:= 'Cage';
        UserStats[CurrentPlayer].FishStr:= FishStr;
        Exit;
      end;
    end;

    Procedure SetupBigNetFishing(SetDTM: Boolean);
    var FishLevel: Integer;
    begin
      Writeln('Setting up for Big Net-Fishing')
      FishLevel:= UserStats[CurrentPlayer].FishLevel;
      if FishLevel >= 16 then
      begin
        if SetDTM then
        begin
          Equip:= BigNet;
          Fish:= Mackerel;
          Fish2:= -1;
        end;
        Fish_UpText:= 'et'
        Fish_Option:= 'et'
        FishStr:= 'Mackerel'
        EquipStr:= 'Big Net';
        UserStats[CurrentPlayer].FishStr:= FishStr;
        Exit;
      end;
    end;

    Procedure SetFishingStuff(SetDTM: Boolean);
    var FishLevel: Integer;
    begin
      FishLevel:= UserStats[CurrentPlayer].FishLevel;
      Case LowerCase(Players[CurrentPlayer].Strings[0]) of
        'auto':
        begin
          if (FishLevel<16) then
          begin
            Writeln('Player '+IntToStr(CurrentPlayer)+' has too low fishing')
            EndPlayer(False,'Too low fishing')
            Exit;
          end;
          if (FishLevel>=16) and (FishLevel<35) then SetupBigNetFishing(SetDTM);
          if (FishLevel>=35) and (Fishlevel<40) then SetupTunaFishing(SetDTM);
          if (FishLevel>=40) and (FishLevel<50) then SetupLobsterFishing(SetDTM);
          if (FishLevel>=50) and (Fishlevel<76) then SetupSwordfishFishing(SetDTM);
          if (FishLevel>=76) then SetupSharkFishing(SetDTM)
        end;
        'shark','sharks':
        begin
          if FishLevel >= 76 then
          begin
            SetupSharkFishing(SetDTM);
          end;
        end;
        'swordfish':
        begin
          if FishLevel >= 50 then
          begin
            SetupSwordfishFishing(SetDTM)
          end;
        end;
        'tuna','tunas':
        begin
          if FishLevel >= 35 then
          begin
            SetupTunaFishing(SetDTM)
          end;
        end;
        'lobster','lobsters':
        begin
          if FishLevel >= 40 then
          begin
            SetupLobsterFishing(SetDTM);
          end;
        end;
        'big net':
        begin
          if FishLevel >= 16 then
          begin
            SetupBigNetFishing(SetDTM)
          end;
        end;
      else
        begin
          Writeln('Player '+IntToStr(CurrentPlayer)+'s Strings[0] was set up wrong. Logging out...')
          EndPlayer(False,'Wrong setup')
        end;
      end;
    end;

    Procedure ChangeEq;
    var Es: String;
    begin
      Es:= EquipStr;
      SetFishingStuff(False)
      if not (Es = EquipStr) then
      begin
        SetFishingStuff(True)
        OpenCathyBank;
        ChangeToNewEq(Es);
      end;
    end;

    Procedure AutoRetaliateTo(SetTo: Boolean);
    var
     B: Boolean;
    begin
      GameTab(1)
      Wait(200+random(300))
      B:= (GetColor(705,389)=1711220);
      if not(SetTo = B) then Mouse(573,361,140,36,true)
    end;

    Procedure MySetChat(Chat: Integer; SetTo: String);
    var A,b,Col: Integer;
    begin
      Case LowerCase(SetTo) of
        'on': Col:= 65280;
        'off': Col:= 252;
        'friends': Col:= 65535;
        'hide': Col:= 16776960;
      end;
      if (Chat > 5) or (Chat < 1) then Exit;
      if not FindColorTolerance(a,b,Col,123+((Chat-1)*54),483,123+(Chat*54),495,4) then
      begin
        Mouse(123+((Chat-1)*54),483,40,12,false)
        Wait(200+random(300))
        ChooseOption(Capitalize(LowerCase(SetTo)))
      end;
    end;

    Procedure SetupPlayer;
    var CSign: String;
    begin
      if (Not LoggedIn) then Exit;
      ActivateClient;
      Writeln('Setting up '+Players[CurrentPlayer].name)
      MarkTime(CurrentPlayerTime)
      UserStats[CurrentPlayer].FishLevel:= GetSkillInfo('Fishing',true);
      MakeCompass('N')
      HighestAngle;
      FishSpotChecks:= 0;
      SetFishingStuff(True);
      if (not GotEquip) and (not (EquipStr = 'Barehanded')) then
      begin
        OpenCathyBank;
        BankToTop;
        GetNewEq;
        CloseWindow;
      end;
      if (GetMMLevels('Run',CSign) >= 20) then SetRun(True);
      AutoRetaliateTo(False)
      MySetChat(1,'On')
      MySetChat(2,'Off')
      MySetChat(3,'Off')
      MySetChat(4,'On')
      MySetChat(5,'Off')
    end;

    Function PlayersActive: Integer;
    var I: Integer;
    begin
      for I:= 0 to HowManyPlayers-1 do
      begin
        if Players[I].Active then Result:= Result + 1;
      end;
    end;

    Procedure Relog;
    var T,Tr,I,M: Integer;
    begin
      case random(5) of
        0: T:= 20000;
        1: T:= 30000;
        2: T:= 60000;
        3: T:= 120000;
        4: T:= 300000;
      end;
      Tr:= Random(T);
      M:= (Tr+T) mod 1000;
      Writeln(IntToStr((T+Tr)/1000)+' seconds until log-in')
      for I:= (Tr+T)/1000 downto 1 do
      begin
        Status(IntToStr(I)+' seconds until log-in')
        if (I > 1) then Wait(1000)
      end;
      Wait(1000+M)
      Status('-Logging in-')
    end;

    Procedure WriteProggy(Text: String);
    begin
      if ProggyInReport then AddToReport(Text)
      else Writeln(Text)
    end;

    Procedure Proggy;
    var H,H2,M,M2,S,S2,I: Integer;
    begin
      SRLRandomsReport;
      AddToReport('')
      ConvertTime(GetTimeRunning,H,M,S)
      WriteProggy('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^')
      WriteProggy('|| Catherby Sharks N'' Lobbies ||')
      WriteProggy('=================================')
      WriteProggy('-Total Runtime: '+IntToStr(H)+' hours, '+IntToStr(M)+' minutes and '+IntToStr(S)+' seconds')
      WriteProggy('-Total Banktrips: '+IntToStr(Loads))
      WriteProggy('-Total Fished: '+IntToStr(Fished+FishCount+CountInvDTM(Fish2))+' Fish')
      WriteProggy('      -Including-')
      if UserStats[CurrentPlayer].FishStr = 'Shark' then
      begin
        WriteProggy('       '+IntToStr(SharksFished+FishCount)+' Sharks')
        WriteProggy('       '+IntToStr(SwordfishFished)+' Swordfish')
        WriteProggy('       '+IntToStr(TunaFished)+' Tuna')
        WriteProggy('       '+IntToStr(LobstersFished)+' Lobsters')
        WriteProggy('       '+IntToStr(MackerelFished)+' Mackerel')
      end;
      if UserStats[CurrentPlayer].FishStr = 'Swordfish' then
      begin
        WriteProggy('       '+IntToStr(SharksFished)+' Sharks')
        WriteProggy('       '+IntToStr(SwordfishFished+FishCount)+' Swordfish')
        WriteProggy('       '+IntToStr(TunaFished+CountInvDTM(Fish2))+' Tuna')
        WriteProggy('       '+IntToStr(LobstersFished)+' Lobsters')
        WriteProggy('       '+IntToStr(MackerelFished)+' Mackerel')
      end;
      if UserStats[CurrentPlayer].FishStr = 'Tuna' then
      begin
        WriteProggy('       '+IntToStr(SharksFished)+' Sharks')
        WriteProggy('       '+IntToStr(SwordfishFished+FishCount)+' Swordfish')
        WriteProggy('       '+IntToStr(TunaFished+CountInvDTM(Fish2))+' Tuna')
        WriteProggy('       '+IntToStr(LobstersFished)+' Lobsters')
        WriteProggy('       '+IntToStr(MackerelFished)+' Mackarel')
      end;
      if UserStats[CurrentPlayer].FishStr = 'Lobster' then
      begin
        WriteProggy('       '+IntToStr(SharksFished)+' Sharks')
        WriteProggy('       '+IntToStr(SwordfishFished)+' Swordfish')
        WriteProggy('       '+IntToStr(TunaFished)+' Tuna')
        WriteProggy('       '+IntToStr(LobstersFished+FishCount)+' Lobsters')
        WriteProggy('       '+IntToStr(MackerelFished)+' Mackarel')
      end;
      if UserStats[CurrentPlayer].FishStr = 'Mackerel' then
      begin
        WriteProggy('       '+IntToStr(SharksFished)+' Sharks')
        WriteProggy('       '+IntToStr(SwordfishFished)+' Swordfish')
        WriteProggy('       '+IntToStr(TunaFished)+' Tuna')
        WriteProggy('       '+IntToStr(LobstersFished)+' Lobsters')
        WriteProggy('       '+IntToStr(MackerelFished+FishCount)+' Mackarel')
      end;
      WriteProggy('-----')
      for I:= 0 to HowManyPlayers-1 do
      begin
        if I = CurrentPlayer then
        begin
          ConvertTime(TimeFromMark(CurrentPlayerTime),H,M,S)
          ConvertTime(UserStats[I].Time,H2,M2,S2)
          WriteProggy('P-'+IntToStr(I)+'(Current)= Active: '+BoolToStr(Players[I].Active)+'||F: '+IntToStr(UserStats[I].Fished+CountInvDTM(Fish)+CountInvDTM(Fish2))+'||B: '+IntToStr(UserStats[I].Loads)+ '||Loc: '+Players[CurrentPlayer].Loc+'||T: '+IntToStr((H*60+M)+(H2*60+M2))+' mins')
        end else
        begin
          ConvertTime(UserStats[I].Time,H,M,S)
          WriteProggy('P-'+IntToStr(I)+'= Active: '+BoolToStr(Players[I].Active)+'||F: '+IntToStr(UserStats[I].Fished)+'||B: '+IntToStr(UserStats[I].Loads)+ '||Loc: '+Players[CurrentPlayer].Loc+'||T: '+IntToStr(H*60+M)+' mins')
        end;
      end;
      WriteProggy('=================================')
    end;

    begin
      ClearDebug;
      ClearReport;
      if ProggyInReport then ChangeReportWidth(450);
      case Random(10) of
        0: Disguise('Google');
        1: Disguise('iTunes');
        2: Disguise('Ventrilo');
        3: Disguise('Windows Media Player');
        4: Disguise('AVG Anti-Virus');
        5: Disguise('Norton Anti-Virus'); // Or as R0b0t1 would've said: "Norton is the virus".
        6: Disguise('YouTube - Broadcast Yourself');
        7: Disguise('Yahoo!');
        8: Disguise('MySpace');
        9: Disguise('Windows Live Messenger');
        10: Disguise('I AM A BIG FAT CHEATER BAN ME TY!'); // Just a joke :P Can't be executed anyway
      end;
      if SCARToTray then MoveToTray;
      SetupSRL;
      ScriptID:= '492';
      if LoggedIn then LogOut;
      DeclarePlayers;
      SRLID:= SRL_Stats_ID;
      SRLPassword:= SRL_Stats_Password;
      DeclareDTMs;
      PlayerNum:= 1;
      repeat
        LoginPlayer;
        SetupPlayer;
        repeat
          MarkTime(ProgTimer)
          BankToFish;
          GetFishingSpot;
          MarkTime(LoadTime)
          Proggy;
          repeat
            if not IsFishing then
            begin
              CheckRandoms;
              GetFishingSpot;
            end;
            if not LoggedIn and (Players[CurrentPlayer].Active) then
            begin
              LoginPlayer;
            end;
            if TimeFromMark(ProgTimer) > 40000 then
            begin
              Proggy;
              MarkTime(ProgTimer)
            end;
          until(InvCount = 28) or (TimeFromMark(LoadTime) >= (Players[CurrentPlayer].Integers[2]*1000))
          if InvCount = 28 then Writeln('Full load. Banking...')
          else Writeln('Took too long to get full load. Banking...');
          FishToBank;
          OpenCathyBank;
          Writeln('Fished this load: '+IntToStr(FishCount+CountInvDTM(Fish2)))
          Fished:= Fished + FishCount + CountInvDTM(Fish2);
          Writeln('Banking '+IntToStr(FishCount)+' SF and '+IntToStr(CountInvDTM(Fish2))+' tuna')
          AddToReport('Tuna fished == '+IntToStr(TunaFished))
          Case UserStats[CurrentPlayer].FishStr of
            'Mackerel': MackerelFished:= MackerelFished + FishCount;
            'Lobster': LobstersFished:= LobstersFished + FishCount;
            'Tuna','Swordfish':
            begin
              TunaFished:= TunaFished + CountInvDTM(Fish2)
              SwordfishFished:= SwordfishFished + FishCount;
            end;
            'Shark': SharksFished:= SharksFished + FishCount;
          end;
          IncEx(UserStats[CurrentPlayer].Fished,FishCount+CountInvDTM(Fish2))
          Case UserStats[CurrentPlayer].FishStr of
            'Mackerel': ReportVars[5]:= ReportVars[5] + FishCount;
            'Lobster': ReportVars[1]:= ReportVars[1] + FishCount;
            'Tuna','Swordfish':
            begin
              ReportVars[4]:= ReportVars[4] + CountInvDTM(Fish2)
              ReportVars[3]:= ReportVars[3] + FishCount;
            end;
            'Shark': ReportVars[2]:= ReportVars[2] + FishCount;
          end;
          DepositItems;
          ChangeEq;
          SRLRandomsReport;
          Proggy;
          if Not LoggedIn then
          begin
            if PlayersActive = 0 then Break
            else NextPlayer(False)
          end;
        until((UserStats[CurrentPlayer].Loads mod Players[CurrentPlayer].Integers[0])=0)
        PlayerNum:= PlayerNum + 1;
        if StopWhenLoadsDone then
        begin
          if PlayerNum >= HowManyPlayers then Break;
        end;
        if PlayersActive > 0 then
        begin
          if (HowManyPlayers=1) then
          begin
            Writeln('Performing Relog')
            repeat
              LogOut;
            until(Not LoggedIn)
            UserStats[CurrentPlayer].Time:= UserStats[CurrentPlayer].Time + TimeFromMark(CurrentPlayerTime);
            Relog;
          end else NextPlayer(True)
        end;
        Proggy;
      until(PlayersActive = 0)
      SRLRandomsReport;
      Proggy;
    end.

    thanks mates

  2. #2
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    massivly outdated. and this shouldnt have been made into its own thread.
    Did someone say GDK?

  3. #3
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok maybe it is outdated but i cant find a working fishing script even in the junior member section!!

    if u could post me 1 it would be a great hep!

    thanks

  4. #4
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    You could always make your own

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  5. #5
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    camo.. or any1 even.. cud u please do me a big favour and post a working fishing script pleaseeee!! it doesnt matter which 1 it is as long as it works thanks

  6. #6
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Yeah, here you go. Ultimate Fisher!
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Line 135: [Error] (14845:1): Syntax error in script
    By AbsTrACt'^.| in forum OSR Help
    Replies: 16
    Last Post: 05-23-2008, 01:14 PM
  2. Replies: 5
    Last Post: 02-26-2008, 04:14 PM
  3. Error: Cannot Fix Script - Error Overgrowth - Begin Headdesking
    By PhantasmalScripter in forum OSR Help
    Replies: 6
    Last Post: 12-23-2006, 12:50 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •