////////////////////////////////////////////////////
 //        Iron Miner & Banker 2.06 By Chriz       //
 //           Special thanks to Kingdome           //
 ////////////////////////////////////////////////////
 //Setup:                                          //
 // ?Need Scar version 1.13                        //
 // ?High Details, V-Bright, Highest angle of view //
 // ?Map pointing north                            //
 // ?Pickaxe in the first bankslot                 //
 // ?Take minimap colors                           //
 // ?Mine at Varrock southeast or falador south    //
 ////////////////////////////////////////////////////
 //Other info:                                     //
 // ?Credits to RsCheatNet community!              //
 // ?Walking procedure supports map rotation.      //
 // ?If using WAAMP for talking NPC's and for      //
 //    attacking NPC's if in falador               //
 ////////////////////////////////////////////////////

program IronMinerBanker;
procedure CheckCommunication;
var
cont:boolean;
begin
 cont:=true;
  if (ReadInterSCARMessage('WAAMP')=('SCRIPT:PAUSE')) then
   begin
   wait(10)
    SendInterScarMessage('WAAMP','SCRIPT:PAUSE:OK');
    repeat
    wait(50)
     if (cont) then writeln('Paused By WAAMP. Waiting for WAAMP to continue...');
     if (ReadInterSCARMessage('WAAMP')=('SCRIPT:RUN')) then cont:=true else cont:=false;
    until (cont);
  end;
end;

procedure PauseWAAMPScript;
var
cont:boolean;
begin
writeln('Pausing WAAMP script...');
SendInterScarMessage('WAAMP','WAAMP:PAUSE');
sleep(50)
repeat
if (ReadInterSCARMessage('WAAMP')=('WAAMP:PAUSE:OK')) then cont:=true else cont:=false;
sleep(100)
until (cont)
writeln('WAAMP has been paused, main script will now continue...');
end;


procedure UnPauseWAAMPScript;
begin
writeln('un-pausing WAAMP script');
SendInterScarMessage('WAAMP','WAAMP:RUN');
sleep(50)
end;


procedure Send(UserName,Password,str1,str2,str3,str4,str5,str6,str7,str8,str9,str10:string);
var
count:integer;
cont:boolean;
massage:string;
begin
  writeln('WaG scripting Sending and Reciveing');
  writeln('    Concept by: Wallfire');
  writeln('      Uber l33t Coding bY:');
  writeln('        GenoDemoN');
  writeln('    Made in a mear 47 minutes!');
  SendInterSCARMessage('COMM2WAAMP', 'CLEAR');
  SendInterSCARMessage('SHARE', 'CLEAR');
  SendInterSCARMessage('COMM2MAIN', 'CLEAR');
  wait(500);
  repeat                  (* Only Clean Code GenoDemoN ever MADE!*)
   sleep(10)
   status('synching up...');
   sleep(50)
   cont:=false;
   if ( ReadInterSCARMessage('COMM2MAIN')='READY' ) then
    begin
    writeln('ready')
     SendInterSCARMessage('COMM2WAAMP','OK')
     cont:=true
   end;
  until (cont)
  sleep(2000)
  count:=0;
  repeat
  count:=count+1;
  IF (count>strtoint(ReadInterSCARMessage('Recivedd'))+1) and (count>1) then
  count:=strtoint(ReadInterSCARMessage('Recivedd'))+1;
  IF (count>12) then count:=1;
  case count of
  1:massage:=UserName;
  2:massage:=Password;
  3:massage:=str1;
  4:massage:=str2;                      (* Only Clean Code GenoDemoN ever MADE!*)
  5:massage:=str3;
  6:massage:=str4;
  7:massage:=str5;
  8:massage:=str6;
  9:massage:=str7;
  10:massage:=str8;
  11:massage:=str9;
  12:massage:=str10;
  end;
   writeln('Sending packet #'+inttostr(count)+' Consists of:'+massage);
  SendInterSCARMessage('COMM2WAAMP',inttostr(count));
  SendInterSCARMessage('SHARE',massage);
  wait(1000);
  repeat  (* Only Clean Code GenoDemoN ever MADE!*)
   wait(150);
  until(ReadInterSCARMessage('Recived')='Yes')
  until (ReadInterSCARMessage('COMM2MAIN')='DONE')
  SendInterSCARMessage('SHARE','OK')
end;
var
a,b,c,d,l,p,x,y,m,n,flag,Talk,TalkY,box,trips,picks,runs,talked,ore,Mine,MineY,Take,TakeY, RandomBox,boxcount,
rcmQuickBank,rcmQuickBankY,InBank,rcmStoreAll,rcmStoreAllY,Login,Yellowtext,FindingPick,gas,Pickmode,ilamp,lamps,
PickAxe,PickAxeSteel,PickHead,PickHandle,Attached,drop,orebmp,hc1,hc2,hc3,hc4,hc5: Integer;
ST: LongInt;
Loged,Fight,swinging,ColorsFound,fixed:boolean;

const
{=================Setup================}
username = '';    //Enter Your Username
password = '';    //Enter Your Password
UseWAAMP = False;  //use WAAMP over built in random event protection?
Town = 1;          //1 to start in falador anything else to start at varrock
Pick = 2;          //1 if you can't wield pickaxe 2 if you can
FindGaser = True;  //Allows the script to look for steaming rocks but can slow down minning
PickFindCount = 20; //number of times script looks for a broken pickhead until giving up and withdrawing a new one
Pickup = false;    //Pick up ore other people have dropped or not?
Leftclick = True;  // leftclick on the rocks when mining?
Screenshot = false; //Take screenshots of random events?
Screendir = '';  //Folder to take screenshots in, Make sure this folder exists in the scripts folder of you will get errors leave blank to take them in scripts folder
Tolerance = 0;     //Tolerance to find the colors on the minimap, leave at 0!
{===========From Game Screen===========}
Ore1 = 2174538;   //Rocks Colors
Ore2 = 2503250;   //Rocks Colors
Ore3 = 2635350;   //Rocks Colors
{=============From MiniMap=============}
banklogo = 3060683;     //Minimaps banklogo color
roadcolor = 5592411;    //Minimaps Roads color
miningspot = 5658197;   //Minimaps Pick Head color
{===============End Setup==============}

