program Iron Miner;

var
x, y, Mark, Count: integer;

function Error : boolean;
begin
  if(Count > 1000)then result:= true
end;

function Error2 : boolean;
begin
  if(Count > 3000)then result:= true
end;

function In_Invo : boolean;
begin
  if(FindColor(x, y, 10009022, 666, 540, 668, 542))then result:= true
end;

function Overloaded : boolean;
begin
  if(FindColor(x, y, 193, 441, 681, 480, 704))then result:= true
end;

function Iron_Selected : boolean;
begin
  if(FindColor(x, y, 8816262, 394, 448, 394, 448))then result:= true
end;

function In_Combat : boolean;
begin
  if(FindColor(x, y, 26367, 881, 553, 883, 555))then result:= true
end;

function My_Turn : boolean;
begin
  if(FindColor(x, y, Your Color Here!, 171, 164, 173, 166))then result:= true
end;

function Fight_Over : Boolean;
begin
  if(FindColorTolerance(x, y, 25087, 752, 439, 800, 510, 15))then result:= true
end;

procedure Fight;
begin
  if(In_Combat)then
begin
  MoveMouseSmooth(936, 521);
  Wait(100+random(200));
  HoldMouse(936, 521, true);
  Wait(20+random(50));
  ReleaseMouse(936, 521, true);
  Wait(100+random(200));
  MoveMouseSmooth(909, 554);
  Wait(100+random(200));
  HoldMouse(909, 554, true);
  Wait(20+random(50));
  ReleaseMouse(909, 554, true);
repeat
  Wait(1);
until(My_Turn);
repeat
  Wait(1);
until(My_Turn = false);
  MoveMouseSmooth(745, 668);
  Wait(100+random(200));
  HoldMouse(745, 668, true);
  Wait(20+random(50));
  ReleaseMouse(745, 668, true);
  Wait(100+random(200));
  MoveMouseSmooth(923, 555);
  Wait(100+random(200));
  HoldMouse(923, 555, true);
  Wait(20+random(50));
  ReleaseMouse(923, 555, true);
  Wait(1000+random(500));
  MoveMouseSmooth(711, 666); //------ plaguing arrow
  Wait(100+random(200));
  HoldMouse(711, 666, true);
  Wait(20+random(50));
  ReleaseMouse(711, 666, true);
  Wait(100+random(200));
  MoveMouseSmooth(881, 555);
  Wait(100+random(200));
  HoldMouse(881, 555, true);
  Wait(20+random(50));
  ReleaseMouse(881, 555, true);
  Wait(1000+random(500));
  MoveMouseSmooth(711, 666); //------ plaguing arrow
  Wait(100+random(200));
  HoldMouse(711, 666, true);
  Wait(20+random(50));
  ReleaseMouse(711, 666, true);
  Wait(100+random(200));
  MoveMouseSmooth(881, 555);
  Wait(100+random(200));
  HoldMouse(881, 555, true);
  Wait(20+random(50));
  ReleaseMouse(881, 555, true);
  Wait(100+random(200));
  MoveMouseSmooth(662, 710); //------ pass
  Wait(100+random(200));
  HoldMouse(662, 710, true);
  Wait(20+random(50));
  ReleaseMouse(662, 710, true);
repeat
repeat
  Wait(1);
until(My_Turn) or (Fight_Over);
repeat
  Wait(1);
until(My_Turn = false)  or (Fight_Over);
  MoveMouseSmooth(711, 666); //------ plaguing arrow
  Wait(100+random(200));
  HoldMouse(711, 666, true);
  Wait(20+random(50));
  ReleaseMouse(711, 666, true);
  Wait(100+random(200));
  MoveMouseSmooth(881, 555);
  Wait(100+random(200));
  HoldMouse(881, 555, true);
  Wait(20+random(50));
  ReleaseMouse(881, 555, true);
  Wait(1000+random(500));
  MoveMouseSmooth(711, 666); //------ plaguing arrow
  Wait(100+random(200));
  HoldMouse(711, 666, true);
  Wait(20+random(50));
  ReleaseMouse(711, 666, true);
  Wait(100+random(200));
  MoveMouseSmooth(881, 555);
  Wait(100+random(200));
  HoldMouse(881, 555, true);
  Wait(20+random(50));
  ReleaseMouse(881, 555, true);
  Wait(1000+random(500));
  MoveMouseSmooth(711, 666); //------ plaguing arrow
  Wait(100+random(200));
  HoldMouse(711, 666, true);
  Wait(20+random(50));
  ReleaseMouse(711, 666, true);
  Wait(100+random(200));
  MoveMouseSmooth(881, 555);
  Wait(100+random(200));
  HoldMouse(881, 555, true);
  Wait(20+random(50));
  ReleaseMouse(881, 555, true);
  Wait(100+random(200));
  MoveMouseSmooth(662, 710); //------ pass
  Wait(100+random(200));
  HoldMouse(662, 710, true);
  Wait(20+random(50));
  ReleaseMouse(662, 710, true);
  Wait(2000+random(500));
