[¬Bulle†]

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: