{.include boxbreaker2.txt}
const
     Username1='Username'; //Account Number 1 //\\CASE SENSITIVE type it like a random would say it//\\
     Password1='Password'; //Account Number 1
     Username2=''; //Account Number 2 //\\CASE SENSITIVE type it like a random would say it//\\
     Password2=''; //Account Number 2
     Username3=''; //Account Number 3 //\\CASE SENSITIVE type it like a random would say it//\\
     Password3=''; //Account Number 3
     Username4=''; //Account Number 4 //\\CASE SENSITIVE type it like a random would say it//\\
     Password4=''; //Account Number 4
     Username5=''; //Account Number 5 //\\CASE SENSITIVE type it like a random would say it//\\
     Password5=''; //Account Number 5
     Us = 1; //The account number of the username and password
 {---Anti-Randoms / Anti-Ban---}
     UsernameShort = 'Ricky';		//shorten your username (first letter capitol)
     LampSkill = 'HitPoints'; 		//lampskill to use
     UseSetRun = True;	      		//Use the set running procedure (N , S , E , W)
     RunDirection = 'S';    		//direction to run
     RunFar = True;		        //Run far or Not
     RunLandMark = False;    		//Do you want to run to a landmark?
     RunLandMarkCol = 232;    		//LandMark Color to run to
     Setup = False; // did u setup the antis and your username
 //  VERSION.. Dont Touch \\
     LibVersion='1.56';
var
   x,y,North,South,West,OreImg,counter,counter2,Row,Clm,x1,y1,x2,y2,Full,Attached,Head,BarImg,Handle,PickHead,PickAxe,Gas,BrokenPick,GemImg,Lamp,dLamp,East,Choice,ax,ay,mininglvl,rx,cy,Image,UpChars,CharsChat,Fontsmall,Font2:integer;
   Say :Array[1..30] of String;
   S,AntiRandomUsername:String;
   St:LongInt;
// /////////////////////////// //
// Waits while flag exists.    //
// /////////////////////////// //
Procedure Flag;
var flagimage:integer;
begin
     flagimage := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
     repeat
           wait(250);
     until(not findbitmapin( flagimage, x, y, 570, 5, 725, 162));
     freebitmap(flagimage);
end;
// /////////////////////////// //
// T/F depending on flag exist.//
// /////////////////////////// //
Function FlagPresent:boolean;
var flagimage:integer;
begin
     flagimage := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
     if(findbitmapin( flagimage, x, y, 570, 5, 725, 162))then result:=true;
     freebitmap(flagimage);
end;
// /////////////////////////// //
// Moves the mouse.            //
// /////////////////////////// //
Procedure MMouse(mousex,mousey,ranx,rany:integer);
var  randx, randy:integer;
begin
if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
begin
     randx:=mousex+random(ranx); randy:=mousey+random(rany);
     MoveMouseSmoothEx(randx+1,randy, 2, 4, 15, 20, 10)
     sleep(45+random(45));
end;
end;
// /////////////////////////// //
// Moves then clicks mouse.    //
// /////////////////////////// //
Procedure Mouse(mousex,mousey,ranx,rany:integer; left:boolean);
var a,b,c:integer;
begin
if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
begin
          MMouse(mousex,mousey,ranx,rany);
          GetMousePos(b,c);
          HoldMouse(b+1,c,left);
          repeat
                wait(10+random(40));
                a:=a+1;
          until(a>4);
          GetMousePos(b,c);
          ReleaseMouse(b,c,left);
     wait(250+random(250));
     end;
end;
// /////////////////////////// //
// Sends text human-like.      //
// /////////////////////////// //
Procedure TypeSend(text:string);
var  LoadNumber:Integer;
begin
     LoadNumber:=1;
     repeat
           SendKeys(StrGet(Text, loadnumber));
           LoadNumber:=LoadNumber+1;
           Wait(100+random(100));
     until(LoadNumber>Length(text));
     sendkeys(chr(13))
end;
// /////////////////////////// //
// Switches between tabs.      //
// /////////////////////////// //
Procedure GameTab(tabnumber:integer);
begin
case tabnumber of
1:if(Not(GetColor(565,185)=2829182))then Mouse(557,186,5,5,true); //Fighting tab
2:if(Not(GetColor(593,183)=2434414))then Mouse(585,187,5,5,true); //Stats tab
3:if(Not(GetColor(623,192)=2171233))then Mouse(612,185,5,5,true); //Quests tab
4:if(Not(GetColor(633,176)=2829182))then Mouse(650,185,5,5,true); //Bag tab
5:if(Not(GetColor(678,195)=1579079))then Mouse(684,185,5,5,true); //Equip tab
6:if(Not(GetColor(703,191)=2171233))then Mouse(710,187,5,5,true); //Prayer tab
7:if(Not(GetColor(731,180)=2829182))then Mouse(736,185,5,5,true); //Magic Tab
end;
end;
// /////////////////////////// //
// Counts your inventory.      //
// /////////////////////////// //
function InventoryCount:Boolean;
begin
    If(FindBitmapMaskTolerance(Full,x,y,200,370,305,415,0,30))Then
Result:=True;
end;
// /////////////////////////// //
// Finds text like istextat2   //
// /////////////////////////// //
Function IsUpText(text:string):boolean;
begin
     If(IsTextAt2(9,9,text,100))Then
     result:=True
     If(Not(IsTextAt2(9,9,text,100)))Then
     result:=False
     wait(10);
end;
// /////////////////////////// //
// Trys to find text in area.  //
// /////////////////////////// //
Function SearchForTextTol(sx,sy,ex,ey:integer; text:string; ChatChars,tol:integer):boolean;
begin
     Image:=CreateBitmapMaskFromText(Text,ChatChars)
     if(FindBitmapMaskTolerance(Image,x,y,sx,sy,ex,ey,tol,85))then result:=true else result:=false;
     FreeBitmap(Image);
     wait(10);
end;
// /////////////////////////// //
// Trys to find text in area.  //
// /////////////////////////// //
Function SearchForText(sx,sy,ex,ey:integer; text:string; ChatChars:integer):boolean;
begin
     Image:=CreateBitmapMaskFromText(Text,ChatChars)
     if(FindBitmapMaskTolerance(Image,x,y,sx,sy,ex,ey,0,85))then result:=true else result:=false;
     FreeBitmap(Image);
     wait(10);
end;
// /////////////////////////// //
// finds text - clicks it.      //
// /////////////////////////// //
Function ClickText(x1,y1,x2,y2:integer; text:string; font:integer):boolean; //Edit By Mutant Squirrle
begin
if(searchfortext(x1,y1,x2,y2,text,font))then
begin
mouse(x+10,y+3,15,0,True);
result:=true;
end;
end;
// //////////////////// //
// clicktext but shorter//
// //////////////////// //
procedure ClickTxt(s:string);
begin
 Wait(300);
 ClickText(4,4,755,488,s,Font2);
end;
// /////////////////////////// //
// Closes Windows if possible. //
// /////////////////////////// //
Function CloseWindow:boolean; 
begin
     if(SearchForText(4,4,516,338,'Close Window', Fontsmall))then
     begin
         repeat
          Mouse(x+3,y+2,1,1,true);
          wait(50+random(25));
         until(not(SearchForText(4,4,516,338,'Close Window', Fontsmall)))
          result:=true;
     end;
