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


แจกครับ ผมไม่ทำต่อละครับเป็นบอทเกมออนไลน์น่าจะเคยเล่นกันครับ

Share

scanditionx
PSsix Member Class III
PSsix Member Class III

PSsix Game Coder
จำนวนข้อความ : 51
ความนิยม : 0
เข้าร่วมเมื่อ : 02/10/2010
อายุ : 28
ที่อยู่ : ดาวโลก

แจกครับ ผมไม่ทำต่อละครับเป็นบอทเกมออนไลน์น่าจะเคยเล่นกันครับ

ตั้งหัวข้อ by scanditionx on 08/02/11, 10:10 pm


Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
TraySetIcon("shell32.dll",-72)


traytip("ScanditionX Present","โปรแกรม Help Play Battle of the Immortals V.1 ",11,1)
SplashImageOn("","publ_logo.JPG" , 243, 252, -1, -1, 17)
Sleep(1000)
SplashOff()



Hotkeyset("{INSERT}","Pause") ; Run&Stop Program
Hotkeyset("{END}","DoExit1") ; ออกโปรแกรม


$about = ''
$about &= "โปรแกรม Help Play Game Battle of the Immortals V.1" & @LF
$about &= ''& @LF


TrayCreateItem("โปรแกรม Help Play Game Battle of the Immortals")
TrayCreateItem("")
TrayCreateItem("Program Run = INSERT KEY")
TrayCreateItem("Program Stop = INSERT KEY")
TrayCreateItem("")
TrayCreateItem("เกี่ยวกับโปรแกรม")
TrayItemSetOnEvent(-1, "DoAbout")
TrayCreateItem("")
TrayCreateItem("ออกจากโปรแกรม (กดปุ่ม END)")
TrayItemSetOnEvent(-1, "DoExit")

Global $Paused

if Not WinExists ("Battle of ImmortalsBeta Version") then
MsgBox(64, "โปรแกรม Help Play Game Battle of the Immortals V.1", " You must be running เกม")
Exit
EndIf

Pause()
;......................................Function Mode.............................................;

Func _Run()
WinActivate ('Battle of ImmortalsBeta Version')
Return
EndFunc

Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Program "Stop"', 2, 0)
WEnd
Sleep(100)
Auto()
EndFunc

;_____________________________Function Exit __________________________________
Func Auto()
Sleep(500)
ToolTip('Program "Run"', 2, 0)
start()
EndFunc

Func DoExit()
ToolTip("Exit Program ", 2, 0)
MsgBox(64, "โปรแกรม Help Play Game Battle of the Immortals V.1", " Thanks for used, Made By ScanditionX")
Exit
EndFunc

Func DoAbout()
Sleep(100)
Msgbox(64,"BOI Help Play V.1",$about & @lf & " Made by ScanditionX")
EndFunc


Func DoExit1()
ToolTip("Exit Program ", 2, 0)
MsgBox(64, "โปรแกรม Help Play Game Battle of the Immortals V.1", " Thanks for used, Made By ScanditionX")
Exit
EndFunc

;_____________________________Function AI Auto __________________________________
Func start()
_Run()
$Pixel = PixelGetColor(614 ,19) ;HP Monster
if $Pixel <>0x911519 Then
Sleep(100)
Send ("{TAB}")
sleep(100)
Send ("{1}")
EndIf

_Run()
$Pixel = PixelGetColor(228,36) ; HP ตัวผู้เล่น
if $Pixel = 0x252421 Then
Send ("{F1}")
sleep(100)
EndIf

_Run()
$Pixel = PixelGetColor(149,49) ; MP ตัวผู้เล่น
if $Pixel = 0x1A1A17 Then
Send ("{F2}")
sleep(100)
EndIf

_Run()
$Pixel = PixelGetColor(235,69) ; Skill EXP Auto
if $Pixel <> 0x0F0E0C Then
Send ("{0}")
sleep(100)
EndIf

_Run()
$Pixel = PixelGetColor(145,51) ; มี MP ให้ใช้สกิลได้
if $Pixel = 0x125CB3 Then
Send ("{2}")
Send ("{3}")
sleep(100)
EndIf