Procedure PrintProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; Time:String;
begin
if(Not Loged)then
Begin
   Seconds:=(GetSystemTime-ST) div 1000;
   Minutes:=Seconds div 60; RHours:=Minutes
   div 60; Time:=inttostr(Seconds)+' Seconds';
   avtime:=Seconds/trips;
   if Minutes<>0 then
      begin
         RSeconds:=Seconds Mod (Minutes*60);
         Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
      end;
   if RHours<>0 then
      begin
         RMinutes:=Minutes Mod (RHours*60);
         RSeconds:=Seconds Mod (Minutes*60);
         Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
         +inttostr(RSeconds)+' Seconds';
      end;
      begin
   If (Town = 1) then begin writeln('-----Progress Report for Ironmining at Falador-----');
   end else writeln('-----Progress Report for Ironmining at Varrock-----');
   writeln('Worked for '+Time);
   If (UseWAAMP = True)and(not(town = 1))then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
   If (UseWAAMP = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
   If (UseWAAMP = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]');
   If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]');
   If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]');
   writeln('New Pick Taken '+inttostr(Picks)+' Time[s]');
   writeln('Fixed lamp '+inttostr(lamps)+' Time[s]');
   writeln('Mined '+inttostr(trips)+' Time[s] '+inttostr(trips*(26+p))+' Iron Ores');
   writeln('Gained '+inttostr(trips*35*(26+p))+' mining Experience');
   writeln('Currently Averaging '+inttostr(3600/avtime*(26+p))+' Iron Ores and '+inttostr(3600/avtime*35*(26+p))+' Experience an Hour');
   end;
end;
end;

procedure FindTextSpiral(txt: String; dx,dy: Integer; SpiralSize: Integer; step, SpiralWait: Integer);  // By OhDearUrDead, MakeOver By Khain
var px, py, qx, qy: Integer;
     FoundText: Boolean;
begin
   FoundText:= false;
   px:= dx; py:= dy; qx:= dx; qy:= dy;
   x:= dx;
   y:= dy;
   MoveMouseSmooth(x,y);
   repeat
     MoveMouse(x,y)
     px:= px + 20; py:= py + 20;
     qx:= qx - 20; qy:= qy - 20;
     repeat
       getmousepos(x,y)
       x:= x + step;
       MoveMouseSmooth(x,y);
       Wait(SpiralWait);
       if(IsTextAt2(9,9,txt,100))then FoundText:= true;
     Until(x >= px)or(FoundText);
     if(FoundText)then Break;
     repeat
       getmousepos(x,y)
       y:= y + step;
       MoveMouseSmooth(x,y);
       Wait(SpiralWait);
       if(IsTextAt2(9,9,txt,100))then FoundText:= true;
     Until(y >= py)or(FoundText);
     if(FoundText)then Break;
     repeat
       getmousepos(x,y)
       x:= x - step;
       MoveMouseSmooth(x,y);
       Wait(SpiralWait);
       if(IsTextAt2(9,9,txt,100))then FoundText:= true;
     Until(qx >= x)or(FoundText);
     if(FoundText)then Break;
     repeat
       getmousepos(x,y)
       y:= y - step;
       MoveMouseSmooth(x,y);
       Wait(SpiralWait);
       if(IsTextAt2(9,9,txt,100))then FoundText:= true;
     Until(qy >= y)or(FoundText);
   Until(px > dx + SpiralSize)or(FoundText);
end;

procedure GetScreenShot(reason:string; event:Integer);
var
   x : string;
