Edgeville Yes Cutter And Banker!!!!

hey guys i firstly want to say I DID NOT WRITE THIS SCRIPT I ONLY FIXED IT UP!!!!!!!

bad things about this script - have to weild the axe...sucks i know
and the bank pin thing always screws up so u cant have a bank pin!!!! lol

good things about this script - u can tell it how many invents u want before logging off


how to setup- have axe weilded and in the bank slot closest to the yews (have about 20% of run/energy or more)
U DO NOT NEED TO CHANGE COLOURS!!!!


90% credit to who ever made this script lol....i think his name on the script
10% credit to me for fixing it up


p.s. use scar version 3.15b it says to use 3.12 but it screws up for me -.-
DO NOT LEAVE OVER NIGHT......well i never realy tried lol but it says not to
I GOT THIS SCRIPT FROM SRL FORUMS ALSO CREDITS TO THAT SITE!!!





lol finaly here is the script-









{------------------------- <<--PriSoner-->> -------------------------------
--------------- Simple Yew Cutter & Banker (Edgeville) -------------------
--------------- V1.0 -------------------
--------------- Requires Scar 3.12c & SRL 10 -------------------
--------------------------------------------------------------------------
------------------------- Description --------------------------------
--------------- Chops yews just south of edgeville -------------------
--------------- and banks them. Deals with randoms -------------------
--------------- where possible & has basic Anti-Ban. -------------------
--------------- only deals with 1 player -------------------
--------------------------------------------------------------------------
--------------- Put axe into backpack or hand, -------------------
--------------- place you character in the edgeville -------------------
--------------- bank and run the script. Simple! -------------------
--------------------------------------------------------------------------
--------------- Fill in your username, password, bank -------------------
--------------- pin if you have one set, time you want -------------------
--------------- the script to run & max loads/yews. -------------------
--------------- See end of script for version notes. -------------------
--------------------------------------------------------------------------

################################################## ########################
################################################## ########################
##### #####
##### THIS IS MY FIRST SCRIPT USE WITH CAUTION AND #####
##### SUPERVISE WHILST IN USE! #####
##### #####
##### YOU HAVE BEEN WARNED!! #####
##### #####
################################################## ########################
################################################## ########################}

program Simple_Yew_Cut_n_Bank_Ed;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}

// -----------------------------------------------------------------------
// -------------- Change your details in this section --------------------
// -----------------------------------------------------------------------
const
PlayerName = 'username'; // Enter your runescape username here.
PlayerPass = 'password'; // Enter your Runescape password here.
PlayerNick = 'bob'; // Enter a 3-4 letter version of your username here: i.e. evilbob may be just bob
PlayerPin = 0000; // leave at 0000
PickSkill = 'hitpoints'; // Choose skill you want any genie lamps aquired to be used on. (Must be spelt exactly as it is in skill list)
HideScar = 'NAV32'; // Enter the name of any program you want scar to disguise itself as.

SRL_ID = '6064'; // Get them here http://www.stats.srl-forums.com/ - This is not the same as your SRL Forum Username & Pass
SRL_PASS = 'coke'; // If you do not have one leave empty.

// -----------------------------------------------------------------------
// ----- Enter the maximums below. Your player will go to the bank, bank all items in your
// ----- back pack & log out if any condition is met. Enter 0 for infinite.
// -----------------------------------------------------------------------
maxloads = 99; // Enter the number of loads to collect.
maxyews = 250; // Enter the number of yews to chop.
maxtime = 1440; // Enter the maximum time to run in minutes.
maxlevel = 75; // Enter Maximum Woodcutting Level you wish to achieve.

// -----------------------------------------------------------------------
// ---- Do not alter below this line unless you know what your doing! ----
// -----------------------------------------------------------------------

YewColour = 1394236; // Colour of Yew Tree Foliage. Yew Should not have to change this. LoL
BankCashierColour = 195836; // Colour of Bank Cashier in Mini Map. The Yellow Dot. You Should not have to change this.

type AllAxes = record
AxeDTM: word;
AxeName: string;
end;