start()
EndFunc


;_____________________________Function AI Auto __________________________________

onekungza1234
PSsix Member
PSsix Member


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

รบกวนดูให้ทีครับ

ตั้งหัวข้อ by onekungza1234 on 08/02/11, 10:13 pm

รบกวนช่วยดู กระทู้ของผมทีครับ
ทามไม มันไม่กด ในตัวเกม
เเต่นอกเกม(เดชทอป) มันทำงานปกติ
[You must be registered and logged in to see this link.]

onekungza1234
PSsix Member
PSsix Member


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

Re: แจกครับ ผมไม่ทำต่อละครับเป็นบอทเกมออนไลน์น่าจะเคยเล่นกันครับ

ตั้งหัวข้อ by onekungza1234 on 08/02/11, 10:21 pm

โตค้คำสั่งผมเข้าใจดี
แต่

Code:
;......................................Function Mode.............................................;

Func _Run()
WinActivate ('Battle of ImmortalsBeta Version')
Return
EndFunc

Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Program "Stop"', 2, 0)
WEnd
Sleep(100)
Auto()
EndFunc

;_____________________________Function Exit __________________________________
Func Auto()
Sleep(500)
ToolTip('Program "Run"', 2, 0)
start()
EndFunc

Func DoExit()
ToolTip("Exit Program ", 2, 0)
MsgBox(64, "โปรแกรม Help Play Game Battle of the Immortals V.1", " Thanks for used, Made By ScanditionX")
Exit
EndFunc

Func DoAbout()
Sleep(100)
Msgbox(64,"BOI Help Play V.1",$about & @lf & " Made by ScanditionX")
EndFunc


Func DoExit1()
ToolTip("Exit Program ", 2, 0)
MsgBox(64, "โปรแกรม Help Play Game Battle of the Immortals V.1", " Thanks for used, Made By ScanditionX")
Exit
EndFunc

;_____________________________Function AI Auto __________________________________
Func start()
_Run()
$Pixel = PixelGetColor(614 ,19) ;HP Monster
if $Pixel <>0x911519 Then
Sleep(100)
Send ("{TAB}")
sleep(100)
Send ("{1}")
EndIf

_Run()
$Pixel = PixelGetColor(228,36) ; HP ตัวผู้เล่น
if $Pixel = 0x252421 Then
Send ("{F1}")
sleep(100)
EndIf

_Run()
$Pixel = PixelGetColor(149,49) ; MP ตัวผู้เล่น
if $Pixel = 0x1A1A17 Then
Send ("{F2}")
sleep(100)
EndIf

_Run()
$Pixel = PixelGetColor(235,69) ; Skill EXP Auto
if $Pixel <> 0x0F0E0C Then
Send ("{0}")
sleep(100)
EndIf

_Run()
$Pixel = PixelGetColor(145,51) ; มี MP ให้ใช้สกิลได้
if $Pixel = 0x125CB3 Then
Send ("{2}")
Send ("{3}")
sleep(100)
EndIf

start()
EndFunc


;_____________________________Function AI Auto __________________________________


แต่ (ข้างบน)
ผมไม่เข้าใจ
Code:
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
TraySetIcon("shell32.dll",-72)


traytip("ScanditionX Present","โปรแกรม Help Play Battle of the Immortals V.1 ",11,1)
SplashImageOn("","publ_logo.JPG" , 243, 252, -1, -1, 17)
Sleep(1000)
SplashOff()



Hotkeyset("{INSERT}","Pause") ; Run&Stop Program
Hotkeyset("{END}","DoExit1") ; ออกโปรแกรม


$about = ''
$about &= "โปรแกรม Help Play Game Battle of the Immortals V.1" & @LF
$about &= ''& @LF


TrayCreateItem("โปรแกรม Help Play Game Battle of the Immortals")
TrayCreateItem("")
TrayCreateItem("Program Run = INSERT KEY")
TrayCreateItem("Program Stop = INSERT KEY")
TrayCreateItem("")
TrayCreateItem("เกี่ยวกับโปรแกรม")
TrayItemSetOnEvent(-1, "DoAbout")
TrayCreateItem("")
TrayCreateItem("ออกจากโปรแกรม (กดปุ่ม END)")
TrayItemSetOnEvent(-1, "DoExit")

