J J
2012-02-29 16:55:43
Video on setting it up and showing how it works, etc.
http://www.youtube.com/watch?v=VZsZExKnCjE
Hello,
Thanks for taking your time to check out my script. This is the first script I've written myself and I'm proud to have it finished. As far as I know it works flawless, except for handling random. I will add more features in the future. You currently have to log-in manually.
This script should be getting around 50.000 thieving experience per hour.
How to set it up and what are the requirements?
This script is opening the gates/doors and looting the chests are spot number 4 on this map:
Once you have positioned your character there you can choose to run this script with SMART, which works but is a bit harder to set up.. or you can choose to let Simba control your mouse and choose your desired RuneScape screen with the "Select a client"-tool built in to Simba.
Your brightness should be turned all the way up, and your graphics should be on the lowest possible.
The script:
Be sure to leave some feedback to help me to improve the script!
Auto log-in, antiban and other features will be added in the future.
Greetz,
JJ.
http://www.youtube.com/watch?v=VZsZExKnCjE
Hello,
Thanks for taking your time to check out my script. This is the first script I've written myself and I'm proud to have it finished. As far as I know it works flawless, except for handling random. I will add more features in the future. You currently have to log-in manually.
This script should be getting around 50.000 thieving experience per hour.
How to set it up and what are the requirements?
- GAME MODE: ALL (not on filter or anything else)
- 35 thieving
- Buyers and Cellars quest
- Lockpick
This script is opening the gates/doors and looting the chests are spot number 4 on this map:
Once you have positioned your character there you can choose to run this script with SMART, which works but is a bit harder to set up.. or you can choose to let Simba control your mouse and choose your desired RuneScape screen with the "Select a client"-tool built in to Simba.
Your brightness should be turned all the way up, and your graphics should be on the lowest possible.
The script:
program ThievingGuildChests;
{$DEFINE SMART}
{$i srl/srl.simba}
Function OpenChest:Boolean;
Var
X, Y, t: Integer;
begin
MarkTime(t);
repeat
X:=MSCX;
Y:=MSCY;
if FindObjTPA(X, Y, 7376552, 15, 1, 4, 9, 20, ['ract']) then
begin;
Writeln('We found the chest');
GetMousePos(X, Y);
Case Random(4) of
0..2: begin;
Mouse(X, Y, 5, 5, True);
Writeln('We clicked the chest');
end;
3: begin;
Mouse(X, Y, 5, 5, False);
WaitOption('Open', 300);
Writeln('We clicked the chest');
end;
end;
Wait(1500+random(1000));
Writeln('We are waiting to complete the thieving');
end;
begin;
repeat
Wait(200+random(200));
until FindChatBoxText('fail', 8, clBlack) or FindChatBoxText('open', 8, clBlack) or FindChatBoxText('reach', 8, clBlack) or (TimeFromMark(t) >= 10000);
end;
begin;
if FindChatBoxText('fail', 8, clBlack) then
Wait(300+random(200));
end;
begin;
if FindChatBoxText('open', 8, clBlack) then
Wait(2000+random(500));
end;
begin
if FindChatBoxText('reach', 8, clBlack) then
WriteLn('Time to open the doors');
Wait(300+random(200));
end;
until FindChatBoxText('reach', 8, clBlack) or (TimeFromMark(t) >= 15000);
end;
function OpenGate:Boolean;
var
X, Y, a, t, z: Integer;
begin
z:=0
t:=0
a:=0
MarkTime(t);
repeat
X:=MSCX;
Y:=MSCY;
z:=0
if FindObjTPA(X, Y, 1252637, 5, 1, 3, 3, 6, ['pen']) then
begin;
Writeln('We found the chest');
GetMousePos(X, Y);
Case Random(4) of
0..2: begin;
Mouse(X, Y, 2, 2, True);
Writeln('We clicked the gate');
end;
3: begin;
Mouse(X, Y, 2, 2, False);
WaitOption('Open', 300);
Writeln('We clicked the gate');
end;
end;
Writeln('We are waiting to open the gate');
Wait(2000+random(1000));
end;
begin;
repeat
Wait(200+random(200));
until FindChatBoxText('swings', 8, clBlack) or FindChatBoxText('bornly', 8, clBlack) or (TimeFromMark(t) >= 10000);
end;
begin;
if FindChatBoxText('bornly', 8, clBlack) then
WriteLn('We failed to open the gate');
Wait(200+random(200));
end;
begin;
if FindChatBoxText('swings', 8, clBlack) then
a:=a+1
end;
begin;
if (TimeFromMark(z) >= 10000) then
WriteLn('Time exceeded');
end;
until FindChatBoxText('swings', 8, clBlack) or (TimeFromMark(t) >= 20000);
end;
begin
SetUpSRL;
ActivateClient;
repeat
repeat OpenChest;
until(FindChatBoxText('reach', 8, clBlack));
OpenGate;
until(False);
end.Be sure to leave some feedback to help me to improve the script!
Auto log-in, antiban and other features will be added in the future.
Greetz,
JJ.