ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

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


4 posters

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

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


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°1

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

    ตั้งหัวข้อ by padomans 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
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010
    • Post n°2

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

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

    งงไม่เคยเล่นอะ em234 มีตัวเกมอะเป่าเอามาโหลดหน่อยดิเด๋วดูหัย
    • ขึ้นไปข้างบน
    flapjack
    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Moderator PSsix Master PSsix Game Coder
    จำนวนข้อความ : 314
    ความนิยม : 75
    เข้าร่วมเมื่อ : 05/10/2010
    • Post n°3

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

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

    ผมก็ไม่ได้เล่นเหมือนกันครับ แต่ดูๆแล้วก็คล้ายๆ ลิงค์นี้น่ะครับ
    • ขึ้นไปข้างบน
    padomans
    padomans
    padomans
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°4

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

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

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

    ครับๆ ลิ้งนี้เลยครับ ลองเล่นดูนะครับ สนุกดี
    [You must be registered and logged in to see this link.]
    • ขึ้นไปข้างบน
    padomans
    padomans
    padomans
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°5

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

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

    flapjack พิมพ์ว่า:ผมก็ไม่ได้เล่นเหมือนกันครับ แต่ดูๆแล้วก็คล้ายๆ ลิงค์นี้น่ะครับ



    ขอบคุณมากครับ ขอลองไปศึกษาก่อนครับ *--*
    • ขึ้นไปข้างบน
    padomans
    padomans
    padomans
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°6

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

    ตั้งหัวข้อ by padomans 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
    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Moderator PSsix Master PSsix Game Coder
    จำนวนข้อความ : 314
    ความนิยม : 75
    เข้าร่วมเมื่อ : 05/10/2010
    • Post n°7

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

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

    ก็แก้ตรง $coord = PixelSearch(0,0, 500, 600,$monster[$i])กับ
    Global $monster[3] เป็นค่าสีลูกบอลของเกมลองดูน่ะครับ ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ 3891362952
    • ขึ้นไปข้างบน
    aut
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010
    • Post n°8

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

    ตั้งหัวข้อ by aut 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
    padomans
    padomans
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°9

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

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

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


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


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°10

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

    ตั้งหัวข้อ by padomans 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
    padomans
    padomans
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°11

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

    ตั้งหัวข้อ by padomans 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
    avatar
    Fast
    PSsix Member Super Class III
    PSsix Member Super Class III


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty PSsix Program Coder
    จำนวนข้อความ : 217
    ความนิยม : 54
    เข้าร่วมเมื่อ : 19/06/2011
    • Post n°12

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

    ตั้งหัวข้อ by Fast 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
    padomans
    padomans
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty ถามเรื่องสคริปท์ เกมส์ zuma หน่อยนะครับ Empty
    จำนวนข้อความ : 9
    ความนิยม : 0
    เข้าร่วมเมื่อ : 29/06/2011
    • Post n°13

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

    ตั้งหัวข้อ by padomans 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
    • ขึ้นไปข้างบน
      เวลาขณะนี้ 08/05/24, 12:38 am