until(Fight_Over);
Wait(1000+random(500));
        MoveMouseSmooth(x+40, y+10);
        Wait(100+random(200));
        HoldMouse(x+40, y+10, true);
        Wait(20+random(50));
        ReleaseMouse(x+40, y+10, true);
        Wait(100+random(200));
        MoveMouseSmooth(470, 427);
        Wait(100+random(200));
        HoldMouse(470, 427, true);
        Wait(20+random(50));
        ReleaseMouse(470, 427, true);
        Wait(1000+random(500));
         if(Overloaded)then
          begin
           MoveMouseSmooth(733, 610);
           Wait(100+random(200));
           HoldMouse(733, 610, true);
           Wait(20+random(50));
           ReleaseMouse(733, 610, true);
          repeat
           Wait(1);
          until(In_Invo);
           MoveMouseSmooth(871, 166);
           Wait(100+random(200));
           HoldMouse(871, 166, true);
           Wait(20+random(50));
           ReleaseMouse(871, 166, true);
           Wait(1000+random(500));
           MoveMouseSmooth(794, 250);
           Wait(100+random(200));
           HoldMouse(794, 250, true);
           Wait(20+random(50));
           ReleaseMouse(794, 250, true);
          repeat
           Wait(1);
          until(Iron_Selected);
           MoveMouseSmooth(463, 500);
           Wait(100+random(200));
           HoldMouse(463, 500, true);
           Wait(20+random(50));
           ReleaseMouse(463, 500, true);
           Wait(100+random(200));
           MoveMouseSmooth(522, 570);
           Wait(100+random(200));
           HoldMouse(522, 570, true);
           Wait(20+random(50));
           ReleaseMouse(522, 570, true);
           Wait(100+random(200));
           SendKeys('50'+chr(13));
           Wait(100+random(200));
           MoveMouseSmooth(507, 553);
           Wait(100+random(200));
           HoldMouse(507, 553, true);
           Wait(20+random(50));
           ReleaseMouse(507, 553, true);
           Wait(100+random(200));
           MoveMouseSmooth(427, 349);
           Wait(100+random(200));
           HoldMouse(427, 349, true);
           Wait(20+random(50));
           ReleaseMouse(427, 349, true);
           Wait(100+random(200));
           MoveMouseSmooth(944, 87);
           Wait(100+random(200));
           HoldMouse(944, 87, true);
           Wait(20+random(50));
           ReleaseMouse(944, 87, true);
          end;
   end;
end;

function Iron_a1 : boolean;
begin
  if(FindColor(x, y, 10726318, 205, 215, 249, 302))then result:= true
end;

function Iron_b1 : boolean;
begin
  if(FindColor(x, y, 10726318, 251, 213, 281, 320))then result:= true
end;

function Iron_c1 : boolean;
begin
  if(FindColor(x, y, 10726318, 283, 226, 315, 336))then result:= true
end;

function Iron_d1 : boolean;
begin
  if(FindColor(x, y, 10726318, 636, 138, 679, 219))then result:= true
end;

function Iron_e1 : boolean;
begin
  if(FindColor(x, y, 10726318, 701, 95, 748, 205))then result:= true
end;

function Iron_a2 : boolean;
begin
  if(FindColor(x, y, 10726318, 232, 340, 290, 421))then result:= true
end;

function Iron_b2 : boolean;
begin
  if(FindColor(x, y, 10726318, 395, 254, 452, 367))then result:= true
end;

function Iron_c2 : boolean;
begin
  if(FindColor(x, y, 10726318, 531, 213, 591, 304))then result:= true
end;

function Iron_d2 : boolean;
begin
  if(FindColor(x, y, 10726318, 602, 181, 646, 272))then result:= true
end;

function Iron_e2 : boolean;
begin
  if(FindColor(x, y, 10726318, 636, 171, 684, 253))then result:= true
