Draynor WCer Help

This is not my script, it was made by Surajd. - I tried compiling it gives me this error:

Code:

Include file C:\Program Files\SCAR 2.03\includes\Bankpinner.scar does not exist.
Failed when compiling

I have the bankpinner.scar file already in a folder called "Older Scripts" with BoxBreaker etc. I deleted everything containing bankpinner though, but it gave me this error:

Code:

Line 327: [Error] (7441:55): comma (',') expected in script

I combined the "1" and "10" to make it work, but then my mouse wouldnt click. I dont know if it wouldnt click from the beggining either..Any ideas?

Thanks

Code:

//------------------------------------------------------------------------------
//Draynor Willow Smasher Advance + Banking v1.09 by Surajd
//Use Low Detail: 32-Bit Screen Reso: 1024x768 (Doesn't Really Matter)
//Only for RS2, tested on RS2 Jagex Client maximised
//START NEXT TO DRAYNOR TREES!!! WILLOW TREES!!
//Email me on [email protected] if you encounter and problems (Errors)!
//All Anti-Randoms even Ent and AxeFinder! AxeFinder still under testing
//Only Tested on Scar v2.03!!!
//Setup Line(s) 40 - 53 ; Other Option(s) when you start!

//------------------------------------------------------------------------------
//v1.01: AxeFinder taken from Pwnd's Power Chopper
//v1.02: Fixed Bugs
//v1.03: Added protection from Ent and mods :P- Thanks to Mad Cow!! U rock! 
//v1.04: Minor Bug Fixes! Willow Cutting Faster!!!
//v1.05: Added how many Willows to cut and if it cuts that ammount, it logs out!
//v1.06: Used MadCows Mod Protection, very nice MadCow!
//v1.07: Added options for Consts and fixed How many willows to cut
//v1.08: Fixed Willow Clicking bug and fixed how many trees to smash command!
//v1.09: Fixed walking to bank and added BankPin & fixed some Anti-Randoms!
//------------------------------------------------------------------------------

////////////////////
//Helpers+Testers://
////////////////////
//Home - Tester
//Kane - Helper/Form Maker #1
//Drig - Tester/Form Maker #2
//NeonKnight - Tester/Helper
//MadCow - Sweet Ent protection and various commands
//Pwnd - AxeFinder still under testing
//Afireinside - BankPinner include :P
//------------------------------------------------------------------------------


Program DraynorWillowSmasher;
{.include Squig.txt}
{.include Bankpinner.scar}

//================================================== ===================
Const
Willow1 = 6654104; //Willow Tree Colour 1
Willow2 = 5210232; //Willow Tree Colour 2
Willow3 = 5748904; //Willow Tree Colour 3

MMBankSymbol = 4572894; //Minimap Colour of Bank Symbol

HowMany = 1000; //This is how many Willow Trees to smash,
//when it's done it will Log Out.

BankPin = '1234'; //Enter your bank pin here 
GLampSkill = 'WoodCutting'; //Choose your skill if Genie is found
//================================================== ===================

Var
x,y,z,xx,yy:Integer;
frmDesign : TForm;
Label11 : TLabel;
Label22 : TLabel;
Label33 : TLabel;
UserNameE : TEdit;
PassWordE : TEdit;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
Button11 : TButton;
AutoLogin, EquipAxe: Boolean;
application:tapplication;
Self: TForm;
disguised:string;
WillowAntiEnt,AntiEnt:Integer;
Axe1,Axe2,Axe3,Handle,A1,A2,A3,H : Integer;
AxefindAP : Integer;
STime1, FTime1, RLogout1 : Integer;
UpChars,CountWillows,WillowsCut:Integer;
XPis:extended;logtypeis:String;


Procedure AntiBan;
begin
Application:= GetApplication;
Application.Title:= disguised;
Self:= GetSelf;
GetSelf.Caption:= 'Stealth Mode';
end;

////////////////////////////////////////////
// XxKanexX Made The Form //
// And Form Settings //
////////////////////////////////////////////

Procedure SaveSettings(sender: TObject);
begin
AutoLogin := False;
EquipAxe := False;
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
If(CheckBox1.Checked)Then
AutoLogin := True;
If(CheckBox2.Checked)Then
EquipAxe := True;
User := UsernameE.text;
Pass := PasswordE.text;
end;