var
AxeList: Array of AllAxes;
YewCoords: TPointArray;
YewDTM, YewCount, NestSeedDTM, NestCountSeeds, NestRingDTM, NestCountRings, RndItemCount: integer;
x, y, i, DTMAxe, BirdsNestsMissed, LoadsBanked, CurrentTree, BankIconColour, TreeIconColour:integer;
CIBReason: String;
First: boolean;

// -----------------------------------------------------------------------
// Basic Standard Setup of Players.. Only 1 player currently supported.
// -----------------------------------------------------------------------
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;

HowManyPlayers:= 1;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);

SRLID := SRL_ID;
SRLPassword := SRL_PASS;

Players[0].Name := PlayerName;
Players[0].Pass := PlayerPass;
Players[0].Nick := PlayerNick;
Players[0].Active := True;
Players[0].Integers[1] := 0;

Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars);
end;

// -----------------------------------------------------------------------
// CountItemDTM Function by ???
// -----------------------------------------------------------------------
function CountItemDTM(DTM: Integer): Integer;
var
x, y, i: Integer;
TB: TBox;
begin
for i := 1 to 28 do
begin
TB := InvBox(i);
if(ExistsItem(i)) then
if(FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2)) then
Inc(Result);
end;
end;

// -----------------------------------------------------------------------
// Displays Report when called on current totals.
// Quits and Saves/Displays a Debug image when appropriate.
//
// SYCBReport(ReasonCalled: String; FinalSYBCReport, DebugImage: boolean);
// ReasonCalled: String explaing why, when, where it SYCBReport was called.
// FinalSYBCReport: Boolean, If true will end script and display final report along with ReasonCalled
// DebugImage: Boolean, If true will save & display a screen capture of moment script ended.
// -----------------------------------------------------------------------
procedure SYCBReport(ReasonCalled: String; FinalSYBCReport, DebugImage: boolean);
var x, y: integer;
begin
if DebugImage then
begin
SaveScreenshot('SYCBDebug.bmp');
GetClientDimensions(x, y);
DisplayDebugImgWindow(x, y);
LoadDebugBitmap('SYCBDebug.bmp');
end;


// I did want to have the GetSkillInfo Check in CheckIfBank procedure however it created
// a conflict with CountItemDTM constantly switching between GameTabs..
if (maxlevel > 0) and (maxlevel <= GetSkillInfo('woodcutting',False)) then
begin
FinalSYBCReport := true;
ReasonCalled := 'Woodcutting Skill Level ' + IntToStr(GetSkillInfo('woodcutting',False)) + ' Reached';
end;

writeLn('######################################### #########################');
writeLn(' Simple Yew Cutter & Banker (Edgeville)');
writeLn(' Ran for: ' + TimeRunning);
writeLn(' Loads Banked: ' + IntToStr(LoadsBanked));
writeLn(' Yew Logs Banked: ' + IntToStr(YewCount));

if NestCountSeeds > 0 then writeLn('Birds Nests (Seeds) Banked: ' + IntToStr(NestCountSeeds));

if NestCountRings > 0 then writeLn('Birds Nests (Rings) Banked: ' + IntToStr(NestCountRings));

if BirdsNestsMissed > 0 then writeLn(' Birds Nests Missed: ' + IntToStr(BirdsNestsMissed));

if RndItemCount > 0 then writeLn(' Random Event Items Banked: ' + IntToStr(RndItemCount));

if (maxloads > 0) and (maxloads <= LoadsBanked) then
begin
writeLn(' Script Ended: Maximum Loads Banked Limit Reached.');
writeLn('######################################### #########################');
if LoggedIn then LogOut;
SendSRLReport;
TerminateScript;
end;

if FinalSYBCReport then
begin
writeLn(' Script Ended: ' + ReasonCalled);
writeLn('######################################### #########################');
if LoggedIn then LogOut;
SendSRLReport;
TerminateScript;
end;

writeLn('######################################### #########################');
writeLn(' ');
SendSRLReport;
end;

// -----------------------------------------------------------------------
// Returns True if any condition that may require banking is met.
// -----------------------------------------------------------------------
Function CheckIfBank: Boolean;
begin
result := false;
GameTab(4);
if InvFull then result := true;

