มันต้องแก้ค่าอะไรบ้างครับ พอย่อหน้าจอลงมา หน้าจอที่ย่อมันก็ไม่ยอมทำงาน เลยครับ (ผมใช้ chrome ในการเล่น)
ผมทดสอบหลายวิธีแล้ว นี่โค้ดที่ผมนำมาดัดแปลงครับ
Global $GameHD
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("xxxxxxx") Then WinActivate($GameHD)
HotKeySet("{ESC}", "stop")
Func stop()
ToolTip('หยุดการทำงาน', 0, 0)
Sleep(500)
Exit
EndFunc
While Sleep(100)
_A() ; ค้นหามอนสเตอร์
_B() ;โจมตีมอนสเตอร์
_C() ; เช็ค HP MP
WEnd
Func _A()
While Sleep(100)
$coord = PixelSearch(27, 201, 1060, 924, 0x3B4743)
If Not @error Then
MouseClick("", $coord[0], $coord[1])
Return
EndIf
WEnd
EndFunc ;==>_A
Func _B()
Do
$monster = PixelGetColor(813, 379) ;;;ใส่พิกัดที่จะตรวจหาเลือดของมอนเตอร์ลงไป
_C() ; เช็ค HP MP
Send("1") ;ส่งค่าคีย์
Sleep(500)
_C(); เช็ค HP MP
Send("2") ;ส่งค่าคีย์
Sleep(500)
Until $monster <> 0xBE1C20 ;ใส่รหัสสีเลือดของมอนเตอร์ ถ้าดึงเอาค่ามีออกมาแล้ว ไม่ตรงกับสีเลือดแสดงว่าไม่มีมอนเตอร์อยู่ ต้องเริ่มหาใหม่
EndFunc ;==>_B
Func _C()
$HP = PixelGetColor(177, 130) ;;;ใส่พิกัดที่จะตรวจหาเลือดของคุณลงไป หากไม่พบสีที่กำหนดแสดงว่าเลือดหายไป ต้องกดยาหรือของเพิ่มเลือด
If $HP <> 0x5A553A Then ;ใส่รหัสสีของเลือดลงไป
Send("q") ;ส่งค่าคีย์ สำหรับกดของเพิ่มเลือด
Sleep(1000)
EndIf
EndFunc ;==>_C
ผมทดสอบหลายวิธีแล้ว นี่โค้ดที่ผมนำมาดัดแปลงครับ
Global $GameHD
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("xxxxxxx") Then WinActivate($GameHD)
HotKeySet("{ESC}", "stop")
Func stop()
ToolTip('หยุดการทำงาน', 0, 0)
Sleep(500)
Exit
EndFunc
While Sleep(100)
_A() ; ค้นหามอนสเตอร์
_B() ;โจมตีมอนสเตอร์
_C() ; เช็ค HP MP
WEnd
Func _A()
While Sleep(100)
$coord = PixelSearch(27, 201, 1060, 924, 0x3B4743)
If Not @error Then
MouseClick("", $coord[0], $coord[1])
Return
EndIf
WEnd
EndFunc ;==>_A
Func _B()
Do
$monster = PixelGetColor(813, 379) ;;;ใส่พิกัดที่จะตรวจหาเลือดของมอนเตอร์ลงไป
_C() ; เช็ค HP MP
Send("1") ;ส่งค่าคีย์
Sleep(500)
_C(); เช็ค HP MP
Send("2") ;ส่งค่าคีย์
Sleep(500)
Until $monster <> 0xBE1C20 ;ใส่รหัสสีเลือดของมอนเตอร์ ถ้าดึงเอาค่ามีออกมาแล้ว ไม่ตรงกับสีเลือดแสดงว่าไม่มีมอนเตอร์อยู่ ต้องเริ่มหาใหม่
EndFunc ;==>_B
Func _C()
$HP = PixelGetColor(177, 130) ;;;ใส่พิกัดที่จะตรวจหาเลือดของคุณลงไป หากไม่พบสีที่กำหนดแสดงว่าเลือดหายไป ต้องกดยาหรือของเพิ่มเลือด
If $HP <> 0x5A553A Then ;ใส่รหัสสีของเลือดลงไป
Send("q") ;ส่งค่าคีย์ สำหรับกดของเพิ่มเลือด
Sleep(1000)
EndIf
EndFunc ;==>_C