Procedure LoginForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 528;
frmDesign.Top := 382;
frmDesign.Width := 267;
frmDesign.Height := 144;
frmDesign.BorderStyle := bsToolWindow;
frmDesign.Caption := 'L0gIn FoRm - Draynor Willow Smasher!';
frmDesign.Color := clGray;
frmDesign.Font.Color := clWhite;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [fsUnderline];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 37;
Label11.Top := 2;
Label11.Width := 51;
Label11.Height := 13;
Label11.Caption := 'Username:';
Label22 := TLabel.Create(frmDesign);
Label22.Parent := frmDesign;
Label22.Left := 167;
Label22.Top := 2;
Label22.Width := 49;
Label22.Height := 13;
Label22.Caption := 'Password:';
Label33 := TLabel.Create(frmDesign);
Label33.Parent := frmDesign;
Label33.Left := 36;
Label33.Top := 98;
Label33.Width := 199;
Label33.Height := 13;
Label33.Caption := 'Draynor Willow Smasher - Made By Surajd';
UserNameE := TEdit.Create(frmDesign);
UserNameE.Parent := frmDesign;
UserNameE.Left := 5;
UserNameE.Top := 21;
UserNameE.Width := 121;
UserNameE.Height := 21;
UserNameE.TabOrder := 8;
PassWordE := TEdit.Create(frmDesign);
PassWordE.Parent := frmDesign;
PassWordE.Left := 132;
PassWordE.Top := 22;
PassWordE.Width := 121;
PassWordE.Height := 21;
PassWordE.PasswordChar := #1;
PassWordE.TabOrder := 9;
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 25;
CheckBox1.Top := 48;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Equip Axe?';
CheckBox1.TabOrder := 10;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 116;
CheckBox2.Top := 48;
CheckBox2.Width := 132;
CheckBox2.Height := 17;
CheckBox2.Caption := 'Auto Random Logout?';
CheckBox2.TabOrder := 11;
Button11 := TButton.Create(frmDesign);
Button11.Parent := frmDesign;
Button11.Left := 88;
Button11.Top := 74;
Button11.Width := 75;
Button11.Height := 18;
Button11.Caption := 'Continue';
Button11.Font.Color := clWhite;
Button11.Font.Height := -11;
Button11.Font.Name := 'MS Sans Serif';
Button11.Font.Style := [];
Button11.ParentFont := False;
Button11.TabOrder := 12;
Button11.OnClick := @SaveSettings;
UsernameE.Font.Color := CLBlack;
PasswordE.Font.Color := CLBlack;
PasswordE.Font.Style := []
End;

procedure SafeLoginForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('LoginForm', v);
end;

procedure ShowFormModal1;
begin
frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal1', v);
end;

procedure CallForm;
begin
SafeLoginForm;
SafeShowFormModal;
end;


//----------==============------------================----------------
//----------This is the Main Script------------
//-----------=============-------------==============-----------------

Procedure SetupOptions;
begin
MapCompass('N');
SetRunOn;
Openbag;
CountWillows:=0
WillowsCut:=0
end;


function IsUpText(s: string):Boolean;
begin
Result:= IsTextAtEx(7, 7, s, 100, UpChars, True, False, 0, 2, -1);
end;


function CheckEnt: Boolean; //From MadCows Lovely Any Cutter!
var
x, y: Integer;
begin
Result := false;
if(IsUpText('Chop down'))and
((FindColorTolerance(x, y, 57311, 80, 5, 160, 25, 10))or
(FindColorTolerance(x, y, 118478, 80, 5, 160, 25, 10))or
(FindColorTolerance(x, y, 53199, 80, 5, 160, 25, 10)))then
Result := true;
end;

procedure FindEnts;
begin
if (checkent=true) then
begin
Writeln('Found an evil ent!')
Direction:='E'
MouseC(638, 84, 1)
wait(5000+random(2000))
end;
end;


Procedure NewAntiEnt;
begin
if(IsUpText('Chop down'))and
((FindColorTolerance(x, y, 57311, 80, 5, 160, 25, 10))or
(FindColorTolerance(x, y, 118478, 80, 5, 160, 25, 10))or
(FindColorTolerance(x, y, 53199, 80, 5, 160, 25, 10)))then

begin
WillowAntiEnt := BitmapFromString(39, 13, 'z78DA33301889C00' +
'D086024256A88514FAA39A33E1DF529ED7C4A2DF181F22931 22B4' +
'88536459E25552623BF13E1D6CE223C1A7E4B97668F9143F4 97C1' +
'EA1563AA1B54FF18B535226D03A7F116F3BF1E2A360780000 0A53' +
'6F6F');


if(FindBitmapToleranceIn(WillowAntiEnt,x,y,5,3,39, 13,4))then

begin
Writeln('Found an evil ent!')
Direction:='E'
MouseC(638, 84, 1)
wait(5000+random(2000))
end;
end;
end;