if (maxtime > 0) and (maxtime <= ((GetTimeRunning div 1000) div 60)) then
begin
writeLn('maxtime true');
result := true;
CIBReason := 'Maximum Time Limit Reached';
exit;
end;

if (maxyews > 0) and (maxyews <= YewCount + CountItemDTM(YewDTM)) then
begin
writeLn('maxyews true');
result := true;
CIBReason := 'Maximum Yew Logs Cut Limit Reached';
exit;
end;
end;

// -----------------------------------------------------------------------
// Add all items in the back pack to a running total before banking.
// -----------------------------------------------------------------------
procedure CountBankedItems;
var a, b, c, d: integer;
begin
a := InvCount;
b := CountItemDTM(YewDTM);
c := CountItemDTM(NestSeedDTM);
d := CountItemDTM(NestRingDTM);

RndItemCount := (RndItemCount + (a - b - c - d));
YewCount := (YewCount + b);
NestCountSeeds := (NestCountSeeds + c);
NestCountRings := (NestCountRings + d);
LoadsBanked := LoadsBanked + 1;


// SRL Stats Reporting
ReportVars[0] := ReportVars[0] + b; // Yews Banked Reported to SRL Stats
ReportVars[1] := (ReportVars[1] + (c + d)); // Birds Nests Banked Reported to SRL Stats
ReportVars[2] := (ReportVars[2] + (a - b - c -d)); // Randoms Items Banked Reported to SRL Stats
ReportVars[3] := ReportVars[3] + 1; // Loads Banked Reported to SRL Stats
Banks := Banks + 1; // Official Banked Stats for Global SRL Report
end;

// -----------------------------------------------------------------------
// Get Current Colour of Bank and Tree Icons in Mini Map
// -----------------------------------------------------------------------
Procedure GetIconColours;
var StartFind: integer;
var i: integer;
begin
if not LoggedIn then SYCBReport('Not Logged in During Procedure: GetIconColours.', true, false);
MarkTime(StartFind);
i := 0;
repeat
if TimeFromMark(StartFind) >= 20000 then
begin
i := i + 1;
writeLn('Cannot Find Bank Icon.. Logging Out and In Again to Change Icon Position.');
if i >= 5 then SYCBReport('Could Not Find Bank Icon After 5 Login Attempts.', true, true);
Logout;
LoginPlayer;
MarkTime(StartFind);
end;

until FindSymbol(x, y, 'bank');

BankIconColour:= GetColor(x + 1, y);

If FindSymbol(x, y, 'tree') then
begin
TreeIconColour:= GetColor(x + 2, y);
end else
begin
SYCBReport('Cannot find tree icon. Quitting', true, true);
end;
end;

// -----------------------------------------------------------------------
// Populate AxeList with all Axe DTM's and Names
// -----------------------------------------------------------------------
procedure InitAxeTypes;
begin

SetLength(AxeList, 8);
AxeList[0].AxeDTM := DTMFromString('78DA6314616060E0664001A962BC0CFC409 A1' +
'188FF0301231790C1C58006189148202D03243809A8110612 4204' +
'D430010919FC6A00E8B5053D');
AxeList[0].AxeName := 'Dragon Axe';

AxeList[1].AxeDTM := DTMFromString('78DA639CCEC4C0F09401051485F13188006 94' +
'620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035 F751' +
'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03');
AxeList[1].AxeName := 'Rune Axe';

AxeList[2].AxeDTM := DTMFromString('78DA6374606060686440014D497C0C22409 A1' +
'188FF0301A337905187AAC6C6D786810BAA0604187D804415 AA1A' +
'7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8');
AxeList[2].AxeName := 'Adamant Axe';

AxeList[3].AxeDTM := DTMFromString('78DA633CC4C4C010C0C8800C5A53F818528 03' +
'448F43F10309E05AAF14155636111CCC0055503028CE7816A 5C51' +
'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64');
AxeList[3].AxeName := 'Mithril Axe';

AxeList[4].AxeDTM := DTMFromString('78DA63E4656060E06240038C0C1C609281E 13' +
'F1030F200194C986A1024901606126CA82AC4444450D5B002 0919' +
'FCE60000E9AC04AD');
AxeList[4].AxeName := 'Black Axe';

