oreokilla
2012-01-28 17:50:19
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Very basic But i can go into advanced
Are you a member of any other communities?
powerbot made 4 scripts for them
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Very basic But i can go into advanced
Are you a member of any other communities?
powerbot made 4 scripts for them
Tell us about yourself…
From: oreokilla
I love to bot runescape, i love sports, love music, love playing music, and i love this site and the forums everyone helps each other out…
Please show us one (or multiple) of your scripts.
program MapleTreeKilla;
{$DEFINE SMART}
{$i srl\srl.simba}
const
{SMART Setup Constants}
WORLD = 0; // Set a world, if you'd like. Leave 0 to choose a random world.
MEMBERS = False; // Are you Members or Free-To-Play? False for F2P, True for P2P.
SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
Author = 'Oreokilla';
Name = 'OreosoakKilla';
Version = '1.0';
{---------------------------}
procedure DeclarePlayers; //This declares the players to be used in the script.
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Your Runescape username
Players[0].Pass := ''; //Your Runescape password
Players[0].Nick := ''; //3 or 4 lowercase letters from your Runescape username. Used as a Nickname.
Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
end;
procedure SetupScript;
begin;
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('Hope you enjoy this oak cutting script.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('I made this My self.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
procedure AntiBan; //This keeps the banhammah from striking.
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(3) of
0:
begin
WriteLn('AntiBan chosen: Hover Skill.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
HoverSkill('Woodcutting', false); //This hovers your mouse over the Woodcutting skill.
wait(2453+Random(432));
end;
1:
begin;
WriteLn('AntiBan chosen: Pick Up Mouse.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
PickUpMouse; //This simulates a human picking the mouse up off the mouse pad, then setting it back down.
end;
2:
begin
WriteLn('AntiBan chosen: Move Camera.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
MakeCompass('N'); //This fiddles around with the Camera. Aligns the Camera North, rotates the Camera South, then aligns North again.
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;
procedure DropLogs;
begin
DropAllExcept([1]);
end;
Procedure ChopTree; // Chops the tree
Var x, y: integer;
Begin
if FindObj (x, y, 'Oak', 2965842, 10) then
Begin
repeat
FindNormalRandoms;
ToggleXpBar(True);
Begin
WriteLn('Tree Found Clicking it.');
Mouse(x, y, 0, 0, True);
ChooseOption('oak'); //This tells the script to left-click on the object and select "Maple".
end;
repeat
Wait(500)
Until Not isuptext ('oak') Or (invfull);
Until(InvFull);
end;
end;
begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False;
SetupSRL;
SetupScript;
declarePlayers;
LoginPlayer;
repeat
ChopTree;
DropLogs;
AntiBan;
//Notice that AntiRandoms isn't in here. It would be useless to include because Reflection is currently broken.
until AllPlayersInactive; //This stops the script completely once your player has failed. e.g. Gotten into a random event, died (almost impossible) or failed to find a tree.
end.