; Press Esc to terminate script, Pause/Break to "pause"
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
Global $Paused, $Runner
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "ShowMe")

$VAR1 = 1
$VAR2 = 0
$VAR3 = 0

;;;; Body of program would go here ;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Func ShowMe()
    $Runner = Not $Runner
    While $Runner
        Sleep(400)
   WinActivate("PPSSPP")
         Sleep (500)
   Send ("{PRINTSCREEN}")
   Sleep (1000)
   MouseClickDrag($MOUSE_CLICK_LEFT, 808, 114, 938, 284)
   Sleep (500)
   MouseMove (895, 304)
   Sleep (200)
   MouseClick ("left")
   Sleep (200)
   Send($VAR3)
   Sleep (200)
   Send($VAR2)
   Sleep (200)
   Send($VAR1)
   Sleep (200)
   Send ("{ENTER}")
   Sleep (200)
   	ProcessClose("Lightshot.exe")
	Sleep(1000)
   WinActivate("PPSSPP")
   Sleep (600)
   MouseMove(1170,155)
   Sleep (200)
   MouseDown("LEFT")
   Sleep (200)
   MouseUp("LEFT")
   Sleep(200)
   Send("^!2")
   Sleep(2000)

   $VAR1+=1
   If $VAR1=10 Then
	   	$VAR1=0
		$VAR2+=1
   EndIf

   If $VAR2=10 Then
		$VAR2=0
		$VAR3+=1
   EndIf
   	Local $Count = InputBox("Question", "What Card are you on?", "", "", _
			 - 1, -1, 0, 0)
   Sleep (1000)
   Send($VAR3)
   Sleep (200)
   Send($VAR2)
   Sleep (200)
   Send($VAR1)
   Sleep(200)
   Send("{ENTER}")
   If $Count=36 then
	   $VAR1+=1
   EndIf
   If $Count=53 then
	   $VAR1+=1
   EndIf
   If $Count=101 then
	   $VAR1+=1
   EndIf
   If $Count=133 then
	   $VAR1+=1
   EndIf
   If $Count=145 then
	   $VAR1+=1
   EndIf
   If $Count=172 then
	   $VAR1+=1
   EndIf
   If $Count=182 then
	   $VAR1+=1
   EndIf
   If $Count=199 then
	   $VAR1+=1
   EndIf
   If $Count=265 then
	   $VAR1+=1
   EndIf
   If $Count>=565 then
	   $VAR1+=1
   EndIf



    WEnd
EndFunc   ;==>ShowMe