AxeList[5].AxeDTM := DTMFromString('78DA63CC636260D8C3C8800C5A53F818528 03' +
'448F43F10305602D5EC4055939B9ACAC0055503028CD54035 1B51' +
'D594E5E5A2AA29C154D3545989A20600C3BC0E32');
AxeList[5].AxeName := 'Steel Axe';

AxeList[6].AxeDTM := DTMFromString('78DA63BCC9C4C0309191010498182020C68 59' +
'34103488344FF0301E353A04C2F230332F0707161E082AA01 01C6' +
'0740356DA86A22838351D5BC00AAE94655932ACA89AAE639A 6394' +
'1DEDE286A00B1F90F6D');
AxeList[6].AxeName := 'Iron Axe';

AxeList[7].AxeDTM := DTMFromString('78DA63EC626060086140016DA97C0C22409 A1' +
'188FF0301E33420C307558D97A5220317540D08304E051201 A86A' +
'DCCCE451D54C07129EA86AFC6C5450D40000D77E0AA2');
AxeList[7].AxeName := 'Bronze Axe';
end;

// -----------------------------------------------------------------------
// Find the axe and move it to hand if in back pack. Returns False if no axe found.
// -----------------------------------------------------------------------
function FindTheAxe: boolean;
var ax, ay: integer;
var i: integer;
begin
for i := 0 to High(AxeList) do
begin
DTMAxe := AxeList.AxeDTM;
GameTab(4);
if FindDTM(DTMAxe, ax, ay, 546, 203, 737, 466) then
begin
writeLn('Found ' + AxeList.AxeName + ' Moving to Hand.');
Mouse(ax, ay, 10, 4, true);
wait(500 + Random(400));
result:= true;
exit;
end else
begin
GameTab(5);
if FindDTM(DTMAxe, ax, ay, 568, 285, 603, 321) then
begin
writeLn('Found ' + AxeList.AxeName);
result:= true;
exit;
end;
end;
result:= false;
end;
end;

// -----------------------------------------------------------------------
// Find Both Tree Icons in Mini Map
// -----------------------------------------------------------------------

function FindBothYews: boolean;
var x2, y2, y3: integer;
begin
if not LoggedIn then SYCBReport('Not Logged in During Procedure: FindBothYews.', true, false);
MakeCompass('N');
SetAngle(true);
x2:= 626; y2:= 25; y3:= 140;
if FindColorSpiral(x2, y2, TreeIconColour, 550, 7, 703, 161) then
begin
if FindColorSpiral(x2, y3, TreeIconColour, 550, 7, 703, 161) then
begin
if y3 - y2 > 25 then
begin
result:= true
exit;
end else result:= False;
end else result:= False;
end else result:= False;
SYCBReport('Could Not Find Both Yew Symbols (Function: FindBothYews)', true, true);
end;

// -----------------------------------------------------------------------
// Find Top and Bottom Trees Based on Icon Colour and Area of Map..
// Needs Tweaking Searches whole of Mini Map instead of small area
// -----------------------------------------------------------------------
function FindTopYew: integer;
var y2: integer;
begin
x:= 626; y:= 25; y2:= y;
if FindColorSpiral(x, y, TreeIconColour, 550, 7, 703, 161) then
begin
result:= y - y2;
end else result:= -1;
end;

function FindBottomYew: integer;
var y2: integer;
begin
x:= 626; y:= 140; y2:= y;
if FindColorSpiral(x, y, TreeIconColour, 550, 7, 703, 161) then
begin
result:= y2 - y;
end else result:= -1;
end;

