codx1
2007-06-01 13:30:47
Heres my powerfisher, it fishes full load of fish and drops
supports net/cage and harpoon fishing
Works only with scar 2.03
Instructions:
Start near fishingspot fishing equipment in first inventory slot,
if not in first it will get dropped. Then run the script
Known Bugs:
- will drop fishing equipment if not in first slot
- switches fishingspot every 20 second
Credits:
SRL
——————
Should be able to run atleast over 10 hours , I think :bart:
have fun :)
supports net/cage and harpoon fishing
Works only with scar 2.03
Instructions:
Start near fishingspot fishing equipment in first inventory slot,
if not in first it will get dropped. Then run the script
Known Bugs:
- will drop fishing equipment if not in first slot
- switches fishingspot every 20 second
Credits:
SRL
——————
program PowerFisher;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.scar}
var
DidhandleRandoms: Boolean;
fishAmount,i: Integer;
const
FishSpotColor = 15714472; // set fishspot color here, if cant find
Loads = 6; // how many loads per player?
FishWait = 20000; // time it waits between clicks
procedure DeclarePlayers;
begin
HowManyPlayers := 3; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :=' '; // Name Here
Players[0].Pass :=' '; // PassWord Here
Players[0].Nick :=' '; // 3-4 letters of your name
Players[0].Active:=True; // True if active, false if not
Players[1].Name :=' ';
Players[1].Pass :=' ';
Players[1].Nick :=' ';
Players[1].Active:=True;
Players[2].Name :=' ';
Players[2].Pass :=' ';
Players[2].Nick :=' ';
Players[2].Active:=true;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
procedure LoggIn;
begin
SetUpSRL;
SetupSRLFishing;
DeclarePlayers;
LoginPlayer;
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
DidhandleRandoms := true;
end;
procedure DoRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
PopUp('ontinue')
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
Procedure Running;
Begin
SetRun(True);
GameTab(4);
end;
procedure FindFish;
begin
repeat
if FindObj(x,y,'age',FishSpotColor,5)or
FindObj(x,y,'net',FishSpotColor,5)or
FindObj(x,y,'poon',FishSpotColor,5)
then
MMouse(x,y,0+random(2),0+random(3));
Mouse(x,y,0,0+random(3),true);
Wait(FishWait+random(2000));
DoRandoms;
HandleWhirlPool;
until(InvFull);
FishAmount:= FishAmount + 27;
end;
procedure DropFish;
begin
DropTo(2, 28);
end;
procedure ProggyReport;
begin
Writeln('///////////////////////////////////////////');
Writeln('------CoDx1---PowerFisher---Report-------');
Writeln('///////////////////////////////////////////');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Fished '+ IntToStr(FishAmount) + ' fish');
Writeln('///////////////////////////////////////////');
end;
begin
i := i + 1;
ClearDebug;
ActivateClient;
LoggIn;
repeat
HighestAngle;
Makecompass('N');
Running;
FindFish;
DropFish;
ProggyReport;
SRLRandomsReport;
if (not(Loggedin)) then NextPlayer(false);
if (loads=i)then
begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
end;
until(false);
end.
Should be able to run atleast over 10 hours , I think :bart:
have fun :)
