BorderGame
iGameBot(elseif); - Versione stampabile

+- BorderGame (https://www.bordergame.it)
+-- Forum: NosTale (/Forum-NosTale)
+--- Forum: Hack e Bot Nostale - Utenti (/Forum-Hack-e-Bot-Nostale-Utenti)
+--- Discussione: iGameBot(elseif); (/Thread-iGameBot-elseif)

iGameBot(elseif); - iLoader(elseif) - 21-09-2012 04:02 PM

Aprite il programma ed impostatelo come più vi piace.
(Il programma vi guiderà..)
E' molto semplice il codice, a portata di tutti dato che non ho nemmeno usato delle gui, ho messo le impostazioni tramite file .txt dato che tutti i bot sono sempre con le hotkeyset e ciò mi sembra noioso.

Script: In allegato.
Scan: Click

Codice sorgente:
Spoiler:
Codice:
;By iLoad(elseif);
; autoit.forumcommunity.net
#RequireAdmin
#NoTrayIcon

If FileExists("Crediti.txt") = false Then
    FileWrite("Crediti.txt","By iLoad(elseif); => http://autoit.forumcommunity.net/ => http://bordergame.it")
EndIf
IF FileExists("Tipo.txt") = false Then
    Filewrite("Tipo.txt","")
EndIf
if fileexists("Finestra.txt") = false Then
    Filewrite("Finestra.txt","")
EndIf

Msgbox(64,"iGameBot(elseif);","Come uso il bot? - Premi F1 per uscire dallo script."& @crlf &"Su Tipo.txt scrivi Job per il JobBot ed Exp per l'ExpBot."& @Crlf &"Su Finestra.txt scrivi il nome della finestra di nostale."&@crlf&"Mirraccomando scrivi prima di premere OK.")

hotkeyset("{F1}","Esci")

Dim $Botx = FileRead("Tipo.txt")
Dim $Fin = FileRead("Finestra.txt")

If $Botx = "Job" Then
    AdlibRegister("Jobbot",20)
Elseif $Botx = "Exp" Then
    AdlibRegister("Expbot",20)
EndIf

func Esci()
Exit
EndFunc

Func Jobbot()
    Msgbox(64,"JobBot(Avviato)","JobBot = ON")
While 1
ControlSend($Fin, "", "", "z")
Sleep(500)
ControlSend($Fin, "", "", "z")
Sleep(500)
ControlSend($Fin, "", "", "z")
Sleep(500)
ControlSend($Fin, "", "", "z")
Sleep(500)
WEnd
EndFunc

Func Expbot()
    Msgbox(64,"ExpBot(Avviato)","ExpBot = ON")
while 1
ControlSend($Fin, "", "", "{SPACE}")
sleep(350)
ControlSend($Fin, "", "", "{SPACE}")
Sleep(350)
ControlSend($Fin, "", "", "w")
sleep(350)
ControlSend($Fin, "", "", "w")
sleep(350)
ControlSend($Fin, "", "", "w")
Sleep(350)
ControlSend($Fin, "", "", "{SPACE}")
sleep(350)
ControlSend($Fin, "", "", "{SPACE}")
Sleep(350)
WEnd
EndFunc


RE: iGameBot(elseif); - pop96 - 21-09-2012 04:50 PM

COSA FA??

RE: iGameBot(elseif); - iLoader(elseif) - 21-09-2012 04:53 PM

Exp e job bot.

RE: iGameBot(elseif); - Ð3V!L - 22-09-2012 10:31 AM

innovativa sta cosa xD bravo..

RE: iGameBot(elseif); - iLoader(elseif) - 22-09-2012 12:24 PM

Grazie, ma non è nulla di che, anzi potevo anche mettere un file impostazioni solo ed utilizzare il comando file read line Wink

RE: iGameBot(elseif); - hack2012 - 22-09-2012 10:10 PM

Non mi fa aprire il ail perchè?
L'utente ha aggiunto in seguito...
Non mi fa aprire il ail perchè?
L'utente ha aggiunto in seguito...
Non mi fa aprire il file perchè?
L'utente ha aggiunto in seguito...
Ci 6?

RE: iGameBot(elseif); - iLoader(elseif) - 23-09-2012 07:33 AM

Funziona solo su windows os.
Mandami screen ed provvedo a dirti l'errore e risoluzione.