Function IsTextAtFromMouse(x, y, Chars: Integer; S: String): Boolean;
var
mx, my: Integer;

begin
  GetMousePos(mx, my);
  Result := IsTextAtEx(mx + x, my + y, S, 0, Chars , False, False, 0, 1, $FFFFFF);
end;

Function IsEvent(dx, dy, Row, Offset, Chars: Integer; S: String): Boolean;
var
x, y: Integer;

begin
  IsTextInAreaEx(dx div 2, dy - 200, dx, dy, x, y, 'Eve', 0, Chars, False, False, 0, 1, $FFFFFF);
  Result := IsTextAtEx(x + 52 + Offset, y + (Row * 16), S, 0, Chars, False, False, 0, 1, $FFFFFF);
end;

Procedure Init(var dx, dy, stx, sty, wax, way, Chars: Integer; var Error: Boolean; var ErrorMsg: String; Client: String);
var
x, y: Integer;

begin
  if not(GetSCARVersion = 203)then
  begin
    ErrorMsg := 'Error: you do not have the required software, please';
    Error := True;
    exit;
  end else if not(FindWindowTitlePart(Client, True))then
  begin
    ErrorMsg := 'Error: Could not find the client specified.';
    Error := True;
    exit;
  end;
  ActivateClient;
  GetClientDimensions(dx, dy);
  SetMouseMode(False);
  if(IsFontSmoothingEnabled)then SetFontSmoothing(False);
  Chars := LoadCharsFromFont2('Arial', 8, False, False, False, False);
  Error := False;
  if(IsTextInAreaEx(0, 0, dx, dy, x, y, 'water', 0, Chars, False, False, 0, 1, $FFFFFF))then
  begin
    wax := x + 10;
    way := y + 5;
  end else
  begin
    Error := True;
    ErrorMsg := 'Error: Failed to find Water Coordinates, please make sure invetory is open.';
    exit;
  end;
  if(IsTextInAreaEx(0, 0, dx, dy, x, y, 'steak', 0, Chars, False, False, 0, 1, $FFFFFF))then
  begin
    MoveMouseSmooth(x, y);
    Wait(100);
    if(IsTextAtFromMouse(15, 4, Chars, 'Pi'))then
    begin
      stx := x + 10;
      sty := y + 20;
    end else if(IsTextAtFromMouse(15, 4, Chars, 'steak'))then
    begin
      stx := x;
      sty := y;
    end;
  end else
  begin
    Error := True;
    ErrorMsg := 'Error: Failed to find Steak Coordinates, please make sure invetory is open.';
    exit;
  end;
end;

Procedure FindBars(var px, py, nx, ny, fx, fy, wx, wy: Integer; dx, dy: Integer);
begin
  FindColorTolerance(px, py, 2694943, dx div 2, dy - 100, (dx div 2) + 20, dy, 0);
  FindColorTolerance(nx, ny, 3644729 , dx - 200, 0, dx, dy, 25);
  FindColorTolerance(fx, fy, 3043228, dx - 200, 0, dx, dy, 25);
  FindColorTolerance(wx, wy, 10971947, dx - 200, 0, dx, dy, 15);
end;

Procedure FindTile(var TileX, TileY: Integer; dx, dy, Chars: Integer; Tile: String);
var
x, y, rep, n: Integer;
begin
  MoveMouseSmooth(dx div 2, dy div 2);
  while not(IsTextAtFromMouse(15, 4, Chars, Tile))and(rep < 150)do
  begin
    GetMousePos(x, y);
    if(x < 100)or(y < 100)or(x > dx - 200)or(y > dy - 160)or(n > 14)then
    begin
      MoveMouseSmooth(dx div 2 + Random(3), dy div 2 - Random(3));
      GetMousePos(x, y);
      n := 2;
    end;
    MoveMouseSmooth(x + (n * Random(10)), y - (n * Random(10)));
    wait(150);
    if(IsTextAtFromMouse(15, 4, Chars, Tile)) then break;
    GetMousePos(x, y);
    MoveMouseSmooth(x - Random(2), y + (n * Random(15)));
    wait(150);
    if(IsTextAtFromMouse(15, 4, Chars, Tile)) then break;
    GetMousePos(x, y);
    MoveMouseSmooth(x - (n * Random(10)), y + Random(2));
    wait(150);
    if(IsTextAtFromMouse(15, 4, Chars, Tile)) then break;
    GetMousePos(x, y);
    MoveMouseSmooth(x - Random(2), y - (n * Random(10)));
    wait(150);
    if(IsTextAtFromMouse(15, 4, Chars, Tile))then break;
    wait(150);
    rep := rep + 1;
    n := n + 1;
  end;
  GetMousePos(TileX, TileY);
