Adamcoled
2012-05-08 12:05:12
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
N/A
What is your general programming knowledge?
Pascal
Are you a member of any other communities?
Powerbot
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
N/A
What is your general programming knowledge?
Pascal
Are you a member of any other communities?
Powerbot
Tell us about yourself…
From: Adamcoled22
I'm 17, I enjoy reading and just started getting into scripting. Keeps my mind busy and it feels great to press the play button on the script you just created. Definitely a worth while accomplishment is the outcome.
Please show us one (or multiple) of your scripts.
program HerbloreAC;
{$DEFINE SMART}
{$I SRL/SRL.SIMBA}
{$I SRL/SRL/Misc/Debug.simba}
var
x, y, Potions: Integer;
Const
Version = 0.0;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Pin := ''; //Player bankpin.
Active := true;
Member := true;
end;
end;
procedure ProgressReport;
begin
Writeln('_________________________');
Writeln('Potions made: ' + IntToStr(Potions));
Writeln('Time running: ' + TimeRunning);
Writeln('_________________________');
Exit;
end;
procedure Make;
begin
InvMouse(14, 3);
Wait(RandomRange(200, 300));
InvMouse(15, 3);
Wait(RandomRange(200, 300));
Mouse(256, 430, 30, 20, true);
FindNormalRandoms;
repeat
wait(RandomRange (9000, 10000));
until(true)
end;
function Bank: Boolean;
begin
repeat
OpenBankChest(SRL_BANK_SW);
until(Bankscreen)
wait(RandomRange(100, 200));
DepositAll;
Withdraw(0, 0, 14);
wait(RandomRange(100, 200));
Withdraw(1, 0, 14);
wait(RandomRange(100, 200));
CloseBank;
end;
Procedure Antiban;
begin
case random(10) of
0: PickUpMouse;
1: RandomMovement;
end;
end;
procedure FailSafe (Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
ProgressReport;
TerminateScript;
end;
begin
ClearDebug;
Smart_Server := 21;
Smart_Members := true
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('W');
repeat
Bank;
Make;
ProgressReport;
until(false);
end.