{ Chops GuildMiner v1.3
SetUp:
1-Start at Fally east bank
2-have pickaxes in first bank slot
3-press play

**GuildMiner versions**
v1.0 - fixed antiranom problem
v1.1 - fixed OpenBank
v1.2 - fixed deposit procedure
v1.3 - fixed withdraw procedure
**GuildMiner versions**


*****************
You Need:      **
Library.txt    **
Par.txt        **
BoxBreaker.txt **
*****************
}


program Guildminer;
{.include Library.txt}
{.include Par.txt}
{.include BoxBreaker.txt}
var
   chpx,chpy,c,sst,Mined,PickColor,PickHandle,RandomCount,tHour,tMin,tSec,cst,srt:integer;    //co-oridnates
   Quickx,Close,All,AllY,GotCoal,TalkW,TalkY:integer;   //bitmaps
   Proceed,Found:boolean;       // proceed?


{-----Setup-----}

const Username='';
const Password='';
const LampSkill='Ranged';

{------End------}


{Dont Touch These\\//}
const BankBooth=7244954;
const BankSymbol=3060683;
const Statue=8355977;
const LadderD=1207453;
const MiningSymbol=207695;
const LadderU=2642801;
const Coal=2768446;
const RockWait=2000;
const Ruby=1055613;
const Saphire=7672333;
const Diamond=8355976;
const Emerald=1076749;


procedure Chop(clickx,clicky:integer);
begin
 Mouse(clickx,clicky,2,2,true);
 wait(100);
 Flag;
 Wait(400);
end;

procedure PrintProgressReport;
begin
     ClearReport;
     cst:=getsystemTime;
     srt:=(cst-sst)/1000;
     tHour:=srt/3600;
     tMin:=(srt/60)-tHour*60;
     tSec:=srt-tMin*60-tHour*3600;
     Writeln('**(------------GuildMiner v1.1------------)**');
     Writeln('Mined ' + inttostr(mined) + ' Coal Ore.');
     Writeln('Gained ' + inttostr(mined*50) + ' xp.');
     Writeln('Handled ' + inttostr(RandomCount) + ' Randoms.');
     Writeln('Worked for '+inttostr(tHour)+' Hours '+inttostr(tMin)+' Minutes '+inttostr(tSec)+' Seconds');
     Writeln('Approximately Averaging ' + inttostr((mined/(srt/60))*60) + ' Coal Per Hour.');
     Writeln('Approximately Averaging ' + inttostr(((mined*50)/(srt/60))*60) + ' Xp Per Hour.');
     Writeln('**(---------End Of Progress Report--------)**');
end;


procedure ToBank;
begin
 if(proceed)then
  begin
   if(FindColorSpiral(x,y,MiningSymbol,565,11,730,156))then
   begin
    Chop(x,y)
    wait(1000)
    Chop(580,92)
    wait(1000)
    Chop(630,75)
    wait(1000)
     if(FindColorSpiral(x,y,LadderU,0,0,515,339))then
     begin
      MMouse(x,y,0,0)
      wait(50+random(50))
      if(istextat2(9,9,'Climb',100))then
       Chop(x,y)
       Wait(2000+random(1000))
       if(findColorSpiral(x,y,Statue,565,11,730,156))then
        Chop(x,y)
        wait(150+random(150))
        Chop(676,53)
        wait(1000)
        Chop(598,39)
        wait(1000)
        FindColorSpiral(x,y,BankSymbol,565,11,730,156)
        Chop(x,y)
        wait(1000+random(50))
     end;
   end;
  proceed:=true;
 end;
end;

Procedure StandStill;
begin
 Mouse(647,82,2,2,true);
 wait(5000+random(1000));
end;


Function FindGas:boolean; {Created by Odie5533 Edited By Joker}
var findx,findy,tx,ty,gx,gy,gasc:integer;
begin
GetMousePos(tx,ty)
findx:=tx
findy:=ty
if(FindColorSpiralTolerance(findx,findy,4221285,findx-8,findy-8,findx+8,findy+8,20))then
 for gy:=findy-8 to findy+8 do
  for gx:=findx-8 to findx+8 do
   if(SimilarColors(GetColor(gx,gy),3036237,20))or
     (SimilarColors(GetColor(gx,gy),4221285,20))or
     (SimilarColors(GetColor(gx,gy),6785163,20))then
    gasc:=gasc+1;
if(gasc>150)then result:=true;
end;

procedure CheckGas;
begin
 If(FindGas)then
 begin
  Standstill;
  wait(50+Random(200))
  MMouse(x,y,1,1)
  repeat
   wait(100+random(250))
  until(not(FindGas))
 end;
end;


procedure TalkToRand;
begin
if(findcolor(x,y,65535,0,0,515,339))then Wait(200)
if(findcolor(x,y,65535,0,0,515,339))then
 begin
  RandomCount:=RandomCount+1;
  repeat
  MMouse(x,y,50,50)
  wait(10)
  until(istextat2(9,9,'Talk',100));
   begin
   if(istextat2(9,9,'Talk',100))then
   GetMousePos(x,y);
   Mouse(x,y,0,0,false);
   wait(200+random(100));
   if(FindBitmap(TalkW,x,y))or(findbitmap(TalkY,x,y))then
    begin
     Chop(x,y);
     wait(1000+random(1000));
     end;
   end;
 end;
end;








procedure FindDamage;
begin
     if((findcolorspiral(x,y,7668995,195,140,330,232))) or ((findcolorspiral(x,y,65899,195,140,330,232)))then
      begin
      Writeln('Running From Random Event');
      Run(True);
      Wait(150+random(1000));
      Found:=True;
   end;
end;

procedure Runfromrandom;
begin
 if(Found)then
  begin
   FindColorSpiral(x,y,MiningSymbol,563,14,728,157)
   wait(10)
   Chop(x,y);
   Chop(579,89);
   wait(5000+random(2000));
   Chop(700,80);
   FindColorSpiral(x,y,MiningSymbol,563,14,728,157)
   wait(10)
   Chop(x,y);
  end;
end;


procedure FindPickHead;
begin
if(not(FindColorSpiral(x,y,PickColor,564,209,734,459)))then
begin
     if(FindColorSpiral(x,y,241,625,50,675,100))then
     begin
          Chop(x,y);
          FindColorSpiralTolerance(x,y,PickColor,0,0,515,339,15);
          MMouse(x,y,0,0);
          wait(10);
          if(istextat2(9,9,'Take',100))then
            begin
            Mouse(x,y,0,0,true);
            Wait(550);
            if(findcolorspiral(x,y,PickColor,564,209,734,459))then
            begin
            Mouse(x,y,0,0,true);
            Wait(1500+random(100));
            FindColorSpiral(x,y,PickHandle,564,209,734,459);
            wait(150);
            Mouse(x,y,0,0,true);
            Wait(150+random(150));
          end;
       end;
    end;
end;
end;

procedure FindRandoms;
begin
Login(username,password);
TalkToRand;
FindDamage;
FindPickHead;
FindBox;
Check4Randoms;
CheckGas;
RunFromRandom;
end;




procedure sendkeyssilentsmooth(text:string;pause:integer); {Created by Piv}
begin
repeat
sendkeyssilent(copy(text,1,1)); wait(pause+random(pause/2));
delete(text,1,1);
until(length(text)=0);
wait(100+random(50));
end;


procedure CloseBank;
begin
 if(findbitmapspiraltolerance(Close,x,y,396,26,500,54,50))then
 begin
  Mouse(x,y,0,0,true);
  wait(1000+random(10));
  if(not(istextat2(185,36,'The',100)))then Wait(1000);
  end;
 Proceed:=True;
end;


procedure OpenBankC;
begin
chpx:=270;
chpy:=195;
FindRandoms;
if(FindColorSpiral(x,y,BankSymbol,559,6,727,160))then
begin
Mouse(x,y,0,0,true);
wait(1000+random(10));
Flag;
Wait(2000);
 if(findcolorspiral(chpx,chpy,BankBooth,0,0,515,337))then
  begin
  MMouse(chpx,chpy,0,0)
  wait(10+random(10))
  if(IsTextAt2(9,9,'Use',100))then
   begin
   Mouse(chpx,chpy,0,0,false)
   wait(500)
    if(FindBitmap(Quickx,chpx,chpy))then
     begin
     Mouse(chpx,chpy,0,0,true)
     wait(1500+random(2000))
     if(istextat2(185,36,'The Bank',100))then wait(150+random(50));
    end;
   Proceed:=true;
  end;
 end;
end;
end;

procedure DepAll;
begin
if(BankScreen=True)then
begin
if(FindColorSpiral(x,y,PickColor,561,208,738,460))then
begin
   MMouse(x,y,0,0)
   wait(50+random(500))
   if(istextat2(9,9,'Store 1',100))then
      begin
      repeat
      Wait(100)
      Mouse(x,y,0,0,false)
      wait(500+random(100))
      FindBitmap(All,x,y)
      Wait(50)
      Mouse(x,y,0,0,true)
      wait(500)
      until(not(findcolorspiral(x,y,PickColor,561,208,738,460)));

begin
if(FindColorSpiral(x,y,Coal,561,208,738,460))then
begin
   MMouse(x,y,0,0)
   wait(50+random(50))
   if(istextat2(9,9,'Store 1',100))then
      begin
      repeat
      Mouse(x,y,0,0,false)
      wait(50+random(100))
      FindBitmap(All,x,y)
      Wait(50)
      Mouse(x,y,0,0,true)
      wait(500)
      until(not(findcolorspiral(x,y,Coal,561,208,738,460)));

if(FindColorSpiral(x,y,Ruby,561,208,738,460))or(findcolorspiral(x,y,Saphire,561,208,738,460))or
  (Findcolorspiral(x,y,Diamond,561,208,738,460))or(findcolorspiral(x,y,Emerald,561,208,738,460))then
   begin
   MMouse(x,y,0,0)
   wait(50+random(50))
   if(istextat2(9,9,'Store 1',100))then
      begin
      repeat
      Mouse(x,y,0,0,false)
      wait(50+random(100))
      FindBitmap(All,x,y)
      Wait(50)
      Mouse(x,y,0,0,true)
      wait(500)
      Until(not(FindColorSpiral(x,y,Ruby,561,208,738,460))or(findcolorspiral(x,y,Saphire,561,208,738,460))or
      (Findcolorspiral(x,y,Diamond,561,208,738,460))or(findcolorspiral(x,y,Emerald,561,208,738,460)));
    end;
  end;
end;
end;
end;
end;
end;
end;
end;

procedure Withdrawpick;
begin
   Mouse(476,83,1,1,true);
   Wait(150+random(500));
    begin
    Mouse(94,73,0,0,true)
    Wait(1500+random(150))
    begin
    repeat
    wait(500)
    until(FindcolorSpiral(x,y,PickColor,563,210,733,457));
   end;
  end;
 end;





procedure WalkToGuild;
begin
if(Proceed)then
begin
Findrandoms;
 if(FindColorSpiral(x,y,BankSymbol,559,6,727,160))then
 begin
 Mouse(x,y,0,0,true)
 wait(10+random(10))
 Flag;
 Wait(1000)
   Mouse(705,107,0,0,true)     //start walking
   wait(10)
   Flag;
   wait(1000+random(50))
   if(FindColorSpiral(chpx,chpy,Statue,559,6,727,160))then
    begin
    Mouse(chpx,chpy,0,0,true);
    wait(10)
    Flag;
    Wait(1000+random(50))
     if(findcolorspiral(chpx,chpy,LadderD,0,0,515,337))then
      begin
      c:=c+1;
      repeat
      MMouse(chpx,chpy,0,0)
      wait(150)
      until(istextat2(9,9,'Climb',100))or (c>10);
       begin
       Mouse(chpx,chpy,1,1,true)
       wait(10)
       Flag;
       Wait(3000+random(1000))
       Chop(707,91)
       wait(150+random(10))
       FindColorSpiral(x,y,MiningSymbol,565,11,730,156)
       Chop(x,y)
       Wait(1000)
       Run(true);
       Mouse(650,184,1,1,true);
      end;
     end
   Proceed:=true;
 end;
end;
end;
end;



procedure MineRock;
begin
if(proceed)then
begin
chpx:=270;
chpy:=195;
FindRandoms;
repeat
FindRandoms;
 if(Findcolorspiral(x,y,Coal,0,0,515,339))then
  MMouse(x,y,1,1)
  wait(10)
   If(IsTextAt2(9,9,'Mine Rocks',100))and (FindColorSpiral(x,y,Coal,0,0,515,339))then
      Mouse(x,y,0,0,true)
      wait(RockWait+random(1000))
      wait(RockWait+random(100))
      until(FindCOlorSpiralTolerance(x,y,Coal,695,430,726,458,15));
     end;
 Mouse(648,183,10,10,true)
 if(FindColorSpiralTolerance(x,y,Coal,695,430,726,458,15))then
  begin
    wait(500+random(250))
    ToBank;
  end else
  MineRock;
end;







procedure Loadbmps;
begin
TalkW := 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');
All := BitmapFromString(19, 12,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D54475D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
       '5D54475D54475D54475D54475D5447FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF000000000000' +
       '5D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFF000000' +
       '5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF0000005D54475D54475D5447FFFFFF' +
       'FFFFFF000000000000000000FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D54475D5447' +
       'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D5447' +
       '5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447' +
       '5D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
       '5D54475D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D54475D54475D54475D54470000000000005D54475D5447' +
       '5D54470000000000005D54475D54470000000000005D54475D5447' +
       '0000000000005D5447');
AllY := BitmapFromString(19, 12,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D54475D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
       '5D54475D54475D54475D54475D5447FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF000000000000' +
       '5D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFF000000' +
       '5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF0000005D54475D54475D5447FFFFFF' +
       'FFFFFF000000000000000000FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D54475D5447' +
       'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D5447' +
       '5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447' +
       '5D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
       '5D54475D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D54475D54475D54475D54470000000000005D54475D5447' +
       '5D54470000000000005D54475D54470000000000005D54475D5447' +
       '0000000000005D5447');
Quickx := BitmapFromString(24, 10,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D5447' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D5447FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D5447000000000000000000' +
       '0000000000000000005D5447FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '0000005D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447FFFFFF' +
       'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
       'FFFFFF0000005D54475D54475D5447000000000000000000000000' +
       '0000005D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447000000FFFFFFFFFFFF0000005D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFFFFFFFFFF0000005D5447');
Close := BitmapFromString(20, 11,
       '483E33483E33483E33483E33483E33483E33463D32483E33483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33463D32' +
       '483E33483E33483E33808080483E33483E33483E33483E33483E33' +
       '808080483E33483E33483E33483E33483E33483E33483E33483E33' +
       '483E33463D32483E33483E33483E33808080000000483E33483E33' +
       '483E33483E33808080000000483E33483E33483E33483E33483E33' +
       '483E33483E33483E33463D32483E33483E33483E33808080000000' +
       '483E33483E33483E33483E33808080000000483E33808080483E33' +
       '483E33808080808080483E33483E33463D32483E33483E33483E33' +
       '808080000000483E33483E33483E33483E33808080000000483E33' +
       '483E33483E33808080483E33000000808080483E33463D32483E33' +
       '483E33483E33808080000000483E33808080483E33483E33808080' +
       '000000483E33808080494034808080808080808080483E33000000' +
       '483E33483E33483E33483E33808080000000483E33808080000000' +
       '483E33808080000000483E33808080494034808080000000000000' +
       '000000494034483E33483E33483E33483E33483E33808080483E33' +
       '808080000000808080483E33000000483E33808080494034494034' +
       '808080808080808080494034483E33483E33483E33483E33483E33' +
       '483E33808080808080808080483E33000000483E33483E33808080' +
       '494034494034494034000000000000000000483E33483E33483E33' +
       '483E33483E33483E33483E33000000000000000000483E33483E33' +
       '483E33483E33494034494034494034494034494034494034483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33483E33' +
       '483E33483E33483E33483E33');
GotCoal := BitmapFromString(44, 4,
       'BBAE92000000BAAB8ABAAB8A000000BAAB8AB9A581000000B9A581' +
       'BAAB8A000000B9A581B9A581B9A581000000B9A581B9A581000000' +
       '000000B9A581B9A581000000B9A581B9A581000000BAAB8AB9A581' +
       'B9A581000000BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A000000' +
       'BBAE92BAAB8A000000BBAE92BAAB8ABAAB8A000000BAAB8ABBAE92' +
       '000000BAAB8ABAAB8A000000BAAB8AB9A581000000B9A581B9A581' +
       'B9A581000000000000000000000000B9A581B9A581000000B9A581' +
       'B9A581B9A581000000B9A581B9A581BAAB8A000000000000000000' +
       '000000BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
       'BAAB8A000000BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8A000000' +
       'BAAB8ABAAB8A000000B9A581B9A581000000B9A581B9A581000000' +
       'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8AB9A581' +
       'B9A581000000B9A581B9A581000000BAAB8ABAAB8ABAAB8A000000' +
       'BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8A' +
       '000000000000000000000000BAAB8ABBAE92BAAB8A000000B9A581' +
       'B9A581000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8A' +
       'BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8ABAAB8AB9A581' +
       '000000B9A581B9A581000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
       'BAAB8A000000BAAB8ABAAB8ABAAB8A000000BBAE92BBAE92000000' +
       'BBAE92BBAE92BBAE92BBAE92BAAB8A');
end;

procedure DoBanking;
begin
     begin
     FindRandoms;
     OpenBankC;
     DepAll;
     Withdrawpick;
     CloseBank;
     Mined:=Mined+27;
     Findrandoms;
     end;
     Proceed:=true;
end;

procedure GuildMiner;
begin
      Run(true);
      Mouse(650,185,1,1,true);
      DoBanking;
      WalkToGuild;
      MineRock;
      PrintProgressReport;
end;

begin
LoadLibrary('Chops GuildMiner v1.3')
sst:=GetSystemTime;
Writeln('(--------------------------------)');
Writeln('      Chops GuildMiner v1.3          ');
Writeln('(--------------------------------)');
Loadbmps;
Login(username,password);
RandomCount:=0;
Mined:=0;
SetCat('Off');
PickColor:=GetColor(593,221);
PickHandle:=GetColor(580,230);
repeat
GuildMiner;
until(false);
end.