// -----------------------------------------------------------------------
// Tries to Find Bank and Bank all Items
// -----------------------------------------------------------------------
Procedure GoToBank;
begin
if not LoggedIn then SYCBReport('Not Logged in During Procedure: GoToBank.', true, false);
SetRun(True);
If FindTopYew >= 0 then
begin
Mouse(x + 16, y - 10, 10, 10, true);
writeLn('Running to Bank');
Flag;
wait(500 + Random(1000));
If FindColor(x, y, BankIconColour, 550, 7, 682, 161) then
begin
If FindColorSpiralTolerance(x, y, BankCashierColour, x - 18, y - 15, x + 35, y + 35, 2) then
begin
Mouse(x, y, 2, 2, true);
Flag;
wait(500 + Random(1000));
If OpenBankFast('eb') then
begin
CountBankedItems;
Deposit(1,28,2);
wait(500 + Random(1000));
Deposit(1,28,2); // Just as a Double Check because, although it rarely happens, it does occasionally fail to bank all items.
wait(500 + Random(1000));
CloseBank;
if CheckIfBank and not InvFull then
begin
SYCBReport(CIBReason, true, false);
end else SYCBReport('Just Finished Banking in GoToBank', false, false);
end else SYCBReport('OpenBankFast cannot find the Bank Booth', true, true);
end;
end else If FindTopYew >= 0 then
begin
GoToBank;
exit;
end else SYCBReport('GoToBank Procedure Could Not Find Bank or Tree Icons.', true, true);
end else SYCBReport('GoToBank Procedure Could Not Find Tree Icons.', true, true);
end;

// -----------------------------------------------------------------------
// Basic AntiBan Proceedure.
// -----------------------------------------------------------------------
procedure AntiBan;
begin
case random(6) of
0: RandomRClick;
1: HoverSkill('woodcutting', False);
2: PickUpMouse;
3: BoredHuman;
4: RandomMovement;
5: BoredHuman;
end;
MakeCompass('N');
SetAngle(true);
end;

// -----------------------------------------------------------------------
// Moves to Top or Bottom Yew tree assuming you are in the bank.
// -----------------------------------------------------------------------
Procedure MoveToYews;
begin
if not LoggedIn then SYCBReport('Not Logged in During Procedure: MoveToYews.', true, false);

if Random(2) = 1 then
begin
writeLn('Moving to Top Yew');
CurrentTree := 1;
if FindTopYew >= 0 then
begin
SetRun(true);
Mouse(x + 3, y + 5, 5, 5, true);
Flag;
SetRun(false);
GameTab(4);
end else
begin
MoveToYews;
exit;
end;
end else
begin
writeLn('Moving to Bottom Yew');
CurrentTree := 0;
If FindBottomYew >= 0 then
begin
SetRun(true);
Mouse(x + 23, y, 7, 20, true);
Flag;
FindBottomYew;
Mouse(x + 4, y - 4, 5, 3, true);
Flag;
SetRun(false);
GameTab(4);
end else
begin
MoveToYews;
exit;
end;
end;
end;

// -----------------------------------------------------------------------
// Custom Run Away Procedure as the SRL RunAway Procedure usually fails to come back.
// WaitTime is MilliSeconds. Recomemded period is 30000 to 120000 or (Random(90000) + 30000)
// This has not been fully tested (BETA)
// -----------------------------------------------------------------------
Procedure CustomRunAway(WaitTime: integer);
var StartedWaiting: integer;
begin;
if not LoggedIn then SYCBReport('Not Logged in During Procedure: CustomRunAway.', true, false);
SetRun(True);
If FindTopYew >= 0 then
begin
Mouse(x + 16, y - 5, 10, 5, true);
writeLn('Running Away From Fight');
Flag;
If FindColor(x, y, BankIconColour, 550, 7, 682, 161) then
begin
Mouse(x, y, 3, 3, true);
Flag;
wait(800 + Random(2000));
Mouse(600, 40, 4, 4, true);
Flag;
wait(800 + Random(2000));
Mouse(570, 50, 4, 4, true);
Flag;
MarkTime(StartedWaiting);

repeat
FTWait(Random(10));
AntiBan;
if FindFight then SYCBReport('Still Fighting Even After RunAway: Random May have Poisoned or Followed you.', true, true);
until WaitTime <= TimeFromMark(StartedWaiting);

Mouse(690, 130, 4, 4, true);
Flag;
wait(800 + Random(2000));

If FindColor(x, y, BankIconColour, 550, 7, 682, 161) then
begin
Mouse(x, y + 10, 3, 3, true);
Flag;
wait(800 + Random(2000));
end else
begin;
Mouse(660, 140, 4, 4, true);
Flag;
wait(800 + Random(2000));
end;
end else
begin
SYCBReport('Could Not Find Bank To RunAway to during Fight. Procedure: CustomRunAway', true, true);
end;
end else If FindTopYew >= 0 then
begin
CustomRunAway((Random(90000) + 30000));
exit;
end else SYCBReport('Could Not FindTopYew During Procedure: CustomRunAway', true, true);
MoveToYews;
end;