end;

function Iron_a3 : boolean;
begin
  if(FindColor(x, y, 10726318, 423, 170, 485, 259))then result:= true
end;

function Iron_a4 : boolean;
begin
  if(FindColor(x, y, 10726318, 714, 241, 743, 347))then result:= true
end;

function Iron_b4 : boolean;
begin
  if(FindColor(x, y, 10726318, 429, 165, 481, 256))then result:= true
end;

function Iron_c4 : boolean;
begin
  if(FindColor(x, y, 10726318, 468, 147, 513, 239))then result:= true
end;

function Iron_d4 : boolean;
begin
  if(FindColor(x, y, 10726318, 513, 140, 548, 256))then result:= true
end;

function Iron_e4 : boolean;
begin
  if(FindColor(x, y, 10726318, 556, 150, 584, 272))then result:= true
end;

function Iron_a5 : boolean;
begin
  if(FindColor(x, y, 10726318, 466, 182, 516, 268))then result:= true
end;

function Iron_b5 : boolean;
begin
  if(FindColor(x, y, 10726318, 498, 168, 545, 256))then result:= true
end;

function Iron_c5 : boolean;
begin
  if(FindColor(x, y, 10726318, 528, 163, 570, 251))then result:= true
end;

function Iron_d5 : boolean;
begin
  if(FindColor(x, y, 10726318, 636, 168, 663, 277))then result:= true
end;

function Iron_e5 : boolean;
begin
  if(FindColor(x, y, 10726318, 677, 183, 705, 292))then result:= true
end;

function Iron_a6 : boolean;
begin
  if(FindColor(x, y, 10726318, 708, 246, 742, 346))then result:= true
end;

function Iron_b6 : boolean;
begin
  if(FindColor(x, y, 10726318, 437, 165, 478, 254))then result:= true
end;

function Iron_c6 : boolean;
begin
  if(FindColor(x, y, 10726318, 471, 148, 511, 237))then result:= true
end;

function Iron_d6 : boolean;
begin
  if(FindColor(x, y, 10726318, 512, 146, 547, 253))then result:= true
end;

function Ore_Available : boolean;
begin
  if(FindColor(x, y, 10923438, 54, 49, 970, 582))then result:= true
end;

function Player_Close : boolean;
begin
  if(FindColor(x, y, Your Color Here!, x-60, y-60, x+60, y+60))then result:= true
end;

function Switching_Cave_Maps : boolean;
begin
  if(FindColor(x, y, 0, 549, 373, 551, 373))then result:= true
end;

procedure Leave1;
begin
  if(FindColor(x, y, 772351, 759, 305, 793, 335)) or (FindColor(x, y, 426380, 759, 305, 793, 335)) or (FindColor(x, y, 2402506, 759, 305, 793, 335)) or (FindColor(x, y, 40172, 759, 305, 793, 335)) or (FindColor(x, y, 1085345, 759, 305, 793, 335)) or (FindColor(x, y, 43509, 759, 305, 793, 335)) or (FindColor(x, y, 35811, 759, 305, 793, 335)) or (FindColor(x, y, 1678005, 759, 305, 793, 335)) or (FindColor(x, y, 1620454, 759, 305, 793, 335)) or (FindColor(x, y, 34487, 759, 305, 793, 335))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave2;
begin
  if(FindColor(x, y, 772351, 790, 219, 828, 248)) or (FindColor(x, y, 426380, 790, 219, 828, 248)) or (FindColor(x, y, 2402506, 790, 219, 828, 248)) or (FindColor(x, y, 40172, 790, 219, 828, 248)) or (FindColor(x, y, 1085345, 790, 219, 828, 248)) or (FindColor(x, y, 43509, 790, 219, 828, 248)) or (FindColor(x, y, 35811, 790, 219, 828, 248)) or (FindColor(x, y, 1678005, 790, 219, 828, 248)) or (FindColor(x, y, 1620454, 790, 219, 828, 248)) or (FindColor(x, y, 34487, 790, 219, 828, 248))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave3;
begin
  if(FindColor(x, y, 772351, 329, 289, 366, 311)) or (FindColor(x, y, 426380, 329, 289, 366, 311)) or (FindColor(x, y, 2402506, 329, 289, 366, 311)) or (FindColor(x, y, 40172, 329, 289, 366, 311)) or (FindColor(x, y, 1085345, 329, 289, 366, 311)) or (FindColor(x, y, 43509, 329, 289, 366, 311)) or (FindColor(x, y, 35811, 329, 289, 366, 311)) or (FindColor(x, y, 1678005, 329, 289, 366, 311)) or (FindColor(x, y, 1620454, 329, 289, 366, 311)) or (FindColor(x, y, 34487, 329, 289, 366, 311))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave4;
begin
  if(FindColor(x, y, 772351, 659, 288, 697, 312)) or (FindColor(x, y, 426380, 659, 288, 697, 312)) or (FindColor(x, y, 2402506, 659, 288, 697, 312)) or (FindColor(x, y, 40172, 659, 288, 697, 312)) or (FindColor(x, y, 1085345, 659, 288, 697, 312)) or (FindColor(x, y, 43509, 659, 288, 697, 312)) or (FindColor(x, y, 35811, 659, 288, 697, 312)) or (FindColor(x, y, 1678005, 659, 288, 697, 312)) or (FindColor(x, y, 1620454, 659, 288, 697, 312)) or (FindColor(x, y, 34487, 659, 288, 697, 312))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave5;
begin
  if(FindColor(x, y, 772351, 328, 456, 366, 479)) or (FindColor(x, y, 426380, 328, 456, 366, 479)) or (FindColor(x, y, 2402506, 328, 456, 366, 479)) or (FindColor(x, y, 40172, 328, 456, 366, 479)) or (FindColor(x, y, 1085345, 328, 456, 366, 479)) or (FindColor(x, y, 43509, 328, 456, 366, 479)) or (FindColor(x, y, 35811, 328, 456, 366, 479)) or (FindColor(x, y, 1678005, 328, 456, 366, 479)) or (FindColor(x, y, 1620454, 328, 456, 366, 479)) or (FindColor(x, y, 34487, 328, 456, 366, 479))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave4_2nd;
begin
  if(FindColor(x, y, 772351, 330, 289, 367, 309)) or (FindColor(x, y, 426380, 330, 289, 367, 309)) or (FindColor(x, y, 2402506, 330, 289, 367, 309)) or (FindColor(x, y, 40172, 330, 289, 367, 309)) or (FindColor(x, y, 1085345, 330, 289, 367, 309)) or (FindColor(x, y, 43509, 330, 289, 367, 309)) or (FindColor(x, y, 35811, 330, 289, 367, 309)) or (FindColor(x, y, 1678005, 330, 289, 367, 309)) or (FindColor(x, y, 1620454, 330, 289, 367, 309)) or (FindColor(x, y, 34487, 330, 289, 367, 309))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave6;
begin
  if(FindColor(x, y, 772351, 661, 456, 695, 480)) or (FindColor(x, y, 426380, 661, 456, 695, 480)) or (FindColor(x, y, 2402506, 661, 456, 695, 480)) or (FindColor(x, y, 40172, 661, 456, 695, 480)) or (FindColor(x, y, 1085345, 661, 456, 695, 480)) or (FindColor(x, y, 43509, 661, 456, 695, 480)) or (FindColor(x, y, 35811, 661, 456, 695, 480)) or (FindColor(x, y, 1678005, 661, 456, 695, 480)) or (FindColor(x, y, 1620454, 661, 456, 695, 480)) or (FindColor(x, y, 34487, 661, 456, 695, 480))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave4_3rd;
begin
  if(FindColor(x, y, 772351, 660, 457, 698, 479)) or (FindColor(x, y, 426380, 660, 457, 698, 479)) or (FindColor(x, y, 2402506, 660, 457, 698, 479)) or (FindColor(x, y, 40172, 660, 457, 698, 479)) or (FindColor(x, y, 1085345, 660, 457, 698, 479)) or (FindColor(x, y, 43509, 660, 457, 698, 479)) or (FindColor(x, y, 35811, 660, 457, 698, 479)) or (FindColor(x, y, 1678005, 660, 457, 698, 479)) or (FindColor(x, y, 1620454, 660, 457, 698, 479)) or (FindColor(x, y, 34487, 660, 457, 698, 479))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave3_2nd;
