Simba Code:
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(5198946, 30, 45, 60, 1, 1, 2);
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');
RadialWalk(3885138, 160, 180, 70, 1, 1);
if FlagPresent then
repeat
begin
wait(200);
end
until(Not IsMoving);
RadialWalk(2833988, 230, 270,42, 1, 1);
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.