• Silahkan bergabung dengan chat kami di Telegram group kami di N3Forum - https://t.me/n3forum
  • Welcome to the Nyit-Nyit.Net - N3 forum! This is a forum where offline-online gamers, programmers and reverser community can share, learn, communicate and interact, offer services, sell and buy game mods, hacks, cracks and cheats related, including for iOS and Android.

    If you're a pro-gamer or a programmer or a reverser, we would like to invite you to Sign Up and Log In on our website. Make sure to read the rules and abide by it, to ensure a fair and enjoyable user experience for everyone.

Tempat Share Autoit Dragonica Disini Yah

Status
Not open for further replies.

btoa

Belum Sekolah
Level 1
masih dc ya ampe skarang...

apa mungkin packet yang dikirim ke server beda kali ya seperti kata atas gw..

f1 di keyboard sama f1 yang ada di autoIT..
gimana ngeceknya ya..

nyobain pake mouse click juga ga bisa...pas lagi di windownya dragonica script autoITnya jadi ga gerak..
 

Logi

PAUD
Level 1
masih dc ya ampe skarang...

apa mungkin packet yang dikirim ke server beda kali ya seperti kata atas gw..

f1 di keyboard sama f1 yang ada di autoIT..
gimana ngeceknya ya..

nyobain pake mouse click juga ga bisa...pas lagi di windownya dragonica script autoITnya jadi ga gerak..
Bisa kok bro,, coba chek di youtube aja dragonica pvp bot..
cari referensi dari sana :)

Good Luck :D

Atau bisa PM saya for jasa GB medal bro.. 125rb / medal untuk anak nyiters :D
 

nyo11

Belum Sekolah
Level 1
Code:
#IfWinActive Dragonica
^h::                                                               ;Press Ctrl+H to start the "Spamming"
stop := 0
Critical, off
Sleep, 500

Loopit:
Loop
{
If stop
break

Random, del, 200, 325                            ; buat random delay key
Random, dur, 210, 335                            ; buat random durasi key pressed
SetKeyDelay, %del%, %dur%
SendPlay,{F1}                                            ;Send the F1 key
Sleep, 500                                                  ;Wait 1/50th of a second
WinActivate, Dragonica
}
return
#IfWinActive

^j::                                                                 ;Press Ctrl+J to close the script
Critical
stop := !stop
Goto, Loopit
return

^p::Pause                                                    ;Press Ctrl+P to pause/un-pause the "Spamming"
coba ini, gw sih bikin sendiri code ini, and blum dc2 sih.
Sapa tau bisa di kamu org.
Thanks
(Tested in Vista)
 

Logi

PAUD
Level 1
Code:
#IfWinActive Dragonica
^h::                                                               ;Press Ctrl+H to start the "Spamming"
stop := 0
Critical, off
Sleep, 500

Loopit:
Loop
{
If stop
break

Random, del, 200, 325                            ; buat random delay key
Random, dur, 210, 335                            ; buat random durasi key pressed
SetKeyDelay, %del%, %dur%
SendPlay,{F1}                                            ;Send the F1 key
Sleep, 500                                                  ;Wait 1/50th of a second
WinActivate, Dragonica
}
return
#IfWinActive

^j::                                                                 ;Press Ctrl+J to close the script
Critical
stop := !stop
Goto, Loopit
return

^p::Pause                                                    ;Press Ctrl+P to pause/un-pause the "Spamming"
coba ini, gw sih bikin sendiri code ini, and blum dc2 sih.
Sapa tau bisa di kamu org.
Thanks
(Tested in Vista)
Dilihat dari codingnya, seperti nya ini untuk AutoHotkey yah...
brati mesti di save dalam .ahk
:)
 

rckyozu

PAUD
Banned
baru mau maen nih gan...
blum tau cara maenya gmn tp join aj :hilarious:

klo buat BOt msh yang macro2 y...
jadi agak rumit...
apalagi nambahin script2... so g mudeng :hilarious:

dibaca dri page 1 ampe sini..
kesimpulan msh bisa DC... buat yg atas tuh
pake autovit ato autohotkey?? :stinker:
 

rhmtlover

PAUD
Level 1
senior senior bisa tolong bantu ??
drtd gw baca t cuma ng-atk 1 spot trus udah atk loot item kan ??

ad yg punya ide biar char bisa gerak kanan kiri sambil atk ??
gw uda mikir" (tp baru logic nya doang ) tp ga jalan".. cm bisa jalan kanan kiri doank .. ga bs sambil atk .. char gw padahal mage .. hehe

mohon dibant y ... :beer: :beer: :beer:
 

rhmtlover

PAUD
Level 1
qo masih dc"an ??
gw ud coba pke random dll dah .. tp msi dc jg ..
ap ad yg punya pencerahan ??
klo menurut gw sih ngatur ms biar ga ad patokannya ..
trs msalahnya kynya d spam jg ad ..

(cm sekedar share pikiran j)
 

questmpg

PAUD
Level 1
ane mo tanya bang, cara set mouse gimana, soalnya saya coba kok ga bisa ya waktu sudah masuk ke window dragonicanya, mohon bimbingannya kalau ada yang tahu
 

pranajaya

Belum Sekolah
Level 1
senior senior bisa tolong bantu ??
drtd gw baca t cuma ng-atk 1 spot trus udah atk loot item kan ??

ad yg punya ide biar char bisa gerak kanan kiri sambil atk ??
gw uda mikir" (tp baru logic nya doang ) tp ga jalan".. cm bisa jalan kanan kiri doank .. ga bs sambil atk .. char gw padahal mage .. hehe

mohon dibant y ... :beer: :beer: :beer:
maap nih, newbie pngen nyoba bantu hehehehe ^_^

itu coba aja d bkin pencet arah kanan/kiri, trus smbil pencet atk
ControlSend('Dragonica','','','{RIGHT down}')

Sleep(1000) <= diatur lagi

ControlSend('Dragonica','','','{x down}')
Sleep(5000) <= atur jg

ControlSend('Dragonica','','','{x up}')
Sleep(100)

ControlSend('Dragonica','','','{RIGHT up}')
kurang lebih kek gtu sih, d sempurna'in lgi.. ^_^

penyakit ny sih, msh sama, DC mlo...
 

rhmtlover

PAUD
Level 1
@^

tq bang .. tp mv sebelumnya .. klo msalah jalan sambi;; atk udah etemu sebelumnya .. nah itu dia .. yg msih jd masalah tetep d DC"annya itu loh ..
 

teenpan

PAUD
Level 1
maaf ane numpang corat-coret dsini

ane dah experimen bot 4 bln lebih tp hasil nya ga pernah mulus @@
pasti cacad di DC nya..
daped dari tetangga sii, ktanya mulai patch 0.??.?? (lupa) di DGN EU/SEA/Iah command control send, while, dan sleep udah di block ma HS, mungkin aja itu yg bkin crash / DC pas pke BOT ( pendapat ane aja )
ni bot ane

ada 2 bot..
bkinan ane ini ( Trapper ):
~hot key >>
Q = Pot HP
W = Pot MP
D = Wolf Rush
E = Blitz
A = Arrow Shower
S = Roket ( lupa nama nya )

Code:
HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit 0
EndFunc
$i = 0            
While $i = 0
Do
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{Q}')
Sleep(2)

ControlSend('Dragonica (Client Ver : 1.4.6)','','','{LEFT DOWN}')
Sleep(1450)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{LEFT UP}')
Sleep(10)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{RIGHT}')
Sleep(2)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{D}')
Sleep(4000)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{RIGHT}')
Sleep(2)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{E}')
Sleep(1000)						
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{RIGHT DOWN}')
Sleep(1400)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{RIGHT UP}')
Sleep(10)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{LEFT}')
Sleep(200)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{A}')
Sleep(1000)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{LEFT}')
Sleep(2)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{S}')
Sleep(1000)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{W}')
Sleep(2)
Until $i = 1
WEnd

msalah >>> DC tiap bbrapa menit


Ni yg daped dari tetangga :

Code:
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author:         Forsaken

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

#Include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <GuiImageList.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <IE.au3>

$oIE = _IECreate ("http://www.snoxd.net",0,0,1,0)
$xHTML = _IEDocReadHTML ($oIE)
$xCheck = StringRegExp($xHTML,"UserName",0)

If $xCheck = 0 Then
$runLogin = 0
ElseIf $xCheck = 1 Then
$runLogin = 1
EndIf

$checkReg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "RegCreate")

