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!!!
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!!!
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?
throws your pole
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;
There are currently 1 users browsing this thread. (0 members and 1 guests)