//Credits go to Gussy, because most of this is based off of his miner which
//is based off chrizs so ty chriz,
//(i dont feel bad ripping his code cause gussy did it too)
//to mutant, to hattless cow, to smither, to everyone
//Start in Fally bank-pick in first slot and extras in first bank  slot
program Miner;
  {.include RSCI.txt}
  var
  ores, trips, z, c, l:integer;
  const
  { <==  = SETUP =  =  = <  < }
  { <= =  = MAIN SCREEN =  =  = <  < }
  rockcolor1 = 2569301; //If You Can't Figure This Out You Are Retarded
  rockcolor2 = 1778490; //If You Can't Figure This Out You Are Retarded
  rockcolor3 = 2437457; //If You Can't Figure This Out You Are Retarded
  { <= =  = MINI - MAP =  =  = <  < }
  banksymbol = 4968170;
  roadcolor = 6645101;
  miningsymbol = 6645101;
  { <= =  = OTHER =  =  = <  < }
  minetime = 2000;
  skill = 'Mining';
{ <= =  = end OF SETUP =  =  =  <  < }
procedure MapFlagg;
var
m, flagg:integer;
begin
  flagg := BitmapFromString(2, 2, 'FF00005D3311C656045D3311');
  Wait(200);
  M := 0;
  if(FindBitmapIn(flagg, x, y, 570, 5, 725, 162))then
  begin
    repeat
    wait(500);
    M :=M + 1;
  until(FindBitmapIn(flagg, x, y, 633, 64, 665, 90))and
  (not(GetColor(200, 148) = 16777215))or
  (not FindBitmapIn(flagg, x, y, 570, 5, 725, 160))and(M > 9);
  Wait(100);
end;
end;
procedure report;
var
RHours, Minutes, Seconds, RMinutes, RSeconds, avtime:LongInt; Time:String;
begin
  begin
    Seconds := (GetSystemTime - ST)div 1000;
    Minutes := Seconds div 60;
    RHours := Minutes div 60;
    Time := inttostr(Seconds) + ' Seconds';
    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;
  end;
  Writeln('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
  Writeln('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
  Writeln('\~~~~~~~~Rimmington Miner~~~~~~~~~\');
  Writeln('/~~~~~~~~By Jdumber2k ~~~~~~~~~~~~/');
  Writeln('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
  Writeln('/Worked for ' + inttostr(RHours) + ' Hours');
  Writeln('\And ' + inttostr(RMinutes) + ' Minutes');
  Writeln('/And ' + inttostr(RSeconds) + ' Seconds');
  Writeln('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
  Writeln('/Mined ' + inttostr(ores) + ' ores');
  Writeln('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
  Writeln('/Made ' + inttostr(trips) + ' trips');
  Writeln('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
  Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
end;
procedure Rands;
begin
  findmiscrandoms;
  talktorand;
  EyeTest;
  FindFrog;
  Findforester;
  RandomItemHandler;
  uselamp(skill);
  if(FindFight = true)then
  begin
    runwhere;
  end;
end;
procedure axrands;
begin
  if PickHeadGone(false)then
  FixPick(false);
end;
procedure MineRocks;
begin
  repeat
  Rands;
  wait(500 + random(100));
  if(FindColorSpiraltolerance(x, y, RockColor1, 3, 3, 515, 338,20))or
  (FindColorSpiraltolerance(x, y, RockColor2, 100, 66, 415, 276,20))or
  (FindColorSpiraltolerance(x, y, RockColor3, 210, 130, 300, 220,20))then
  begin
    rands;
    wait(50 + random(25));
    mouse(x, y, 0, 0, true)
    flag;
    wait(minetime + random(300))
    axrands;
    Rands;
  end;
until((InvCount =  28))
end;
procedure ToBank;
var
xy, yy:integer;
begin
  c := 0;
  L := 0;
  if(FindColorSpiralTolerance(x, y, miningsymbol, 574, 8, 722, 160, 20))Then
  begin
    mouse(x - 15, y - 15, 10, 10, True)
    flag;
  end
  if(FindColorSpiralTolerance(x, y, miningsymbol, 574, 8, 722, 160, 20))Then
  begin
    c := 1
    mouse(x - 15, y - 60, 5, 5, True)
    mapflagg;
  end
  repeat
  if(FindColorSpiralTolerance(x, y, roadcolor, 615, 32, 700, 34, 20))Then
  begin
    c := c + 1;
    mouse(x, y, 5, 5, True)
  end
  L := L + 1;
until(FindColorSpiralTolerance(x, y, roadcolor, 690, 40, 692, 120, 20))and(c > 1)or(c > 4)or(L > 30);
c := 0;
repeat
if(FindColorSpiralTolerance(x, y, roadcolor, 690, 40, 692, 120, 20))Then
begin
  c := c + 1;
  mouse(x, y, 5, 5, True)
  mapflagg;
end
L := L + 1;
until(FindColorSpiralTolerance(x, y, roadcolor, 595, 35, 690, 37, 20))
c := 0;
repeat
if(FindColorSpiralTolerance(x, y, roadcolor, 595, 35, 690, 37, 20))Then
begin
  c := c + 1;
  mouse(x, y, 5, 5, True)
  mapflagg;
end
L := L + 1;
until(FindColorSpiralTolerance(x, y, banksymbol, 574, 45, 722, 160, 20))
if(findcolorspiral(x, y, banksymbol, 574, 45, 722, 160))then
begin
  mouse(xy, (yy - 7), 1, 1, true);
  flag
end else
begin
  if(findcolorspiral(x, y, banksymbol, 574, 45, 722, 160))then
  begin
    mouse(x, y, 1, 1, true)
    flag
  end;
end;
end;
procedure tomine;
begin
  run(true);
  if(FindColorSpiralTolerance(x, y, banksymbol, 575, 70, 730, 135, 20))Then
  begin
    mouse(x - 30, y + 20, 5, 5, True)
    flag;
  end;
  repeat
  if(FindColorSpiralTolerance(x, y, roadcolor, 585, 120, 710, 122, 20))Then
  begin
    mouse(x, y, 5, 5, True)
    flag;
    z :=z + 1
  end;
until(z = 8)
repeat
If(FindColorSpiralTolerance(x, y, roadcolor, 605, 30, 607, 120, 20))Then
begin
  mouse(x, y, 5, 5, True)
  flag;
end;
until(FindColorSpiralTolerance(x, y, roadcolor, 585, 115, 710, 117, 20))
if(FindColorSpiralTolerance(x, y, roadcolor, 585, 115, 710, 117, 20))Then
begin
  mouse(x, y, 5, 5, True)
  flag;
end;
if(FindColorSpiralTolerance(x, y, roadcolor, 585, 115, 710, 117, 20))Then
begin
  mouse(x, y, 5, 5, True)
  flag;
end;
repeat
begin
  mouse(650, 125, 5, 5, True)
  flag;
end;
until(FindColorSpiralTolerance(x, y, miningsymbol, 574, 8, 722, 160, 20))
if(FindColorSpiralTolerance(x, y, miningsymbol, 574, 8, 722, 160, 20))Then
begin
  mouse(x - 15, y - 15, 10, 10, True)
  flag;
end;
if(FindColorSpiralTolerance(x, y, miningsymbol, 574, 8, 722, 160, 20))Then
begin
  mouse(x - 31, y, 5, 5, True)
  flag;
end;
end;
procedure bank;
begin
  rands;
  openbank;
  wait(450);
  depositall;
  wait(450);
  mouse(94, 68, 1, 1, true)
end;
begin
  report;
  LoadLibrary('Internet Explorer');
  GetPickColors(false);
  repeat
  tomine;
  minerocks;
  ores := ores + 27;
  trips := trips + 1;
  tobank;
  bank;
  report;
until(false)
end.