อยากทราบว่าแล้วมีสมาชิกท่านไหน จะเล่นด้วยกันมั่งครับ เข้ามาคุยกันครับ
+18
grantado
namisis
anubispn
slayerco
primedius
Fast
spycafenet
worawito
Gdolive
yamcrocodile
loveapple244
nonlovejar
tztoeykung
smoking1997
zullyfinz
aut
Quixotic
Hiewsound
22 posters
พูดคุยเรื่องบอท E-เดน-อou-ลาย
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°1
พูดคุยเรื่องบอท E-เดน-อou-ลาย
จากที่ผมทดสอบแล้ว จากช่วงที่เกมเปิด OBT สคริปบอท สามารถใช้งานได้ดี รอเพียงเกมเปิด OBT เท่านั้น
อยากทราบว่าแล้วมีสมาชิกท่านไหน จะเล่นด้วยกันมั่งครับ เข้ามาคุยกันครับ
อยากทราบว่าแล้วมีสมาชิกท่านไหน จะเล่นด้วยกันมั่งครับ เข้ามาคุยกันครับ
Quixotic- PSsix Member High Class
จำนวนข้อความ : 91
ความนิยม : 1
เข้าร่วมเมื่อ : 29/03/2011
- Post n°2
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ผมก็อยากเล่นนนนนน
สนุกไหมอ่ะครับ มัน OBT วันไหน
เกิดไม่ทันช่วง CB
สนุกไหมอ่ะครับ มัน OBT วันไหน
เกิดไม่ทันช่วง CB
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°3
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
555 เวนละ มันป้องกันอ่านค่าสีอีก แงๆ
aut- PSsix Powerful Scripting Class
จำนวนข้อความ : 472
ความนิยม : 126
เข้าร่วมเมื่อ : 24/07/2010
- Post n°4
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
เล่น lime odyssey เปิดวันนี้ วิน 32บิตอ่านสีไม่ได้ต้องวิน 64อ่านะ อันนี้ถ้านายไม่รู้จัก32กับ64บิตก้อไม่ต้องถามแล้วนะ นายลงวินโดไม่เปนก้อหมดสิดใช้วิน64บิตทำบอท
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°5
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
อิอิ รับทราบครับ ท่าน aut ผมม่ายมีแผ่นวิน 64 เด๋วสงสัยต้องไปซื้อมาลองสักที
zullyfinz- มือใหม่เพิ่งสมัคร
จำนวนข้อความ : 1
ความนิยม : 0
เข้าร่วมเมื่อ : 03/10/2010
- Post n°6
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
กำลังเล่น ครับ หนุกดี แต่ก็อยากได้ โปร ช่วยเล่น ด้วย เพราะเวลาทำงาน จะได้ ไม่เสียโอกาสเก็บเวล
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°7
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
มันชอบให้ใส่รหัสบ่อยๆอ่ะครับ ต้องคอยมาใส่
smoking1997- มือใหม่เพิ่งสมัคร
-
จำนวนข้อความ : 5
ความนิยม : 0
เข้าร่วมเมื่อ : 30/01/2012
- Post n°8
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
อยากได้อ่ะครับ
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°9
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ใช้ได้เฉพาะ วินโดว์ 64 บิทนะ
tztoeykung- มือใหม่เพิ่งสมัคร
-
จำนวนข้อความ : 3
ความนิยม : 0
เข้าร่วมเมื่อ : 01/02/2012
- Post n°10
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ยัง ใช้ ได้ ไหม อ่า ครับบ
ผม ลอง ทำ
มัน เอ๋อ ๆ ไง ไม่รู้ -*-
ผม ลอง ทำ
มัน เอ๋อ ๆ ไง ไม่รู้ -*-
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°11
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ได้ครับ ม่ายมีปังหาอาราย
tztoeykung- มือใหม่เพิ่งสมัคร
-
จำนวนข้อความ : 3
ความนิยม : 0
เข้าร่วมเมื่อ : 01/02/2012
- Post n°12
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
เอ่อ มัน ใช้ Control Send ได้ ปล่าวครับ
nonlovejar- มือใหม่เพิ่งสมัคร
-
จำนวนข้อความ : 2
ความนิยม : 0
เข้าร่วมเมื่อ : 07/02/2012
- Post n°13
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ขอดูหน่อยนะ
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°14
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
เดวเอาคลิปมาให้ดูครับ ตอนนี้ยังม่ายว่างเลย รอแปป
loveapple244- PSsix Member Super Class II
จำนวนข้อความ : 160
ความนิยม : 9
เข้าร่วมเมื่อ : 15/07/2011
- Post n°15
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ไปลองมาแล้วใช้การปรับสีแบบต่ำสุดได้นี้ครับแต่เล่นภาพไม่สวยแล้วก็ใช้suspendแช่แข็งสีหลอกแล้วถึงใช้กับ32ได้แต่ได้แค่เม้าส์กับคีบอร์ด Control Send ได้ และก็sendได้ แต่ค่าสีต้องรอผู้รู้มาแก้- -*ใช้
แต่เลเวลมันได้น้อยอะเพราะมันเน้นเควสมากกว่าเราว่า- -*
แต่เลเวลมันได้น้อยอะเพราะมันเน้นเควสมากกว่าเราว่า- -*
yamcrocodile- มือใหม่เพิ่งสมัคร
-
จำนวนข้อความ : 4
ความนิยม : 0
เข้าร่วมเมื่อ : 10/02/2012
- Post n°16
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ลองเล่นแล้วสนุกดี ตอนนี้กะลัง งมหา Address อยู่ งะ
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°17
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
เกมนี้ผมใช้จับสีเอาอะ work ด้วย อีกอย่างผมใช้ตอน ทำเควส เดวอัฟโหลด คลิปให้ดูแปป
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°18
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
กำลืม อัฟโหลดม่ายได้อีกเวนๆๆ ต้องไปทำงานและ เดวพรุ้งนี้เอามาให้ทดลองใช้งานดูครับ
แก้ไขล่าสุดโดย Hiewsound เมื่อ 12/02/12, 03:57 am, ทั้งหมด 1 ครั้ง
Gdolive- PSsix Member
-
จำนวนข้อความ : 28
ความนิยม : 0
เข้าร่วมเมื่อ : 10/02/2012
- Post n°19
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
บอท eden นายทำรัยได้บ้าง อยากได้แนวทางทำ
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°20
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
พอดีผมเล่นพระ เลยทำเฉพาะอาชีพพระกะนักเวทย์ไว้
>>> ย้ำก่อนนะว่า ผมใช้วินโดว์ 64 Bit พวกโปรแกรมที่มันป้องกัน บอท โปร ที่ค่ายเกมเค้านำมาป้องกัน มันไม่สามารถป้องกันโปรที่เขียนจาก Autoit ได้ <<<
>>> วินโดว์ 32 Bit ใช้ไม่ได้นะครับ <<<
ต่อไปเรื่องโปรแกรมที่ผมทำไว้ ความสามารถที่เด่นๆ
เลือกมอนเตอร์เอง
โจมตีมอนเตอร์เอง
โจมตีด้วยสกิล (ตอนนี้ทำไว้แค่ปุ่มเดียว ให้เอาสกิลโจมตีไว้ที่ปุ่ม 2)
ฮิลเลือดเองเมื่อเลือดต่ำกว่าที่กำหนดไว้
มีแถบแสดงการทำงานของโปรแกรมโชว์ที่หน้าโปรแกรม
สั่งโปรแกรมทำงานด้วย การกดปุ่ม Insert และ สั่งหยุดทำงาน ด้วยปุ่ม Insert เช่นเดียวกัน
ปิดโปรแกรมด้วยการกดปุ่ม END
>>ข้อจำกัด<<
ให้ปรับภาพเกมเป็น 1280x800 ก่อนไม่งั้นโปรแกรมทำงานมั่ว (เพราะอ่านค่าจากตำแหน่งบนหน้าจอเกม)
Reset ค่า UI ที่เกมด้วยนะครับ
เมื่อมันให้ใส่รหัส ต้องใส่เองนะครับ เพราะแก้ไม่ได้จริงๆ
เกมนี้เน้นเควสครับ ผมเลยใช้เฉพาะทำเควสเท่านั้น
ไม่สามารถยุบหน้าจอเกมได้นะครับ
>>ที่จะทำเพิ่มเติม<<
-หน้าต่างโปรแกรม
-เพิ่มสกิลบัพ
-เพิ่มให้ใช้ได้หลายสกิล
หมายเหตุ ถ้าผมว่างมากๆจริงๆนะครับ
เครดิต ท่าน POS,Aut,Scanditionx,DarkWarrkor ที่ผมอ่านเจอและนำไปเป็นแนวทาง
>>> ย้ำก่อนนะว่า ผมใช้วินโดว์ 64 Bit พวกโปรแกรมที่มันป้องกัน บอท โปร ที่ค่ายเกมเค้านำมาป้องกัน มันไม่สามารถป้องกันโปรที่เขียนจาก Autoit ได้ <<<
>>> วินโดว์ 32 Bit ใช้ไม่ได้นะครับ <<<
ต่อไปเรื่องโปรแกรมที่ผมทำไว้ ความสามารถที่เด่นๆ
เลือกมอนเตอร์เอง
โจมตีมอนเตอร์เอง
โจมตีด้วยสกิล (ตอนนี้ทำไว้แค่ปุ่มเดียว ให้เอาสกิลโจมตีไว้ที่ปุ่ม 2)
ฮิลเลือดเองเมื่อเลือดต่ำกว่าที่กำหนดไว้
มีแถบแสดงการทำงานของโปรแกรมโชว์ที่หน้าโปรแกรม
สั่งโปรแกรมทำงานด้วย การกดปุ่ม Insert และ สั่งหยุดทำงาน ด้วยปุ่ม Insert เช่นเดียวกัน
ปิดโปรแกรมด้วยการกดปุ่ม END
>>ข้อจำกัด<<
ให้ปรับภาพเกมเป็น 1280x800 ก่อนไม่งั้นโปรแกรมทำงานมั่ว (เพราะอ่านค่าจากตำแหน่งบนหน้าจอเกม)
Reset ค่า UI ที่เกมด้วยนะครับ
เมื่อมันให้ใส่รหัส ต้องใส่เองนะครับ เพราะแก้ไม่ได้จริงๆ
เกมนี้เน้นเควสครับ ผมเลยใช้เฉพาะทำเควสเท่านั้น
ไม่สามารถยุบหน้าจอเกมได้นะครับ
>>ที่จะทำเพิ่มเติม<<
-หน้าต่างโปรแกรม
-เพิ่มสกิลบัพ
-เพิ่มให้ใช้ได้หลายสกิล
หมายเหตุ ถ้าผมว่างมากๆจริงๆนะครับ
เครดิต ท่าน POS,Aut,Scanditionx,DarkWarrkor ที่ผมอ่านเจอและนำไปเป็นแนวทาง
แก้ไขล่าสุดโดย Hiewsound เมื่อ 12/02/12, 06:18 am, ทั้งหมด 1 ครั้ง
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°21
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ไม่แจกโปรแกรมนะครับ ตามนโยบายท่าน Pos แต่นำตัวอย่างมาให้ดู
;====================================================
Global $Paused
Global $HpHero = 1 ;หากไม่เล่นพระก็ลบออก
Global $HpMon = 0
Global $Enemy = 0
;====================================================
HotKeySet("{INSERT}", "TogglePause")
HotKeySet("{END}", "Terminate")
;====================================================
If Not WinActivate("Eden Online")Then
MsgBox(64,"Error","ไม่พบ Eden Online Client")
Terminate()
EndIf
;====================================================
TogglePause()
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip(">>หยุดทำงาน<<",110,50)
WEnd
sleep(100)
_Run()
EndFunc
;====================================================
Func Terminate()
Exit 0
EndFunc
Func _Run()
WinActivate("Eden Online")
Return
EndFunc
;====================================================
Func Check_Hphero();หากไม่เล่นพระก็ลบออก
PixelSearch(xxx,xx,xxx,xx,0x000000);ตำแหน่งหลอดเลือด Hero
if @error Then
$HpHero = 0
Else
$HpHero = 1
EndIf
EndFunc
Func Check_Enemy()
PixelSearch(xxx,xx,xxx,xx,0x000000,10);ตำแหน่งหลอดเลือด Mon
if @error Then
$HpMon = 1
Else
$HpMon = 0
EndIf
EndFunc
Func Attack_Mon()
PixelSearch(xxx,xx,xxx,xx,0x000000,10);ตำแหน่งหลอดเลือด Mon
if Not @error Then
$Enemy = 1
Else
$Enemy = 0
EndIf
EndFunc
;====================================================
Func System_Run()
Check_Hphero();หากไม่เล่นพระก็ลบออก
Check_Enemy()
Attack_Mon()
EndFunc
;====================================================
System_Run()
_Run()
While True
If $HpHero = 0 Then ;หากไม่เล่นพระก็ลบออก
Heal()
EndIf
if $HpMon = 1 Then
Select_Enemy()
Else
if $Enemy = 1 Then
Attack()
EndIf
EndIf
_Run()
System_Run()
WEnd
;=======================================================
Func Heal() ;หากไม่เล่นพระก็ลบออก
ToolTip(">>Heal<<",120,50)
Send("{5}")
Sleep(700)
EndFunc
Func Select_Enemy()
ToolTip(">>ค้นหามอน<<",110,50)
Send("{TAB}")
Sleep(100)
EndFunc
Func Attack()
ToolTip(">>โจมตี<<",120,50)
While Sleep(200)
Send("{2}");เอาสกิลโจมตีด้วยการกดปุ่ม 2
Return
WEnd
EndFunc
;=====================================================
;====================================================
Global $Paused
Global $HpHero = 1 ;หากไม่เล่นพระก็ลบออก
Global $HpMon = 0
Global $Enemy = 0
;====================================================
HotKeySet("{INSERT}", "TogglePause")
HotKeySet("{END}", "Terminate")
;====================================================
If Not WinActivate("Eden Online")Then
MsgBox(64,"Error","ไม่พบ Eden Online Client")
Terminate()
EndIf
;====================================================
TogglePause()
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip(">>หยุดทำงาน<<",110,50)
WEnd
sleep(100)
_Run()
EndFunc
;====================================================
Func Terminate()
Exit 0
EndFunc
Func _Run()
WinActivate("Eden Online")
Return
EndFunc
;====================================================
Func Check_Hphero();หากไม่เล่นพระก็ลบออก
PixelSearch(xxx,xx,xxx,xx,0x000000);ตำแหน่งหลอดเลือด Hero
if @error Then
$HpHero = 0
Else
$HpHero = 1
EndIf
EndFunc
Func Check_Enemy()
PixelSearch(xxx,xx,xxx,xx,0x000000,10);ตำแหน่งหลอดเลือด Mon
if @error Then
$HpMon = 1
Else
$HpMon = 0
EndIf
EndFunc
Func Attack_Mon()
PixelSearch(xxx,xx,xxx,xx,0x000000,10);ตำแหน่งหลอดเลือด Mon
if Not @error Then
$Enemy = 1
Else
$Enemy = 0
EndIf
EndFunc
;====================================================
Func System_Run()
Check_Hphero();หากไม่เล่นพระก็ลบออก
Check_Enemy()
Attack_Mon()
EndFunc
;====================================================
System_Run()
_Run()
While True
If $HpHero = 0 Then ;หากไม่เล่นพระก็ลบออก
Heal()
EndIf
if $HpMon = 1 Then
Select_Enemy()
Else
if $Enemy = 1 Then
Attack()
EndIf
EndIf
_Run()
System_Run()
WEnd
;=======================================================
Func Heal() ;หากไม่เล่นพระก็ลบออก
ToolTip(">>Heal<<",120,50)
Send("{5}")
Sleep(700)
EndFunc
Func Select_Enemy()
ToolTip(">>ค้นหามอน<<",110,50)
Send("{TAB}")
Sleep(100)
EndFunc
Func Attack()
ToolTip(">>โจมตี<<",120,50)
While Sleep(200)
Send("{2}");เอาสกิลโจมตีด้วยการกดปุ่ม 2
Return
WEnd
EndFunc
;=====================================================
worawito- มือใหม่เพิ่งสมัคร
จำนวนข้อความ : 3
ความนิยม : 0
เข้าร่วมเมื่อ : 14/02/2012
- Post n°22
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ตอนนี้ยังใช้ AutoIT ได้หรือเปล่า สำหรับเกมส์นี้ ผมลงทุน ลง Windows 7 Home 64
เพื่อการนี้ หลังจาก Complie X64 แล้ว ปรากฏว่า Tooltip ต่าง ๆ ทำงานแต่ ไม่สามารถ
Send Key สู่เกมส์ได้ครับ เลยข้องใจ หรือว่าผมทำอันใดผิดพลาด T_T
ขอบคุณล่วงหน้าครับ
เพื่อการนี้ หลังจาก Complie X64 แล้ว ปรากฏว่า Tooltip ต่าง ๆ ทำงานแต่ ไม่สามารถ
Send Key สู่เกมส์ได้ครับ เลยข้องใจ หรือว่าผมทำอันใดผิดพลาด T_T
ขอบคุณล่วงหน้าครับ
loveapple244- PSsix Member Super Class II
จำนวนข้อความ : 160
ความนิยม : 9
เข้าร่วมเมื่อ : 15/07/2011
- Post n°23
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
;ช่วยขยายความเข้าใจทีครับ
Global $Paused ;เป็นการประกาศใช้ทั้งสคิป
;กดINSERTจะทำการหยุดการงานทั้งสคิป
HotKeySet("{INSERT}", "TogglePause");ใช้ฟังก์ชั้นTogglePause
Func TogglePause()
$Paused = NOT $Paused ; ประกาศให้หยุดโปรแกรม
While $Paused ; ถ้าหยุดแล้ว
sleep(100);พัก100
ToolTip(">>หยุดทำงาน<<",110,50);เหมือนคำอธิบาย
WEnd
sleep(100)
_Run();>>>อธิบายตรงนี้ทีครับ
EndFunc
;ยากทราบ
System_Run(); คืออะไรครับ
_Run(); คืออะไรครับ
While True ; เพราะอะไรถึงใช้ ถ้าเป็นเท็จอธิบายให้ทีครับ
If $HpHero = 0 Then ;ข้างบนประกาศว่าGlobal $HpHero = 1
Heal();อันนี้คือฮิวอะไรหรอแล้วตัวแปรต้นมาไงอธิบายให้ทีครับ
EndIf
if $HpMon = 1 Then
Select_Enemy()
Else
if $Enemy = 1 Then
Attack()
EndIf
EndIf
_Run()
System_Run()
WEnd
;อธิบายตัวแปรข้างล่างทีครับ
_Run(),System_Run(),Attack(),Select_Enemy(),Attack_Mon(),
;====================================================
Func System_Run()
Check_Hphero();หากไม่เล่นพระก็ลบออก
Check_Enemy()
Attack_Mon()
EndFunc
;====================================================
ขอบคุณล่วงหน้าครับ
Global $Paused ;เป็นการประกาศใช้ทั้งสคิป
;กดINSERTจะทำการหยุดการงานทั้งสคิป
HotKeySet("{INSERT}", "TogglePause");ใช้ฟังก์ชั้นTogglePause
Func TogglePause()
$Paused = NOT $Paused ; ประกาศให้หยุดโปรแกรม
While $Paused ; ถ้าหยุดแล้ว
sleep(100);พัก100
ToolTip(">>หยุดทำงาน<<",110,50);เหมือนคำอธิบาย
WEnd
sleep(100)
_Run();>>>อธิบายตรงนี้ทีครับ
EndFunc
;ยากทราบ
System_Run(); คืออะไรครับ
_Run(); คืออะไรครับ
While True ; เพราะอะไรถึงใช้ ถ้าเป็นเท็จอธิบายให้ทีครับ
If $HpHero = 0 Then ;ข้างบนประกาศว่าGlobal $HpHero = 1
Heal();อันนี้คือฮิวอะไรหรอแล้วตัวแปรต้นมาไงอธิบายให้ทีครับ
EndIf
if $HpMon = 1 Then
Select_Enemy()
Else
if $Enemy = 1 Then
Attack()
EndIf
EndIf
_Run()
System_Run()
WEnd
;อธิบายตัวแปรข้างล่างทีครับ
_Run(),System_Run(),Attack(),Select_Enemy(),Attack_Mon(),
;====================================================
Func System_Run()
Check_Hphero();หากไม่เล่นพระก็ลบออก
Check_Enemy()
Attack_Mon()
EndFunc
;====================================================
ขอบคุณล่วงหน้าครับ
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°24
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
;====================================================
Global $Paused
Global $HpHero = 1 ;กำหนดให้ $HpHero = 1 หากในกรอบหลอด HpHero เป็นสีที่กำหนดไว้(สถานะปกติ = 1)
Global $HpMon = 0
Global $Enemy = 0
;====================================================
HotKeySet("{INSERT}", "TogglePause")
HotKeySet("{END}", "Terminate")
;====================================================
If Not WinActivate("Eden Online")Then
MsgBox(64,"Error","ไม่พบ Eden Online Client")
Terminate()
EndIf
;====================================================
TogglePause()
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip(">>หยุดทำงาน<<",110,50)
WEnd
sleep(100)
_Run() ;โดดไป Function _Run()
EndFunc
;====================================================
Func Terminate()
Exit 0
EndFunc
Func _Run()
WinActivate("Eden Online") ;เช็คสถานะโปรแกรมตลอดเวลา
Return
EndFunc
;====================================================
Func Check_Hphero()
PixelSearch(173,79,217,83,0xF6BAC5)
if @error Then ;ถ้าสีของเลือด Hero หายไป
$HpHero = 0 ;กำหนดให้เป็น 0
Else
$HpHero = 1 ;กลับคืนค่าตามเดิม หากสีของเลือด Hero อยู่ในกรอบ
EndIf
EndFunc
Func Check_Enemy()
PixelSearch(482,77,595,83,0xF9C1C9,10)
if @error Then ;ถ้าสีของเลือด มอน หายไป
$HpMon = 1 ;ดังนั้น กำหนดให้ = 1
Else
$HpMon = 0 ;กลับคืนค่าตามเดิม หากสีของหลอดเลือด มอน อยู่ในกรอบ
EndIf
EndFunc
Func Attack_Mon()
PixelSearch(482,77,595,83,0xF9C1C9,10)
if Not @error Then ;ดูตรงนี้ดีๆ ถ้าพบสีของเลือดมอนในกรอบ
$Enemy = 1 ;ดังนั้น กำหนดให้ = 1
Else
$Enemy = 0 ;กลับคืนค่าเดิม หากไม่พบสีของเลือดมอนในกรอบ
EndIf
EndFunc
;====================================================
Func System_Run() ;ยุบเอามารวมกันเพื่อง่ายต่อการเขียน ทำให้เกิดเป็น Function ใหม่ ชื่อ System_Run()
Check_Hphero()
Check_Enemy()
Attack_Mon()
EndFunc
True
;====================================================
System_Run() ;กรอบนอก
_Run() ;กรอบใน
While 1 ;ทำซ้ำ (While True ไม่ต้องไปสนใจและ เพราะผมตัดเอาออกไปเยอะพอสมควรซึ่งไม่มีผมต่อการทำงานของสคริป
If $HpHero = 0 Then ;หากตัวนี้ = 0 เมื่อไร Heal() ทำงานทันที
Heal()
EndIf
if $HpMon = 1 Then ;หากตัวนี้ = 1 เมื่อไร Select_Enemy() ทำงาน
Select_Enemy()
Else
if $Enemy = 1 Then ;หากตัวนี้ = 1 เมื่อไร Attack() ทำงาน แต่ $HpMon ต้อง = 0 หรือหยุดทำงานก่อนนะ
Attack()
EndIf
EndIf
_Run() ;กรอบใน
System_Run() ;กรอบนอก
WEnd ;ทำซ้ำๆ
;=======================================================
Func Heal()
ToolTip(">>Heal<<",120,50)
Send("{5}")
Sleep(700)
EndFunc
Func Select_Enemy()
ToolTip(">>ค้นหามอน<<",110,50)
Send("{TAB}")
Sleep(100)
EndFunc
Func Attack()
ToolTip(">>โจมตี<<",120,50)
While Sleep(200)
Send("{2}")
Return ;ออกจาก While ถ้าไม่ใส่มันก็จะ Send("{2}")ตลอดไม่ยอมไปไหนซะที
WEnd
EndFunc
;=====================================================
Global $Paused
Global $HpHero = 1 ;กำหนดให้ $HpHero = 1 หากในกรอบหลอด HpHero เป็นสีที่กำหนดไว้(สถานะปกติ = 1)
Global $HpMon = 0
Global $Enemy = 0
;====================================================
HotKeySet("{INSERT}", "TogglePause")
HotKeySet("{END}", "Terminate")
;====================================================
If Not WinActivate("Eden Online")Then
MsgBox(64,"Error","ไม่พบ Eden Online Client")
Terminate()
EndIf
;====================================================
TogglePause()
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip(">>หยุดทำงาน<<",110,50)
WEnd
sleep(100)
_Run() ;โดดไป Function _Run()
EndFunc
;====================================================
Func Terminate()
Exit 0
EndFunc
Func _Run()
WinActivate("Eden Online") ;เช็คสถานะโปรแกรมตลอดเวลา
Return
EndFunc
;====================================================
Func Check_Hphero()
PixelSearch(173,79,217,83,0xF6BAC5)
if @error Then ;ถ้าสีของเลือด Hero หายไป
$HpHero = 0 ;กำหนดให้เป็น 0
Else
$HpHero = 1 ;กลับคืนค่าตามเดิม หากสีของเลือด Hero อยู่ในกรอบ
EndIf
EndFunc
Func Check_Enemy()
PixelSearch(482,77,595,83,0xF9C1C9,10)
if @error Then ;ถ้าสีของเลือด มอน หายไป
$HpMon = 1 ;ดังนั้น กำหนดให้ = 1
Else
$HpMon = 0 ;กลับคืนค่าตามเดิม หากสีของหลอดเลือด มอน อยู่ในกรอบ
EndIf
EndFunc
Func Attack_Mon()
PixelSearch(482,77,595,83,0xF9C1C9,10)
if Not @error Then ;ดูตรงนี้ดีๆ ถ้าพบสีของเลือดมอนในกรอบ
$Enemy = 1 ;ดังนั้น กำหนดให้ = 1
Else
$Enemy = 0 ;กลับคืนค่าเดิม หากไม่พบสีของเลือดมอนในกรอบ
EndIf
EndFunc
;====================================================
Func System_Run() ;ยุบเอามารวมกันเพื่อง่ายต่อการเขียน ทำให้เกิดเป็น Function ใหม่ ชื่อ System_Run()
Check_Hphero()
Check_Enemy()
Attack_Mon()
EndFunc
True
;====================================================
System_Run() ;กรอบนอก
_Run() ;กรอบใน
While 1 ;ทำซ้ำ (While True ไม่ต้องไปสนใจและ เพราะผมตัดเอาออกไปเยอะพอสมควรซึ่งไม่มีผมต่อการทำงานของสคริป
If $HpHero = 0 Then ;หากตัวนี้ = 0 เมื่อไร Heal() ทำงานทันที
Heal()
EndIf
if $HpMon = 1 Then ;หากตัวนี้ = 1 เมื่อไร Select_Enemy() ทำงาน
Select_Enemy()
Else
if $Enemy = 1 Then ;หากตัวนี้ = 1 เมื่อไร Attack() ทำงาน แต่ $HpMon ต้อง = 0 หรือหยุดทำงานก่อนนะ
Attack()
EndIf
EndIf
_Run() ;กรอบใน
System_Run() ;กรอบนอก
WEnd ;ทำซ้ำๆ
;=======================================================
Func Heal()
ToolTip(">>Heal<<",120,50)
Send("{5}")
Sleep(700)
EndFunc
Func Select_Enemy()
ToolTip(">>ค้นหามอน<<",110,50)
Send("{TAB}")
Sleep(100)
EndFunc
Func Attack()
ToolTip(">>โจมตี<<",120,50)
While Sleep(200)
Send("{2}")
Return ;ออกจาก While ถ้าไม่ใส่มันก็จะ Send("{2}")ตลอดไม่ยอมไปไหนซะที
WEnd
EndFunc
;=====================================================
loveapple244- PSsix Member Super Class II
จำนวนข้อความ : 160
ความนิยม : 9
เข้าร่วมเมื่อ : 15/07/2011
- Post n°25
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
อ่อ ใช้ฟังก์ชั่นซ้อนรวมกันนี้เอง-0-เก่งจัง func xx() xx1()endfunc *0* เลิศไอเดีย*0*แต่งงคือF6BAC5กับF9C1C9ลองไปคำนวนมาก็สีชมพูเหมือนกันช่วยอธิบายอีกนิดครับ ขอบคุณล่วงหน้า-0-พอดีไม่ได้เล่นเกมส์นี้เลยนึกภาพตามแนวความคิดแต่เอาไปใช้ต่อยอดเกมส์อื่นนะครับ + +ได้ผลไปแล้วกึ่งหนึ่งยังมีปัญหาอยู่ที่สีอะครับรบกวนอีกนิดรบกวนทำPixelSearchแรกให้หามอนให้ทีพอดีว่ามันไม่มีแทปเลือดให้อะครับเป็นมอนสเตอร์เหมือนเกมส์ RO อย่างนี้จะหายังไงหรือครับคือหาPixelSearchแรกได้แต่ทำให้มันคลิ๊กแล้วพอมอนตามแล้วเลือกตัวต่อไปแทนอะครับคือมีปัญหาดังนี้ครับ
1.PixelSearchหามอนได้แล้วจากที่Func Attack_Mon()
PixelSearch(พิกัดที่หาของผมเป็นหน้าจอ800*600นะครับ,สีอันนี้ของผมเป็นหายตัวแบบว่ามอนมันมีหลายสีมากทำไง,10)
EndFunc
2.พอมันคลิ๊กมอนผมใช้เม้าส์คลิ๊กซ้ายทุกๆ1วิแต่มันไม่ยอมเลิกคลิ๊กเลย
3.บางทีผมเจอมอนสีเดียวกัน5ตัวมันเล่นวิ่งตีตัวที่1 2 3 4 5สุดท้ายผมเอาตาย-*-แก้ยังไงครับแบบให้ตีทีละตัวแทน
4.กำหนดให้เมื่อตายแล้วหาตัวใหม่ยังไงดีครับ
สิ่งที่คาดหวังคือ
1.ให้มัน Searchหามอนเมื่อเจอคลิ๊ก1ทีแล้วหยุดหา
2.เมื่อSearchเจอแล้วพอตายหาตัวต่อไป
3.เกมส์ที่เราเล่นมันเป็นแบบว่าคล้ายเกมส์ROคืออย่างPoringอะมันอยู่ทั่วไปในแมพพอนั้นเราก็ไปจิ้มมัโดยคลิ๊กซ้าย1ทีพอนั้นมันก็ตีต่อไปเองจนตายแล้วพอนั้นของก็ตกมันมีสีหลายหลายไปอีกคงจะเก็บของยากคิดว่า- -*แล้วพอนั้นก็เลยไม่เซทเก็บให้มันตีแล้วก็หามอนอย่างเดียวเลยเอาแค่นี้ให้ได้ก็ดีใจแล้วครับ
ปล.ปัจจุบันมันตีมั่วมากสมมุดเจอสีเดียวกัน5ตัวมันจ้องจะตีแบบสุ่มอะตีตัวที่1 1ทีตีตัวที่2 1ทีตีตัวที่3 2ทีอะไรทำนองนี้อะช่วยทีครับใครรู้สอนได้สอนทีนะครับเม้าส์เรานี้ยิ๊กเลยวิ่งให้พร่านเลย- -*
1.PixelSearchหามอนได้แล้วจากที่Func Attack_Mon()
PixelSearch(พิกัดที่หาของผมเป็นหน้าจอ800*600นะครับ,สีอันนี้ของผมเป็นหายตัวแบบว่ามอนมันมีหลายสีมากทำไง,10)
EndFunc
2.พอมันคลิ๊กมอนผมใช้เม้าส์คลิ๊กซ้ายทุกๆ1วิแต่มันไม่ยอมเลิกคลิ๊กเลย
3.บางทีผมเจอมอนสีเดียวกัน5ตัวมันเล่นวิ่งตีตัวที่1 2 3 4 5สุดท้ายผมเอาตาย-*-แก้ยังไงครับแบบให้ตีทีละตัวแทน
4.กำหนดให้เมื่อตายแล้วหาตัวใหม่ยังไงดีครับ
สิ่งที่คาดหวังคือ
1.ให้มัน Searchหามอนเมื่อเจอคลิ๊ก1ทีแล้วหยุดหา
2.เมื่อSearchเจอแล้วพอตายหาตัวต่อไป
3.เกมส์ที่เราเล่นมันเป็นแบบว่าคล้ายเกมส์ROคืออย่างPoringอะมันอยู่ทั่วไปในแมพพอนั้นเราก็ไปจิ้มมัโดยคลิ๊กซ้าย1ทีพอนั้นมันก็ตีต่อไปเองจนตายแล้วพอนั้นของก็ตกมันมีสีหลายหลายไปอีกคงจะเก็บของยากคิดว่า- -*แล้วพอนั้นก็เลยไม่เซทเก็บให้มันตีแล้วก็หามอนอย่างเดียวเลยเอาแค่นี้ให้ได้ก็ดีใจแล้วครับ
ปล.ปัจจุบันมันตีมั่วมากสมมุดเจอสีเดียวกัน5ตัวมันจ้องจะตีแบบสุ่มอะตีตัวที่1 1ทีตีตัวที่2 1ทีตีตัวที่3 2ทีอะไรทำนองนี้อะช่วยทีครับใครรู้สอนได้สอนทีนะครับเม้าส์เรานี้ยิ๊กเลยวิ่งให้พร่านเลย- -*
Hiewsound- PSsix Member High Class
จำนวนข้อความ : 93
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012
- Post n°26
Re: พูดคุยเรื่องบอท E-เดน-อou-ลาย
ใช้ อ่านเมมได้มะครับ มะเคยลองอะครับ เดี๋ยวถ้าว่างผมจาโหลดมาลองดูนะครับ
|
|