Well, i made a Karmy Fisher for fun :P. Using a DTM for the fishing spot, just fill in your name and stuff. Here's the script:
PHP Code:program KarmFisher;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/fishing.scar}
var
FishingSpot: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].name := ('');
Players[0].pass := ('');
Players[0].nick := ('');
end;
procedure Fish;
begin
FishingSpot := DTMFromString('78DA63E467646078CD80021232DAC1342394C' +
'F280C64DD415513109183AA860DC8FA88AA2622A315558D3890F5' +
'1E4D4D4233A6390F50D5788464A2A8010008AA0AC4');
if (InvFull) then
DropTo(2, 28);
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
if (FindDTM(FishingSpot, x, y, MSX1, MSY1, MSX2, MSY2)) then
MMouse(x, y, 5, 5);
if (IsUpText('Cage Fishing')) then
Mouse(x, y, 5, 5, True);
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
end;
begin
SetupSRL;
DeclarePlayers;
SetupSRLFishing;
FindFishingEquipmentColor
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
repeat
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
Fish;
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
FTWait(20)
until (False)
end.




Reply With Quote

. Oh, forgot to put standardized version up there :P.