procedure ModCheck;
var
x2, y2, abcd, bmpModcrown, bmpStaffcrown : integer;
begin
bmpModcrown := BitmapFromstring(13, 11,
'9797970000000000000000000000000000009797970000000 00000' +
'000000000000000000979797E0E0E09797970000000000000 00000' +
'E0E0E0A2A2A2979797000000000000000000E0E0E0979797E 0E0E0' +
'979797000000000000000000E0E0E0A2A2A29797970000000 00000' +
'000000E0E0E0979797E0E0E0A2A2A2979797000000E0E0E0A 2A2A2' +
'A2A2A2A2A2A2979797000000E0E0E0A2A2A2979797E0E0E0A 2A2A2' +
'979797000000E0E0E0A2A2A2A2A2A2A2A2A2979797000000E 0E0E0' +
'A2A2A2979797000000E0E0E0A2A2A2A2A2A2A2A2A2A2A2A2A 2A2A2' +
'A2A2A2A2A2A2A2A2A2A2A2A2979797000000000000E0E0E0A 2A2A2' +
'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29 79797' +
'000000000000000000E0E0E0sA2A2A2000000000000A2A2A2 000000' +
'000000A2A2A2979797000000000000000000000000E0E0E0A 2A2A2' +
'000000A2A2A2000000A2A2A2000000A2A2A29797970000000 00000' +
'000000000000E0E0E0A2A2A2000000A2A2A2000000A2A2A20 00000' +
'A2A2A29797970000000000000000000000009797979797979 79797' +
'979797979797979797979797979797979797000000000000' );
bmpStaffcrown := BitmapFromstring(13, 11,
'D69E21000000000000000000000000000000D69E210000000 00000' +
'000000000000000000D69E21FFFF84D69E210000000000000 00000' +
'FFFF84F7FF08D69E21000000000000000000FFFF84D69E21F FFF84' +
'D69E21000000000000000000FFFF84F7FF08D69E210000000 00000' +
'000000FFFF84D69E21FFFF84F7FF08D69E21000000FFFF84F 7FF08' +
'F7FF08F7FF08D69E21000000FFFF84F7FF08D69E21FFFF84F 7FF08' +
'D69E21000000FFFF84F7FF08F7FF08F7FF08D69E21000000F FFF84' +
'F7FF08D69E21000000FFFF84F7FF08F7FF08F7FF08F7FF08F 7FF08' +
'F7FF08F7FF08F7FF08F7FF08D69E21000000000000FFFF84F 7FF08' +
'F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08D 69E21' +
'000000000000000000FFFF84F7FF08000000000000F7FF080 00000' +
'000000F7FF08D69E21000000000000000000000000FFFF84F 7FF08' +
'000000F7FF08000000F7FF08000000F7FF08D69E210000000 00000' +
'000000000000FFFF84F7FF08000000F7FF08000000F7FF080 00000' +
'F7FF08D69E21000000000000000000000000D69E21D69E21D 69E21' +
'D69E21D69E21D69E21D69E21D69E21D69E21000000000000' );
if (findbitmaptolerancein(bmpStaffCrown,x2,y2,1,345,1 10,430,50))
or (findbitmaptolerancein(bmpModCrown,x2,y2,1,345,110 ,430,50)) then
begin
abcd:=0
TakeScreenShot('Staff Found',1);
Status('Staff or Mod found...');
writeln('Staff/Mod Found so logged out');
Logout;
repeat
Status(inttostr(20-abcd)+' minutes remaining until login...')
abcd:=abcd+1;
wait(60000);
until(abcd>20);
end;
FreeBitmap(bmpStaffCrown);
FreeBitmap(bmpModCrown);
end; //End of MadCow's Stuff


Procedure XPAmounts;
begin
if logtypeis = 'Willow' then XPis:= 67.5
end;


Procedure Getaxecolors; //Taken from pwnd's PowerChopper (Axe Randoms)
begin
Writeln('Getting axe and handle colors...')
A1 := Getcolor(591, 219)
A2 := Getcolor(590, 221)
A3 := Getcolor(589, 219)
H := Getcolor(582, 224)
Writeln('Axe colors ' + inttostr(A1)+ ' ' + inttostr(A2) + ' ' + inttostr(A3))
Writeln('Handle color ' + inttostr(H))
end;

Function Axelost : boolean;
var x, y : integer;
begin
If(findcolortolerance(x, y, Axe1, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, Axe2, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, Axe3, 560, 210, 740, 460, 5)) then
result := true
else
result := false
end;

Procedure FixAxe;
Var x, y : integer;
begin
if(Axelost = false)then
begin
Axefindap := Axefindap + 1
if(Findobject('Take A', Axe1, 3))then
getmousepos(x,y)
MouseR(x,y,xx,yy,z)
if(not(findobject('Take A', Axe1, 3)))Then
If(findcolortolerance(x, y, 206, 565, 5, 725, 160, 5))then
MouseR(x,y,xx,yy,z)
Mapflagging;
If(findobject('Take A', Axe1, 3))then
MouseR(x,y,xx,yy,z)
begin
if(findobject('Use A', Axe1, 3))Then
getmousepos(x, y)
MouseR(x,y,xx,yy,z)
wait(75 + random(75))
If(findcolortolerance(x, y, handle, 565, 5, 725, 160, 10))then
MouseR(x,y,xx,yy,z)
Writeln('Axe head successfully fixed, continuing...');
end;
end;
If(axelost = true)then
begin
end;
end; //End of Pwnd's AxeFinder!

Procedure RandomLogoutF;
Begin
RLogout1 := RLogout1 + Random(2)+1;
If(RLogout1 = 20+Random(10))Then
Begin
STime1 := GetSystemTime;
Logout;
Wait(5000+Random(3000))
Login;
FTime1 := GetSystemTime;
Writeln('Took A '+IntToStr(STime1-FTime1)+'MS Break.')
RLogout1 := 1;
End;
End;