begin
  if(FindColor(x, y, 772351, 327, 455, 367, 481)) or (FindColor(x, y, 426380, 327, 455, 367, 481)) or (FindColor(x, y, 2402506, 327, 455, 367, 481)) or (FindColor(x, y, 40172, 327, 455, 367, 481)) or (FindColor(x, y, 1085345, 327, 455, 367, 481)) or (FindColor(x, y, 43509, 327, 455, 367, 481)) or (FindColor(x, y, 35811, 327, 455, 367, 481)) or (FindColor(x, y, 1678005, 327, 455, 367, 481)) or (FindColor(x, y, 1620454, 327, 455, 367, 481)) or (FindColor(x, y, 34487, 327, 455, 367, 481))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Leave2_2nd;
begin
  if(FindColor(x, y, 772351, 296, 372, 334, 396)) or (FindColor(x, y, 426380, 296, 372, 334, 396)) or (FindColor(x, y, 2402506, 296, 372, 334, 396)) or (FindColor(x, y, 40172, 296, 372, 334, 396)) or (FindColor(x, y, 1085345, 296, 372, 334, 396)) or (FindColor(x, y, 43509, 296, 372, 334, 396)) or (FindColor(x, y, 35811, 296, 372, 334, 396)) or (FindColor(x, y, 1678005, 296, 372, 334, 396)) or (FindColor(x, y, 1620454, 296, 372, 334, 396)) or (FindColor(x, y, 34487, 296, 372, 334, 396))then
   begin
    Count:= 0;
    MoveMouseSmooth(x, y);
    Wait(100+random(200));
    HoldMouse(x, y, true);
    Wait(20+random(50));
    ReleaseMouse(x, y, true);
     repeat
      Wait(1);
      Count:= Count + 1;
     until(Switching_Cave_Maps) or (Error2);
      repeat
       Wait(1);
      until(Switching_Cave_Maps = false);
   end;
end;

procedure Mine_a1;
begin
  if(Iron_a1)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_b1;
begin
  if(Iron_b1)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_c1;
begin
  if(Iron_c1)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_d1;
begin
  if(Iron_d1)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_e1;
begin
  if(Iron_e1)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_a2;
begin
  if(Iron_a2)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_b2;
begin
  if(Iron_b2)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_c2;
begin
  if(Iron_c2)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_d2;
begin
  if(Iron_d2)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_e2;
begin
  if(Iron_e2)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3600+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_a3;
begin
  if(Iron_a3)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_a4;
begin
  if(Iron_a4)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_b4;
begin
  if(Iron_b4)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_c4;
begin
  if(Iron_c4)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_d4;
begin
  if(Iron_d4)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_e4;
begin
  if(Iron_e4)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_a5;
begin
  if(Iron_a5)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_b5;
begin
  if(Iron_b5)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_c5;
begin
  if(Iron_c5)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_d5;
begin
  if(Iron_d5)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_e5;
begin
  if(Iron_e5)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_a6;
begin
  if(Iron_a6)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_b6;
begin
  if(Iron_b6)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_c6;
begin
  if(Iron_c6)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

procedure Mine_d6;
begin
  if(Iron_d6)then
   begin
    MoveMouseSmooth(x-4, y+10);
    Wait(100+random(200));
     if(Ore_Available = false)then
      begin
       Mark:= Mark + 1;
      end else
       begin
       Mark:= 0;
       Count:= 0;
       MoveMouseSmooth(x, y);
       Wait(100+random(200));
       HoldMouse(x, y, true);
       Wait(20+random(50));
       ReleaseMouse(x, y, true);
       Wait(100+random(200));
       MoveMouseSmooth(x+27, y+38);
       Wait(100+random(200));
       HoldMouse(x+27, y+38, true);
       Wait(20+random(50));
       ReleaseMouse(x+27, y+38, true);
       MoveMouseSmooth(100, 100);
        repeat
         Wait(1);
         Count:= Count + 1;
        until(Player_Close) or (Error);
         begin
          Wait(3400+random(500)); //Mining Speed +1000
         end;
      end;
   end;
end;

function Full : boolean;
begin
  if(FindColor(x, y, 39168, 394, 683, 396, 685))then result:= true
end;

function Switching_Maps : boolean;
begin
  if(FindColor(x, y, 0, 809, 536, 811, 536))then result:= true
end;

function House_Selection : boolean;
begin
  if(FindColor(x, y, 10338249, 660, 291, 662, 293))then result:= true
end;

function Join : boolean;
begin
  if(FindColor(x, y, 25087, 651, 342, 653, 344))then result:= true
end;

function In_Chest : boolean;
begin
  if(FindColor(x, y, 16777215, 732, 164, 734, 166))then result:= true
end;

