{
+----------------------+
|Scripting Include (Si)|
+----------------------+
| +------------------+ |
| |Made By Scripters,| |
| |Made For Scripters| |
| +------------------+ |
+----------------------+
}

{.include boxbreaker2.txt}

const
User1='';
Pass1='';
/////////////////////
User2='';
Pass2='';
/////////////////////
User3='';
Pass3='';
/////////////////////
User4='';
Pass4='';
/////////////////////
User5='';
Pass5='';
/////////////////////
SiVersion='1.2';
smooth=true;
movespeed=20; // 1 - 30 : slow - fast
movewait=50;
movewaitran=50;
clicktiming=250;
clicktimingran=250;
TypeSendTime=100;
TypeSendRan=100;

var UpdtApplication:TApplication; SelfUpdt,Updt: TForm; Update:Tlabel; Yes,No:TButton;
x,y,ranx,rany,lampsx,lampsy,nsx,nsy,ssx,ssy:integer;
TheBankOfRS,UseQuick,Five,Ten,All,LetterX,dLamp:integer;
UpChars,ChatChars,Font3,st,rx,cy,AxeH,AxeS,ABT,xy,yx:integer;
EndShit,UpdateIt:boolean;
Guser,Gpass,ver,gett:string;
AttkShots,TextShots,LampShots,BoxShots,LoginShots,LevelShots:integer;
say1,say2,say3,say4,say5,say6,say7,say8,say9,say10,say11,say12,say13,say14,say15,say16,say17,say18,say19,say20,say21,say22,say23,say24,say25,say26,say27,say28,say29,say30:String;

{=========================================================================
=========================================================================}

Procedure MMouse(mousex,mousey,ranx,rany:integer);
var randx,randy:integer;
begin
 randx:=mousex+random(ranx); randy:=mousey+random(rany);
 if(smooth)then MoveMouseSmoothEx(randx+1,randy, 2, 4, movespeed, 20, 10)
  else MoveMouse(randx,randy);
 sleep(movewait+random(movewaitran));
end;

{=========================================================================
=========================================================================}

Procedure Mouse(mousex,mousey,ranx,rany:integer; left:boolean);
var a,b,c:integer;
begin
 if(smooth)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);
 end;
 if(not smooth)then
 begin
  MMouse(mousex,mousey,ranx,rany);
  GetMousePos(b,c);
  clickmouse(b,c,left);
 end;
 wait(clicktiming+random(clicktimingran));
end;

{=========================================================================
=========================================================================}

Procedure GameTab(tabnumber:integer);
begin
 case tabnumber of
  1:if(GetColor(559,179)=5531511)then Mouse(559,186,5,5,true);
  2:if(GetColor(591,176)=5531511)then Mouse(585,186,5,5,true);
  3:if(GetColor(618,176)=5531511)then Mouse(614,186,5,5,true);
  4:if(GetColor(636,174)=5531511)then Mouse(650,186,5,5,true);
  5:if(GetColor(682,174)=5531511)then Mouse(683,186,5,5,true);
  6:if(GetColor(683,175)=5531511)then Mouse(711,186,5,5,true);
  7:if(GetColor(734,177)=5531511)then Mouse(738,186,5,5,true);
 end;
end;

{=========================================================================
=========================================================================}

procedure MMouseItem(invin:integer);
var rx,ry:integer;
begin
 GameTab(4);
 if(invin>0)and(invin<29)then
  begin
   ry:=218;
   repeat
    if(invin>4)then
     begin
      invin:=invin-4;
      ry:=ry+36;
     end;
   until(invin<5);
   rx:=532+(invin*42);
   MMouse(rx,ry,20,20);
   wait(400+random(200));
  end;
end;

{=========================================================================
=========================================================================}

procedure MouseItem(invin:integer;left:boolean);
var rx,ry:integer;
begin
 GameTab(4);
 if(invin>0)and(invin<29)then
  begin
   ry:=218;
   repeat
    if(invin>4)then
     begin
      invin:=invin-4;
      ry:=ry+36;
     end;
   until(invin<5);
   rx:=532+(invin*42);
   Mouse(rx,ry,20,20,left);
   wait(400+random(200));
  end;
end;

{=========================================================================
=========================================================================}

procedure UseItem(invin:integer);
begin
   MouseItem(invin,true);
end;

{=========================================================================
=========================================================================}

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;

{=========================================================================
=========================================================================}

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;

{=========================================================================
=========================================================================}

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 WaitTillFlag:boolean;
var FailSafe:integer;
begin
 While(not FlagPresent)or(FailSafe<30)do
 begin
  wait(150);
  FailSafe:=FailSafe+1;
 end;
 if(FailSafe>=30)then
  result:=false else result:=true;
end;

{=========================================================================
=========================================================================}

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

{=========================================================================
=========================================================================}

Procedure HumanMouseFlag(cx,cy,rx,ry,flagdis:integer);
begin
 Mouse(cx,cy,rx,ry,true);
 HumanFlag(flagdis);
 Wait(500);
end;

{=========================================================================
=========================================================================}

Procedure MakeCompass(facing:string);
var direction,dir:integer;
begin
Dir:=random(1)+1
if(uppercase(facing)='N')then
  direction := BitmapFromString(9, 5,
       '2E2A2422211E22211E22211E22211E22211E22211E22211E2E2A24' +
       '20201E20201E6400006400000000016400003F000020201E20201E' +
       '640000640000640000640000000001640000790E00640000640000' +
       '640000640000790E00640000640000790E003F00003F0000790E00' +
       '851B00790E003F00003F0000790E00851B003F00003F0000851B00' +
       '');
if(uppercase(facing)='W')then
  direction := BitmapFromString(7, 7,
       '2E2A242E2A242E2A242E2A242E2A242E2A242E2A2422211E22211E' +
       '22211E22211E22211E22211E22211E20201E640000640000000001' +
       '64000064000020201E640000851B00640000000001640000640000' +
       '640000851B00851B00790E00640000640000790E00640000790E00' +
       '1B00001B00001B00001B00001B00001B00001B00001B00001B0000' +
       '790E001B00001B0000851B00');
if(uppercase(facing)='S')then
  direction := BitmapFromString(7, 5,
       '2E2A242E2A242E2A242E2A242E2A242E2A242E2A2422211E22211E' +
       '22211E22211E22211E22211E22211E20201E790E00640000000001' +
       '64000064000020201E790E001B00001B0000000001640000851B00' +
       '6400001B00001B0000790E00790E001B0000790E00851B00');
if(uppercase(facing)='E')then
  direction := BitmapFromString(8, 7,
       '2E2A242E2A242E2A242E2A242E2A242E2A242E2A242E2A2422211E' +
       '22211E22211E22211E22211E22211E22211E2E2A2420201E640000' +
       '640000000001640000851B0020201E20201E640000851B00640000' +
       '640000851B00851B00851B00851B00851B00851B00851B001B0000' +
       '851B00962200851B001B00001B0000851B00851B001B0000851B00' +
       '962200851B001B00001B0000851B00851B001B0000851B00851B00' +
       '851B001B0000');