end;
// /////////////////////////// //
// Logs in if possible.        //
// /////////////////////////// //
Procedure login(Us:Integer); 
var Loop:Integer;
Username,Password:String;
begin
If(GetColor(516,273)=2104604)and(GetColor(393,293)=723723)Then
begin
If(us=1)Then
begin
Username:=Username1;
Password:=Password1;
end;
If(us=2)Then
begin
Username:=Username2;
Password:=Password2;
end;
If(us=3)Then
begin
Username:=Username3;
Password:=Password3;
end;
If(us=4)Then
begin
Username:=Username4;
Password:=Password4;
end;
If(us=5)Then
begin
Username:=Username5;
Password:=Password5;
end;
If(GetColor(392,330)=723723)and(GetColor(534,323)=1381395)Then
begin
Mouse(464,322,0,0,true);
end;
Mouse(419,291,0,0,true);
wait(50)
Mouse(343,261,0,0,True)
TypeSend(username);
wait(50)
Mouse(335,273,0,0,True)
TypeSend(password);
wait(50)
Mouse(302,324,0,0,True)
loop:=0;
Repeat
wait(1000);
Until((Loop>39)or(CloseWindow)or((SearchForText(265,200,500,220,'Your account is already logged in.',Font2))and(SearchForText(300,215,465,235,'Try again in 60 secs...',Font2))));
if(SearchForText(265,200,500,220,'Your account is already logged in.',Font2))then
begin
Writeln('Your account is in use... We will stay logged out for anti-detection.');
Writeln('Beggining loop that stops script from working.');
repeat
wait(30000);
until(false);
end;
if(SearchForText(265,200,500,220,'updated',Font2))then
begin
Writeln('Runescape has been updated... We will stay logged out for anti-detection.');
Writeln('Beggining loop that stops script from working.');
repeat
wait(30000);
until(false);
If(CloseWindow)Then
begin
CloseWindow;
wait(40000)
CloseWindow;
end;
end;
end;
end;

// /////////////////////////// //
// Logs out if possible        //
// /////////////////////////// //
Procedure Logout;
begin
     if(not(GetColor(634,483)=2500207))then
     begin
          Mouse(634,483,5,5,true);
     end;
     if(GetColor(634,483)=2500207)then
     begin
     Mouse(644,369,5,5,True)
     end;
end;

// /////////////////////////// //
// Switches to run...          //
// /////////////////////////// //
Procedure Run(which:boolean); 
begin
if(Not(GetColor(709,494)=2763390))then Mouse(710,485,5,5,true);
if(which)and(Not(GetColor(621,277)=1908611))then
begin
     Mouse(625,268,5,5,True)
end;
if(not which)and(Not(GetColor(581,276)=1777020))then
begin
     Mouse(581,266,5,5,True)
end;
GameTab(4)
end;
// ///////////////////////////////////////// //
// Trys to find an obj usin multi colors.    //
// ////////////////////////////////////////  //
Function Scan4ObjectMulti(scanwidth,scanheight,color,color2,color3,tolerence:integer; name:string):boolean; 
var  a,b,c,d,e,f:integer;
     s,t,u,v,w,z:integer;
     addx,addy,switch:integer;
     change,forwardx,forwardy,which:boolean;
begin
     change:=false;
     which:=false
     forwardx:=true;
     forwardy:=true;
     a:=516/scanwidth;
     b:=338/scanheight;
     c:=Trunc(a/2);
     d:=Trunc(b/2);
     e:=0;
     f:=0;
     addx:=1;
     addy:=1;
     switch:=1;
   repeat
     if(((FindColorTolerance(s,t,color,(258+e*scanwidth),(169+f*scanheight),(258+e*scanwidth+scanwidth),(169+f*scanheight+scanheight),tolerence))and
        (FindColorTolerance(u,v,color2,(258+e*scanwidth),(169+f*scanheight),(258+e*scanwidth+scanwidth),(169+f*scanheight+scanheight),tolerence))and
        (FindColorTolerance(w,z,color3,(258+e*scanwidth),(169+f*scanheight),(258+e*scanwidth+scanwidth),(169+f*scanheight+scanheight),tolerence)))=true)then
     begin
          x:=((s+u+w)/3);
          y:=((t+v+z)/3);
          mouse(x,y,0,0,false);
          if(SearchForText(4,4,516,338,name,Font2))then
          begin
               result:=true;
		break;
		break;
          end else
          begin
               if(SearchForText(4,4,516,338,'Cancel',Font2))then
               begin
               mmouse(x-25-random(25),y+25,45,45);
               wait(500+random(500));
               end;
          end;
     end;
     if(change)then
     begin
          switch:=switch*-1;
          addx:=(addx*-1)+switch;
          addy:=(addy*-1)+switch;
          change:=false;
     end;
     if(forwardx)and(not which)then e:=e+switch;
     if(forwardy)and(which)then f:=f+switch;
     if(e=addx)then
     begin
          forwardx:=false;
          which:=true;
     end;
     if(f=addy)then
     begin
          forwardy:=false;
          which:=false;
     end;
     if(not forwardy)and(not forwardx) then
     begin
          forwardy:=true;
          forwardx:=true;
          change:=true;
     end;
   until((e>c) or (f>d));
end;
// /////////////////////////// //
// Used by other chat funcs.   //
// /////////////////////////// //
Function GetChatState(offset:integer):string;
begin
if(FindColorSpiral(x,y,65280,49+offset,482,64+offset,498))then
result:='On';
if(FindColorSpiral(x,y,clyellow,35+offset,482,77+offset,498))then
result:='Friends';
if(FindColorSpiral(x,y,clred,46+offset,482,66+offset,498))then
result:='Off';
if(FindColorSpiral(x,y,16776960,44+offset,482,68+offset,498))then
result:='Hide';
end;
Function GetPublicChat:string;
begin
result:=GetChatState(0);
end;
Function GetPrivateChat:string;
begin
result:=GetChatState(129);
end;
Function GetTradeDuel:string;
begin
result:=GetChatState(269);
end;

Procedure SetPublicChat(state:string);
var randomx,randomy:integer;
begin
randomx:=random(101);
randomy:=random(30);
case state of
'On':      While(not (GetPublicChat='On'))do
                mouse(6+randomx,469+randomy,0,0,true);
'Friends': While(not (GetPublicChat='Friends'))do
                mouse(6+randomx,469+randomy,0,0,true);
'Off':     While(not (GetPublicChat='Off'))do
                mouse(6+randomx,469+randomy,0,0,true);
'Hide':    While(not (GetPublicChat='Hide'))do
                mouse(6+randomx,467+randomy,0,0,true);
end;
end;
Procedure SetPrivateChat(state:string);
var randomx,randomy:integer;
begin
randomx:=random(101); randomy:=random(30);
case state of
'On':      While(not (GetPrivateChat='On'))do
                mouse(135+randomx,469+randomy,0,0,true);
'Friends': While(not (GetPrivateChat='Friends'))do
                mouse(135+randomx,469+randomy,0,0,true);
'Off':     While(not (GetPrivateChat='Off'))do
                mouse(135+randomx,469+randomy,0,0,true);
