SRL Archive - First Scripts

QuickWillows


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:


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.

Ethoroxyole

2011-02-15 09:08:44

Pretty basic script but like you said it's nothing special
But you might want to add some Fail safes in there, lot's of good tut's on that in the tutorial section!

oxu24

2011-11-25 10:31:41

Tyvm this is 1st script i got working on simba. Just basic enough :)

[XoL]

2011-11-25 10:41:53

Wow I made the exact same script (Almost) after reading the tuts!
Cough great minds? :P

Just a heads up when you add the anti ban (Least when I did) don't make it move the screen… Mine kept failing hard when I did that it would click other trees :(

Anyway I like the script its a great start prob works better than mine too haha

Flight

2011-11-25 12:00:21

From: R4nd0m
Wow I made the exact same script (Almost) after reading the tuts!
Cough great minds? :P

Just a heads up when you add the anti ban (Least when I did) don't make it move the screen… Mine kept failing hard when I did that it would click other trees :(

Anyway I like the script its a great start prob works better than mine too haha


If you made one as well then by all means show it off, let people know you're learning and you've made progress! If you're having problems with it just post your questions of issues and I'm willing to be you'll get some quick replies. Don't be afraid to show your work off mate. ;)

[XoL]

2011-11-25 12:55:59

I want to post something a tad more elegant than a woodcutting script for my first plus in all honesty it chops trees near port sarim then I use a drop method nothing worth posting.

I want something a bit more original but then again it might just be as generic as an auto miner
hmm that banks.. from clay to draynor

Well just thought of something :p

Wyn

2011-11-25 13:21:27

Atleast add FindNormalRandoms;

EvilTwin

2011-11-26 08:11:33

Ill test today :P