SCAR Code:
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/fishing.scar}
var
loads, loadstillswitch:integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 3; // If you add more players , make sure you set this correct, ;)
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; //Your username
Players[0].Pass := ''; //Your password
Players[0].Nick := ''; //Nickname from you username
Players[0].Active := True; //Active->True or False.
Players[0].Integers[0] := 6 ; //Loads to do.
Players[0].Strings[0] := 'harpoon';// waht to fish with
Players[0].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
{ Players[1].Name := ''; //Your username
Players[1].Pass := ''; //Your password
Players[1].Nick := 'mrs'; //Nickname from you username
Players[1].Active := True; //Active->True or False.
Players[1].Integers[0] := 6 ; //Loads to do.
Players[1].Strings[1] := 'mining';
Players[1].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
Players[2].Name := '; //Your username
Players[2].Pass := ''; //Your password
Players[2].Nick := 'erch'; //Nickname from you username
Players[2].Active := True; //Active->True or False.
Players[2].Integers[0] := 6 ; //Loads to do.
Players[2].Strings[1] := 'mining';
Players[2].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
}
end;
procedure dropswordfish;
forward;
procedure AntiBanz;
begin
If(not LoggedIn)then Exit;
Case Random(12) of
0: MMouse(Random(MSX2),Random(MSY2),0,0);
1: HoverSkill('fishing',false);
2: PickupMouse;
3: GameTab(1+Random(12));
4: SleepAndMoveMouse(400+Random(1500));
5: if Random(2) = 1 then MMouse(1, 338, 515, 165);
6: if Random(2) = 1 then MMouse(515, 1, 250, 503);
7: RandomMovement;
8..11:
begin
case Random(3) of
0: begin
KeyDown(VK_RIGHT);
Wait(500+Random(2000));
KeyUp(VK_RIGHT);
end;
1: begin
KeyDown(VK_Left);
Wait(500+Random(2000));
KeyUp(VK_Left);
end;
2: begin
case Random(2) of
0: begin
KeyDown(VK_RIGHT);
Wait(500+Random(1400));
KeyUp(VK_RIGHT);
end;
1: begin
KeyDown(VK_Left);
Wait(500+Random(1400));
KeyUp(VK_Left);
end;
end;
end;
end;
end;
end;
end;
procedure fishing;
var
times : integer;
x, y : integer;
begin
repeat
if findfishspot(x,y,players[currentplayer].strings[0]) then
begin
mouse(x,y,3,3,false);
wait(100 + random(10));
ChooseOption(players[currentplayer].strings[0]);
times := 0;
repeat
wait(1000);
antibanz;
findnormalrandoms;
inc(times);
until ( times = 5);
end;
until (invfull)
end;
procedure droptuna;
var
tunadtm, x, y : integer;
begin
tunaDTM := DTMFromString('78DA63CC64626078C9800276AD5FCF2008A41' +
'981F83F10306601D5DC6540038C4824904E04AA794E404D3650CD' +
'07DC6A98407419907C42404D0190BC47404D1C907C4B404D2261F' +
'70000CD7710D7');
repeat
if not LoggedIn then exit;
Disguise('dropping tuna');
If FindDTM(tunaDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,False);
wait(random(200));
ChooseOption('Drop');
wait(500 + random(100))
findnormalrandoms;
end;
Until not FindDTM(tunaDTM,x,y,MIX1,MIY1,MIX2,MIY2);
dropswordfish;
end;
procedure dropswordfish;
var
swordfishdtm, x, y : integer;
begin
swordfishDTM := DTMFromString('78DA6374646260D8C1C8800CF6761C671004D' +
'220D1FF40C0E80254B319550D441646026913A09AA304D47801D5' +
'EC21A0C6890835EE44B8C716A8661B7E3500259B0D1D');
repeat
if not LoggedIn then exit;
Disguise('dropping swordfish');
If FindDTM(swordfishDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,False);
wait(random(200));
ChooseOption('Drop');
wait(500 + random(100))
findnormalrandoms;
end;
Until not FindDTM(swordfishDTM,x,y,MIX1,MIY1,MIX2,MIY2);
end;
procedure proggy;
begin
WriteLn(' _____ ______');
WriteLn(' | || \ ');
WriteLn(' | || | ');
WriteLn(' | || ___/ ');
WriteLn(' /_____/ |__| Power Fisher');
WriteLn('_________________________________________________');
writeln('did ' + inttostr(loads) + ' loads' );
end;
begin
setupsrl;
setupfishing;
activateclient;
declareplayers;
graphicsset :=true;
loginplayer;
loads := 0;
repeat
repeat
fishing;
findnormalrandoms;
droptuna;
findnormalrandoms;
proggy;
inc(loadstillswitch);
inc(loads);
until ( loadstillswitch = players[currentplayer].integers[0])
nextplayer(true);
loadstillswitch := 0;
until(allplayersinactive)
end.
Try that okay