if(length(facing)>0)then
while(not(FindBitmapTolerancein(Direction,x,y,550,0,582,20,10)))do
begin
if(Dir=1)then
begin
SendKeysVB('{LEFT '+inttostr(7+random(3))+'}',True)
wait(random(5))
end;
if(Dir=2)then
begin
SendKeysVB('{RIGHT '+inttostr(7+random(3))+'}',True)
wait(random(5))
end;
end;
FreeBitmap(direction);
end;

{=========================================================================
=========================================================================}

function GasColors(gx,gy:integer):boolean;
begin
  if(FindColorTolerance(x,y,11056825,gx-15,gy-25,gx+15,gy+5,10))or
  (FindColorTolerance(x,y,9281445,gx-15,gy-25,gx+15,gy+5,10))or
  (FindColorTolerance(x,y,8492186,gx-15,gy-25,gx+15,gy+5,10))or
  (FindColorTolerance(x,y,7767947,gx-15,gy-25,gx+15,gy+5,10))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;
  MouseFlag(648,84,2,2);
  repeat
   FailSafe:=FailSafe+1;
   wait(250);
  until(FailSafe>=25)or(not(GasColors(gx,gy)))
 end;
end;

{=========================================================================
=========================================================================}

function SimilarWords(text1,text2:string):boolean;
var count,score,win:integer;
str1,str2:string;
begin
  if(Length(Text1)=Length(text2))then
    begin
    count:=0;
     win:=Length(Text1) div 4
      repeat
        count:=count+1
        str1:=StrGet(Text1,count)
        str2:=StrGet(Text2,count)
          if(str1=str2)then
            begin
              score:=score+1
            end;
       until(count=Length(text1))
       if(Score>=win)then
        begin
         result:=true;
        end;
    end;
end;

{=========================================================================
=========================================================================}

Function TextAt(x1,y1,x2,y2:integer ; TextIt:string ; Font:integer):boolean;
var Comparison:string; chars:integer;
begin
case Font of
1: chars:= UpChars;
2: chars:= ChatChars;
3: chars:= Font3;
end;
begin
  If(IsTextInAreaEx(x1,y1,x2,y2,xy,yx,StrGet(TextIt,1),150,Chars,False,True,0,3,-1))then
     begin
       Comparison:=GetTextAtEx(xy,yx,150,Chars,False,True,0,3,-1,Length(TextIt),True,Tr_Letters)
       WriteLn(Comparison)
       if(SimilarWords(comparison,TextIt))then
         begin
           Result:=True;
         end;
     end
end;
end;

{=========================================================================
=========================================================================}

Function IsTextUp(text:string):boolean;
begin
if(IsTextAt2(9,9,text,200))then
  result:=true
end;

{=========================================================================
=========================================================================}

Function ClickText(Text:String; x1,y1,x2,y2:integer):Boolean;
begin
 If(TextAt(x1,y1,x2,y2,Text,1))then
 begin
  Result:=True;
  Mouse(xy,yx+3,7,3,true)
 end;
end;

{=========================================================================
=========================================================================}

Function ClickTextCoords(Text:String; cx,cy,r1,r2:integer):Boolean;    //Defective
begin
 Mouse(cx,cy,r1,r2,False)
 Wait(500+random(500))
 If(ClickText(Text,x-200,y-200,x+200,y+200))then
  Result:=True;
end;

{=========================================================================
=========================================================================}

function FindDtmMain(x,y,dtmname:integer):boolean;
begin
 if(FindDTM(dtmname,x,y,1,1,514,336))then
  result:=true else result:=false;
end;

{=========================================================================
=========================================================================}