function Iron : boolean;
begin
  if(FindColor(x, y, 8816262, 733, 244, 937, 528))then result:= true
end;

function Bag : boolean;
begin
  if(FindColor(x, y, 4096930, 733, 244, 937, 528))then result:= true
end;

procedure Bank;
begin
  if(Full)then
begin
  MoveMouseSmooth(715, 707);
  Wait(100+random(200));
  HoldMouse(715, 707, true);
  Wait(20+random(50));
  ReleaseMouse(715, 707, true);
  Wait(20+random(50));
  HoldMouse(715, 707, true);
  Wait(20+random(50));
  ReleaseMouse(715, 707, true);
repeat
  Wait(1);
until(House_Selection);
  MoveMouseSmooth(478, 315);
  Wait(100+random(200));
  HoldMouse(478, 315, true);
  Wait(20+random(50));
  ReleaseMouse(478, 315, true);
repeat
  Wait(1);
until(Join);
  MoveMouseSmooth(652, 343);
  Wait(100+random(200));
  HoldMouse(652, 343, true);
  Wait(20+random(50));
  ReleaseMouse(652, 343, true);
repeat
  Wait(1);
until(Switching_Cave_Maps);
repeat
  Wait(1);
until(not(Switching_Cave_Maps));
  MoveMouseSmooth(580, 283);
  Wait(100+random(200));
  HoldMouse(580, 283, true);
  Wait(20+random(50));
  ReleaseMouse(580, 283, true);
repeat
  Wait(1);
until(Switching_Cave_Maps);
repeat
  Wait(1);
until(not(Switching_Cave_Maps));
  MoveMouseSmooth(252, 371);
  Wait(100+random(200));
  HoldMouse(252, 371, true);
  Wait(20+random(50));
  ReleaseMouse(252, 371, true);
  Wait(100+random(200));
  MoveMouseSmooth(281, 433);
  Wait(100+random(200));
  HoldMouse(281, 433, true);
  Wait(20+random(50));
  ReleaseMouse(281, 433, true);
repeat
  Wait(1);
until(In_Chest);
  MoveMouseSmooth(913, 197);
  Wait(100+random(200));
  HoldMouse(913, 197, true);
  Wait(20+random(50));
  ReleaseMouse(913, 197, true);
repeat
  Wait(1);
until(Iron);
  MoveMouseSmooth(x, y);
  Wait(100+random(200));
  KeyDown(17);
  Wait(100+random(200));
  HoldMouse(x, y, true);
  Wait(20+random(50));
  ReleaseMouse(x, y, true);
  Wait(20+random(50));
  HoldMouse(x, y, true);
  Wait(20+random(50));
  ReleaseMouse(x, y, true);
  KeyUp(17);
repeat
  Wait(1);
until(not(Iron));
  MoveMouseSmooth(886, 196);
  Wait(100+random(200));
  HoldMouse(886, 196, true);
  Wait(20+random(50));
  ReleaseMouse(886, 196, true);
  Wait(2000+random(500));
  MoveMouseSmooth(756, 266);
  Wait(100+random(200));
  KeyDown(17);
  Wait(100+random(200));
  HoldMouse(756, 266, true);
  Wait(20+random(50));
  ReleaseMouse(756, 266, true);
  Wait(20+random(50));
  HoldMouse(756, 266, true);
  Wait(20+random(50));
  ReleaseMouse(756, 266, true);
  KeyUp(17);
  Wait(2000+random(500));
  MoveMouseSmooth(944, 166);
  Wait(100+random(200));
  HoldMouse(944, 166, true);
  Wait(20+random(50));
  ReleaseMouse(944, 166, true);
  Wait(100+random(200));
  KeyDown(13);
  Wait(20+random(50));
  KeyUp(13);
  Wait(100+random(200));
  SendKeys('lkjasdf'+chr(13));
  Wait(100+random(200));
  SendKeys('k3adfgd'+chr(13));
  Wait(100+random(200));
  SendKeys('kldafd'+chr(13));
  Wait(100+random(200));
  SendKeys('9eafsd'+chr(13));
  Wait(100+random(200));
  MoveMouseSmooth(748, 709);
  Wait(100+random(200));
  HoldMouse(748, 709, true);
  Wait(20+random(50));
  ReleaseMouse(748, 709, true);
  Wait(20+random(50));
  HoldMouse(748, 709, true);
  Wait(20+random(50));
  ReleaseMouse(748, 709, true);
