ฟอรั่มของบล็อก http://pssix.blogspot.com


ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

Share

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 22/12/11, 10:27 am

ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ พอดีลองฝึกทำตามที่ท่าน pos บอกไว้หน้าเวป รันดูมันก็ยิงได้ล่ะ แต่ติดตรงที่มันยิงมั่วอะครับ ตรวจเจอสีที่ทำไว้มันยิงมั่วเลยย ไม่ว่าลูกบอลสีอะไรออกมา
***อยากให้มันอ่านค่าสีจากตัวยิง(กบยิงน่ะ)ก่อนว่าสีอะไรแล้วค่อยหาสีในกรอบนะครับ ถ้าเจอก็ให้ยิง ถ้าไม่เจอให้คลิ๊กเม้าขวาเพื่อสลับเปลี่ยนลูกบอลแล้วตรวจใหม่ แบบนี้แหล่ะครับ พอเข้าใจเปล่าครับ รบกวนผู้รู้ทุกท่านช่วยตอบทีนะครับ ลองผิดลองถูกจน em228 ตึ๊บบบบบ

โค๊ดที่ผมใช้อยู่ ไม่ทราบว่าต้องปรับตรงใหน เพิ่มตรงใหนครับ

Global $gameX1, $gameY1

HotKeySet("{ESC}", "stop")


