รบกวนพี่ๆช่วยชี้จุดบกพร่องของสคลิปนี้ให้หน่อยครับ
แบบว่าหามอนที่สี 0x182029 ใน 267,126,1024,559 แล้วเช็คที่สี 0xBD1818 ถ้ายังไม่หายให้กด 1 ต่อ ทีนี้ผมลองรันสคิปแล้วที่สี 0xBD1818 ใน 558,75,710,97 ยังไม่ทันหายไปเลยมานดันไปคลิ๊กที่สี 0x182029 ใหม่ต่อเลยครับ ในพื้นที่ 267,126,1024,559 (สี 0xBD1818 พื้นที่ใน 558,75,710,97 คือบริเวณหลอด hp ของมอนครับ) พี่ๆช่วยแนะนำด้วยครับ
หมายเหตุ ต้องการให้ตีตัวที่ 1 จนจบก่อนแล้วค่อยหาตัวใหม่ต่อครับ
While 1
$coord = PixelSearch( 267,126, 1024,559, 0x182029 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
ControlSend($GameHD, "", "", "1")
While PixelGetColor("",$coord[0] , $coord[1])=PixelSearch( 558,75, 710,97, 0xBD1818 )
ControlSend($GameHD, "", "", "1")
WEnd
EndIf
Sleep (10)
ControlSend($GameHD, "", "", "5")
Sleep(10)
ControlSend($GameHD, "", "", "6")
Sleep(10)
ControlSend($GameHD, "", "", "7")
Sleep(10)
MouseClick("left",627,555,1,10)
Sleep (50)
MouseClick("left",627,555,1,10)
Sleep (100)
If PixelGetColor(130, 98) = 0x525131 Then
Send("q")
EndIf
Sleep(100)
If PixelGetColor(101, 110) = 0x525131 Then
Send("w")
EndIf
Sleep(100)
If PixelGetColor(117, 146) = 0x5A5539 Then
Send("e")
EndIf
Sleep(100)
If PixelGetColor(148, 161) = 0x5A5142 Then
Send("r")
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0xD600AD )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0xE77510 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0x944500 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0x522C00 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
WEnd
แบบว่าหามอนที่สี 0x182029 ใน 267,126,1024,559 แล้วเช็คที่สี 0xBD1818 ถ้ายังไม่หายให้กด 1 ต่อ ทีนี้ผมลองรันสคิปแล้วที่สี 0xBD1818 ใน 558,75,710,97 ยังไม่ทันหายไปเลยมานดันไปคลิ๊กที่สี 0x182029 ใหม่ต่อเลยครับ ในพื้นที่ 267,126,1024,559 (สี 0xBD1818 พื้นที่ใน 558,75,710,97 คือบริเวณหลอด hp ของมอนครับ) พี่ๆช่วยแนะนำด้วยครับ
หมายเหตุ ต้องการให้ตีตัวที่ 1 จนจบก่อนแล้วค่อยหาตัวใหม่ต่อครับ
While 1
$coord = PixelSearch( 267,126, 1024,559, 0x182029 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
ControlSend($GameHD, "", "", "1")
While PixelGetColor("",$coord[0] , $coord[1])=PixelSearch( 558,75, 710,97, 0xBD1818 )
ControlSend($GameHD, "", "", "1")
WEnd
EndIf
Sleep (10)
ControlSend($GameHD, "", "", "5")
Sleep(10)
ControlSend($GameHD, "", "", "6")
Sleep(10)
ControlSend($GameHD, "", "", "7")
Sleep(10)
MouseClick("left",627,555,1,10)
Sleep (50)
MouseClick("left",627,555,1,10)
Sleep (100)
If PixelGetColor(130, 98) = 0x525131 Then
Send("q")
EndIf
Sleep(100)
If PixelGetColor(101, 110) = 0x525131 Then
Send("w")
EndIf
Sleep(100)
If PixelGetColor(117, 146) = 0x5A5539 Then
Send("e")
EndIf
Sleep(100)
If PixelGetColor(148, 161) = 0x5A5142 Then
Send("r")
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0xD600AD )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0xE77510 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0x944500 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
$coord = PixelSearch( 267,126, 1024,559, 0x522C00 )
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
WEnd