ทำไมตีตัวเดียว แล้วจบสคริปเลย ไม่วนตีอื่น
คือถ้าเอา ExitLoop ออก
มันก็จะวนตีตัวอื่นไปเรื่อย ม่อนยังไม่ทันตาย
ผมควรต้องแก้ไขยังครับ
คือถ้าเอา ExitLoop ออก
มันก็จะวนตีตัวอื่นไปเรื่อย ม่อนยังไม่ทันตาย
ผมควรต้องแก้ไขยังครับ
- Code:
#include <Constants.au3>
#include <WinAPI.au3>
HotKeySet("{ESC}","_exit")
HotKeySet("{F1}","_TogglePause")
Global $Paused
Global $GameHD, $GameHD2
;Global $monster[3] = [0xACEAE9,0xC7CB4E,0x617C45]
Global $colormon1 = 0xACEAE9
_TogglePause()
Func _TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip('Script is "Working"',0,0)
_StartBot()
EndFunc
Func _exit()
Exit 0
EndFunc
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
$GameHD2 = _WinAPI_GetWindow($GameHD, $GW_CHILD)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc
Func _StartBot()
While 1
sleep(80)
If _PSsixLoadH("xxxxx") Then WinActivate($GameHD)
;For $i = 0 To UBound($monster)-1
$coord = PixelSearch(400,230, 1000, 580,$colormon1)
ConsoleWrite('หาสี = ' &Hex($colormon1,6) & @error & @crlf)
If IsArray($coord) Then
ConsoleWrite(' เจอที่ = ' & $coord[0]&'x' & $coord[1] &' ' & @error &' '& @crlf)
ToolTip(' Found monster at ' & $coord[0] & ' '& $coord[1],0,0)
MouseClick("",$coord[0],$coord[1],1,0)
ExitLoop
EndIf
;Next
WEnd
EndFunc