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


ช่วยดู สคิปให้ที่ครับ มือใหม่มากๆๆเลยครับ

Share
avatar
Naice108
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 8
ความนิยม : 0
เข้าร่วมเมื่อ : 17/07/2012
อายุ : 21
ที่อยู่ : http://www.youtube.com/user/MakarmTV?feature=mhee

ช่วยดู สคิปให้ที่ครับ มือใหม่มากๆๆเลยครับ

ตั้งหัวข้อ by Naice108 on 21/07/12, 03:38 pm

นี่ครับคลิปผม อ่อนหัดมากมายเลย ครับ เกม Ran น่ะครับ

Global $GameHD

Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc

If _PSsixLoadH("Ran Client") Then WinActivate($GameHD)
While 1
_FindMonster()
_Skill1()
_FindMonster()
_Skill2()
_FindMonster()
_Skill3()
_FindMonster()
_Skill4()
_FindMonster()
_Skill5()
_FindMonster()
_Skill6()
_keepItem()
WEnd


Func _FindMonster()
$coord = PixelSearch( 118,158, 717,507, 0x201F1E )
If Not @error Then
MouseClick("Right",$coord[0] ,$coord[1],1,0)
If Not @error Then
MouseClick("Right",$coord[0] ,$coord[1],1,0)
EndIf
Sleep(1000)
EndIf
EndFunc

Func _Skill1()
send( "1" )
Sleep(100)
EndFunc

Func _Skill2()
send( "2" )
Sleep(100)
EndFunc

Func _Skill3()
send( "3" )
Sleep(100)
EndFunc

Func _Skill4()
send( "4" )
Sleep(100)
EndFunc

Func _Skill5()
send( "5" )
Sleep(100)
EndFunc

Func _Skill6()
send( "6" )
Sleep(100)
EndFunc


Func _keepItem()
Send( "{SPACE}" )
sleep(500)
Send( "{SPACE}" )
sleep(500)
Send( "{SPACE}" )
sleep(500)
EndFunc


คือว่า จะทำยังไงให้มันตีมอนให้ตายก่อนแบบว่าใช้สกิลไปเลื่อยๆ ตายแล้วก็ให้เก็บของเลย

แล้วมีคำสั่งที่เอาไว้ Random ตัวเลขไหมครับ แบบว่า ให้มัน สุ่มส่งเลข 1 2 3 4 5 6 อ่ะครับ ขอบคุณครับช่วยแนะนำหน่วยครับ เยอะๆๆเลยก็ได้ ผมอยากบรรลุ อิอิ

Fast
PSsix Member Super Class III
PSsix Member Super Class III

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

Re: ช่วยดู สคิปให้ที่ครับ มือใหม่มากๆๆเลยครับ

ตั้งหัวข้อ by Fast on 22/07/12, 05:02 pm

คลิ๊กมอน ก็มีหลอดเลือดมอนออกมา ท่านก็ใช้ PixelGetColor ตรวจสีที่พิกัดหลอดเลือด ถ้าเจอสีก็สั่งตีไปจนกว่าสีหลอดเลือดมอนจะหาย ประมาณโค๊ดอันนี้ใส่หลังสั่งคลิ๊กนะครับ

;สั่งคลิ๊กมอนก่อน
_FindMonster()

Sleep(1000)

While PixelGetColor(พิกัดหลอดมอน,พิกัดหลอด) = 0x ค่าสี
;สั่งตี
_Skill1()
_Skill2()
_Skill3()


Sleep(1000)
WEnd
avatar
Naice108
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 8
ความนิยม : 0
เข้าร่วมเมื่อ : 17/07/2012
อายุ : 21
ที่อยู่ : http://www.youtube.com/user/MakarmTV?feature=mhee

Re: ช่วยดู สคิปให้ที่ครับ มือใหม่มากๆๆเลยครับ

ตั้งหัวข้อ by Naice108 on 24/07/12, 05:37 pm

ขอบคุณมากครับ ผมขอถามอะไรหน่อยครับ คือ การใช้ Pixelsearch ผมพอได้แล้วครับ แต่ที่ผมอยากทำมากๆๆเลยตอนนี้คือ การใช้ รหัส Address คือเกมแรน ผมใช้ CE ทำแล้ว พอผม คลิกแล้วคลิกที่ Find out what writes to is address เกมมันก็ปิดตัวลงไปเลยครับ ผมลองกับเซิฟเถื่อนน่ะครับ มีวิธีแก้ไหมครับ ขอความช่วยเหลือหน่อยครับ ^^ ขอบคุณครับ

    เวลาขณะนี้ 28/03/17, 11:20 am