repeat
  Wait(1);
until(Switching_Cave_Maps);
repeat
  Wait(1);
until(not(Switching_Maps));
  MoveMouseSmooth(966, 299);
  Wait(100+random(200));
  HoldMouse(966, 299, true);
  Wait(20+random(50));
  ReleaseMouse(966, 299, true);
repeat
  Wait(1);
until(Switching_Maps);
repeat
  Wait(1);
until(not(Switching_Maps));
  MoveMouseSmooth(968, 400);
  Wait(100+random(200));
  HoldMouse(968, 400, true);
  Wait(20+random(50));
  ReleaseMouse(968, 400, true);
repeat
  Wait(1);
until(Switching_Maps);
repeat
  Wait(1);
until(not(Switching_Maps));
  MoveMouseSmooth(652, 63);
  Wait(100+random(200));
  HoldMouse(652, 63, true);
  Wait(20+random(50));
  ReleaseMouse(652, 63, true);
repeat
  Wait(1);
until(Switching_Maps);
repeat
  Wait(1);
until(not(Switching_Maps));
  MoveMouseSmooth(783, 65);
  Wait(100+random(200));
  HoldMouse(783, 65, true);
  Wait(20+random(50));
  ReleaseMouse(783, 65, true);
repeat
  Wait(1);
until(Switching_Maps);
repeat
  Wait(1);
until(not(Switching_Maps));
  MoveMouseSmooth(651, 65);
  Wait(100+random(200));
  HoldMouse(651, 65, true);
  Wait(20+random(50));
  ReleaseMouse(651, 65, true);
repeat
  Wait(1);
until(Switching_Maps);
repeat
  Wait(1);
until(not(Switching_Maps));
  MoveMouseSmooth(455, 131);
  Wait(100+random(200));
  HoldMouse(455, 131, true);
  Wait(20+random(50));
  ReleaseMouse(455, 131, true);
repeat
  Wait(1);
until(Switching_Maps);
repeat
  Wait(1);
until(not(Switching_Cave_Maps));
end;
end;





begin
repeat
repeat
  repeat
   Mine_a1;
   Fight;
   Bank;
  until(Iron_a1 = false) or (Mark = 1)
   repeat
    Mine_b1;
    Fight;
    Bank;
   until(Iron_b1 = false) or (Mark = 1)
    repeat
     Mine_c1;
     Fight;
     Bank;
    until(Iron_c1 = false) or (Mark = 1)
     repeat
      Mine_d1;
      Fight;
      Bank;
     until(Iron_d1 = false) or (Mark = 1)
     repeat
      Mine_e1;
      Fight;
      Bank;
     until(Iron_e1 = false) or (Mark = 1)
until(Iron_a1 = false) and (Iron_b1 = false) and (Iron_c1 = false) and (Iron_d1 = false) and (Iron_e1 = false) or (Mark = 1)
Leave1;
repeat
  repeat
   Mine_a2;
   Fight;
   Bank;
  until(Iron_a2 = false) or (Mark = 1)
   repeat
    Mine_b2;
    Fight;
    Bank;
   until(Iron_b2 = false) or (Mark = 1)
    repeat
     Mine_c2;
     Fight;
     Bank;
    until(Iron_c2 = false) or (Mark = 1)
     repeat
      Mine_d2;
      Fight;
      Bank;
     until(Iron_d2 = false) or (Mark = 1)
     repeat
      Mine_e2;
      Fight;
      Bank;
     until(Iron_e2 = false) or (Mark = 1)
until(Iron_a2 = false) and (Iron_b2 = false) and (Iron_c2 = false) and (Iron_d2 = false) and (Iron_e2 = false) or (Mark = 1)
Leave2;
repeat
  repeat
   Mine_a3;
   Fight;
   Bank;
  until(Iron_a3 = false) or (Mark = 1)
until(Iron_a3 = false)
Leave3;
repeat
  repeat
   Mine_a4;
   Fight;
   Bank;
  until(Iron_a4 = false) or (Mark = 1)
   repeat
    Mine_b4;
    Fight;
    Bank;
   until(Iron_b4 = false) or (Mark = 1)
    repeat
     Mine_c4;
     Fight;
     Bank;
    until(Iron_c4 = false) or (Mark = 1)
     repeat
      Mine_d4;
      Fight;
      Bank;
     until(Iron_d4 = false) or (Mark = 1)
     repeat
      Mine_e4;
      Fight;
      Bank;
     until(Iron_e4 = false) or (Mark = 1)