end;
end;
Procedure SetTradeDuel(state:string);
var randomx,randomy:integer;
begin
randomx:=random(101); randomy:=random(30);
case state of
'On':      While(not (GetTradeDuel='On'))do
                mouse(273+randomx,469+randomy,0,0,true);
'Friends': While(not (GetTradeDuel='Friends'))do
                mouse(273+randomx,469+randomy,0,0,true);
'Off':     While(not (GetTradeDuel='Off'))do
                mouse(273+randomx,469+randomy,0,0,true);
end;
end;
// ////////////////////////////// //
// Sets all chats to what you want//
// ////////////////////////////// //
Procedure SetChat(state:string);
begin
SetPublicChat(state);
SetPrivateChat(state);
SetTradeDuel(state);
end;
// ////////////////////////////// //
// Edited By Mutant Squirrle      //
// ////////////////////////////// //
procedure SetFightMode(oFightMode:integer); 
begin
if(GetColor(559,179)=5531511)then
Mouse(548,176,10,15,true);
wait(200+random(50));
if(oFightMode=1)and(not (GetColor(565,282)=2303647))then
Mouse(598,287,55,15,true);
if(oFightMode=2)and(not (GetColor(565,323)=2303647))then
Mouse(597,334,55,15,true);
if(oFightMode=3)and(not (GetColor(565,367)=2303647))then
Mouse(597,381,55,15,true);
if(not (GetColor(633,179)=2829182))then
begin
wait(400+random(100));
Mouse(635,176,15,15,true);
wait(400+random(100));
end;
end;
// ////////////////////////////////// //
// Gets the real time on your PC      //
// ////////////////////////////////// //
Function TheTime:string; 
var  Hour, Min, Sec, MSec: Word;
     PM:string;
begin
     DecodeTime(Now, Hour, Min, Sec, MSec);
     PM:='AM';
     if(hour>12)then
     begin
          hour:=hour-12;
          PM:='PM';
     end;
     result:=(inttostr(hour) + ':' + inttostr(min) + ':' + inttostr(sec) + ' ' + PM);
end;
// /////////////////// //
// Disguise Scars title//
// /////////////////// //
Procedure DisguiseScar(disguise:string);
var application:tapplication;
    Self: TForm;
begin
    Application:= GetApplication;
    Application.Title:= disguise;
    Self:= GetSelf;
    Self.Caption:= disguise;
end;
// //////////////////////// //
// Checks an inventory spot //
// //////////////////////// //
Function InventorySlotColor(Clm,Row,Color:integer):Boolean;
begin
x1:=(clm*45)+525
x2:=(clm*45)+560
y1:=(row*30)+180
y2:=(row*30)+210
x:=x1
y:=y1
repeat
repeat
Counter:=Counter+1
If(GetColor(x,y)=Color)Then
begin
Result:=True
End;
X:=x1+(1*Counter)
until(x>x2)
wait(10)
Counter:=0;
Counter2:=Counter2+1
X:=x1
Y:=Y1+(1*Counter2)
Until(y>y2)
end;
// /////////////////////////// //
// Drops inventory using Color //
// /////////////////////////// //
Procedure DropInvenColor(Color:integer);
begin
repeat
Row:=Row+1
repeat
Clm:=Clm+1
If(InventorySlotColor(Clm,Row,Color))Then
begin
Mouse(x,y,0,0,False)
wait(300)
If(SearchForText(555,200,740,460,'Drop',Font2))Then
ClickText(555,200,740,460,'Drop',Font2)
end;
If(Not(SearchForText(555,200,740,460,'Drop',Font2)))and(SearchForText(555,200,740,460,'Cancel',Font2))Then
begin
MMouse(555,200,20,0)
end;
until(clm=4)
clm:=0;
until(row=8)
end;
// ///////////////////////////////// //
// Checks an inventory spot with dtm //
// ///////////////////////////////// //
Function InventorySlotDTM(Clm,Row,DTM:integer):Boolean;
begin
x1:=(clm*45)+525
x2:=(clm*45)+560
y1:=(row*30)+180
y2:=(row*30)+210
If(FindDtm(DTM,x,y,x1,y1,x2,y2))Then
Result:=True
If(Not(FindDtm(DTM,x,y,x1,y1,x2,y2)))Then
Result:=False
end;
// ///////////////////////// //
// Drops inventory using DTM //
// ///////////////////////// //
Procedure DropInvenDTM(DTM:integer);
begin
repeat
Row:=Row+1
repeat
Clm:=Clm+1
If(InventorySlotDTM(Clm,Row,DTM))Then
begin
Mouse(x,y,0,0,False)
wait(300)
If(SearchForText(555,200,740,460,'Drop',Font2))Then
ClickText(555,200,740,460,'Drop',Font2)
end;
If(Not(SearchForText(555,200,740,460,'Drop',Font2)))and(SearchForText(555,200,740,460,'Cancel',Font2))Then
begin
MMouse(555,200,20,0)
end;
until(clm=4)
clm:=0;
until(row=8)
end;
// ///////////////////////////////////////////////////////// //
// Finds An Object on screen using a 20 x 20 box until found //
// ///////////////////////////////////////////////////////// //
Function MutantFindObj(Color,Tolerance:integer; ObjName:string):boolean;
var x1v,y1v:integer;
begin
x1v:=0
y1v:=0
repeat
Counter2:=Counter2+1
y1:=y1v
y2:=y1+(20*counter2)
repeat
Counter:=Counter+1
x1:=x1v+(20*counter)
x2:=x1+(20*counter)
wait(10)
If(FindColorSpiralTolerance(x,y,Color,x1,y1,x2,y2,Tolerance))and(Not(x>=517))Then
begin
MMouse(x,y,0,0)
If(IsUpText(ObjName))Then
Result:=True;
end;
wait(10)
x1v:=x2;
Until(x2>=520)or(Result=True)
x1v:=0;
y1v:=20*Counter2;
Counter:=0;
until(y1>=340)Or(Result=True)
end;
// /////////////////////////// //
// Opens the bank screen.      //
// /////////////////////////// //
Function OpenBank:boolean;
begin
MutantFindObj(2842230,15,'quickly')
clicktxt('quickly')
     flag;
     wait(500);
     result:=True;