Procedure AntiRandoms;
begin
NewAntiEnt;
Findrandoms;
ModCheck;
GetAxeColors;
FixAxe;
LookForMime;
FindMaze;
SolveFord;
SolveFrog;
FindForester;
if(FightFound=True)then
Writeln('Monster Found! Running away and continuing...');
wait(4000+random(200));
MouseR(621,132,xx,yy,1);
end;

Procedure FindWillow;
begin
if(FindObject('Chop',Willow1,12))or
FindObject('Chop',Willow2,13)or
FindObject('Chop',Willow3,11)then
begin
Writeln('Found the Willow, Searching for Colour...');
wait(1000+random(300));
getmousepos(x,y);
MouseC(x,y,1);
Writeln('Smashing Willow...');
WillowsCut:=WillowsCut+1
CountWillows:=CountWillows+1
NewAntiEnt;
wait(1004+random(304));
MapFlaggingR;
begin
AntiRandoms;
FindEnts;
wait(3000+random(500));
end;
end;
end;

Procedure LoadBitmap;
begin
AntiEnt := BitmapFromString(38, 10, 'z78DADD96D10A80200C457' +
'F6953827A8C5CFFFF4995F6B05A5D0C51241F44B6CBF4B84D 1427' +
'8E268933BD0CC9D0DCF41CF57CD5EF16E231AC21F0400D473 AF92' +
'28B902BD15846ABFF1AA77346F7174650939D33DAEE6B9347 BDAF' +
'14BF12E7FDF399853BA3174F33B6E05DBE32BEC5494A7C27C 07BB' +
'C09E1F0E61061C6F6765C817F654CB3B668465B159A485BCA FBAE' +
'36A365D18C0F5ED80B35CE6C3392F3EBC0D1D27A03B91CD4B 2');
if(FindBitmap(AntiEnt,x,y))then
begin
MouseR(641,32,xx,yy,1);
MapFlaggingR;
wait(5000+random(500));
MouseR(631,108,xx,yy,1);
wait(3000+random(200));
MouseR(669,106,xx,yy,1);
end;
end;


Procedure SearchBag;
begin
if(FullBag=True)then
begin
Writeln('Going to Deposit...')
MouseR(677,55,xx,yy,1);
MapFlaggingR;
OpenBank;
Enterbankpin(BankPin);
wait(1000+random(200));
Deposit(1,1,0);
Writeln('Successfully Deposited All Willows!')
wait(5000+random(350));
MouseR(616,111,xx,yy,1);
MapFlaggingR;
End;
End;



Procedure ProgressReport;
begin
writeln('|======================================== ==========================|')
writeln('|You are using Draynor Willow Smasher + Banker v1.09 by Surajd |')
writeln('|If there are any problems or bugs email me on [email protected] |')
writeln('|You have been using it for '+inttostr(timerunningmin)+' Mins |')
writeln('|Smashed '+inttostr(CountWillows)+' Willow Trees |')
writeln('|Gained '+floattostr(WillowsCut*67.5) +' XP so far |')
writeln('|======================================== ==========================|')
end;


Procedure MainScriptLoop;
begin
FindWillow;
AntiRandoms;
SearchBag;
ProgressReport;
RandomLogoutF;
end;


Begin
SetupSquig;
wait(1000);
Writeln('You are using Draynor Willow Smasher + Banker v1.09')
wait(1000);
Writeln('----------------------BY----------------------')
wait(1000);
Writeln(' (¯ | | |¯¯) /\ | |¯¯\ ')
wait(1000);
Writeln(' ._) \._./ |¯¯\ /---\ ._/ * |__/ ')
LampSkill:=GLampSkill
CallForm;
AntiBan;
SetupOptions;
ProgressReport;
Repeat
SearchBag;
MainScriptLoop;
Until(CountWillows=HowMany)
Logout;
End.
------------------------------Don't Copy This Broken Lines-----------------

EDGEVILLE YEW CUTTER+BANKER