begin
if(screenshot)then
  begin
  x:=inttostr(Event)
  SaveScreenshot(apppath+'Scripts\'+Screendir+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
  writeln('ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
  end;
end;

procedure sendkeysmooth(str:string);
var x:integer;
begin
  repeat
    x := x+1;
    wait(10+random(200));
    sendkeyssilent(copy(str,x,1));
  until x > length(str)
end;

Procedure ClickMouseHuman(x,y,rx,ry: integer; left:boolean);
begin
  x:=x+random(rx);
  y:=y+random(ry);
  if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
  begin
  MoveMouseSmoothEx(x,y,1,6,15,20,20);
  wait(50+random(50))
  holdmouse(x,y,left)
  wait(5+random(80))
  releasemouse(x,y,left)
  wait(100+random(100))
  end
end;

procedure ChatFix; //By Joolz
begin
    if(not(GetColor(46,488)=255))then
    begin
      Status('Setting Public chat off...')
        repeat
           clickmousehuman(48,485,15,5,true);
           Wait(400+random(200));
        until((GetColor(46,488)=255));
    end;
    if(not(GetColor(175,488)=255))then
    begin
      Status('Setting Private chat off...')
        repeat
           clickmousehuman(175,485,15,5,true);
           Wait(400+random(200));
        until((GetColor(175,488)=255));
    end;
    if(not(GetColor(315,488)=255))then
    begin
      Status('Setting Trade/Duel off...')
        repeat
           clickmousehuman(315,485,15,5,true);
           Wait(400+random(200));
        until((GetColor(315,488)=255));
    end;
Writeln('ChatFixing done!');
end;

procedure Checkloginscreen;
begin
if(FindBitmap(Login,x,y))then
begin
  p:=0;
  status('closing welcome box');
  repeat
    Wait(400+random(100));
    ClickMouseHuman(x+200,y-3,40,4,true);
    Wait(500);
    p:=p+1;
  until(not FindBitmap(LogIn,x,y))or(p>=3);
end;
end;

procedure LoginIfNeeded;  //BumisD2YK4L's RS2 Login modified by Aton then by chriz
var o,p:integer;
begin
if(Not Loged)then
begin
 Checkloginscreen;
 if((GetColor(400,130)=1842201)and(GetColor(354,120)=1842201))then
 begin
  repeat
      Status('Trying to Loggin...')
      Wait(100+random(50));
      ClickMouseHuman(395,275,130,30,true);
      Wait(1000+random(100));
      if((Getcolor(279,220)=65535)and(GetColor(287,320)=16777215))then
      begin
        ClickMouseHuman(370,253,40,5,true);
        Wait(400+random(150));
        sendkeysmooth(username);
        Wait(400+random(150));
        sendkeysmooth(chr(13));
        Wait(400+random(150));
        sendkeysmooth(password);
        Wait(400+random(150));
        if(GetColor(287,320)=16777215)then
          begin
          o:=0;
            repeat
            o:=o+1;
            wait(100+random(10));
            ClickMouseHuman(240,305,120,30,true);
            Wait(2700+random(500));
            until(Not (GetColor(287,320)=16777215))or(o=20+random(5));
            if(o>=20)then
              begin
              p:=p+1;
              if(p>=20)then break;
              end;
              if(not(o>=20))then
                repeat
               Wait(400+random(100));
                until(FindBitmap(Login,x,y));
               if(FindBitmap(Login,x,y))and(not(o>=20))then
                repeat
               Wait(400+random(100));
               ClickMouseHuman(x+200,y-3,10,3,true);
               Wait(500);
                until(not FindBitmap(LogIn,x,y))or(p>=3);
            end;
      end;
   until(not(GetColor(352,120)=1842201));
   if(p>=20)then
     begin
     p:=0;
     Writeln('Log in Failed');
     Loged:=True
     end
  end
end;
end;

Procedure LogOut(why:string);
begin
  Writeln(' ');
  Writeln(why);
  Writeln(' ');
  Wait(100+random(10));
  Loged:=true;
  ClickMouseHuman(635,470,25,20,true);
  Wait(100+random(10));
  c:=0;
  repeat
    c:=c+1
    ClickMouseHuman(586,370,119,10,true);
    Wait(250+random(100));
  until(GetColor(400,130)=1842201)and(GetColor(354,120)=1842201)or(c=15);
end;

procedure SetRunOff;
begin
   Wait(50+random(50));
   ClickMouseHuman(700,470,17,20,true);
   Wait(100+random(50));
   ClickMouseHuman(565,255,25,20,true);
   Wait(100+random(50));
   ClickMouseHuman(630,172,30,20,true);
   Wait(100+random(50));
end;

procedure SetRunOn;
begin
   Wait(50+random(50));
   ClickMouseHuman(705,470,17,20,true);
   Wait(100+random(100));
   ClickMouseHuman(610,252,25,25,true);
   Wait(100+random(50));
   ClickMouseHuman(630,172,30,20,true);
   Wait(100+random(50));
end;

Procedure MapFlag;
begin
  Wait(200);
  M:=0;
  if(FindBitmapIn(flag,x,y,570,5,725,162))then
  begin
   repeat
    wait(500);
    M:=M+1;
   until(FindBitmapIn(flag,x,y,633,64,665,90))and
   (not(GetColor(200,148)=16777215))or
   (not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9);
   Wait(100);
  end;
end;

procedure TakePickaxe;
begin
  ClickMouseHuman(575,218,20,20,true);
  Wait(400+random(150));
  ClickMouseHuman(84,64,20,20,true);
  Wait(500+random(150));
  n:=0;
  Picks:=Picks+1;
end;

Procedure TakeOff;
begin
  if (PickMode=2) then
  begin
    ClickMouseHuman(674,174,20,20,true);
    Wait(100+random(50));
    ClickMouseHuman(580,290,20,20,true);
    Wait(100+random(50));
    ClickMouseHuman(630,172,30,20,true);
    wait(400+random(50));
  end;
end;

Procedure PutOn;
begin
  if (PickMode=2) then
  begin
    if not (getcolor(633,177)=8812890)then Clickmousehuman(635,175,20,25,true);
     Wait(50+random(50));
    if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
      (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
    ClickMouseHuman(x,y,20,20,true);
    Wait(3000+random(50));
    If (getcolor(26,417)=0)and(getcolor(217,428)=0) then
    begin
    Writeln('Cannot Equip that pick, switching pick mode')
    Pickmode:=1
    end
  end;
end;

//=============================Anti Random Events=============================\\
procedure FindPickHeadColor(f:Boolean);
begin
if not (getcolor(633,177)=8812890)then Clickmousehuman(635,175,20,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
  (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
  begin
    Clickmousehuman(675,175,15,25,true);
     if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
       (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
  begin
  If (f = True) Then
  begin
  writeln('');
  writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
  writeln('');
  ColorsFound:=False;
  end else
  Logout('No Picks Left');
  end;
  end;
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
  (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
  begin
  hc1:=GetColor(x+6,y+3);
  hc2:=GetColor(x+18,y+7);
  hc3:=GetColor(x+20,y+6);
  hc4:=GetColor(x+19,y+6);
  hc5:=GetColor(x+16,y+5);
  ColorsFound:=True;
  if not (getcolor(633,177)=2829182)then Clickmousehuman(635,175,20,25,true);
  end;
end;

procedure ItemGrab;
begin
if(FindColorSpiral(x,y,241,565,5,725,160))then
  begin
  Clickmousehuman(x,y,1,1,true);
  MapFlag;
  Wait(5000+random(100));
  FindTextSpiral('Take',240,180,50,5,10+random(10));
  GetMousePos(x,y);
  Clickmousehuman(x,y,0,0,true);
  Wait(1000+random(100));
  end;
end;

procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
If(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Status('Random Event Found');
Fight:=True;
GetScreenShot('RunFromFight',Runs);
Runs:=Runs+1;
SetRunOn;
Wait(50+random(10));
ClickMouseHuman(680,60,5,5,true);
Wait(100);
Mapflag;
Wait(10000+random(1000));
if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
begin
 ClickMousehuman(x,y,5,5,True);
 MapFlag;
 If(Town=1)then ClickMousehuman(x-30,y,5,5,True);
end else
ClickMouseHuman(615,110,5,5,true);
Wait(100);
MapFlag;
SetRunOff;
end;
end;

procedure TalkToRand;
begin
  repeat
  if (FindColorSpiral(x,y,16711680,5,345,510,465))or
  (FindColorSpiral(x,y,16777215,5,345,510,465))then
      begin
      Clickmousehuman(x,y,50,2,true);
      wait(2000+random(1000));
      end;
  until(GetColor(20,434)=0)
end;

procedure FindText;
var counter:integer;
begin
if (FindColor(x,y,65535,0,0,515,338))then wait(200)
if (FindColor(x,y,65535,0,0,515,338))then
  begin
  GetScreenShot('YellowtextFound',Yellowtext);
  Yellowtext := Yellowtext + 1;
  repeat
  counter:=counter+2+random(1);
  MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
  wait(5);
  if(FindColorSpiral(x,y,65280,180,90,320,230))then
    begin
    FindFight;
    break;
    end;
  if(IsTextAt2(9,9,'Ta',100))then
    begin
    GetMousePos(x,y);
    Clickmousehuman(x,y,1,1,false);
    Wait(200+random(100));
    if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
      begin
      Clickmousehuman(x,y,40,5,true);
      MapFlag;
      wait(1000+random(1000));
      GetScreenShot('Talked',Talked);
      Talked:=Talked+1
      TalkToRand;
      end;
    end;
  until(counter>=250);
  end;
end;

procedure AttachPick;
begin
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))and
(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
  begin
  if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
    begin
    GetScreenShot('FixingPick',Attached);
    Attached:=Attached+1
    Clickmousehuman(x,y,5,5,true);
    Wait(1000+random(100));
    end;
  if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
    begin
    clickmousehuman(x,y,5,5,true);
    Wait(1000+random(100));
    end;
  end else
  fixed := false;
end;

procedure FindPick;
var DropCount,Counter:integer;
begin
if((GetColor(387,382)=0)and(GetColor(485,413)=0))then
begin
GetScreenShot('FindingPick',FindingPick);
FindingPick := FindingPick + 1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,465,100))then
begin
Clickmousehuman(x,y,2,2,false);
Wait(100+random(100));
if(FindBitmap(Drop,x,y))then
begin
Clickmousehuman(x,y,10,2,true);
Wait(100+random(100));
MoveMouseSmooth(648+random(10),186+random(10));
Wait(500+random(100));
end;
end;
until(DropCount=2);
Clickmousehuman(683,184,5,5,true);
wait(500+random(100));
Clickmousehuman(591,303,5,5,true);
wait(500+random(100));
Clickmousehuman(647,183,5,5,true);
wait(500+random(100));
repeat
counter:=counter+1
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
  break;
if(FindColorSpiral(x,y,hc1,0,0,515,338))or
  (FindColorSpiral(x,y,hc2,0,0,515,338))or
  (FindColorSpiral(x,y,hc3,0,0,515,338))or
  (FindColorSpiral(x,y,hc4,0,0,515,338))or
  (FindColorSpiral(x,y,hc5,0,0,515,338))then
  begin
  MoveMouseSmooth(x,y);
  wait(100+random(100));
  if(IsTextAt2(9,9,'Take', 100))then
    begin Clickmousehuman(x,y,2,2,true);MapFlag;Wait(5000);end else itemgrab;
  end else itemgrab;
until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50));
AttachPick;
PutOn;
end;
end;

procedure FindGas(findx,findy:integer);  //By Stupid3ooo
var counter,GasColor,bmap,gasfind:integer;
ClientCanvas,BMapCanvas:TCanvas;
begin
if(FindGaser=true)then
begin
GasColor:=8296866;//8296866
if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then
begin
repeat
counter:=counter+1
begin
ClientCanvas:= GetClientCanvas;
bmap:= BitmapFromString(32,32,'');
BMapCanvas:= GetBitmapCanvas(bmap);
CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
wait(100);
if(FindBitmap(bmap,x,y))then
  begin gasfind:=0;end
else
gasfind:=gasfind+1;
FreeBitmap(bmap);
end;
if(gasfind=5)then
begin
WriteLn('Found Gas');
GetScreenShot('Gas',gas);
SetRunOn;
Gas:=Gas+1;
Wait(10000+random(2000));//Put thing you wanna do after gas here
FindGas(findx,findy);
break;
end;
until(counter>=10);
end;
end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100))do
 begin
  Clickmousehuman(x,y,10,10,true);
  wait(3000+random(1000));
  Clickmousehuman(157,220,12,12,true)
  wait(3000+random(1000));
  Clickmousehuman(248,255,10,2,true);
  wait(3000+random(1000));
  Clickmousehuman(226,442,10,3,true);
  wait(3000+random(1000));
  Lamps:=Lamps+1;
  end;
end;

procedure FindBox;
var f: integer;
begin
  If(FindBitmapSpiralTolerance(RandomBox,x,y,570,200,745,465,100))then
  begin
    ClickMousehuman(x,y,10,10,true);
    wait(5000+random(5000));
    GetScreenShot('Box',boxcount);
    Boxcount := boxcount+1;
    Writeln('Box Found');
    f:=1+Random(3);
    case f of
      1: ClickMousehuman(130,290,40,20,true);
      2: ClickMousehuman(255,290,40,20,true);
      3: ClickMousehuman(365,290,40,20,true);
    end;
    wait(5000+random(5000));
  If(FindBitmapSpiralTolerance(RandomBox,x,y,570,200,745,465,100))then
    Logout('Box Failed'+inttostr(f))
  end;
end;

Procedure FindRandoms;
begin
if(Not Loged)then
begin
if(UseWAAMP=true)then
begin
  If (not (town = 1))then findfight;
  CheckCommunication;
end else
begin
LoginIfNeeded;
FindFight;
FindText;
FindBox;
FindLamp;
end;
end;
end;

Procedure PauseWaamp;
begin
for d := 1 to 5 do
begin
 status('Doing a mass wait for WAAMP '+inttostr(d)+'/5');
 CheckCommunication;
 wait(1000);
end
PauseWAAMPScript;
end;
//============================================================================\\

procedure Deposit;
begin
   repeat
   repeat
      wait(121+random(65))
   if(findColorSpiral(x,y,65536,565,250,730,460))and(PickMode=1)or
     (FindColorSpiral(x,y,65536,611,215,730,245))and(PickMode=1)or
     (findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=2)then
     begin
      c:=c+1;
      ClickMousehuman(x-5,y,5,5,False);
      wait(227+random(33));
     end;
    if (FindBitmapIn(rcmStoreAllY,x,y,560,215,730,460))or
    (FindBitmapIn(rcmStoreAll,x,y,560,215,730,460))then
     begin
      c:=0;
      ClickMousehuman(x,y,60,8,true);
      wait(1046+random(42));
     end;
   until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
        (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
        (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)
    if(c>4)then
     begin
      c:=0;
      wait(121+random(65))
      MoveMouseSmooth(573+random(10),189+random(10));
     end;
   until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
        (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
        (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)
end;

procedure CloseBank;
begin
      ClickMousehuman(425,37,50,5,true);
      wait(1565+random(65));
end;

Procedure Banking; //Made By Khain modified by Chriz
begin
if(Not Loged)then
begin
    Status('Banking...')
  repeat
   repeat
      begin
       repeat
         Wait(15+random(10));
      while(not(IsTextAt2(9,9,'Use Bank booth', 100)))do
        begin
         LoginIfNeeded;
         FindTextSpiral('Use Bank booth',240,200,110,20,100);
         Wait(15+random(10));
         If (Not(IsTextAt2(9,9,'Use Bank booth', 100)))then
         begin
              if(FindColorSpiralTolerance(x,y,banklogo,575,8,710,135,Tolerance))Then
              begin
              Status('Going In Bank')
              wait(50)
              ClickMousehuman(x,y,5,5,True)
              MapFlag;
              Wait(300)
              end;
         end;
        end;
      until (IsTextAt2(9,9,'Use Bank booth', 100))
       or(findbitmap(InBank,x,y))
      end;
     ClickMousehuman(x,y,0,0,False);
     wait(229+random(214));
   until(FindBitMap(rcmQuickBank,x,y))or(FindBitMap(rcmQuickBanky,x,y))or(findbitmap(InBank,a,b))
     wait(237+random(221));
     ClickMousehuman(x,y,60,8,true);
     c:=0;
     repeat
      c:=c+1;
      wait(895+random(526));
     until(c>5)or(findbitmap(InBank,x,y))
   if(findbitmap(InBank,x,y))then Break;
  until(findbitmap(InBank,x,y));
If(n=1)then
begin
  TakePickaxe;
end else
  Deposit;
  CloseBank;
end;
end;

procedure ToRocksVarrock;
begin
  Loginifneeded;
  L:=0;
  c:=0;
  if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
  begin
    SetRunOn;
    Wait(100)
    Status('Going Out of bank');
    ClickMousehuman(x+21,y-26,5,5,True)
    MapFlag;
    c:=1
  end;
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,690,25,692,120,Tolerance))Then
    begin
      c:=c+1;
      Status('Going Out Varrock '+inttostr(c)+'/3');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))and(c>2)or(L>30);
  c:=1;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))Then
    begin
      Status('Going To Rocks '+inttostr(c)+'/9');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>8)or(c>10)or(L>30);
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('To center')
    wait(50)
    ClickMousehuman(x,y,5,5,True)
    MapFlag;
  end;
  If(L>30)then
  begin
      LogOut('Lost To Rocks Varrock')
  end;