// -----------------------------------------------------------------------
// Basic Check For all Randoms, Uses Standard SRL Checks.
// -----------------------------------------------------------------------
procedure CheckForAllRandoms;
begin
FindNormalRandoms;
FindInventoryRandoms;
FindNonInventoryRandoms;
FindTalk;
DwarfItem;
if FindFight then CustomRunAway((Random(90000) + 30000));
end;

// -----------------------------------------------------------------------
// Checks for Randoms, Occasionally Re-Clicks On Yew & Performs an AntiBan Functions
// Until Yew Tree has Been Fully Cut Down.
// -----------------------------------------------------------------------
Procedure CutTillDown;
var StartCut, RandWait: integer;
begin
MarkTime(StartCut);
RandWait := (12000 + Random(33000));
repeat
if not LoggedIn then SYCBReport('CutTillDown: Not Logged In. Lost Connection or Unsolveable Random?', true, false);
FindEnt(YewCoords.x, YewCoords.y, true)
CheckForAllRandoms;
if TimeFromMark(StartCut) > RandWait then
begin
if not FindEnt(YewCoords.x, YewCoords.y, true) then
begin
CheckForAllRandoms;
if IsUptext('down Yew') then
begin
if random(100) >= 70 then
begin
AntiBan;
end else Mouse(YewCoords.x, YewCoords.y, 5, 5, true);
CheckForAllRandoms;
end else exit;
end;
CheckForAllRandoms;
MarkTime(StartCut);
RandWait := (12000 + Random(33000));
end;
until not IsUpText('down Yew') or CheckIfBank;
end;

// -----------------------------------------------------------------------
// Find Yew Tree Foliage and Populate YewCoords
// -----------------------------------------------------------------------
Function FindYew: boolean;
begin
FindColorsSpiralTolerance(255, 166, YewCoords, YewColour, 5, 5, 515, 337, 4);
If Length(YewCoords) <= 0 then result := false
else for i:= 0 to High(YewCoords) do
begin
MMouse(YewCoords.x, YewCoords.y, 3, 3)
If IsUpText('down Yew') then
begin
result:= true;
exit;
end;
end;
result := false;
end;

// -----------------------------------------------------------------------
// Changes Tree. Moves up if your at Bottom Yew and VisaVersa.
// -----------------------------------------------------------------------
Procedure ChangeTree;
begin
if FindBothYews then
begin
CheckForAllRandoms;
If FindTopYew < FindBottomYew then
begin
FindTopYew;
Mouse(x + 4, y + 15, 5, 5, true);
Flag;
end else if FindTopYew > FindBottomYew then
begin
FindBottomYew;
Mouse(x + 4, y - 15, 5, 5, true);
Flag;
end;
First:= true;
end;
end;

// -----------------------------------------------------------------------
// Start Cutting Down Tree
// -----------------------------------------------------------------------
Procedure CutDownTree;
begin
if not LoggedIn then SYCBReport('CutDownTree: Not Logged In. Lost Connection or Unsolveable Random?', true, false);
First:= True;
repeat
if not LoggedIn then SYCBReport('CutDownTree: Not Logged In. Lost Connection or Unsolveable Random?', true, false);
If FindYew then
begin
First:= False;
If not FindEnt(YewCoords.x, YewCoords.y, true) then
begin
Mouse(YewCoords.x, YewCoords.y, 4, 4, true);
CheckForAllRandoms;
CutTillDown;
end;
end else If not First and not CheckIfBank then
begin
ChangeTree;
end else if random(1000) <= 200 then AntiBan;
CheckForAllRandoms;
until CheckIfBank;
end;

