Just leavin this here... it was not supposed to be released so dont expect that much...
im to lazy do compile this and post a virus check so here is the code:
Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
#RequireAdmin
Opt("GUIOnEventMode", 1)
Global $difhp, $difmp, $PausedSL = False, $PausedSR = False, $PausedSSL = False, $PausedSSR = False,$Pausedx = False
If FileExists("DragoSupport.ini") = False Then
$sData = "sprintjumpleft=b" & @LF & "sprintjumpright=n" & @LF & "sprintkeyleft=h" & @LF & "sprintkeyright=j" & @LF & "xspamkey=#" & @LF & "xspamdelay=500" & @LF & "keymana=F4" & @LF & "timemana=30000" & @LF & "hptime=30000" & @LF & "keyhp=F3" & @LF & "window=Dragonica Evolution (Client Ver : 2.2.2) "
IniWriteSection("DragoSupport.ini", "Data", $sData)
EndIf
$windowname = IniRead("DragoSupport.ini", "Data", "window", "")
$sprintjumpleft = IniRead("DragoSupport.ini", "Data", "sprintjumpleft", "")
$sprintjumpright = IniRead("DragoSupport.ini", "Data", "sprintjumpright", "")
$sprintkeyleft = IniRead("DragoSupport.ini", "Data", "sprintkeyleft", "")
$sprintkeyright = IniRead("DragoSupport.ini", "Data", "sprintkeyright", "")
$xspamkey = IniRead("DragoSupport.ini", "Data", "xspamkey", "")
$xspamdelay = IniRead("DragoSupport.ini", "Data", "xspamdelay", "")
$keymana = IniRead("DragoSupport.ini", "Data", "keymana", "")
$timemana = IniRead("DragoSupport.ini", "Data", "timemana", "")
$hptime = IniRead("DragoSupport.ini", "Data", "hptime", "")
$keyhp = IniRead("DragoSupport.ini", "Data", "keyhp", "")
$handle = WinGetHandle($windowname, "")
HotKeySet("{" & $sprintjumpleft & "}", "sprintjumpleft")
HotKeySet("{" & $sprintjumpright & "}", "sprintjumpright")
HotKeySet("{" & $sprintkeyleft & "}", "sprintkeyleft")
HotKeySet("{" & $sprintkeyright & "}", "sprintkeyright")
HotKeySet("{" & $xspamkey & "}", "xspamkey")
HotKeySet("{F11}", "Form1Close")
$Form1_1 = GUICreate("Trojan's dragió Bot GUI", 473, 186, 196, 199, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetBkColor(0x000000)
$Group1 = GUICtrlCreateGroup("Sprintjump", 0, 8, 97, 169)
GUICtrlSetBkColor(-1, 0x008040)
$sprintjumpinputleft = GUICtrlCreateInput("", 16, 56, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$Label2 = GUICtrlCreateLabel("Left Key", 24, 32, 47, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label3 = GUICtrlCreateLabel("Right Key", 24, 88, 54, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$sprintjumpinputright = GUICtrlCreateInput("", 16, 112, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Sprint", 104, 8, 81, 113)
GUICtrlSetBkColor(-1, 0x008040)
$sprintkeyinputleft = GUICtrlCreateInput("", 112, 48, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$sprintkeyinputright = GUICtrlCreateInput("", 112, 96, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$Label4 = GUICtrlCreateLabel("Left Key", 112, 32, 52, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label5 = GUICtrlCreateLabel("Right Key", 112, 80, 54, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button = GUICtrlCreateButton("Save", 128, 136, 120, 33)
GUICtrlSetOnEvent($Button, "Save")
$Group3 = GUICtrlCreateGroup("X Spam", 192, 8, 81, 113)
GUICtrlSetBkColor(-1, 0x008040)
$Label1 = GUICtrlCreateLabel("Key", 208, 32, 28, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$xspamkeyinput = GUICtrlCreateInput("", 200, 48, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$Label9 = GUICtrlCreateLabel("Delay", 208, 72, 28, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$xspamdelayinput = GUICtrlCreateInput("", 200, 88, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Pot Timer", 280, 8, 177, 169)
GUICtrlSetBkColor(-1, 0x008040)
$keymanainput = GUICtrlCreateInput("", 288, 72, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$Label7 = GUICtrlCreateLabel("Key Mana", 288, 56, 52, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label8 = GUICtrlCreateLabel("Time Mana", 288, 96, 60, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$timemanainput = GUICtrlCreateInput("", 288, 112, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$timehpinput = GUICtrlCreateInput("", 376, 112, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$Label10 = GUICtrlCreateLabel("Time HP", 376, 96, 44, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label11 = GUICtrlCreateLabel("Key HP", 376, 56, 44, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$keyhpinput = GUICtrlCreateInput("", 376, 72, 57, 21)
GUICtrlSetBkColor(-1, 0x696969)
$Label12 = GUICtrlCreateLabel("Time to next:", 288, 136, 65, 17)
GUICtrlSetColor(-1, 0x008000)
$Label13 = GUICtrlCreateLabel("Time to next:", 376, 136, 65, 17)
GUICtrlSetColor(-1, 0x008000)
$manatimelabel = GUICtrlCreateLabel("manatimelabel", 288, 152, 71, 17)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$hptimelabel = GUICtrlCreateLabel("hptimelabel", 376, 152, 57, 17)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Checkboxmana = GUICtrlCreateCheckbox("ManaAktiv", 328, 32, 17, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Label14 = GUICtrlCreateLabel("aktiv", 288, 32, 27, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Checkboxhp = GUICtrlCreateCheckbox("ManaAktiv", 416, 32, 17, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Label15 = GUICtrlCreateLabel("aktiv", 376, 32, 27, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
GUICtrlSetData($sprintjumpinputleft, $sprintjumpleft)
GUICtrlSetData($sprintjumpinputright, $sprintjumpright)
GUICtrlSetData($sprintkeyinputleft, $sprintkeyleft)
GUICtrlSetData($sprintkeyinputright, $sprintkeyright)
GUICtrlSetData($xspamkeyinput, $xspamkey)
GUICtrlSetData($xspamdelayinput, $xspamdelay)
GUICtrlSetData($keymanainput, $keymana)
GUICtrlSetData($timemanainput, $timemana)
GUICtrlSetData($timehpinput, $hptime)
GUICtrlSetData($keyhpinput, $keyhp)
GUICtrlSetState($xspamdelayinput,$GUI_DISABLE)
$cooldownmp = 0
$cooldownhp = 0
While 1
If GUICtrlRead($Checkboxhp) = $GUI_CHECKED Then
If $cooldownhp = 0 Then
$beginhp = TimerInit()
EndIf
$cooldownhp = 1
Sleep(50)
$difhp = TimerDiff($beginhp)
$difhp = $difhp / 1000
$difhp = Round($difhp)
GUICtrlSetData($hptimelabel, $difhp & "sec.")
If $difhp >= $hptime Then
ControlSend($windowname, '', '', "{" & $keyhp & "}")
$cooldownhp = 0
$difhp = 0
EndIf
EndIf
If GUICtrlRead($Checkboxmana) = $GUI_CHECKED Then
If $cooldownmp = 0 Then
$beginmp = TimerInit()
EndIf
$cooldownmp = 1
Sleep(50)
$difmp = TimerDiff($beginmp)
$difmp = $difmp / 1000
$difmp = Round($difmp)
GUICtrlSetData($manatimelabel, $difmp & "sec.")
If $difmp > $timemana Then
ControlSend($windowname, '', '', "{" & $keymana & "}")
$cooldownmp = 0
$difmp = 0
EndIf
EndIf
If GUICtrlRead($Checkboxhp) = $GUI_UNCHECKED Then
$difhp = 0
$beginhp = 0
EndIf
If GUICtrlRead($Checkboxmana) = $GUI_UNCHECKED Then
$beginmp = 0
$difmp = 0
EndIf
If $PausedSSL = True Then
ControlSend($windowname, '', '', "{left}")
Sleep(250)
ControlSend($windowname, '', '', "{left}")
Sleep(100)
ControlSend($windowname, '', '', "{c}")
EndIf
If $PausedSSR = True Then
ControlSend($windowname, '', '', "{right}")
Sleep(250)
ControlSend($windowname, '', '', "{right}")
Sleep(100)
ControlSend($windowname, '', '', "{c}")
EndIf
If $PausedSL = True Then
ControlSend($windowname, '', '', "{left}")
Sleep(250)
ControlSend($windowname, '', '', "{left}")
EndIf
If $PausedSR = True Then
ControlSend($windowname, '', '', "{right}")
Sleep(250)
ControlSend($windowname, '', '', "{right}")
EndIf
If $Pausedx = True Then
ControlSend($windowname, '', '', "{x}")
EndIf
Sleep(100)
WEnd
Func Save()
$sprintjumpleft = GUICtrlRead($sprintjumpinputleft)
$sprintjumpright = GUICtrlRead($sprintjumpinputright)
$sprintkeyleft = GUICtrlRead($sprintkeyinputleft)
$sprintkeyright = GUICtrlRead($sprintkeyinputright)
$xspamkey = GUICtrlRead($xspamkeyinput)
$xspamdelay = GUICtrlRead($xspamdelayinput)
$keymana = GUICtrlRead($keymanainput)
$timemana = GUICtrlRead($timemanainput)
$hptime = GUICtrlRead($timehpinput)
$keyhp = GUICtrlRead($keyhpinput)
$sData = "sprintjumpleft=" & $sprintjumpleft & @LF & "sprintjumpright=" & $sprintjumpright & @LF & "sprintkeyleft=" & $sprintkeyleft & @LF & "sprintkeyright=" & $sprintkeyright & @LF & "xspamkey=" & $xspamkey & @LF & "xspamdelay=" & $xspamdelay & @LF & "keymana=" & $keymana & @LF & "timemana=" & $timemana & @LF & "hptime=" & $hptime & @LF & "keyhp=" & $keyhp & @LF & "window=Dragonica Evolution (Client Ver : 2.2.2) "
IniWriteSection("DragoSupport.ini", "Data", $sData)
HotKeySet("{" & $sprintjumpleft & "}", "sprintjumpleft")
HotKeySet("{" & $sprintjumpright & "}", "sprintjumpright")
HotKeySet("{" & $sprintkeyleft & "}", "sprintkeyleft")
HotKeySet("{" & $sprintkeyright & "}", "sprintkeyright")
EndFunc ;==>Save
Func sprintjumpleft()
If $PausedSSL = True Then
$PausedSSL = False
Else
$PausedSSL = True
EndIf
EndFunc ;==>sprintjumpleft
Func sprintjumpright()
If $PausedSSR = True Then
$PausedSSR = False
Else
$PausedSSR = True
EndIf
EndFunc ;==>sprintjumpright
Func sprintkeyleft()
If $PausedSL = True Then
$PausedSL = False
Else
$PausedSL = True
EndIf
EndFunc ;==>sprintkeyleft
Func sprintkeyright()
If $PausedSR = True Then
$PausedSR = False
Else
$PausedSR = True
EndIf
EndFunc ;==>sprintkeyright
Func xspamkey()
If $Pausedx = True Then
$Pausedx = False
Else
$Pausedx = True
EndIf
EndFunc ;==>sprintkeyright
Func Form1Close()
Save()
Exit
EndFunc ;==>Form1Close
This is autoit btw..
Edit, you have to change the window name..