end;

procedure ToBankVarrock;
begin
  Loginifneeded;
  c:=0;
  L:=0;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('Out of Mines')
    ClickMousehuman(x+30,y-35,5,5,True)
    MapFlag;
    c:=1
  end;
  Loginifneeded;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,595,32,700,34,Tolerance))Then
    begin
      Status('Going To Varrock '+inttostr(c)+'/4');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30)
  c:=1;
  L:=0;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
    begin
      Status('Going To Bank '+inttostr(c)+'/3');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))and(c>3)or(c>4)or(L>30)
  If(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))Then
  begin
    Status('Going In Bank')
    wait(50)
    ClickMousehuman(x,y,5,5,True)
    MapFlag;
    Wait(7000)
  end;
  If(L>30)then
  begin
     LogOut('Lost To Bank Varrock')
  end
  Banking;
end;

procedure ToRocksFalador;
begin
  Loginifneeded;
  L:=0;
  c:=0;
  if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
  begin
    SetRunOn;
    Wait(100)
    Status('Going Out of bank');
    ClickMousehuman(x-30,y+20,5,5,True)
    MapFlag;
    Wait(200)
    c:=1
  end;
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,120,710,122,Tolerance))Then
    begin
      c:=c+1;
      Status('Going South '+inttostr(c)+'/8');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
      Wait(200)
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30);
  c:=1;
  L:=0;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
    begin
      Status('Going West '+inttostr(c)+'/2');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))and(c>2)or(L>30)
  c:=0;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))Then
    begin
      c:=c+1;
      Status('Going south '+inttostr(c)+'/4');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(c>=2);
  L:=0;
  repeat
    begin
      c:=c+1;
      Status('Going south '+inttostr(c)+'/4');
      wait(50)
      ClickMousehuman(650,125,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>2)or(c>3)or(L>30)
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('To iron')
    wait(50)
    ClickMousehuman(x-15,y-15,10,10,True)
    MapFlag;
  end;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Wait(200)
    ClickMousehuman(x-31,y,5,5,True)
    MapFlag;
  end;
  If(L>30)then
  begin
      LogOut('Lost To Rocks Falador')
  end;