If $checkReg = "" Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "RegCreate", "REG_SZ", "Created")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Version", "REG_SZ", "1.4.6")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Chat", "REG_MULTI_SZ", "AFK")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Visibility Key", "REG_SZ", "{NUMPADDIV}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Health Key", "REG_SZ", "{NUMPADSUB}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Manna Key", "REG_SZ", "{NUMPADADD}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Chat Key", "REG_SZ", "{NUMPADMULT}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Combo 1 Key", "REG_SZ", "[")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Combo 2 Key", "REG_SZ", "]")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "keyHP", "REG_SZ", "1")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "keyMP", "REG_SZ", "2")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot1", "REG_SZ", "s")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot1", "REG_SZ", "d")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot1", "REG_SZ", "w")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot1", "REG_SZ", "")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot2", "REG_EXPAND_SZ", "6000")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot2", "REG_EXPAND_SZ", "10000")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot2", "REG_EXPAND_SZ", "4000")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot2", "REG_EXPAND_SZ", "")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot3", "REG_EXPAND_SZ", "1600")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot3", "REG_EXPAND_SZ", "1500")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot3", "REG_EXPAND_SZ", "1800")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot3", "REG_EXPAND_SZ", "")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com1", "REG_SZ", "w")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com2", "REG_SZ", "e")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim1", "REG_EXPAND_SZ", "1600")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim2", "REG_EXPAND_SZ", "1400")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com1", "REG_SZ", "{LEFT}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com2", "REG_SZ", "{LEFT}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com3", "REG_SZ", "c")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim1", "REG_EXPAND_SZ", "100")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim2", "REG_EXPAND_SZ", "100")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim3", "REG_EXPAND_SZ", "0")
EndIf

$version = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Version")

$keyVis = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Visibility Key")
$keyHpp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Health Key")
$keyMpp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Manna Key")
$keyCht = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Chat Key")
$keyCm1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Combo 1 Key")
$keyCm2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Combo 2 Key")

$keyHP = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "keyHP")
$keyMP = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "keyMP")


HotKeySet($keyVis, "_toggleVis")
HotKeySet($keyHpp, "_setHealth")
HotKeySet($keyMpp, "_setMannaa")
HotKeySet($keyCht, "_hotChat")
HotKeySet($keyCm1, "_attack1")
HotKeySet($keyCm2, "_attack2")



GUICreate("Dragonica Auto Bot", 520, 303)
GUICtrlSetState(-1,$GUI_ONTOP)


$botGroup = GUICtrlCreateGroup("",250,-2,265,156)
GUICtrlSetState(-1, $GUI_HIDE)



$console = GUICtrlCreateEdit("", 5, 4, 240, 150, $ES_AUTOVSCROLL)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$chat = GUICtrlCreateEdit("", 250, 158, 210, 40, $ES_AUTOVSCROLL)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)

;ROW 1
$row1Group = GUICtrlCreateGroup("", 5, 152, 119, 124)
GUICtrlSetState(-1,$GUI_HIDE)
$row1Edit = GUICtrlCreateButton("Edit", 9, 251, 111, 20)
GUICtrlSetState(-1,$GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState(-1,$GUI_DISABLE)

$row1p1 = GUICtrlCreateEdit("", 9, 163, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$row1p2 = GUICtrlCreateEdit("", 9, 185, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$row1p3 = GUICtrlCreateEdit("", 9, 207, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$row1p4 = GUICtrlCreateEdit("", 9, 229, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)

;ROW 2
$row2Group = GUICtrlCreateGroup("", 127, 152, 119, 124)
GUICtrlSetState(-1,$GUI_HIDE)
$row2Edit = GUICtrlCreateButton("Edit", 131, 251, 111, 20)
GUICtrlSetState(-1,$GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState(-1,$GUI_DISABLE)

$row2p1 = GUICtrlCreateEdit("",131, 163, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$row2p2 = GUICtrlCreateEdit("",131, 185, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$row2p3 = GUICtrlCreateEdit("",131, 207, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$row2p4 = GUICtrlCreateEdit("",131, 229, 111, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)

;ROW 1 SHOW HIDDEN
$row3Group = GUICtrlCreateGroup("", 5, 152, 240, 124)
GUICtrlSetState(-1,$GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)


$label1 = GUICtrlCreateLabel("Time =>",123,165)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label2 = GUICtrlCreateLabel("Time =>",123,187)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label3 = GUICtrlCreateLabel("Time =>",123,209)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label4 = GUICtrlCreateLabel("Time =>",123,231)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label5 = GUICtrlCreateLabel("( wait (x) ms for next skill )",122,254,119,20)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)

$row1Time1 = GUICtrlCreateEdit("",164, 163, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)
$row1Time2 = GUICtrlCreateEdit("",164, 185, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)
$row1Time3 = GUICtrlCreateEdit("",164, 207, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)
$row1Time4 = GUICtrlCreateEdit("",164, 229, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)

;ROW 2 SHOW HIDDEN
$label11 = GUICtrlCreateLabel("<= Time",86,165)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label22 = GUICtrlCreateLabel("<= Time",86,187)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label33 = GUICtrlCreateLabel("<= Time",86,209)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label44 = GUICtrlCreateLabel("<= Time",86,231)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)
$label55 = GUICtrlCreateLabel("( wait (x) ms for next skill )",8,254,119,20)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1,$GUI_HIDE)

$row2Time1 = GUICtrlCreateEdit("",8, 163, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)
$row2Time2 = GUICtrlCreateEdit("",8, 186, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)
$row2Time3 = GUICtrlCreateEdit("",8, 207, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)
$row2Time4 = GUICtrlCreateEdit("",8, 229, 77, 20, $ES_AUTOVSCROLL + $ES_CENTER)
GUICtrlSetState(-1,$GUI_HIDE)



$enableBot = 0
$enablePotions = 0
$enableChat = 0
$enableSpam = 0
$enableSpeed = 0
$exitProc = 0

If $enablePotions = 0 Then
$hpStat = "OFF"
ElseIf $enablePotions = 1 Then
$hpStat = "ON"
EndIf
If $enableChat = 0 Then
$chatStat = "OFF"
ElseIf $enableChat = 1 Then
$chatStat = "ON"
EndIf
If $enableSpam = 0 Then
$spamStat = "OFF"
ElseIf $enableSpam = 1 Then
$spamStat = "ON"
EndIf

If $enableSpeed = 0 Then
$speedStat = "OFF"
ElseIf $enableSpeed = 1 Then
$speedStat = "ON"
EndIf

If $enableBot = 0 Then
$botStat = "OFF"
ElseIf $enableBot = 1 Then
$botStat = "ON"
EndIf


$cEdit = GUICtrlCreateButton("Edit",465,158,45,40)
GUICtrlSetState(-1,$GUI_HIDE)

$fMenu1 = GUICtrlCreateMenu("File")
GUICtrlSetState(-1,$GUI_DISABLE)
$fSave = GUICtrlCreateMenuItem("Save", $fMenu1)
$fMenu = GUICtrlCreateMenuItem("", $fMenu1, 2)
$fClos = GUICtrlCreateMenuItem("Close", $fMenu1)
$fMenu2 = GUICtrlCreateMenu("Options")
GUICtrlSetState(-1,$GUI_DISABLE)
$fInvi = GUICtrlCreateMenuItem("Invisible", $fMenu2)
$fVisi = GUICtrlCreateMenuItem("Visible", $fMenu2)
$fMenu3 = GUICtrlCreateMenu("Tools")
GUICtrlSetState(-1,$GUI_DISABLE)
$fPoti = GUICtrlCreateMenuItem("Auto Pot	"&$hpStat, $fMenu3)
$fChat = GUICtrlCreateMenuItem("Auto Chat	"&$chatStat, $fMenu3)
$fSpam = GUICtrlCreateMenuItem("Auto Combo	"&$spamStat, $fMenu3)
$fBott = GUICtrlCreateMenuItem("Auto Bot	"&$botStat, $fMenu3)
$fSpee = GUICtrlCreateMenuItem("Dash Mode	"&$speedStat, $fMenu3)
$fMenu4 = GUICtrlCreateMenu("Settings")
GUICtrlSetState(-1,$GUI_DISABLE)
$fPotS = GUICtrlCreateMenuItem("Potion Keys", $fMenu4)
$fClie = GUICtrlCreateMenuItem("Game Version", $fMenu4)
$fAuto = GUICtrlCreateMenuItem("Bot General", $fMenu4)
$fMenu5 = GUICtrlCreateMenu("Help")
GUICtrlSetState(-1,$GUI_DISABLE)
$fGuid = GUICtrlCreateMenuItem("Guide", $fMenu5)
$fAbot = GUICtrlCreateMenuItem("About", $fMenu5)


GUISetState(@SW_SHOW)


$temp1Slot1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot1")
$temp2Slot1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot1")
$temp3Slot1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot1")
$temp4Slot1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot1")

$temp1Slot2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot2")
$temp2Slot2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot2")
$temp3Slot2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot2")
$temp4Slot2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot2")

$temp1Slot3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot3")
$temp2Slot3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot3")
$temp3Slot3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot3")
$temp4Slot3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot3")

$tLabel1 = GUICtrlCreateLabel("send",255,12)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam1Slot1 = GUICtrlCreateInput($temp1Slot1,282,10,20,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel2 = GUICtrlCreateLabel("every",305,12)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam1Slot2 = GUICtrlCreateInput($temp1Slot2,335,10,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel3 = GUICtrlCreateLabel("ms then wait",380,12)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam1Slot3 = GUICtrlCreateInput($temp1Slot3,445,10,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel4 = GUICtrlCreateLabel("ms",490,12)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)


$tLabel5 = GUICtrlCreateLabel("send",255,42)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam2Slot1 = GUICtrlCreateInput($temp2Slot1,282,40,20,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel6 = GUICtrlCreateLabel("every",305,42)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam2Slot2 = GUICtrlCreateInput($temp2Slot2,335,40,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel7 = GUICtrlCreateLabel("ms then wait",380,42)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam2Slot3 = GUICtrlCreateInput($temp2Slot3,445,40,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel8 = GUICtrlCreateLabel("ms",490,42)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)

$tLabel9 = GUICtrlCreateLabel("send",255,72)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam3Slot1 = GUICtrlCreateInput($temp3Slot1,282,70,20,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel10 = GUICtrlCreateLabel("every",305,72)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam3Slot2 = GUICtrlCreateInput($temp3Slot2,335,70,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel11 = GUICtrlCreateLabel("ms then wait",380,72)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam3Slot3 = GUICtrlCreateInput($temp3Slot3,445,70,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel12 = GUICtrlCreateLabel("ms",490,72)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)

$tLabel13 = GUICtrlCreateLabel("send",255,102)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam4Slot1 = GUICtrlCreateInput($temp4Slot1,282, 100,20,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel14 = GUICtrlCreateLabel("every",305,102)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam4Slot2 = GUICtrlCreateInput($temp4Slot2,335,100,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel15 = GUICtrlCreateLabel("ms then wait",380,102)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tSpam4Slot3 = GUICtrlCreateInput($temp4Slot3,445,100,40,20,$ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$tLabel16 = GUICtrlCreateLabel("ms",490,102)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)

$botEditButton = GUICtrlCreateButton("Edit",420, 130,90,20)
GUICtrlSetState(-1, $GUI_HIDE)
$stopTheBot = GUICtrlCreateButton("Start",255, 130,90,20)
GUICtrlSetState(-1, $GUI_HIDE)


$scriptDir = @ScriptDir
$timerHealth = TimerInit()
$timerMannaa = TimerInit()
$chatTime = TimerInit()
$hpTime = TimerInit()
$mpTime = TimerInit()
$timer1 = TimerInit()
$timer2 = TimerInit()
$timer3 = TimerInit()
$timer4 = TimerInit()
$timer11 = TimerInit()
$timer22 = TimerInit()
$timer33 = TimerInit()
$timer44 = TimerInit()
$botTimer1 = TimerInit()
$botTimer2 = TimerInit()
$botTimer3 = TimerInit()
$botTimer4 = TimerInit()
$msg = GUIGetMsg()
$healthChange = "0"
$mannaaChange = "0"
$health = "0"
$mannaa = "0"
$healthTime = "0"
$mannaaTime = "0"
$healthSend = "0"
$mannaaSend = "0"
$xHealth = "0"
$xMannaa = "0"
$yHealth = "0"
$yMannaa = "0"
$lowHealth = "0"
$lowMannaa = "0"
$send1 = 0
$send2 = 0
$send3 = 0
$send4 = 1
$g = 1
$v = 1
$p = 1
$l = 1
$u = 0

$lGroup = GUICtrlCreateGroup("",190,55,140,90)
$lDisab = GUICtrlSetState(-1, $GUI_HIDE)

$username = GUICtrlCreateInput("username",205, 75, 110, 20, $ES_CENTER)
$lDisab = GUICtrlSetState(-1, $GUI_HIDE)
$password = GUICtrlCreateInput("password",205, 110, 110, 20, $ES_CENTER + $ES_PASSWORD)
$lDisab = GUICtrlSetState(-1, $GUI_HIDE)

$enter = GUICtrlCreateButton("Login",190, 150,65,25)
$lDisab = GUICtrlSetState(-1, $GUI_HIDE)
$regis = GUICtrlCreateButton("Register",265, 150,65,25)
$lDisab = GUICtrlSetState(-1, $GUI_HIDE)

$lLabel = GUICtrlCreateLabel("Register free at"&@CRLF&"www.snoxd.net", 200, 190,120,45,$ES_CENTER)
$lDisab = GUICtrlSetState(-1, $GUI_HIDE)


If $runLogin = 1 Then
GUICtrlSetState($lGroup, $GUI_SHOW)
GUICtrlSetState($username, $GUI_SHOW)
GUICtrlSetState($password, $GUI_SHOW)
GUICtrlSetState($enter, $GUI_SHOW)
GUICtrlSetState($regis, $GUI_SHOW)
GUICtrlSetState($lLabel, $GUI_SHOW)
ElseIf $runLogin = 0 Then
_IEQuit ($oIE)
GUICtrlSetState($cEdit, $GUI_SHOW)
GUICtrlSetState($row2p1, $GUI_SHOW)
GUICtrlSetState($row2p2, $GUI_SHOW)
GUICtrlSetState($row2p3, $GUI_SHOW)
GUICtrlSetState($row2p4, $GUI_SHOW)
GUICtrlSetState($row2Edit, $GUI_SHOW)
GUICtrlSetState($row2Group, $GUI_SHOW)
GUICtrlSetState($console, $GUI_SHOW)
GUICtrlSetState($chat, $GUI_SHOW)
GUICtrlSetState($row1p1, $GUI_SHOW)
GUICtrlSetState($row1p2, $GUI_SHOW)
GUICtrlSetState($row1p3, $GUI_SHOW)
GUICtrlSetState($row1p4, $GUI_SHOW)
GUICtrlSetState($row1Edit, $GUI_SHOW)
GUICtrlSetState($row1Group, $GUI_SHOW)

GUICtrlSetState($tSpam1Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam1Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam1Slot3,$GUI_SHOW)
GUICtrlSetState($tSpam2Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam2Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam2Slot3,$GUI_SHOW)
GUICtrlSetState($tSpam3Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam3Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam3Slot3,$GUI_SHOW)
GUICtrlSetState($tSpam4Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam4Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam4Slot3,$GUI_SHOW)

GUICtrlSetState($tLabel1 ,$GUI_SHOW)
GUICtrlSetState($tLabel2 ,$GUI_SHOW)
GUICtrlSetState($tLabel3 ,$GUI_SHOW)
GUICtrlSetState($tLabel4 ,$GUI_SHOW)
GUICtrlSetState($tLabel5 ,$GUI_SHOW)
GUICtrlSetState($tLabel6 ,$GUI_SHOW)
GUICtrlSetState($tLabel7 ,$GUI_SHOW)
GUICtrlSetState($tLabel8 ,$GUI_SHOW)
GUICtrlSetState($tLabel9 ,$GUI_SHOW)
GUICtrlSetState($tLabel10 ,$GUI_SHOW)
GUICtrlSetState($tLabel11 ,$GUI_SHOW)
GUICtrlSetState($tLabel12 ,$GUI_SHOW)
GUICtrlSetState($tLabel13 ,$GUI_SHOW)
GUICtrlSetState($tLabel14 ,$GUI_SHOW)
GUICtrlSetState($tLabel15 ,$GUI_SHOW)
GUICtrlSetState($tLabel16 ,$GUI_SHOW)


GUICtrlSetState($botGroup ,$GUI_SHOW)
GUICtrlSetState($botEditButton ,$GUI_SHOW)
GUICtrlSetState($stopTheBot ,$GUI_SHOW)

GUICtrlSetState($fMenu1,$GUI_ENABLE)
GUICtrlSetState($fMenu2,$GUI_ENABLE)
GUICtrlSetState($fMenu3,$GUI_ENABLE)
GUICtrlSetState($fMenu4,$GUI_ENABLE)
GUICtrlSetState($fMenu5,$GUI_ENABLE)
EndIf

_print(_getDate()&"      "&_getTime()&"       "&"Console loaded", 1)
_print(_getDate()&"      "&_getTime()&"       "&"Chat box loaded", 1)

_setVariables()

While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE
_encryptSave()
_IEQuit ($oIE)
Exit
Case $fBott
If $enableBot = 0 Then
$enableBot = 1
$botStat = "ON"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode enabled", 1)
GUICtrlSetData($stopTheBot,"Stop")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
ElseIf $enableBot = 1 Then
$enableBot = 0
$botStat = "OFF"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode disabled", 1)
GUICtrlSetData($stopTheBot,"Start")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
EndIf
Case $stopTheBot
If $enableBot = 0 Then
$enableBot = 1
$botStat = "ON"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode enabled", 1)
GUICtrlSetData($stopTheBot,"Stop")
ElseIf $enableBot = 1 Then
$enableBot = 0
$botStat = "OFF"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode disabled", 1)
GUICtrlSetData($stopTheBot,"Start")
EndIf
Case $botEditButton
If $u = 0 Then
GUICtrlSetState($tSpam1Slot1,$GUI_ENABLE)
GUICtrlSetState($tSpam1Slot2,$GUI_ENABLE)
GUICtrlSetState($tSpam1Slot3,$GUI_ENABLE)
GUICtrlSetState($tSpam2Slot1,$GUI_ENABLE)
GUICtrlSetState($tSpam2Slot2,$GUI_ENABLE)
GUICtrlSetState($tSpam2Slot3,$GUI_ENABLE)
GUICtrlSetState($tSpam3Slot1,$GUI_ENABLE)
GUICtrlSetState($tSpam3Slot2,$GUI_ENABLE)
GUICtrlSetState($tSpam3Slot3,$GUI_ENABLE)
GUICtrlSetState($tSpam4Slot1,$GUI_ENABLE)
GUICtrlSetState($tSpam4Slot2,$GUI_ENABLE)
GUICtrlSetState($tSpam4Slot3,$GUI_ENABLE)

GUICtrlSetData($botEditButton,"Save")
$u = 1

ElseIf $u = 1 Then
_saveBotKeys()
_print(_getDate()&"      "&_getTime()&"       "&"Bot settings saved", 1)
GUICtrlSetState($tSpam1Slot1,$GUI_DISABLE)
GUICtrlSetState($tSpam1Slot2,$GUI_DISABLE)
GUICtrlSetState($tSpam1Slot3,$GUI_DISABLE)
GUICtrlSetState($tSpam2Slot1,$GUI_DISABLE)
GUICtrlSetState($tSpam2Slot2,$GUI_DISABLE)
GUICtrlSetState($tSpam2Slot3,$GUI_DISABLE)
GUICtrlSetState($tSpam3Slot1,$GUI_DISABLE)
GUICtrlSetState($tSpam3Slot2,$GUI_DISABLE)
GUICtrlSetState($tSpam3Slot3,$GUI_DISABLE)
GUICtrlSetState($tSpam4Slot1,$GUI_DISABLE)
GUICtrlSetState($tSpam4Slot2,$GUI_DISABLE)
GUICtrlSetState($tSpam4Slot3,$GUI_DISABLE)

GUICtrlSetData($botEditButton,"Edit")
$u = 0

EndIf

Case $enter
$oForm = _IEFormGetCollection ($oIE, 0)
$oQuery1 = _IEFormElementGetObjByName ($oForm, "UserName")
_IEFormElementSetValue ($oQuery1, GUICtrlRead($username))
$oQuery2 = _IEFormElementGetObjByName ($oForm, "PassWord")
_IEFormElementSetValue ($oQuery2, GUICtrlRead($password))
_IEFormSubmit ($oForm)

$sHTML = _IEDocReadHTML ($oIE)
$check = StringRegExp($sHTML,"UserName",0)

If $check = 1 Then
_IEQuit ($oIE)
MsgBox(1,"Error", "Invalid username or password.")
$oIE = _IECreate ("http://www.snoxd.net",0,0,1,0)
ElseIf $check = 0 Then
_IEQuit ($oIE)
GUICtrlSetState($lGroup, $GUI_HIDE)
GUICtrlSetState($username, $GUI_HIDE)
GUICtrlSetState($password, $GUI_HIDE)
GUICtrlSetState($enter, $GUI_HIDE)
GUICtrlSetState($regis, $GUI_HIDE)
GUICtrlSetState($lLabel, $GUI_HIDE)

GUICtrlSetState($cEdit, $GUI_SHOW)
GUICtrlSetState($row2p1, $GUI_SHOW)
GUICtrlSetState($row2p2, $GUI_SHOW)
GUICtrlSetState($row2p3, $GUI_SHOW)
GUICtrlSetState($row2p4, $GUI_SHOW)
GUICtrlSetState($row2Edit, $GUI_SHOW)
GUICtrlSetState($row2Group, $GUI_SHOW)
GUICtrlSetState($console, $GUI_SHOW)
GUICtrlSetState($chat, $GUI_SHOW)
GUICtrlSetState($row1p1, $GUI_SHOW)
GUICtrlSetState($row1p2, $GUI_SHOW)
GUICtrlSetState($row1p3, $GUI_SHOW)
GUICtrlSetState($row1p4, $GUI_SHOW)
GUICtrlSetState($row1Edit, $GUI_SHOW)
GUICtrlSetState($row1Group, $GUI_SHOW)

GUICtrlSetState($tSpam1Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam1Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam1Slot3,$GUI_SHOW)
GUICtrlSetState($tSpam2Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam2Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam2Slot3,$GUI_SHOW)
GUICtrlSetState($tSpam3Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam3Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam3Slot3,$GUI_SHOW)
GUICtrlSetState($tSpam4Slot1,$GUI_SHOW)
GUICtrlSetState($tSpam4Slot2,$GUI_SHOW)
GUICtrlSetState($tSpam4Slot3,$GUI_SHOW)

GUICtrlSetState($tLabel1 ,$GUI_SHOW)
GUICtrlSetState($tLabel2 ,$GUI_SHOW)
GUICtrlSetState($tLabel3 ,$GUI_SHOW)
GUICtrlSetState($tLabel4 ,$GUI_SHOW)
GUICtrlSetState($tLabel5 ,$GUI_SHOW)
GUICtrlSetState($tLabel6 ,$GUI_SHOW)
GUICtrlSetState($tLabel7 ,$GUI_SHOW)
GUICtrlSetState($tLabel8 ,$GUI_SHOW)
GUICtrlSetState($tLabel9 ,$GUI_SHOW)
GUICtrlSetState($tLabel10 ,$GUI_SHOW)
GUICtrlSetState($tLabel11 ,$GUI_SHOW)
GUICtrlSetState($tLabel12 ,$GUI_SHOW)
GUICtrlSetState($tLabel13 ,$GUI_SHOW)
GUICtrlSetState($tLabel14 ,$GUI_SHOW)
GUICtrlSetState($tLabel15 ,$GUI_SHOW)
GUICtrlSetState($tLabel16 ,$GUI_SHOW)

GUICtrlSetState($botGroup ,$GUI_SHOW)
GUICtrlSetState($botEditButton ,$GUI_SHOW)

GUICtrlSetState($fMenu1,$GUI_ENABLE)
GUICtrlSetState($fMenu2,$GUI_ENABLE)
GUICtrlSetState($fMenu3,$GUI_ENABLE)
GUICtrlSetState($fMenu4,$GUI_ENABLE)
GUICtrlSetState($fMenu5,$GUI_ENABLE)
EndIf
Case $cEdit
If $g = 1 Then
_print(_getDate()&"      "&_getTime()&"       "&"Chat in edit mode", 1)
GUICtrlSetData($cEdit,"Save")
GUICtrlSetState($chat,$GUI_ENABLE)
$g = 2
ElseIf $g = 2 Then
_print(_getDate()&"      "&_getTime()&"       "&"Chat data saved", 1)
GUICtrlSetData($cEdit,"Edit")
GUICtrlSetState($chat,$GUI_DISABLE)
$g = 1
EndIf
Case $regis
ShellExecute("http://snoxd.net/index.php?act=Reg&CODE=00")
Case $fGuid
ShellExecute("http://dragonica.snoxd.net/index.php?showtopic=54356")
Case $row1Edit
If $p = 1 Then
_print(_getDate()&"      "&_getTime()&"       "&"Combo 1 edit mode", 1)
GUICtrlSetData($row1Edit,"Save")
GUICtrlSetState($row1p1,$GUI_ENABLE)
GUICtrlSetState($row1p2,$GUI_ENABLE)
GUICtrlSetState($row1p3,$GUI_ENABLE)
GUICtrlSetState($row1p4,$GUI_ENABLE)
GUICtrlSetState($row2p1,$GUI_HIDE)
GUICtrlSetState($row2p2,$GUI_HIDE)
GUICtrlSetState($row2p3,$GUI_HIDE)
GUICtrlSetState($row2p4,$GUI_HIDE)
GUICtrlSetState($row1Group,$GUI_HIDE)
GUICtrlSetState($row2Group,$GUI_HIDE)
GUICtrlSetState($row2Edit,$GUI_HIDE)
GUICtrlSetState($row3Group,$GUI_SHOW)
GUICtrlSetState($label1,$GUI_SHOW)
GUICtrlSetState($label2,$GUI_SHOW)
GUICtrlSetState($label3,$GUI_SHOW)
GUICtrlSetState($label4,$GUI_SHOW)
GUICtrlSetState($label5,$GUI_SHOW)
GUICtrlSetState($row1Time1,$GUI_SHOW)
GUICtrlSetState($row1Time2,$GUI_SHOW)
GUICtrlSetState($row1Time3,$GUI_SHOW)
GUICtrlSetState($row1Time4,$GUI_SHOW)
$p = 2
ElseIf $p = 2 Then
_print(_getDate()&"      "&_getTime()&"       "&"Combo 1 data saved", 1)
GUICtrlSetData($row1Edit,"Edit")
GUICtrlSetState($row1p1,$GUI_DISABLE)
GUICtrlSetState($row1p2,$GUI_DISABLE)
GUICtrlSetState($row1p3,$GUI_DISABLE)
GUICtrlSetState($row1p4,$GUI_DISABLE)
GUICtrlSetState($row2p1,$GUI_SHOW)
GUICtrlSetState($row2p2,$GUI_SHOW)
GUICtrlSetState($row2p3,$GUI_SHOW)
GUICtrlSetState($row2p4,$GUI_SHOW)
GUICtrlSetState($row1Group,$GUI_SHOW)
GUICtrlSetState($row2Group,$GUI_SHOW)
GUICtrlSetState($row2Edit,$GUI_SHOW)
GUICtrlSetState($row3Group,$GUI_HIDE)
GUICtrlSetState($label1,$GUI_HIDE)
GUICtrlSetState($label2,$GUI_HIDE)
GUICtrlSetState($label3,$GUI_HIDE)
GUICtrlSetState($label4,$GUI_HIDE)
GUICtrlSetState($label5,$GUI_HIDE)
GUICtrlSetState($row1Time1,$GUI_HIDE)
GUICtrlSetState($row1Time2,$GUI_HIDE)
GUICtrlSetState($row1Time3,$GUI_HIDE)
GUICtrlSetState($row1Time4,$GUI_HIDE)
$p = 1
EndIf
Case $row2Edit
If $l = 1 Then
_print(_getDate()&"      "&_getTime()&"       "&"Combo 2 edit mode", 1)
GUICtrlSetData($row2Edit,"Save")
GUICtrlSetState($row2p1,$GUI_ENABLE)
GUICtrlSetState($row2p2,$GUI_ENABLE)
GUICtrlSetState($row2p3,$GUI_ENABLE)
GUICtrlSetState($row2p4,$GUI_ENABLE)
GUICtrlSetState($row1p1,$GUI_HIDE)
GUICtrlSetState($row1p2,$GUI_HIDE)
GUICtrlSetState($row1p3,$GUI_HIDE)
GUICtrlSetState($row1p4,$GUI_HIDE)
GUICtrlSetState($row1Group,$GUI_HIDE)
GUICtrlSetState($row2Group,$GUI_HIDE)
GUICtrlSetState($row1Edit,$GUI_HIDE)
GUICtrlSetState($row3Group,$GUI_SHOW)
GUICtrlSetState($label11,$GUI_SHOW)
GUICtrlSetState($label22,$GUI_SHOW)
GUICtrlSetState($label33,$GUI_SHOW)
GUICtrlSetState($label44,$GUI_SHOW)
GUICtrlSetState($label55,$GUI_SHOW)
GUICtrlSetState($row2Time1,$GUI_SHOW)
GUICtrlSetState($row2Time2,$GUI_SHOW)
GUICtrlSetState($row2Time3,$GUI_SHOW)
GUICtrlSetState($row2Time4,$GUI_SHOW)
$l = 2
ElseIf $l = 2 Then
_print(_getDate()&"      "&_getTime()&"       "&"Combo 2 data saved", 1)
GUICtrlSetData($row2Edit,"Edit")
GUICtrlSetState($row2p1,$GUI_DISABLE)
GUICtrlSetState($row2p2,$GUI_DISABLE)
GUICtrlSetState($row2p3,$GUI_DISABLE)
GUICtrlSetState($row2p4,$GUI_DISABLE)
GUICtrlSetState($row1p1,$GUI_SHOW)
GUICtrlSetState($row1p2,$GUI_SHOW)
GUICtrlSetState($row1p3,$GUI_SHOW)
GUICtrlSetState($row1p4,$GUI_SHOW)
GUICtrlSetState($row1Group,$GUI_SHOW)
GUICtrlSetState($row2Group,$GUI_SHOW)
GUICtrlSetState($row1Edit,$GUI_SHOW)
GUICtrlSetState($row3Group,$GUI_HIDE)
GUICtrlSetState($label11,$GUI_HIDE)
GUICtrlSetState($label22,$GUI_HIDE)
GUICtrlSetState($label33,$GUI_HIDE)
GUICtrlSetState($label44,$GUI_HIDE)
GUICtrlSetState($label55,$GUI_HIDE)
GUICtrlSetState($row2Time1,$GUI_HIDE)
GUICtrlSetState($row2Time2,$GUI_HIDE)
GUICtrlSetState($row2Time3,$GUI_HIDE)
GUICtrlSetState($row2Time4,$GUI_HIDE)
$l = 1
EndIf
Case $fSpee
If $enableSpeed = 0 Then
_print(_getDate()&"      "&_getTime()&"       "&"Dash mode enabled", 1)
$enableSpeed = 1
$speedStat = "ON"
HotKeySet("{UP}", "_up")
HotKeySet("{DOWN}", "_down")
HotKeySet("{LEFT}", "_left")
HotKeySet("{RIGHT}", "_right")
GUICtrlSetData($fSpee,"Dash Mode	"&$speedStat)
ElseIf $enableSpeed = 1 Then
_print(_getDate()&"      "&_getTime()&"       "&"Dash mode disabled", 1)
$enableSpeed = 0
$speedStat = "OFF"
GUICtrlSetData($fSpee,"Dash Mode	"&$speedStat)
EndIf
Case $fSave
_encryptSave()
Case $fAbot
$x = @DesktopWidth/2 - 200/2
$y = @DesktopHeight/2 - 140/2

GUICreate("Version Settings",200,140, $x, $y, $WS_MINIMIZEBOX + $DS_SETFOREGROUND, BitOR($WS_EX_TOPMOST, $WS_EX_STATICEDGE ))
GUISetState(@SW_SHOW)

GUICtrlCreateLabel("Dragonica Auto Bot for IAH"&@CRLF&"Created by Forsaken for the users at,"&@CRLF&"www.snoxd.net",10,12,175,50, $ES_CENTER)
GUICtrlSetState(-1,$GUI_DISABLE)

$exit = GUICtrlCreateButton("Exit",50, 80, 90, 20)

While 1
Switch GUIgetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $exit
GUIDelete("Version Settings")
ExitLoop
EndSwitch
WEnd
Case $fAuto
$x = @DesktopWidth/2 - 100/2
$y = @DesktopHeight/2 - 100/2

GUICreate("Bot Settings",200,230, $x, $y, $WS_MINIMIZEBOX + $DS_SETFOREGROUND, BitOR($WS_EX_TOPMOST, $WS_EX_STATICEDGE ))
$gui = GUISetState(@SW_SHOW)

GUICtrlCreateLabel("Visibility	     =>",10,12)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("Health        =>",10,37)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("Manna       =>",10,62)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("Chat           =>",10,87)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("Combo 1    =>",10,112)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("Combo 2    =>",10,137)
GUICtrlSetState(-1,$GUI_DISABLE)


$invisKey = GUICtrlCreateInput($keyVis,88,10, 100, 20)
$healtKey = GUICtrlCreateInput($keyHpp,88,35, 100, 20)
$mannaKey = GUICtrlCreateInput($keyMpp,88,60, 100, 20)
$chattKey = GUICtrlCreateInput($keyCht,88,85, 100, 20)
$comb1Key = GUICtrlCreateInput($keyCm1,88,110, 100, 20)
$comb2Key = GUICtrlCreateInput($keyCm2,88,135, 100, 20)

$save = GUICtrlCreateButton("Save",10, 170, 87.5, 20)
$exit = GUICtrlCreateButton("Restart",102.5, 170, 87.5, 20)
While 1
Switch GUIgetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $save
_saveKeys()
Case $exit
GUIDelete("Bot Settings")
$exitProc = 1
ExitLoop
EndSwitch
WEnd
Case $fPotS
$x = @DesktopWidth/2 - 200/2
$y = @DesktopHeight/2 - 120/2

GUICreate("Potion Settings",200,120, $x, $y, $WS_MINIMIZEBOX + $DS_SETFOREGROUND, BitOR($WS_EX_TOPMOST, $WS_EX_STATICEDGE ))
GUISetState(@SW_SHOW)

GUICtrlCreateLabel("Health Key   =>",10,12)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("Manna Key  =>",10,37)
GUICtrlSetState(-1,$GUI_DISABLE)


$setHpKey = GUICtrlCreateInput($keyHP,88,10, 100, 20)
$setMpKey = GUICtrlCreateInput($keyMP,88,35, 100, 20)

$save = GUICtrlCreateButton("Save",10, 65, 87.5, 20)
$exit = GUICtrlCreateButton("Exit",102.5, 65, 87.5, 20)

While 1
Switch GUIgetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $save
_savePotions()
Case $exit
GUIDelete("Bot Settings")
$exitProc = 1
ExitLoop
EndSwitch
WEnd
Case $fClie
$x = @DesktopWidth/2 - 200/2/2
$y = @DesktopHeight/2 - 120/2/2

GUICreate("Version Settings",200,90, $x, $y, $WS_MINIMIZEBOX + $DS_SETFOREGROUND, BitOR($WS_EX_TOPMOST, $WS_EX_STATICEDGE ))
GUISetState(@SW_SHOW)

GUICtrlCreateLabel("Game Versin =>",10,12)
GUICtrlSetState(-1,$GUI_DISABLE)


$setVerKey = GUICtrlCreateInput($version,88,10, 100, 20)

$save = GUICtrlCreateButton("Save",10, 40, 87.5, 20)
$exit = GUICtrlCreateButton("Exit",102.5, 40, 87.5, 20)

While 1
Switch GUIgetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $save
_saveVersion()
Case $exit
GUIDelete("Version Settings")
$exitProc = 1
ExitLoop
EndSwitch
WEnd
Case $fClos
_encryptSave()
Exit
Case $fInvi
_setInvisible()
Case $fVisi
_setVisible()
Case $fPoti
If $enablePotions = 0 Then
_print(_getDate()&"      "&_getTime()&"       "&"Auto pot enabled", 1)
$enablePotions = 1
$hpStat = "ON"
GUICtrlSetData($fPoti,"Auto Pot	"&$hpStat)
ElseIf $enablePotions = 1 Then
_print(_getDate()&"      "&_getTime()&"       "&"Auto pot disabled", 1)
$enablePotions = 0
$hpStat = "OFF"
GUICtrlSetData($fPoti,"Auto Pot	"&$hpStat)
EndIf
Case $fChat
If $enableChat = 0 Then
_print(_getDate()&"      "&_getTime()&"       "&"Chat spam enabled", 1)
$enableChat = 1
$chatStat = "ON"
GUICtrlSetData($fChat,"Auto Chat	"&$chatStat)
ElseIf $enableChat = 1 Then
_print(_getDate()&"      "&_getTime()&"       "&"Chat spam disabled", 1)
$enableChat = 0
$chatStat = "OFF"
GUICtrlSetData($fChat,"Auto Chat	"&$chatStat)
EndIf
Case $fSpam
If $enableSpam = 0 Then
_print(_getDate()&"      "&_getTime()&"       "&"Auto spam enabled", 1)
$enableSpam = 1
$spamStat = "ON"
GUICtrlSetData($fSpam,"Auto Spam	"&$spamStat)
ElseIf $enableSpam = 1 Then
_print(_getDate()&"      "&_getTime()&"       "&"Auto spam disabled", 1)
$enableSpam = 0
$spamStat = "OFF"
GUICtrlSetData($fSpam,"Auto Spam	"&$spamStat)
EndIf
EndSwitch
If $exitProc = 1 Then
GUIDelete("Dragonica Auto Bot")
Run(@ScriptDir &"/AutoBot.exe", @ScriptDir)
Exit
EndIf

If $enablePotions = 1 Then
$tHealthDiff = TimerDiff($timerHealth)
$tMannaaDiff = TimerDiff($timerMannaa)

If $tHealthDiff >= 1 AND $healthTime <> "0" Then
_getHealth($xHealth, $yHealth)
$timerHealth = TimerInit()
EndIF

If $tMannaaDiff >= 1 AND $mannaaTime <> "0" Then
_getMannaa($xMannaa, $yMannaa)
$timerMannaa = TimerInit()
EndIF

If $health <> $healthChange AND $healthSend <> "0" AND $healthChange <> "FFFFFF" AND $healthChange <> "000000" Then
$hpTimeDiff = TimerDiff($hpTime)

If $hpTimeDiff >= 10000 Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", $keyHp)
_print(_getDate()&"      "&_getTime()&"       "&"Health potion used", 1)
$healthSend = "0"
$hpTime = TimerInit()
EndIf
EndIf

If $mannaa <> $mannaaChange AND $mannaaSend <> "0" AND $mannaaChange <> "FFFFFF" AND $mannaaChange <> "000000" Then
$mpTimeDiff = TimerDiff($mpTime)

If $mpTimeDiff >= 10000 Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", $keyMp)
_print(_getDate()&"      "&_getTime()&"       "&"Manna  potion used", 1)
$mannaaSend = "0"
$mpTime = TimerInit()
EndIf
EndIf
EndIf
If $enableChat = 1 Then
$random = Random(3, 6, 1)
$chatTimeDiff = TimerDiff($chatTime)
If $chatTimeDiff >= ($random * 1000) Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", "{ENTER}")
sleep("100")
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($chat))
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", "{ENTER}")
_print(_getDate()&"      "&_getTime()&"       "&"Message sent", 1)
$chatTime = TimerInit()
EndIf
EndIf
If $enableBot = 1 Then
$botTimerDiff1 = TimerDiff($botTimer1)
$botTimerDiff2 = TimerDiff($botTimer2)
$botTimerDiff3 = TimerDiff($botTimer3)
$botTimerDiff4 = TimerDiff($botTimer4)

Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

If $botTimerDiff1 > GUICtrlRead($tSpam1Slot2) AND GUICtrlRead($tSpam1Slot1) <> "" AND $send4 = 1 Then
$send1 = ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($tSpam1Slot1))
$botTimer1 = TimerInit()
$sTimer1 = TimerInit()
Do
Sleep("1")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $stopTheBot
If $enableBot = 0 Then
$enableBot = 1
$botStat = "ON"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode enabled", 1)
GUICtrlSetData($stopTheBot,"Stop")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
ElseIf $enableBot = 1 Then
$enableBot = 0
$botStat = "OFF"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode disabled", 1)
GUICtrlSetData($stopTheBot,"Start")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
EndIf
$send1 = 0
$send2 = 0
$send3 = 0
$send4 = 1
EndSwitch
$sTimerDiff1 = TimerDiff($sTimer1)
Until $sTimerDiff1 > GUICtrlRead($tSpam1Slot3)
$send4 = 0
EndIf

Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

If $botTimerDiff2 > GUICtrlRead($tSpam2Slot2) AND GUICtrlRead($tSpam2Slot1) <> "" AND $send1 = 1 Then
$send2 = ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($tSpam2Slot1))
$botTimer2 = TimerInit()
$sTimer2 = TimerInit()
Do
Sleep("1")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $stopTheBot
If $enableBot = 0 Then
$enableBot = 1
$botStat = "ON"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode enabled", 1)
GUICtrlSetData($stopTheBot,"Stop")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
ElseIf $enableBot = 1 Then
$enableBot = 0
$botStat = "OFF"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode disabled", 1)
GUICtrlSetData($stopTheBot,"Start")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
EndIf
$send1 = 0
$send2 = 0
$send3 = 0
$send4 = 1
EndSwitch
$sTimerDiff2 = TimerDiff($sTimer2)
Until $sTimerDiff2 > GUICtrlRead($tSpam2Slot3)
$send1 = 0
EndIf

Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

If $botTimerDiff3 > GUICtrlRead($tSpam3Slot2) AND GUICtrlRead($tSpam3Slot1) <> "" AND $send2 = 1 Then
$send3 = ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($tSpam3Slot1))
$botTimer3 = TimerInit()
$sTimer3 = TimerInit()
Do
Sleep("1")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $stopTheBot
If $enableBot = 0 Then
$enableBot = 1
$botStat = "ON"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode enabled", 1)
GUICtrlSetData($stopTheBot,"Stop")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
ElseIf $enableBot = 1 Then
$enableBot = 0
$botStat = "OFF"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode disabled", 1)
GUICtrlSetData($stopTheBot,"Start")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
EndIf
$send1 = 0
$send2 = 0
$send3 = 0
$send4 = 1
EndSwitch
$sTimerDiff3 = TimerDiff($sTimer3)
Until $sTimerDiff3 > GUICtrlRead($tSpam3Slot3)
$send2 = 0
EndIf

Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

If $botTimerDiff4 > GUICtrlRead($tSpam4Slot2) AND GUICtrlRead($tSpam4Slot1) <> "" AND $send3 = 1 Then
$send4 = ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($tSpam4Slot1))
$botTimer4 = TimerInit()
$sTimer4 = TimerInit()
Do
Sleep("1")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $stopTheBot
If $enableBot = 0 Then
$enableBot = 1
$botStat = "ON"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode enabled", 1)
GUICtrlSetData($stopTheBot,"Stop")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
ElseIf $enableBot = 1 Then
$enableBot = 0
$botStat = "OFF"
_print(_getDate()&"      "&_getTime()&"       "&"Bot mode disabled", 1)
GUICtrlSetData($stopTheBot,"Start")
GUICtrlSetData($fbott,"Auto Bot	"&$speedStat)
EndIf
$send1 = 0
$send2 = 0
$send3 = 0
$send4 = 1
EndSwitch
$sTimerDiff4 = TimerDiff($sTimer4)
Until $sTimerDiff4 > GUICtrlRead($tSpam4Slot3)
$send3 = 0
EndIf
EndIf
WEnd


Func _attack1()
If $enableSpam = 1 Then
If GUICtrlRead($row1p1) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row1p1))
If GUICtrlRead($row1Time1) <> "" Then
Sleep(GUICtrlRead($row1Time1))
EndIf
EndIf
If GUICtrlRead($row1p2) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row1p2))
If GUICtrlRead($row1Time2) <> "" Then
Sleep(GUICtrlRead($row1Time2))
EndIf
EndIf
If GUICtrlRead($row1p3) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row1p3))
If GUICtrlRead($row1Time3) <> "" Then
Sleep(GUICtrlRead($row1Time3))
EndIf
EndIf
If GUICtrlRead($row1p4) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row1p4))
If GUICtrlRead($row1Time4) <> "" Then
Sleep(GUICtrlRead($row1Time4))
EndIf
EndIf
_print(_getDate()&"      "&_getTime()&"       "&"Combo 1 executed", 1)
ElseIf $enableSpam = 0 Then
_print(_getDate()&"      "&_getTime()&"       "&"Enable spam first", 1)
EndIf
EndFunc

Func _attack2()
If $enableSpam = 1 Then
If GUICtrlRead($row2p1) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row2p1))
If GUICtrlRead($row2Time1) <> "" Then
Sleep(GUICtrlRead($row2Time1))
EndIf
EndIf
If GUICtrlRead($row1p2) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row2p2))
If GUICtrlRead($row2Time2) <> "" Then
Sleep(GUICtrlRead($row2Time2))
EndIf
EndIf
If GUICtrlRead($row2p3) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row2p3))
If GUICtrlRead($row2Time3) <> "" Then
Sleep(GUICtrlRead($row2Time3))
EndIf
EndIf
If GUICtrlRead($row2p4) <> "" Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", GUICtrlRead($row2p4))
If GUICtrlRead($row2Time4) <> "" Then
Sleep(GUICtrlRead($row2Time4))
EndIf
EndIf
_print(_getDate()&"      "&_getTime()&"       "&"Combo 2 executed", 1)
ElseIf $enableSpam = 0 Then
_print(_getDate()&"      "&_getTime()&"       "&"Enable spam first", 1)
EndIf
EndFunc


Func _print($message, $crlf)

If $crlf = 1 Then
$crlf = @CRLF
Else
$crlf = ""
EndIf

GUICtrlSetData($console, $message & $crlf, 1)
GUICtrlSetFont(-1,9,0,0,"Lucida Console")
EndFunc


Func _setHealth()
$posHel = MouseGetPos()
$health = Hex(PixelGetColor( $posHel[0], $posHel[1]), 6)
$healthChange = $health
$healthTime = "1"
$xHealth = $posHel[0]
$yHealth = $posHel[1]
_print(_getDate()&"      "&_getTime()&"       "&"Color #"&$health, 1)
_print(_getDate()&"      "&_getTime()&"       "&"Position " & $yHealth & ", " & $xHealth, 1)
_print(_getDate()&"      "&_getTime()&"       "&"Health set", 1)
Beep (1000, 100)
EndFunc

Func _setMannaa()
$posMan = MouseGetPos()
$mannaa = Hex(PixelGetColor( $posMan[0], $posMan[1]), 6)
$mannaaChange = $mannaa
$mannaaTime = "1"
$xMannaa = $posMan[0]
$yMannaa = $posMan[1]
_print(_getDate()&"      "&_getTime()&"       "&"Color #"&$mannaa, 1)
_print(_getDate()&"      "&_getTime()&"       "&"Position " & $yMannaa & ", " & $xMannaa, 1)
_print(_getDate()&"      "&_getTime()&"       "&"Manna  set", 1)
Beep (1000, 100)
EndFunc

Func _getHealth($x, $y)
$healthChange = Hex(PixelGetColor( $x, $y), 6)
$healthSend = "1"
EndFunc

Func _getMannaa($x, $y)
$mannaaChange = Hex(PixelGetColor( $x, $y), 6)
$mannaaSend = "1"
EndFunc

Func _getTime()
$s = @SEC
$m = @MIN
$h = @HOUR
return($h &":"& $m&":"& $s)
EndFunc

Func _getDate()
$d = @MDAY
$m = @MON
$y = @YEAR
return($m &"-"& $d&"-"& $y)
EndFunc

Func _setInvisible()
_print(_getDate()&"      "&_getTime()&"       "&"Invisible mode", 1)
GUISetState(@SW_HIDE )
$v = 2
Return
EndFunc

Func _setVisible()
_print(_getDate()&"      "&_getTime()&"       "&"Visible mode", 1)
GUISetState(@SW_SHOW)
$v = 1
Return
EndFunc

Func _toggleVis()
If $v = 1 Then
_setInvisible()
$v = 2
ElseIf $v = 2 Then
_setVisible()
$v = 1
EndIf
EndFunc

Func _up()
If $enableSpeed = 1 Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", "{UP 2}")
EndIf
EndFunc

Func _down()
If $enableSpeed = 1 Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", "{DOWN 2}")
EndIf
EndFunc

Func _left()
If $enableSpeed = 1 Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", "{LEFT 2}")
EndIf
EndFunc

Func _right()
If $enableSpeed = 1 Then
ControlSend("Dragonica (Client Ver : "&$version&")", "", "", "{RIGHT 2}")
EndIf
EndFunc

Func _hotChat()
If $enableChat = 0 Then
$enableChat = 1
_print(_getDate()&"      "&_getTime()&"       "&"Chat spam enabled", 1)
ElseIf $enableChat = 1 Then
$enableChat = 0
_print(_getDate()&"      "&_getTime()&"       "&"Chat spam disabled", 1)
EndIf
EndFunc

Func _encryptSave()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Chat", "REG_MULTI_SZ", GUICtrlRead($chat))

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com1", "REG_SZ", GUICtrlRead($row1p1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com2", "REG_SZ", GUICtrlRead($row1p2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com3", "REG_SZ", GUICtrlRead($row1p3))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com4", "REG_SZ", GUICtrlRead($row1p4))

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim1", "REG_EXPAND_SZ", GUICtrlRead($row1Time1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim2", "REG_EXPAND_SZ", GUICtrlRead($row1Time2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim3", "REG_EXPAND_SZ", GUICtrlRead($row1Time3))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim4", "REG_EXPAND_SZ", GUICtrlRead($row1Time4))

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com1", "REG_SZ", GUICtrlRead($row2p1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com2", "REG_SZ", GUICtrlRead($row2p2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com3", "REG_SZ", GUICtrlRead($row2p3))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com4", "REG_SZ", GUICtrlRead($row2p4))

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim1", "REG_EXPAND_SZ", GUICtrlRead($row2Time1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim2", "REG_EXPAND_SZ", GUICtrlRead($row2Time2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim3", "REG_EXPAND_SZ", GUICtrlRead($row2Time3))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim4", "REG_EXPAND_SZ", GUICtrlRead($row2Time4))




_print(_getDate()&"      "&_getTime()&"       "&"All variables saved", 1)
EndFunc

Func _saveKeys()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Visibility Key", "REG_SZ", GUICtrlRead($invisKey))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Health Key", "REG_SZ", GUICtrlRead($healtKey))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Manna Key", "REG_SZ", GUICtrlRead($mannaKey))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Chat Key", "REG_SZ", GUICtrlRead($chattKey))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Combo 1 Key", "REG_SZ", GUICtrlRead($comb1Key))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Combo 2 Key", "REG_SZ", GUICtrlRead($comb2Key))
_print(_getDate()&"      "&_getTime()&"       "&"All keys saved", 1)
EndFunc

Func _savePotions()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "keyHP", "REG_SZ", GUICtrlRead($setHpKey))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "keyMP", "REG_SZ", GUICtrlRead($setMpKey))

_print(_getDate()&"      "&_getTime()&"       "&"All keys saved", 1)
EndFunc

Func _saveVersion()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Version", "REG_SZ", GUICtrlRead($setVerKey))
EndFunc
Func _setVariables()

$regVers = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Version")
GUICtrlSetData($version, $regVers)
$regChat = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Chat")
GUICtrlSetData($chat, $regChat)

$regR1p1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com1")
GUICtrlSetData($row1p1, $regR1p1)
$regR1p2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com2")
GUICtrlSetData($row1p2, $regR1p2)
$regR1p3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com3")
GUICtrlSetData($row1p3, $regR1p3)
$regR1p4 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Com4")
GUICtrlSetData($row1p4, $regR1p4)

$regR1T1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim1")
GUICtrlSetData($row1Time1, $regR1T1)
$regR1T2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim2")
GUICtrlSetData($row1Time2, $regR1T2)
$regR1T3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim3")
GUICtrlSetData($row1Time3, $regR1T3)
$regR1T4 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row1Tim4")
GUICtrlSetData($row1Time4, $regR1T4)

$regR2p1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com1")
GUICtrlSetData($row2p1, $regR2p1)
$regR2p2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com2")
GUICtrlSetData($row2p2, $regR2p2)
$regR2p3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com3")
GUICtrlSetData($row2p3, $regR2p3)
$regR2p4 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Com4")
GUICtrlSetData($row2p4, $regR2p4)

$regR2T1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim1")
GUICtrlSetData($row2Time1, $regR2T1)
$regR2T2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim2")
GUICtrlSetData($row2Time2, $regR2T2)
$regR2T3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim3")
GUICtrlSetData($row2Time3, $regR2T3)
$regR2T4 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "Row2Tim4")
GUICtrlSetData($row2Time4, $regR2T4)
EndFunc

Func _saveBotKeys()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot1", "REG_SZ", GUICtrlRead($tSpam1Slot1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot1", "REG_SZ", GUICtrlRead($tSpam2Slot1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot1", "REG_SZ", GUICtrlRead($tSpam3Slot1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot1", "REG_SZ", GUICtrlRead($tSpam4Slot1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot2", "REG_EXPAND_SZ", GUICtrlRead($tSpam1Slot2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot2", "REG_EXPAND_SZ", GUICtrlRead($tSpam2Slot2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot2", "REG_EXPAND_SZ", GUICtrlRead($tSpam3Slot2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot2", "REG_EXPAND_SZ", GUICtrlRead($tSpam4Slot2))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam1Slot3", "REG_EXPAND_SZ", GUICtrlRead($tSpam1Slot3))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam2Slot3", "REG_EXPAND_SZ", GUICtrlRead($tSpam2Slot3))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam3Slot3", "REG_EXPAND_SZ", GUICtrlRead($tSpam3Slot3))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Dragonica Auto Bot", "$tSpam4Slot3", "REG_EXPAND_SZ", GUICtrlRead($tSpam4Slot3))
EndFunc

Msalah >>> sistem autobot nyangkut, bisa tahan 1 jam ( OS XP, di komp ane )

buat senior" scripter, bisa kah bantu bnerin script ane?? :yipi:

#close

sementara experimen BOT ane pause, pindah ke cheat / trick
( jujur, ane iri ma org yg gada + AEP nya ber-puluh" slot :love: dan ga bisa masuk logika)

maap klo coretan ane trlalu panjang dan ada ksalahan ( nobody perfect )
klo mo tanya, YM aja ato whisp
~YM : redz.gamer[at]Yahoo.com
~IGN : (NightMare) Siegheartz

"I'm Newbie and very happy"

See ya...
 

teenpan

PAUD
Level 1
senior senior bisa tolong bantu ??
drtd gw baca t cuma ng-atk 1 spot trus udah atk loot item kan ??

ad yg punya ide biar char bisa gerak kanan kiri sambil atk ??
gw uda mikir" (tp baru logic nya doang ) tp ga jalan".. cm bisa jalan kanan kiri doank .. ga bs sambil atk .. char gw padahal mage .. hehe

mohon dibant y ... :beer: :beer: :beer:
ane ada script nya bwt spam X, tp tetep 1 msalah... DC DC DC dan DC
~ [ = Spam On
~ ] = Spam Off
~ Esc = Exit Spam
~ "While $a <= 10000" mksud nya, ga akan brenti mpe penced X 10.000 kali
~ "If $a = 10000 Then" mksud nya, setelah 10rb kali, bkalan penced buff apa ( angka 1 aq pasang difussal cannon )

Code:
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author:         Siegheartz

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
HotKeySet("{ESC}", "Terminate")
HotKeySet("{[}","Shoot")
HotKeySet("{]}","Stop")



Func Terminate()
Exit 0
EndFunc
While (1=1)
$i = 1
WEnd

Func Shoot()


$a = 0

While $a <= 10000
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{x down}')
$a = $a + 1

If $a = 10000 Then
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{1 down}')
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{1 up}')
$a = 0
EndIf


WEnd


EndFunc

Func Stop()
While(1=1)
ControlSend('Dragonica (Client Ver : 1.4.6)','','','{x up}')
WEnd
EndFunc

bisa gerak kanan kiri sambil Spam X,
and bwt gerak kanan kiri sendiri ( bot ) bisa improvisasi masing" ( cape nulis )

NB :
ada yg bisa ksi ane link UCE Dragonica kga?? ( saling share ilmu )
klo private, PM aja...
makasih ^^
 

rhmtlover

PAUD
Level 1
okok .. tq kk/cc

gw ad 2 char ni.. yg 1 war1 lg ora ..
klo yg war gwpke bot atk doang .. tp DC pas 300-500 kill count ..(itung j tuh berapa jam klo d tempat momon yg jmlahnya cm 4 biji)
lumayan lama tuh kk .. dr malem jm 12 mpe jm 3 an .. ru DC tp ga pndah kota ...

klo yg ora .. bot atk + skill tiap 10 menit .. cm tahan mpe 1000 kill count .. dah itu DC tp balik kota . tp ga mati .. cm balik kota doang .. (bisa d perkirain .. brp jm bsa mpe 1000 killcount )

klo ora pke atk + move + skill .. mang rada seret .. ga bs tahan lama" .. gtw lpa lg bs bertahan berapa lama ...

jd intinya .. apa masalah dr DC"an itu ..

klo tentang d block ma Iah .. klo tu kt gw bkn masalahnya .. lg pula yg d lakuin kita kan ngakalin keyboardnya doang .. bkn aplikasi gamenya ...
tp yg jd masalah transfer rate keyboard kita ke aplikasi terlalu teratur .. jd bisa d anggap spam sama HS nya .

(cm masukan aj .. mv klo adsalah .. hehehe .. klo ad ide lain mohon bantuannya aj .. hehehe )
 

teenpan

PAUD
Level 1
okok .. tq kk/cc

gw ad 2 char ni.. yg 1 war1 lg ora ..
klo yg war gwpke bot atk doang .. tp DC pas 300-500 kill count ..(itung j tuh berapa jam klo d tempat momon yg jmlahnya cm 4 biji)
lumayan lama tuh kk .. dr malem jm 12 mpe jm 3 an .. ru DC tp ga pndah kota ...

klo yg ora .. bot atk + skill tiap 10 menit .. cm tahan mpe 1000 kill count .. dah itu DC tp balik kota . tp ga mati .. cm balik kota doang .. (bisa d perkirain .. brp jm bsa mpe 1000 killcount )

klo ora pke atk + move + skill .. mang rada seret .. ga bs tahan lama" .. gtw lpa lg bs bertahan berapa lama ...

jd intinya .. apa masalah dr DC"an itu ..

klo tentang d block ma Iah .. klo tu kt gw bkn masalahnya .. lg pula yg d lakuin kita kan ngakalin keyboardnya doang .. bkn aplikasi gamenya ...
tp yg jd masalah transfer rate keyboard kita ke aplikasi terlalu teratur .. jd bisa d anggap spam sama HS nya .

(cm masukan aj .. mv klo adsalah .. hehehe .. klo ad ide lain mohon bantuannya aj .. hehehe )
ada kemajuan tuh @@ dari DC per 5 menit jd mpe ber jam"

berarti ( mungkin ) di keyboard ada tombol yg khusus d bole in spam sama HS nya..
ky tombol (X) sama (Z)..

yg bkin ane bingung,, knpa spam pke stick aja bisa berjam" tanpa DC ( padahal di ganjel molo tu ) + interval tiap atk nya jg teratur ( di pngaturan j2k nya ada )
ane biasa ganjel stick bwt maen Spam X mage berjam", + F1 bwt Autoready gb pvp..

Apa yg kita akalin gamepad nya aja @@ jgn keyboard nya..
sapa tw bisa ( lasthope )
wkkwkwkwkw

trick :
klo mo bot auto atk ( 1 spot, ga gerak ) pke joystick aja.. interval set 0, tombol di ganjel pke apa lah ( ane sii ganjel headset aja ^^ )
msalah >>> klo ga hoki ya ketemu ma bot check ( yg suruh isi ada brp angka ) tp klo ke tangkep cm di tele in ke kota koq
 

diewie

PAUD
Level 1
gan code2 diatas tu cara make nya gimana gan...
masi newbie gan..
jadi mohon pencerahan nya,,
~_~
 

1ofthezero

TK B
Level 1
gk ngerti cara makenya kk....dah w buka notepad...w copy tuh kode2nya....buat bot.au3
truz wktu di buka tetap ja sama....zzz
 

rhmtlover

PAUD
Level 1
ni gw pnya cara auto f1 buat kejar pvp klo lo maw tidur taw ditinggal.. lu down deh ni software dari sini dah lu down tuh instalin dah, ni software buat bikin virtual joystik, nah ntar satuin ni software ama software joy2key, dah pada taw kan joy2key buat apa? joy2key tu buat simulasiin key ke joystik tapi sayangnya kalo cuman pake joy2key kita musti punya joystik nya, nah biar lu g beli joystik mending bikin juga virtual joystik. jadi logikanya: virtual joystik -> mengkonversi tombol keyboard jd joystik -> joy2key -> mengkonversi tombol joystik ke keyboard.

cara pake:

install virtual joy yg tadi lu download, ntar ada konfirmasi hardware baru joystik lu continue aja.
dah selese install jalanin tuh VJoy ntar di windows tray taw icon yang sejajar ama jam lu klik kanan -> open

button1 sampe 4 tu kalo di joystik asli Segitiga X Kotak Lingkaran

yg lu pake cuman 1 button doang terserah mo pake button yg mana

ganti dah button yg mw lo pake, misal button1 lu pilih space bar, nah ntu spasi ntar yg bakal lu ganjel buat auto f1

skarang langkah ke 2:

buka joy2key, kalo lo blom punya y lo download dah di sini disitu ada penjelasan buat konfigurasi joy2key nya

ni gw coba ajarin dikit

lu buka deh tu joy2key disitu lu konfigurasi dah, misal button1 lu klik 2 kali masukin f1, biar auto f1 geser automatic shooting (defaultnya disabled), jadi dia otomatis pencet klo di joystik asli mah turbo.

nah dah beres dah joy2key + VJoy ganjel dah keyboard lu tinggal tidur dah.
 
Status
Not open for further replies.
Top