edfromhumanresources
2012-01-31 13:34:31
How Long have You Played Runescape?
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
N/A
What is your general programming knowledge?
Java (very strong)
C/C++ (reasonably strong)
Pascal (scar/simba only)
Python, VB, C#, DOTNET, LISP (barely touched)
Database systems i.e. SQL, eXist….
Modelling languages i.e. emphatic, ocl, ATL….
Lower level stuff: VHDL, Verilog, ARM Assembly
The list could go on a bit more but I think that's enough :D (I'm a 4th year CS student btw)
Are you a member of any other communities?
I have been a mostly non contributing member of powerbot and rsbuddy. (i.e. not writing public bots, just private)
Tell us about yourself…
Please show us one (or multiple) of your scripts.
I've written a number of scripts in the past but kept them all private.
Asside from runescape I've uses scar/simba for other videogames such as EVE Online where I made a number of scripts for things such as running courier missions to, mining ice in ice belts.
Most of my scripts for scar/simba are very old and probably no longer work. This is because any spare time I've had to script I was writing java code for rsbuddy/rsbot untill recent events.
So i'll link you to a nice simple script I just wrote for runescape. It takes logs from the sawmill and fletches them into arrow shafts for mad monies. It only supports one player but it should be completely failsafe. Oh and no "anti ban", just anti-randoms. You need 80 woodcutting to use this script:
I'll also upload an old EVE Online courier mission runner that may or may not still work. It goes back to basics using vanilla color and mouse functions from scar. Antiban wasn't a problem in EVE like it is in runescape, so there is non, even mouse movements are instant in some cases:
http://pastebin.com/bQJJTuYc
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
N/A
What is your general programming knowledge?
Java (very strong)
C/C++ (reasonably strong)
Pascal (scar/simba only)
Python, VB, C#, DOTNET, LISP (barely touched)
Database systems i.e. SQL, eXist….
Modelling languages i.e. emphatic, ocl, ATL….
Lower level stuff: VHDL, Verilog, ARM Assembly
The list could go on a bit more but I think that's enough :D (I'm a 4th year CS student btw)
Are you a member of any other communities?
I have been a mostly non contributing member of powerbot and rsbuddy. (i.e. not writing public bots, just private)
Tell us about yourself…
From: edfromhumanresources
I'm currently a CS student in the UK from the UK. I spend my days sleeping, attending lectures, missing lectures because I was sleeping, procrastinating on coursework deadlines, rushing to meet coursework deadlines, playing video games, raving to electronic music, swimming, running, scuba and free diving.
I haven't been playing RS solid for 10 years. I started playing in classic as f2p when I was like 11. I played for a few years, then took a massive break for like 8 years or so, and didn't play(bot) again seriously till free trade was reintroduced recently.
Please show us one (or multiple) of your scripts.
I've written a number of scripts in the past but kept them all private.
Asside from runescape I've uses scar/simba for other videogames such as EVE Online where I made a number of scripts for things such as running courier missions to, mining ice in ice belts.
Most of my scripts for scar/simba are very old and probably no longer work. This is because any spare time I've had to script I was writing java code for rsbuddy/rsbot untill recent events.
So i'll link you to a nice simple script I just wrote for runescape. It takes logs from the sawmill and fletches them into arrow shafts for mad monies. It only supports one player but it should be completely failsafe. Oh and no "anti ban", just anti-randoms. You need 80 woodcutting to use this script:
program EverShaft;
//By EdFromHumanResources
{$i SRL/SRL/Misc/Smart.simba}
{$i SRL/SRL.simba}
var
x, y : Integer;
startShafts : Integer;
logsDTM, shaftDTM, knifeDTM : Integer;
logsObjectColor : Integer;
logsObjectText : String;
const
shaftPrice = 31;
procedure DeclarePlayers();
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Active := True;
WorldInfo := [True,96];
end;
end;
procedure AntiRandoms;
begin
if (not(LoggedIn)) then
Exit;
WriteLn('Checking for AntiRandoms.....');
FindNormalRandoms;
end;
function CountShafts(): Integer;
var
x, y, i : Integer;
begin
if FindDTM(shaftDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
i := CoordsToItem(x, y);
result := GetAmountBox(InvBox(i));
end;
end;
function CountLogs() : Integer;
begin
result := CountItems('dtm', logsDTM, []);
end;
function HaveLogs() : Boolean;
begin
result := FindDTM(logsDTM, x, y, MIX1, MIY1, MIX2, MIY2);
end;
procedure FletchShafts();
var
numLogs : Integer;
begin
if (not(LoggedIn)) then
Exit;
Writeln('Fletching Shafts.....');
//If we find logs in inventory.
if(FindDTM(logsDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
//Click the logs in inventory.
Mouse(x, y, 3, 3, 1);
Wait(RandomRange(750, 1250));
//If we just started we will find the knife dtm in chat box; We need to click it.
if(FindDTM(knifeDTM, x, y, MCX1, MCY1, MCX2, MCY2)) then
begin
Writeln('Found knife DTM!');
Mouse(x, y, 3, 3, 1);
Wait(RandomRange(750, 1250));
end;
//Click somewhere in arrow shaft box.
MouseBox(80, 410, 150, 450, 1);
//Wait until we have no logs left or we haven't crafted logs in some time.
repeat
numLogs := CountLogs();
Wait(RandomRange(3000, 3500));
until((not HaveLogs()) or (numLogs = CountLogs()));
end;
end;
procedure TakeLogs();
var
numLogs : Integer;
begin
if (not(LoggedIn)) then
Exit;
Writeln('Taking logs.....');
//Set X and Y to centre of main screen to get logs close to us.
x := MSCX;
y := MSCY;
//If we find the logs object in world.
if(FindObj(x, y, logsObjectText, logsObjectColor, 10))then
begin
//Click the logs onject in world.
Mouse(x, y, 3, 3, 1);
Wait(RandomRange(750, 1250));
//Wait until we have full inventory or we haven't picked up logs in some time.
repeat
numLogs := CountLogs();
Wait(RandomRange(3000, 3500));
until((InvFull()) or (numLogs = CountLogs()));
end;
end;
procedure SetupScript();
begin
logsDTM := DTMFromString('mWAAAAHicY2FgYMhjYmDIBuIqIE4F4qdAsdtA/BqIPwKxl4UCkGSCYy4GVMCIhkEAAIzDBhc=');
shaftDTM := DTMFromString('mggAAAHicY2NgYHBkYmBwAGIfILYGYlMg9gDi50C590D8EIjvA/E7IH4JxG4aXECSCQODRLEBRhwYAgDV/AeX');
knifeDTM := DTMFromString('mggAAAHicY2NgYHBnYmDwBeJAIA4AYkcgdgLip0B8E4gvAPEtIH4NxB+B2EWHkyE+OhqokwkFcwFJEEYHjDgwBAAAMtAIyw==');
logsObjectColor := 6782342;
logsObjectText := 'tack of';
MakeCompass('N');
SetAngle(1);
startShafts := CountShafts();
Wait(RandomRange(1000, 1750));
end;
procedure EndScript();
begin
FreeDTM(logsDTM);
FreeDTM(shaftDTM);
FreeDTM(knifeDTM);
Logout();
TerminateScript();
end;
procedure Report;
var
timeSeconds, shaftsPH, shaftsPS : Double;
shaftsMade : Integer;
begin
//SRLRandomsReport;
shaftsMade := countShafts() - startShafts;
timeSeconds := GetTimeRunning() / 1000;
shaftsPS := shaftsMade / timeSeconds;
shaftsPH := shaftsPS * 3600;
Writeln('=================== EverShaft ===================');
Writeln('=================================================');
Writeln('||== Time Running : ' + TimeRunning());
Writeln('||== Shafts made : ' + IntToStr(shaftsMade));
Writeln('||== Shafts per hr : ' + FloatToStr(shaftsPH));
Writeln('||== Est GP made : ' + IntToStr(shaftsMade * shaftPrice));
Writeln('||== Est GP per hr : ' + FloatToStr(shaftsPH * shaftPrice));
Writeln('||== Fletch XP made : ' + FloatToStr(shaftsMade / 3));
Writeln('||== Fletch XP per hr : ' + FloatToStr(shaftsPH / 3));
Writeln('||== Shafts held : ' + IntToStr(countShafts()));
Writeln('||== Est GP held : ' + IntToStr(countShafts() * shaftPrice));
Writeln('=================================================');
Writeln('=================================================');
end;
begin
Smart_Server := 23;
Smart_SuperDetail := False;
SMART_Members := True;
SMART_Signed := True;
SetupSRL();
DeclarePlayers();
ActivateClient();
LoginPlayer();
SetupScript();
ClearDebug();
Report();
//-- Main loop start -------------------------
repeat
if(HaveLogs())then
begin
FletchShafts();
Report();
end else
begin
TakeLogs();
end;
AntiRandoms();
Wait(RandomRange(750, 1250));
until(False);
//-- Main loop end ---------------------------
EndScript();
end.
I'll also upload an old EVE Online courier mission runner that may or may not still work. It goes back to basics using vanilla color and mouse functions from scar. Antiban wasn't a problem in EVE like it is in runescape, so there is non, even mouse movements are instant in some cases:
http://pastebin.com/bQJJTuYc