Sin
2012-01-02 19:12:45
Hey guys, releasing my second script tonight -
S1NYews LITE.
This IS the lite version so there are a couple things it does and a couple things that it doesn't do.
Video Promo of it -
http://www.youtube.com/watch?v=RhUmOLYq_Ko&lc=XBB20HGM97fnQFRIvDUCOUdcPlxBca86E6xnSYIqcu8&feature=inbox
The Script:
Changelog:
January 2nd, 2011 - Initial Release
January 4th, 2011 - Bug Fixes
S1NYews LITE.
This IS the lite version so there are a couple things it does and a couple things that it doesn't do.
Video Promo of it -
http://www.youtube.com/watch?v=RhUmOLYq_Ko&lc=XBB20HGM97fnQFRIvDUCOUdcPlxBca86E6xnSYIqcu8&feature=inbox
What it does -
Chops ONE of the yew trees in edgeville
Banks
======================================
What it doesn't do -
Chop both of the Yew Trees in Edgeville
Does NOT have support for multiple locations
Does NOT wait for the inventory to be full before banking (in some ways it's more efficient)
Does NOT have many failsafes
How to get the full version -
Pay me 100M
Nahh im jk, just pm me WHY you want the script and what you'll use it for. Goldfarming is an instant NO. Yews are overexpensive atm and I want them t crash a bit so I can 99 Fletching a bit easier so... But I dont want yews to plummet to much. Full Version will be in Members as soon as i'm one :pThe Script:
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.Changelog:
January 2nd, 2011 - Initial Release
January 4th, 2011 - Bug Fixes