#include #include #include #include #include #include #include "ImageSearch.au3" AutoItSetOption('MouseCoordMode', 0) HotKeySet("/", "Carnival") HotKeySet("`", "_Terminate") Global $SleepFast = 500, $SleepNormal = 1000, $Sleepsec =1000, $Sec = 1000, $Min = 60000, $Hour = 360000 Local $Carnival, $Carnival_X, $Carnival_Y Local $NO_ExitX, $NO_ExitY, $Image =1, $Image_Dowhile_Loop_Break =0 While 1 Carnival() WEnd Func Carnival() Switch $Image Case 1 sleep(100) Do Local $Carnival = _ImageSearch('Carnival_Image_1920\Carnival.png', 1, $Carnival_X, $Carnival_Y, 100) If $Carnival = 1 Then MouseMove($Carnival_X, $Carnival_Y, 2) MouseClick("left", $Carnival_X, $Carnival_Y, 1) sleep($SleepNormal) $Image = $Image + 1 $Image_Dowhile_Loop_Break = 0 Else ;Send("{ESC}")) sleep($SleepFast) ;MsgBox($MB_SYSTEMMODAL, "Title", "Exit Not Found ", 1) $Image_Dowhile_Loop_Break = $Image_Dowhile_Loop_Break + 1 EndIf Until $Carnival = 1 Or $Image_Dowhile_Loop_Break = 20 If $Image_Dowhile_Loop_Break = 20 Then $Image_Dowhile_Loop_Break = 0 ;MsgBox(0, "Selection" , $Image_Dowhile_Loop_Break & @CRLF & $Image_Dowhile_Loop_Break) $Image = $Image + 1 ;MsgBox(0, "Selection" , $Image_Dowhile_Loop_Break & @CRLF & $Image) Else Sleep(100) EndIf Case 2 MsgBox($MB_SYSTEMMODAL, "Title", "Case 2 Running", 1) $Image = $Image + 1 Case 3 MsgBox($MB_SYSTEMMODAL, "Title", "Case 3 Running", 1) $Image_Dowhile_Loop_Break = $Image_Dowhile_Loop_Break + 1 If $Image_Dowhile_Loop_Break = 5 Then $Image_Dowhile_Loop_Break = 0 ;MsgBox(0, "Selection" , $Image_Dowhile_Loop_Break) Send("{`}") Else Sleep(100) ;MsgBox(0, "Selection" , $Image_Dowhile_Loop_Break) EndIf EndSwitch EndFunc Func _Terminate() MsgBox($MB_SYSTEMMODAL, "", "Carnival Task Ending", 1) Exit EndFunc ;==>_Terminate