#Persistent
Run http://www.elmasryy.com/f8-montada
MsgBox, by seto kiba
SetTimer, PressTheKey, 500
Return

PressTheKey:
Send, {Space}
Return

SetTimer, masry, 500
Return

masry:
Send,{Click down}
Return

gosub, end
!q::ExitApp                  ; Alt+Q to Quit
Pause::Pause                  ; Pause using the Pause Button
end:
ExitApp

HotKeySet("{F9}","BotOnOff")
HotKeySet("{F11}","GetPixel")
HotKeySet("{F10}","ExitApp")
Tooltip("F9 = Start, F10 = Close", 0, 0)
Dim $shoot = False
Dim $drop = False
$WinTitle = _GetHwnd("conquer.exe")
$H= ControlGetHandle($WinTitle,"???", 1021)
Func _GetHwnd($id,$txt="")  ;Retrieve Hwnd of process
    $proc = 0
    If _IsPIDOrProc($id) Then
        $proc = _PIDOrProcToHwnd($id)
    ElseIf _IsWinTitle($id,$txt) Then
        $proc = _WinTitleToHwnd($id,$txt)
    EndIf
    Return $proc
EndFunc

Func _IsPIDOrProc(ByRef $id)  ;Is running PID or Processname
    If Not ProcessExists($id) Then
        Return 0
    Else
        Return $id
    EndIf
EndFunc

Func _IsWinTitle(ByRef $id,$txt="")  ;Is running Window Title
    $win = WinGetTitle($id,$txt)
    If Not $win Then Return 0
    $id = $win
    Return 1
EndFunc

Func _IsWinVisible($handle)  ;Is Window Visible
    If BitAnd( WinGetState($handle), 2 ) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Func _PIDOrProcToHwnd($proc)  ;Convert PID or process to Hwnd
    If ProcessExists($proc) <> $proc Then
        $proclist = ProcessList($proc)
        $proc = $proclist[1][1]
    EndIf
    $var = WinList() 
    For $i = 1 to $var[0][0]  ;Pair PID/Process with Window Title
        If $var[$i][0] <> "" AND _IsWinVisible($var[$i][1]) Then
            If WinGetProcess($var[$i][0]) = $proc Then $proc = WinGetHandle($var[$i][0])
        EndIf
    Next
    Return $proc
EndFunc

Func _WinTitleToHwnd($proc,$txt="")  ;Convert Window title to Hwnd
    $winlist = WinList($proc,$txt)
    If Not $winlist[0][0] Then Return -1
    Return $winlist[1][1]
EndFunc


Func BotOnOff()
  If $shoot = False Then
      $shoot = True
      ToolTip("Shooting; F9 = Stop",0,0)
  Else
      $shoot = False
      Tooltip("F9 = Start, F10 = Close", 0, 0)
  EndIf
  EndFunc
  Func GetPixel()
$MPos = MouseGetPos()
    MsgBox ( 0, "MSG", "MousePos: "& $MPos[0] &", " & $MPos[1])
Sleep(500)
EndFunc
Func ExitApp()
  Exit
EndFunc
While True
    If $shoot = True Then
        Dim $t = PixelSearch(1103,598,1148,642,5331033)
        if not @error Then
            sleep(Random(20000,20500,1))
            ControlClick($WinTitle,"",$H,"left",1,random(19,25,1),random(20,26,1))
            sleep(Random(200,500,1))
        EndIf
        ControlClick($WinTitle,"XP2","Button2","right",1,random(200,994,1),random(126,650,1))
        sleep(Random(400,1000,1))
    EndIf
    WEnd