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


การค้นหามอน

Share

ballmake
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 11
ความนิยม : 0
เข้าร่วมเมื่อ : 24/02/2012

การค้นหามอน

ตั้งหัวข้อ by ballmake on 01/03/12, 04:55 am

ขอโทดนะครับ

คือผมอยากเขียนสคริปต์ ค้นหามอนสเตอร์ ผมต้องเขียนยังไงหรอครับ

แล้วการค้นหาต้องใช้ โค๊ดสี หรือ มีวิธี อื่นอีกใหมครับ

Hiewsound
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 91
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012

Re: การค้นหามอน

ตั้งหัวข้อ by Hiewsound on 01/03/12, 06:56 am

Func Test()
PixelSearch(xxx,xx,xxx,xx,0x000000,10);ตำแหน่งหลอดเลือด Mon
if @error Then
Send"{ปุ่มที่กดเลือกมอน}"
Sleep(100)
Else
PixelSearch(xxx,xx,xxx,xx,0x000000,10);ตำแหน่งหลอดเลือด Mon
if Not @error Then
Send"{ปุ่มที่กดโจมตี}"
Sleep(100)
EndIf
EndFunc

POS
PSsix
PSsix


จำนวนข้อความ : 1151
ความนิยม : 323
เข้าร่วมเมื่อ : 19/07/2010

Re: การค้นหามอน

ตั้งหัวข้อ by POS on 01/03/12, 10:25 pm

ถ้าสีมอนเตอร์มีสีเดียวกับสีฉากหลังต้องใช้วิธีกำหนดจุดเช็คสีสองจุด ดูตัวอย่างตามลิงก์ด้านล่างนี้ครับ

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


||----------------------------------------------------------------------------------------------------------------||

กลุ่ม AutoIt ในเฟสบุ๊ค
[You must be registered and logged in to see this link.]

++++++++++++++++++++++++++++++++++++++++++++
pssix.blogspot.com

ballmake
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 11
ความนิยม : 0
เข้าร่วมเมื่อ : 24/02/2012

Re: การค้นหามอน

ตั้งหัวข้อ by ballmake on 02/03/12, 01:15 am

ขอบคุนมากๆครับ

ballmake
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 11
ความนิยม : 0
เข้าร่วมเมื่อ : 24/02/2012

Re: การค้นหามอน

ตั้งหัวข้อ by ballmake on 02/03/12, 01:29 am

Code:
#include <Constants.au3>
#include <WinAPI.au3>

Global $GameHD, $GameHD2

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

If _PSsixLoadH("KNO version:1.0.73.0 date:27/02/2012 time:11.40") Then WinActivate($GameHD)

Func Test()
PixelSearch(578,33,785,68,0xFF0000,10)
if @error Then
Send("tab")
Else
PixelSearch(578,33,785,68,0xFF0000,10)
if Not @error Then
Send("{Space Down}")
Sleep(100)
 EndIf
EndFunc
แต่ทำไมขึ้น error ว่า ERROR: missing EndIf.
EndFunc
ผมต้องแก้ไงหรอครับ

แล้วอีกอย่างครับ คือผมต้องการให้กด ControlSend ผมต้องเขียนโค๊ดยังไงหรอครับ

Code:
Func Test()
PixelSearch(578,33,785,68,0xFF0000,10)
if @error Then
ControlClick (KNO version:1.0.73.0 date:27/02/2012 time:11.40, "", "","left",1,ไม่รู้พิกัด,ไม่รู้พิกัดที่จะใส่ครับ)
Else
PixelSearch(578,33,785,68,0xFF0000,10)
if Not @error Then
ControlSend("KNO version:1.0.73.0 date:27/02/2012 time:11.40,"","",{Space Down}")
Sleep(1000)
 EndIf
EndFunc

ผมเพิ่งหัดเขียน ผิดยังไงก็ขอโทดด้วยนะครับ

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