Sin
2012-01-04 21:18:20
How Long have You Played Runescape?
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No.
Were you Referred to SRL?
——
What is your general programming knowledge?
JAVA, HTML, Pascal
Are you a member of any other communities?
RSBuddy (Banned for reffering SRL), RSBots.net, Villavu
Tell us about yourself…
Please show us one (or multiple) of your scripts.
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No.
Were you Referred to SRL?
——
What is your general programming knowledge?
JAVA, HTML, Pascal
Are you a member of any other communities?
RSBuddy (Banned for reffering SRL), RSBots.net, Villavu
Tell us about yourself…
From: S1N
Im Shay, 15 Years young and an aspiring soft ware designer :)
Love Programming, playing RS and MW3 (gaming in general).
Please show us one (or multiple) of your scripts.
program S1NYews;
{$include srl/srl/misc/smart.scar}
{$I SRL/SRL.Scar}
{$I srl/srl/misc/debug.scar}
var
YewCount:Integer;
{Recent Changes-
1.1 January 2nd 2012
Revamped the whole code
Added numerous failsafes
Banking should be flawless
1.2 January 4th 2012
Cleaned up the whole code
Fixed Radial Walking bug(silly me :L)
added tons of failsafes
progress report
1.3
==To Come==
Seer's Village Support}
//Please start at the Yews.
{Currently featuring ONLY Edgeville.}
{Post on thread if you want support}
{for places such as Seers', GE, and whatever}
{Version 1.2}
{Updated January 4th, 2012}
//Script will be available for only a short time to prevent Yews from crashing
//Moving to Members+ as soon I can.
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure AntiBan;
begin
case random(50) of //change the number in brackets to however you want the antiban to perform
0: RandomRClick;
1: PickUpMouse;
2: RandomRClick;
3: HoverSkill('woodcutting', False);
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := 'firemaking'; //change to whatever you want
LevelUp;
end;
{DONT TOUCH BElOW IF YOU HAVE NO EXPERIENCE AND DONT WANT YOUR BOT TO NOT START.
IF YOU CHANGED SOMETHING AND IT DOESNT WORK, DONT YOU DARE COME CRYING TO ME
AND SAYING "0mfG, w7f !s th1s bu11sh!t. Eet n0 w0rk foar m3." without having details.
I WILL RESPOND WITH A "UMADBRUH?" TO YOU.
Have a nice day :)
}
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Functions=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function DepositEverything:Boolean;
var
x,y:Integer;
begin
FindObjCustom(x, y, ['eposit','items'], [2052490], 2);
Mouse(x, y, 0, 0, True);
end;
Function CloseDepositBox:boolean;
var
x2, y2:integer;
begin
if FindObjCustom(x2, y2, ['Close'], [1580837], 0) then
Mouse(x2, y2, 0, 0, True);
end;
function FindAndOpenDBox:Boolean;
var
x,y:Integer;
begin
repeat
if FindObjCustom(x, y, ['eposit'], [8092544, 789517], 2) then
MMouse(x, y, 0, 0);
until(IsUpText('eposit'));
Mouse(x, y, 2, 2, True);
end;
function CheckIfLoggedin:Boolean;
begin
if Not LoggedIn then
writeLn('Not Logged In, Ending Script');
TerminateScript;
end;
function NorthAndHigh:Boolean;
begin
MakeCompass(0);
SetAngle(True);
end;
function FindYewTree:Boolean;
var
x2,y2:Integer;
begin
FindObjCustom(x2, y2, ['hop', 'down'], [4937570, 4344918], 5);
end;
function RAngle:Boolean;
begin
MakeCompass(RandomRange(0,359));
end;
procedure Report;
begin
writeLn('========================');
writeLn('========S1NYews=========');
writeLn('===Time Running: ' + TimeRunning);
//writeLn('===Logs: ' + IntToStr(YewCount));
//writeLn('===Exp: ' + IntToStr(YewCount * 175));
writeLn('========================');
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Edgeville=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
procedure Bank;
begin
NorthAndHigh;
RadialWalkTolerance(5068133, 30, 40, 60, 1, 1, 7);
if IsMoving then
begin
wait(5000);
MakeCompass(350);
SetAngle(False);
wait(1000);
end else
begin
wait(10000);
CheckIfLoggedIn;
end;
AntiRandoms;
FindAndOpenDBox;
if DidRedClick then
begin
wait(6000 + random(300));
end else
begin
wait(6000);
CheckIfLoggedIn;
end;
if DepositScreen then
begin
DepositEverything;
CloseDepositBox;
end else
begin
CheckIfLoggedIn;
If LoggedIn then
begin
FindAndOpenDBox
DepositEVERYthing;
CloseDepositBox;
end;
end;
MakeCompass(0);
WriteLn('Walking Back');
RadialWalkTolerance(3885138, 160, 180, 70, 1, 1, 7);
if FlagPresent then
repeat
begin
wait(200);
end
until(Not IsMoving);
RadialWalkTolerance(2833988, 230, 270,42, 1, 1, 5);
if FlagPresent then
repeat
wait(100);
until(Not IsMoving);
wait(20000);
ClearDebug;
end;
procedure ChopNorthTree;
var
x,y:Integer;
begin
SetAngle(False);
MakeCompass(0 + random(20));
wait(300);
repeat
if FindObjCustom(x, y, ['hop', 'down'], [4937570, 4344918], 5) Then
begin
WriteLn('Found North Yew');
MMouse(x, y, 2, 2);
end;
until(IsUpText('Chop down'));
Mouse(x, y, 2, 2,True);
repeat
wait(100);
MMouse(x, y, 2, 1);
until(Not IsUpText('own') or InvFull);
if FindBlackChatMessage('yew') then
begin
YewCount:= YewCount + 1
end;
AntiBan;
writeLn('Yew Tree is down. Banking'); //yawn .........
end;
procedure Edgeville;
begin
ClearDebug;
SetupLogin;
SetupSRL;
writeLn('============================================');
writeLn('WIELD YOUR HATCHET PLEASE!');
writeLn('This is not an error message, just a warning');
writeLn('============================================');
DeclarePlayers;
ActivateClient;
repeat
ChopNorthTree;
//WalkToSouth
//ChopSouthTree
Bank;
Report;
until(false);
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Seers'========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================The GE========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Main Code=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
begin
Edgeville; //Change this to your location (V1.3+ only)
end.
===============================
program BarbAdv;
{$DEFINE SMART}
{$include srl/srl/misc/smart.scar}
{$include srl/srl.scar}
{Please read!
I will be issuing an update soon which will include ALL
the agility courses in RuneScape (Probably excluding Wildy Course).
It will be quite simple to choose which bot to use. Please expect this update
around January 2nd to January 4th.}
{=========================================================|
==========================================================|
==================Welcome to Barb Adv=====================|
========================Script by: S1N====================|
==================Requirements: 93 Agility================|
==========================================================|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
==========================================================|
==========================================================|
====================Upcoming Features:====================|
====================Low level course support==============|
====================More Failsafes========================|
==========================================================|
==========================================================|
A thank you to "Uze", who's code I sneaked a couple peeks at >:3
==========================
=======Version 0.4========
==========================}
//-----------------------------------------------------
//-----------------------------------------------------
//-------------------Setup and Shizzle-----------------
//FILL THIS OUT OR THE SCRIPT WONT FREAKING START!
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
//antiban thanks to Uze
procedure AntiBan;
begin
case random(300) of
0: RandomRClick;
1: PickUpMouse;
2: RandomRClick;
3: HoverSkill('agility', False);
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := 'agility'; //change to whatever you want
LevelUp;
end;
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
//-----------------------------------------------------
//--------------------Barb Adv Code--------------------
//--------------------Script Code----------------------
function IfLoggedin:Boolean;
begin
if Not LoggedIn then
writeLn('Not Logged In, Ending Script');
TerminateScript;
end;
Procedure Tarzan;
var
x, y:Integer; //location of rope swing
begin
repeat
if FindObjCustom(x, y, ['Swing', '-on'], [464409, 861996], 3) THEN
Wait(300 + random(100));
WriteLn('We found the Rope Swing!');
MMouse(x, y, 2, 2);
until (IsUpText('Rope'));
Mouse(x, y, 2, 2, True);
If FlagPresent then
begin
wait(1001);
MakeCompass(270 + random(10));
wait(4000 + random(200));
WriteLn('Doing a bit of antiban');
end else
begin
Mouse(x, y, 2, 2, True);
wait(1001);
MakeCompass(270 + random(10));
wait(4000 + random(200));
end;
ClearDebug;
AntiBan;
AntiRandoms;
end;
Procedure WalkBalance;
var
x, y:Integer;
begin
repeat
if FindObjCustom(x, y, ['Walk', '-across'], [8488853], 1) THEN
WriteLn('We found the Slippery Log!');
MMouse(x, y, 2, 2);
until(IsUpText('Walk'));
begin
WriteLn('Attempting to walk and not fall!');
Mouse(x, y, 2, 2, True);
if DidRedClick Then
wait(1001 + random(200));
MakeCompass(160 + random(20));
AntiBan;
AntiRandoms;
end;
end;
procedure RunWall;
var
x, y:Integer;
begin
repeat
if IsMoving then
wait(500);
until(Not IsMoving);
repeat
if FindObjCustom(x, y, ['Run-up'], [4278859], 4) Then
WriteLn('We found the wall!');
MMouse(x, y, 2, 2);
until(IsUpText('Run'));
begin
WriteLn('Attempting to do a move from "Matrix"');
Mouse(x, y, 2, 2, True);
wait(1501);
MakeCompass(270 + random(25));
wait(6500 + random(200));
AntiBan;
AntiRandoms;
end;
end;
procedure ClimbDatShit;
var
x, y:Integer;
begin
repeat //3427166
WriteLn('Attempting to climb');
if FindObjCustom(x, y, ['Climb'], [3888233], 2) then
MMouse(x, y, 2, 2);
until(IsUpText('Climb'));
begin
WriteLn('Climbing!');
Mouse(x, y, 2, 2, True);
if DidYellowClick then
begin
FindObjCustom(x, y, ['Climb'], [3888233], 2)
Mouse(x, y, 1, 1, True);
end else
if DidRedClick then
wait(5000);
AntiBan;
AntiRandoms;
end;
end;
procedure GetLaunched;
var
x, y:Integer;
begin
repeat
if FindObjCustom(x, y, ['Fire'], [12967652], 10) THEN
WriteLn('Finding the Crossbowthingy');
MMouse(x, y, 2, 2);
until(IsUpText('Fire'));
begin
WriteLn('Flying');
Mouse(x, y, 2, 2, True);
if FlagPresent then
begin
wait (6000 + random(200));
end else
begin
wait(3000 + random(300));
GetMousePos(x, y);
Mouse(x, y, 2, 2, True);
end;
AntiBan;
AntiRandoms;
end;
end;
procedure WalkThePlank;
var
x, y:Integer;
begin
repeat
if FindObjCustom(x, y, ['Cross'], [7106417], 0) THEN
WriteLn('Becoming a pirate and walking the plank');
MMouse(x, y, 2, 2);
until(IsUpText('Cross'));
begin
WriteLn('l337 Pirate');
Mouse(x, y, 2, 2, True);
if FlagPresent then
begin
wait(5000 + random(400));
end else
begin
wait(4000 + random(500));
Mouse(x, y, 2, 2, True);
end;
AntiRandoms;
end;
end;
procedure LeapOfFaith;
var
x,y:Integer;
begin
repeat
if FindObjCustom(x, y, ['Jump', 'over'], [1522509], 10) THEN
WriteLn('Finding the drop!');
MMouse(x, y, 2, 2);
until(IsUpText('Jump'));
begin
WriteLn('Leap of faith!');
Mouse(x, y, 2, 2, True);
if isMoving then
begin
wait(2000 + random(300));
end else
begin
wait(5000 + random(500));
Mouse(x, y, 2, 2, True);
end;
AntiBan;
AntiRandoms;
end;
end;
procedure Weee;
var
x, y, a, b:Integer;
begin
x:=MSCX
Y:=MSCY
repeat
if FindColorSpiralTolerance(x, y, 5004131, MSx1, MSy1, MSx2, MSy2, 0) THEN
WriteLn('Attempting to find slide');
MMouse(x, y, 2, 2);
until(IsUpText('Slide-down'));
begin
WriteLn('Sliding :D');
GetMousePos(x, y);
Mouse(x, y, 3, 3, True);
repeat
if isMoving then
begin
wait(1000);
MakeCompass(30);
wait(5500 + random(300));
end else
wait(5000 + random(500));
Mouse(x, y, 2, 2, True);
until(isMoving);
WriteLn('Attempting to walk back to the start');
//code to walk to start
end;
end;
procedure BarbAdv;
begin
SetupLogin;
SetupSRL;
DeclarePlayers;
ActivateClient;
repeat
Tarzan;
wait(500 + random(200));
WalkBalance;
wait(500 + random(200));
RunWall;
wait(500 + random(200));
ClimbDatShit;
wait(500 + random(200));
GetLaunched;
wait(500 + random(200));
WalkThePlank;
wait(500 + random(200));
LeapOfFaith;
wait(500 + random(200));
Weee;
wait(500 + random(200));
until(false)
end;
{-----------------------------------------------------
--------------------Gnome Reg Code--------------------
--------------------Script Code-------Work In Prog------------}
procedure LogBalance;
var
x, y:Integer;
begin
repeat
if FindObjCustom(x, y, ['Walk'], [2932], 2) Then
MMouse(x, y, 1, 1);
until(IsUpText('Walk-across'));
Mouse(x, y, 2, 2, True);
MakeCompass(180);
SetAngle(False);
wait(2000 + random(200));
end;
procedure ClimbNet;
var
x,y:Integer;
begin
end;
//----------------------------------------------
//----------------------------------------------
//------------------Main Code-------------------
begin
repeat
BarbAdv;
//ApeAtoll DO NOT UNCOMMENT ANY OF THESE.
//GnomeReg IT WILL RESULT IN THE SCRIPT NOT WORKING!
//GnomeAdv THEY ARE SIMPLY THERE TO SHOW YOU WHAT WILL
//Werewolf ARRIVE IN VERSION 1!
//Wildy
//LogBalance
until(false);
end.