end;
// ///////////////////////////////////// //
// Checks if colors in inventory         //
// ///////////////////////////////////// //
Function FindColorInven(Color:integer):Boolean;
begin
x:=560
y:=209
repeat
repeat
Counter:=Counter+1
If(GetColor(x,y)=Color)Then
begin
ax:=x
ay:=y
Result:=True
End;
X:=555+(1*Counter)
until(x>740)or(Result=True)
wait(10)
Counter:=0;
Counter2:=Counter2+1
X:=560
Y:=209+(1*Counter2)
Until(y>460)or(Result=True)
end;
// /////////////////////////// //
// Deposits all items.         //
// /////////////////////////// //
Procedure DepositAll;
begin
If(GetColor(187,37)=2070783)Then
begin
repeat
If(FindColorInven(65536))Then
begin
Mouse(Ax,Ay,0,0,False)
wait(300)
If(SearchForText(555,200,740,460,'All',Font2))Then
ClickText(555,200,740,460,'All',Font2)
end;
If(Not(SearchForText(555,200,740,460,'All',Font2)))and(SearchForText(555,200,740,460,'Cancel',Font2))Then
begin
MMouse(555,200,20,0)
end;
until(Not(FindColorInven(65536)))
end;
end;
// ///////////////////////////////////// //
// Checks if colors in an area           //
// ///////////////////////////////////// //
Function FindColorArea(Color,x1,y1,x2,y2:integer):Boolean;
begin
x:=x1
y:=y1
repeat
repeat
Counter:=Counter+1
If(GetColor(x,y)=Color)Then
begin
ax:=x
ay:=y
Result:=True
End;
X:=x1+(1*Counter)
until(x>x2)or(Result=True)
wait(10)
Counter:=0;
Counter2:=Counter2+1
X:=x1
Y:=y1+(1*Counter2)
Until(y>y2)or(Result=True)
end;
// //////////////////////////////// //
// Deposits all items in a Location.//
// //////////////////////////////// //
Procedure DepositAllLoc(x1,y1,x2,y2:integer);
begin
If(GetColor(187,37)=2070783)Then
begin
x:=x1
y:=y1
repeat
repeat
Counter:=Counter+1
If(GetColor(x,y)=65536)Then
begin
Mouse(x,y,0,0,False)
ClickTxt('All')
End;
X:=x1+(1*Counter)
until(x>x2)
wait(10)
Counter:=0;
Counter2:=Counter2+1
X:=x1
Y:=Y1+(1*Counter2)
Until(y>y2)
end;
end;
// ////////////////////////////////// //
// By Mutant Squirrle Pick Up Anything//
// ////////////////////////////////// //
Procedure PickUpObject(ClickWhat:string; objcolor:integer); //Made By Mutant
begin
MutantFindObj(objcolor,5,'Take')
Mouse(x,y,0,0,False)
Clicktxt(Clickwhat)
end;
// ////////////////////////////////// //
// Compares to the last slot in chat  //
// ////////////////////////////////// //
Function GetChatFul(s:string):boolean;
begin
Image:=CreateBitmapMaskFromText(S,CharsChat)
If(Not(FindBitmapMaskTolerance(Image,x,y,15,410,480,435,0,30)))Then
begin
Result:=False;
end;
If(FindBitmapMaskTolerance(Image,x,y,15,410,480,435,0,30))Then
begin
result:=True;
end;
FreeBitmap(Image);
end;
// /////////////////////////////////////// //
// Buying Procedure Made By Mutant Squirrle//
// /////////////////////////////////////// //
Procedure Buy(Color,Amount:integer);
begin
If(FindColorArea(Color,16,24,504,324))Then
If(Amount>=10)Then
Amount:=Amount/10
repeat
Mouse(Ax,Ay,0,0,False)
Clicktxt('Buy 10')
Counter:=Counter+1
wait(400)
until(Counter>=Amount)or(GetChatFul('enough money.'))
If(Amount>=5)and(Amount<10)Then
Amount:=Amount/5
repeat
Mouse(Ax,Ay,0,0,False)
Clicktxt('Buy 5')
Counter:=Counter+1
wait(400)
until(Counter>=Amount)or(GetChatFul('enough money.'))
If(Amount<5)and(Amount>0)Then
Amount:=Amount/1
repeat
Mouse(Ax,Ay,0,0,False)
Clicktxt('Buy 1')
Counter:=Counter+1
wait(400)
until(Counter>=Amount)or(GetChatFul('enough money.'))
end;
// //////////////////////////// //
// Withdraw Colm Row and Amount //
// //////////////////////////// //
Procedure Withdraw(Col,Row,Amount:integer);
var rx,ry,c:integer;
begin
if(GetColor(187,37)=2070783)and(col>0)and(row>0)and(col<5)and(row<8)then
begin
 rx:=35+(col*47)
 ry:=27+(row*38)
if(amount=1)then
begin
 Mouse(rx,ry,23,23,true);
 wait(600+random(200));
end;
if(amount=0)or(amount>1)then
begin
 Mouse(rx,ry,23,23,false)
 wait(200+random(100));
 if(amount=0)then
 begin
 if(SearchForText(3,24,500,328,'Withdraw All',2))then
  begin
   ClickText(3,24,500,328,'Withdraw All',2)
  wait(600+random(200));
 end;
 end else
 begin
  GetMousePos(x,y)
  Mouse(x,y+81,20,10,true);
  repeat
   c:=c+1;
   wait(75);
  until(c>20)or(GetColor(258,412)=8388608)
  wait(500+random(200));
  if(GetColor(258,412)=8388608)then
   TypeSend(inttostr(amount)+chr(13))
  wait(500+random(200));
 end;
end;
end;
end;
// //////////////////// //
// used to talk in Ghost//
// //////////////////// //
procedure Speak(text:string);
begin
TypeSend(text+chr(13));
end;
// //////////////////// //
// this is the wordlist //
// //////////////////// //
Procedure LoadWords(ActionType:String);
begin
If(ActionType='Fighting')Then
   begin
     Say[1]:='str lvls';       //Fighting
     Say[2]:='def lvls';
     Say[3]:='att lvls';
     Say[4]:='take that';
     Say[5]:='crazy';
     Say[6]:='cant handle this';
     Say[7]:='super';
     Say[8]:='pretty fly';
     Say[9]:='ooog';
     Say[10]:='arg';
     Say[11]:='doh';
     Say[12]:='doof';
     Say[13]:='ai karumba';
     Say[14]:='ugg';
     Say[15]:='man this is insane';
     Say[16]:='booya';
     Say[17]:='owning these beasts';
     Say[18]:='owned';
     Say[19]:='watch and learn';
     Say[20]:='oh yeah';
     Say[21]:='uh huh';
     Say[22]:='victory dance';
     Say[23]:='we are the champions';
     Say[24]:='no time to sleep';
     Say[25]:='perfect';
     Say[26]:='captain insano';
     Say[27]:='excellent';
     Say[28]:='yay almost lvled up';
     Say[29]:='keep it up';
     Say[30]:='bring it on';
end;
If(ActionType='Mining')Then
begin
     Say[1]:='Mining lvls';       //Mining
     Say[2]:='smithing lvls';
     Say[3]:='stop stealin my ores';
     Say[4]:='i love this pick';
     Say[5]:='mining is boring';
     Say[6]:='haha';
     Say[7]:='lol';
     Say[8]:='oh yeah';
     Say[9]:='u like to mine';
     Say[10]:='go away';
     Say[11]:='let me mine in peace';
     Say[12]:='bahaha';
     Say[13]:='freakin rocks';
     Say[14]:='how many ores u got in bank';
     Say[15]:='ive got ores';
     Say[16]:='my mining owns yours';
     Say[17]:='ill give you my pick, not';
     Say[18]:='noob';
     Say[19]:='minin lvl';
     Say[20]:='mining level';
     Say[21]:='give me a rune pick';
     Say[22]:='are rune picks the best';
     Say[23]:='be quiet';
     Say[24]:='your annoying';
     Say[25]:='buzz off';
     Say[26]:='go take a dump';
     Say[27]:='mining takes too long';
     Say[28]:='yay almost lvl up';
     Say[29]:='my mining is about to lvl up';
     Say[30]:='w00t';
