AllinOneHack/Bot

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Pointer.au3>
#include <Assembler.au3>
 

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Furkiii'S MinigameHack AllinOne", 536, 307, 192, 139, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetCursor (0)
GUISetBkColor(0x3399FF)
GUICtrlCreateLabel("99Noss!", 99, 56, 0, 2)
$Button1 = GUICtrlCreateButton("99NOSS", 48, 128, 131, 49, 0)
GUICtrlSetBkColor(-1, 0x008080)
$Button2 = GUICtrlCreateButton("Starten", 256, 136, 75, 25, 0)
GUICtrlSetBkColor(-1, 0x008000)
$Button3 = GUICtrlCreateButton("Beenden", 400, 136, 75, 25, 0)
GUICtrlSetBkColor(-1, 0x800000)
$Button4 = GUICtrlCreateButton("NosTale DE", 48, 184, 129, 49, 0)
GUICtrlSetBkColor(-1, 0x808000)
$Button5 = GUICtrlCreateButton("Starten", 256, 192, 75, 25, 0)
GUICtrlSetBkColor(-1, 0x008000)
$Button6 = GUICtrlCreateButton("Beenden", 400, 200, 75, 25, 0)
GUICtrlSetBkColor(-1, 0x800000)
$Button7 = GUICtrlCreateButton("NosTale TR", 48, 240, 131, 49, 0)
GUICtrlSetBkColor(-1, 0x008000)
$Button8 = GUICtrlCreateButton("Starten", 256, 256, 75, 25, 0)
GUICtrlSetBkColor(-1, 0x008000)
$Button9 = GUICtrlCreateButton("Beenden", 400, 257, 73, 23, 0)
GUICtrlSetBkColor(-1, 0x800000)
$Button10 = GUICtrlCreateButton("SpammBot", 48, 16, 75, 25, 0)
$Button11 = GUICtrlCreateButton("LevelBot", 256, 16, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Credits", 400, 16, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			
			
		Case $Button2
				$Adresse = 0x04D7DCC
            $Prozess = _memoryopen(ProcessExists("NostaleX.dat"))
            _MemoryASMWrite($Adresse,"81C2 0E450000",$Prozess)
			
			$Adresse = 0x04D7E2B
            $Prozess = _memoryopen(ProcessExists("NostaleX.dat"))
            _MemoryASMWrite($Adresse,"81C2 0C500000",$Prozess)
			
			$Adresse = 0x04D7D64
            $Prozess = _memoryopen(ProcessExists("NostaleX.dat"))
            _MemoryASMWrite($Adresse,"81C2 0A500000",$Prozess)
			
		Case $Button3
			Exit
			
		Case $Button4
			
		Case $Button5
			
			$Adresse = 0x04E5EA0
            $Prozess = _memoryopen(ProcessExists("NostaleX.dat"))
            _MemoryASMWrite($Adresse,"81C2 5A460000",$Prozess)
			
			    $Adresse = 0x04E5F67
            $Prozess = _memoryopen(ProcessExists("NostaleX.dat"))
            _MemoryASMWrite($Adresse,"81C2 5C460000",$Prozess)
			
			    $Adresse = 0x04E5F08
            $Prozess = _memoryopen(ProcessExists("NostaleX.dat"))
            _MemoryASMWrite($Adresse,"81C2 5F460000",$Prozess)
			
		Case $Button6
			Exit
			
		Case $Button7
			
		Case $Button8
			 $Adresse = 0x04E5F04
            $Prozess = _memoryopen(ProcessExists("NostaleX.dat"))
            _MemoryASMWrite($Adresse,"81C2 7E210000",$Prozess)
			
		Case $Button9
			Exit
		
	Case $Button10
		HotKeySet("{esc}", "close")

$text = InputBox("", "hier text zum spamen eingeben")

sleep(4000)

while 1 
	Send($text) 
	Send("{enter}") 
	sleep(3000)

WEnd

func close() 
	Exit
EndFunc

Case $Button11
HotKeySet("{F2}","Pause")
HotKeySet("{ESC}","Beenden")
HotKeySet("{F1}","Starten")

MsgBox (0, "HotKeySetListe!", "F1=Starten F2= Pausieren ESC= Beenden ") 

While 1
Sleep(1000)
WEnd

Func Starten()
While 1
ControlSend("NosTale", "", 0, "{space}")
Sleep(100)
ControlSend("NosTale", "", 0, "{space}")
Sleep(50)
ControlSend("NosTale", "", 0, "{x}")
WEnd
EndFunc

Func Pause()
While 1
Sleep(1000)
WEnd
EndFunc

Func Beenden()
Exit
EndFunc

Case $Button12
	MsgBox (0, "Credits", "Credits:Furkiii") 

	EndSwitch
WEnd