X
Xanter
Guest
When i load a script it all works and says that the script is working. But wh en i use a log cutting script the screen just spins around in a circle and doesnt click. Any help please.
WhoCares357
Forum Addict
Try looking at the directions in the script. Some require you to have highest brightness and 32bit color.
F
fighterfish13
Guest
did you set the colors for the trees your cutting?
X
Xanter
Guest
//------------------------------------------------------------------------------
//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
- 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
//------------------------------------------------------------------------------
Program DraynorWillowSmasher;
{.include Squig.txt}
{.include Bankpinner.scar}
//=====================================================================
Const
Willow1 = 1454124; //Willow Tree Colour 1
Willow2 = 2130032; //Willow Tree Colour 2
Willow3 = 2638407; //Willow Tree Colour 3
MMBankSymbol = 4049122; //Minimap Colour of Bank Symbol
HowMany = 1000; //This is how many Willow Trees to smash,
//when it's done it will Log Out.
BankPin = ''; //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' +
'D086024256A88514FAA39A33E1DF529ED7C4A2DF181F2293122B4' +
'88536459E25552623BF13E1D6CE223C1A7E4B97668F9143F497C1' +
'EA1563AA1B54FF18B535226D03A7F116F3BF1E2A3607800000A53' +
'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,
'979797000000000000000000000000000000979797000000000000' +
'000000000000000000979797E0E0E0979797000000000000000000' +
'E0E0E0A2A2A2979797000000000000000000E0E0E0979797E0E0E0' +
'979797000000000000000000E0E0E0A2A2A2979797000000000000' +
'000000E0E0E0979797E0E0E0A2A2A2979797000000E0E0E0A2A2A2' +
'A2A2A2A2A2A2979797000000E0E0E0A2A2A2979797E0E0E0A2A2A2' +
'979797000000E0E0E0A2A2A2A2A2A2A2A2A2979797000000E0E0E0' +
'A2A2A2979797000000E0E0E0A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2' +
'A2A2A2A2A2A2A2A2A2A2A2A2979797000000000000E0E0E0A2A2A2' +
'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2979797' +
'000000000000000000E0E0E0sA2A2A2000000000000A2A2A2000000' +
'000000A2A2A2979797000000000000000000000000E0E0E0A2A2A2' +
'000000A2A2A2000000A2A2A2000000A2A2A2979797000000000000' +
'000000000000E0E0E0A2A2A2000000A2A2A2000000A2A2A2000000' +
'A2A2A2979797000000000000000000000000979797979797979797' +
'979797979797979797979797979797979797000000000000');
bmpStaffcrown := BitmapFromstring(13, 11,
'D69E21000000000000000000000000000000D69E21000000000000' +
'000000000000000000D69E21FFFF84D69E21000000000000000000' +
'FFFF84F7FF08D69E21000000000000000000FFFF84D69E21FFFF84' +
'D69E21000000000000000000FFFF84F7FF08D69E21000000000000' +
'000000FFFF84D69E21FFFF84F7FF08D69E21000000FFFF84F7FF08' +
'F7FF08F7FF08D69E21000000FFFF84F7FF08D69E21FFFF84F7FF08' +
'D69E21000000FFFF84F7FF08F7FF08F7FF08D69E21000000FFFF84' +
'F7FF08D69E21000000FFFF84F7FF08F7FF08F7FF08F7FF08F7FF08' +
'F7FF08F7FF08F7FF08F7FF08D69E21000000000000FFFF84F7FF08' +
'F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08D69E21' +
'000000000000000000FFFF84F7FF08000000000000F7FF08000000' +
'000000F7FF08D69E21000000000000000000000000FFFF84F7FF08' +
'000000F7FF08000000F7FF08000000F7FF08D69E21000000000000' +
'000000000000FFFF84F7FF08000000F7FF08000000F7FF08000000' +
'F7FF08D69E21000000000000000000000000D69E21D69E21D69E21' +
'D69E21D69E21D69E21D69E21D69E21D69E21000000000000');
if (findbitmaptolerancein(bmpStaffCrown,x2,y2,1,345,110,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' +
'F6953827A8C5CFFFF4995F6B05A5D0C51241F44B6CBF4B84D1427' +
'8E268933BD0CC9D0DCF41CF57CD5EF16E231AC21F0400D473AF92' +
'28B902BD15846ABFF1AA77346F7174650939D33DAEE6B9347BDAF' +
'14BF12E7FDF399853BA3174F33B6E05DBE32BEC5494A7C27C07BB' +
'C09E1F0E61061C6F6765C817F654CB3B668465B159A485BCAFBAE' +
'36A365D18C0F5ED80B35CE6C3392F3EBC0D1D27A03B91CD4B2');
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.
This is the script Sean.
What is the SRL thing that i may need? I run the script and it says executed and i fill in my pass and stuff. Then nothing happens. So i click the RS2 screen and the screen just starts spinning and does not cut willows.
//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
- 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
//------------------------------------------------------------------------------
Program DraynorWillowSmasher;
{.include Squig.txt}
{.include Bankpinner.scar}
//=====================================================================
Const
Willow1 = 1454124; //Willow Tree Colour 1
Willow2 = 2130032; //Willow Tree Colour 2
Willow3 = 2638407; //Willow Tree Colour 3
MMBankSymbol = 4049122; //Minimap Colour of Bank Symbol
HowMany = 1000; //This is how many Willow Trees to smash,
//when it's done it will Log Out.
BankPin = ''; //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' +
'D086024256A88514FAA39A33E1DF529ED7C4A2DF181F2293122B4' +
'88536459E25552623BF13E1D6CE223C1A7E4B97668F9143F497C1' +
'EA1563AA1B54FF18B535226D03A7F116F3BF1E2A3607800000A53' +
'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,
'979797000000000000000000000000000000979797000000000000' +
'000000000000000000979797E0E0E0979797000000000000000000' +
'E0E0E0A2A2A2979797000000000000000000E0E0E0979797E0E0E0' +
'979797000000000000000000E0E0E0A2A2A2979797000000000000' +
'000000E0E0E0979797E0E0E0A2A2A2979797000000E0E0E0A2A2A2' +
'A2A2A2A2A2A2979797000000E0E0E0A2A2A2979797E0E0E0A2A2A2' +
'979797000000E0E0E0A2A2A2A2A2A2A2A2A2979797000000E0E0E0' +
'A2A2A2979797000000E0E0E0A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2' +
'A2A2A2A2A2A2A2A2A2A2A2A2979797000000000000E0E0E0A2A2A2' +
'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2979797' +
'000000000000000000E0E0E0sA2A2A2000000000000A2A2A2000000' +
'000000A2A2A2979797000000000000000000000000E0E0E0A2A2A2' +
'000000A2A2A2000000A2A2A2000000A2A2A2979797000000000000' +
'000000000000E0E0E0A2A2A2000000A2A2A2000000A2A2A2000000' +
'A2A2A2979797000000000000000000000000979797979797979797' +
'979797979797979797979797979797979797000000000000');
bmpStaffcrown := BitmapFromstring(13, 11,
'D69E21000000000000000000000000000000D69E21000000000000' +
'000000000000000000D69E21FFFF84D69E21000000000000000000' +
'FFFF84F7FF08D69E21000000000000000000FFFF84D69E21FFFF84' +
'D69E21000000000000000000FFFF84F7FF08D69E21000000000000' +
'000000FFFF84D69E21FFFF84F7FF08D69E21000000FFFF84F7FF08' +
'F7FF08F7FF08D69E21000000FFFF84F7FF08D69E21FFFF84F7FF08' +
'D69E21000000FFFF84F7FF08F7FF08F7FF08D69E21000000FFFF84' +
'F7FF08D69E21000000FFFF84F7FF08F7FF08F7FF08F7FF08F7FF08' +
'F7FF08F7FF08F7FF08F7FF08D69E21000000000000FFFF84F7FF08' +
'F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08D69E21' +
'000000000000000000FFFF84F7FF08000000000000F7FF08000000' +
'000000F7FF08D69E21000000000000000000000000FFFF84F7FF08' +
'000000F7FF08000000F7FF08000000F7FF08D69E21000000000000' +
'000000000000FFFF84F7FF08000000F7FF08000000F7FF08000000' +
'F7FF08D69E21000000000000000000000000D69E21D69E21D69E21' +
'D69E21D69E21D69E21D69E21D69E21D69E21000000000000');
if (findbitmaptolerancein(bmpStaffCrown,x2,y2,1,345,110,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' +
'F6953827A8C5CFFFF4995F6B05A5D0C51241F44B6CBF4B84D1427' +
'8E268933BD0CC9D0DCF41CF57CD5EF16E231AC21F0400D473AF92' +
'28B902BD15846ABFF1AA77346F7174650939D33DAEE6B9347BDAF' +
'14BF12E7FDF399853BA3174F33B6E05DBE32BEC5494A7C27C07BB' +
'C09E1F0E61061C6F6765C817F654CB3B668465B159A485BCAFBAE' +
'36A365D18C0F5ED80B35CE6C3392F3EBC0D1D27A03B91CD4B2');
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.
This is the script Sean.
What is the SRL thing that i may need? I run the script and it says executed and i fill in my pass and stuff. Then nothing happens. So i click the RS2 screen and the screen just starts spinning and does not cut willows.
X
Xanter
Guest
i do not know what srl is. Neither stickies, can you explain more please
X
Xanter
Guest
if SRL is screen resolution i already have it set.
yamumsohard
Newcomer
dude if u realy need help i got srl 3.6 i can tranfer it for u on msn thats what u need add me on msn [email protected]
T
twisting247
Guest
macs dont work with scar