Results 1 to 4 of 4

Thread: Fishing Randoms!

  1. #1
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Fishing Randoms!

    Ok, i need help with my karmy fisher :P. How do i do the:

    A. Whirlpool random, how do i do this :P, findcolors?

    and

    B. Fish random!!!

  2. #2
    Join Date
    Aug 2006
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {*******************************************************************************
    procedure HandleWhirlPool;
    By: Dankness
    Description: Finds and Handles Whirlpools by Standing still and waiting
    *******************************************************************************}


    procedure HandleWhirlPool;
    begin
      if (FindMSDtm(x, y, WhirlPoolDTM)) then
      begin
        Status('Whirlpool found!');
        WhirlPools := WhirlPools + 1;
        Mouse(647, 82, 2, 2, True);
        FTWait(50 + Random(15));
        repeat
          HoverSkill('fishing', False);
          if (not (LoggedIn)) then Exit;
          FTWait(2 + Random(2));
        until (not (FindMSDtm(x, y, WhirlPoolDTM)));
      end;
    end;


    WHat fish random u mean troll or the one that throws ur poll?

  3. #3
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    throws your pole

  4. #4
    Join Date
    Aug 2006
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try looking in SRL/SRl /skills/fishing or whatever

    SCAR Code:
    {*******************************************************************************
    function FindFishingEquipmentColor: Boolean;
    By: Dankness
    Description: Finds Net, Lobster Cage, Fishing Rod, Fly Fishing Rod, Harpoon color.
    *******************************************************************************}


    function FindFishingEquipmentColor: Boolean;
    var
      CI: Integer;
    begin
      for CI := 1 to 5 do
        if (FindInvDtm(x, y, FishingItemDTM[CI])) then
        begin
          FishingEquipmentColor := GetColor(x, y);
          FishingEquipmentName := FishingItemName[CI];
          Result := True;
        end;
      if (FishingEquipmentColor <> 0) then
      begin
        Result := True;
        WriteLn('Fishing Equipment Color : ' + IntToStr(FishingEquipmentColor));
        WriteLn('Fishing Equipment Name  : ' + FishingEquipmentName);
      end;
    end;

    {*******************************************************************************
    function FindFishingEquipment: Boolean;
    By: Stupid3oooo
    Description: Finds all fishing equipment, Edited by Dankness with Counter
    *******************************************************************************}


    function FindFishingEquipment: Boolean;
    var
      c: Integer;
    begin
      GameTab(4);
      Result := True;
      if (not (FindItemColor(FishingEquipmentColor))) then
      begin
        FTWait(10 + Random(1));
        Result := False;
        repeat
          c := c + 1;
          if (FindItemColor(FishingEquipmentColor)) then
          begin
            Result := True;
            break;
          end;
          if (FindObj(x, y, FishingEquipmentName, FishingEquipmentColor, 5)) then
          begin
            RodsFound := RodsFound + 1;
            Mouse(x, y, 1, 1, True);
            Flag;
            FTWait(5 + Random(1));
          end
        //else if(PickUpItems)then
        //  ItemGrab;
        until (c >= 10);
      end;
    end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 6
    Last Post: 04-16-2009, 06:40 AM
  2. fishing randoms question
    By zenma in forum OSR Help
    Replies: 1
    Last Post: 07-26-2007, 01:28 AM
  3. Fishing randoms.
    By Junior in forum OSR Help
    Replies: 4
    Last Post: 04-05-2007, 11:58 PM
  4. Replies: 3
    Last Post: 03-31-2007, 02:34 AM
  5. Fishing Randoms Help
    By Buckleyindahouse in forum OSR Help
    Replies: 6
    Last Post: 12-30-2006, 11:39 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
  •