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


เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

Share

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


จำนวนข้อความ : 4
ความนิยม : 0
เข้าร่วมเมื่อ : 09/10/2011

เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

ตั้งหัวข้อ by BaNk_NaRaLuX on 08/12/11, 11:34 am

รบกวนหน่อยคับ เกมนี้เป็นเกมส์ Slot Machine ถ้าผมจะให้ เม้า ไปกดคลิกตามช่อง ไล่ตั้งแต่ช่อง 1-5 [img]

ให้มันกดออกมาประมาณนี้ อะคับ


เท่าที่ผมลองทำดู มันเจอสีที่ตั้งไว้แล้วมันจะกด คลิกอยู่นั่นไม่ไปช่องถัดไป ช่วยแนะนำทีนะคับ ต้องแก้ตรงไหนบ้าง
Global $gameX1, $gameY1


While Sleep(10)
If WinActive("Glucky7") Then
WinMove("lucky7","",0, 0)
If FindGame() = 1 Then
playgame()
EndIf

Else
EndIf
WEnd
Func playgame()
$coord = PixelSearch($gameX1, $gameY1, $gameX1+358, $gameY1+500 ,0x21709D)
If IsArray($coord) Then
If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
Sleep(100)
EndIf
EndFunc
Func FindGame()
$size = WinGetPos("[active]")
$coord = PixelSearch($size[0], $size[1], $size[2], $size[3], 0x013B31)
If IsArray($coord) Then
$gameX1 = $coord[0]
$gameY1 = $coord[1]
Return 1
EndIf
EndFunc
Func stop()
Exit
EndFunc

Fast
PSsix Member Super Class III
PSsix Member Super Class III

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

Re: เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

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

ลิ้งเกมส์ละท่าน มีแต่รูปช่วยลำบาก

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


จำนวนข้อความ : 4
ความนิยม : 0
เข้าร่วมเมื่อ : 09/10/2011

มันต้องเสียเงินเข้าไปเล่นอะคับ

ตั้งหัวข้อ by BaNk_NaRaLuX on 08/12/11, 01:02 pm

[You must be registered and logged in to see this link.]

คือ ถ้าจะแก้ให้มัน กดคลิก ที่ช่องแรกเมื่อเจอสีที่เราตั้ง แล้วให้ไปกดคลิกที่ช่องสอง โดยที่มันไม่คลิกซ้ำๆ อยู่ที่เดิม ต้องแก้ไงคับ เท่าที่อ่านกระทู้มา ตั้งเยอะ มีแต่ สอนว่า ให้คลิกจนกว่า เป้าหมายจะหายไป ไม่เห็นมีบอกว่า คลิกแล้วจะไม่คลิกซ้ำตำแหน่งเดิมไรงี้ หรือผมตาถั่ว - - รบกวนพี่ๆช่วยแก้ทีนะคับ

Fast
PSsix Member Super Class III
PSsix Member Super Class III

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

Re: เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

ตั้งหัวข้อ by Fast on 08/12/11, 01:15 pm

กำสมัครสมาชิคด้วย ไม่ได้เล่นนะ เอาโค๊ดมัวนี้ไปทดสอบดู

Global $gameX1, $gameY1
HotKeySet("{ESC}", "stop")

While Sleep(10)
If WinActive("Glucky7") Then
WinMove("lucky7","",0, 0)
If FindGame() = 1 Then
playgame()
EndIf

Else
EndIf
WEnd


Func playgame()
While 1
Sleep(100)
$coord = PixelSearch($gameX1, $gameY1, $gameX1+358, $gameY1+500 ,0x21709D)
If IsArray($coord) Then

If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then
MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
$gameX1 = $coord[0] +10
EndIf

Sleep(100)
EndIf
WEnd

EndFunc


Func FindGame()
$size = WinGetPos("[active]")
$coord = PixelSearch($size[0], $size[1], $size[2], $size[3], 0x013B31)
If IsArray($coord) Then
$gameX1 = $coord[0]
$gameY1 = $coord[1]
Return 1
EndIf
EndFunc

