program OpesCoalPowerMiner;
Const
username = '';
password = '';

var
x,y,a,b,trips: Integer;
ST:LongInt;
loginbutton, welcomebox, loginscr, //Bumis' Pics
coal, coalore, invcoal, minerock, minerockyellow, //Mining Pics
uncutsapphire, uncutemerald, uncutruby, uncutdiamond: Integer; //Gem Pics

procedure LoginIfNeeded;
begin
repeat
  if(GetColor(321,255)=65535)and(GetColor(254,100)=10547953)and(GetColor(467,119)=1842201)then
  begin
    wait(500)
    clickmouse(459,319,true)
    wait(500)
  if(Getcolor(201,26)=15655906)and(GetColor(279,37)=14404297)and(GetColor(284,114)=4323063)then
    begin
      Clickmouse(400,349,true)
      Wait(500)
      ClickMouse(380,261,true)
      SendKeysSilent(Username)
      Wait(500)
      ClickMouse(383,274,true)
      Wait(500)
      SendKeysSilent(Password)
      Wait(500)
      ClickMouse(299,331,true)
      Wait(5000)
      MoveMouse(450,99);
      Wait(500);
      ClickMouse(450,99,true)
    end;
  end;
until(not (GetColor(404,328)=723723))
end;

Procedure Mouse(Mx,My,Time : Integer;Button,Click : Boolean);
Begin
  If Click then
    Begin
      ClickMouse(Mx,My,Button);
      wait(Time);
    end else
    Begin
      MoveMouse(Mx,My);
      wait(Time);
    end;
end;

Procedure PrintProgressReport;
var
 RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
 Time:String;
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
  writeln(' ');
  writeln('Progress Report:');
  writeln('Worked for '+Time);
  writeln('Mined and Dropped ('+inttostr(trips)+' Time[s]) '+inttostr(trips*28)
  +' Coal Ores');
  writeln('Gained '+inttostr(trips*1400)+' Mining Experience');
  writeln('Currently Averaging '+inttostr(3600/avtime*28)+' Coal Mined and '
  +inttostr(3600/avtime*1400)+' Experience an Hour');
  end;
End;

procedure DoMining;
begin
  repeat
    x:= 274;
    y:= 180;
    MoveMouse(20,20);
    Wait(100);
    if(FindColorSpiral(x,y,2768960,x-250,y-160,x+250,y+160))then
    begin
      MoveMouse(x, y);
      Wait(100);
        ClickMouse(x, y, false);
        wait(300);
        if(FindBitmapIn(minerock,a,b,30,40,500,300))or(FindBitmapIn(minerockyellow,a,b,30,40,500,300))then
        begin
          ClickMouse(a, b, true);
          Wait(3050 + Random(200));
        end;
    end;
  until(FindBitmapIn(coalore,x,y,703,454,750,489))or(FindBitmapIn(uncutsapphire,x,y,703,454,750,489))or(FindBitmapIn(uncutemerald,x,y,703,454,750,489))or(FindBitmapIn(uncutruby,x,y,703,454,750,489))or(FindBitmapIn(uncutdiamond,x,y,703,454,750,489));
end;

procedure DropOres;
begin
//Ore 28\\
   wait(100);
   movemouse(723,472);
   wait(100);
   clickmouse(723,472, false);
   wait(100);
   movemouse(723,455);
   Wait(100);
   clickmouse(723,455, true);
   Wait(100);
//Ore 27\\
   wait(100);
   movemouse(683,472);
   wait(100);
   clickmouse(683,472, false);
   wait(100);
   movemouse(683,455);
   Wait(100);
   clickmouse(683,455, true);
   Wait(100);
//Ore 26\\
   wait(100);
   movemouse(642,472);
   wait(100);
   clickmouse(642,472, false);
   wait(100);
   movemouse(642,455);
   Wait(100);
   clickmouse(642,455, true);
   Wait(100);
//Ore 25\\
   wait(100);
   movemouse(600,472);
   wait(100);
   clickmouse(600,472, false);
   wait(100);
   movemouse(600,455);
   Wait(100);
   clickmouse(600,455, true);
   Wait(100);
//Ore 24\\
   wait(100);
   movemouse(723,437);
   wait(100);
   clickmouse(723,437, false);
   wait(100);
   movemouse(723,457);
   Wait(100);
   clickmouse(723,457, true);
   Wait(100);
//Ore 23\\
   wait(100);
   movemouse(683,437);
   wait(100);
   clickmouse(683,437, false);
   wait(100);
   movemouse(683,480);
   Wait(100);
   clickmouse(683,457, true);
   Wait(100);
//Ore 22\\
   wait(100);
   movemouse(642,437);
   wait(100);
   clickmouse(642,437, false);
   wait(100);
   movemouse(642,457);
   Wait(100);
   clickmouse(642,457, true);
   Wait(100);
//Ore 21\\
   wait(100);
   movemouse(600,437);
   wait(100);
   clickmouse(600,437, false);
   wait(100);
   movemouse(600,457);
   Wait(100);
   clickmouse(600,457, true);
   Wait(100);
//Ore 20\\
   wait(100);
   movemouse(723,400);
   wait(100);
   clickmouse(723,400, false);
   wait(100);
   movemouse(723,443);
   Wait(100);
   clickmouse(723,443, true);
   Wait(100);
//Ore 19\\
   wait(100);
   movemouse(683,400);
   wait(100);
   clickmouse(683,400, false);
   wait(100);
   movemouse(683,443);
   Wait(100);
   clickmouse(683,443, true);
   Wait(100);
//Ore 18\\
   wait(100);
   movemouse(642,400);
   wait(100);
   clickmouse(642,400, false);
   wait(100);
   movemouse(642,443);
   Wait(100);
   clickmouse(642,443, true);
   Wait(100);
//Ore 17\\
   wait(100);
   movemouse(600,400);
   wait(100);
   clickmouse(600,400, false);
   wait(100);
   movemouse(600,443);
   Wait(100);
   clickmouse(600,443, true);
   Wait(100);
//Ore 16\\
   wait(100);
   movemouse(723,364);
   wait(100);
   clickmouse(723,364, false);
   wait(100);
   movemouse(723,407);
   Wait(100);
   clickmouse(723,407, true);
   Wait(100);
//Ore 15\\
   wait(100);
   movemouse(683,364);
   wait(100);
   clickmouse(683,364, false);
   wait(100);
   movemouse(683,407);
   Wait(100);
   clickmouse(683,407, true);
   Wait(100);
//Ore 14\\
   wait(100);
   movemouse(642,364);
   wait(100);
   clickmouse(642,364, false);
   wait(100);
   movemouse(642,407);
   Wait(100);
   clickmouse(642,407, true);
   Wait(100);
//Ore 13\\
   wait(100);
   movemouse(600,364);
   wait(100);
   clickmouse(600,364, false);
   wait(100);
   movemouse(600,407);
   Wait(100);
   clickmouse(600,407, true);
   Wait(100);
//Ore 12\\
   wait(100);
   movemouse(723,328);
   wait(100);
   clickmouse(723,328, false);
   wait(100);
   movemouse(723,371);
   Wait(100);
   clickmouse(723,371, true);
   Wait(100);
//Ore 11\\
   wait(100);
   movemouse(683,328);
   wait(100);
   clickmouse(683,328, false);
   wait(100);
   movemouse(683,371);
   Wait(100);
   clickmouse(683,371, true);
   Wait(100);
//Ore 10\\
   wait(100);
   movemouse(642,328);
   wait(100);
   clickmouse(642,328, false);
   wait(100);
   movemouse(642,371);
   Wait(100);
   clickmouse(642,371, true);
   Wait(100);
//Ore 09\\
   wait(100);
   movemouse(600,328);
   wait(100);
   clickmouse(600,328, false);
   wait(100);
   movemouse(600,371);
   Wait(100);
   clickmouse(600,371, true);
   Wait(100);
//Ore 08\\
   wait(100);
   movemouse(723,294);
   wait(100);
   clickmouse(723,294, false);
   wait(100);
   movemouse(723,337);
   Wait(100);
   clickmouse(723,337, true);
   Wait(100);
//Ore 07\\
   wait(100);
   movemouse(683,294);
   wait(100);
   clickmouse(683,294, false);
   wait(100);
   movemouse(683,337);
   Wait(100);
   clickmouse(683,337, true);
   Wait(100);
