จากที่ผมทดสอบแล้ว จากช่วงที่เกมเปิด OBT สคริปบอท สามารถใช้งานได้ดี รอเพียงเกมเปิด OBT เท่านั้น
อยากทราบว่าแล้วมีสมาชิกท่านไหน จะเล่นด้วยกันมั่งครับ เข้ามาคุยกันครับ
;================================================================================
;Bot Eden By Hiewsound
;================================================================================
$Form1 = GUICreate("Eden_Online Ai For Win 64 Bit ", 289, 385, 494, 211)
$Checkbox1 = GUICtrlCreateCheckbox("เลือกเป้าหมายอัตโนมัติ", 32, 32, 129, 17)
GUICtrlSetState(-1, 1)
$Checkbox2 = GUICtrlCreateCheckbox("โจมตี", 32, 55, 97, 17)
GUICtrlSetState(-1, 1)
GUICtrlCreateGroup("Hero Setting", 16, 8, 185, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;================================================================================
GUICtrlCreateGroup("Skill Setting", 16, 96, 225, 161)
$Checkbox3 = GUICtrlCreateCheckbox("Skill 1 key :", 32, 120, 70, 17)
GUICtrlCreateLabel("Deley", 152, 122, 31, 17)
$Input1 = GUICtrlCreateInput("1", 186, 120, 40, 21)
$Checkbox4 = GUICtrlCreateCheckbox("Skill 2 key :", 32, 151, 70, 17)
GUICtrlCreateLabel("Deley", 152, 154, 31, 17)
$Input2 = GUICtrlCreateInput("2", 186, 151, 40, 21)
$Checkbox5 = GUICtrlCreateCheckbox("Skill 3 key :", 32, 182, 70, 17)
GUICtrlCreateLabel("Deley", 152, 186, 31, 17)
$Input3 = GUICtrlCreateInput("3", 186, 182, 40, 21)
$Checkbox6 = GUICtrlCreateCheckbox("Skill 4 key :", 32, 213, 70, 17)
GUICtrlCreateLabel("Deley", 152, 218, 31, 17)
$Input4 = GUICtrlCreateInput("4", 186, 213, 40, 21)
$Combo1 = GUICtrlCreateCombo("2", 104, 120, 40, 25)
$Combo2 = GUICtrlCreateCombo("3", 104, 151, 40, 25)
$Combo3 = GUICtrlCreateCombo("4", 104, 182, 40, 25)
$Combo4 = GUICtrlCreateCombo("5", 104, 213, 40, 25)
;================================================================================
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("สั่งโปรแกรมทำงาน/หยุดทำงาน = ปุ่ม Insert", 16, 296, 218, 30)
GUICtrlSetFont(-1, 14, 400, 0, "AngsanaUPC")
GUICtrlCreateGroup("การใช้งาน", 8, 264, 273, 105)
GUICtrlSetFont(-1, 16, 400, 0, "AngsanaUPC")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("ออกจากโปรแกรม = ปุ่ม End", 16, 325, 147, 30)
GUICtrlSetFont(-1, 14, 400, 0, "AngsanaUPC")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
;================================================================================
Global $Paused
Global $HpMon = 1
Global $Enemy = 0
Global $times = TimerInit()
HotKeySet("{INSERT}", "TogglePause")
HotKeySet("{END}", "Terminate")
;================================================================================
If Not WinActivate("Eden Online")Then
MsgBox(64,"Error","ไม่พบ Eden Online Client")
Exit 0
EndIf
TogglePause()
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip(">>หยุดทำงาน<<",110,50)
WEnd
Sleep(100)
EndFunc
Func Terminate()
Exit 0
EndFunc
;================================================================================
Func _Run()
WinActivate("Eden Online")
Return
EndFunc
Func Check_Mon()
PixelSearch(482,77,595,83,0xF9C1C9,10)
If @error Then
$HpMon = 0
Else
$HpMon = 1
EndIf
EndFunc
Func Attack_Mon()
PixelSearch(482,77,595,83,0xF9C1C9,10)
If Not @error Then
$Enemy = 1
Else
$Enemy = 0
EndIf
EndFunc
Func System_Run()
_Run()
Check_Mon()
Attack_Mon()
EndFunc
;================================================================================
System_Run()
While True
If (GUICtrlRead($Checkbox1)=1 And $HpMon = 0) Then
Select_Mon()
Else
If (GUICtrlRead($Checkbox2)=1 And $Enemy = 1) Then
Attack()
EndIf
EndIf
System_Run()
WEnd
;================================================================================
Func Select_Mon()
ToolTip(">>ค้นหามอน<<",110,50)
Send("{TAB}")
Sleep(100)
EndFunc
Func Attack()
ToolTip(">>โจมตี<<",120,50)
Send("{1}")
While 1
$Diff = Int(TimerDiff($times)/1000)
If Mod($Diff, GUICtrlRead($Input1)/1) = 0 and GUICtrlRead($Checkbox3)=1 Then send ("{"& GUICtrlRead($Combo1)&"}")
If Mod($Diff, GUICtrlRead($Input2)/1) = 0 and GUICtrlRead($Checkbox4)=1 Then send ("{"& GUICtrlRead($Combo2)&"}")
If Mod($Diff, GUICtrlRead($Input3)/1) = 0 and GUICtrlRead($Checkbox5)=1 Then send ("{"& GUICtrlRead($Combo3)&"}")
If Mod($Diff, GUICtrlRead($Input4)/1) = 0 and GUICtrlRead($Checkbox6)=1 Then send ("{"& GUICtrlRead($Combo4)&"}")
Sleep(50)
Return
WEnd
EndFunc
;================================================================================
|
|