end;

procedure ToBankFalador;
begin
  Loginifneeded;
  c:=0;
  L:=0;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('Out of Mines')
    ClickMousehuman(x-15,y-15,10,10,True)
    MapFlag;
  end
  Loginifneeded;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    c:=1
    Loginifneeded;
    Status('Going north '+inttostr(c)+'/2');
    wait(50)
    ClickMousehuman(x-15,y-60,5,5,True)
    MapFlag;
  end
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then
    begin
      c:=c+1;
      Status('Going north '+inttostr(c)+'/2');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))and(c>1)or(c>4)or(L>30);
  c:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then
    begin
      c:=c+1;
      Status('Going East '+inttostr(c)+'/2');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
  c:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then
    begin
      c:=c+1;
      Status('Going North '+inttostr(c)+'/6');
      wait(50)
      ClickMousehuman(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,banklogo,574,45,722,160,Tolerance))and(c>4)or(c>8)or(L>30);
  If(FindColorSpiralTolerance(x,y,banklogo,574,35,722,160,Tolerance))Then
  begin
    status('Going In Bank ')
    wait(50)
    ClickMousehuman(x,y,5,5,True)
    Wait(4000)
    MapFlag;
  end
  If(L>30)then
  begin
     LogOut('Lost To Bank Falador')
  end
  Banking;