procedure TakeScreen(reason:string; event:Integer);
begin
 SaveScreenshot(apppath+'Scripts\'+reason+inttostr(event)+'.bmp');
 writeln('Screenshot of: '+reason+' #'+inttostr(event));
end;

{=========================================================================
=========================================================================}

Procedure SendText(text:string);
var  Char:Integer;
begin
 repeat
  Char:=char+1
  SendKeys(StrGet(Text,Char));
  Wait(TypeSendTime+random(TypeSendRan));
 until(char>=Length(text));
end;

{=========================================================================
=========================================================================}

Procedure SetRun(run:boolean);
begin
 Mouse(712,483,3,3,true);
 repeat
  wait(50);
 until(GetColor(581,283)=2303648)or(GetColor(625,283)=2303648)
 if(run)then
  Mouse(626,268,3,3,true);
 if(not run)then
  Mouse(580,257,3,3,true);
 GameTab(4);
end;

{=========================================================================
=========================================================================}

function InvinCount:integer;
var used,i,e,tmpx,tmpy:integer;
begin
 e:=0; i:=0; used:=0;
 GameTab(4);
 while(i<6)do
 begin
  if(i=5)and(e<8)then
  begin
   i:=0; e:=e+1;
  end;
  if(FindColor(tmpx,tmpy,65536,(571+47*i),(215+36*e),(601+47*i),(245+36*e)))then used:=used+1;
   i:=i+1;
 end;
 result:=used;
end;

{=========================================================================
=========================================================================}

Procedure CloseWindow;
var CloseLoginWindow:integer;
begin
 CloseLoginWindow := DTMFromString('78DA635CC5C8C010C780021A1A1AC0342394C' +
       'FB89108357B80AC58026ACE00598904D4DC03B26208A8794CD81C' +
       '00EADB0FEE');
 if(FindDTM(CloseLoginWindow,x,y,1,1,514,336))then
  Mouse(x,y,1,1,true);
 wait(800);
 FreeDTM(CloseLoginWindow);
end;

{=========================================================================
=========================================================================}

Function LoggedOut:boolean;
var ExistingUser,LoginButton:integer;
begin
 ExistingUser := DTMFromString('78DA635CC2C8C0A00CC448E0FFFFFF601A26C' +
       'A7817C85221A0E61B116A2E0359DAF8D5000087CC0FE5');
 LoginButton := DTMFromString('78DA639467646070046224F0FFFF7F300D136' +
       '55403B29C08A8D105B29C09A83123428D1D116A0C802C4FFC6A00' +
       '9F5F14B2');
 if(FindDTM(ExistingUser,x,y,1,1,514,336))or(FindDTM(LoginButton,x,y,1,1,514,336))then
  result:=true else result:=false;
end;

{=========================================================================
=========================================================================}

Procedure Logout;
begin
 While(Not(LoggedOut))do
 begin
  Mouse(188,12,3,3,true);
  repeat
   wait(250);
  until(getcolor(592,433)=16777215)
  Mouse(192,13,4,4,true);
  wait(5000);
 end;
end;

{=========================================================================
=========================================================================}

procedure LoadAccounts(acctset:integer);
begin
 Case acctset of
   1: begin guser:=user1; gpass:=pass1; end;
   2: begin guser:=user2; gpass:=pass2; end;
   3: begin guser:=user3; gpass:=pass3; end;
   4: begin guser:=user4; gpass:=pass4; end;
   5: begin guser:=user5; gpass:=pass5; end;
  end;
end;

{=========================================================================
=========================================================================}

Procedure Login(acctset:integer);
var ExistingUser,LoginButton,CloseLoginWindow:integer;
TimeOut:integer;
begin
 LoadAccounts(acctset);
 CloseLoginWindow := DTMFromString('78DA635CC5C8C010C780021A1A1AC0342394C' +
       'FB89108357B80AC58026ACE00598904D4DC03B26208A8794CD81C' +
       '00EADB0FEE');
 ExistingUser := DTMFromString('78DA635CC2C8C0A00CC448E0FFFFFF601A26C' +
       'A7817C85221A0E61B116A2E0359DAF8D5000087CC0FE5');
 LoginButton := DTMFromString('78DA639467646070046224F0FFFF7F300D136' +
       '55403B29C08A8D105B29C09A83123428D1D116A0C802C4FFC6A00' +
       '9F5F14B2');
 if(FindDTM(ExistingUser,x,y,1,1,514,336))then
 begin
  Mouse(x,y,1,1,true);
  repeat
   wait(250);
   TimeOut:=TimeOut+1;
  until(FindDTM(LoginButton,x,y,1,1,514,336))or(TimeOut>=50)
  if(TimeOut>=50)then
   TerminateScript;
  SendKeysSilent(guser+chr(13)+gpass);
  wait(1500);
  Mouse(x,y,1,1,true);
  TimeOut:=0;
  repeat
   wait(250);
   TimeOut:=TimeOut+1;
  until(FindDTM(CloseLoginWindow,x,y,1,1,514,336))or(TimeOut>=50)
  if(TimeOut>=50)then
   TerminateScript;
  wait(500);
  Mouse(x,y,1,1,true);
 end;
 FreeDTM(ExistingUser);
 FreeDTM(LoginButton);
 FreeDTM(CloseLoginWindow);
end;

{=========================================================================
=========================================================================}

procedure rdwalk(direction:string; roadcolour,stopcolour:integer);
begin
 repeat
  Case direction of
   'N': findcolorspiral(x,y,roadcolour,570,3,721,54);
   'S': findcolorspiral(x,y,roadcolour,570,110,721,160);
   'E': findcolorspiral(x,y,roadcolour,680,3,721,160);
   'W': findcolorspiral(x,y,roadcolour,570,3,610,160);
  end;
  mouse(x,y,3,3,true);
  Repeat
   Wait(500);
  Until(Flagdist<20);
 until(FindColorspiral(x,y,stopcolour,570,3,720,160));
end;

{=========================================================================
=========================================================================}

procedure UseColorText(color,numitem,tol:integer; text:string);
var xi,yi,tx,ty,Used:integer;
begin
 ty:=190; tx:=548;
 repeat
 yi:=yi+1;
 ty:=ty+37;
 xi:=0;
  repeat
   xi:=xi+1;
   tx:=tx+41;
   if(FindColorTolerance(x,y,color,tx-13,ty-13,tx+13,ty+13,tol))then
   begin
    MMouse(tx,ty,2,2);
    wait(250);
    if(IsTextAt2(9,9,text,100))then
     begin
      Used:=Used+1;
      Mouse(tx,ty,3,3,true);
      wait(150);
     end;
   end;
  until(xi=4)or(Used>=numitem)
  tx:=544;
 until(yi=7)or(Used>=numitem)
end;

{=========================================================================
=========================================================================}

procedure UseColorTextRcm(color,numitem,tol:integer; text,useoptext:string);
var xi,yi,tx,ty,Used:integer;
begin
 ty:=190; tx:=548;
 repeat
 yi:=yi+1;
 ty:=ty+37;
 xi:=0;
  repeat
   xi:=xi+1;
   tx:=tx+41;
   if(FindColorTolerance(x,y,color,tx-13,ty-13,tx+13,ty+13,tol))then
   begin
    MMouse(tx,ty,2,2);
    wait(250);
    if(IsTextUp(text))then
     begin
      Used:=Used+1;
      Mouse(tx,ty,3,3,false);
      wait(350);
      ClickText(useoptext,588,203,739,463);
     end;
   end;
  until(xi=4)or(Used>=numitem)
  tx:=544;
 until(yi=7)or(Used>=numitem)
end;

{=========================================================================
=========================================================================}

function FindColorRight(dacolor,ax1,ay1,ax2,ay2:integer):boolean;
var a,b,c,d:integer;
begin
 a:=ax2-1; b:=ay1; c:=ax2; d:=ay2;
 repeat
  if(findcolor(x,y,dacolor,a,b,c,d))then
   result:=true;
  a:=a-1; c:=c-1;
 until(result)or(a<=ax1)
end;

{=========================================================================
=========================================================================}

function FindColorRightTol(dacolor,ax1,ay1,ax2,ay2,tol:integer):boolean;
var a,b,c,d:integer;
begin
 a:=ax2-1; b:=ay1; c:=ax2; d:=ay2;
 repeat
  if(FindColorTolerance(x,y,dacolor,a,b,c,d,tol))then
   result:=true;
  a:=a-1; c:=c-1;
 until(result)or(a<=ax1)
end;

{=========================================================================
=========================================================================}

Function GetArea(colour,tolerance,x1,y1,x2,y2:integer):integer;
var xat,yat,occurancecounter,pixelcolour:integer;
Begin
 xat:=x1;
 Repeat
  yat:=y1;
  Repeat
   pixelcolour := Getcolor(xat,yat);
   If(SimilarColors(pixelcolour,colour,tolerance))then occurancecounter:=occurancecounter+1
    yat:=yat+1;
  Until(yat=y2);
  xat:=xat+1
 Until(xat=x2)
 Result:=occurancecounter;
End;

{=========================================================================
=========================================================================}

function FindObjLeft(objtext:string; objcolor,tol:integer):boolean;
var a,b,c,d:integer;
begin
if(FindColorTolerance(x,y,objcolor,5,5,514,336,tol))then
begin
a:=5; b:=5; c:=5; d:=5;
repeat
 wait(1);
 a:=a+10; c:=c+10; b:=5; d:=5;
 repeat
  wait(1);
  if(FindColortolerance(x,y,objcolor,a-5,b-5,c+5,d+5,tol))then
   begin
    MMouse(x,y,0,0);
    wait(250);
    if(IsTextUp(objtext))then
     result:=true;
   end;
  b:=b+10; d:=d+10;
 until(b>=336)or(result=true)
until(a>=514)or(result=true)
end;
end;

{=========================================================================
=========================================================================}

function FindObjRight(objtext:string; objcolor,tol:integer):boolean;
var a,b,c,d:integer;
begin
if(FindColorTolerance(x,y,objcolor,5,5,514,336,tol))then
begin
a:=514; b:=336; c:=514; d:=336;
repeat
 a:=a-10; c:=c-10; b:=336; d:=336;
 repeat
  if(FindColortolerance(x,y,objcolor,a-5,b-5,c+5,d+5,tol))then
   begin
    MMouse(x,y,0,0);
    wait(250);
    if(IsTextUp(objtext))then
     result:=true;
   end;
  b:=b-10; d:=d-10;
 until(b<=10)or(result=true)
until(a<=10)or(result=true)
end;
end;

{=========================================================================
=========================================================================}

Function FindobjTop(objname:string; objcolor,objtol:integer):boolean;
var a,b:integer;
begin
if(not(IsTextUp(objname)))then
while(b<16)do
begin
 wait(30);
 if(a = 27)then
  begin
   a:= 0;
   b:= b + 1;
  end;
 if(b > 15)then break;
 if(FindColorSpiralTolerance(x,y,objcolor,a*20+4,b*20+4,a*20+24,b*20+24,objtol))then
  begin
   MMouse(x,y,0,0);
   wait(100+random(50));
   if(IsTextUp(objname))then
    begin
     result:=true;
     break;
    end;
  end;
 a:=a+1;
end;
end;

{=========================================================================
=========================================================================}

function FindObjClickRc(objtext:string; objcolor,tol:integer):boolean;
var ax,ay:integer;
xi,yi,TempHold2,i,TempHold:extended;
begin
 if(FindColorTolerance(x,y,objcolor,1,1,514,336,tol))then
 begin
 ax:=257; ay:=168;
 repeat
  i:=i+1
  yi:=0;
  repeat
   yi:=yi+1;
   TempHold:=Trunc(i/2);
   TempHold2:=i/2;
   if(TempHold=TempHold2)then
   begin
    ay:=ay+6;
   end else ay:=ay-6;
   if(FindColorTolerance(ssx,ssy,objcolor,ax-5,ay-5,ax+5,ay+5,tol))then
    begin
     Mouse(x,y,1,1,false);
     wait(300);
     If(TextAt(1,1,514,336,objtext,1))then
      begin
       ClickText(objtext,1,1,514,336);
       result:=true;
      end;
     flag;
     if(not result)then
     MMouse(x+300,y+300,1,1);
    end;
  until(yi=i)or(result=true)
  xi:=0;
  repeat
   xi:=xi+1;
   TempHold:=Trunc(i/2);
   TempHold2:=i/2;
   if(TempHold=TempHold2)then
   begin
    ax:=ax+10;
   end else ax:=ax-10;
   if(FindColorTolerance(ssx,ssy,objcolor,ax-5,ay-5,ax+5,ay+5,tol))then
    begin
     Mouse(x,y,1,1,false);
     wait(300);
     If(TextAt(1,1,514,336,objtext,1))then
      begin
       ClickText(objtext,1,1,514,336);
       result:=true;
      end;
     flag;
     if(not result)then
     MMouse(x+300,y+300,1,1);
    end;
  until(xi=i)or(result=true)
 until(ay>=336)or(result=true)
 x:=ssx; y:=ssy;
 end;
end;

{=========================================================================
=========================================================================}

function FindObj(objtext:string; objcolor,tol:integer):boolean;
var ax,ay:integer;
xi,yi,TempHold2,i,TempHold:extended;
begin
 if(FindColorTolerance(x,y,objcolor,1,1,514,336,tol))then
 begin
 ax:=257; ay:=168;
 repeat
  i:=i+1
  yi:=0;
  repeat
   yi:=yi+1;
   TempHold:=Trunc(i/2);
   TempHold2:=i/2;
   if(TempHold=TempHold2)then
   begin
    ay:=ay+7;
   end else ay:=ay-7;
   if(not result)and(FindColorTolerance(x,y,objcolor,ax-5,ay-5,ax+5,ay+5,tol))then
    begin
     MMouse(x,y,1,1);
     wait(450);
     if(IsTextUp(objtext))then
      result:=true;
    end;
  until(yi=i)or(result=true)
  xi:=0;
  repeat
   xi:=xi+1;
   TempHold:=Trunc(i/2);
   TempHold2:=i/2;
   if(TempHold=TempHold2)then
   begin
    ax:=ax+10;
   end else ax:=ax-10;
   if(not result)and(FindColorTolerance(x,y,objcolor,ax-5,ay-5,ax+5,ay+5,tol))then
    begin
     MMouse(x,y,1,1);
     wait(450);
     if(IsTextUp(objtext))then
      result:=true;
    end;
  until(xi=i)or(result=true)
 until(ay>=336)or(result=true)
 end;
end;

{=========================================================================
=========================================================================}

function BankScreen:boolean;
begin
 if(FindDtm(TheBankOfRS,x,y,5,5,514,336))then
  result:=true;
end;

{=========================================================================
=========================================================================}

procedure OpenBank;
begin
 While(not(BankScreen))do
 begin
  if(FindObj('Use Bank',539728,10))then  // 2116189
   Mouse(x,y,1,1,false);
   wait(500);
   if(FindDtm(UseQuick,x,y,5,5,514,336))then
    MouseFlag(x,y,1,1);
  end;
 end;

{=========================================================================
=========================================================================}

Procedure Withdraw(row,col,amount:integer);
var ex,ey,sx,sy:integer;
begin
 if(BankScreen)then
 begin
  sx:=42; sy:=37;
  ex:=sx+(row*49); ey:=sy+(col*39);
  if(amount>=28)then
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(All,x,y,27,60,459,286))then
    Mouse(x,y,1,1,true);
  end else if(amount=10)then
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(Ten,x,y,27,60,459,286))then
    Mouse(x,y,1,1,true);
  end else if(amount=5)then
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(Five,x,y,27,60,459,286))then
    Mouse(x,y,1,1,true);
  end else if(amount=1)then
  begin
   Mouse(ex,ey,3,3,true);
   wait(450);
  end else
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(LetterX,x,y,27,60,459,286))then
    Mouse(x,y,1,1,true);
   repeat
    wait(450);
   until(GetColor(255,410)=8388608)
   wait(450);
   SendText(inttostr(amount));
   wait(200);
   SendText(chr(13));
  end;
 end;
