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
Se avete trovato qualcosa sbagliato
Titolo: Primo mio bot 
Sab Nov 27, 2010 2:05 am