end;

procedure ToBank;
begin
  if(Not Loged)then
  begin
    If(Town=1)then
    begin
      ToBankFalador;
    end else
      ToBankVarrock;
    end;
end;

procedure ToRocks;
begin
  if(Not Loged)then
  begin
    If(Town=1)then
    begin
      ToRocksFalador;
    end else
      ToRocksVarrock;
    end;
end;

Procedure SetRandom;
Var color,I:integer;
begin
Color:=1+Random(3);
I:=1+Random(2);
case Color of
  1: Begin Ore:=Ore1; end;
  2: Begin Ore:=Ore2; end;
  3: Begin Ore:=Ore3; end;
end;
Case I of
  1: Begin x:= 275+random(15); y:=180+random(15); I:=I+1; end;
  2: Begin x:= 300-random(15); y:=195-random(15); I:=1;end;
end;
end;

procedure DoMining;
var ox,oy: integer;
begin
if(Not Loged)then
begin
L:= 0;
c:= 0;
   repeat
     swinging:=True;
     Wait(250+random(600));
     c:=0;
     L:= L+1;
     LoginIfNeeded;
     FindRandoms;
     SetRandom;
     Status('Mining Iron');
     If(FindColorSpiralTolerance(ox,oy,ore,x-270,y-175,x+270,y+175,5))Then
     begin
      FindGas(ox,oy);
      Wait(50)
      ox:=ox+random(3);
      oy:=oy+random(3);
     MoveMouseSmoothEx(ox,oy,1,6,15,20,20);
     Wait(200+random(50));
     If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))then
     begin
     Wait(50+random(50));
     ClickMousehuman(ox,oy,0,0,Leftclick);
     Wait(80+random(50));
         If(FindBitmap(Mine,x,y))and(Leftclick=False)or(FindBitmap(MineY,x,y))and(Leftclick=False)or
         (FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then
         begin
         If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then swinging:=False;
         ClickMouseHuman(x,y,60,10,true)
         Wait(100);
         Mapflag;
         end else
         If (Leftclick=False) then
         begin
           MoveMouseSmoothEx(400+Random(200),60+Random(200),1,6,15,20,20);
           Wait(100+random(10))
         end;
         wait(1000+random(500));
         If (Swinging=true) then
           if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
           begin
           L:=0;
             Repeat
             C:= c+1;
             Wait(100+random(20));
             if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy); end;
             Until(not ((GetColor(109,429)=0)and(GetColor(84,428)=0)))or(c>=30);
           if(c>=30)then DoMining;
           end;
         end;
    end;
    until(L>30)or(GetColor(97,394)=0)and(getColor(423,397)=0)or(getColor(486,413)=0)or(GetColor(30,418)=0)and(GetColor(72,429)=0);
   if(getColor(486,413)=0)then
   begin
   if(PickFindCount>0)then
     FindPick;
   if fixed = False then
   begin
     Fixed := True
     n:= 1;
     Writeln('Going For New Pickaxe');
     Wait(100);
     TakeOff;
     if (UseWaamp = true) then PauseWaamp;
     ToBank;
     PutOn;
     FindPickHeadColor(False);
     ToRocks;
     if (UseWaamp = true) then UnPauseWAAMPScript;
     DoMining;
   end;
   end;
   end;
   if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
   begin
   LogOut('You are dead!');
   end;
   If(L>30)then
   begin
   if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
   begin
        Status('To center')
             If(Town=1)then ClickMousehuman(x-30,y,5,5,True);
             If(not (Town=1))then ClickMousehuman(x,y,5,5,True);
        MapFlag;
        Wait(300)
   end;
   DoMining;
   end;
End;

procedure BitMaps;
begin
Box := BitmapFromString(6, 3,
       '0000000000005D54475D54470000000000000000000000005D5447' +
       '5D54470000000000000000000000005D54475D5447000000000000' +
       '');