{================================================= ========================]
[ Stupid3ooo's StupidChopperBanker ]
[ version: 1.01 ]
[================================================== =======================]
| Description: |
| A macro that starts in the Draynor or Edgeville bank and walks to the |
| trees, either Yew or Willow, south of the bank. It chops a full load of|
| logs from the Yew or Willow trees then returns to the bank and repeats |
| the process. |
| Instructions: |
| 1.Set the Runescape brightness to V-bright, and your computer's |
| resolution to 32bit resolution. |
| 2.Need SCAR version 2.0.3. |
| 3.Start the script in the Draynor or Edgeville bank so that the trees |
| are visible in the minimap. |
| 4.Click and drag the cross heir onto the Runescape client and press |
| the green arrow at the top to run the script. |
| 5.You may set your own colors lines 37-39 (optional). |
[================================================== =======================]
[ *Be sure to open SSI2.txt for more options. ]
[ *For general SCAR help go to: ]
| http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm ]
[ Thanks to, RS Cheating community ]
[ *PLEASE POST ANY BUGS/HELP IN THE FORUMS OR E-MAIL ]
[ [email protected], or [email protected] ]
[ If you like pwease donate to me  at: ]
[ http://www.stupidscripts.com ]
[================================================== =======================}

program StupidChopperBanker;

{.include SSI2.txt}
{.include BoxBreaker.txt}

const
//=//===============Colors(Leave as 0 to let script find)==============\=\\
MMBankColor= 3460064;//Color of the trees in the minimap.(SS:3060683)
MMTreeColor= 96769;//Color of the trees in the minimap.(SS:15891)
MSTreeColor= 606264;//Color of the trees in the mainscreen. (SS:1849400)
//=\\=============================================== ==================//=\\
//=\\ Under the varibles you may disable the forms and setup options. //=\\
//=\\=============================================== ==================//=\\

var
TreeMapColor,TreeColor,Report,Report2,Banks,MaxWai t,TinderBox,LogBmp,
BankColor,Location,Mark:integer;
UseForm,NoAxe,EquipAxe,StartScript:boolean;
frmDesign,frmMore:TForm;
labPassword,labUsername,labMaxWait,labMaxWait2,lab Location:TLabel;
edtUsername,edtPassword,edtMaxWait:TEdit;
bMoreOptions,bStart,bSave,bDonate:TButton;
cbLogsOut,cbChats,cbEquipAxe,cbRotates,cbScarScape :TCheckBox;
cboxLocation:TComboBox;

procedure Setup;
begin
//=\\============================Setup============== ==================//=\\
UseForm:= true;//If you wish to use the form.
Username:= Username;//Username.
Password:= Password;//Password.
ScarScape:= false;//Set to true if you are using ScarScape.
LogsOut:= true;//If you want to log out every so often for antiban.
Chats:= true;//If you want to randomly chat for anti-ban.
Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
MaxWait:= 300;//Maximum time in seconds to wait while chopping a tree.
Location:= 1;//1= Draynor(Willow), 2= Edgeville(Yew)
EquipAxe:= false;//If you can/want to equip your axe.
//=\\=============================================== ==================//=\\
end;

//DO NO TOUCH BELOW

//==============================Misc Procedures===============================\\

procedure ProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:Lo ngInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if(banks>0)then
avtime:=Seconds/banks;
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
writeln(' ');
writeln('<=================Progress Report================>');
WriteLn('Worked for '+Time);
WriteLn('Banked '+IntToStr(banks)+' loads[s].');
WriteLn('Banked '+IntToStr(banks*27)+' logs[s].');
if(Location=1)then
WriteLn('Gained '+floattostr(30*(banks*27))+'xp.');
if(Location=2)then
WriteLn('Gained '+floattostr(60*(banks*27))+'xp.');
if(Location=1)then
WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
' logs and '+floattostr(3600/avtime*30*27)+' xp an hour.');
if(Location=2)then
WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
' logs and '+floattostr(3600/avtime*60*27)+' xp an hour.');
WriteLn('Random Event Report:');
if(fights>0)then WriteLn(' Fought '+IntToStr(fights)+' time[s].');
if(talks>0)then WriteLn(' Talked to '+IntToStr(talks)+' Random event[s].');
if(lamps>0)then WriteLn(' Used lamps '+IntToStr(lamps)+' time[s].');
if(boxes>0)then WriteLn(' Solved '+IntToStr(boxes)+' box[es].');
if(logs>0)then WriteLn(' Logged in '+IntToStr(logs)+' time[s].');
if(foresters>0)then WriteLn(' Solved '+IntToStr(foresters)+' forester[s].');
if(frogs>0)then WriteLn(' Solved '+IntToStr(foresters)+' frog[s].');
if(doctors>0)then WriteLn(' Solved '+IntToStr(doctors)+' doctor[s].');
if(certers>0)then Writeln(' Solved '+IntToStr(certers)+' certer[s].');
writeln('<======================================== ========>');
Report2:=GetSystemTime;
end;
end;
end;

procedure FindRandoms;
begin
FindBox;
FindNormalRandoms;
AntiBan;
FindDoctor;
if(not(FindAxe))then
NoAxe:=true;
if(FindFight)then
begin
if(Location=1)then
RunAwayDirection('S');
if(Location=2)then
RunAwayDirection('N');
Wait(5000+random(1000));
RunBack;
end;
end;

procedure SetColors;
begin
TreeMapColor:=MMTreeColor;
TreeColor:=MSTreeColor;
BankColor:=MMBankColor;
end;

//=========================Color Finding Procedures===========================\\

procedure FindTreeColor;
var
c:integer;
begin
repeat
c:=c+1;
if(FindObj('Chop',1849400,10))then
begin
if(FindColorTolerance(x,y,1849400,x-30,y-30,x+30,y+30,10))then
begin
TreeColor:=GetColor(x,y);
break;
end;
end;
until(c>10)or(TreeColor>0)
if(TreeColor>0)then
begin
writeln('TreeColor: '+inttostr(TreeColor));
end else
begin
WriteLn('Could not find tree color, please stand next to a tree and '+
'make sure the tree spot symbol is visible in the minimap, then'+
' run the script again');
TerminateScript;
end;
end;