//Ore 06\\
   wait(100);
   movemouse(642,294);
   wait(100);
   clickmouse(642,294, false);
   wait(100);
   movemouse(642,337);
   Wait(100);
   clickmouse(642,337, true);
   Wait(100);
//Ore 05\\
   wait(100);
   movemouse(600,294);
   wait(100);
   clickmouse(600,294, false);
   wait(100);
   movemouse(600,337);
   Wait(100);
   clickmouse(600,337, true);
   Wait(100);
//Ore 04\\
   wait(100);
   movemouse(723,255);
   wait(100);
   clickmouse(723,255, false);
   wait(100);
   movemouse(723,298);
   Wait(100);
   clickmouse(723,298, true);
   Wait(100);
//Ore 03\\
   wait(100);
   movemouse(683,255);
   wait(100);
   clickmouse(683,255, false);
   wait(100);
   movemouse(683,298);
   Wait(100);
   clickmouse(683,298, true);
   Wait(100);
//Ore 02\\
   wait(100);
   movemouse(642,255);
   wait(100);
   clickmouse(642,255, false);
   wait(100);
   movemouse(642,298);
   Wait(100);
   clickmouse(642,298, true);
   Wait(100);
//Ore 01\\
   wait(100);
   movemouse(600,255);
   wait(100);
   clickmouse(600,255, false);
   wait(100);
   movemouse(600,298);
   Wait(100);
   clickmouse(600,298, true);
   Wait(100);
end;

procedure StartingWhere;
var invfully: Boolean;
begin
 invfully:= false;
 Wait(100);
 MoveMouse(655,210);
 Wait(20);
 ClickMouse(655,210,true);
 MoveMouse(720,470);
 wait(300);
 if(FindBitmapSpiral(invcoal,x,y,0,0,200,80))then invfully:= true;
 Wait(100);
 if(FindBitmapIn(coal,x,y,699,457,739,479))and(not invfully)then
 begin
   invfully:= true;
   Writeln('Beginning Mining');
   DoMining;
 end;
 if(FindBitmapIn(invcoal,x,y,550,5,750,177))and(invfully)then
 begin
   Writeln('Dropping Ores');
   DropOres;
 end;
end;

