SCAR SCRIPTS WOOD CUTTING----¬
POWER CUTTERs ----¬
//////////////////////////////////////////////////////////////////////////
///////////////////////// MY FIRST RUNESCAPE SCRIPT /////////////////
///////////////////////// ANY TREE ANYWHERE POWERCUTTER /////////////////
///////////////////////// SCRIPT BY YOHOJO /////////////////
///////////////////////// RELEASED NOVEMBER 12,2005 /////////////////
///////////////////////// QUESTIONS?COMMENTS?ADVICE? /////////////////
///////////////////////// THEN IM ME ON AIM: YOHOJO88 /////////////////
///////////////////////////////////////////////////////////////////////////
{History
V1.0 Working with no anti-ent and axe fix
V1.1 Added more randome movements and made less detectable
V1.2 Added crappy ent protection and axe fix
V1.3 Added progress report!
V1.4 Added form!
V1.5 Added very sexy ent protection(hasn't been tested yet) and fixed axe
head finding
V1.6 Added PWENED'S axehead finding procedure which i edited a bunch to
work with Si.Scar
V1.7 S0oper Do0per Axe ehad fixer added. Worked if equiped or not =)!
V1.8 Sharpened up axe fixing procedure even more. Should work perfect now
V1.9 Made script logout after certain ammount of loads were cut.
}
program Powercutter;
{.include si.scar}
var
x,y:integer;
cut,dropped: Integer;
UserName:string;
PassWord:string;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Button1 : TButton;
a****sername : TEdit;
asdfPassword : TEdit;
const
///////////////////////////////////SETUP/////////////////////////////////////////////
TreesColor1=1066044 ;//color of tree in gamescreen
TreesColor2=1452064 ;//color of tree in gamescreen
TreesColor3=1986624 ;//color of tree in gamescreen
Equiped= False;//true for equpied false for not
CutTime=6500;//Take it takes to walk to/cut down a tree(eggagerate it)
LoadsToCut=15;//Number of loads you want to cut untill logging out
LampSkill='WoodCutting';//What you want to use lamps on
///////////////////////////////END OF SETUP////////////////////////////////
procedure Tutorial1(senter: TObject);
begin
writeln('button pressed');
frmDesign.Caption:=(frmDesign.Caption+('.'));
frmDesign.ModalResult:= mrok
end;
Procedure ClickHumanA(xa, ya : integer; Click : boolean);
begin {A little procedure PWND created to simluate human clicking
}
Holdmouse(xa, ya, click);
wait(50 + random (50));
Releasemouse(xa, ya, click);
end;
Procedure Getaxecolor;
var A1,A2,A3,H:Integer;
begin
Writeln('Getting axe and handle colors')
Wait(300)
if(Equiped=False)then
begin
Gametab(4);
A1 := (Getcolor(590, 220))
A2 := (Getcolor(590, 218))
A3 := (Getcolor(587, 219))
H := (Getcolor(579, 230))
Writeln('Axe colors ' + inttostr(A1)+ ' ' + inttostr(A2) + ' ' + inttostr(A3))
Writeln('Handle color ' + inttostr(H))
end;
if(Equiped=True)then
begin
Gametab(5);
A1 := (Getcolor(595, 296))
A2 := (Getcolor(597, 296))
A3 := (Getcolor(594, 294))
H := (Getcolor(586, 306))
Writeln('Axe colors ' + inttostr(A1)+ ' ' + inttostr(A2) + ' ' + inttostr(A3))
Writeln('Handle color ' + inttostr(H))
end;
end;
Function Axelost : boolean;
var x, y,a1,a2,a3: integer;
begin
if(equiped=true)then
gametab(5)
If(findcolortolerance(x, y, A1, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 560, 210, 740, 460, 5)) then
result := true
if(equiped=false)then
gametab(4)
If(findcolortolerance(x, y, A1, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 560, 210, 740, 460, 5)) then
result := true
else
result := false
end;
Procedure FixTheAxe;
Var x, y,a1,a2,a3,h : integer;
begin
if(Axelost = false)and
(Equiped=False)then
begin
repeat
if FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x,y,2,2,true)
if(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)))then
If(findcolortolerance(x, y, 1, 1, 5, 725, 160, 5))then
Mouse(x, y,2,2,true)
Flag;
If FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,2,2,true)
until((findcolortolerance(x, y, A1, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 1, 1, 740, 460, 5)))
begin
if (FindObjEx(x, y,'Axe',560, 210, 740, 460,A1, 5, 300, 300,true))or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,1,1,true)
wait(500 + random(500))
If(findcolortolerance(x, y, h, 565, 5, 725, 160, 5))then
Mouse(x, y,2,2,true)
end;
end;
if(Axelost = false)and
(Equiped=True)then
begin
Gametab(5);
if (findcolortolerance(x,y,H,560, 210, 740, 460, 5))then
Mouse(x,y,2,2,true)
Gametab(4);
repeat
if FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x,y,2,2,true)
if(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)))then
If(findcolortolerance(x, y, 1, 1, 5, 725, 160, 5))then
Mouse(x, y,2,2,true)
Flag;
If FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,2,2,true)
until((findcolortolerance(x, y, A1, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 1, 1, 740, 460, 5)))
begin
if (FindObjEx(x, y,'Axe',560, 210, 740, 460,A1, 5, 300, 300,true))or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,1,1,true)
wait(500 + random(500))
If(findcolortolerance(x, y, h, 565, 5, 725, 160, 10))then
Mouse(x, y,2,2,true)
end;
end;
end;
procedure Antirandoms;
begin
CheckRandoms(1,LampSkill,'N',false,false,srtAll)
DropUseless;
writeln('Checking Randoms');
end;
Function Antient: boolean;//My own Ent Detection Function
var
ENTCHOP:integer;
begin
ENTCHOP := BitmapFromString(8, 16, 'z78DA3330A0377003025492' +
'1895B844F08B136FF2F0564F6A7892175F431100009E0198F 1');
begin
if FindBitmapToleranceIn(ENTCHOP,x, y, 2, 3,366, 21,25)then
result:=true;
end;
begin
if (not(FindBitmapIn(ENTCHOP,x, y, 2, 3,366, 21)))then
result:=false;
end;
end;
Procedure Check4Ent;//My own Ent Detection Procedure
var cx,cy:integer;
begin
if(FindObj(cx, cy, 'Chop', TreesColor1, 5)) or
(FindObj(cx, cy, 'Chop', TreesColor2, 5))or
(FindObj(cx, cy, 'Chop', TreesColor3, 5))then
Mouse(cx,cy,1,1,true)
if (Antient=true) then
begin
writeln('!HOLY ****! Thats an ent!')
Mouse(650, 90,3,3,true);
wait(500+Random(500));
Mouse(643, 74,3,3,True);
wait (25000+Random(5000));
end;
if (Antient=false)then
begin
writeln('Entless Tree')
end;
end;
procedure choptree1;
var cx,cy:integer;
begin
if (not(FindObj(cx, cy, 'Chop', TreesColor1, 5))) or
(not(FindObj(cx, cy, 'Chop', TreesColor2, 5)))or
(not(FindObj(cx, cy, 'Chop', TreesColor3, 5)))then
writeln('Could not find a tree. Please re-choose colors')
if FindObj(cx, cy, 'Chop', TreesColor1, 5) or
FindObj(cx, cy, 'Chop', TreesColor2, 5)or
FindObj(cx, cy, 'Chop', TreesColor3, 5)then
Mouse(cx,cy,3,5,true);
writeln('Tree Found')
writeln('Chopping Tree..')
wait(3000)
if FindObj(cx, cy, 'Chop', TreesColor1, 5) then
Movemousesmooth(cx,cy);
if (not(FindObj(cx, cy, 'Chop', TreesColor1, 5)))then
if FindObj(cx, cy, 'Chop', TreesColor2, 5)then
Movemousesmooth(cx,cy);
if (not(FindObj(cx, cy, 'Chop', TreesColor2, 5)))then
if FindObj(cx, cy, 'Chop', TreesColor3, 5)then
Movemousesmooth(cx,cy);
Check4Ent;
wait(cuttime+Random(500));
Sendarrowsilentwait(3+random(4),500+Random(500));
end;
procedure DropLogs;
var x,y,dtmlogs, dropO:integer;
begin
writeln('Dropping Logs')
repeat
dtmLogs:= DTMFromString('78DA633CC4C4C0F090910119B4A4DA323C0 4D' +
'220D1FF40C07800A8E626AA1A882C8C04D29B806A9E1250B3 07A8' +
'E61D0135E7816A5E10507316A8E6010135A7816AAEE357030 09B0' +
'B11B0');
dropO := BitmapFromString(7, 14, 'z78DA3330182CC00D07C0A506' +
'BFF8C0AA24DE47C3090000FE4E7AA1');
if(findDTM(dtmlogs,x,y,560, 212, 736, 464))then
mouse(x,y,5,5,false)
Wait(200+Random(500));
if (findbitmap(dropO,x,y))then
Mouse(x,y,5,3,true)
Wait(910+Random(500));
until(not(findDTM(dtmlogs,x,y,560, 212, 736, 464)))
cut:=cut+27
dropped:=dropped+1
writeln('All Logs Dropped')
end;
procedure off;
begin
SetChat('off', 1);
SetChat('off', 2);
SetChat('off', 3);
end;
procedure ProgressReport;
begin
Writeln(' ');
Writeln(' ');
writeln(' Yohojos Any Tree Anywhere Powercutter Progress Report')
writeln(' You have dropped ' +inttostr(cut)+' logs')
writeln(' You have dropped ' +inttostr(dropped)+' load(s)')
writeln(' You have worked for ' +ScriptTime2(2))
Writeln(' You have Ran Away From ' + inttostr(gSiRandoms[4]) + ' Attacks');
Writeln(' You have Solved ' + inttostr(gSiRandoms[7]) + ' Boxes');
Writeln(' You have Talked To ' + inttostr(gSiRandoms[1]) + ' Randoms');
Writeln(' You have Gained ' +inttostr(gSiRandoms[5]) + ' Levels');
Writeln(' You have Completed '+inttostr(gSiRandoms[6]) +' Eye Tests');
end;
procedure FinalProgressReport;
begin
Writeln(' ');
Writeln(' ');
writeln(' Yohojos Any Tree Anywhere Powercutter Final Progress Reprot')
writeln(' !Your Autoing Sesion Has Been Completed!')
writeln(' You have dropped ' +inttostr(cut)+' logs')
writeln(' You have dropped ' +inttostr(dropped)+' load(s)')
writeln(' You have worked for ' +ScriptTime2(2))
Writeln(' You have Ran Away From ' + inttostr(gSiRandoms[4]) + ' Attacks');
Writeln(' You have Solved ' + inttostr(gSiRandoms[7]) + ' Boxes');
Writeln(' You have Talked To ' + inttostr(gSiRandoms[1]) + ' Randoms');
Writeln(' You have Gained ' +inttostr(gSiRandoms[5]) + ' Levels');
Writeln(' You have Completed '+inttostr(gSiRandoms[6]) +' Eye Tests');
end;
procedure logout1;
var x,y:integer;
begin
if(not(findcolorspiral(x,y,TreesColor1,1, 0,514, 336))
or(findcolorspiral(x,y,TreesColor2,1, 0,514, 336))
or(findcolorspiral(x,y,TreesColor3,1, 0,514, 336)))then
Logout;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 289;
frmDesign.Top := 161;
frmDesign.Width := 589;
frmDesign.Height := 395;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'WP MultinationalB Roman';
frmDesign.Font.Style := [fsBold, fsItalic];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 51;
Label1.Top := 30;
Label1.Width := 95;
Label1.Height := 24;
Label1.Alignment := taCenter;
Label1.Caption := 'User Name';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -20;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 450;
Label2.Top := 30;
Label2.Width := 91;
Label2.Height := 24;
Label2.Alignment := taCenter;
Label2.Caption := 'Pass Word';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -20;
Label2.Font.Name := 'Times';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 450;
Label3.Top := 47;
Label3.Width := 33;
Label3.Height := 14;
Label3.Caption := '(Its Bleeped Out)';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -11;
Label3.Font.Name := 'Times';
Label3.Font.Style := [fsBold, fsItalic];
Label3.ParentFont := False;
Button1 := TButton.Create(frmDesign);
Button1.Onclick:=@Tutorial1;
Button1.Parent := frmDesign;
Button1.Left := 261;
Button1.Top := 261;
Button1.Width := 78;
Button1.Height := 25;
Button1.Caption := 'Start Chopping';
Button1.TabOrder := 8;
a****sername := TEdit.Create(frmDesign);
a****sername.Parent := frmDesign;
a****sername.Left := 41;
a****sername.Top := 60;
a****sername.Width := 121;
a****sername.Height := 30;
a****sername.Font.Color := clWindowText;
a****sername.Font.Height := -20;
a****sername.Font.Name := 'Times New Roman';
a****sername.Font.Style := [];
a****sername.ParentFont := False;
a****sername.TabOrder := 9;
a****sername.Text := '';
asdfPassword := TEdit.Create(frmDesign);
asdfPassword.Parent := frmDesign;
asdfPassword.Left := 440;
asdfPassword.Top := 60;
asdfPassword.Width := 121;
asdfPassword.Height := 29;
asdfPassword.Font.Color := clWindowText;
asdfPassword.Font.Height := -20;
asdfPassword.Font.Name := 'Wingdings 3';
asdfPassword.Font.Style := [fsBold, fsItalic];
asdfPassword.ParentFont := False;
asdfPassword.TabOrder := 10;
asdfPassword.Text := '';
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure FormNames;
begin
username:=a****sername.text
password:=asdfpassword.text
end;
begin
SafeInitForm;
SafeShowFormModal;
FormNames;
activateclient;
LoadInclude('Windows Media Player');
SetAccount(1,UserName,PassWord);
Login(1)
wait(1000)
off;
Getaxecolor;
repeat
Antirandoms;
Choptree1;
FixTheAxe;
wait(10);
if(InvCount = 28)then
ProgressReport;
if(InvCount = 28)then
DropLogs
until(dropped>=(LoadsToCut));
Logout;
FinalProgressReport;
Terminatescript;
end.
-----------------------------Don't Copy This Broken Lines------------------
WILLOW CUTTER+BANKER (draynor village)
//------------------------------------------------------------------------------
//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
tda_ldr@hotmail.com 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
tda_ldr@hotmail.com |')
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 ]
[
RSTradeMonkey@hotmail.com, or
Stupid3ooo@gmail.com ]
[ 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.
-----------------------------Don't Copy This Broken Lines------------------
POWER FISHERs----¬
KARAMJA POWER FIsher¬
{
To run this file, you need some includes never before seen, you could try to make your own, or get the full ready-made script in a .zip format at
http://www.socube.here.ws .
{=========Power-Fisher at kamaraja v11.0=========
Its working cause, I tried it, but for a while only
so if you find any bugs, contact me(my contact details below)
Input your username and password into pess.txt;
1.Choose low-detail
2.Pick and enter all the colours.
3.Fishing equipment must be in 1st inventory slot.
4.Bring some food(heal at least 12hp/hour)
So like u wanna use this for 12hours,
then bring at least 12 tuna, or any food that heals above 12hp.
Version history
v1.0-level 2 release on socube
v2.0-Fixed some problems
v3.0-Fixed more problems.
v4.0-Took away many map tuneing stuff and changed anti-whirlpool event
v5.0-No diff but released publicly on rscl as lite version
v6.0-Made anti-rands much better and changed abit of tolerance.
Added some thought for cooker, but evaded the idea
due to lack of paths.
v7.0 - changed alot of stuff.
v8.0b - Added support for graphical report.
v9.0 - Removed PAr 1.0 support and added support for PAr 2.0
v9.0b - I changed some mouse coords so that you will remain at
the same spot. So I changed timist to another category
v9.0c - Fixed many minor bugs.
v10.0 - Added eating function.
v11.0 - Fixed more bugs, and added selling to gen store
function and now script show wat its doing if you
use graphical report.
Future iof this script
1)A bait remaining counter
2)An option to sell the fish you caught to gen store.
Level 3 version of this script-
1)May be adding cooker, will chop trees(using gussy's chopper)
Credits:
1)pplsuqbawlz for PAr 2.0 and his library and his graphical report.
2)dsgamer for some procedures, quite abit of advice and alot of
beta testing.
3)Odie fer his OSi.
3)Odie for his boxbreaker.
4)Phalanx for his progress report.
-=-=-=-=-=-Contact details=-=-=-=-=-=
A quality script by Benleegt. Please direct all questions to
benleegt@yahoo.co.uk
or rscl or
http://socube.here.ws
=============I love Chong Jasmin========================}
program kamarajaantirands;
var tree,flag12,ix,iy,equip,white,yellow12,ax,ay,
whirlpoolno,runno,fishno,timer,pickno,techno,InvNu mber,temp,diff:Integer;
fish,action:String ;
const
{Remember to input your username and pass into pess.txt}
{===== Do not bother about this unless you are using
the sell feature ====}
{All minimap}
muddyroad = 1140117; //The road running through kamaja.
potty = 1859758; //Gen store logo
apron = 5663104; //Brown apron store keeper wears
{===== fishing type =====}
fishtype=2; //1 is cage, 2 is harpoon, 3 is net
{===== anti random related =====}
fishlogo = 1853532;//the fish logo.(Minimap)
red_dot = 241;//The red dot on the minimap when an item is on the ground.(Minimap)
trees = 3637068;//The colour of the trees(minimap.)
{===== fishing related =====}
splashcolour1=15515808; //Light blue splash color on GAMESCREEN!
splashcolour2=16576744; //Light white splash color on GAMESCREEN!
{==== Control Panel =====}
fishtodrop = 'Raw tuna'; //The caption of the fish u wanna drop, if u want it to drop all fishes, change this to 'Raw'
graphicreport = 'true'; //True or false, simple, by pplsuqbawlz.
Drop_or_sell = 'Drop'; //(Sell not working now)Whether to drop or to sell, to sell, change this to 'Sell'
{==== Do not touch ===}
mama = 1000; //Set time to wait while fishing to change spot. In miliseconds
{.include OSi.txt}
{.include pess.txt}
{.include parinclude.txt}
{.include Boxbreaker.txt}
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure currently;
begin
SendInterSCARMessage('currently','Currently: '+Action)
end;
procedure benleegtmouse(ex,ey : Integer; Truth : String; waitamount:Integer);//By benleegt
begin
MoveMouseSmoothEx(ex,ey,1,2,20,17,3)
getmousepos(ex,ey)
If ( truth = 'left')then clickmouse(ex,ey,true)
If ( truth = 'right')then clickmouse(ex,ey,false)
If ( truth = 'false')then
wait(waitamount+Random(40))
end;
procedure Flagwait;
begin
repeat
wait(500+random(100));
until(not (FindBitmapIn(flag12,x,y,562,9,751,179)));
wait(100+random(100));
end;
Procedure LogOut1(why:string);
begin
Writeln(' ');
Writeln(why);
Writeln(' ');
Wait(100+random(10));
Loged:=true;
Mouse(635,470,25,20,true);
Wait(100+random(10));
Mouse(586,370,119,10,true);
GetMousePos(x,y);
repeat
wait(5000);
until(false)
end;
function getequipmentcolour:Integer;//By benleegt
begin
Openbag;
If(fishtype=1) then result:=getcolor(581,233)
If(fishtype=2) then result:=getcolor(581,232)
If(fishtype=3) then result:=getcolor(589,228)
end;
procedure checkequipment;//By benleegt
begin
action:= 'Finding lost equipment'
currently;
pickno:=pickno+1
writeln('Emergency, lost equipment')
if(findcolorspiraltolerance(ix,iy,equip,5,144,360, 515,5))then
begin
clickmouse(ix+1,iy,true)
wait(2000)
end;
repeat
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff=0)then break
if(findcolor(x,y,red_dot,556,2,727,155))then
begin
benleegtmouse(x,y+5,'left',200)
flagwait
wait(500)
if(findcolorspiraltolerance(ix,iy,equip,189,86,360 ,105,5))then
begin
clickmouse(ix+1,iy,true)
wait(2000)
temp:=getequipmentcolour;
If(equip=temp)then break
end;
wait(100)
end;
wait(100)
temp:=getequipmentcolour;
until(equip=temp)
findcolor(ix,iy,fishlogo,631,2,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
end;
{==== Eating/health check procedures ==== }
procedure SetCords; //From nick's powerfisher
begin
Case InvNumber of
28: begin ax:=705; ay:=435; end;
27: begin ax:=655; ay:=435; end;
26: begin ax:=610; ay:=435; end;
25: begin ax:=575; ay:=435; end;
24: begin ax:=705; ay:=400; end;
23: begin ax:=655; ay:=400; end;
22: begin ax:=610; ay:=400; end;
21: begin ax:=575; ay:=400; end;
20: begin ax:=705; ay:=370; end;
19: begin ax:=655; ay:=370; end;
18: begin ax:=610; ay:=370; end;
17: begin ax:=575; ay:=370; end;
16: begin ax:=705; ay:=330; end;
15: begin ax:=655; ay:=330; end;
14: begin ax:=610; ay:=330; end;
13: begin ax:=575; ay:=330; end;
12: begin ax:=705; ay:=295; end;
11: begin ax:=655; ay:=295; end;
10: begin ax:=610; ay:=295; end;
9: begin ax:=575; ay:=295; end;
8: begin ax:=705; ay:=260; end;
7: begin ax:=655; ay:=260; end;
6: begin ax:=610; ay:=260; end;
5: begin ax:=575; ay:=260; end;
4: begin ax:=705; ay:=220; end;
3: begin ax:=655; ay:=220; end;
2: begin ax:=624; ay:=227; end;
1: begin ax:=575; ay:=220; end;
end;
end;
procedure use(ix,iy : Integer; check : String);
begin
benleegtmouse(ix,iy,'false',100)
wait(100)
if(istextat2(9,9,check,150))then
begin
clickmouse(ix,iy,true)
end;
benleegtmouse(ix+200+Random(20),iy+200+Random(20), 'false',0)
end;
procedure eatfood;
var hper,invloc :Integer;
begin
action:= 'Eating'
currently
InvLoc:=0;
OpenBag;
repeat
setcords;
MoveMouseSmooth(ax,ay);
wait(150+random(30));
use(ix,iy,'Ea')
Invnumber:=InvLoc+1;
hper := gethp;
begin
If(hper<=50)then
begin
end else
if(hper>=100)then
begin
break
end;
end;
invloc:=invloc+1
If(invLoc>26)then
begin
If(hper<=50)then
begin
logout1('Outta o food...');
end;
end;
until(InvLoc>=28)
end;
procedure checkhealth;
var hper:integer;
begin
action:= 'Checking Health Left'
currently
hper := gethp;
If(hper<=80)then
begin
eatfood;
end else
end;
{==== End of Eating/health check procedures ==== }
procedure runaway; //By benleegt
begin
action:= 'Running Away'
currently
writeln('OMG, fight encountered')
setRun(True);
findcolor(ix,iy,trees,627,130,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
setRun(false);
wait(5000)
findcolor(ix,iy,fishlogo,631,2,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
checkhealth
end;
procedure antifight;//By benleegt
begin
if(findcolor(ix,iy,65280,222,114,304,195)) and (findcolor(ix,iy,255,222,114,304,195))then
begin
runno:=runno+1
If(techno=0) then runaway; techno:=techno+1
end;
end;
procedure totalrandcheck;//By benlegt
begin
antifight;
CheckPAR;
end;
procedure declear;
begin
flag12 := BitmapFromString(2, 8,
'C656045D3311C656045D3311C656045D3311C656045D3311C 65604' +
'5D3311C656045D3311C656045D3311C656045D3311');//Bmp by benleegt
tree := BitmapFromString(1, 5,
'6D52176D5217855716855716855716');
end;
procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
action:= 'Logging In if needed'
currently
if(IsTextAt2(293,251,'Username',10))then
begin
Mouse(460,322,10,2,true);
Wait(500+random(500));
end;
if(IsTextAt2(309,241,'Welcome to RuneScape',50))then
begin
Mouse(400,280,125,20,true);
Wait(200+random(100));
if(IsTextAt2(293,251,'Username',50))then
begin
status('Logging in');
Mouse(400,256,20,5,true);
Wait(50+random(25));
sendkeyssilentsmooth(username,50);
Wait(50+random(25));
Mouse(400,270,20,5,true);
Wait(50+random(25));
sendkeyssilentsmooth(password,50);
Wait(400+random(100));
Mouse(300,322,20,5,true);
repeat
counter:=counter+1
wait(100);
until(FindColorSpiral(x,y,8421504,0,0,515,338))or( counter=60)
if(FindColorSpiral(x,y,8421504,400,0,515,338))then
begin
wait(100+random(100));
Mouse(x,y,2,1,true);
wait(100+random(100));
sendarrowsilentwait(0,900+random(200))
wait(200+random(100))
end;
end;
end;
end;
procedure setuptypes;//By dsgamer
begin
if(fishtype=1)then
begin
fish:='C'
white := BitmapFromString(32, 6,
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFFFFFFFFFF0000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000FFFFFFFFFFFF0000000000000000000000000000000 00000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0 00000' +
'000000000000000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
'000000000000000000');//bmp by benleegt
yellow12 := BitmapFromString(20, 7,
'FFFF00FFFF00FFFF005D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFF00000000FFFF00FFFF005D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54470000000000005D54470000000 00000' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54470000005D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54470 00000' +
'5D54475D54475D54475D54475D54475D5447FFFF00FFFF00F FFF00' +
'FFFF005D54475D54475D54475D5447FFFF00FFFF00FFFF00F FFF00' +
'5D54470000005D54475D54475D54475D54475D5447FFFF00F FFF00' +
'000000000000FFFF00FFFF005D54475D5447FFFF00FFFF000 00000' +
'000000FFFF00FFFF000000005D54475D54475D54475D54475 D5447' +
'5D5447FFFF00FFFF00FFFF00FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D5447FFFF00FFFF00');//bmp by dsgamer
end;
if(fishtype=2)then
begin
fish:='C'
white := BitmapFromString(51, 3,
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'');//bmp by benleegt
yellow12 := BitmapFromString(20, 7,
'FFFF00FFFF005D54475D5447FFFF00FFFF005D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF000 00000' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D5447FFFF00FFFF000 00000' +
'5D5447FFFF00FFFF000000005D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D5447F FFF00' +
'FFFF00FFFF00FFFF00FFFF00FFFF000000005D54475D5447F FFF00' +
'FFFF00FFFF00FFFF005D54475D54475D5447FFFF00FFFF00F FFF00' +
'FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000005 D5447' +
'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447F FFF00' +
'FFFF00FFFF00000000FFFF00FFFF000000005D5447FFFF00F FFF00' +
'0000005D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF000 00000' +
'5D5447FFFF00FFFF00000000000000');//bmp by dsgamer
end;
If(fishtype=3)then
begin
fish:='N'
white := BitmapFromString(20, 7,
'FFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D5447FFFFFFF FFFFF' +
'0000005D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFFFFFFF5 D5447' +
'FFFFFFFFFFFF0000005D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFFF FFFFF' +
'FFFFFF000000FFFFFFFFFFFF0000005D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D5447FFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0000005D54475 D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D5447FFFFFFF FFFFF' +
'FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475 D5447' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFFF FFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'0000005D5447FFFFFFFFFFFF000000');//bmp by dsgamer
yellow12 := BitmapFromString(20, 7,
'FFFF00FFFF005D54475D54475D5447FFFF00FFFF005D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFF00FFFF00FFFF005D54475D5447FFFF00F FFF00' +
'0000005D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D5447FFFF00FFFF005D5447FFFF00FFFF00FFFF00FFFF005 D5447' +
'FFFF00FFFF000000005D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D5447FFFF00FFFF00000000FFFF00FFFF00F FFF00' +
'FFFF00000000FFFF00FFFF000000005D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D5447FFFF00FFFF00000000F FFF00' +
'FFFF00000000FFFF00FFFF00FFFF00FFFF000000005D54475 D5447' +
'FFFF00FFFF00FFFF00FFFF005D54475D54475D5447FFFF00F FFF00' +
'FFFF00FFFF00FFFF00000000FFFF00FFFF00FFFF00FFFF000 00000' +
'5D5447FFFF00FFFF00000000000000FFFF00FFFF005D54475 D5447' +
'FFFF00FFFF00000000FFFF00FFFF00000000FFFF00FFFF00F FFF00' +
'FFFF000000005D5447FFFF00FFFF000000005D5447FFFF00F FFF00' +
'0000005D5447FFFF00FFFF00000000');//bmp by dsgamer
end;
if(fishtype=4)then
begin
fish:='N'
white := BitmapFromString(20, 7,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF0 00000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFFFFFFFFFF5D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF0000000000005D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFF5D54475D54475D54475D54470000000 00000' +
'5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475 D5447' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447F FFFFF' +
'FFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'0000005D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'5D5447FFFFFFFFFFFF0000005D5447');
yellow12 := BitmapFromString(20, 7,
'FFFF00FFFF00FFFF00FFFF00FFFF005D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFF00FFFF00000000000000FFFF00FFFF005 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D5447FFFF00FFFF000 00000' +
'5D5447FFFF00FFFF000000005D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFF00FFFF005D54475D5447F FFF00' +
'FFFF00FFFF00FFFF00FFFF000000000000005D54475D5447F FFF00' +
'FFFF00FFFF00FFFF005D54475D54475D54475D54470000000 00000' +
'5D5447FFFF00FFFF00000000000000FFFF00FFFF005D54475 D5447' +
'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447F FFF00' +
'FFFF005D54475D5447FFFF00FFFF000000005D5447FFFF00F FFF00' +
'0000005D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF000 00000' +
'5D5447FFFF00FFFF000000005D5447');
end;
end;
procedure antiwhirlpool(b1,b2,b3,b4:Integer);//Use in fishing procedure--By benleegt
begin
action:= 'Finding Whirlpools'
currently
If(findcolorspiraltolerance(ix,iy,13288386,b1,b2,b 3,b4,3) and findcolorspiraltolerance(ix,iy,13158085,b1,b2,b3,b 4,3))then
begin
action:= 'Whirlpool found! Waiting'
currently
writeln('Whirlpool spotted.')
findcolor(x,y,fishlogo,597,36,695,125)
benleegtmouse(x+2,y,'left',2000)
wait(10000)
whirlpoolno:=whirlpoolno+1
end;
end;
procedure benfish;
var i,bb,b1,b2,b3,b4,beri,beri2:Integer;
splashcolored : ARRAY [1..2] of integer;
begin
bb:=0
b1:=259
b2:=168
totalrandcheck;
i:=0
splashcolored[1]:=splashcolour1
splashcolored[2]:=splashcolour2
repeat
action:= 'Finding Fishing Spot'
currently
loginifneeded
antifight;
totalrandcheck;
action:= 'Finding Fishing Spot'
currently
FindBox;
If(b1>450)then b1:=100
If(b2>335)then b2:=38
b3:=b1+20
b4:=b2+20
If(findcolorspiraltolerance(x,y,splashcolored[1],b1,b2,b3,b4,5)) or findcolorspiraltolerance(x,y,splashcolored[2],b1,b2,b3,b4,20)then
begin
antiwhirlpool(232,115,306,185)
benleegtmouse(x,y,'false',0)
wait(700)
If(Istextat2(9,9,fish,100))then
begin
clickmouse(x,y,false)
wait(300)
{===============White===========}
if(findbitmapin(white,ix,iy,0,0,515,335))then
begin
action:= 'Fishing'
currently
clickmouse(ix,iy,true)
flagwait;
antifight;
beri:=1
repeat
antifight;
loginifneeded;
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
totalrandcheck;
antifight;
antiwhirlpool(232,115,306,185)
wait(100)
beri:=beri+1
If(getcolor(247,443)=16711680)then beri:=20000000
antifight;
until(beri>mama)
{==============Yellow now=================}
end else
if(findbitmapin(yellow12,ix,iy,0,0,515,335))then
begin
action:= 'Fishing'
currently
clickmouse(ix,iy,true)
flagwait;
beri2:=1
repeat
antifight;
loginifneeded;
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
totalrandcheck;
antifight;
antiwhirlpool(232,115,306,185)
wait(100)
beri2:=beri2+1
If(getcolor(247,443)=16711680)then beri2:=20000000
antifight;
until(beri2>mama)
end;
end
wait(20)
end;
status('Current mouse coords ' + inttostr(b1)+','+inttostr(b2)+','+inttostr(b3)+',' +inttostr(b4))
b1:=b1+20
b2:=b2+20
bb:=bb+1
If(bb>70)then
begin
b1:=100
b2:=38
bb:=0
end;
wait(30)
until(getcolor(247,443)=16711680)
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
end;
{===Start Sell feature==}
procedure storetopier;
begin
action:= 'Walking back to pier'
currently
If(FindColoredAreaTolerance(x,y,muddyroad,693,56,7 20,90,21,2))then
begin
benleegtmouse(x,y,'left',0)
flagwait;
findcolor(ix,iy,trees,687,12,722,51)
benleegtmouse(ix,iy,'left',0)
wait(6000)
flagwait
findcolor(x,y,fishlogo,559,5,731,157)
benleegtmouse(x,y,'left',0)
flagwait;
end else
If(not(FindColoredAreaTolerance(x,y,muddyroad,693, 56,720,90,21,2)))then
begin
logout1('Error wth map')
wait(100)
loginifneeded;
end
end;
procedure seller;
var trade,berilee2:Integer;
begin
berilee2:=0
action:= 'Finding Storekeeper.'
currently
trade := LoadBitmap('trade.bmp');
repeat
FindColoredAreaTolerance(ix,iy,apron,0,0,390,335,4 ,3)
benleegtmouse(ix,iy,'false',200)
If(istextat2(9,9,'Talk',75))then break;
until(false)
benleegtmouse(ix,iy,'right',0)
wait(200)
FindBitmapMaskTolerance(trade,x,y,0,0,513,337,20,2 0)
benleegtmouse(x,y,'left',0)
repeat
wait(100)
berilee2:=berilee2+1
until(getcolor(216,41)=2070783)
action:= 'Trading'
currently
wait(1000)
storetopier;
end;
procedure piertostore;
begin
action:= 'Walking to store.'
currently
findcolor(ix,iy,trees,627,130,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
benleegtmouse(ix,iy,'left',0)
flagwait;
findcolor(ix,iy,potty,594,69,682,150)
benleegtmouse(ix,iy,'left',0)
flagwait;
seller;
end;
{===end Sell Feature===}
Procedure AutoDrop4(item,item2,item3,item4 :string);
var drop,DropYe,Row,Col,Ix,Iy,InvLoc,Dropx,dropy:integ er;
begin
drop := BitmapFromString(28, 2,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFF FFFFF' +
'FFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF');
dropYe := BitmapFromString(28, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF00F FFF00' +
'FFFF00000000000000000000000000FFFF00FFFF00FFFF00F FFF00' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00');
InvLoc:=1; Col:=1; Row:=1;
repeat
Ix:=(Col-1)*42+574;
Iy:=(Row-1)*36+218;
MoveMouseSmooth(Ix+random(17),Iy+random(17));
wait(150+random(30));
If(IsTextAt2(9,9,item,100))then
begin
GetMousePos(x,y);
ClickMouse(x,y,false);
wait(100+random(25));
if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460)) or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460 ))then
begin
Mouse(dropx+10,dropy,20,4,true);
wait(100+random(50));
end;
end;
If(IsTextAt2(9,9,item2,100))then
begin
GetMousePos(x,y);
ClickMouse(x,y,false);
wait(100+random(25));
if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460)) or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460 ))then
begin
Mouse(dropx+10,dropy,20,4,true);
wait(100+random(50));
end;
end;
If(IsTextAt2(9,9,item3,100))then
begin
GetMousePos(x,y);
ClickMouse(x,y,false);
wait(100+random(25));
if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460)) or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460 ))then
begin
Mouse(dropx+10,dropy,20,4,true);
wait(100+random(50));
end;
end;
If(IsTextAt2(9,9,item4,100))then
begin
GetMousePos(x,y);
ClickMouse(x,y,false);
wait(100+random(25));
if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460)) or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460 ))then
begin
Mouse(dropx+10,dropy,20,4,true);
wait(100+random(50));
end;
end;
InvLoc:=InvLoc+1;
Row:=Row+1;
if(Row>7)then
begin
Col:=Col+1;
Row:=1;
end;
until(InvLoc>28)
end;
Procedure findnumber(item :string);
var Row,Col,Ix,Iy,InvLoc:integer;
begin
InvLoc:=1; Col:=1; Row:=1;
repeat
Ix:=(Col-1)*42+574;
Iy:=(Row-1)*36+218;
MoveMouseSmooth(Ix+random(17),Iy+random(17));
wait(150+random(30));
If(IsTextAt2(9,9,'Use '+item,100))then
begin
fishno:=fishno+27
end;
InvLoc:=InvLoc+1;
Row:=Row+1;
if(Row>7)then
begin
Col:=Col+1;
Row:=1;
end;
until(InvLoc>28)
end;
procedure dropfish;//by dsgamer
begin
findnumber('Raw');
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
writeln('Inventory full, Drop time!/You gained a level!!Whee...')
benleegtmouse(247,443,'left',200)
openbag;
If(Drop_or_sell='Drop')then
begin
action:= 'Dropping stuff'
currently
AutoDrop4('Use Burnt','Use '+fishtodrop,'Eat k','Drink')
end else
If(Drop_or_sell='Sell')then
begin
piertostore;
end;
end;
Procedure PrintProgressReport; //modified from Phalanx's script
var
RHours,Minutes,Seconds,RMinutes,RSeconds,ST:LongIn t;
Time:String;
begin
if(graphicreport='false')then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
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)+':'+inttostr(RMinutes)+':'+ inttostr(RSeconds);
end;
begin
writeln(' ');
writeln('<=================Progress Report================>');
writeln('Worked for '+Time);
writeln('Caught about ' + inttostr(fishno)+ ' fishes.')
writeln('Ran from ' + inttostr(whirlpoolno) + ' whirlpool(s)')
writeln('Ran from ' + inttostr(runno) + ' fight(s)')
writeln('Picked up equipment ' + inttostr(pickno) + ' time(s)')
writeln('<======================================== ========>');
end;
end else
if(graphicreport='true')then
begin
SendInterSCARMessage('fish','Caught about '+inttostr(fishno)+' fishes.')
SendInterSCARMessage('whirlpool','Ran from '+inttostr(whirlpoolno)+' whirlpools.')
SendInterSCARMessage('picked','Picked equipment '+inttostr(pickno)+' times.')
SendInterSCARMessage('npcs','Ran from '+inttostr(runno)+ ' npcs')
SendInterSCARMessage('time','Script ran for '+Time)
end;
end;
begin
action:= 'Setting up script'
currently
PrintProgressReport
techno:=0
timer:=0
SetMouseMode(false)
whirlpoolno:=0
runno:=0
fishno:=0
pickno:=0
writeln('A Great script by Benleegt')
SetMouseMode(False);
setuptypes
If(findcolor(ix,iy,potty,594,69,682,150))then seller;
equip := getequipmentcolour;
repeat
timer:=timer+1
loginifneeded
benfish;
dropfish;
PrintProgressReport;
wait(100)
until(false)
end.
---------------------------Don't Copy This Broken Lines--------------------
Bone Burier Scripts----¬
BONE BURIER no.1
// Bone Bury - by PorTal
// Put Bones in first bank slot
// Fill in how many bones you have for BCheck
// Sit in bank and let this go
// If monster found then it runs south east
// so make sure your in a bank like al kahrid
// that you can run southeast.
// credits to odie5533 and psycho for randoms, osi and
program BoneBury;
{.include osi.txt}
{.include par.txt}
var Check,Counter,Counter2:integer;
const
BCheck=500; //Number of Bones
BoneColor=14277086; //bone colour 14277086
BankSymbol=3060683;
LampSkill='hitpoints';
///////////////////////////////////////////////////////////////////////////////
Procedure FindFight; // From Stupid's Guildminer
begin
if(FindColorSpiral(x,y,65280,180,90,320,230))then begin wait(1000) end;
if(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Mouse(696,118,5,5,true)
wait(15000+random(1000))
if(FindColorSpiral(x,y,BankSymbol,565,5,725,160))t hen
begin
Mouse(x,y,1,1,true);
end;
end;
end;
procedure FindMiscRandoms; //from odie5533
var ax,ay:integer;
begin
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
Check:=BCheck;
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
Check:=BCheck;
end;
end;
procedure RandomChecker; //thanks odie, pplsuqbawlz, and
begin
wait(100)
FindFight;
Check4Randoms;
Check4Lamp(LampSkill);
FindMiscRandoms;
end;
///////////////////////////////////////////////////////////////////////////////
// Banking from odie
Procedure Bank;
begin
OpenBank;
Withdraw(1,1,0);
CloseBank;
end;
Procedure Bury;
begin
counter:=0;
counter2:=0;
repeat
RandomChecker;
counter:=counter+1;
if (findcolorspiral(x,y,BoneColor,562,214,729,454)) then
begin
wait(100+random(50))
Mouse(x,y,5,5,true)
wait(2000+random(200))
end else
begin
Counter2:=Counter2+1;