procedure FindMapTreeColor;
var
MMTreeBmp,c:integer;
acc,angle:Extended;
begin
if(Location=1)then
begin
MMTreeBmp := BitmapFromString(8, 8, 'z78DAA5CF310AC0300C43D12BC591B1' +
'BD266DEE7FA586AA83C150285DDEA2BF28D41D2D92DD0CB2A A310' +
'3E86C64E99441B922ECE8C8B2CF25AD65F67FAF4D4D90AD7D B88F' +
'FDE516032A4EF7BB8593D6F2BD7FFCD85F763D5379');
FindDeformedBitmapToleranceRotationIn(MMTreeBmp,x, y,582,37,700,117,70,0,acc,PI/10,0,2*PI,angle);
repeat
c:=c+5;
if(FindColorTolerance(x,y,2321464,x-10,y-10,x+10,y+10,c))then
TreeMapColor:=GetColor(x,y);
until(TreeMapColor>0)or(c>70);
end;
if(Location=2)then
FindSymbolColorIfNeeded('rare trees',true,TreeMapColor);
if(TreeMapColor>0)then
begin
WriteLn('TreeMapColor: '+inttostr(TreeMapColor));
end else
begin
WriteLn('Could not find tree color, please stand next to a tree and '+
'make sure the tree spot symbol is visible in the minimap, then'+
' run the script again');
TerminateScript;
end;
end;

//========================Map Walking procedures==============================\\

procedure ToTrees;
begin
RoadWalk(TreeMapColor,'S');
FlagAtColor(TreeMapColor);
end;

procedure ToBank;
begin
if(not(FindMMColor(BankColor)))then
begin
RoadWalk(TreeMapColor,'N');
Flag;
end;
if(Location=1)then
ToBankers(BankColor,5,0);
if(Location=2)then
ToBankers(BankColor,-5,0);
FlagAtColor(BankColor);
end;

//========================Main Screen Procedures==============================\\

procedure Bank;
begin
if(FindColor(x,y,BankColor,608,43,688,123))then
begin
FindBox;
if(NoAxe=true)and(EquipAxe=true)then
begin
GameTab(5);
Mouse(593,303,r,r,true);
Wait(1000+random(100));
GameTab(4);
end;
OpenBank;
if(BankScreen)then
begin
if(NoAxe=true)then
begin
ClickAllItemsColorWait('All',65536,1000+Random(100 ));
Withdraw(1,1,1);
end else
begin
if(EquipAxe=false)then
Deposit(2,28,2);
if(EquipAxe=true)then
ClickAllItemsColorWait('All',65536,1000+Random(100 ));
end;
if(NoAxe=true)and(EquipAxe=true)then
begin
FindAxeHeadColor;
ClickItemColor(AxeHeadColor,true);
end;
Banks:=Banks+1;
NoAxe:=false;
ProgressReport;
end;
CloseWindow;
end;
end;

procedure ChopTree;
var SysTime:integer;
begin
if(FindObj('Chop',TreeColor,0))then
begin
Mouse(x,y,r,r,false);
if(not(FindColor(x,y,65535,x,y,x+100,y+50)))then
begin
ChooseOption('Chop');
Flag;
Wait(1000+random(100));
MarkTime(SysTime);
FindEnt(TreeColor);
repeat
FindRandoms;
if(not(Option('Chop')))then
Break;
FindEnt(TreeColor);
Wait(1000+random(100));
until(TimeFromMark(SysTime)>MaxWait*1000)or(Invent oryFull)
end else
begin
ChooseOption('Cancel');
FindEnt(TreeColor);
end;
end;
end;

procedure LoadBmps;
begin
TinderBox := BitmapFromString(30, 8, 'z78DABD946B8E83300C84' +
'AF94871D7B7E1A02F73FD2BA71B44AB5546DD5DD65A41102E 47C3' +
'8E33091D58DC31B752AE976659C20D770CB6868775E21900B 6700' +
'3ABD6183CDFBF1B615AA09AF3858CDD595B46A93DDD585848 28D1' +
'7E67872B1EEEA8A8E7D3A70A03FF1F1E51BB4A2BB6E7A2ABB 540E' +
'E99A455DD2CE764CE6A5B77395CD12CEE9BB65D707FE06ADE AA11' +
'DF906E8D445F3ECF026554A4B6C6CC119BE2523A3BFF0D793 0043' +
'D21345E11ACC9187C67C70F79BEADF2ECCFFD3C987B43BB22 B321' +
'CA98026392315DC595882B3A6922214DFA978E09F503DA1ED 28AE' +
'48457438E6AE8A89458757DA704F33559DE43159317DE37C9 8356' +
'3D746E55FA38D9A713AADCC63EEDADEA8D14FDA98BEBB193C ACB8' +
'62DF97A9BFF88BD8CD37FF62A59DD5A2CE382BE6F48D545CD 02EE' +
'7DB171D6738D8');
LogBmp := BitmapFromString(23, 6, 'z78DA9D914B0EC3200C44AFE43F781' +
'928B9FF918A7017AE12AAA82C6681C6330F03300F1A89A1DB 9081' +
'BD9022F6AA56785432E15E4E236EA51B4CADFA622FAA8DCB9 7C67' +
'D78B2E6D99460A71A8B142624580CA1D6A4616FECA27A9C0E 4A37' +
'24579E6B7B762EBD4958E44162AEC8904982A1A1A3F217C96 E339' +
'7DEF06C35E7C4ECE289760602821DC974329EB59A0BE49C6D CB13' +
'5D6941123BF993E467FE739EFC47F95F76241F1ED732790EE B829' +
'FC6ACCFB7914962272A83061B19F87C74477B03BE82B29E') ;
end;

