ape
2008-04-19 23:17:59
This is my first script for runescape in scar. It is basically a simple script that allows you to stay logged in and collect fishes on the Trawler while you are doing something else. There are no anti randoms in this script as you don't have trouble with randoms while on the trawler. I know it isn't super optimized but it is a simple script that works. I hope you enjoy and I hope this helps anyone out with the boringness of the trawler!
program TrawlerKeeper;
{.include SRL/SRL/misc/Smart.scar}
{.include srl/srl.scar}
//Use this program to keep you logged in while you are on the trawler!
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';//Just enter something here so SRL doesn't have errors on compile.
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:= True;
end;
Procedure Antibannage; //credit belongs to these functions accordingly.
begin
case Random(10) of
0: BoredHuman;
1: RandomRClick;
2: PickUpMouse;
3: AlmostLogout;
4: RandomMovement;
5: PickUpMouse;
6: GameTab(1+random(9));
7: DoEmote(1 + Random(9));
8: Begin
MakeCompass('E');
Wait(3000 + Random(2000));
MakeCompass('N');
End;
9: Begin
MakeCompass('W');
Wait(3000 + Random(2000));
MakeCompass('N');
End;
10: Begin
MakeCompass('S');
Wait(3000 + Random(2000));
MakeCompass('N');
End;
end;
end;
procedure Trawlin;
begin
repeat
AntiBannage;
sleep(1000+random(3000));
until(false);
end;
begin
Writeln('Starting Smart!');
SmartSetup('world116', True, True);
while not (SmartReady) do
Wait(100);
SetTargetDC(SmartGetDC);
if not (LoggedIn) then
while not (SmartGetColor(386, 249) = 65535) do
Wait(100);
SetupSRL;
DeclarePlayers;
Trawlin;
end.