end;
If(ActionType='Woodcutting')Then
begin
     Say[1]:='Cutting lvls';       //Woodcutting
     Say[2]:='wood level';
     Say[3]:='woodcutting levels';
     Say[4]:='Taste my axe';
     Say[5]:='poison ivy oh no';
     Say[6]:='chop away';
     Say[7]:='the bark is worse than the bite';
     Say[8]:='whats the best tree';
     Say[9]:='these trees grow fast';
     Say[10]:='look at all these logs';
     Say[11]:='haha';
     Say[12]:='lol';
     Say[13]:='owned';
     Say[14]:='like my axe';
     Say[15]:='my wc is about to lvl';
     Say[16]:='yay woodcutting is almost lvled';
     Say[17]:='bout to lvl up';
     Say[18]:='w00t';
     Say[19]:='are rune axes the best';
     Say[20]:='i found an owl';
     Say[21]:='noob';
     Say[22]:='my woodcutting is better than yours';
     Say[23]:='axes are cool';
     Say[24]:='wow';
     Say[25]:='crazy';
     Say[26]:='insane';
     Say[27]:='cant handle this';
     Say[28]:='stupid tree';
     Say[29]:='why are leaves green';
     Say[30]:='whats your wc lvl';
end;
If(ActionType='Cooking')Then
begin
     Say[1]:='Cooking lvls';       //Cooking
     Say[2]:='cooking level';
     Say[3]:='cooking levels';
     Say[4]:='Taste my pie';
     Say[5]:='rofl';
     Say[6]:='cook away';
     Say[7]:='mmm biscuits';
     Say[8]:='whats the best food';
     Say[9]:='wanna see my cherry pie';
     Say[10]:='look at all these cakes';
     Say[11]:='haha';
     Say[12]:='lol';
     Say[13]:='owned';
     Say[14]:='like my spatula';
     Say[15]:='my cooking is about to lvl';
     Say[16]:='yay cooking is almost lvled';
     Say[17]:='bout to lvl up';
     Say[18]:='w00t';
     Say[19]:='im a chef';
     Say[20]:='i found a cookie';
     Say[21]:='noob';
     Say[22]:='my cooking is better than yours';
     Say[23]:='pies are cool';
     Say[24]:='wow';
     Say[25]:='crazy';
     Say[26]:='insane';
     Say[27]:='cant handle this';
     Say[28]:='stupid oven';
     Say[29]:='too much wine';
     Say[30]:='whats your cooking lvl';
end;
If(ActionType='Fletching')Then
begin
     Say[1]:='Fletching lvls';       //Fletching
     Say[2]:='Fletching level';
     Say[3]:='fletchin levels';
     Say[4]:='Taste my arrow';
     Say[5]:='rofl';
     Say[6]:='shoot away';
     Say[7]:='my arrow has cool feathers';
     Say[8]:='whats the best arrow';
     Say[9]:='these arrows are crooked';
     Say[10]:='look at all these arrows';
     Say[11]:='haha';
     Say[12]:='lol';
     Say[13]:='owned';
     Say[14]:='like my arrow';
     Say[15]:='my fletching is about to lvl';
     Say[16]:='yay fletching is almost lvled';
     Say[17]:='bout to lvl up';
     Say[18]:='w00t';
     Say[19]:='are rune arrows the best';
     Say[20]:='i dont have the skills';
     Say[21]:='noob';
     Say[22]:='my fletching is better than yours';
     Say[23]:='arrows are cool';
     Say[24]:='wow';
     Say[25]:='crazy';
     Say[26]:='insane';
     Say[27]:='cant handle this';
     Say[28]:='stupid arrow';
     Say[29]:='freakin idiot';
     Say[30]:='whats your fletching lvl';
end;
If(ActionType='Smelting')Then
begin
     Say[1]:='smelting lvls';       //Smelting
     Say[2]:='Smelting level';
     Say[3]:='smelting levels';
     Say[4]:='Taste my iron bar';
     Say[5]:='rofl';
     Say[6]:='smelt away';
     Say[7]:='how about steel';
     Say[8]:='whats the best bar';
     Say[9]:='these bars smelt fast';
     Say[10]:='this iron keeps melting';
     Say[11]:='haha';
     Say[12]:='lol';
     Say[13]:='owned';
     Say[14]:='like my skillz';
     Say[15]:='my smelting is about to lvl';
     Say[16]:='yay smelting is almost lvled';
     Say[17]:='bout to lvl up';
     Say[18]:='w00t';
     Say[19]:='are rune bars the best';
     Say[20]:='i found a rune bar';
     Say[21]:='noob';
     Say[22]:='my smelting is better than yours';
     Say[23]:='bars are cool';
     Say[24]:='wow';
     Say[25]:='crazy';
     Say[26]:='insane';
     Say[27]:='cant handle this';
     Say[28]:='stupid iron';
     Say[29]:='im gonna sell this and get rich';
     Say[30]:='whats your smelting lvl';
end;
end;

////////////////////////////////////////////
///--- Ghost's Random Phrase Speaker ---  //
////////////////////////////////////////////
///  EXAMPLE: GhostSpeak('Action');       //
///  Where action is, place the name of   //
///  the task you are doing, such as      //
///  Fighting, Smelting, Mining, etc.     //
////////////////////////////////////////////

Procedure GhostSpeak(Action:string);
var rn:integer;
begin
LoadWords(Action)
if(random(25)=1)then
begin
rn:=random(30)+1;
Speak(Say[rn])
Wait(100+random(100));

end;
end;

Procedure LoadDirections;
begin
North := BitmapFromString(9, 5,
       '2E2A2422211E22211E22211E22211E22211E22211E22211E2E2A24' +
       '20201E20201E6400006400000000016400003F000020201E20201E' +
       '640000640000640000640000000001640000790E00640000640000' +
       '640000640000790E00640000640000790E003F00003F0000790E00' +
       '851B00790E003F00003F0000790E00851B003F00003F0000851B00' +
       '');
East := BitmapFromString(8, 7,
       '2E2A242E2A242E2A242E2A242E2A242E2A242E2A242E2A2422211E' +
       '22211E22211E22211E22211E22211E22211E2E2A2420201E640000' +
       '640000000001640000851B0020201E20201E640000851B00640000' +
       '640000851B00851B00851B00851B00851B00851B00851B001B0000' +
       '851B00962200851B001B00001B0000851B00851B001B0000851B00' +
       '962200851B001B00001B0000851B00851B001B0000851B00851B00' +
       '851B001B0000');
South := BitmapFromString(7, 5,
       '2E2A242E2A242E2A242E2A242E2A242E2A242E2A2422211E22211E' +
       '22211E22211E22211E22211E22211E20201E790E00640000000001' +
       '64000064000020201E790E001B00001B0000000001640000851B00' +
       '6400001B00001B0000790E00790E001B0000790E00851B00');
West := BitmapFromString(7, 7,
       '2E2A242E2A242E2A242E2A242E2A242E2A242E2A2422211E22211E' +
       '22211E22211E22211E22211E22211E20201E640000640000000001' +
       '64000064000020201E640000851B00640000000001640000640000' +
       '640000851B00851B00790E00640000640000790E00640000790E00' +
       '1B00001B00001B00001B00001B00001B00001B00001B00001B0000' +
       '790E001B00001B0000851B00');
end; 

