[Only registered and activated users can see links. Click Here To Register...]
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:
This is autoit btw..
Edit, you have to change the window name..
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..