program RUNME;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}

var
  i, i2, i3, OreXP, FailedDrops, LoadsDone, rI, rI2, x, y, Color, Tolerance, image : Integer;
  SatMod, HueMod, ColorSettings, Calcs: Extended;
  ScreenBounds: TBox;
  TPA, TPA2 : TPointArray;
  ATPA, ATPA2 : T2DPointArray;

const
  //Fill Out These Forms To Start Mining!
  ORE = 'COAL'; // All caps!
  ORESTOMINE = 5000;

  P_USERNAME = '';
  P_PASSWORD = '';
  P_NICKNAME = '';
  P_MEMBER = false;
  P_PIN = '';
  P_LAMPSKILL = SKILL_MINING;

procedure declarePlayer();
begin
  Me.Name := P_USERNAME;
  Me.Pass := P_PASSWORD;
  Me.Pin := P_PIN;
  Me.Nick := P_NICKNAME;
  Me.LampSkill := P_LAMPSKILL;
  Me.Member := P_MEMBER;
  Me.Active := True;
end;

procedure DoAntiBan();
var
  cases: Integer;
begin
  case cases := random(14) of
    1..4: hoverSkill('mining', false);
    5..6: SleepAndMoveMouse(1500 + random(3000));
    7..14:
    begin
      MMouseOffClient('rand');
      wait(1800 + random(5000));
    end;
    0: wait(((120 + random(120)) * 1000) + random(4000));
  end;
end;

procedure DoAntiBan2();
var
  cases: integer;
begin
  case cases := random(20) of
    0: wait(19000 + random(60000));
    1..6:
    begin
      MMouseOffClient('rand');
      wait(1800 + random(5000));
    end;
    7..11: randomRClick();
    12..19: hoverSkill('mining', false);
  end;
end;

function FindOre(): boolean;
begin
  SetColorToleranceSpeed(2);
  case (ORE) of
    'IRON':
      begin
        Color := 2372175;
        Tolerance := 2;
        SetToleranceSpeed2Modifiers(0.31, 0.70);
        OreXP := 35;
      end;
    'COAL':
      begin
        Color := 1582887;
        Tolerance := 5;
        SetToleranceSpeed2Modifiers(0.00, 0.88);
        OreXP := 50;
      end;
  end;
  if FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, MSX1, MSY1, MSX2, MSY2, Tolerance) then
  begin
    result := true;
    ATPA := ClusterTPAEx(TPA, 30, 30);
    FilterTPADist(TPA, 10);
    SortATPASize(ATPA, True);
  end;
end;

Function FindEmptyOre() : boolean;
begin
  SetColorToleranceSpeed(2);
  if FindColorsSpiralTolerance(MSCX, MSCY, TPA2, 3487032, MSX1, MSY1, MSX2, MSY2, 6) then
  begin
    result := true;
    ATPA2 := ClusterTPAEx(TPA2, 30, 30);
    FilterTPADist(TPA2, 10);
    SortATPASize(ATPA2, True);
  end;
end;


procedure Proggy();
begin
  ClearDebug();
  Writeln('[======================================================]');
  Writeln('|       Joopii´s AIO Miner            ');
  Writeln('|       -------------------            ');
  WriteLn('|'+'       ' + intToStr((LoadsDone * 27) - FailedDrops) + ' Ores Mined');
  WriteLn('|'+'       ' + 'Time Run: ' + TimeRunning());
  WriteLn('|'+'       ' + floatToStr((( 3600000 / getTimeRunning()) * ((LoadsDone * 27) - FailedDrops)) * OreXP) + ' XP / H');
  Writeln('[======================================================]');
end;

procedure WaitWhileMining();
begin
rI := 0;
  repeat
    wait(270 + random(250));
    rI := rI + 1;
  until (getInvCount() = i) or (rI > 4);
  i3 := randomrange(0,10);
  if i3 > 9 then
  begin
    writeLn('Doing Antiban.');
    DoAntiBan2();
  end;
  i := GetInvCount();
  if isInvFull then
    exit();
  while CountColorTolerance(Color, MSX1, MSY1, MSX2, MSY2, Tolerance) < 20 do
    wait(200 + random(200));
end;

procedure MineOres();
begin
  MouseSpeed := 7;
  repeat
    i := getInvCount();
    rI := 0;
    getMousePos(x, y);
    if isUpTextMulti(['Min', 'ine', 'Roc', 'ocks']) and FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, (x - 15), (y - 15), (x + 15), (y + 15), Tolerance) then
    begin
      FastClick(MOUSE_LEFT);
      i := (i + 1);
      if FindEmptyOre() then
        missMouse(middleTPA(ATPA2[0]), 8, 6);
      WaitWhileMining();
    end else
    if isUpTextMulti(['Attack', 'ttack', 'Atta']) then
    begin
      FastClick(MOUSE_RIGHT);
      if ChooseOption('Mine') then
        i := (i + 1);
      if FindEmptyOre() then
        missMouse(middleTPA(ATPA2[0]), 8, 6);
      WaitWhileMining();
      end;

    if FindOre() and (i < 28) then
    begin
      Wait(250 + random(200));
      missMouse(middletpa(atpa[0]), 8, 6);
    end;

  until IsInvFull();
  LoadsDone := (LoadsDone + 1);
  i2 := randomrange(1, 23);

  if i2 < 18 then
  begin
    writeLn('Doing Antiban.');
    DoAntiBan();
  end;
end;

procedure DropItems();
begin
  MouseSpeed := 11;
  i := 1;
  if IsInvFull() then
    repeat
      i := (i + 1);
      interactSlot(i, false);
      wait(200 + random(200));
      case rI := random(22) of
        1..21: chooseOption('Drop');
        22:
          begin
            chooseOption('amine');
            i := (i - 1);
          end;
      end;
    until i = 28;
  FailedDrops := (FailedDrops + (GetInvCount() - 1));
end;


begin
  DeclarePlayer();
  initAL();
  LoginPlayer(false);
  repeat
    MineOres();
    proggy();
    DropItems();
  until LoadsDone = ORESTOMINE;
end.