The Divided
2012-12-15 11:52:33
How Long have You Played Runescape?
7 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
Intermediate Java programming, intermediate Python programming and beginnner in SCAR/SIMBA
Are you a member of any other communities?
RiD
Tell us about yourself…
Please show us one (or multiple) of your scripts.
7 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
Intermediate Java programming, intermediate Python programming and beginnner in SCAR/SIMBA
Are you a member of any other communities?
RiD
Tell us about yourself…
From: The Divided
My name is Victor, I'm a 19 year old swedish guy. I study Science(Math/data) in Stockholm City. Some of my interests are: Runescape, girls, skateboarding, friends and beer.
I would say im a pretty nice guy, i'm friendly in my nature and rarely get upset and i wish to contribute some of my positive energy to the SRL forums.
Please show us one (or multiple) of your scripts.
// as i said im a beginner in SIMBA. This is a simple Gold Bracelet crafter, that works in neitz, giving that you're standing to the left. of the second bank to the right. It's still in development
program SimpleCrafter;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba} {$i srl/srl/misc/smartgraphics.simba}
{$i srl/srl/misc/debug.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name :=''; // Username
Pass :=''; // Password
Pin :=''; // Bank PIN
Member := true;
Active := true;
end;
end;
procedure AntiBan;
begin
if not(LoggedIn)then
Exit;
case Random(40) of
0: RandomRClick;
1: HoverSkill('Smithing', false);
2: PickUpMouse;
3: wait(500+Random(250));
4: HoverSkill('Crafting', false);
5: wait(300+Random(50));
6: RandomRClick;
7: PickUpMouse;
8:wait(25000+random(5000));//slight afk, up to 20 seconds after done
end;
end;
Procedure Start;
var a, b: Integer;
begin
MMouse(292, 180, 3, 4);
GetMousePos(a, b);
Mouse(a, b, 0, 0, false);
ChooseOption('Bank');
wait(800+Random(200));
end;
Procedure bank;
begin
if Withdraw(0, 0, 28) then
CloseBank;
AntiBan;
end;
Procedure Craft;
var
x, y: Integer;
begin
AntiBan;
if FindObjCustom(x, y, ['Smelt-ore', 'Clay', 'forge'], [5202280, 4346199], 0) then
MMouse(x, y, 2, 2);
wait(100+Random(50));
ClickMouse2(true);
SleepAndMoveMouse(7000+random(200));
MMouse(370, 315, 5, 5);
ClickMouse2(True);
case random(6) of
0: SleepAndMoveMouse(52000+Random(150));
1: wait(52000+Random(180));
2: begin
Antiban;
Wait(52000+Random(60));
end;
3: begin
SleepAndMoveMouse(25000+Random(5000));
HoverSkill('Crafting', false);
wait(500+Random(100));
SleepAndMoveMouse(10000+random(240));
wait(11000+Random(1000));
end;
4: SleepAndMoveMouse(52000+Random(200));
5: wait(52000+random(150))
end;
end;
Procedure bank2;
var
x, y: Integer;
begin
PickUpMouse;
if FindObjCustom(x, y, ['bank', 'chest'], [465444, 731190], 0) then
GetMousePos(x, y);
MMouse(x, y, 3, 4);
Mouse(x, y, 6, 6, false);
ChooseOption('Bank');
SleepAndMoveMouse(8000+Random(100));
wait(100+Random(20))
DepositAll();
wait(300+random(100));
if not InvEmpty then
DepositAll();
if not InvEmpty then
DepositAll();
end;
Procedure ProgressReport;
begin
WriteLn('Runtime: ');
WriteLn(TimeRunning);
end;
begin
SetUpSRL;
ActivateClient;
Start;
repeat
bank;
Craft;
bank2;
ProgressReport;
until(false);
end.