//===========================================Form=== ==========================\\

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure ShowMoreModal;
begin
frmMore.ShowModal;
end;

procedure SafeShowForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

procedure SafeMore;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitMore', v);
end;

procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript:=true;
end;

procedure More(sender: TObject);
var
v: TVariantArray;
begin
SafeMore;
setarraylength(V, 0);
ThreadSafeCall('ShowMoreModal', v);
end;

procedure SaveOptions;
begin
LogsOut:=cbLogsOut.State;
Chats:=cbChats.State;
ScarScape:=cbScarScape.State;
Username:= edtUsername.Text;
Password:= edtPassword.Text;
if(Username='')or(Password='')then
begin
Username:='No Username';
Password:='No Password';
end;
case cboxLocation.Text of
'Draynor (Willow)': Location:=1;
'Edgeville (Yew)': Location:=2;
end;
end;

procedure Save(sender: TObject);
begin
frmMore.Caption:= frmMore.Caption + '.';
frmMore.ModalResult:= mrOk;
SaveOptions;
end;


procedure Donate(sender: TObject);
begin
OpenWebPage('http://www.stupidscripts.com');
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 359;
frmDesign.Top := 225;
frmDesign.Width := 258;
frmDesign.Height := 204;
frmDesign.Caption := 'StupidChopperBanker';
frmDesign.Color := clWhite;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
labPassword := TLabel.Create(frmDesign);
labPassword.Parent := frmDesign;
labPassword.Left := 96;
labPassword.Top := 44;
labPassword.Width := 46;
labPassword.Height := 13;
labPassword.Caption := 'Password';
labUsername := TLabel.Create(frmDesign);
labUsername.Parent := frmDesign;
labUsername.Left := 96;
labUsername.Top := 6;
labUsername.Width := 48;
labUsername.Height := 13;
labUsername.Caption := 'Username';
labLocation := TLabel.Create(frmDesign);
labLocation.Parent := frmDesign;
labLocation.Left := 96;
labLocation.Top := 80;
labLocation.Width := 44;
labLocation.Height := 13;
labLocation.Caption := 'Location';
cbScarScape := TCheckBox.Create(frmMore);
cbScarScape.Parent := frmDesign;
cbScarScape.Left := 88;
cbScarScape.Top := 151;
cbScarScape.Width := 80;
cbScarScape.Height := 17;
cbScarScape.Hint :=
'Check if you are using ScarScape.';
cbScarScape.ShowHint := True;
cbScarScape.Caption := 'ScarScape?';
if(ScarScape)then
begin
cbScarScape.Checked := True;
cbScarScape.State := cbChecked;
end;
edtUsername := TEdit.Create(frmDesign);
edtUsername.Parent := frmDesign;
edtUsername.Left := 64;
edtUsername.Top := 20;
edtUsername.Width := 121;
edtUsername.Height := 21;
edtUsername.TabOrder := 1;
edtUsername.Text := Username;
edtPassword := TEdit.Create(frmDesign);
edtPassword.Parent := frmDesign;
edtPassword.Left := 64;
edtPassword.Top := 58;
edtPassword.Width := 121;
edtPassword.Height := 21;
edtPassword.PasswordChar := '*';
edtPassword.Text := Password;
bMoreOptions := TButton.Create(frmDesign);
bMoreOptions.Parent := frmDesign;
bMoreOptions.Left := 178;
bMoreOptions.Top := 151;
bMoreOptions.Width := 70;
bMoreOptions.Height := 17;
bMoreOptions.Caption := 'More Options';
bMoreOptions.OnClick:= @More;
cboxLocation := TComboBox.Create(frmDesign);
cboxLocation.Parent := frmDesign;
cboxLocation.Left := 64;
cboxLocation.Top := 94;
cboxLocation.Width := 121;
cboxLocation.Height := 21;
cboxLocation.ItemHeight := 13;
cboxLocation.Text := 'Draynor (Willow)';
cboxLocation.Items.Add('Draynor (Willow)');
cboxLocation.Items.Add('Edgeville (Yew)');
bStart := TButton.Create(frmDesign);
bStart.Parent := frmDesign;
bStart.Left := 87;
bStart.Top := 121;
bStart.Width := 75;
bStart.Height := 25;
bStart.Caption := 'Start';
bStart.TabOrder := 5;
bStart.OnClick:= @Start;
bDonate := TButton.Create(frmDesign);
bDonate.Parent := frmDesign;
bDonate.Left := 1;
bDonate.Top := 144;
bDonate.Width := 75;
bDonate.Height := 25;
bDonate.Caption := 'Donate Plz';
bDonate.TabOrder := 13;
bDonate.OnClick:= @Donate;
end;

