Dragonica Support Bot [SOURCE ONLY]

[Trøjan]

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:

 Spoiler

#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..