Procedure MakeCompass(Direction:String);
var x,y:integer;
begin
Case Direction Of
'N':
repeat
SendArrowSilentWait(1,random(50))
until(FindBitmapTolerancein(North,x,y,550,0,582,20,10));
'S':
repeat
SendArrowSilentWait(1,random(50))
until(FindBitmapTolerancein(South,x,y,550,0,582,20,10));
'E':
repeat
SendArrowSilentWait(1,random(50))
until(FindBitmapTolerancein(East,x,y,550,0,582,20,10));
'W':
repeat
SendArrowSilentWait(1,random(50))
until(FindBitmapTolerancein(West,x,y,550,0,582,20,10));
end;
activateclient;
end; 

Function Flagdist:integer;
var flagpic,fx,fy,value:integer;
var value2,value3,value4:extended;
begin
 result := 0;
 if(FlagPresent)then;
 begin
  flagpic := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
  FindBitmap(flagpic,fx,fy);
  fx := fx+2;
  fy := fy+2;
  value2:=((648-fx)*(648-fx))+((83-fy)*(83-fy));
  value3:=(abs(value2));
  value4:=(Sqrt(value3));
  value:=trunc(value4);
 end;
 if(value=651)then
  value:=0;
 result:=value;
end;

Procedure HumanFlag(flagdis:integer);
begin
 repeat
  wait(150);
 until(FlagDist<=flagdis)
end;

function GetSkillLoc(x1,y1,x2,y2:integer):integer;
var count,Found:integer;
begin
count:=0;
GameTab(2)
repeat
 Count:=Count+1;
 Image:=CreateBitmapMaskFromText(inttostr(count),FontSmall)
 If(FindBitmapMaskTolerance(Image,x,y,x1,y1,x2,y2,0,30))Then
 begin
 Found:=Count;
 end;
 until(count=99)
 result:=Found;
end;

Function GetChat(s:string):boolean;
begin
Image:=CreateBitmapMaskFromText(':',CharsChat)
If(FindBitmapMaskTolerance(Image,ax,y,15,410,480,435,0,30))Then
begin
Image:=CreateBitmapMaskFromText(S,CharsChat)
If(Not(FindBitmapMaskTolerance(Image,x,y,ax,410,480,435,0,30)))Then
begin
Result:=False;
end;
If(FindBitmapMaskTolerance(Image,x,y,ax,410,480,435,0,30))Then
begin
result:=True;
end;
FreeBitmap(Image);
end;
end;

Procedure SetAntiName(Us:Integer);
begin
If(Us=1)Then
AntiRandomUsername:=UserName1;
If(Us=2)Then
AntiRandomUsername:=UserName2;
If(Us=3)Then
AntiRandomUsername:=UserName3;
If(Us=4)Then
AntiRandomUsername:=UserName4;
If(Us=5)Then
AntiRandomUsername:=UserName5;
end;

Function ChatWait:boolean;
begin
If(GetChatFul(AntiRandomUsername+':'))or(GetChatFul('You climb down the ladder'))or(GetChatFul('You swing your pick at the rock.'))or(GetChatFul('You manage to mine some coal.'))Then
begin
Result:=True;
end;
If(Not(GetChatFul(AntiRandomUsername+':')))or(Not(GetChatFul('You climb down the ladder')))or(Not(GetChatFul('You swing your pick at the rock.')))or(Not(GetChatFul('You manage to mine some coal.')))Then
begin
Result:=False;
end;
end;

Procedure LoadChat;
Var Talked:boolean;
begin
If(Not(ChatWait))Then
begin
Talked:=False
If(Not(Talked))Then
begin
If(GetChat('Hello'))or(GetChat('He;;o'))or(GetChat('He;;p'))or(GetChat('Hellp'))or(GetChat('hello'))or(GetChat('he;;o'))or(GetChat('he;;p'))or(GetChat('hellp'))Then
begin
TypeSend('Hey wassup')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Hey'))or(GetChat('Hwy'))or(GetChat('Hry'))or(GetChat('hey'))or(GetChat('hwy'))or(GetChat('hry'))Then
begin
TypeSend('Hello')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('How are you in here'))or(GetChat('How r u in here'))or(GetChat('How r u n here'))or(GetChat('How you here'))or(GetChat('howd you get in'))or(GetChat('how did u get in'))Then
begin
//Mininglvl:=GetSkillLevel('Mining');
gametab(4)
TypeSend('Im over 60 mining')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Ho'))or(GetChat('Hu'))or(GetChat('Hi'))or(GetChat('ho'))or(GetChat('hu'))or(GetChat('hi'))Then
begin
TypeSend('Hey dude')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Mining levels'))or(GetChat('Mining lvls'))or(GetChat('Minin lvls'))or(GetChat('Whats everyones mining lvls'))or(GetChat('Whats everyones mining levels'))or(GetChat('mining levels'))or(GetChat('mining lvls'))or(GetChat('whats everyones mining lvls'))or(GetChat('whats everyones mining levels'))Then
begin
//Mininglvl:=GetSkillLevel('Mining');
gametab(4)
TypeSend('My mining is level'+inttostr(MiningLvl))
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Yo'))or(GetChat('Yp'))or(GetChat('yo'))or(GetChat('yp'))Then
begin
TypeSend('Hey hows it goin')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('sup'))or(GetChat('Sup'))or(GetChat('Wassup'))or(GetChat('wassup'))Then
begin
TypeSend('Hi')
wait(500)
Talked:=True;
end;
wait(250)
If(GetChat('Im bored'))or(GetChat('im bored'))or(GetChat('I am bored'))or(GetChat('i am bored'))Then
begin
TypeSend('i agree')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('This is boring'))or(GetChat('this is boring'))or(GetChat('This is so boring'))or(GetChat('this is so boring'))Then
begin
TypeSend('boredum...')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('wishes to trade with you.'))Then
begin
TypeSend('i dont want to trade!!')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat(AntiRandomUsername))or(GetChat(usernameshort))Then
begin
TypeSend('wadya need?')
wait(500)
Talked:=True;
end;
wait(250)
If(GetChat('lol'))or(GetChat('Lol'))Then
begin
TypeSend('rofl')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('You got a cannon'))or(GetChat('U got a cannon'))or(GetChat('Do u got a cannon'))or(GetChat('Do you got a cannon'))Then
begin
If(Choice=0)Then
TypeSend('no they suck')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('selling'))or(GetChat('Selling'))or(GetChat('Slling'))or(GetChat('slling'))or(GetChat('sellin'))or(GetChat('Sellin'))Then
begin
TypeSend('im busy')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Buying'))or(GetChat('buying'))or(GetChat('Buyinmg'))or(GetChat('buyinmg'))or(GetChat('buyin'))or(GetChat('Buyin'))Then
begin
TypeSend('im busy')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Help'))or(GetChat('help'))Then
begin
TypeSend('im busy')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('How'))or(GetChat('how'))Then
begin
TypeSend('huh')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('huh'))or(GetChat('Huh'))Then
begin
TypeSend('huh what?')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('no'))or(GetChat('No'))Then
begin
TypeSend('okay')
wait(500)
Talked:=True;
end;
wait(250)
If(GetChat('Yes'))or(GetChat('yes'))Then
begin
TypeSend('okay')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Free'))or(GetChat('free'))Then
begin
TypeSend('go away')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('Please'))or(GetChat('please'))or(GetChat('plz'))or(GetChat('pease'))Then
begin
TypeSend('im busy')
wait(500)
Talked:=True;
end;
wait(50)
If(GetChat('brb'))or(GetChat('Brb'))or(GetChat('gtg'))or(GetChat('Gtg'))Then
begin
TypeSend('ttyl')
wait(500)
Talked:=True;
end;
end;
end;
end;
///////////////////
//  anti-randoms //
///////////////////
function GasColors(gx,gy:integer):boolean;
begin
  if(FindColorTolerance(x,y,11056825,gx-15,gy-25,gx+15,gy+5,15))or
  (FindColorTolerance(x,y,9281445,gx-15,gy-25,gx+15,gy+5,15))then
   result:=true else result:=false;