// -----------------------------------------------------------------------
// Sets up all the initial items.
// -----------------------------------------------------------------------
Procedure SetupSYCB;
begin
Disguise(HideScar);
ScriptID := '611';
DeclarePlayers;
InitAxeTypes;
if not LoggedIn then LoginPlayer else Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars);
YewDTM := DTMFromString('78DA6314666060E06740017ED65C6021462 0F' +
'E0F048C9C40061B031A60442281B434906026A04611D32E0C 3562' +
'404282801A907BC4F1AB0100B63D057D');
NestSeedDTM := DTMFromString('78DA6314646060E0614001FE11DC0CFC409 A1' +
'188FF0301232790C1CA8006189148202D0C245808A891C1B4 0B43' +
'8D08901025A006E41E61FC6A00BFF8057E');
NestRingDTM := DTMFromString('78DA63E4636060E06240013B168A33F0036 94' +
'620FE0F048CEC40062B031A60442281B430906021A0461A48 F011' +
'5003B25884801A2620C18B5F0D00489B0623');
ActivateClient;
YewCount := 0;
LoadsBanked := 0;
TreeIconColour := 0;
BankIconColour := 0;
NestCountSeeds := 0;
NestCountRings := 0;
BirdsNestsMissed := 0;
LampSkill := PickSkill;
ClearDebug;
ClearReport;
if not FindTheAxe then SYCBReport('Could not find any axes.', true, false);
repeat
GetIconColours;
until (BankIconColour > 0) and (TreeIconColour > 0);
MakeCompass('N');
SetAngle(true);
end;

// --------------------- Program Starts --------------------------

begin
SetupSRL;
SetupSYCB;
repeat
MoveToYews;
CutDownTree;
GoToBank;
until not LoggedIn;
end.

// Version History:
// V1.0 beta First public beta release
// V1.01 beta Minor Tweaks to a few Coordinates & small counting fix.
// V1.02 beta Fixed a few bugs introduced when I cleaned up the script for release.
// Improved Item Count Function & Fixed intermitent problems with it.
// Created Custom Runaway From Fight Routine just for Edgeville Yew Area. (beta)
// V1.03 beta Fixed the intermittent FindTalk Random bug.
// Improved CustomRunAway procedure.
// Integrated SRL Stats.
// Minor bug fixes and optimisations.
// V1.04 beta Updated to work with SRL 11
// increased speed of cutting.
// V1.05 beta Fixed Minor Reorting issue for RandomItemsBanked
// Lots of small improvements.
// Last Version Posted in First Scripts, If you want further versions become a Junior Member.

 

Wow man, not cool to take ANY credit from anyone elses script.

Plus did you ask him first?

 

yes i did and i fixed it up so i do get some credit

 

how could we use the scripts? What they for?

 

caramon we use them for rs boting

 

lol theres no way in hell im going to read all of that lol

 

Code:

Use Code Tags!

 

That's very confusing, and also I don't wanna type my usename and pass into it

 

[Runtime Error] : Exception: "Invalid encrypted string" in line 280 in script

just so you know....

 

Here's the best tip you'll see in this thread get more then 10 posts in srl and become junior member so you can use shuttleu's yew cutter..

 

worked for me. thanks

 

the S.M.A.R.T wont load the update database.

 

im new at scar and it keeps sayng failed when compiling
{.include SRL\SRL.scar} not included
{.include SRL\SRL\skill\WoodCutting.scar} not included

 

Lol, bjara that means you haven't setup SCAR properly.
Uninstall it follor some guide and go through it again.

 

hopefully it works

 

[Runtime Error] : Exception: "Invalid encrypted string" in line 248 in script C:\Games\RS\Scar\Yews.scar (i named the script yews, lol )

the axelist is giving the error..
247- SetLength(AxeList, 8);
248- AxeList[0].AxeDTM := DTMFromString('78DA6314616060E0664001A962BC0CFC409 A1' +
249- '188FF0301231790C1C58006189148202D03243809A8110612 4204' +
250- 'D430010919FC6A00E8B5053D');
251- AxeList[0].AxeName := 'Dragon Axe';

once deleted it starts with error messages in the other 7 axe;lists...

what the hell is wrong? the version of scar i used is 3.15b... please help me...
im looking for a working non-outdated Yew cutter for Edgville or Varock (i prefer edgeville) but non of them seems to work ;(

 

Hmm.. wont use it, seems too many problems with it L..
Unless u fix and reply to them

 

ill try and use this and see what it says for me