StickToTheScript
2012-03-12 21:04:28
How Long have You Played Runescape?
5 Year(s)
Are you affilated in anyway with Jagex LTD?
NO
Were you Referred to SRL?
NO
What is your general programming knowledge?
Visual Basic, Java, Java Script, some Pascal [learning]
Are you a member of any other communities?
no
Tell us about yourself…
Please show us one (or multiple) of your scripts.
5 Year(s)
Are you affilated in anyway with Jagex LTD?
NO
Were you Referred to SRL?
NO
What is your general programming knowledge?
Visual Basic, Java, Java Script, some Pascal [learning]
Are you a member of any other communities?
no
Tell us about yourself…
From: StickToTheScript
I am 18, and I play instruments. I enjoy computers or electronics in general. I am in university.
Please show us one (or multiple) of your scripts.
program DraynorWillowDestroyer;
{$DEFINE SMART} //Add '//' to the beginning of the line to disable SMART
{$i SRL/SRL.simba}
{$i sps/sps.simba}
{------------------------------------------------------------------------------}
Const
SRLStats_Username = '';
SRLStats_Password = '';
NumbOfPlayers= 1;
StartPlayer= 0;
Debug = True;
{------------------------------------------------------------------------------}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'ssence'];
Players[0].Member := True;
Players[0].Active:=True;
end;
{------------------------------------------------------------------------------}
Procedure WalkToTree;
Var
ToTrees:TPointArray;
Begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
SetupSRL;
SPS_Areas := ['10_9'];
ToTrees:= [Point(4209, 3686), Point(4190, 3735)];
SPS_WalkPath(ToTrees);
Writeln('Found the trees');
End;
{------------------------------------------------------------------------------}
procedure CheckSRLStats; //Borrowed From xtraivy V1
begin
if ((SRLStats_Username= '') and (SRLStats_Password = '')) then
begin
case MessageBox('No Stats account entered, would you like to register?','SRL Stats',mbYesNoCancel) of
mrYes:
begin
OpenWebPage('http://stats.villavu.com/register');
TerminateScript;
end;
mrNo:
begin
SetupSRLStats(837, 'Anonymous', 'omgzz1337l33t');
Exit;
end;
mrCancel: TerminateScript;
end;
end else
SetupSRLStats(837, SRLStats_Username, SRLStats_Password);
end;
{------------------------------------------------------------------------------}
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
writeLn('AntiBan 0');
end;
1: PickUpMouse;
2:
begin
MakeCompass('N'); //Borrowed From Griff's Tutorial On Cutting Your First Tree!
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
writeLn('AntiBan 2')
end;
3:
begin
MMouse(50,100,25,25); //Borrowed From S1N's Maples 1.65 Bot
writeLn('AntiBan 3');
end;
4:
begin
MMouse(81,292,24,24); //Borrowed From S1N's Maples 1.65 Bot
writeLn('AntiBan 4');
end;
5:
begin
MMouse(581,341,25,25); //Borrowed From S1N's Maples 1.65 Bot
writeLn('AntiBan 5');
end;
6:
begin
MMouse(0,0,500,500); //Borrowed From S1N's Maples 1.65 Bot
writeLn('AntiBan 6');
end;
end;
end;
{------------------------------------------------------------------------------}
procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
if FindObj(x, y, 'Chop down Willow', 1785912, 10) then
begin
mouse( x, y, 0, 0, true);
wait(687 + random(15000))
MMouse( x, y, 5, 5);
end;
repeat
Wait(RandomRange(2000, 3000))
AntiBan;
Until not IsUpText('illow') or (InvFull);
until(InvFull);
end;
{------------------------------------------------------------------------------}
Procedure WalkToBank;
Var
ToBank:TPointArray;
Begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
SetupSRL;
SPS_Areas := ['10_9'];
ToBank:= [Point(4194, 3743), Point(4207, 3683)];
SPS_WalkPath(ToBank);
Writeln('Found the Bank');
End;
{------------------------------------------------------------------------------}
Procedure Bank;
var x, y: integer;
begin;
Wait(8000+random(2000));
OpenBank('db', True, True);
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen or not (LoggedIn);
end;
end;
{------------------------------------------------------------------------------}
Procedure DepositBank;
var
willowlogs, x, y: Integer;
Begin
willowlogs := DTMFromString('m6wAAAHic42ZgYChgYmCoA+JKIE4B4iQgTgbiTCAuAuJ8IM6BypsxMjDYALE2EOsDsSkQOwCxM5TWBWI9IDYGYnMDQaDpTETh/wzEA0YSMBIAAEIzCNQ=');
if FindDTM(willowlogs, x, y, 550, 200, 740, 470) then
begin
Mouse( x, y, 5, 5, false);
Wait(200+Random(1000))
ChooseOption('All');
end;
end;
{------------------------------------------------------------------------------}
begin
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
CheckSRLStats;
LoginPlayer;
Writeln('Your using Draynor Willow Destroyer V1.1');
Writeln('Please report any bugs on the thread.');
Writeln('Thanks!');
repeat
ChopTree
WalkToBank
Bank
DepositBank
WalkToTree
Until (AllPlayersInactive);
end.