end;

{=========================================================================
=========================================================================}

Procedure Deposit(row,col,amount:integer);
var ex,ey,sx,sy:integer;
begin
 if(BankScreen)then
 begin
  sx:=542; sy:=195;
  ex:=sx+(row*42); ey:=sy+(col*33);
  if(amount>=28)then
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(All,x,y,568,216,731,455))then
    Mouse(x,y,1,1,true);
  end else if(amount=10)then
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(Ten,x,y,568,216,731,455))then
    Mouse(x,y,1,1,true);
  end else if(amount=5)then
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(Five,x,y,568,216,731,455))then
    Mouse(x,y,1,1,true);
  end else if(amount=1)then
  begin
   Mouse(ex,ey,3,3,true);
   wait(450);
  end else
  begin
   Mouse(ex,ey,3,3,false);
   wait(450);
   if(FindDtm(LetterX,x,y,568,216,731,455))then
    Mouse(x,y,1,1,true);
   repeat
    wait(450);
   until(GetColor(255,410)=8388608)
   wait(450);
   SendText(inttostr(amount));
   wait(200);
   SendText(chr(13));
  end;
 end;
end;

{=========================================================================
=========================================================================}

procedure DepositAll;
begin
if(BankScreen)then
begin
 While(FindColor(x,y,65536,568,216,731,455))do
 begin
  Mouse(x,y,3,3,false);
   wait(450);
   if(FindDtm(All,x,y,568,216,731,455))then
   begin
    Mouse(x,y,1,1,true);
    wait(450);
   end;
 end;
