tofurocks
2011-02-14 21:31:03
Nothing special, just ground this out to remember SRL's functions for the most part. Thanks to Coh3n (tut) and Harry (read his fishing script).
No anti-ban movements because I don't believe it helps from my experience with neXus, but in my next (more useful) release anti-ban will be present.
It's actually great XP when run here:

No anti-ban movements because I don't believe it helps from my experience with neXus, but in my next (more useful) release anti-ban will be present.
It's actually great XP when run here:
program qWillows;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
function FindWillows(): Boolean;
var
x, y : Integer;
begin
repeat
FindNormalRandoms;
if InvFull then
begin
Wait(200 + Random(100))
DropAll;
end;
Wait(2000+Random(2000))
FindObjCustom(x, y, ['hop'], [2379075, 4349771, 3231832], 5);
Mouse(x, y, 5, 5, true);
until False;
end;
procedure Bot;
begin
SetAngle(true)
SetRun(true)
FindWillows;
end;
begin
Smart_Server := 152;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Bot;
end.