begin
  minerock := BitmapFromString(56, 2,
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
       '00000000FFFF00FFFF00FFFF00FFFF000000000000000000000000' +
       '00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
       '00FFFF00000000000000000000000000000000FFFF00FFFF00FFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
       '00000000000000000000FFFF00FFFF00000000FFFF00FFFF000000' +
       '00000000000000FFFF00FFFF00000000000000FFFF00FFFF000000' +
       '00000000FFFF00FFFF00000000000000000000000000000000FFFF' +
       '00FFFF00FFFF00FFFF000000');
  minerockyellow := BitmapFromString(56, 3,
       'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000302020' +
       '302020000000000000302020FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '302020302020302020302020FFFF00FFFF00FFFF00FFFF00302020' +
       '30202030202030202030202030202030202000FFFF00FFFF000000' +
       '00FFFF00FFFF00000000000030202030202000FFFF00FFFF00FFFF' +
       '00FFFF30202030202030202030202000FFFF00FFFF00FFFF00FFFF' +
       '000000302020FFFF00000000000000000000302020FFFF00FFFF00' +
       '000000302020FFFF00FFFF00302020302020FFFF00FFFF00FFFF00' +
       '000000FFFF00FFFF00302020302020FFFF00FFFF00000000000000' +
       'FFFF00FFFF0030202030202030202030202030202030202000FFFF' +
       '00FFFF00FFFF00FFFF00000030202030202030202000FFFF00FFFF' +
       '00000000000000FFFF00FFFF30202030202000FFFF00FFFF000000' +
       '000000000000302020302020FFFF00000000302020302020302020' +
       'FFFF00FFFF00000000302020FFFF00FFFF00000000302020FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000302020FFFF00FFFF00' +
       '000000302020FFFF00FFFF00000000302020302020302020302020' +
       '30202000FFFF00FFFF00FFFF00FFFF000000302020302020302020' +
       '00FFFF00FFFF00000030202000FFFF00FFFF00000030202000FFFF' +
       '00FFFF000000302020302020302020302020');
  welcomebox := BitmapFromString(125, 4,
       '000000FFFF00483E33000000483E33483E33FFFF00000000483E33' +
       '483E33483E33FFFF00000000483E33483E33483E33483E33483E33' +
       '483E33483E33483E33483E33FFFF00000000494034494034494034' +
       '494034494034494034494034494034494034494034494034494034' +
       '494034494034494034494034494034494034494034483E33483E33' +
       '483E33463D32463D32463D32463D32463D32463D32483E33483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33483E33' +
       '483E33483E33483E33483E33494034494034494034494034494034' +
       '494034494034494034494034494034494034494034494034494034' +
       '494034494034494034FFFF00494034000000494034FFFF00000000' +
       '483E33483E33483E33FFFF00000000483E33483E33483E33483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33483E33' +
       '483E33483E33483E33494034494034494034494034494034494034' +
       '494034494034494034494034494034FFFF00000000494034494034' +
       'FFFF00000000483E33483E33FFFF00483E33000000483E33483E33' +
       '483E33483E33FFFF00483E33463D32463D32463D32463D32463D32' +
       '483E33483E33483E33FFFF00000000494034494034494034494034' +
       '494034494034494034494034494034494034494034494034494034' +
       '494034494034494034494034494034483E33483E33483E33483E33' +
       '463D32463D32463D32463D32463D32463D32483E33483E33483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33483E33' +
       '483E33483E33FFFF00494034494034494034494034494034494034' +
       '494034494034494034494034494034494034494034494034494034' +
       '494034494034FFFF00000000494034494034FFFF00000000494034' +
       '483E33FFFF00483E33000000483E33483E33483E33483E33483E33' +
       '483E33483E33463D32463D32463D32463D32463D32483E33483E33' +
       '483E33483E33494034494034494034494034494034494034494034' +
       '494034494034494034494034FFFF00000000494034FFFF00494034' +
       '000000494034494034FFFF00000000483E33483E33483E33483E33' +
       '483E33FFFF00000000463D32463D32FFFF00FFFF00FFFF00483E33' +
       '483E33483E33FFFF00000000494034494034FFFF00FFFF00FFFF00' +
       'FFFF00494034494034494034FFFF00FFFF00FFFF00494034494034' +
       '494034FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '463D32463D32463D32463D32463D32FFFF00FFFF00FFFF00483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33FFFF00' +
       'FFFF00FFFF00FFFF00FFFF00494034494034FFFF00FFFF00FFFF00' +
       '494034494034494034494034494034494034494034494034494034' +
       '494034FFFF00FFFF00FFFF00494034FFFF00000000494034FFFF00' +
       '494034000000483E33483E33FFFF00FFFF00483E33483E33FFFF00' +
       'FFFF00463D32463D32463D32FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '483E33494034494034494034494034FFFF00FFFF00FFFF00494034' +
       '494034494034494034494034FFFF00FFFF00FFFF00000000494034' +
       '494034494034FFFF00000000483E33483E33483E33483E33FFFF00' +
       '483E33000000463D32FFFF00463D32000000000000FFFF00483E33' +
       '483E33FFFF00000000494034FFFF00494034000000FFFF00000000' +
       '000000494034FFFF00494034000000000000FFFF00483E33483E33' +
       '483E33FFFF00000000000000000000FFFF00000000000000FFFF00' +
       '463D32463D32463D32FFFF00483E33000000000000FFFF00483E33' +
       '483E33483E33483E33483E33483E33483E33483E33483E33FFFF00' +
       '000000000000000000000000FFFF00494034000000000000FFFF00' +
       '494034494034494034494034494034494034494034494034494034' +
       '494034000000000000000000FFFF00000000FFFF00494034000000' +
       '494034494034483E33483E33FFFF00000000483E33483E33FFFF00' +
       '000000463D32463D32463D32FFFF00000000000000000000FFFF00' +
       '494034494034494034FFFF00494034000000000000FFFF00494034' +
       '494034494034494034494034000000');
  loginbutton := BitmapFromString(137, 12,
       '52545E52545E52545E4C4E5952545E52545E52545E52545E4C4E59' +
       '4C4E59484A53484A53484A53484A5341434D41434D3D3F493D3F49' +
       '41434D4C4E595A5C6661636E5A5C6652545E52545E52545E4C4E59' +
       '4C4E59484A53484A53484A53484A534C4E594C4E594C4E594C4E59' +
       '4C4E594C4E594C4E594C4E594C4E594C4E59484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A5341434D41434D41434D41434D' +
       '41434D41434D41434D41434D41434D41434D41434D41434D3D3F49' +
       '41434D41434D41434D41434D41434D41434D41434D41434D41434D' +
       '41434D41434D41434D41434D41434D3D3F493A3B4336383F32333B' +
       '32333B32333B32333B36383F32333B32333B32333B32333B36383F' +
       '36383F3A3B433A3B433A3B433A3B4332333B32333B32333B32333B' +
       '32333B32333B36383F32333B36383F36383F32333B32333B36383F' +
       '36383F3A3B433A3B433A3B433A3B433A3B433A3B433A3B433A3B43' +
       '3A3B433A3B433A3B433A3B4336383F36383F36383F32333B32333B' +
       '32333B36383F4C4E594C4E594C4E594C4E594C4E594C4E5952545E' +
       '52545E52545E4C4E594C4E59484A53484A53484A53484A5341434D' +
       '41434D41434D484A5352545E61636E61636E52545E52545E52545E' +
       '4C4E59484A534C4E59484A534C4E59484A534C4E5952545E52545E' +
       '52545E52545E4C4E59484A534C4E5952545E4C4E59484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A5341434D484A5341434D' +
       '41434D41434D41434D41434D41434D41434D41434D41434D41434D' +
       '3D3F4941434D41434D41434D41434D41434D41434D41434D41434D' +
       '41434D41434D41434D41434D41434D3D3F493D3F493D3F493A3B43' +
       '3A3B4336383F36383F32333B32333B32333B32333B32333B32333B' +
       '32333B32333B32333B36383F3A3B433A3B433A3B4336383FFFFF00' +
       'FFFF00FFFF00FFFF0032333B32333B32333B32333B32333B32333B' +
       '32333B36383F36383F36383F3A3B433A3B433A3B4336383F36383F' +
       '32333B36383F32333B36383F36383F36383F36383F32333B32333B' +
       '32333B32333B32333B32333B4C4E594C4E594C4E59484A534C4E59' +
       '4C4E594C4E5952545E52545E52545E4C4E594C4E594C4E594C4E59' +
       '484A53484A5341434D41434D4C4E5952545E5A5C6652545E52545E' +
       '4C4E594C4E594C4E594C4E594C4E594C4E594C4E5952545E52545E' +
       '52545E5A5C6652545E52545E52545E4C4E59484A534C4E594C4E59' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '41434D484A53484A53484A53484A53484A53484A5341434D484A53' +
       '41434D41434D41434D41434D41434D41434D41434D41434D41434D' +
       '41434D3D3F493D3F493D3F493D3F493D3F4941434D41434D41434D' +
       '41434D41434D41434D3D3F493D3F493D3F4941434D3D3F493D3F49' +
       '3D3F493A3B433A3B433A3B433A3B4336383F32333B32333B32333B' +
       '32333B32333B32333B32333B32333B32333B32333B36383F36383F' +
       'FFFF00FFFF00000000000000FFFF00FFFF0032333B32333B32333B' +
       '32333B32333B32333B32333B32333B32333B32333B32333B32333B' +
       '32333B32333B32333B32333B32333B32333B32333B32333B32333B' +
       '32333B32333B32333B32333B32333B32333B52545E4C4E594C4E59' +
       '4C4E594C4E594C4E594C4E5952545E52545E52545E52545E52545E' +
       '4C4E59484A5341434D41434D41434D41434D4C4E5952545E52545E' +
       '52545E4C4E594C4E594C4E594C4E594C4E594C4E594C4E5952545E' +
       '52545E52545E52545E52545E52545E52545E52545E52545E52545E' +
       '4C4E5952545E4C4E59484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A5341434D' +
       '484A5341434D41434D41434D41434D41434D41434D41434D41434D' +
       '41434D41434D41434D41434D3A3B433A3B433A3B433A3B433A3B43' +
       '3D3F493D3F493D3F493D3F493D3F493D3F493D3F4941434D3D3F49' +
       '41434D3D3F493D3F493D3F493A3B433A3B433A3B4336383F32333B' +
       '32333B32333B32333B32333B32333B32333B32333B32333B32333B' +
       '32333B32333BFFFF00FFFF000000003A3B43FFFF00FFFF00000000' +
       '36383F32333B32333B32333B36383F32333B32333B32333B32333B' +
       '32333B32333B32333B32333B32333B36383F36383F32333B32333B' +
       '32333B32333B32333B32333B32333B32333B36383F32333B52545E' +
       '4C4E594C4E594C4E594C4E594C4E594C4E594C4E5952545E52545E' +
       '52545E4C4E59484A5341434D3D3F493A3B433D3F4941434D4C4E59' +
       '52545E52545E52545E52545E52545E52545E52545E4C4E5952545E' +
       '52545E52545E52545E52545E52545E52545E52545E52545E52545E' +
       '52545E4C4E594C4E594C4E594C4E594C4E594C4E59484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A5341434D41434D' +
       '41434D41434D41434D41434D41434D41434D41434D41434D41434D' +
       '41434D3D3F4941434D41434D41434D3D3F493A3B433A3B4336383F' +
       '3A3B433A3B433A3B433A3B433A3B433A3B433A3B433A3B433D3F49' +
       '41434D3D3F493D3F493D3F493D3F493D3F493D3F493A3B433A3B43' +
       '3A3B4336383F32333B32333B32333B32333B32333B32333B32333B' +
       '32333B32333B32333B32333B36383FFFFF00FFFF003A3B43FFFF00' +
       'FFFF0000000036383F36383F36383F3A3B433A3B4336383F36383F' +
       '32333B32333B32333B32333B32333B32333B36383F3A3B433A3B43' +
       '3A3B433A3B4336383F32333B32333B32333B32333B32333B36383F' +
       '32333B52545EFFFF00FFFF004C4E594C4E59FFFF00FFFF004C4E59' +
       '4C4E59484A53FFFF00FFFF00FFFF00FFFF003A3B433D3F493D3F49' +
       'FFFF00FFFF005A5C6652545EFFFF00FFFF0052545E52545EFFFF00' +
       'FFFF00FFFF00FFFF0052545E52545E52545E52545E52545E52545E' +
       'FFFF00FFFF00484A53484A53FFFF00FFFF00484A534C4E594C4E59' +
       'FFFF00FFFF00FFFF00FFFF00FFFF00484A53484A53484A53FFFF00' +
       'FFFF00FFFF00FFFF0041434D41434D41434DFFFF00FFFF00FFFF00' +
       'FFFF0041434D41434DFFFF00FFFF00FFFF00FFFF00FFFF0036383F' +
       '36383F36383F3A3B43FFFF00FFFF00FFFF00FFFF0032333B32333B' +
       '36383F3A3B43FFFF00FFFF00FFFF00FFFF00FFFF00FFFF003D3F49' +
       '3D3F493D3F493D3F49FFFF00FFFF00FFFF00FFFF0036383F32333B' +
       '32333B2C2D342C2D3432333B32333B32333B36383FFFFF00FFFF00' +
       'FFFF00FFFF0000000000000036383F36383F3A3B433A3B433A3B43' +
       '3A3B4336383F32333B32333BFFFF00FFFF00FFFF00FFFF003A3B43' +
       '3A3B433A3B433D3F49FFFF00FFFF00FFFF00FFFF0032333B32333B' +
       '32333B36383FFFFF0052545EFFFF00FFFF000000004C4E59FFFF00' +
       'FFFF00000000484A53FFFF00FFFF00000000000000FFFF00FFFF00' +
       '484A534C4E59FFFF00FFFF0000000052545EFFFF00FFFF00000000' +
       '52545EFFFF00FFFF00FFFF0000000000000052545E52545E52545E' +
       '52545E52545EFFFF00FFFF00000000484A53FFFF00FFFF00000000' +
       '484A53FFFF00FFFF00000000000000000000000000000000484A53' +
       'FFFF00FFFF00000000000000FFFF00FFFF0041434D41434DFFFF00' +
       'FFFF00FFFF000000000000003D3F49FFFF00FFFF00FFFF00000000' +
       'FFFF00FFFF0036383F3A3B43FFFF00FFFF00000000000000FFFF00' +
       'FFFF0032333B32333BFFFF00FFFF00000000FFFF00FFFF00000000' +
       'FFFF00FFFF003A3B433A3B43FFFF00FFFF00000000000000FFFF00' +
       'FFFF0032333B32333B2C2D3432333B32333B32333B32333BFFFF00' +
       'FFFF00000000000000FFFF00FFFF0036383FFFFF00FFFF003A3B43' +
       '3A3B4336383F36383F32333B32333BFFFF00FFFF00000000000000' +
       'FFFF00FFFF003D3F493A3B43FFFF00FFFF00000000000000FFFF00' +
       'FFFF0032333B36383FFFFF00FFFF0052545EFFFF00FFFF00000000' +
       '484A53FFFF00FFFF0000000041434DFFFF00FFFF0000000041434D' +
       'FFFF00FFFF000000005A5C66FFFF00FFFF0000000052545EFFFF00' +
       'FFFF0000000052545EFFFF00FFFF0000000000000052545E52545E' +
       '52545E52545E52545E52545EFFFF00FFFF000000004C4E59FFFF00' +
       'FFFF00000000484A534C4E59FFFF00FFFF00FFFF00FFFF004C4E59' +
       '484A53484A53FFFF00FFFF00000000484A53FFFF00FFFF00000000' +
       '41434DFFFF00FFFF000000000000003A3B433A3B43FFFF00FFFF00' +
       '000000000000FFFF00FFFF000000003D3F493A3B43FFFF00FFFF00' +
       'FFFF00FFFF00FFFF0000000036383FFFFF00FFFF00000000FFFF00' +
       'FFFF00000000FFFF00FFFF0000000036383FFFFF00FFFF00000000' +
       '3D3F49FFFF00FFFF0000000032333B32333B32333B32333B32333B' +
       'FFFF00FFFF0000000000000032333B32333BFFFF00FFFF00FFFF00' +
       '0000000000003A3B4336383F32333B32333B32333BFFFF00FFFF00' +
       '0000003D3F49FFFF00FFFF000000003A3B433A3B43FFFF00FFFF00' +
       'FFFF00FFFF00FFFF000000003A3B433A3B43FFFF004C4E59FFFF00' +
       'FFFF0000000041434DFFFF00FFFF0000000041434DFFFF00FFFF00' +
       '00000052545EFFFF00FFFF0000000061636EFFFF00FFFF00000000' +
       '52545EFFFF00FFFF0000000052545EFFFF00FFFF0000000052545E' +
       '52545E52545E52545E52545E52545E4C4E59FFFF00FFFF00000000' +
       '484A53FFFF00FFFF000000004C4E59484A534C4E59000000000000' +
       'FFFF00FFFF00484A53484A53FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '00000000000041434DFFFF00FFFF000000003D3F493A3B4336383F' +
       'FFFF00FFFF000000003D3F49FFFF00FFFF000000003D3F49FFFF00' +
       'FFFF00000000000000FFFF00FFFF0000000036383FFFFF00FFFF00' +
       '000000FFFF00FFFF00000000FFFF00FFFF000000003A3B43FFFF00' +
       'FFFF00FFFF00FFFF00FFFF0000000000000032333B32333B32333B' +
       '32333B32333BFFFF00FFFF0000000032333B32333B36383FFFFF00' +
       'FFFF00FFFF0000000036383F36383F36383F32333B32333B32333B' +
       'FFFF00FFFF000000003D3F49FFFF00FFFF000000003D3F49FFFF00' +
       'FFFF00000000000000FFFF00FFFF000000003A3B433A3B433A3B43' +
       '4C4E59484A53FFFF00FFFF00FFFF00FFFF00FFFF0000000041434D' +
       'FFFF00FFFF0000000061636EFFFF00FFFF0000000052545EFFFF00' +
       'FFFF0000000052545EFFFF00FFFF0000000052545EFFFF00FFFF00' +
       '000000484A5352545E52545E52545E52545E52545E4C4E59FFFF00' +
       'FFFF000000004C4E59FFFF00FFFF000000004C4E59484A534C4E59' +
       '484A534C4E59FFFF00FFFF00000000484A53FFFF00FFFF00000000' +
       '000000000000000000484A5341434DFFFF00FFFF000000003D3F49' +
       '3A3B4336383FFFFF00FFFF0000000041434DFFFF00FFFF00000000' +
       '3A3B43FFFF00FFFF000000003A3B43FFFF00FFFF000000003A3B43' +
       'FFFF00FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       '32333BFFFF00FFFF000000000000000000000000003A3B433A3B43' +
       '36383F36383F36383F32333B36383FFFFF00FFFF003A3B4336383F' +
       'FFFF00FFFF00000000FFFF00FFFF0036383F32333B36383F32333B' +
       '32333B32333BFFFF00FFFF000000003A3B43FFFF00FFFF00000000' +
       '3A3B43FFFF00FFFF000000003A3B43FFFF00FFFF000000003A3B43' +
       '3A3B433A3B434C4E594C4E59484A53000000000000FFFF00FFFF00' +
       '000000484A5352545EFFFF00FFFF00FFFF00FFFF00000000000000' +
       '52545E52545EFFFF00FFFF00FFFF00FFFF0000000000000052545E' +
       'FFFF00FFFF000000004C4E5952545E52545E52545E52545E52545E' +
       '52545E4C4E59FFFF00FFFF00FFFF00FFFF00000000000000484A53' +
       'FFFF00FFFF00FFFF00FFFF00FFFF00000000000000484A53484A53' +
       'FFFF00FFFF00FFFF00FFFF00FFFF0041434D41434DFFFF00FFFF00' +
       '0000003A3B4336383F32333BFFFF00FFFF0000000041434DFFFF00' +
       'FFFF000000003A3B4336383FFFFF00FFFF00FFFF00FFFF00FFFF00' +
       '0000003D3F49FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
       'FFFF0000000032333B32333BFFFF00FFFF00FFFF00FFFF00FFFF00' +
       '36383F36383F3D3F493D3F493D3F493D3F493D3F493D3F49FFFF00' +
       'FFFF00FFFF00FFFF0000000000000032333BFFFF00FFFF0036383F' +
       '36383F32333B32333B32333BFFFF00FFFF00FFFF00FFFF00FFFF00' +
       '0000000000003D3F493D3F49FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '0000003A3B43FFFF00FFFF004C4E59484A5341434D41434D3D3F49' +
       'FFFF00FFFF000000005A5C6674767F74767F000000000000000000' +
       '00000052545E52545E52545E52545E000000000000000000000000' +
       '52545E52545E52545E0000000000004C4E5952545E52545E52545E' +
       '52545E52545E52545E4C4E594C4E59000000000000000000000000' +
       '484A53484A53484A53000000000000000000000000000000484A53' +
       '484A53484A53484A5300000000000000000000000000000041434D' +
       '41434D00000000000036383F36383F36383F3A3B43000000000000' +
       '3D3F493D3F4900000000000036383F3A3B433A3B43000000000000' +
       '0000000000000000003D3F4941434D0000000000003D3F49000000' +
       '00000036383F00000000000032333B36383F32333B000000000000' +
       '00000000000000000036383F3A3B433D3F493D3F493D3F493D3F49' +
       '3D3F493D3F4900000000000000000000000032333B32333B36383F' +
       '00000000000036383F36383F32333B32333BFFFF00FFFF00000000' +
       '00000000000000000041434D41434D41434D41434D000000000000' +
       '0000000000000000003A3B433A3B43000000');
  loginscr := BitmapFromString(166, 12,
       '41434D41434D41434D484A534C4E5952545E4C4E59484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A5341434D41434D41434D41434D3A3B433D3F493A3B43' +
       '3D3F493D3F4941434D41434D41434D484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A534C4E59484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A5341434D41434D41434D' +
       '41434D41434D41434D41434D41434D3D3F493A3B433A3B4336383F' +
       '32333B32333B36383F3A3B433A3B433D3F493A3B433A3B433A3B43' +
       '3A3B433A3B433A3B433A3B433D3F493A3B433A3B433A3B433A3B43' +
       '3D3F4941434D41434D41434D41434D3A3B4336383F32333B32333B' +
       '36383F3A3B4341434D41434D41434D41434D41434D41434D3D3F49' +
       '3A3B433D3F4941434D41434D41434D41434D41434D41434D41434D' +
       '41434D3D3F493A3B433A3B4341434D3A3B433A3B433A3B433A3B43' +
       '3A3B433A3B4336383F3A3B433D3F4941434D484A5352545E5A5C66' +
       '5A5C665A5C6652545E52545E52545E52545E52545E52545E4C4E59' +
       '4C4E59484A53484A53484A53484A5341434D41434D41434D41434D' +
       '3D3F493A3B433A3B433D3F4941434D484A5352545E52545E4C4E59' +
       '4C4E594C4E594C4E594C4E594C4E594C4E594C4E594C4E59484A53' +
       '484A53484A53484A53484A53484A53484A53FFFF00FFFF00484A53' +
       '484A53484A53484A53484A53484A53484A53484A534C4E59484A53' +
       '484A53484A53484A53484A53484A53484A5341434D41434DFFFF00' +
       'FFFF00FFFF00FFFF00FFFF0041434D41434D41434D41434D41434D' +
       '41434D41434D41434D484A53484A53484A5341434D484A53484A53' +
       '484A53484A53484A53484A53484A5341434D41434D484A5341434D' +
       '41434D41434D41434D41434D41434D3D3F49FFFF00FFFF00FFFF00' +
       '3D3F493D3F493D3F493A3B4336383F32333B32333B32333B32333B' +
       '36383F3A3B433A3B433A3B4336383F3A3B433A3B4336383F3A3B43' +
       '3A3B433A3B433A3B4336383F3A3B433A3B433D3F493D3F493D3F49' +
       '3A3B4336383F32333B32333B36383F3A3B433A3B433D3F493D3F49' +
       '3D3F493A3B433A3B433A3B433A3B433D3F49FFFF00FFFF00FFFF00' +
       'FFFF0041434D41434D41434D41434D41434D41434D41434D3D3F49' +
       'FFFF00FFFF00FFFF00FFFF00FFFF003A3B433A3B433A3B433D3F49' +
       '3D3F4941434D4C4E595A5C66696A74696A7461636E5A5C665A5C66' +
       '5A5C6652545E52545E52545E4C4E594C4E594C4E59484A53484A53' +
       '41434D41434D41434D3D3F49FFFF00FFFF003D3F4941434D484A53' +
       '5A5C6661636E5A5C6652545E52545E4C4E594C4E594C4E5952545E' +
       '52545E52545E52545E4C4E59FFFF00FFFF00484A53484A53484A53' +
       '484A53FFFF00FFFF000000004C4E59484A53484A53484A53484A53' +
       '484A534C4E594C4E594C4E594C4E59484A53484A53484A53484A53' +
       '484A53484A5341434DFFFF00FFFF00000000000000FFFF00FFFF00' +
       '41434D484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A5341434D' +
       '41434D41434D41434D41434D41434D41434D41434D41434D41434D' +
       'FFFF00FFFF00000000FFFF00FFFF003D3F4941434D3D3F493A3B43' +
       '36383F32333B32333B32333B36383F3D3F493D3F493D3F493A3B43' +
       '3A3B433A3B4336383F36383F36383F32333B32333B32333B32333B' +
       '36383F36383F36383F3A3B4336383F36383F36383F36383F36383F' +
       '36383F3A3B433A3B433D3F493D3F493A3B433D3F493A3B433A3B43' +
       'FFFF00FFFF00000000000000FFFF00FFFF003D3F493D3F493A3B43' +
       '3D3F493A3B433D3F493A3B43FFFF00FFFF00000000000000FFFF00' +
       'FFFF003A3B433A3B4341434D3D3F4941434D52545E696A7474767F' +
       '74767F696A745A5C665A5C665A5C6652545E52545E52545E52545E' +
       '52545E4C4E594C4E59484A53484A53484A5341434D3D3F49FFFF00' +
       'FFFF00000000484A5352545E5A5C665A5C6652545E4C4E594C4E59' +
       '4C4E594C4E5952545E52545E52545E52545E52545E52545EFFFF00' +
       'FFFF000000004C4E59484A53484A53FFFF00FFFF00000000484A53' +
       '484A53484A53484A53484A53484A534C4E594C4E594C4E594C4E59' +
       '484A53484A53484A53484A53484A53484A53484A53FFFF00FFFF00' +
       '000000484A53FFFF00FFFF00000000484A534C4E594C4E594C4E59' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '41434D41434D41434D41434D41434D41434D41434D41434D41434D' +
       '41434D41434D41434DFFFF00FFFF000000000000003D3F49000000' +
       '0000003D3F493D3F493A3B4336383F32333B32333B36383F3D3F49' +
       '41434D41434D41434D3D3F493A3B433A3B433A3B4336383F32333B' +
       '32333B32333B32333B32333B32333B36383F36383F36383F3A3B43' +
       '3A3B433A3B433A3B433A3B433A3B433A3B433A3B433A3B433D3F49' +
       '3A3B433D3F493D3F493A3B433A3B430000000000003A3B433A3B43' +
       'FFFF00FFFF003A3B433A3B433A3B433D3F493D3F493A3B43FFFF00' +
       'FFFF000000003A3B43FFFF00FFFF0000000036383F41434D41434D' +
       '484A535A5C6674767F898A93898A93696A745A5C6652545E52545E' +
       '52545E52545E52545E52545E52545E4C4E594C4E59484A53484A53' +
       '484A5341434D41434DFFFF00FFFF0000000041434D4C4E5952545E' +
       '5A5C6652545E4C4E594C4E5952545E52545E52545E52545E52545E' +
       '4C4E594C4E594C4E59FFFF00FFFF00000000484A53484A53484A53' +
       'FFFF00FFFF00000000484A53484A53484A53484A53484A53484A53' +
       '484A53484A53484A53484A53484A53484A53484A53484A53484A53' +
       '484A53484A53FFFF00FFFF0000000041434DFFFF00FFFF00000000' +
       '484A534C4E594C4E594C4E59484A53484A53484A53484A5341434D' +
       '484A5341434D484A5341434D484A5341434D41434D41434D41434D' +
       '41434D41434D41434D41434D41434D41434D41434D41434DFFFF00' +
       'FFFF0041434D41434D41434D3D3F493A3B433A3B433A3B4336383F' +
       '32333B32333B3A3B433D3F4941434D41434D41434D41434D3D3F49' +
       '3A3B433A3B433A3B4336383F32333B32333B32333B32333B32333B' +
       '36383F3A3B433A3B4336383F3A3B433A3B433A3B433A3B433A3B43' +
       '3A3B433A3B433A3B433D3F493D3F493A3B433D3F493A3B433A3B43' +
       '3A3B433A3B433A3B433D3F49FFFF00FFFF000000003A3B433A3B43' +
       '3A3B433A3B433A3B43FFFF00FFFF000000003A3B43FFFF00FFFF00' +
       '0000003A3B43484A5341434DFFFF00FFFF00FFFF00FFFF00FFFF00' +
       'FFFF0052545E52545E52545E52545EFFFF00FFFF00FFFF00FFFF00' +
       '52545E4C4E59484A53484A53484A53484A5341434DFFFF00FFFF00' +
       'FFFF00FFFF00484A5352545E5A5C66FFFF00FFFF00FFFF00FFFF00' +
       '52545E52545E52545E52545E52545E4C4E594C4E59FFFF00FFFF00' +
       'FFFF00FFFF004C4E59484A53FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '484A53484A53484A53484A53FFFF00FFFF00FFFF00FFFF00484A53' +
       '484A53484A53484A5341434D484A5341434DFFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000484A53FFFF00FFFF00484A53484A53' +
       'FFFF00FFFF0041434D41434DFFFF00FFFF00FFFF00FFFF00FFFF00' +
       '484A534C4E5952545E4C4E59FFFF00FFFF00FFFF00FFFF0041434D' +
       '41434D41434D41434D41434DFFFF00FFFF0041434D41434D3D3F49' +
       '3D3F493A3B43FFFF00FFFF00FFFF00FFFF0036383F3A3B4341434D' +
       'FFFF00FFFF00FFFF00FFFF003A3B433A3B433A3B4336383FFFFF00' +
       'FFFF00FFFF00FFFF0032333B3A3B433A3B433A3B43FFFF00FFFF00' +
       'FFFF00FFFF003A3B433A3B433D3F493D3F493D3F493D3F493D3F49' +
       '3A3B433A3B433A3B433A3B433A3B433A3B433D3F49FFFF00FFFF00' +
       '0000000000003A3B433A3B433A3B433A3B433A3B43FFFF00FFFF00' +
       'FFFF00FFFF00FFFF000000000000003A3B43484A53FFFF00FFFF00' +
       '000000FFFF00FFFF00000000FFFF00FFFF0052545E5A5C66FFFF00' +
       'FFFF00000000000000FFFF00FFFF004C4E594C4E594C4E59484A53' +
       '484A53484A53FFFF00FFFF000000000000000000004C4E59FFFF00' +
       'FFFF00000000000000FFFF00FFFF004C4E5952545E52545E52545E' +
       '4C4E594C4E59FFFF00FFFF0000000000000000000052545EFFFF00' +
       'FFFF00FFFF00000000FFFF00FFFF00484A53484A53FFFF00FFFF00' +
       '000000000000FFFF00FFFF00484A53484A53484A53484A53484A53' +
       '484A53FFFF00FFFF00FFFF00FFFF0000000000000041434D41434D' +
       'FFFF00FFFF0000000041434DFFFF00FFFF0000000041434DFFFF00' +
       'FFFF00FFFF00000000FFFF00FFFF0052545E4C4E59FFFF00FFFF00' +
       '000000000000FFFF00FFFF0041434D3D3F4941434D41434D41434D' +
       'FFFF00FFFF0041434D41434D3D3F49FFFF00FFFF00000000000000' +
       '0000000000003A3B43FFFF00FFFF00000000000000FFFF00FFFF00' +
       '3A3B4336383FFFFF00FFFF00000000000000FFFF00FFFF003A3B43' +
       '3A3B43FFFF00FFFF00000000000000FFFF00FFFF003D3F493D3F49' +
       'FFFF00FFFF00FFFF00FFFF00FFFF003A3B433A3B433A3B433A3B43' +
       '3A3B43FFFF00FFFF000000000000003A3B433A3B433A3B433A3B43' +
       '3A3B433A3B43FFFF00FFFF00000000000000FFFF00FFFF003A3B43' +
       '3A3B434C4E59FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
       'FFFF000000005A5C66FFFF00FFFF0000000052545EFFFF00FFFF00' +
       '0000004C4E594C4E594C4E59484A53484A53FFFF00FFFF00000000' +
       '3D3F493D3F49484A53FFFF00FFFF000000005A5C66FFFF00FFFF00' +
       '00000052545E52545E52545E4C4E594C4E59FFFF00FFFF00000000' +
       '52545E52545E52545EFFFF00FFFF00000000000000FFFF00FFFF00' +
       '00000041434DFFFF00FFFF00000000484A53FFFF00FFFF00000000' +
       '484A53484A53484A53484A53484A53FFFF00FFFF00FFFF00FFFF00' +
       '000000484A53484A53484A53FFFF00FFFF0000000041434DFFFF00' +
       'FFFF0000000041434DFFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000484A53FFFF00FFFF0000000041434DFFFF00FFFF00000000' +
       '3D3F493D3F493D3F493D3F4941434DFFFF00FFFF0041434D3D3F49' +
       'FFFF00FFFF0000000032333B32333B32333B36383F3A3B43FFFF00' +
       'FFFF00FFFF00FFFF00FFFF0000000036383FFFFF00FFFF00000000' +
       '36383FFFFF00FFFF000000003A3B43FFFF00FFFF000000003D3F49' +
       'FFFF00FFFF000000003D3F493D3F49000000000000000000000000' +
       '0000003A3B433A3B433A3B43FFFF00FFFF000000000000003A3B43' +
       '3A3B4336383F3A3B433A3B433A3B433A3B43FFFF00FFFF00000000' +
       '3A3B43FFFF00FFFF0000000036383F4C4E59FFFF00FFFF00000000' +
       'FFFF00FFFF00000000FFFF00FFFF000000005A5C66FFFF00FFFF00' +
       'FFFF00FFFF00FFFF0000000000000052545E52545E52545E52545E' +
       '4C4E59FFFF00FFFF000000003D3F493A3B433D3F49FFFF00FFFF00' +
       '0000005A5C66FFFF00FFFF0000000052545E52545E52545E4C4E59' +
       '4C4E59FFFF00FFFF000000004C4E59484A534C4E59FFFF00FFFF00' +
       '000000484A53FFFF00FFFF00000000484A53FFFF00FFFF00FFFF00' +
       'FFFF00FFFF00000000000000484A53484A53484A53484A53484A53' +
       'FFFF00FFFF00000000FFFF00FFFF00484A53484A53484A53FFFF00' +
       'FFFF0000000041434DFFFF00FFFF0000000041434DFFFF00FFFF00' +
       '000000484A53FFFF00FFFF00000000484A53FFFF00FFFF00FFFF00' +
       'FFFF00FFFF0000000000000041434D3D3F493D3F493D3F493D3F49' +
       'FFFF00FFFF0000000041434DFFFF00FFFF0000000032333B32333B' +
       '32333B32333BFFFF00FFFF00000000000000FFFF00FFFF00000000' +
       '32333BFFFF00FFFF000000003A3B43FFFF00FFFF000000003D3F49' +
       'FFFF00FFFF00FFFF00FFFF00FFFF000000000000003A3B433D3F49' +
       '3A3B433D3F493A3B433A3B433A3B433A3B433A3B43FFFF00FFFF00' +
       '0000000000003A3B4336383F36383F36383F36383F36383F3A3B43' +
       '3A3B43FFFF00FFFF000000003A3B43FFFF00FFFF000000003A3B43' +
       '4C4E59FFFF00FFFF00000000FFFF00FFFF00000000FFFF00FFFF00' +
       '0000005A5C66FFFF00FFFF0000000000000000000000000052545E' +
       '52545E5A5C665A5C6652545E4C4E59FFFF00FFFF000000003D3F49' +
       '3D3F493D3F49FFFF00FFFF0000000052545EFFFF00FFFF00000000' +
       '52545E52545E52545E52545E4C4E59FFFF00FFFF00000000484A53' +
       '484A53484A53FFFF00FFFF00000000484A53FFFF00FFFF00000000' +
       '4C4E59FFFF00FFFF00000000000000000000000000484A53484A53' +
       '484A53484A53484A53484A53FFFF00FFFF00000000484A53FFFF00' +
       'FFFF00484A53484A53FFFF00FFFF0000000041434DFFFF00FFFF00' +
       '000000484A53FFFF00FFFF0000000041434DFFFF00FFFF00000000' +
       '484A53FFFF00FFFF0000000000000000000000000041434D3D3F49' +
       'FFFF00FFFF003D3F49FFFF00FFFF000000000000003D3F49FFFF00' +
       'FFFF0000000032333B32333B32333B32333BFFFF00FFFF00000000' +
       '36383FFFFF00FFFF0000000032333BFFFF00FFFF000000003A3B43' +
       'FFFF00FFFF000000003D3F49FFFF00FFFF00000000000000000000' +
       '00000041434D3D3F4941434D3D3F493A3B433A3B433A3B433A3B43' +
       '3A3B43FFFF00FFFF000000000000003A3B433A3B4336383F36383F' +
       '36383F32333B36383F32333B3A3B43FFFF00FFFF000000003A3B43' +
       'FFFF00FFFF000000003D3F4952545EFFFF00FFFF00000000FFFF00' +
       'FFFF00000000FFFF00FFFF000000005A5C665A5C66FFFF00FFFF00' +
       'FFFF00FFFF00FFFF0052545E52545E52545E52545E52545E4C4E59' +
       '484A53FFFF00FFFF00FFFF003D3F493A3B433D3F49FFFF00FFFF00' +
       'FFFF00FFFF0000000000000052545E52545E52545E4C4E594C4E59' +
       '484A53FFFF00FFFF00FFFF004C4E59484A53FFFF00FFFF00000000' +
       '484A53FFFF00FFFF000000004C4E594C4E59FFFF00FFFF00FFFF00' +
       'FFFF00FFFF00484A53484A53484A53484A53484A5341434DFFFF00' +
       'FFFF0000000041434DFFFF00FFFF00000000484A5341434DFFFF00' +
       'FFFF00FFFF00FFFF00000000000000484A53FFFF00FFFF00000000' +
       '41434DFFFF00FFFF0000000041434D41434DFFFF00FFFF00FFFF00' +
       'FFFF00FFFF003D3F493D3F493D3F49FFFF00FFFF00FFFF00000000' +
       '0000003A3B433A3B433A3B43FFFF00FFFF00FFFF00FFFF0032333B' +
       '32333B32333BFFFF00FFFF00FFFF00FFFF00FFFF0000000032333B' +
       'FFFF00FFFF00FFFF00FFFF00FFFF0000000000000041434D3D3F49' +
       'FFFF00FFFF00FFFF00FFFF00FFFF003D3F493D3F4941434D3D3F49' +
       '3A3B433A3B433A3B433A3B433A3B43FFFF00FFFF00FFFF00FFFF00' +
       'FFFF00FFFF00FFFF003A3B433A3B433A3B433A3B433A3B433A3B43' +
       'FFFF00FFFF00FFFF00FFFF00FFFF000000000000003A3B4352545E' +
       '52545E00000000000041434D0000000000005A5C66000000000000' +
       '61636E5A5C6652545E00000000000000000000000000000052545E' +
       '4C4E594C4E59484A53484A53484A53484A53000000000000000000' +
       '3D3F493D3F4941434D0000000000000000000000004C4E5952545E' +
       '52545E52545E4C4E59484A53484A53484A53000000000000000000' +
       '4C4E594C4E590000000000004C4E594C4E590000000000004C4E59' +
       '484A53484A53000000000000000000000000000000484A53484A53' +
       '41434D41434D41434D41434D00000000000041434D41434D000000' +
       '00000041434D41434D41434D00000000000000000000000041434D' +
       '41434D484A53000000000000484A5341434D00000000000041434D' +
       '41434D41434D0000000000000000000000000000003D3F493A3B43' +
       '3A3B430000000000000000003A3B4336383F36383F36383F32333B' +
       '00000000000000000000000032333B32333B32333B000000000000' +
       '00000000000000000032333BFFFF00FFFF00000000000000000000' +
       '00000041434D41434D41434D41434D000000000000000000000000' +
       '0000003D3F493D3F493A3B433D3F493A3B433A3B433A3B433A3B43' +
       '3A3B430000000000000000000000000000000000000000003A3B43' +
       '3A3B433A3B433A3B433A3B433A3B43000000000000000000000000' +
       '0000003A3B433A3B43');
  coal := BitmapFromString(9, 7,
       '3C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C28' +
       '3C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C28' +
       '3C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C28' +
       '3C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C28' +
       '3C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C28' +
       '3C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C28' +
       '3C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C283C3C28' +
       '');
  invcoal := BitmapFromString(56, 4,
       'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000000000000000000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       '000000000000FF9040FF9040000000000000000000000000000000' +
       '000000FF9040FF9040000000000000FF9040FF9040000000000000' +
       'FF9040FF9040000000000000FF9040FF9040000000000000FF9040' +
       'FF9040000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       '000000000000000000000000FF9040FF9040000000000000000000' +
       '000000000000000000FF9040FF9040000000000000FF9040FF9040' +
       '000000000000000000FF9040FF9040FF9040FF9040FF9040000000' +
       '000000FF9040FF9040000000FFFFFFFFFFFF000000000000000000' +
       'FFFFFFFFFFFF000000000000000000000000000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '000000000000000000000000000000000000FF9040FF9040000000' +
       '000000000000000000000000000000FF9040FF9040000000000000' +
       'FF9040FF9040000000000000FF9040FF9040000000000000FF9040' +
       'FF9040000000000000FF9040FF9040000000000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       'FF9040FF9040000000FF9040FF9040000000000000FF9040FF9040' +
       '000000000000FF9040FF9040000000000000FF9040FF9040000000' +
       '000000FF9040FF9040000000000000FF9040FF9040000000');
  coalore := BitmapFromString(18, 17,
       '0000000000007C64467F6648856B4A00000118180D1D1D152A2A1A' +
       '2A2A1A3937263C3C282E2E20000001000000000001000001000001' +
       '0000000000007F664800000100000100000118180D1D1D152A2A1A' +
       '3434223C3C283C3C28393726000001000001201A11614E3767543A' +
       '0000000000000000010000000000000000012424182A2A1A2E2E20' +
       '3C3C283C3C283C3C283C3C280000012C2418372C1D6B563C715B3F' +
       '0000010000000000000000000000000000012E2E203434223C3C28' +
       '3C3C283C3C283C3C283C3C280000013C30224C3D2A745D427C6446' +
       '50402C0000010000000000000000010000013937263C3C283C3C28' +
       '3C3C28000001000001000001000001483A2854432E7C6446826949' +
       '5D4C3500000100000000000118180D2A2A1A000001000001000001' +
       '00000100000000000000000000000154432E614E37745D42876D4C' +
       '6451390000010000000000011D1D152A2A1A2E2E202E2E20000001' +
       '0000000000000000000000000000015D4C3567543A7F66488A6F4E' +
       '6B563C0000010000000000011D1D152A2A1A2E2E203434222E2E20' +
       '0000010000000000000000000000016B563C7660438269498C7150' +
       '715B3F0000010000000000012424182A2A1A2E2E20343422343422' +
       '343422000001000000000000000001715B3F796245856B4A8F7351' +
       '7660430000010000000000012424182A2A1A2E2E20393726393726' +
       '3937263C3C28000001000001000000000001000001856B4A917552' +
       '7C64460000010000000000012A2A1A2E2E203434223937263C3C28' +
       '3C3C283C3C28393726393726000001000000000000000001000001' +
       '7F66480000010000000000012E2E202E2E203434223937263C3C28' +
       '3C3C283C3C28393726000001000001000001000001000000000000' +
       '856B4A0000010000000000000000013434223937263937263C3C28' +
       '3C3C283C3C2800000118180D1D1D15242418242418000001000000' +
       '8A6F4E0000010000000000000000010000013937263C3C2840402A' +
       '40402A00000118180D18180D2424182424182A2A1A000001000000' +
       '8C715000000100000100000154432E6E583D0000013C3C2840402A' +
       '00000100000118180D18180D2A2A1A2A2A1A393726000001000000' +
       '00000100000143372657463067543A766043000001000001000001' +
       '00000000000118180D1D1D152A2A1A393726393726000001000000' +
       '000001372C1D54432E67543A6E583D826949000001000000000000' +
       '0000000000012424182A2A1A393726393726393726393726000001' +
       '');
  uncutsapphire := BitmapFromString(15, 15,
       '12158F151AAF0F158B0F13870F13820F137E0F127B0C12740E1285' +
       '090F65090C5D090C5406094B06094006063612159112158F12158D' +
       '0F158B0F13890F13870F137E0C12770E1288090F65090F630B0F73' +
       '090C5A09095106094812159312159112158D0F158B1217A91217A2' +
       '0F127B0C12770F12890C0F68090F63090C60090C5A090C57090951' +
       '12189812159312159112158D0F158B1217A71217A00C12790F158C' +
       '0C0F68090F65090C60090C5D0B0E6B090951121899121896121591' +
       '12158F12158D0F13891217A312179D0C12740F12860C0F6A090F65' +
       '0B0F75090C57070A5D12189C12189912189612159312158F0F158B' +
       '0F138712179E12169D0F12890C0F6A0C0F680B127A090C5D070A5B' +
       '13189E12189C1218981215931215911417A10F13890F13821218A1' +
       '0F15940C0F6C0E1280090F63090C5A0909511319A213189E12189C' +
       '121898141BAB1418A40F158B0F13840F13800C12790F16960F1289' +
       '0C0F68090C5D09095113189F12189C12189912189612159112158D' +
       '0F13890F13840F138012179F0E1590090F65090C5D090C5706094E' +
       '13189E12189C12189812159312158F0F158B0F13870F13821218A4' +
       '0F169B0E13890B127D090C60090C5A09095112189C121898121896' +
       '12159112158D0F13890F13841318A51216970C12720F12860C0F68' +
       '0B0F77090C5D090C5412189C12189812159312159112158D0F158B' +
       '1318AB12179E0C12790C12740F12890C0F6A090F650B0F73090C5A' +
       '12189912189612159112158F0F158B1318B11217A20F13800F127B' +
       '0C12770F158D0C0F6C0C0F68090C600B0F6F121898121593121591' +
       '12158F0F158B0F13890F13870F13820F137E0C12790F158F0C0F6F' +
       '0C0F6A090F65090C5D0F158B1218961215911519AF0F13890F1387' +
       '0F13840F13800F137E0F127B0F16930C12720C0F6C0C0F68090C60' +
       '');
  uncutemerald := BitmapFromString(15, 16,
       '0F871312A4170F82130F7E130C79120C77120C72120C6C0F0B7D12' +
       '09600C09570C064E09064809063C060031060F89130F87130F8413' +
       '0F82130F80130F7E130C77120C6F0F0E801209600C095D0C0B6C0F' +
       '09540C064B090644090F8B150F89130F84130F8213129E17129816' +
       '0C74120C6F0F0E801209630F095D0C095A0C09570C095109064E09' +
       '128F150F8B150F89130F84130F8213129B171297160C72120E8212' +
       '09630F09600C095D0C09570C0A670E064E09129115128D150F8913' +
       '0F87130F84130F80131298160F92150C6C0F0B7E1209650F09600C' +
       '0B720F09540C075A0A129315129115128D150F8B150F87130F8213' +
       '0F7E130F95160F94160E811209650F09630F0B720F09570C07580A' +
       '129618129315128F150F8B150F89131096150F80130F7B120F9816' +
       '0F8C150C680F0B7A12095D0C09540C064E09129918129618129315' +
       '128F1514A117119B150F82130F7E130C79120C74120F8F130E8212' +
       '09630F09570C064E09129818129618129115128D150F8B150F8713' +
       '0F82130F7E130C79120F95160E871209600C09570C095109064B09' +
       '129618129315128F150F8B150F89130F84130F80130F7B120F9B17' +
       '0E92160B82120B760F095A0C09540C064E09129315129115128F15' +
       '0F8B150F87130F82130F7E130F9C170F8F150C6C0F0E801209630F' +
       '0B6F0F09570C095109129618129115128D150F89130F87130F8413' +
       '12A3180F95160C72120C6F0F0E831209650F095D0C0B6C0F09540C' +
       '129315128F150F8B150F89130F841313A8181299160C79120C7412' +
       '0C6F0F0F86120C680F09600C095A0C0A670E129115128D150F8B15' +
       '0F89130F84130F82130F80130F7B120C77120C72120F89120C6A0F' +
       '09630F095D0C09570C0F8413128F150F8B1512A7170F82130F8013' +
       '0F7E130C79120C77120C74120F8A120C6C0F09650F09600C095A0C' +
       '0F8213128D1512AA170F87130F84130F80130F7E130F7B120C7712' +
       '0C74120F8D150C6F0F0C680F09600C0A6A0E');
  uncutruby := BitmapFromString(14, 16,
       '77190C901E0F72180C6F180C6A150C68150C6513096013096F160B' +
       '5412094B0F06440C063C0C0636090679190C77190C74180C72180C' +
       '6F180C6F180C68150C6313096F160B541209510F096012074B0F06' +
       '400C067B190F79190C77190C74180C8D1D0F861A0F68150C631309' +
       '72170B541209510F094E0F064B0F06480C067E190F7B190F79190C' +
       '77190C74180C891D0F84190E63130972170B571209541209510F09' +
       '4B0F06590F07801B0F7E190F79190C77190C77190C72180C861A0F' +
       '82190E6013096F160B571209541209601207480C06821B0F801B0F' +
       '7E190F7B190F79190C74180C6F180C83190E841A0E70160B5A1209' +
       '54120964120A4E0F06841B0F821B0F7E190F7B190F7B190F881C0D' +
       '72180C6C150C841A0E79170B5A12096B150B510F094B0F06871C0F' +
       '841B0F821B0F801B0F901C108B1C0D74180C6F180C6A150C651309' +
       '7C180B72170B5712094E0F06871C0F821B0F801B0F7E190F7B190F' +
       '77190C72180C6F180C6A150C83180B78170B5412094E0F06480C06' +
       '841B0F821B0F7E190F7B190F79190C74180C6F180C6C150C881B0E' +
       '81180B73160B65120B510F094B0F06821B0F801B0F7E190F79190C' +
       '77190C72180C6F180C8A1B0F80190E6013096F160B54120964120A' +
       '4E0F06821B0F7E190F7B190F79190C77190C74180C8F1E0F83190E' +
       '65130960130972170B571209510F09601207801B0F7E190F79190C' +
       '77190C74180C931E0F861A0F6A150C65130963130976170B5A1209' +
       '541209510F097E190F7B190F79190C77190C74180C72180C6F180C' +
       '6A150C68150C65130977170B5D1309571209510F0974180C7B190F' +
       '79190C901E0F72180C6F180C6C150C6A150C68150C6513097B170B' +
       '6013095A120954120972180C79190C941F0F74180C72180C6F180C' +
       '6C150C6A150C68150C6513097B170B6313095A1209541209');
  uncutdiamond := BitmapFromString(14, 15,
       'B1B0B0D8D5D5ABA8A8A6A3A3A29E9D9E9999999493918A8AA99E9E' +
       '807777756D6D6B63635F5858524C4CB3B1B1B2B1B1AEACACABA9A9' +
       'A9A6A6A6A3A39E9999958F8FACA2A28178787C7473938989726A69' +
       '66605FB4B2B2B3B1B1B0ADADADAAAAD1CDCDCCC7C79C9797948E8E' +
       'ADA3A3837B7B7E76757A7170746C6C6F6766B6B4B4B4B4B4B4B2B2' +
       'B1AEAEABA9A9D0CBCAC9C3C3989392B1A9A8857E7D8178787C7473' +
       '776F6F8C8281B7B6B6B6B4B4B4B4B4B2B1B1AEACACAAA8A8CCC6C6' +
       'C4BFBE938D8DACA2A088807F837979988E8D706968B9B8B8B8B7B7' +
       'B7B5B5B6B4B4B2B1B1ADAAAAA8A4A4C8C3C1C7C0C0AFA5A58A8281' +
       '847B7B9B9190776F6FBABABAB9B8B8B8B7B7B7B5B5B4B4B4CAC5C5' +
       'AAA8A8A3A0A0CAC3C3BBB4B38C8484A69B9B7E7574736B6BBCBBBB' +
       'BABABABABABAB9B8B8D4D1D1CDCACAADAAAAA6A3A3A19C9C9A9594' +
       'BFB7B7AEA5A5837B7B776F6FB9B8B8B8B7B7B7B6B6B7B5B5B4B4B4' +
       'B1AEAEABA8A8A5A2A2A09C9BC7C0BFB5ADAD817878786F6F6F6766' +
       'B8B7B7B6B4B4B4B4B4B4B2B2B2B1B1AEABABA8A5A5A39F9FCFC8C7' +
       'C4BCBBB1A6A6A095947C7473736B6BB7B6B6B4B4B4B2B1B1B1B0B0' +
       'B0ADADABA8A8A6A3A3D1CACAC0B9B9918A8AADA2A2847B7B998F8E' +
       '776F6FB9B8B8B6B4B4B2B1B1AEACACAEABABADAAAAD7D3D2C6C0BF' +
       '989392938D8DB0A7A688807F807777948989B8B7B7B4B4B4B1B0B0' +
       'AEABABABA8A8DCD9D9CBC7C6A09C9B9B9696969090B3AAAA8B8383' +
       '837B7B7C7473B7B6B6B4B4B4B2B1B1B0ADADADAAAAAAA8A8A8A4A4' +
       'A29E9D9C9898989392B6AEAE8E8787877E7E807777ADAAAAB7B5B5' +
       'B3B1B1DAD7D7ABA9A9A8A5A5A5A1A1A19C9C9E9999999493B9B1B1' +
       '918A8A8A8281837B7B');
begin
  ST:=GetSystemTime;
  trips:=0;
  LogInIfNeeded;
  StartingWhere;
Repeat
  trips:=trips+1;
  Writeln('Beginning Mining');
  DoMining;
  Writeln('Dropping Ores');
  DropOres;
  PrintProgressReport;
  until(false);
end;
end.