Thomas
2015-04-10 05:19:34
How Long have You Played Runescape?
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No, not via a referring system. An IRL friend told me about it around the clusterflutter era IIRC.
What is your general programming knowledge?
Basic java and html, not much else besides that. Starting out with OGL scripts currently.
Are you a member of any other communities?
Member on powerbot forum (mainly using that for goldselling currently)
On RuneScape I'm member of the DGS clan.
Tell us about yourself…
Please show us one (or multiple) of your scripts.
Script is able to obtain about 23k vials/hr, so almost 1m/hr if you use 1 account to place them while others only use them without placing. Works 2hr+ for me (before running out of wells). Little requirements.
I might have copied some from ashaman, but probably I've rewritten most of it by now.
Currently working on a herblore script with portable well support. But would like to release it either in JR/Members section.
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No, not via a referring system. An IRL friend told me about it around the clusterflutter era IIRC.
What is your general programming knowledge?
Basic java and html, not much else besides that. Starting out with OGL scripts currently.
Are you a member of any other communities?
Member on powerbot forum (mainly using that for goldselling currently)
On RuneScape I'm member of the DGS clan.
Tell us about yourself…
From: lovebotter
I am a 23 year old, Belgian medicine student, 2nd year of my masters education.
Interests are my fraternity, F1 and some geek stuff, mainly computer hardware (sucker for ITX systems, mechanical keyboards and Lian Li computer cases), games I play are CS:S, RuneScape (only staking lately if my accounts aren't botting) and CS:GO.
I used to be somewhat of a known DG'er when EoC got released.
That's about all I can think of currently.
Please show us one (or multiple) of your scripts.
[simba]program Vials;
{$DEFINE SMART}
{$I SRL-6/SRL.Simba}
{$i srl-6/lib/misc/srlplayerform.simba}
var
vialCount, vialsPH, wellCount: integer;
timer: TTimeMarker;
portATPA: T2DPointArray;
const
timeOut = 33500;
procedure declareplayers();
var
i: integer;
begin
players.setup(playerForm.playerNames, playerForm.playerFile);
currentPlayer := 0;
for i := 0 to high(players) do
with players[i] do
begin
World := strToInt(playerForm.players[i].settings[0]);
ismember := true;
booleans[0] := strToBool(playerForm.players[i].settings[1]);
end;
end;
procedure initPlayerForm();
begin
with playerForm do
begin
name := 'Vials';
editBoxLabels := ['World'];
editBoxDefaults := ['124'];
checkBoxLabels := ['Placewell'];
checkBoxDefaults := ['True'];
end;
end;
procedure findNormalrandoms;
begin
exitSquealOfFortune;
ClaimSpinTicket;
closePollWindow();
end;
procedure afk(duration: integer);
begin
if duration = 1 then
wait(gaussRangeInt(50, 160))
else
wait(gaussRangeInt(1100, 2200));
end;
procedure antiban;
var
i: integer;
begin
i := random(1100);
case i of
1..3:
begin
hoverRandomSkill();
sleep(1);
end;
4..40: mouseMovingObject;
41..60: sleepAndMoveMouse(randomRange(100, 1100));
61..120:
begin
mouseOffClient(4);
afk(2);
end;
121..140: afk(1);
141..200: randomMouseSpeed(2, 30, 40);
end;
end;
procedure progressReport;
begin
vialsPH := round((vialCount * (3600.0 / (getTimeRunning / 1000.0))));
writeln(padR('Running For: ' + timeRunning, 60));
writeln(padR('Vials: ' + groupDigits(vialCount, ','), 37) + padR('Vials/H: ' + groupDigits(vialsPH, ','), 23));
writeln(padR('Wells placed: ' + groupDigits(wellCount, ','), 37));
end;
procedure setCamera;
begin
minimap.clickCompass;
afk(2);
mainScreen.setAngle(MS_ANGLE_HIGH);
afk(2);
mainscreen.setZoom(true);
end;
function banking(preset: integer): boolean;
var
button: integer;
backpackResult: boolean;
begin
if not isLoggedIn then
exit;
timer.start;
if preset = 1 then
button := BANK_BUTTON_PRESET_1
else
button := BANK_BUTTON_PRESET_2;
begin
repeat
if bankscreen.open(14) then
break
else
setCamera;
if (timer.getTime > timeOut) or (not isLoggedIn) then
exit;
until (bankScreen.isOpen or pinscreen.isOpen);
pinScreen.Enter(players[currentPlayer].bankPin);
repeat
if bankScreen.clickButton(button) then
break;
if (timer.getTime > timeOut) or (not isLoggedIn) then
exit;
until (not bankScreen.isOpen);
end;
result := true;
end;
function findPortable: boolean;
var
i, x, y: integer;
portTPA: TPointArray;
begin
if not isLoggedIn() then
exit;
findColorsSpiralTolerance(x, y, portTPA, 3031949, mainScreen.getBounds(), 10, colorSetting(2, 0.3, 1.7));
if length(portTPA) < 1 then
begin
result := false;
writeln('No portTPA found');
exit;
end;
portATPA := portTPA.toATPA(35, 35);
portATPA.filterBetween(0, 20);
portATPA.sortFromSize(25, true);
smartImage.debugATPA(portATPA);
for i := 0 to high(portATPA) do
begin
middleTPAEx(portATPA[i], x, y);
mouse(x, y, 10, 11, MOUSE_MOVE);
if isMouseOverText(['well', 'ortab'], 2500) then
begin
result := true;
exit;
end
else
result := false;
end;
portATPA := [];
end;
function renewPortable: boolean;
var
x, y: integer;
begin
if not isLoggedIn() then
exit;
writeln('Renewing Portable');
afk(2);
sendKeys('w', 200, 40);
if conversationBox.isOpen(5500) then
begin
conversationBox.selectOption(1);
wellCount := wellCount + 1;
afk(2);
portATPA := [];
end;
if findPortable then
result := true;
end;
function getVials: boolean;
var
time, x, y, amount: integer;
begin
if not isLoggedIn then
exit;
tabBackpack.Open;
timer.start;
amount := gaussRangeInt(28, 49);
if not tabBackpack.isEmpty then
exit
else
begin
if isMouseOverText(['well', 'ortab'], 3300) then
fastClick(MOUSE_RIGHT);
if (chooseOption.isOpen(2500)) then
chooseOption.select(['ake vials', 'vials', 'vial'], 2200);
repeat
afk(1);
if (not isLoggedIn) or (timer.getTime > timeOut) then
exit;
until bankScreen._enterAmount(amount, 5500);
repeat
afk(1);
if (not isLoggedIn) or (timer.getTime > timeOut) then
exit;
until tabBackpack.isFull;
vialCount := vialCount + 28;
result := true;
end;
end;
procedure setup;
begin
disableSRLLog := true;
initPlayerForm();
runPlayerForm();
if (not playerForm.isScriptReady) then
terminatescript;
declareplayers();
smartShowConsole := false;
disableSRLDebug := true;
smartEnableDrawing := true;
setupSRL;
if not isLoggedIn then
begin
if not players[currentPlayer].login then
terminateScript;
writeln('Just loggedin, waiting a bit');
afk(2);
end;
mouseSpeed := 35;
setCamera;
findNormalrandoms;
timer.start;
tabBackpack.Open;
end;
procedure mainloop;
var
i: integer;
nowell: integer;
begin
if not isLoggedIn then
begin
afk(2);
writeln('Attempting to log back in');
repeat
try
players[currentPlayer].login;
inc(i);
except
end;
if (i = 7) then
begin
i := 0;
players.next(false);
end;
until isLoggedIn;
setCamera;
timer.start;
end;
while findPortable do
begin
findNormalrandoms;
if getVials then
begin
findNormalrandoms;
if banking(1) and tabBackpack.isEmpty then
begin
findNormalrandoms;
progressReport;
antiban;
end;
end;
end;
while (not findPortable) do
begin
findNormalrandoms;
if players[currentPlayer].booleans[0] then
begin
if banking(2) and tabBackpack.isEmpty then
inc(nowell);
if (nowell = 3) then
begin
writeln('Failed withdrawing, shutting down');
players[currentPlayer].logout;
terminateScript;
end;
if tabBackpack.isItemInSlot(1) then
begin
findNormalrandoms;
antiban;
if renewPortable then
writeLn('renewed portable');
end
end
else
antiban;
end;
if timer.getTime > 187600 then
begin
writeln('nothing has happened for too long, shutting down');
players[currentPlayer].logout;
terminateScript;
end;
end;
begin
setup;
while (players.getActive() > 0) do
mainloop;
end.Script is able to obtain about 23k vials/hr, so almost 1m/hr if you use 1 account to place them while others only use them without placing. Works 2hr+ for me (before running out of wells). Little requirements.
I might have copied some from ashaman, but probably I've rewritten most of it by now.
Currently working on a herblore script with portable well support. But would like to release it either in JR/Members section.