While 1
$coord = PixelSearch( 207,505,620,638, 0xFEFE19)
$coord = PixelSearch( 207,505,620,638, 0xD74944)
$coord = PixelSearch( 207,505,620,638, 0x37E547)
If Not @error Then
MouseClick("",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(100)
WEnd


Func stop()
Exit
EndFunc

aut
PSsix Powerful Scripting Class
PSsix Powerful Scripting Class

PSsix Game Coder
จำนวนข้อความ : 472
ความนิยม : 125
เข้าร่วมเมื่อ : 24/07/2010

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by aut on 22/12/11, 11:31 pm

งงไม่เคยเล่นอะ em234 มีตัวเกมอะเป่าเอามาโหลดหน่อยดิเด๋วดูหัย

flapjack
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Moderator PSsix Master PSsix Game Coder
จำนวนข้อความ : 311
ความนิยม : 74
เข้าร่วมเมื่อ : 05/10/2010

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by flapjack on 23/12/11, 11:10 am

ผมก็ไม่ได้เล่นเหมือนกันครับ แต่ดูๆแล้วก็คล้ายๆ [You must be registered and logged in to see this link.]

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 24/12/11, 02:55 pm

aut พิมพ์ว่า:งงไม่เคยเล่นอะ em234 มีตัวเกมอะเป่าเอามาโหลดหน่อยดิเด๋วดูหัย

ครับๆ ลิ้งนี้เลยครับ ลองเล่นดูนะครับ สนุกดี
[You must be registered and logged in to see this link.]

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 24/12/11, 02:55 pm

flapjack พิมพ์ว่า:ผมก็ไม่ได้เล่นเหมือนกันครับ แต่ดูๆแล้วก็คล้ายๆ [You must be registered and logged in to see this link.]



ขอบคุณมากครับ ขอลองไปศึกษาก่อนครับ *--*

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 24/12/11, 09:08 pm

ได้โค๊ดจากท่าน pos มาแต่ก็ยัง em228 ไม่รู้จะยัดใส่ตรงใหนดี วานผู้รู้ช่วยชี้แนะแนวทางหน่อยนะครับ em229


Global $monster[3] = [ 0xFF0000, 0x00FF00 ,0x0000FF];ใส่รหัสสีที่จะหา


For $i = 0 To UBound($monster)-1
$coord = PixelSearch(0,0, 500, 600,$monster[$i])
ConsoleWrite('หาสี = ' &Hex($monster[$i],6) & @error & @crlf)
If IsArray($coord) Then
ConsoleWrite(' เจอที่ = ' & $coord[0]&'x' & $coord[1] & @error & @crlf)
MouseClick("",$coord[0],$coord[1],1,0)
EndIf
Next

flapjack
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Moderator PSsix Master PSsix Game Coder
จำนวนข้อความ : 311
ความนิยม : 74
เข้าร่วมเมื่อ : 05/10/2010

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by flapjack on 25/12/11, 06:09 am

ก็แก้ตรง $coord = PixelSearch(0,0, 500, 600,$monster[$i])กับ
Global $monster[3] เป็นค่าสีลูกบอลของเกมลองดูน่ะครับ

aut
PSsix Powerful Scripting Class
PSsix Powerful Scripting Class

PSsix Game Coder
จำนวนข้อความ : 472
ความนิยม : 125
เข้าร่วมเมื่อ : 24/07/2010

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by aut on 25/12/11, 12:45 pm

เราทำตัวย่างให้แค่หาสีลูกแก้วด่านแรกนะ ยำด่านแรกนะ ด่านอื่นกับสคิปสั่งยิงนายเขียนเองนะ

#include
#include
#include
#include
Opt("WinTitleMatchMode", 2)
HotKeySet("{ESC}", "Aexit")
dim $autcolor[4]
$autcolor[0]=0xDBCE33 ;เหลือง
$autcolor[1]=0x031179 ;นำเงิน
$autcolor[2]=0xC02214 ;แดง
$autcolor[3]=0x0B7810 ;เขียว

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("autaut", 209, 134, 397, 176)
$Button1 = GUICtrlCreateButton("xxxxx", 48, 8, 75, 25)
$Label1 = GUICtrlCreateLabel("สีอ่านะ", 8,50, 200, 200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

WinSetOnTop("autaut","",1)

While 1
if WinActive("เกมส์ยิง Zuma Flash") then
$cc =PixelSearch (0,0,@DesktopWidth,@DesktopHeight,0x95440C)
If Not @error Then
for $i =0 to UBound($autcolor)-1
Sleep(10)
$cc2 =PixelSearch ($cc[0]+188,$cc[1]+134,$cc[0]+270,$cc[1]+216,$autcolor[$i])
If Not @error Then
GUICtrlSetData($Label1,"สีต่อไปคือ")
GUICtrlSetBkColor($Button1,$autcolor[$i])
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ

EndIf
Next
EndIf
Else
GUICtrlSetData($Label1,"ม่ายได้กดหน้าต่างเกมอะ")
Sleep(1000)
EndIf
if GUIGetMsg() =-3 then exit
Sleep(50)
WEnd


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd


Func Aexit()
Exit
EndFunc

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 25/12/11, 08:26 pm

flapjack พิมพ์ว่า:ก็แก้ตรง $coord = PixelSearch(0,0, 500, 600,$monster[$i])กับ
Global $monster[3] เป็นค่าสีลูกบอลของเกมลองดูน่ะครับ


em218 em218 "ขอบคุณมากๆนะครับ ที่ช่วยชี้แนะให้ เดียวจะลองปรับดูครับ" em218 em218

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 25/12/11, 08:28 pm

aut พิมพ์ว่า:เราทำตัวย่างให้แค่หาสีลูกแก้วด่านแรกนะ ยำด่านแรกนะ ด่านอื่นกับสคิปสั่งยิงนายเขียนเองนะ

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("WinTitleMatchMode", 2)
HotKeySet("{ESC}", "Aexit")
dim $autcolor[4]
$autcolor[0]=0xDBCE33 ;เหลือง
$autcolor[1]=0x031179 ;นำเงิน
$autcolor[2]=0xC02214 ;แดง
$autcolor[3]=0x0B7810 ;เขียว

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("autaut", 209, 134, 397, 176)
$Button1 = GUICtrlCreateButton("xxxxx", 48, 8, 75, 25)
$Label1 = GUICtrlCreateLabel("สีอ่านะ", 8,50, 200, 200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

WinSetOnTop("autaut","",1)

While 1
if WinActive("เกมส์ยิง Zuma Flash") then
$cc =PixelSearch (0,0,@DesktopWidth,@DesktopHeight,0x95440C)
If Not @error Then
for $i =0 to UBound($autcolor)-1
Sleep(10)
$cc2 =PixelSearch ($cc[0]+188,$cc[1]+134,$cc[0]+270,$cc[1]+216,$autcolor[$i])
If Not @error Then
GUICtrlSetData($Label1,"สีต่อไปคือ")
GUICtrlSetBkColor($Button1,$autcolor[$i])
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ

EndIf
Next
EndIf
Else
GUICtrlSetData($Label1,"ม่ายได้กดหน้าต่างเกมอะ")
Sleep(1000)
EndIf
if GUIGetMsg() =-3 then exit
Sleep(50)
WEnd


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd


Func Aexit()
Exit
EndFunc


"ให..ขอบคุณมากๆเลยครับท่าน aut ได้แนวทางมาเพียบเลย ขอลองทำดูก่อนนะครับ ติดขัดตรงใหน จะมารบกวนถามใหม่นะครับ" em233

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 25/12/11, 10:00 pm

aut พิมพ์ว่า:เราทำตัวย่างให้แค่หาสีลูกแก้วด่านแรกนะ ยำด่านแรกนะ ด่านอื่นกับสคิปสั่งยิงนายเขียนเองนะ

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("WinTitleMatchMode", 2)
HotKeySet("{ESC}", "Aexit")
dim $autcolor[4]
$autcolor[0]=0xDBCE33 ;เหลือง
$autcolor[1]=0x031179 ;นำเงิน
$autcolor[2]=0xC02214 ;แดง
$autcolor[3]=0x0B7810 ;เขียว

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("autaut", 209, 134, 397, 176)
$Button1 = GUICtrlCreateButton("xxxxx", 48, 8, 75, 25)
$Label1 = GUICtrlCreateLabel("สีอ่านะ", 8,50, 200, 200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

WinSetOnTop("autaut","",1)

While 1
if WinActive("เกมส์ยิง Zuma Flash") then
$cc =PixelSearch (0,0,@DesktopWidth,@DesktopHeight,0x95440C)
If Not @error Then
for $i =0 to UBound($autcolor)-1
Sleep(10)
$cc2 =PixelSearch ($cc[0]+188,$cc[1]+134,$cc[0]+270,$cc[1]+216,$autcolor[$i])
If Not @error Then
GUICtrlSetData($Label1,"สีต่อไปคือ")
GUICtrlSetBkColor($Button1,$autcolor[$i])
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ
; ได้สีแย้ว ก้อใส่คำสังหาลูกแก้วยิงต่อไปเลยนะ

EndIf
Next
EndIf
Else
GUICtrlSetData($Label1,"ม่ายได้กดหน้าต่างเกมอะ")
Sleep(1000)
EndIf
if GUIGetMsg() =-3 then exit
Sleep(50)
WEnd


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd


Func Aexit()
Exit
EndFunc


"คณ aut ครับ จากที่เอาสคริปท่านไปลองรันดู เกิดคำถามดังนี้นะครับ

1. คณ aut ตั้งให้ GUI ให้บอกค่าสีจากตัวกบยิงใช่ป่าวครับ คณ aut ให้มันบอกลูกแก้วอันแรกหรืออันที่จะออกถัดมาอ่ะครับ บางทีมันไม่ตรงกันนะครับ อย่างสีเหลืองมันจะได้ยิงล่ะแต่ GUI บอกเป็นสีเขียว ซึ่งมันเป็นลูกแก้วที่จะยิงถัดต่อจากสีเหลืองอีกทีนะครับ แต่บางทีก็บอกตรงนะว่าลูกที่จะได้ยิงสีอะไร (ผมเลยงงๆ)จะว่ามันดีเลย์ช้ารึเปล่าก็ไม่แน่ใจ (ผมลองรันเฉยๆนะครับ ไม่ได้ใส่สคริปยิง นั่งยิงเองแล้วดูGUI มันบอกค่าสีออกมานะครับ)
2. ความเร็วในการหมุนวน มีส่วนทำให้ยิงผิดพลาดใหมครับ.. แบบว่าสีออกมาตรงแล้วและกำลังยิง แต่ลูกแก้วมันวนไปเรื่อยๆมันจะทำให้ยิงพลาดใหมครับ (เพราะเท่าที่ลองใส่คำสั่งยิงดูเหมือนมันพลาดเยอะมากมาย em232 )
3. คณ aut เปิดเล่นหน้าจอธรรมดา หรือเลือกแบบเต็มหน้าจอครับ (มันจะมีส่วนเยอะใหมถ้าตัวเกมส์มันไม่อยู่ในระยะที่เขียนไว้นะครับ)

*********เห่อๆหมดคำถามแล้วครับ รบกวนหน่อยนะครับ คณ aut (อย่าพึ่งรำคานกันนะ)ขอบคุณครับ********
em234 em234 em234

Fast
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Program Coder
จำนวนข้อความ : 217
ความนิยม : 52
เข้าร่วมเมื่อ : 19/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by Fast on 26/12/11, 12:06 pm

มีทริ๊กวิธีดูว่าคำสั่ง PixelSearch หาสีจุดไหน ใช้ MouseMove ใส่บันทัดล่างเลยครับ

แบบนี้ตัวเม้าจะวิ่งไปชี้สีที่หาเจอ

if WinActive("เกมส์ยิง Zuma Flash") then
$cc =PixelSearch (0,0,@DesktopWidth,@DesktopHeight,0x95440C)
If Not @error Then
MouseMove($cc[0],$cc[1]) ;<<<<<<<<<<<<<<<<<<<<<

padomans
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 9
ความนิยม : 0
เข้าร่วมเมื่อ : 29/06/2011

Re: ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ

ตั้งหัวข้อ by padomans on 26/12/11, 08:51 pm

Fast พิมพ์ว่า:มีทริ๊กวิธีดูว่าคำสั่ง PixelSearch หาสีจุดไหน ใช้ MouseMove ใส่บันทัดล่างเลยครับ

แบบนี้ตัวเม้าจะวิ่งไปชี้สีที่หาเจอ

if WinActive("เกมส์ยิง Zuma Flash") then
$cc =PixelSearch (0,0,@DesktopWidth,@DesktopHeight,0x95440C)
If Not @error Then
MouseMove($cc[0],$cc[1]) ;<<<<<<<<<<<<<<<<<<<<<

"อ่อๆ ขอบคุณมากนะครับ ได้ความรู้ใหม่อีกแล่ะ" em219

    เวลาขณะนี้ 05/12/16, 03:27 pm