end;
end;

{=========================================================================
=========================================================================}

procedure DepositArea(sx,sy,ex,ey:integer);
begin
if(BankScreen)then
begin
 While(FindColor(x,y,65536,sx,sy,ex,ey))do
 begin
  Mouse(x,y,3,3,false);
   wait(450);
   if(FindDtm(All,x,y,568,216,731,455))then
   begin
    Mouse(x,y,1,1,true);
    wait(450);
   end;
 end;
end;
end;

{=========================================================================
=========================================================================}

procedure ChatsOff;
begin
while(FindColor(x,y,16776960,42,479,338,498))do
Mouse(x,y,3,3,true)
while(FindColor(x,y,65280,42,479,338,498))do
Mouse(x,y,3,3,true)
while(FindColor(x,y,65535,42,479,338,498))do
Mouse(x,y,3,3,true)
end;

{=========================================================================
=========================================================================}

procedure PublicOff;
begin
 While(FindColor(x,y,65535,26,476,85,495))or
 (FindColor(x,y,16776960,26,476,85,495))or
 (FindColor(x,y,65280,26,476,85,495))do
  Mouse(x,y,3,3,true);
end;

{=========================================================================
=========================================================================}

function TextFound:boolean;
begin
 if(FindColor(ranx,rany,65535,10,25,511,334))then
  result:=true;
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 PixMoved,FailSafe:integer;
begin
 repeat
  PixMoved:=PixMoved+3;
  MMouse(ranx+PixMoved,rany+16,1,1);
  wait(200);
 until(IsTextUp('Talk'))or(PixMoved>=180)
 if(IsTextUp('Talk'))then
 begin
  MouseFlag(ranx+PixMoved,rany+16,1,1);
  repeat
   Wait(250);
   FaiLSafe:=FaiLSafe+1;
  until(FailSafe>=25)or(FindColor(x,y,16711680,189,364,430,457))or(FindColor(x,y,16777215,189,364,430,457))
  DoTalking;
 end;
end;

{=========================================================================
=========================================================================}

function BeingAttacked:boolean;
begin
 if(FindColor(x,y,65280,218,143,292,189))then
  result:=true;
end;

{=========================================================================
=========================================================================}

procedure ClickSkill(usage:string);
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;
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);
  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);
 end;
end;

{=========================================================================
=========================================================================}

procedure Run(dir:string; runfar:boolean);
var yourx,youry,arl,ttn:integer;
begin
 yourx:=648; youry:=83;
 SetRun(true);
 if(runfar)then
  Case dir of
   'N': MouseFlag(yourx,youry-63,0,0);
   'S': MouseFlag(yourx,youry+63,0,0);
   'E': MouseFlag(yourx+63,youry,0,0);
   'W': MouseFlag(yourx-63,youry,0,0);
  end;
 if(not runfar)then
  Case dir of
   'N': MouseFlag(yourx,youry-30,0,0);
   'S': MouseFlag(yourx,youry+30,0,0);
   'E': MouseFlag(yourx+30,youry,0,0);
   'W': MouseFlag(yourx-30,youry,0,0);
  end;
 arl:=getsystemtime;
 repeat
  wait(150);
  ttn:=getsystemtime;
  if(TextFound)then
   TalkToRand;
 until(ttn-arl>=6500)
 if(runfar)then
  Case dir of
   'N': MouseFlag(yourx,youry+63,0,0);
   'S': MouseFlag(yourx,youry-63,0,0);
   'E': MouseFlag(yourx-63,youry,0,0);
   'W': MouseFlag(yourx+63,youry,0,0);
  end;
 if(not runfar)then
  Case dir of
   'N': MouseFlag(yourx,youry+30,0,0);
   'S': MouseFlag(yourx,youry-30,0,0);
   'E': MouseFlag(yourx-30,youry,0,0);
   'W': MouseFlag(yourx+30,youry,0,0);
  end;
  GameTab(4);
end;

{=========================================================================
=========================================================================}

function BoxPresent:boolean;
begin
 if(FindBitMapToleranceIn(StrangeBox,nsx,nsy,554,205,743,464,45))then
  result:=true;
end;

{=========================================================================
=========================================================================}

function CheckLeveled:boolean;
begin
 if(FindColor(x,y,16711680,114,358,494,454))or
 (FindColor(x,y,16777215,114,358,494,454))then
  begin
   result:=true;
   Mouse(x,y,0,0,true);
   wait(500);
   if(FindColor(x,y,16711680,114,358,494,454))or
   (FindColor(x,y,16777215,114,358,494,454))then
   begin
    Mouse(x,y,0,0,true);
    wait(300);
   end;
  end;
end;

{=========================================================================
=========================================================================}

function CheckRandoms(acctset:integer; lampusage,rundir:string; runfar,takescreenshot:boolean):boolean;
begin
 PublicOff;
 if(LoggedOut)then
 begin
  result:=true;
  if(takescreenshot)then
  begin
   LoginShots:=LoginShots+1;
   TakeScreen('Login',LoginShots);
  end;
  Login(acctset);
 end;
 if(BeingAttacked)then
 begin
  result:=true;
  if(takescreenshot)then
  begin
   AttkShots:=AttkShots+1;
   TakeScreen('Attack',AttkShots);
  end;
    if(not(rundir='NA'))then
     begin
      Run(rundir,runfar);
     end;
 end;
 if(TextFound)then
 begin
  result:=true;
  if(takescreenshot)then
  begin
   TextShots:=TextShots+1;
   TakeScreen('Text',TextShots);
  end;
  TalkToRand;
 end;
 if(FindColor(x,y,16711680,114,358,494,454))or
 (FindColor(x,y,16777215,114,358,494,454))then
 begin
  result:=true;
  if(takescreenshot)then
  begin
   LevelShots:=LevelShots+1;
   TakeScreen('Leveled',LevelShots);
  end;
  CheckLeveled;
 end;
 if(UseLamp(lampusage))then
 begin
  result:=true;
  if(takescreenshot)then
  begin
   LampShots:=LampShots+1;
   TakeScreen('Lamp',LampShots);
  end;
 end;
 if(BoxPresent)then
 begin
  result:=true;
  if(takescreenshot)then
  begin
   BoxShots:=BoxShots+1;
   TakeScreen('Box',BoxShots);
  end;
  FindStrangeBox;
 end;
end;

{=========================================================================
=========================================================================}