Global $Paused

if Not WinExists ("Battle of ImmortalsBeta Version") then
MsgBox(64, "โปรแกรม Help Play Game Battle of the Immortals V.1", " You must be running เกม")
Exit
EndIf






บอทที่ผมพยายามทำ ที่มันใช้ไม่ได้เพราะมันไม่มีข้างบนหรือป่าว






ผู้รู้ช่วยทีครับ
อธิบายทีละบันทัดให้ทีครับ
(พึ่งหัดทำ จริง ๆ )

wdiLi
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 73
ความนิยม : 7
เข้าร่วมเมื่อ : 29/01/2011
อายุ : 26

Re: แจกครับ ผมไม่ทำต่อละครับเป็นบอทเกมออนไลน์น่าจะเคยเล่นกันครับ

ตั้งหัวข้อ by wdiLi on 09/02/11, 03:01 am

ผมว่าไม่น่าเกี่ยวนะครับ เพราะว่าคำสั่งพวก traytip น่าจะแสดงพวกเกี่ยวกับข้อความ ทิป เกี่ยวกับโปรแกรม

หรือข้อความที่ programmer จะสื่อต่อ user ผู้ใช้งาน

******รอให้ผู้จริงมาตอบนะครับ ผมก็ไม่รู้เหมือนกัน********

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


จำนวนข้อความ : 1
ความนิยม : 0
เข้าร่วมเมื่อ : 01/03/2011

Re: แจกครับ ผมไม่ทำต่อละครับเป็นบอทเกมออนไลน์น่าจะเคยเล่นกันครับ

ตั้งหัวข้อ by ATiT on 01/03/11, 04:04 pm

ขออธิบายแบบคร่าวๆ ดังนี้

;;;;;; สร้างเหตุการณ์ เมื่อคลิ๊กขวาที่ไอคอนเทรย์ ;;;;;;;;;
;; ไอคอนเทรย์ คือ ไอคอนที่ด้านล่างมุมขวามือ ของจอภาพ ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
TraySetIcon("shell32.dll",-72)


;;;;;; สร้าง HINT (ข้อความ จะแสดงเมื่อผู้ใช้เลื่อนเมาท์มาที่โปรแกรมของเราที่ไอคอนเทรย์) ;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

traytip("ScanditionX Present","โปรแกรม Help Play Battle of the Immortals V.1 ",11,1)
SplashImageOn("","publ_logo.JPG" , 243, 252, -1, -1, 17) ;;; << ต้องมีรูปภาพ publ_logo.JPG ในโฟล์เดอร์ ด้วยนะ !!
Sleep(1000)
SplashOff()


;;;;;; ประกาศตัวแปร แบบโกลบอล เพื่อกำหนดค่าคีย์ลัด ;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Hotkeyset("{INSERT}","Pause") ; Run&Stop Program
Hotkeyset("{END}","DoExit1") ; ออกโปรแกรม


$about = ''
$about &= "โปรแกรม Help Play Game Battle of the Immortals V.1" & @LF
$about &= ''& @LF


;;;;;; สร้างเมนู (เมื่อผู้ใช้คลิ๊กขวาที่ไอคอนเทรย์) ;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TrayCreateItem("โปรแกรม Help Play Game Battle of the Immortals")
TrayCreateItem("")
TrayCreateItem("Program Run = INSERT KEY")
TrayCreateItem("Program Stop = INSERT KEY")
TrayCreateItem("")
TrayCreateItem("เกี่ยวกับโปรแกรม")
TrayItemSetOnEvent(-1, "DoAbout")
TrayCreateItem("")
TrayCreateItem("ออกจากโปรแกรม (กดปุ่ม END)")
TrayItemSetOnEvent(-1, "DoExit")


* จะมีส่วนนี้หรือไม่ ก็แล้วแต่ ผู้เขียนสคริป กำหนด *
* ไม่มีผล ต่อการทำงานของสคริป *
* แค่เพิ่มความสะดวก แก่ผู้ใช้งาน *

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