; EDGE2 H flip copy right to left.
;
; 2019/12/11 by mieki256

HotKeySet("{ESC}", "Terminate")

Const $wdwtitle = "EDGE2"
Const $kwait = 100

Dim $keylist[13]
$keylist[0] = "!s"      ; Selection (Alt + S)
$keylist[1] = "l"       ; Create selection by coordinates
$keylist[2] = "{ENTER}" ; Enter
$keylist[3] = "^c"      ; Copy (Ctrl + C)
$keylist[4] = "^v"      ; Paste (Ctrl + V)
$keylist[5] = "!s"      ; Selection (Alt + S)
$keylist[6] = "p"       ; Move selection
$keylist[7] = "s"       ; Move by size
$keylist[8] = "l"       ; Move left by width
$keylist[9] = "{ALT}"   ; Alt key
$keylist[10] = "i"      ; Image
$keylist[11] = "h"      ; H flip
$keylist[12] = "^d"     ; Cancel selection (Ctrl + D)

Dim $wdw, $state

If WinExists($wdwtitle) == 0 Then
    MsgBox(0, "State", $wdwtitle & " Not found")
    Exit 0
EndIf

$wdw = WinActivate($wdwtitle)

If $wdw == 0 Then
    MsgBox(0, "State", $wdwtitle & " not activate")
    Exit 0
EndIf

$state = WinGetState($wdw)
If Not BitAND($state, 4) Then
    MsgBox(0, "State", $wdwtitle & " is control disable.")
EndIf

; Send keys
For $i = 0 to 12 Step 1
    Send($keylist[$i])
    Sleep($kwait)
Next

Exit 0

Func Terminate()
    Exit 0
EndFunc