+- BorderGame (https://www.bordergame.it)
+-- Forum: NosTale (/Forum-NosTale)
+--- Forum: Elite Coder Nostale (/Forum-Elite-Coder-Nostale)
+--- Discussione: Hack nostale (/Thread-Hack-nostale--8422)
Hack nostale - ¬Bulle† - 08-11-2011 11:19 PM
Ho trovato in giro per il mondo un hack come gli altri per nostale che pare abbia le funzioni di: attaccare i nemici, usate item come snack, pozioni...e sedersi e riposarti quando si finiscono gli hp.
detto questo ecco i codici di accessione all'hack:
Codice:
HotKeySet("{Home}","start")
Hotkeyset("{END}","stop")
Hotkeyset("{PAUSE}","Pause")
Global $Paused
Global $Wait
if Not WinExists("Nostale") then
MsgBox(64, "NosBot", "You must be running Nostale")
Exit
EndIf
MsgBox(64, "NosBot", "To Start the Bot Press the Home Key, and to stop press the End Key, and to pause Press the Pause key")
Wait()
Func start()
WinActivate ( 'Nostale' )
Sleep(500)
while 1
If PixelGetColor(252, 108) = 3421236 Then
Rest()
Else
Target()
EndIf
WEnd
EndFunc
Func Target()
Send("{Space}")
Sleep(500)
if PixelGetColor(518, 169) = 800477 Then
Send("{Space}")
Fight()
EndIf
EndFunc
Func Fight()
ToolTip("Nosbot: Fighting Monster ", 2, 0)
While PixelGetColor(518, 169) = 800477
Sleep(500)
WEnd
ToolTip("Nosbot: Grabbing Item ", 2, 0)
Sleep(700)
Send("r")
Sleep(700)
Send("r")
Sleep(500)
EndFunc
Func Rest()
Sleep(500)
Send("t")
While PixelGetColor(345, 107) = 4079166
Sleep(500)
WEnd
Sleep(250)
Send("t")
Sleep(500)
EndFunc
Func Pause()
$Paused = NOT $Paused
While $Paused
ToolTip("NosBot: Paused ", 2, 0)
Sleep (400)
WEnd
EndFunc
Func Wait()
$Wait = NOT $Wait
While $Wait
ToolTip("NosBot: Press the HOME key to start ", 2, 0)
Sleep (400)
WEnd
EndFunc
Func stop()
ToolTip("NosBot: Shutting Down ", 2, 0)
MsgBox(64, "NosBot", "Thanks for using NosBot, Made By Salter.")
Exit
EndFunc:bye: