BorderGame

Versione completa: ExP/JoB Bot :()
Al momento stai visualizzando i contenuti in una versione ridotta. Visualizza la versione completa e formattata.

SCL

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
Codice PHP:
#RequireAdmin

HotKeySet("{F1}""Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F3}","Pausa")
HotKeySet("{F2}","Avvia1")

$Title "NosTale"


While 1
ToolTip
("NosBot by SCL - F1 starta bot[EXP], F2 starta bot[JOB]- F3 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(100)
WEnd

Func Avvia
()
ToolTip("NosBot by SCL - F3 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
While 
1
ControlSend
($Title"""""{SPACE}")
sleep(350)
ControlSend($Title"""""1")
Sleep(350)
ControlSend($Title"""""2")
sleep(350)
ControlSend($Title"""""2")
Sleep(350)
ControlSend($Title"""""{SPACE}")
sleep(350)
ControlSend($Title"""""3")
Sleep(350)
WEnd
EndFunc

Func Pausa
()
sleep (30000)
EndFunc

Func ESCI
()
Exit 
0
EndFunc


Func Avvia1
()
While 
1
ToolTip
("NosBot by SCL - F3 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
ControlSend($Title"""""z")
Sleep(500)
ControlSend($Title"""""z")
Sleep(500)
ControlSend($Title"""""z")
Sleep(500)
ControlSend($Title"""""z")
Sleep(500)
WEnd
EndFunc 



Ecco ora funziona Wink

P.s : Se hai altri problemi mandami pm

SCL

Naruto, credo di aver riscontrato un errore xD
Nel senso provandolo preme tasti "1", "2", "3".. però quando finisce di killare si blocca xD per questo bisogna dare una piccola modifica Big Grin
ormai questo programma con nostale nn va piu
andrea cavolata funziona benissimo solo che deve inserire questo codice alla fine
Spoiler:
$restart
@[doddo978] Questo non è AcTool...
@[andreaparavani] devi cambiare il nome della finestra a cui manda i comandi($Title) da "NosTale" a "Nostale"
@[Narutomega96] non so tè ma io mettendo $restart mi funziona e non cn actool ma cn visualstudio 2010!
...
:|

Il linguaggio scritto sopra è AutoIt..
(10-02-2012 04:25 PM)andreaparavani Ha scritto: [ -> ]ormai questo programma con nostale nn va piu

Non spammiamo su discussioni vecchie di 5 mesi e oltre :l
Ti meriteresti un avvertimento per necropost, ma per questa volta sono buona dato che sei un nuovo utente.
Narutomega e Doddo per discutere esistono i pm o contattarsi in privato.

Closed
URL di riferimento