i luffs yeww
2010-07-18 23:55:24
HEY, LISTEN! PRESS START TO RUN A SCRIPT!
I don't expect this to get used or anything. Mostly just in case anyone needs it (couldn't find it at RSBot so I just made one for Simba). Should work until the Lunar spell book changes.
{$Define SMART}
{$i SRL/SRL.scar}
var
ItemBox: TBox;
T, WaitTime, Waiting, Casts, Waited, Slept: Integer;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Pin := '';
Active := True;
end;
end;
begin
SMART_Server := 64;
SMART_Members := True;
SMART_Signed := True;
SMART_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetAngle(True);
GameTab(Tab_Magic);
repeat
OpenBankNPC;
FindNormalRandoms;
ItemBox := InvBox(1 + Random(26));
Mouse(ItemBox.x1, ItemBox.y1, ItemBox.x2 - ItemBox.x1, ItemBox.y2 - ItemBox.y1, False);
FindNormalRandoms;
ChooseOption('All');
FindNormalRandoms;
Mouse(400, 100, 5, 5, False);
FindNormalRandoms;
ChooseOption('All');
FindNormalRandoms;
CloseBank;
FindNormalRandoms;
GameTab(Tab_Magic);
FindNormalRandoms;
Mouse(680, 310, 3, 3, True);
FindNormalRandoms;
MarkTime(T);
FindNormalRandoms;
WaitTime := 48600 + Random(1400);
Writeln('WaitTime: ' + ToStr(WaitTime));
while TimeFromMark(T) < WaitTime do
begin
Waiting := Random(50000 - TimeFromMark(T));
FindNormalRandoms;
if(RBool)then
begin
Writeln('Sleeping and moving mouse for: ' + ToStr(Waiting));
Inc(Slept);
SleepAndMoveMouse(Waiting);
FindNormalRandoms;
end else
begin
Writeln('Waiting for: ' + ToStr(Waiting));
Inc(Waited);
Wait(Waiting);
FindNormalRandoms;
end;
end;
IncEx(Casts, 27);
Writeln('| Casted ' + ToStr(Casts) + ' times.');
Writeln('| Gained ' + ToStr(Casts * 87) + ' XP.');
Writeln('| Waited ' + ToStr(Waited) + ' times.');
Writeln('| Slept ' + ToStr(Slept) + ' times.');
FindNormalRandoms;
until(False);
end.
LOLWUT FINDNORMALRANDOMS!?
I don't ever use any anti-randoms so I just quickly added that in for teh lulz on here (not in my actual script). If you want to take them out, you can press Ctrl + R, type FindNormalRandoms; in the first box and in the second box put anything really; a space, a comment, etc. Just nothing that will stop compiling.
AWWSHEETNUKKA. HOW DO I BANK LOL?
http://i25.tinypic.com/2u619c6.png
^ Thar you go, good sir. Have your amulets like that, kthx?
Also, check it sometimes. It won't work forever (randoms, yo). Learn from this shit, brotato chip. L2script. It's easy to make this shit in about three seconds. If anyone wants, I can add debugging for MAXIMUM UNDERSTANDING! for more learning profitability.
kthx.
[PHP]
| Casted 15687 times.
| Gained 1364769 XP.
| Waited 1524 times.
| Slept 1640 times.
[/PHP]
Ended due to system update.