end;

Procedure GetMenu(var ErrorMsg: String; var Error: Boolean; x, y, dx, dy, px, py, nx, ny, Option, SubOption, Chars: Integer; Name: String; Progress, Stamina: Boolean);
var
xx, m, yy, rep: Integer;

begin
   MoveMouseSmooth(x, y);
   Wait(300);
   if not(IsTextAtFromMouse(15, 4, Chars, Name))then
   begin
     ErrorMsg := 'Error: Could not find Object! Please edit your constants';
     Error := True;
     exit;
   end;
   while not(IsTextAtFromMouse(-4 ,-14, Chars, Name))do
    begin
      ClickMouse(x, y, False);
      Wait(200);
    end;
    while not(IsTextInAreaEx(x, y, dx - 20, dy - 20, xx, yy, 'this?', 0, Chars, False, False, 0, 1, $FFFFFF))do Wait(100);
    MoveMouse(x, y + 6);
    Wait(100);
    while(FindColorTolerance(xx, yy, 16777215, x + m, y, x + m, y + 2, 0))do m := m + 10;
    GetMousePos(x, y);
    Option := Option - 1;
    MoveMouseSmooth(x, y + (Option * 16));
    Wait(100);
    GetMousePos(x, y);
    if not(SubOption = 0)then
    begin
      SubOption := SubOption - 1;
      MoveMouse(x + m + 10, y);
      Wait(100);
      GetMousePos(x, y);
      MoveMouseSmooth(x, y + (SubOption * 16));
      Wait(100);
      GetMousePos(x, y);
    end;
    if(Progress)then while(GetColor(px, py) = 13408665)do Wait(100);
    if(Stamina)then while not(FindColorTolerance(xx, yy, 3644729, nx, ny , nx, ny + 1, 50))do Wait(100);
    ClickMouse(x, y, True);
    if(Progress)then
    begin
      while(FindColor(x, y, 2694943, px, py, px, py))and(rep < 10)do
      begin
        wait(500);
        rep := rep + 1;
      end;
    end;
end;

Procedure DoubleClick(x, y: Integer);
begin
MoveMouseSmoothEx(x, y, 2, 4, 51, 18, 9);
Wait(50);
ClickMouse(x, y, True);
Wait(20);
ClickMouse(x, y, True);
end;

Procedure DragMouse(x1, y1, x2, y2: Integer; Left: Boolean);
begin
HoldMouse(x1, y1, Left);
MoveMouseSmoothEx(x2, y2, 2, 4, 51, 18, 9);
Wait(100);
ReleaseMouse(x2, y2, Left);
end;

{Procedure ReportStatistics(Count: Integer; ST: LongInt);
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';
  if(Count > 0)then
    AvTime := Seconds/Count;
  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;
  ClearReport;
  AddToReport('Ultra Miner v0.6_134_01');
  AddToReport('I have mined a total of ' + IntToStr(StatOre) + ' ores.');
  AddToReport('I have broken through ' + IntToStr(StatFwd) + ' walls.');
  AddToReport('I have consumed water ' + IntToStr(StatDrink) + ' times.');
  AddToReport('I have eaten steak ' + IntToStr(StatEat) + ' times.');
  AddToReport('I have gotten my pickaxe stuck ' + IntToStr(StatStuck) + 'times.');
  AddToReport('I am averaging ' + IntToStr(avtime) + ' seconds per Ore.');
  AddToReport('I have been mining for ' + Time + '.');
end;  }

Procedure ExitOut;
begin
 ActivateClient;
    SendKeysVB('{F12}', true);
    Wait(5000);
    SendKeys(#13);
end;

Procedure FreeItem(dx, dy, row, offset, Chars: Integer; one: String);
begin
end;