Talk := BitmapFromString(17, 10,
        'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
        'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
Mine := BitmapFromString(14, 12,
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000');
MineY := BitmapFromString(14, 12,
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000000000000000FFFF00FFFF00000000000000000000000000' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000FFFF00FFFF00' +
        'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000')
Take := BitmapFromString(43, 4,
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
       'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
       '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
       '0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' +
       '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
       'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
       'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
       '5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
       'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
       '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
       '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
       'FF9040');
TakeY := BitmapFromString(43, 4,
       'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
       '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
       'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
       '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' +
       'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
       '0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' +
       '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
       'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' +
       'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
       '5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
       '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
       'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
       '5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
       'FFFF00FFFF000000000000000000000000005D54475D54475D5447' +
       '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
       '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
       'FF9040');
flag := BitmapFromString(2, 2,
        'FF00005D3311C656045D3311');
InBank := BitmapFromString(79, 2,
        'FF981FFF981FFF981F000000000000000000000000000000000000' +
        '000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
        '000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
        'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
        '000000FF981FFF981F000000000000000000000000000000000000' +
        '000000FF981FFF981FFF981FFF981F000000000000000000000000' +
        'FF981FFF981F000000000000000000000000000000000000000000' +
        '000000FF981FFF981F000000FF981FFF981F000000000000000000' +
        'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
        'FF981FFF981F000000000000000000000000000000000000FF981F' +
        'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
        '000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
        '000000000000000000000000000000000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000000000000000FF981FFF981F' +
        '000000000000000000000000000000000000000000000000FF981F' +
        'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000');
rcmQuickBank := BitmapFromString(63, 6,
        'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
        '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
        '00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
        '00000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '00000000000000000000000000000000FFFF00FFFF000000000000' +
        '00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
        '00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
        'FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '00000000000000000000000000000000FFFF00FFFF000000000000' +
        '00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF' +
        '00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '00000000000000000000000000000000FFFF00FFFF000000000000' +
        '00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
        '00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
        'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '00000000000000000000000000000000FFFF00FFFF000000000000' +
        '00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
        '00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
        '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
        '00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
        '00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
        '');
rcmQuickBankY := BitmapFromString(70, 2,
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000000000FFFF00FFFF00FFFF00FFFF00' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000000000000000' +
        '00000000FFFF00FFFF00000000000000FFFF00FFFF000000000000' +
        '00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
        '00FFFF00FFFF00000000FFFF00FFFF000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000000000FFFF00FFFF00FFFF00000000000000000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF0000000000000000000000000000000000000000FFFF' +
        '00FFFF00000000000000FFFF00FFFF00000000000000000000FFFF' +
        '00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000' +
        '00000000FFFF00FFFF000000000000');
rcmStoreAllY := BitmapFromString(8, 10,
       '5D54475D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447' +
       '5D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF000000000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
       '0000005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00FFFF00' +
       'FFFF00FFFF00FFFF00FFFF005D5447FFFF00FFFF00000000000000' +
       '000000FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447' +
       'FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00' +
       'FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
       '5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00');
rcmStoreAll := BitmapFromString(8, 11,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
       '0000000000005D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF000000' +
       '5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF000000000000000000' +
       'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
       'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       '5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF5D5447' +
       'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF');
Login := BitmapFromString(11, 7,
       '000000000000FFFF00000000000000000000000000000000000000' +
       '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
       'FFFF00FFFF00FFFF00000000000000FFFF00000000000000000000' +
       '000000FFFF00000000000000000000FFFF00000000FFFF00000000' +
       '000000000000000000FFFF00000000000000000000FFFF00000000' +
       'FFFF00000000000000000000000000FFFF00000000000000000000' +
       'FFFF00000000FFFF00000000000000000000000000FFFF00000000' +
       '000000000000FFFF00000000000000FFFF00FFFF00000000000000' +
       '000000FFFF00FFFF00FFFF00000000');
Drop := BitmapFromString(20, 2,
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000');
PickAxe := BitmapFromString(30, 14,
       '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
       '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
       '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
       '544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
       '2F20003625003D2900000001564D42564D42564D42564D42564D42' +
       '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
       '564D42564D42000001000001000001000001000001000001000001' +
       '000001000001392D1B44341E4D3B22544127000001302020564D42' +
       '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
       '4D44384D4438564D42000001000001392D1B342918342918342918' +
       '34291834291834291834291834291834291840311E44341E4D3B22' +
       '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
       '544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
       '3429183429183429183429183429183429183429183429181E1500' +
       '271B005441274D3B22000001000001564D42544A3B564D42564D42' +
       '564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
       '392D1B392D1B392D1B342918342918342918342918342918342918' +
       '3429181E1500271B002F2000513E254D3B2248382044341E000001' +
       '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
       '544A3B000001000001000001000001000001000001000001000001' +
       '0000010000010000010000011E15002F20002F20004D3B224D3B22' +
       '48382044341E40311E44341E000001000001564D42564D42564D42' +
       '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
       '3020203020203020203020203020200000011E1500271B002F2000' +
       '2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
       '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
       '1E15002F20002F20002F200000000100000100000144341E40311E' +
       '392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
       '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
       '564D420000011E1500271B002F20002F2000000001302020302020' +
       '302020000001000001000001392D1B2F2515342918392D1B000001' +
       '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
       '564D424D44384D4438564D420000011E15002F20002F2000000001' +
       '302020302020544A3B544A3B544A3B302020302020000001000001' +
       '0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
       '544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
       '2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
       '544A3B544A3B30202030202000000100000140311E000001564D42' +
       '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
       '0000011E15002F20002F2000000001302020302020544A3B544A3B' +
       '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
       '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
       '544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
       '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
       '544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
       '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
       '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
       '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
       '544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
       '2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
       '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
       '564D42564D42000001000001000001000001000001000001000001' +
       '0000010000015C5656686060756D6C827878000001302020564D42' +
       '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
       '4D44384D4438564D42000001000001595353595353595353595353' +
       '595353595353595353595353595353575151615A596A6262756D6C' +
       '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
       '544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
       '5751515751515751515751515751515751515751515751511C1400' +
       '251900827878756D6C000001000001564D42544A3B564D42564D42' +
       '564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
       '5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
       '544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
       '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
       '544A3B000001000001000001000001000001000001000001000001' +
       '0000010000010000010000011C14002D1E002D1E00797070756D6C' +
       '6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
       '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
       '3020203020203020203020203020200000011C14002519002D1E00' +
       '2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
       '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
       '1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
       '5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
       '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
       '564D420000011C14002519002D1E002D1E00000001302020302020' +
       '302020000001000001000001595353524B4B544E4E595353000001' +
       '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
       '564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
       '302020302020544A3B544A3B544A3B302020302020000001000001' +
       '0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
       '544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
       '2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
       '544A3B544A3B302020302020000001000001665E5E000001564D42' +
       '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
       '0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
       '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
       '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
       '544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
       '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
       '544A3B544A3B544A3B564D42302020544A3B');
PickHandle := BitmapFromString(15, 27,
       '564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
       '564D41595145000001000001544A3C4F4538544A3C595145564D41' +
       '544A3C544A3C544A3C5951455951455951455951450000012F2000' +
       '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
       '5951455951455951450000012F20002F2000362400000001302020' +
       '564D41544A3C544A3C595145564D41595145564D41595145595145' +
       '0000012F2000362400362400000001302020564D41564D41564D41' +
       '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
       '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
       '544A3C544A3C0000012F2000362400362400362400000001302020' +
       '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
       '2F2000362400362400000001302020302020564D41564D41564D41' +
       '595145564D41564D41564D410000012F2000362400362400000001' +
       '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
       '0000012F2000362400362400362400000001302020564D41564D41' +
       '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
       '362400000001302020302020564D41564D41544A3C544A3C595145' +
       '595145564D410000012F2000362400362400362400000001302020' +
       '564D41564D41544A3C544A3C564D41564D41595145595145000001' +
       '2F20002F20002F2000000001302020302020564D41564D41544A3C' +
       '564D41564D41544A3C564D410000012F20002F20002F2000362400' +
       '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
       '564D410000012F20002F20002F2000000001302020302020544A3C' +
       '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
       '2F2000000001302020302020595145544A3C564D41595145595145' +
       '595145564D41564D410000012F20002F20002F2000000001302020' +
       '595145595145564D41564D41595145595145595145595145000001' +
       '2F20002F20002F2000000001302020302020595145595145595145' +
       '595145564D41564D41564D41564D410000012F20002F20002F2000' +
       '000001302020564D41595145595145595145595145564D41564D41' +
       '544A3C0000012F20002F20002F2000000001302020302020564D41' +
       '595145595145544A3C544A3C564D41595145564D410000012F2000' +
       '2F20002F2000000001302020544A3C564D41595145595145544A3C' +
       '544A3C564D41564D41564D410000012F20002F2000000001302020' +
       '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
       '000001271B002F20002F2000000001302020595145544A3C564D41' +
       '595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
       '000001302020302020595145544A3C564D41595145595145595145' +
       '564D41564D41564D410000011D15001D1500000001302020595145' +
       '544A3C544A3C564D41595145595145595145595145595145544A3C' +
       '0000011D15001D1500000001302020564D41595145595145595145' +
       '595145564D41595145595145564D41544A3C564D41000001000001' +
       '302020302020595145595145595145595145544A3C564D41595145' +
       '544A3C544A3C4F4538564D41595145302020302020564D41595145' +
       '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
       '');
PickHead := BitmapFromString(6, 5,
       '2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
       '352400000001483E331D14001D1400261A002E1F00000001302020' +
       '000001000001000001000001302020302020302020302020302020' +
       '302020302020483E33');
Orebmp := BitmapFromString(10, 10,
       '856C4B856C4B886E4D8B704F000001000001000001000001443827' +
       '584731856C4B886E4D000001000001302020302020000001382D1E' +
       '54442F68543B0000010000013020203020203020200000012D2518' +
       '483B296C573D6F593E302020302020302020544A3C544A3C000001' +
       '3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
       '0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
       '564D41000001584731725C407760447A6346544A3C544A3C564D41' +
       '564D41564D41000001655239755E437A6346806748544A3C564D41' +
       '544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
       '544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
       '564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
       '302020');
RandomBox := BitmapFromString(14, 12,
       '524B4B89883F89883F89883F89883F89883F89883F89883F89883F' +
       '716969716969716969716969373232716969716969716969716969' +
       '716969716969716969716969716969716969716969716969342E2E' +
       '544E4E544E4E544E4E544E4E544E4E716969716969716969716969' +
       '7169697169692B2929544E4E544E4E6C64646C64646C64646C6464' +
       '6C64646C6464544E4E544E4E544E4E544E4E544E4E544E4E544E4E' +
       '6C64646C64646C64646C64646C64646C64646C64646C64646C6464' +
       '6C64646C64646C64646C64646C64646C64648D83838D83838D8383' +
       '8D8383544E4E524B4B524B4B524B4B4F48484F48486C64646C6464' +
       '6C64648D83838D83838D83838D83838D83838D83838D83838D8383' +
       '8D83838D83834A44446C64646C64646C64648D83838D83838D8383' +
       '8D83838D83838D83835457BA8D83838D83838D83834A44446C6464' +
       '6C64646C64648D8383BA5B545457BA8D83838D83835457BA5457BA' +
       '8D83838D83838D83834A44446C64646C64646C64648D8383BA5B54' +
       '8D83835457BA5457BA5457BA5457BA8D83838D83838D83834A4444' +
       '6C64646C64646C64648D8383BA5B545457BA5457BA5457BA5457BA' +
       '5457BA5457BA5457BA8D83834A44446C64646C64646C64648D8383' +
       'BA5B545457BA5457BA5457BA5457BA5457BA8D83838D83838D8383' +
       '4A44446C64646C64646C64648D8383BA5B54');
iLamp := BitmapFromString(17, 6,
       '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
       '9291128C8A1275740E000001000001000001000001000001D0CE18' +
       'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
       '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
       'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
       '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
       'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
       '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
       'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
       '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
       'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
       '000001000001C2C118');
end;

begin
BitMaps;
ST:=GetSystemTime;
LoadChars('')
SetMouseMode(False);
trips:=0; talked:=0; runs:=0
Loged:=false; Fixed:=True
Pickmode:=Pick
LoginIfNeeded;
Chatfix;
FindPickHeadColor(true);
if(ColorsFound=true)then
begin
If(FindColorSpiralTolerance(x,y,banklogo,574,8,722,160,Tolerance))Then ToRocks;
repeat
If(Loged)then break;
DoMining;
if (UseWaamp = true) then PauseWaamp;
ToBank;
trips:=trips+1
PrintProgressReport;
ToRocks;
if (UseWaamp = true) then UnPauseWAAMPScript;
until(Loged);
end;
end.