Function CTC(Text:string; x1,y1,r1,r2:integer):boolean;
begin
if(ClickTextCoords(Text,x1,y1,r1,r2))then
Result:=true;
end;

{=========================================================================
=========================================================================}

procedure SetFightMode(oFightMode:integer);
var cfm:integer;
begin
 GameTab(1);
 if(FindColor(x,y,1777020,569,274,623,292))then
  cfm:=1;
 if(FindColor(x,y,1777020,569,316,623,334))then
  cfm:=2;
 if(FindColor(x,y,1777020,569,358,623,376))then
  cfm:=3;
 if(FindColor(x,y,1777020,569,390,623,418))then
  cfm:=4;
 if(not cfm=ofightmode)then
 begin
  if(ofightmode=1)then Mouse(601,284,3,3,true);
  if(ofightmode=2)then Mouse(601,326,3,3,true);
  if(ofightmode=3)then Mouse(601,368,3,3,true);
  if(ofightmode=4)then Mouse(601,410,3,3,true);
 end;
end;

{=========================================================================
=========================================================================}

Procedure RandWait(W1,W2,W3,RandW:integer);
Var J,Wah:integer;
begin
 J:=RandW/4
 Wah:=random(5)+1;
 case Wah of
  1: Begin Wait(W1+Random(RandW)) end;
  2: Begin Wait(W1-Random(J)) end;
  3: Begin Wait(W2+Random(RandW)) end;
  4: Begin Wait(W2-Random(J)) end;
  5: Begin Wait(W3+Random(RandW)) end;
  6: Begin Wait(W3-Random(J)) end;
 end;
end;

{=========================================================================
=========================================================================}

Function PickColor:integer;
var tx,ty:integer;
begin
 result:=0;
 Writeln('Move Your Mouse Over The Color You Wish To Pick...');
 Writeln('Then Press And Hold Ctrl+G Until It Says Color Picked');
 repeat
  wait(10);
  if(IsFunctionKeyDown(1))and(IsKeyDown('g'))then
   begin
    GetMousePos(tx,ty);
    Result:=GetColor(tx,ty);
   end;
 until(not(Result=0))
 Writeln('Color Successfuly Picked');
 Writeln('Color: '+inttostr(result)+', At Coordinates ('+inttostr(tx)+', '+inttostr(ty)+')');
end;

{=========================================================================
=========================================================================}

Procedure DisguiseScar(disguise:string);
var application:tapplication;
    Self: TForm;
begin
 Application:= GetApplication;
 Application.Title:= disguise;
 Self:= GetSelf;
 Self.Caption:= disguise;
end;

{=========================================================================
=========================================================================}

procedure ClickTxt(s:string);
begin
 Wait(300);
 ClickText(s,4,4,755,488);
end;

{=========================================================================
=========================================================================}

Procedure PickUp(PickUpName,ClickIt:String; PickUpColor,x1,y1,x2,y2,Tol:integer);
begin
 repeat
 If(FindColorSpiralTolerance(x,y,PickUpColor,x1,y1,x2,y2,Tol))Then
 Begin
  MMouse(x,y,0,0)
  wait(200);
  If(IsTextUp(PickUpName))Then
   wait(200);
  If(FindColorSpiralTolerance(x,y,PickUpColor,x1,y1,x2,y2,Tol))Then Mouse(x,y,2,2,False);
   wait(500);
  ClickText(ClickIt,3,3,515,336)
  EndShit:=True;
 end;
 If(Not(FindColorSpiralTolerance(x,y,PickUpColor,x1,y1,x2,y2,Tol)))Then
 Begin
  RandWait(100,200,300,200)
  EndShit:=True;
 end;
 until(EndShit=True)
end;

{=========================================================================
=========================================================================}

Procedure PickUpObject(objname:string; objcolor:integer);
begin
 PickUp(objname,'Take',objcolor,3,3,516,340,1);
end;

{=========================================================================
=========================================================================}
Function BrokenAxe:boolean;
begin
  GameTab(4)
  Wait(500)
  if(GetColor(593,220)=2105392)then
    Result:=True;
end;

{=========================================================================
=========================================================================}

Procedure AxeColors;
begin
GameTab(4)
Wait(500)
  if(not(GetColor(590,220)=4345174))then
    Begin
      AxeH:=GetColor(590,220)
      AxeS:=GetColor(580,227)
    end;
end;

{=========================================================================
=========================================================================}

Function AxeGone:boolean;
var tmpx,tmpy:integer;
begin
GameTab(4)
Wait(500)
  if(not(FindColor(tmpx,tmpy,AxeH,563,208,608,245)))then
   Result:=True;
end;

{=========================================================================
=========================================================================}

Procedure FixAxe;
begin
  GameTab(4)
  Wait(500)
  FindColorSpiral(x,y,AxeH,553,196,752,470)
  Mouse(x,y,2,2,true)
  FindColorSpiral(x,y,AxeS,553,196,752,470)
  Mouse(x,y,2,2,true)
end;

{=========================================================================
=========================================================================}

Function PickUpHead:boolean;
begin
  if(FindColorSpiralTolerance(x,y,AxeH,9,9,515,338,25))then
    ClickTextCoords('Take',x,y,0,0)
    result:=true;
    Wait(500+random(500))
end;

{=========================================================================
=========================================================================}

Function CheckEnt:boolean;
begin
if(FindColorTolerance(x,y,56797,82,7,115,21,10))then
begin
  result:=True;
End;
end;

{=========================================================================
=========================================================================}

Procedure AntiBan(loggedin,loggedout,account:integer);
var logtime,randomin,randomout,secsin,secsout:integer;
begin
  logtime:=GetSystemTime-ABT
  secsin:=(loggedin*60)*1000
  randomin:=secsin div 3
    if(logtime>(secsin+random(randomin)))then
      begin
        LogOut;
        WriteLn('Anti-Ban > Loged out')
        secsout:=((loggedout*60)*1000)
        randomout:=secsout div 3
        Wait(secsout+random(randomout))
        Login(account);
        WriteLn('Anti-Ban > Loged in')
        ABT:=GetSystemTime;
      end;
end;

{=========================================================================
=========================================================================}

Function ReturnText:string;
var fs:integer;
begin
gett:=GetTextAtEx(rx,cy,100,Font3,false,True,0,3,-1,2,false,tr_Digits);
if(Gett='1 ')or(Gett='31 ')or(Gett='3 ')or(Gett='4 ')or(Gett='5 ')or
(Gett='6 ')or(Gett='7 ')or(Gett='8 ')or(Gett='9 ')then
gett:=GetTextAtEx(rx,cy,100,Font3,false,True,0,3,-1,1,false,tr_Digits);
if(Gett='  ')or(Gett='')then
begin
repeat
rx:=rx+1
fs:=fs+1
gett:=GetTextAtEx(rx,cy,100,Font3,false,True,0,3,-1,2,false,tr_Digits);
until(not(Gett='  '))or(fs>20)
end;
if(not(Gett='  '))or(not(Gett=''))or(not(Gett=' '))then
begin
result:=Gett
end else
result:= '0';
end;


