Results 1 to 9 of 9

Thread: Need help with KaramjaFisher

  1. #1
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help with KaramjaFisher

    My karamjafisher clicks on an fishing spot but after a few times it does map walking...
    Can some1 help me??
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Your Handle Whirl Pool procedure Needs at the beggining:
    [b]If FindWhirlPool(x,y) Then [/scar]

    So the script Fixed:

    SCAR Code:
    //Hello this is My KaramjaFisher script it is made to fish lobsters and then drop them
    //Start at the bridge in Karamja where u can fish lobbys and stuff.
    //Have lobster pot in inventory.
    //Now fill in the players and start!
    //Many thanks to Caustic on SRL-forums.com for his antirandoms procedure
    //And thanks to The Claw for his whirlpool procedures
    // And NaumanAkhlaQ for His Helping :)
    program KaramjaFisher;
    {.include SRL/SRL.scar}
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';//Username Set This if u wanna log in
      Players[0].Pass := '';//Password Set This if u wanna log in
      Players[0].Nick := '';//Y0ur NickName Set This if u wanna log in
      Players[0].Active := True;//Player active or not??
    end;
    Procedure Fishing;
    VAR
    X,Y:INTEGER;
    Begin
      Makecompass('N');
      Setangle(true);
       if findcolorspiraltolerance(x,y,15651768,MSX1,MSY1,MSX2,MSY2,1)then
         begin
           Mouse(x,y,0,0,false)
           Chooseoption('Cage')
           Writeln('Fishing')
           Wait(7500 + 300)
         End;
    End;

    procedure AntiRandom;
    //------------------------------- AntiRandom-------------------------------------
    begin
      if(not loggedin)then exit;
      FindTalk;
      LampSkill:= ('hitpoints');
      FindNormalRandoms;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunAway('S', false, 1, (7000+random(3000)));
      end;
      FindMod;
      DwarfItem;
      FindDead;
      if NoGameTab xor InBlack then
        begin
          Writeln('Found unsolvable random');
          Logout;
          NextPlayer(True);
          Exit;
        end;
    end;

    procedure AntiBan;
    begin
      case random(100) of //do a random number so it won't always perform the antiban
        0: BoredHuman;
        1: HoverSkill('Mining', False);
        2: AlmostLogout;
      end;
    end;

    Procedure DropLobsters;
    var
      i : Integer;
    begin
      if invfull then
      begin
        for i := 4 to 28 do
        begin
          DropItem(i);
          Wait(RandomRange(501, 1501));
        end;
      end;
    end;

    function FindWhirlPool(var x, y: Integer): Boolean;
    var
      Points: TPointArray;
      Rx, Ry: Integer;
    begin
      if not LoggedIn then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(Ry, Rx, Points, 12103079, x - 30, y - 30, x + 30, y + 30, 20);
      if GetArrayLength(Points) > 90 then
      begin
        if (Rx > 0) or (Ry > 0) then
        begin
          MMouse(Rx, Ry, 0, 0);
          Wait(1000);
          Result := True;
          ColorToleranceSpeed(1);
          Exit;
        end;
      end;
      Result := False;
      ColorToleranceSpeed(1);
    end;

    procedure MyHandleWhirlPool;
    var
    x,y:Integer;
    begin
     If FindWhirlPool(x,y) Then
      TakeScreen('Whirlpool');
      Mouse(MMCX - 10, MMCY - 10, 5, 5, True);
      WhirlPools := WhirlPools + 1;
      ReportVars[3] := 1;
      SendSRLReport;
    end;


    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
        if not loggedin then loginplayer;
      Wait(1000)
      Repeat
      Fishing;
      Antirandom;
      Antiban;
      DropLobsters;
      Myhandlewhirlpool;
      Loginplayer;
      Writeln('Running KaramjaFisher By 2pacfan for:'+timerunning);
      Until (false)
    end.

    Hope I Helped

  3. #3
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oow forgot to credit you 2 times you helped me
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  4. #4
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    No Problem

  5. #5
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    omg it doesnt click fishing spot
    maybe need new color
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  6. #6
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok problem was the color changed it it works now
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  7. #7
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Actually, you can use the EDIT button instead of couble posting .
    Try making an array of colors read this tutorial

  8. #8
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nauman i have the same error again map walking out of itself...
    Can u help me?
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  9. #9
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Function FullInv: Boolean;

    Var
    S: String;

    Begin
    S := GetBlackChatMessage
    Result := (Pos('full', S) <> 0);
    End;
    use it your script add in that line near the end of your fishing procedure
    like
    until FullInv

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. KaramjaFisher
    By 2pacfan in forum RS3 Outdated / Broken Scripts
    Replies: 15
    Last Post: 05-17-2008, 04:02 PM
  2. KaramjaFisher error
    By 2pacfan in forum OSR Help
    Replies: 2
    Last Post: 05-01-2008, 07:29 PM

Posting Permissions

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