end;

function GasFound(gx,gy:integer):boolean;
var FailSafe:integer;
begin
 if(GasColors(gx,gy))then
 begin
  Result:=true;
  Mouse(648,84,2,2,True);
  flag;
Gas:=Gas+1
  repeat
   FailSafe:=FailSafe+1;
   wait(250);
  until(FailSafe>=25)or(not(GasColors(gx,gy)))
 end;
end;

Function GetHp:integer;
var Hp1,Hp2:integer;
begin
Hp1:=(GetSkillLoc(648,207,663,223))
Hp2:=(GetSkillLoc(662,218,675,234))
if(Hp1>0)and(Hp2>0)then
Result:=round((Hp1/Hp2)*100);
end;

procedure ClickSkill(usage:string; var lampsx, lampsy: Integer);
begin
 Case usage of
  'attack': Mouse(165,155,3,3,true);
  'strength': Mouse(196,155,3,3,true);
  'ranged': Mouse(227,155,3,3,true);
  'defence': Mouse(258,155,3,3,true);
  'hitpoints': Mouse(289,155,3,3,true);
  'prayer': Mouse(320,155,3,3,true);
  'agility': Mouse(184,193,3,3,true);
  'herblore': Mouse(215,193,3,3,true);
  'thieving': Mouse(246,193,3,3,true);
  'crafting': Mouse(277,193,3,3,true);
  'runecraft': Mouse(308,193,3,3,true);
  'slayer': Mouse(339,193,3,3,true);
  'mining': Mouse(164,228,3,3,true);
  'smithing': Mouse(195,228,3,3,true);
  'fishing': Mouse(226,228,3,3,true);
  'cooking': Mouse(257,228,3,3,true);
  'firemaking': Mouse(288,228,3,3,true);
  'woodcutting': Mouse(319,228,3,3,true);
  'fletching': Mouse(350,228,3,3,true);
 end;
 getmousepos(lampsx,lampsy);
end;

Function UseLamp(usage:string):boolean;
var
  lampsx, lampsy: Integer;
begin
 while(FindDtm(dLamp,x,y,563,211,734,460))do
 begin
  result:=true;
  Mouse(x,y,2,2,true);
  repeat
   wait(250);
  until(getcolor(253,122)=65535)
  wait(350);
  ClickSkill(usage,lampsx,lampsy);
  repeat
   wait(100)
  until(FindColor(x,y,1777020,lampsx-10,lampsy-10,lampsx+10,lampsy+10))
  wait(350);
  Mouse(258,258,4,1,true);
  wait(500);
Lamp:=Lamp+1
 end;
end;

Procedure MouseFlag(cx,cy,rx,ry:integer);
begin
 Mouse(cx,cy,rx,ry,true);
 Flag;
 Wait(500);
end;

procedure RunTo(dir:string; runfar:boolean);
begin
If(UseSetRun)Then
begin
 Run(true);
 if(runfar)then
  Case dir of
   'N': MouseFlag(648,83-63,0,0)
   'S': MouseFlag(648,83+63,0,0)
   'E': MouseFlag(648+63,83,0,0)
   'W': MouseFlag(648-63,83,0,0)
  end;
 if(not runfar)then
  Case dir of
   'N':  MouseFlag(648,83-30,0,0)
   'S':  MouseFlag(648,83+30,0,0)
   'E':  MouseFlag(648+30,83,0,0)
   'W':  MouseFlag(648-30,83,0,0)
  end;
 wait(6500)
 if(runfar)then
  Case dir of
   'N':  MouseFlag(648,83+63,0,0)
   'S':  MouseFlag(648,83-63,0,0)
   'E':  MouseFlag(648-63,83,0,0)
   'W':  MouseFlag(648+63,83,0,0)
  end;
 if(not runfar)then
  Case dir of
   'N':  MouseFlag(648,83+30,0,0)
   'S':  MouseFlag(648,83-30,0,0)
   'E':  MouseFlag(648-30,83,0,0)
   'W':  MouseFlag(648+30,83,0,0)
  end;
  Run(False)
  GameTab(4);
  end;
end;

Procedure LandMarkRun(Dir:string);
var rux,ruy:integer;
begin
If(RunLandMark)Then
begin
 If(FindColorSpiralTolerance(x,y,RunLandMarkCol,1,1,1,1,5))Then
 Run(true);
 Rux:=x-648;
 Ruy:=y-83;
   Case dir of
   'N': MouseFlag(648,83-Ruy,0,0);
   'S': MouseFlag(648,83+Ruy,0,0);
   'E': MouseFlag(648+Rux,83,0,0);
   'W': MouseFlag(648-Rux,83,0,0);
  end;
 wait(6500)
 if(runfar)then
  Case dir of
   'N': MouseFlag(648,83+Ruy,0,0);
   'S': MouseFlag(648,83-Ruy,0,0);
   'E': MouseFlag(648-Rux,83,0,0);
   'W': MouseFlag(648+Rux,83,0,0);
  end;
 Run(False);
 GameTab(4);
end;
end;

procedure RunWhere;
begin
RunTo(RunDirection,RunFar);
LandMarkRun(RunDirection);
end;

procedure RandomItemHandler;
 begin
  wait(600+random(600));
  Mouse(635,176,15,15,true);
  wait(600+random(600));
  UseLamp(LampSkill);
  FindStrangeBox;
  wait(200+random(200));
 end;

Procedure DoTalking;
begin
 repeat
  If(FindColor(x,y,16711680,189,364,430,457))or
  (FindColor(x,y,16777215,189,364,430,457))then
  begin
   Mouse(x+10,y+3,1,1,true);
   wait(1000);
  end;
 until(not FindColor(x,y,16711680,189,364,430,457))or(not FindColor(x,y,16777215,189,364,430,457))
end;

procedure TalkToRand;
var c:integer; Talked2Rand:boolean;
begin
  repeat
   counter:=counter+5+random(1);
   if((x+counter-140) < 515)and((y+18) < 338)then
    MoveMouseSmoothEx(x+counter-140,y+15+random(3),1,6,15,20,20);
   wait(5);
   if(IsTextAt2(9,9,'Ta',100))then
    begin
     GetMousePos(x,y);
     Mouse(x,y,0,0,false);
     Wait(200+random(100));
     if(SearchForText(3,3,515,336,'Talk',Font2))then
      begin
       ClickTxt('Talk')
       Flag;
       wait(1000+random(1000));
       while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
            (FindColor(x,y,16777215,5,345,510,465)))and
            (not(GetColor(20,434)=0))and(c<=10)do
        begin
         Mouse(x,y,50,2,true);
         wait(2000+random(1000));
         c:=c+1;
        end;
       Talked2Rand:=true;
      end;
    end;
  until(counter>=250)or(Talked2Rand);
  wait(600+random(450))