{=========================================================================
=========================================================================}

Procedure LoadLvl(skill:string);
begin
 Case lowercase(skill) of
  'attack': begin rx:=585; cy:=210; end;
  'hitpoints': begin rx:=650; cy:=210; end;
  'mining': begin rx:=713; cy:=210; end;
  'strength': begin rx:=585; cy:=241; end;
  'agility': begin rx:=649; cy:=241; end;
  'smithing': begin rx:=713; cy:=241; end;
  'defense': begin rx:=584; cy:=272; end;
  'herblore': begin rx:=649; cy:=272; end;
  'fishing': begin rx:=712; cy:=272; end;
  'range': begin rx:=586; cy:=303; end;
  'thieving': begin rx:=650; cy:=303; end;
  'cooking': begin rx:=713; cy:=303; end;
  'prayer': begin rx:=587; cy:=334; end;
  'crafting': begin rx:=651; cy:=334; end;
  'firemaking': begin rx:=650; cy:=303; end;
  'magic': begin rx:=585; cy:=365; end;
  'fletching': begin rx:=651; cy:=365; end;
  'woodcutting': begin rx:=714; cy:=365; end;
  'runecrafting': begin rx:=586; cy:=396; end;
  'slayer': begin rx:=650; cy:=396; end;
 end;
end;


{=========================================================================
=========================================================================}

function GetSkillAmount(skill:string):integer;
begin
GameTab(2)
 LoadLvl(skill);
  wait(450);
 result:=strtoint(ReturnText);
end;

{=========================================================================
=========================================================================}

function GetSkillLevel(skill:string):integer;
begin
 LoadLvl(skill);
 GameTab(2)
  wait(450);
  rx:=rx+12
  cy:=cy+12
 result:=strtoint(ReturnText);
end;

{=========================================================================
=========================================================================}

procedure Speak(text:string);
begin
SendText(text+chr(13));
end;

{=========================================================================
=========================================================================}

Procedure LoadWords(ActionType:String);
begin
If(ActionType='Fighting')Then
   begin
     say1:='str lvls';       //Fighting
     say2:='def lvls';
     say3:='att lvls';
     say4:='take that';
     say5:='crazy';
     say6:='cant handle this';
     say7:='super';
     say8:='pretty fly';
     say9:='ooog';
     say10:='arg';
     say11:='doh';
     say12:='doof';
     say13:='ai karumba';
     say14:='ugg';
     say15:='man this is insane';
     say16:='booya';
     say17:='owning these beasts';
     say18:='owned';
     say19:='watch and learn';
     say20:='oh yeah';
     say21:='uh huh';
     say22:='victory dance';
     say23:='we are the champions';
     say24:='no time to sleep';
     say25:='perfect';
     say26:='captain insano';
     say27:='excellent';
     say28:='yay almost lvled up';
     say29:='keep it up';
     say30:='bring it on';
end;
If(ActionType='Mining')Then
begin
     say1:='Mining lvls';       //Mining
     say2:='smithing lvls';
     say3:='stop stealin my ores';
     say4:='i love this pick';
     say5:='mining is boring';
     say6:='haha';
     say7:='lol';
     say8:='oh yeah';
     say9:='u like to mine';
     say10:='go away';
     say11:='let me mine in peace';
     say12:='bahaha';
     say13:='freakin rocks';
     say14:='how many ores u got in bank';
     say15:='ive got ores';
     say16:='my mining owns yours';
     say17:='ill give you my pick, not';
     say18:='noob';
     say19:='minin lvl';
     say20:='mining level';
     say21:='give me a rune pick';
     say22:='are rune picks the best';
     say23:='be quiet';
     say24:='your annoying';
     say25:='buzz off';
     say26:='go take a dump';
     say27:='mining takes too long';
     say28:='yay almost lvl up';
     say29:='my mining is about to lvl up';
     say30:='w00t';
end;
If(ActionType='Woodcutting')Then
begin
     say1:='Cutting lvls';       //Woodcutting
     say2:='wood level';
     say3:='woodcutting levels';
     say4:='Taste my axe';
     say5:='poison ivy oh no';
     say6:='chop away';
     say7:='the bark is worse than the bite';
     say8:='whats the best tree';
     say9:='these trees grow fast';
     say10:='look at all these logs';
     say11:='haha';
     say12:='lol';
     say13:='owned';
     say14:='like my axe';
     say15:='my wc is about to lvl';
     say16:='yay woodcutting is almost lvled';
     say17:='bout to lvl up';
     say18:='w00t';
     say19:='are rune axes the best';
     say20:='i found an owl';
     say21:='noob';
     say22:='my woodcutting is better than yours';
     say23:='axes are cool';
     say24:='wow';
     say25:='crazy';
     say26:='insane';
     say27:='cant handle this';
     say28:='stupid tree';
     say29:='why are leaves green';
     say30:='whats your wc lvl';
end;
If(ActionType='Cooking')Then
begin
     say1:='Cooking lvls';       //Cooking
     say2:='cooking level';
     say3:='cooking levels';
     say4:='Taste my pie';
     say5:='rofl';
     say6:='cook away';
     say7:='mmm biscuits';
     say8:='whats the best food';
     say9:='wanna see my cherry pie';
     say10:='look at all these cakes';
     say11:='haha';
     say12:='lol';
     say13:='owned';
     say14:='like my spatula';
     say15:='my cooking is about to lvl';
     say16:='yay cooking is almost lvled';
     say17:='bout to lvl up';
     say18:='w00t';
     say19:='im a chef';
     say20:='i found a cookie';
     say21:='noob';
     say22:='my cooking is better than yours';
     say23:='pies are cool';
     say24:='wow';
     say25:='crazy';
     say26:='insane';
     say27:='cant handle this';
     say28:='stupid oven';
     say29:='too much wine';
     say30:='whats your cooking lvl';
end;
If(ActionType='Fletching')Then
begin
     say1:='Fletching lvls';       //Fletching
     say2:='Fletching level';
     say3:='fletchin levels';
     say4:='Taste my arrow';
     say5:='rofl';
     say6:='shoot away';
     say7:='my arrow has cool feathers';
     say8:='whats the best arrow';
     say9:='these arrows are crooked';
     say10:='look at all these arrows';
     say11:='haha';
     say12:='lol';
     say13:='owned';
     say14:='like my arrow';
     say15:='my fletching is about to lvl';
     say16:='yay fletching is almost lvled';
     say17:='bout to lvl up';
     say18:='w00t';
     say19:='are rune arrows the best';
     say20:='i dont have the skills';
     say21:='noob';
     say22:='my fletching is better than yours';
     say23:='arrows are cool';
     say24:='wow';
     say25:='crazy';
     say26:='insane';
     say27:='cant handle this';
     say28:='stupid arrow';
     say29:='freakin idiot';
     say30:='whats your fletching lvl';