until(Iron_a4 = false) and (Iron_b4 = false) and (Iron_c4 = false) and (Iron_d4 = false) and (Iron_e4 = false) or (Mark = 1)
Leave4;
repeat
  repeat
   Mine_a5;
   Fight;
   Bank;
  until(Iron_a5 = false) or (Mark = 1)
   repeat
    Mine_b5;
    Fight;
    Bank;
   until(Iron_b5 = false) or (Mark = 1)
    repeat
     Mine_c5;
     Fight;
     Bank;
    until(Iron_c5 = false) or (Mark = 1)
     repeat
      Mine_d5;
      Fight;
      Bank;
     until(Iron_d5 = false) or (Mark = 1)
     repeat
      Mine_e5;
      Fight;
      Bank;
     until(Iron_e5 = false) or (Mark = 1)
until(Iron_a5 = false) and (Iron_b5 = false) and (Iron_c5 = false) and (Iron_d5 = false) and (Iron_e5 = false) or (Mark = 1)
Leave5;
repeat
  repeat
   Mine_a4;
   Fight;
   Bank;
  until(Iron_a4 = false) or (Mark = 1)
   repeat
    Mine_b4;
    Fight;
    Bank;
   until(Iron_b4 = false) or (Mark = 1)
    repeat
     Mine_c4;
     Fight;
     Bank;
    until(Iron_c4 = false) or (Mark = 1)
     repeat
      Mine_d4;
      Fight;
      Bank;
     until(Iron_d4 = false) or (Mark = 1)
     repeat
      Mine_e4;
      Fight;
      Bank;
     until(Iron_e4 = false) or (Mark = 1)
until(Iron_a4 = false) and (Iron_b4 = false) and (Iron_c4 = false) and (Iron_d4 = false) and (Iron_e4 = false) or (Mark = 1)
Leave4_2nd;
repeat
  repeat
   Mine_a6;
   Fight;
   Bank;
  until(Iron_a6 = false) or (Mark = 1)
   repeat
    Mine_b4;
    Fight;
    Bank;
   until(Iron_b6 = false) or (Mark = 1)
    repeat
     Mine_c4;
     Fight;
     Bank;
    until(Iron_c6 = false) or (Mark = 1)
     repeat
      Mine_d4;
      Fight;
      Bank;
     until(Iron_d6 = false) or (Mark = 1)
until(Iron_a4 = false) and (Iron_b4 = false) and (Iron_c4 = false) and (Iron_d4 = false) or (Mark = 1)
Leave6;
repeat
  repeat
   Mine_a4;
   Fight;
   Bank;
  until(Iron_a4 = false) or (Mark = 1)
   repeat
    Mine_b4;
    Fight;
    Bank;
   until(Iron_b4 = false) or (Mark = 1)
    repeat
     Mine_c4;
     Fight;
     Bank;
    until(Iron_c4 = false) or (Mark = 1)
     repeat
      Mine_d4;
      Fight;
      Bank;
     until(Iron_d4 = false) or (Mark = 1)
     repeat
      Mine_e4;
      Fight;
      Bank;
     until(Iron_e4 = false) or (Mark = 1)
until(Iron_a4 = false) and (Iron_b4 = false) and (Iron_c4 = false) and (Iron_d4 = false) and (Iron_e4 = false) or (Mark = 1)
Leave4_3rd;
repeat
  repeat
   Mine_a3;
   Fight;
   Bank;
  until(Iron_a3 = false) or (Mark = 1)
until(Iron_a3 = false)
Leave3_2nd;
repeat
  repeat
   Mine_a2;
   Fight;
   Bank;
  until(Iron_a2 = false) or (Mark = 1)
   repeat
    Mine_b2;
    Fight;
    Bank;
   until(Iron_b2 = false) or (Mark = 1)
    repeat
     Mine_c2;
     Fight;
     Bank;
    until(Iron_c2 = false) or (Mark = 1)
     repeat
      Mine_d2;
      Fight;
      Bank;
     until(Iron_d2 = false) or (Mark = 1)
     repeat
      Mine_e2;
      Fight;
      Bank;
     until(Iron_e2 = false) or (Mark = 1)
until(Iron_a2 = false) and (Iron_b2 = false) and (Iron_c2 = false) and (Iron_d2 = false) and (Iron_e2 = false) or (Mark = 1)
Leave2_2nd
until(false)
end.