SCL
18-08-2011, 08:16 PM
raga, chi mi rimette insensto stò exp/job bot? xDD non me va..
lol..
io lo fatto in background.. se riuscite va bene anche no bg xD
Il bot e questo:
#RequireAdmin
HotKeySet("{F1}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F2}","Pausa")
$Title = "NosTale"
HotKeySet("{F}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F2}","Pausa")
$Title = "NosTale"
While 1
ToolTip("NosBot by SCL - F1 starta bot- F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(30)
WEnd
Func Avvia()
ToolTip("NosBot by SCL - F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
While 1
ControlSend($Title, "", "", "{1}")
sleep(350)
ControlSend($Title, "", "", "{1}")
Sleep(350)
ControlSend($Title, "", "", "{2}")
sleep(350)
ControlSend($Title, "", "", "{2}")
Sleep(350)
ControlSend($Title, "", "", "{3}")
sleep(350)
ControlSend($Title, "", "", "{3}")
Sleep(350)
WEnd
EndFunc
Func Pausa()
sleep (30000)
EndFunc
Func ESCI()
Exit 0
Func Bot_Job()
While 1
ToolTip("NosBot by SCL - F1 starta bot- F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(30)
WEnd
Func Avvia()
ToolTip("NosBot by SCL - F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
WEnd
EndFunc
Func Ferma_Bot()
While 1
Sleep(100)
WEnd
EndFunc
lol..
io lo fatto in background.. se riuscite va bene anche no bg xD
Il bot e questo:
#RequireAdmin
HotKeySet("{F1}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F2}","Pausa")
$Title = "NosTale"
HotKeySet("{F}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F2}","Pausa")
$Title = "NosTale"
While 1
ToolTip("NosBot by SCL - F1 starta bot- F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(30)
WEnd
Func Avvia()
ToolTip("NosBot by SCL - F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
While 1
ControlSend($Title, "", "", "{1}")
sleep(350)
ControlSend($Title, "", "", "{1}")
Sleep(350)
ControlSend($Title, "", "", "{2}")
sleep(350)
ControlSend($Title, "", "", "{2}")
Sleep(350)
ControlSend($Title, "", "", "{3}")
sleep(350)
ControlSend($Title, "", "", "{3}")
Sleep(350)
WEnd
EndFunc
Func Pausa()
sleep (30000)
EndFunc
Func ESCI()
Exit 0
Func Bot_Job()
While 1
ToolTip("NosBot by SCL - F1 starta bot- F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(30)
WEnd
Func Avvia()
ToolTip("NosBot by SCL - F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
WEnd
EndFunc
Func Ferma_Bot()
While 1
Sleep(100)
WEnd
EndFunc