end;
If(ActionType='Smelting')Then
begin
     say1:='smelting lvls';       //Smelting
     say2:='Smelting level';
     say3:='smelting levels';
     say4:='Taste my iron bar';
     say5:='rofl';
     say6:='smelt away';
     say7:='how about steel';
     say8:='whats the best bar';
     say9:='these bars smelt fast';
     say10:='this iron keeps melting';
     say11:='haha';
     say12:='lol';
     say13:='owned';
     say14:='like my skillz';
     say15:='my smelting is about to lvl';
     say16:='yay smelting is almost lvled';
     say17:='bout to lvl up';
     say18:='w00t';
     say19:='are rune bars the best';
     say20:='i found a rune bar';
     say21:='noob';
     say22:='my smelting is better than yours';
     say23:='bars are cool';
     say24:='wow';
     say25:='crazy';
     say26:='insane';
     say27:='cant handle this';
     say28:='stupid iron';
     say29:='im gonna sell this and get rich';
     say30:='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 randomnum:integer;
begin
LoadWords(Action)
if(random(25)=1)then
begin
randomnum:=random(30);
if(randomnum=0)then Speak(say30);
if(randomnum=1)then Speak(say1);
if(randomnum=2)then Speak(say2);
if(randomnum=3)then Speak(say3);
if(randomnum=4)then Speak(say4);
if(randomnum=5)then Speak(say5);
if(randomnum=6)then Speak(say6);
if(randomnum=7)then Speak(say7);
if(randomnum=8)then Speak(say8);
if(randomnum=9)then Speak(say9);
if(randomnum=10)then Speak(say10);
if(randomnum=11)then Speak(say11);
if(randomnum=12)then Speak(say12);
if(randomnum=13)then Speak(say13);
if(randomnum=14)then Speak(say14);
if(randomnum=15)then Speak(say15);
if(randomnum=16)then Speak(say16);
if(randomnum=17)then Speak(say17);
if(randomnum=18)then Speak(say18);
if(randomnum=19)then Speak(say19);
if(randomnum=20)then Speak(say20);
if(randomnum=21)then Speak(say21);
if(randomnum=22)then Speak(say22);
if(randomnum=23)then Speak(say23);
if(randomnum=24)then Speak(say24);
if(randomnum=25)then Speak(say25);
if(randomnum=26)then Speak(say26);
if(randomnum=27)then Speak(say27);
if(randomnum=28)then Speak(say28);
if(randomnum=29)then Speak(say29);
Wait(100+random(100));
ChatsOff;
end;
end;

{=========================================================================
=========================================================================}

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;

{=========================================================================
=========================================================================}

Procedure DTMLoadage;
begin
 TheBankOfRS := DTMFromString('78DA63DCC3C0C0A0C18002FECF9007D38C503' +
       'EE35120A14540CD4922D45C21C2AEE7404293012B80AB7987A906' +
       'C39C5F404207558DA78309AA1A4646C2E6700359AA04D4F03162D' +
       '885A1660F036135DA40963A7E350002031AD3');
 UseQuick := DTMFromString('78DA633CC5C0C060CCC8800CFEFFFF0FA661A' +
       '28CAF8084150135D78850F30D489812A1C69A801A2620CB92801A' +
       '0920CB0C550D03BA1A5E20CB1EBF3900D3771D67');
 Five := DTMFromString('78DA63F460606050634001FFFFFF07D38C503' +
       'EA33B116A5C80843A116A3408A87105129A44B84787801A90BFF4' +
       '08A8710312FA44B89980390073781EE8');
 Ten := DTMFromString('78DA637463606030654001FFFFFF07D38C503' +
       'E23488D25116AAC8950634B408D0B90B023A0C68308353E44D8E5' +
       '0B24CC18B002B89A00206145C01C7F2061835F0D0092752021');
 All := DTMFromString('78DA637463606070614001FFFFFF07D38C503' +
       'E23488D3BAA9AD8107754352E986A30CCF100121E44A8F126A0C6' +
       '990835BE40C28D809A0022DC1C40A45D04D40000976321A2');
 LetterX := DTMFromString('78DA637461606088614001FFFFFF07D38C503' +
       'E23484D2401356E40228208734208A8F120524D0C11EE09C7AF06' +
       '007459194A');
 dLamp := DTMFromString('78DA63B462626078C4800618914820ED0454F' +
       '390801A2FA09A7B04D4F813614E1850CD53026A02806A5E10E19E' +
       '9704D4B812560300D6300994');
end;

{=========================================================================
=========================================================================}

Procedure ButtonYes(Sender : TObject);
begin
Updt.ModalResult:=MrOk;
Updateit:=True;
end;
Procedure ButtonNo(Sender : TObject);
begin
WriteLn('Si Was not updated')
Updt.ModalResult:=MrOk
end;

Procedure UpdtForm;
Begin
UpdtApplication:= GetApplication;
SelfUpdt:= GetSelf;

Updt:=TForm.Create(nil);
Updt.Left := 100;
Updt.Top := 115;
Updt.Width := 160
Updt.Height := 110
Updt.BorderStyle := bsDialog;
Updt.Caption := 'SI Updater'

Update:=TLabel.Create(Updt)
Update.Caption:= 'Do you Want to Update Si?'
Update.Top:= 10
Update.Left:= 10
Update.Parent:= Updt

Yes:=TButton.Create(Updt)
Yes.Caption:= '&Yes'
Yes.Top:= 35
Yes.Left:= 20
Yes.Width:= 40
Yes.Parent:= Updt;
Yes.OnClick := @buttonyes;
Yes.Default := True;


No:=TButton.Create(Updt)
No.Caption:= '&No'
No.Top:= 35
No.Left:= 80
No.Width:= 40
No.Parent:= Updt;
No.OnClick := @buttonno;
No.Default := True;
Updt.ShowModal
Updt.Free
end;

Procedure CheckUpdate;
begin
Ver:=GetPage('http://0601.netclime.net/1_5/5/Z/Q/SiVersion.txt')
WriteLn('Latest Version = ' +Ver + ' Current Version = '+ SiVersion)
If(not(Ver=''))then
begin
if(not(SiVersion=Ver))then
Begin
UpdtForm;
end;
end;
if(Ver='')then
Begin
WriteLn('Connection Error')
End;
end;

{=========================================================================
=========================================================================}

Procedure UpdateInclude;
begin
CheckUpdate;
if(Updateit)then
begin
OpenWebPage('http://sitekreator.com/include/')
end;
end;

{=========================================================================
=========================================================================}

Procedure LoadInclude(disguise:string);
begin
 UpdateInclude;
 DisguiseScar(disguise);
 SetMouseMode(false);
 UpChars:= LoadChars2(AppPath + 'Charsrs22\');
 ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
 Font3:=LoadChars2(AppPath + 'CharsChat2\fontsmall\');
 LoadChars('');
 DTMLoadage;
 BoxOpenerSetup;
 St:=GetSystemTime;
 ABT:=GetSystemTime;
end;