Func stop()
Exit
EndFunc


asokura
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 72
ความนิยม : 11
เข้าร่วมเมื่อ : 03/09/2011

Re: เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

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

ความคิดเราน๊ะ
1.นายต้องกำหนดจุด ขึ้นมา 5 จุดเพื่อตรวจสอบสี ว่า ถ้า จุดที่ (X,Y) 1 ค่าสียังไม่เท่า<>กับสีที่กำหนดให้กดเม้าคลิ๊กที่พิกัดที่กำหนด (ตรวจหาค่าสีที่พิกัด มีสอนที่หน้าบล๊อกคับ)
2.ถ้าไม่ใช่ให้เงื่อนไขแรก(คือมันได้ล๊อกสีที่ต้องการแล้วค่าสีมันจะเท่า)ให้ตรวจสอบล๊อกที่ 2 ล๊อกที่ 3...ถึง 5

asokura
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 72
ความนิยม : 11
เข้าร่วมเมื่อ : 03/09/2011

Re: เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

ตั้งหัวข้อ by asokura on 08/12/11, 01:36 pm

ประมาณนี้อ่ะ ท่านอื่นอาจมีวิธีง่ายกว่านี้อ่ะ


flapjack
PSsix Member Super Class III
PSsix Member Super Class III

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

Re: เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

ตั้งหัวข้อ by flapjack on 08/12/11, 01:48 pm

สมมุติถ้าเป็นการ random คงไม่สามารถกำหนดได้น่ะครับ(โดยส่วนตัว)(เหมือนมองเห็นอนาคต...ว่าจะเกิดอะไรขึ้น)
ปล.ผมยังไม่เล่นเกมนี้มาก่อนเลยไม่รู้เหตุการณ์ ว่าเป็นยังไงน่ะครับ

aut
PSsix Powerful Scripting Class
PSsix Powerful Scripting Class

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

Re: เกมส์ Slot Machine ช่วยแก้ให้ผมหน่อยนะคับ

ตั้งหัวข้อ by aut on 08/12/11, 05:43 pm

มันจายากอารัยก้อไล่ตวดทีละอันดิจาเอากี่อันก้อใส่เพิ่มตามนั้นเลย ไปหาพิกัดมาใส่ปรามานนี้อะ


Func playgame()

While 1
Sleep(100)
$coord = PixelSearch(พิกัดอันแรก, พิกัดอันแรก, พิกัดอันแรก,พิกัดอันแรก,0x21709D)
If IsArray($coord) Then
If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then
MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
ExitLoop ;;;ออกอันแรกไปตวดอันสอง
EndIf
Sleep(100)
EndIf
WEnd


While 1
Sleep(100)
$coord = PixelSearch(พิกัดอัน 2, พิกัดอัน 2, พิกัดอัน2,พิกัดอัน2,0x21709D)
If IsArray($coord) Then
If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then
MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
ExitLoop ;;ออกอันสองไปตวดอันสาม
EndIf
Sleep(100)
EndIf
WEnd


While 1
Sleep(100)
$coord = PixelSearch(พิกัดอัน 3, พิกัดอัน 3, พิกัดอัน3,พิกัดอัน3,0x21709D)
If IsArray($coord) Then
If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then
MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
ExitLoop ;;;ออกอันสามไปตวดอันสี่
EndIf
Sleep(100)
EndIf
WEnd


While 1
Sleep(100)
$coord = PixelSearch(พิกัดอัน 4, พิกัดอัน 4, พิกัดอัน4,พิกัดอัน4,0x21709D)
If IsArray($coord) Then
If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then
MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
ExitLoop ;;;ออกอันสี่ ก้อเส็ด
EndIf
Sleep(100)
EndIf
WEnd

EndFunc

    เวลาขณะนี้ 11/12/16, 08:45 pm