HotKeySet("{F2}","onoff")
HotKeySet("{F4}","exitapp")
HotKeySet("{F1}","record1")

Dim $mpos, $pos
$click = False
$count = 0

Func exitapp()
   Exit
EndFunc


    WinWait("UCClient")
Func record1()
    $mpos = MouseGetPos()
EndFunc

Func onoff()
   If $click = False Then
      $click = True
   Else
      $click = False
   EndIf
EndFunc
While True
    $pos = WinGetPos("UCClient")
    If @error Then
        MsgBox(0,"Error","Window not found.")
        Sleep(3000)
    EndIf

    If $click = True Then
$count = 0
    MouseClick("left",$mpos[0],$mpos[1],1,0)
    Send("/mine{ENTER}")
        While $count < 1
            $coords = PixelSearch(($pos[0]+$pos[2]),($pos[1]+$pos[3]),$pos[0],$pos[1],0x00C091,1)
            If Not @error Then
            MouseClick("left",$coords[0],$coords[1],1,0)
            $count = $count + 1
            EndIf
        WEnd
    EndIf
WEnd