end;

procedure FindText;
begin
if(SearchForText(3,3,515,336,AntiRandomUsername,Font2))then
begin
Writeln('Your Name has been spotted on the screen')
TalkToRand;
RandomItemHandler;
end;
wait(50)
if(SearchForText(3,3,515,336,'Flee human!',Font2))then
begin
Writeln('Rock Golem has been found')
RunWhere;
end;
wait(50)
end;

procedure SetLoop;
begin
     Logout;
     WriteLn('Logged out for some reason')
     TerminateScript;
end;

procedure FindMiscRandoms;
begin
 if(FindColortolerance(ax,ay,15395562,129,34,129,34,4))and(FindColortolerance(ax,ay,15395562,378,39,378,39,4))then   //by Ghost
  begin
   WriteLn('Found a Maze, logging out')
   SetLoop;
  end;
 if(FindColortolerance(ax,ay,786423,10,350,150,433,4))then
  begin
  WriteLn('Found a Mod, logging out')
   SetLoop;
  end;
 if(FindColortolerance(ax,ay,11503238,10,350,479,433,4))then
  begin
  WriteLn('Found a Mime, logging out')
   SetLoop;
  end;
end;

procedure FindPickHeadColor;
begin
If(Not(FindBitmapMaskTolerance(PickAxe,x,y,555,200,740,460,0,30)))Then
begin
  writeln('Cannot find pick, please put pick in the 1st inventory slot!');
  terminatescript;
  end;
If(FindBitmapMaskTolerance(PickAxe,x,y,555,200,740,460,0,30))Then
begin
  Head:=GetColor(588,221);
end;
end;

procedure AttachPick;
begin
If(FindBitmapMaskTolerance(PickHead,x,y,555,200,740,460,0,30))Then
 Mouse(x+5,y,2,2,True)
If(FindBitmapMaskTolerance(Handle,x,y,555,200,740,460,0,30))Then
 Mouse(x+5,y,2,2,True)
If(Not(FindBitmapMaskTolerance(PickAxe,x,y,555,200,740,460,0,30)))Then
begin
  WriteLn('Fixing Pick was a failure....');
  LogOut;
  terminatescript;
  end;
If(FindBitmapMaskTolerance(PickAxe,x,y,555,200,740,460,0,30))Then
begin
  Attached:=Attached+1;
end;
end;

procedure FindPick;
begin
if(Not(FindBitmapMaskTolerance(PickAxe,x,y,555,200,740,460,0,30)))And(FindBitmapMaskTolerance(Handle,x,y,555,200,740,460,0,30))then
begin
MutantFindObj(Head,20,'Take')
wait(500)
AttachPick;
end;
If(FindBitmapMaskTolerance(BrokenPick,x,y,555,200,740,460,0,30))Then
Begin
  WriteLn('PickAxe is Broken Logging Out');
  LogOut;
  terminatescript;
end;
end;

Function FindFight:Boolean;
begin
if(FindColor(x,y,65280,218,143,292,189))then
wait(250+random(500));
if(FindColor(x,y,65280,218,143,292,189))then
begin
Status('Random Event Found');
Result:=True;
end;
end;

Procedure LoadImages;
begin
dLamp := DTMFromString('78DA63B462626078C4800618914820ED0454F' +
       '390801A2FA09A7B04D4F813614E1850CD53026A02806A5E10E19E' +
       '9704D4B812560300D6300994');
oreimg := DTMFromString('78DA6364636060E06000032608C5901761CB2' + 
       '002A41981F83F1000001C8E0526');
BarImg := BitmapFromString(30, 24, 'z78DAED97C10D002008035772' +
       '0AF71FC90D0812906BA47F434BA494B57EC736C1647BAB88CCB6E' +
       '26D6FC537FDAFEE4FAE8AAE7F18ABAB353504A7F273E0F8AADF4B' +
       '55FC7FD80E5BDD59537433C57DA1B891BBF26D757ECB55D195996' +
       '32A68EE64AB60DE83CCBB8F8303E6184A26');
GemImg := BitmapFromString(23, 24, 'z78DA3330183EC00D0C686732F' + 
       '10097AEC1E33BFC2EA77F08936AD7A84B465D428C8DA32E197509' + 
       '31F68EBA6434B50C45978CCC929F785B68ED1E52CDA76E9B90BA7' + 
       'E74A3180CFE3E0200FDE18F27');
BrokenPick := BitmapFromString(29, 31, 'z78DAED96C10D002008' + 
       '0357620AF71FC90934C44203D27E4DE052A46A3651EBA09A9C6FA' + 
       '7792EDDC5A7CDA82CDAEE95F11BCBDFB88CBEFC7CF3E4803F31A2' + 
       '661795AE48777C8E48CDBCBDA8F366F15D9DF01390AB72F53F4EB' + 
       '92A5AB9CAA495AB735C152D93B93E67176D91A62499');
pickhead := BitmapFromString(24, 17, 'z78DA3330180520E00606' + 
       '83CD2583C155A3EE2135CDD0DF55A32E71C301E89FDF4935993E2' + 
       '133502E21355EA8EB2A4AECA5DC55B4B39D54F7909A062807D4B2' + 
       '6BA4B543002479E6E8');
pickaxe := BitmapFromString(31, 31, 'z78DAED97C10DC0200CC45' + 
       '6620AF61FA97F5051153870CADD17A9721C08B414A74D7D099F39' + 
       'B6BAC7DE38A7C875FDD57D33979353676755157551C81D57776D6' + 
       '7155FE6498C47C71F9B8184293A669B3965EADDA873D557A19EA5' + 
       'E4FB8BF33221DBFEDF3BF066DB79FF176CDBE4B6CD21B76DDB363' + 
       '98D3F17333F0F6A866CED');
handle := BitmapFromString(16, 28, 'z78DA3330181AC00D09D0C2' + 
       '64FC22D43279A8988FDF84C16CFE40B97CE886F9A8CB8793CB876' + 
       'ED932EA72FA9B3FEAF2E1613EADDB48B40300A37C12EF');
full := BitmapFromString(22, 16, 'z78DA333018BCC00D0950CB34' + 
       'FC22B864297103A62F88F117A9AEA5750850374E878A1BDC70006' + 
       '25229FE58A64538106FD7A81B06D60DC4D848AD7C813FF5525252' + 
       'D1226F529E97478EED83010000D62BAC08');
end;
//////////////////
//  End of File //
//////////////////
Procedure LoadLibrary;
begin
LoadImages;
UpChars:= LoadChars2(AppPath + 'Charsrs22\');
CharsChat:= LoadChars2(AppPath + 'CharsChat2\');
Fontsmall:=LoadChars2(AppPath + 'CharsChat2\fontsmall\');
Font2:=LoadChars2(AppPath + 'CharsChat2\font2\');
LoadChars('');
DisguiseScar('[MGP Scripts Presents] MGLibrary Version '+LibVersion);
St:=GetSystemTime;
writeln('MGLibrary Version: ' + LibVersion+' By Mutant Squirrle')
s:=GetPage('http://www.runesc.net/mglibver.txt');
If(Not(s='MGLibrary Version '+LibVersion+' is out.'))Then
Writeln(s);
LoadDirections;
SetAntiName(Us)
end;