Nukewire
2012-02-28 01:35:30
How Long have You Played Runescape?
7 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
n/a
What is your general programming knowledge?
I'm a computer science major with knowledge in C++ and PHP. Now a little bit a pascal.
Are you a member of any other communities?
Not anymore, I used to be a Administrator at RS-Resources.net.
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?
n/a
What is your general programming knowledge?
I'm a computer science major with knowledge in C++ and PHP. Now a little bit a pascal.
Are you a member of any other communities?
Not anymore, I used to be a Administrator at RS-Resources.net.
Tell us about yourself…
From: Nukewire
I am a 20 year old college student who likes to play video games, golf, work on cars and program. I used to be an Administrator for RS-Resources.net and helped a little bit with the development of their bot named ARGA. I've used bots form Aryan, SBot3 and ARGA. Haven't been active in the Runescape scene for awhile though, but just got back into it. I enjoy making script more than actually playing the game. =P
Please show us one (or multiple) of your scripts.
(*The script below is my Kebabuyer.
It will start in the AK bank and go to the Kebab salesman "Karim". It then buys Kebabs at 1gp a piece until the inventory is full. It then banks all the Kebabs and repeats.
You can sell Kebabs at the GE for 100gp+, at least its better than mining ess. =P
I originally made the script to buy Kebabs for use as cheap food for fighting scripts. But then realized that they sell for 100x what you pay for them!
Anti-random and anti-ban have been implemented along with a simple progress report.*)
program Kebabuyer;
// --------------------------------------------------------------
// Kebabuyer - Al-Kharid Kebab Buyer
// Version: 0.2
// By: Nukewire
// Start in the bank of Al-Kharid with coins in your coin pocket
// Enjoy!!
//---------------------------------------------------------------
//--------------------------Change Log---------------------------
// v 0.1
// Initial release
// v 0.2
// Updated walking procedure
// Updated function used for clicking
// Improved banking procedure
// Changed wait times to account for lag
{$DEFINE SMART}
{$IFDEF SMART}
{$i SRL/SRL/Misc/Smart.simba}
{$ENDIF}
{.include SRL/SRL.simba}
const
NumbOfPlayers = 1; // number of account you will be using
StartPlayer = 0; // which player to start with
RunTil = 100; // how many Kebabs would you like to purchase?
Var
x, y, invPlus, KebabBought, TO_BANK, TO_Kebab, DEPOSIT_ALL, ARROW_BUTTON, YES_PLEASE: Integer;
procedure DeclarePlayers;
var
i: Integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
begin
Players[0].Name := ''; // your Username.
Players[0].Pass := ''; // your Password.
Players[0].Active := True; // are you using this account?
Players[0].Member := False; // are you a member?
end;
end;
// setup all the DTMS for use
procedure SetDTMS;
begin
TO_BANK := DTMFromString('mggAAAHicY2NgYDBjYmDQAWJ/IM4CYjsgNgTiYEYGBj0g1gdiJyDmBGIeIN7Sm84wHYpB7EXteQzTm8MZ/gPN4sKCGXFgCAAA2K0NTw==');
TO_Kebab := DTMFromString('mlwAAAHicY2dgYFjOxMDQAcTFQDwLiLcA8Wkg7gRidiAWBWJWIFYBYl0gNgBiVSA+taqbYVpfJkNjURTD1LIIMHszEIPY/4HmcuHAjHgwFAAAP6URRw==');
DEPOSIT_ALL := DTMFromString('megIAAHicxc67CsJAEIXhSZAUglptmzfynUSJoCheULG00Ua8oSgGIuKL6b86gbAESSG48C0zzM5hQxE5eyJrtcUBJ1yRqBtiXHDEHhssdc/2dzwcO52vsHAMfJEeOojQymij63/eTDDFTOsRGo5Ic/oYY55hd4aaZ7Ob9VCCoJSrVq3kSuciXmHGmLe0f3KX/6D4j3/r+3kBkxcq4A==');
ARROW_BUTTON := DTMFromString('mrAAAAHic42BgYChiYWAoBGJfIJ4KxSB2PBBXA/EtJgaGS0wQ+iYQX4biS1D8799fBkYmZoZlS5cyXLp4EcxGxoQAIwEMAwA+YhHm');
YES_PLEASE := DTMFromString('mEQIAAHick2RgYMhjYWDIQsKFSLgEiCuAOBmIE5DoSCCOAeIAIA6G4jAgbgXiJiT6OhBzAfF2JgaGrUC8E4j3APEuIN4GxJuYIHIweZDYDqg8THwzlN4FZW+F8tHVnThxgmZ4nqssGNMDMNIB4wQArtZU8Q==');
end;
// when called, it will free up all the DTMS
procedure FreeDTMS;
begin
FreeDTM(TO_BANK);
FreeDTM(TO_Kebab);
FreeDTM(DEPOSIT_ALL);
FreeDTM(ARROW_BUTTON);
FreeDTM(YES_PLEASE);
end;
// basic setup procedure
procedure Setup;
begin
Smart_Server := 30;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL();
DeclarePlayers;
LogInPlayer;
MouseSpeed := 18;
wait(100+random(100));
SetAngle(0);
ClickNorth(0);
end;
Procedure Antiban; //credit Solidone40
Begin
Case Random(170) Of
1: HoverSkill('strength', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('mining', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
9: wait(4000+random(1000));
end;
end;
// use DTM to walk to the Kebab stand
procedure WalkToKebab;
begin
Writeln('Attempting to walk to Kebabs...');
if FindDTM(TO_Kebab, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 4, 4, True);
Writeln('Walking to Kebab Seller');
repeat
Antiban;
Wait(300 + Random(25));
until flag();
end;
end;
// use DTM to walk to the Kebab stand
procedure WalkToBank;
begin
Writeln('Attempting to walk to bank...');
if FindDTM(TO_BANK, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 4, 4, True);
Writeln('Walking to Bank');
end;
repeat
Antiban;
Wait(800 + Random(25));
until flag();
end;
// find Karim and buy Kebabs from him
procedure BuyKebabs;
begin
Antiban;
invPlus := InvCount;
if FindObj(X, Y, 'Kari', 6373465, 20) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('Talk-to');
wait(2000 +random(600));
Writeln('Buying Kebab');
if FindDTM(ARROW_BUTTON, X, Y, MCX1, MCY1, MCX2, MCY2) then
begin
Mouse(X, Y, 6, 6, True);
wait(1200 +random(800));
if FindDTM(YES_PLEASE, X, Y, MCX1, MCY1, MCX2, MCY2) then
begin
Mouse(X, Y, 8, 8, True);
wait(1200+random(800));
if FindDTM(ARROW_BUTTON, X, Y, MCX1, MCY1, MCX2, MCY2) then
begin
Mouse(X, Y, 6, 7, True);
wait(1000+random(800));
if InvCount = (InvPlus + 1) then
KebabBought := (KebabBought + 1)
end;
end;
end;
end;
end;
// procedure used to bank the Kebabs
procedure BankKebabs;
begin
repeat
if FindObj(X, Y, 'o Banke', 7105649, 20) then
begin
Mouse(x, y, 6, 6, false);
ChooseOption('ank Bank');
Writeln('Depositing Kebabs');
wait(3000);
if FindDTM(DEPOSIT_ALL, X, Y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(X, Y, 6, 6, True);
wait(1000);
if InvEmpty then
CloseBank;
end;
end;
until InvEmpty;
end;
// simple progress report
procedure ProgressReport;
begin
Writeln('+----------------------------+');
Writeln('|----Kebabuyer By: Nukewire--|');
Writeln('|----Run Time:' +TimeRunning);
Writeln('|----Kebabs Bought:' +IntToStr(KebabBought));
Writeln('+----------------------------+');
end;
// "main"
begin
SetDTMS;
Setup;
repeat
FindNormalRandoms;
WalkToKebab;
repeat
FindNormalRandoms;
BuyKebabs;
until InvFull;
FindNormalRandoms;
WalkToBank;
BankKebabs;
ProgressReport;
until (KebabBought = RunTil);
FreeDTMS;
Writeln('Thank you for using Kebabuyer by: Nukewire');
end.