Bot ini pernah gue buat dengan menggunakan logic macro. dan udah gue test waktu itu pada saat masih kecanduan game online (T_T). buat yg ingin coba-coba untuk otak atik lagi silakan karena ini open source kok. siapa tau dapet masukan dari master-master macro. dan ingat untuk membuat bot ini bekerja eco harus dalam windows mode dengan resolusi 960×600. semoga bermanfaat
#include <Array.au3>
;********************************************************************************
;* AutoIt Script v3.x *
;* Project: d34th’s eco bot *
;* Description: Bot Engine for Emil Chronicle Online (color based) *
;* Author: d34th *
;********************************************************************************
;* AutoIt Script v3.x *
;* Project: d34th’s eco bot *
;* Description: Bot Engine for Emil Chronicle Online (color based) *
;* Author: d34th *
;********************************************************************************
;revision on ver 0.9
;remove autopot – autopot will designed stand anlone script
;fix autoclick monster when alot of monster in wide area untill monster in close area dissapear
;adding auto yes confirmation when char dead
;=================================================================================
;note to make this bot working properly
;1. use 960×600 window mode
;2. only run when eco window is activate
;3. use autoit to compile and edit this script
;=================================================================================
;remove autopot – autopot will designed stand anlone script
;fix autoclick monster when alot of monster in wide area untill monster in close area dissapear
;adding auto yes confirmation when char dead
;=================================================================================
;note to make this bot working properly
;1. use 960×600 window mode
;2. only run when eco window is activate
;3. use autoit to compile and edit this script
;=================================================================================
MsgBox(0,”Auto Hunt For ECO ver 0.9″,”Press End : ON/OFF Hunt Blue Monster” & @LF & _
“Press PageDown : ON/OFF Hunt Green Monster” & @lf & _
“Press Home : ON/OFF Hunt Red Monster” & @lf & _
“Press Pause : ON/OFF auto ressurect” & @lf & _
“Press PageUp : Exit” & @lf & _
“ ” & @lf & _
“ coded by : d34th”) ;message box with line break
“Press PageDown : ON/OFF Hunt Green Monster” & @lf & _
“Press Home : ON/OFF Hunt Red Monster” & @lf & _
“Press Pause : ON/OFF auto ressurect” & @lf & _
“Press PageUp : Exit” & @lf & _
“ ” & @lf & _
“ coded by : d34th”) ;message box with line break
hotkeyset(“{end}”,”hbm”) ;set hotkey for starting bot
HotKeySet(“{pgdn}”,”hgm”)
HotKeySet(“{home}”,”hrm”)
HotKeySet(“{pause}”,”ress”)
HotKeySet(“{pgup}”,”exitbot”)
HotKeySet(“{pgdn}”,”hgm”)
HotKeySet(“{home}”,”hrm”)
HotKeySet(“{pause}”,”ress”)
HotKeySet(“{pgup}”,”exitbot”)
dim $hbm = False ;declared array in false term
dim $hgm = False
dim $hrm = False
dim $ress = False
dim $hgm = False
dim $hrm = False
dim $ress = False
dim $m_stat = 0
dim $w_range = 500
dim $c_range = 3500
dim $w_range = 500
dim $c_range = 3500
Local $l_co[2] ;make array for higher or lower coordinate
$l_co[0] = 20
$l_co[1] = 20
$l_co[1] = 20
ToolTip(“Hunt Blue : OFF”,15,0)
ToolTip(“Hunt Green : OFF”,30,0)
ToolTip(“Hunt Red : OFF”,45,0)
ToolTip(“BOT Status : OFF”,0,0)
ToolTip(“Hunt Green : OFF”,30,0)
ToolTip(“Hunt Red : OFF”,45,0)
ToolTip(“BOT Status : OFF”,0,0)
;======================================================================================
;Function Scripts
;————————————————————————————–
func hbm() ;make “hbm” function
sleep(100)
if $hbm = False Then
$hbm = True
ToolTip(“Hunt Blue : ON”,15,0)
Else
$hbm = False
ToolTip(“Hunt Blue : OFF”,15,0)
EndIf
EndFunc
func hgm() ;make “hgm” function
sleep(100)
if $hgm = False Then
$hgm = True
ToolTip(“Hunt Green : ON”,30,0)
Else
$hgm = False
ToolTip(“Hunt Green : OFF”,30,0)
EndIf
EndFunc
func hrm() ;make “hbm” function
sleep(100)
if $hrm = False Then
$hrm = True
ToolTip(“Hunt RED : ON”,45,0)
Else
$hrm = False
ToolTip(“Hunt RED : OFF”,45,0)
EndIf
EndFunc
Func ress()
if $ress = False Then
$ress = True
tooltip(“auto ress : ON”,60,0)
Else
$ress = False
tooltip(“auto ress : OFF”,60,0)
EndIf
EndFunc
;======================================================================================
;Function Scripts
;————————————————————————————–
func hbm() ;make “hbm” function
sleep(100)
if $hbm = False Then
$hbm = True
ToolTip(“Hunt Blue : ON”,15,0)
Else
$hbm = False
ToolTip(“Hunt Blue : OFF”,15,0)
EndIf
EndFunc
func hgm() ;make “hgm” function
sleep(100)
if $hgm = False Then
$hgm = True
ToolTip(“Hunt Green : ON”,30,0)
Else
$hgm = False
ToolTip(“Hunt Green : OFF”,30,0)
EndIf
EndFunc
func hrm() ;make “hbm” function
sleep(100)
if $hrm = False Then
$hrm = True
ToolTip(“Hunt RED : ON”,45,0)
Else
$hrm = False
ToolTip(“Hunt RED : OFF”,45,0)
EndIf
EndFunc
Func ress()
if $ress = False Then
$ress = True
tooltip(“auto ress : ON”,60,0)
Else
$ress = False
tooltip(“auto ress : OFF”,60,0)
EndIf
EndFunc
;======================================================================================
;======================================================================================
;logic script
;————————————————————————————–
Local $s_co[8] ;array for square coordinate
;logic script
;————————————————————————————–
Local $s_co[8] ;array for square coordinate
$s_co[0]=”272″ ;x1 wide area
$s_co[1]=”102″ ;y1 wide area
$s_co[2]=”835″ ;x2 wide area
$s_co[3]=”509″ ;y2 wide area
$s_co[4]=”413″ ;x1 close area
$s_co[5]=”251″ ;y1 close area
$s_co[6]=”639″ ;x2 close area
$s_co[7]=”472″ ;y2 close area
$s_co[1]=”102″ ;y1 wide area
$s_co[2]=”835″ ;x2 wide area
$s_co[3]=”509″ ;y2 wide area
$s_co[4]=”413″ ;x1 close area
$s_co[5]=”251″ ;y1 close area
$s_co[6]=”639″ ;x2 close area
$s_co[7]=”472″ ;y2 close area
While True
if $hbm = True Then
$coor = PixelSearch($s_co[4],$s_co[5],$s_co[6],$s_co[7],0x6EC7FF,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($c_range)
$m_stat = 1
Else
$coor = PixelSearch($s_co[0],$s_co[1],$s_co[2],$s_co[3],0x6EC7FF,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($w_range)
$m_stat = 1
Else
Sleep(100)
$m_stat = 0
EndIf
EndIf
EndIf
if $hgm = True Then
$coor = PixelSearch($s_co[4],$s_co[5],$s_co[6],$s_co[7],0x63FF63,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($c_range)
$m_stat = 1
Else
$coor = PixelSearch($s_co[0],$s_co[1],$s_co[2],$s_co[3],0x63FF63,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($w_range)
$m_stat = 1
Else
Sleep(100)
$m_stat = 0
EndIf
EndIf
EndIf
if $hrm = True Then
$coor = PixelSearch($s_co[4],$s_co[5],$s_co[6],$s_co[7],0xFF3A3A,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($c_range)
$m_stat = 1
Else
$coor = PixelSearch($s_co[0],$s_co[1],$s_co[2],$s_co[3],0xFF3A3A,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($w_range)
$m_stat = 1
Else
Sleep(100)
$m_stat = 0
EndIf
EndIf
EndIf
if $hbm = True Or $hgm = True or $hrm = True And $m_stat = 0 Then
MouseClickDrag(“right”,350,150,650,150,0)
sleep(250)
EndIf
if $ress = True Then
$coor = PixelSearch(59,235,61,238,0×521010,0)
if not @error Then
MouseClick(“left”,259,283,3,0)
sleep(100)
EndIf
EndIf
WEnd
if $hbm = True Then
$coor = PixelSearch($s_co[4],$s_co[5],$s_co[6],$s_co[7],0x6EC7FF,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($c_range)
$m_stat = 1
Else
$coor = PixelSearch($s_co[0],$s_co[1],$s_co[2],$s_co[3],0x6EC7FF,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($w_range)
$m_stat = 1
Else
Sleep(100)
$m_stat = 0
EndIf
EndIf
EndIf
if $hgm = True Then
$coor = PixelSearch($s_co[4],$s_co[5],$s_co[6],$s_co[7],0x63FF63,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($c_range)
$m_stat = 1
Else
$coor = PixelSearch($s_co[0],$s_co[1],$s_co[2],$s_co[3],0x63FF63,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($w_range)
$m_stat = 1
Else
Sleep(100)
$m_stat = 0
EndIf
EndIf
EndIf
if $hrm = True Then
$coor = PixelSearch($s_co[4],$s_co[5],$s_co[6],$s_co[7],0xFF3A3A,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($c_range)
$m_stat = 1
Else
$coor = PixelSearch($s_co[0],$s_co[1],$s_co[2],$s_co[3],0xFF3A3A,0)
if not @error Then
MouseClick(“left”,$coor[0]+$l_co[0],$coor[1]+$l_co[1],2,0)
Sleep($w_range)
$m_stat = 1
Else
Sleep(100)
$m_stat = 0
EndIf
EndIf
EndIf
if $hbm = True Or $hgm = True or $hrm = True And $m_stat = 0 Then
MouseClickDrag(“right”,350,150,650,150,0)
sleep(250)
EndIf
if $ress = True Then
$coor = PixelSearch(59,235,61,238,0×521010,0)
if not @error Then
MouseClick(“left”,259,283,3,0)
sleep(100)
EndIf
EndIf
WEnd
func exitbot()
Exit
EndFunc
Exit
EndFunc
Harap dibaca dlu untuk membuat BOT ini bekerja pada kolom comment di atas. dan ini merupakan source code bukan aplikasi. untuk compile dan membuat program ini bekerja harus di pc kalian harus sudah terinstall program autoit. semoga bermanfaat. thanks
2 komentar:
AMBIL KEBERUNTUNGAN TERBESAR ANDA !
WEBSITE : AGEN TOGEL TERPERCAYA
SELAMAT UNTUK ANDA !
Langsung daftarkan dan raih kemenangan terbesarmu bersama kami.
1 UserID bisa dimainkan untuk semua games :
* Sabung Ayam
* Sportsbook
* Togel Online
* Poker & Domino
* Live Casino
Kami juga selalu memberikan pelayanan terbaik dengan event event terbaru dari kami.
* Event Freechip - Hanya dengan melakukan share dan tag ke 30 teman kamu akan kami berikan freechip sebesar 10 ribu .
* Event Mengajak Teman - Dengan mengajak teman daftar dan bermain maka kamu akan mendapatkan bonus 10% dari total deposit teman kamu
* Event Tebak Angka 2D GRATIS - Menebak angka 2D belakang pasaran Singapura setiap harinya dengan gratis , dan ambil hadiah mu setiap hari bersama kami.
JANGAN TUNGGU LAGI !
WWW.DUNIA4D.COM
WWW.DUNIA4D.NET
WWW.DUNIA4D.INFO
Contact Us :
BBM : D1BE23C5
Line: Dunia4d
WA : +855964984556
Numpang share ya kak, artikel ini sangat menarik dan memberikan inspirasi yang baik untuk kita semua dan jangan lupa untuk mengunjungi situs kami ya
CONTACT US:
BBM : ROKET4D
LINE : ROKET4D
WHATSAPP : +855964982538
IG : ROKET4D
Taruhan Bola Online
Togel Online
Posting Komentar