procedure InitMore;
begin
frmMore := CreateForm;
frmMore.Left := 288;
frmMore.Top := 161;
frmMore.Width := 294;
frmMore.Height := 108;
frmMore.Caption := 'More Options';
frmMore.Color := clWhite;
frmMore.Font.Color := clWindowText;
frmMore.Font.Height := -11;
frmMore.Font.Name := 'MS Sans Serif';
frmMore.Font.Style := [];
frmMore.Visible := False;
frmMore.PixelsPerInch := 96;
labMaxWait := TLabel.Create(frmMore);
labMaxWait.Parent := frmMore;
labMaxWait.Left := 5;
labMaxWait.Top := 7;
labMaxWait.Width := 196;
labMaxWait.Height := 13;
labMaxWait.Caption := 'Maximum time to wait while cuting a tree:';
labMaxWait2 := TLabel.Create(frmMore);
labMaxWait2.Parent := frmMore;
labMaxWait2.Left := 243;
labMaxWait2.Top := 10;
labMaxWait2.Width := 40;
labMaxWait2.Height := 13;
labMaxWait2.Caption := 'seconds';
edtMaxWait := TEdit.Create(frmMore);
edtMaxWait.Parent := frmMore;
edtMaxWait.Left := 204;
edtMaxWait.Top := 5;
edtMaxWait.Width := 38;
edtMaxWait.Height := 21;
edtMaxWait.MaxLength := 3;
edtMaxWait.TabOrder := 9;
edtMaxWait.Text := inttostr(MaxWait);
cbLogsOut := TCheckBox.Create(frmMore);
cbLogsOut.Parent := frmMore;
cbLogsOut.Left := 5;
cbLogsOut.Top := 22;
cbLogsOut.Width := 66;
cbLogsOut.Height := 17;
cbLogsOut.Hint := 'If you want to log out about every 3 hours for anti-ban.';
cbLogsOut.Caption := 'Logs out?';
cbLogsOut.ParentShowHint := False;
cbLogsOut.ShowHint := True;
cbLogsOut.TabOrder := 10;
if(LogsOut)then
begin
cbLogsOut.Checked := True;
cbLogsOut.State := cbChecked;
end;
cbChats := TCheckBox.Create(frmMore);
cbChats.Parent := frmMore;
cbChats.Left := 5;
cbChats.Top := 38;
cbChats.Width := 54;
cbChats.Height := 17;
cbChats.Hint :=
'If you want to chat random prashes every so often for anti-ban.';
cbChats.Caption := 'Chats?';
cbChats.ParentShowHint := False;
cbChats.ShowHint := True;
cbChats.TabOrder := 11;
if(Chats)then
begin
cbChats.Checked := True;
cbChats.State := cbChecked;
end;
cbRotates := TCheckBox.Create(frmMore);
cbRotates.Parent := frmMore;
cbRotates.Left := 78;
cbRotates.Top := 22;
cbRotates.Width := 97;
cbRotates.Height := 17;
cbRotates.Hint :=
'If you want to randomly rotate the camera every so often for ant' +
'i-ban.';
cbRotates.ShowHint := True;
cbRotates.Caption := 'Rotates?';
cbRotates.TabOrder := 15;
if(Rotates)then
begin
cbRotates.Checked := True;
cbRotates.State := cbChecked;
end;
cbEquipAxe := TCheckBox.Create(frmMore);
cbEquipAxe.Parent := frmMore;
cbEquipAxe.Left := 5;
cbEquipAxe.Top := 54;
cbEquipAxe.Width := 97;
cbEquipAxe.Height := 17;
cbEquipAxe.Caption := 'Equip axe?';
cbEquipAxe.Hint :='Check if you are able and want to equip your pick.';
cbEquipAxe.ShowHint := True;
cbEquipAxe.TabOrder := 14;
if(EquipAxe)then
begin
cbEquipAxe.Checked := True;
cbEquipAxe.State := cbChecked;
end;
bSave := TButton.Create(frmMore);
bSave.Parent := frmMore;
bSave.Left := 227;
bSave.Top := 57;
bSave.Width := 57;
bSave.Height := 15;
bSave.Caption := 'Save';
bSave.TabOrder := 12;
bSave.OnClick:= @Save;
end;

procedure StartForm;
begin
if(UseForm)then
begin
SafeMore;
SafeShowForm;
if(StartScript=false)then
TerminateScript;
SaveOptions;
ActivateClient;
Wait(1000+random(500));
end;
end;

//======================================Main Line=============================\\

begin
SetupSSI;
Setup;
StartForm;
SetColors;
LoadBmps;
FindSymbolColorIfNeeded('Bank',true,BankColor);
if(FindAxeHeadColor)then
begin
FindMapTreeColor;
RoadWalk(TreeMapColor,'S');
FindTreeColor;
repeat
SetRun(true);
MarkTime(Mark);
repeat
FindRandoms;
ChopTree;
until(InventoryFull)or(NoAxe=true)or(TimeFromMark( Mark)>1800000)
SetRun(false);
ToBank;
Bank;
ToTrees;
until(false)
end;
end.