[Tutoriel]
Création d'un BOT Nostale comme celui de Manny.
Lien:Bot de Manny
Le but du BOT:
1) Attaquer
2) Ramasser les objets
3) Utiliser des sorts
4) Pouvoir aller sur Internet tous en utilisant le BOT
Ils y en a peu être qui croit que c'est dur de faire cela,
Je vous stop tous de suite, j'ai apris a programmer il y a 1 semaine, et j'ai réussi a le faire.
Vous avez besoin de :
- Autoit
- Koda ( pas obliger, c'est pour crée des GUI )
- un cerveau en état de marche ...
----------------------------------------------------------
Premièrement, vous devez crée un Fenêtre avec Koda.
Crée un Bouton seulement .
Vous devriez avoir quelque chose comme sa :
Maintenant, faites OUTILS >> Générer le code de l'interface .
Vous devriez avoir quelque chose comme sa :
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Nostale", 342, 440, 511, 220)
$Button1 = GUICtrlCreateButton("Button1", 136, 168, 75, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Le plus facile est fait ;)
Maintenant que l'ont a notre Fenêtre et notre beaux bouton, il va falloir lui dire quoi faire a se bouton ...
Sinon, il ne sert a rient ><
Le bouton doit faire :
1) Afficher un message comme quoi le BOT va se lancer
2) Ont doit crée une Boucle dans lequel ont appellera la Fonction Sectionner les moob, Ramasser les objets, Attaquer avec des sorts.
Let's go ?
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Nostale", 342, 440, 511, 220)
$Button1 = GUICtrlCreateButton("Button1", 136, 168, 75, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
While 1
ToolTip("NostaleBot BOT = ON ", 0, 0)
RAMASSE()
SELECTMOB()
COMBAT()
WEnd
EndSwitch
WEnd
Bien, maintenant ont crée les Fonctions .....
Mais avant sa il faut s'avoir comment dire au programme d'appuyer sur tel ou tel touche ....
Vous allez peut être vous dire avec Send :
Send("r")
C'est pas sa que l'ont cherche car si ont fait sa, Cela va appuyer sur la touche R dans la fenêtre active.
Nous ont veut que l'ont appuie sur R que dans Nostale.
Vous ne voyez pas ?
Ont va utiliser ControlSend
Je vais vous donnez un exemple avec le Bloc Note, ensuite essayer de faire de même avec Nostale, car le meilleur moyen de progresser et d'essayer !
ControlSend("[CLASS:Notepad]", "", "Edit1", "This is a line of text in the notepad window")
C'est quoi "[CLASS:Notepad]" humm a vrais dire, je ne c'est pas exactement donc je ne préfère pas tros en dire dessus.
C'est selon moi un NOM, ont l’obtient grace a Autoit windows info
Vous avez tous pour réussir !!!
Donc finit de dormir et essayer par vous même.
Vous avez pas un intérrer a cliquer sur se bouton avant d'avoir trouver la solution !
#RequireAdmin
HotKeySet("{F8}", "Pause")
HotKeySet("{F10}", "Quitter")
Global $PAUSE
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Nostale", 342, 440, 511, 220)
$Button1 = GUICtrlCreateButton("Button1", 136, 168, 75, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
While 1
ToolTip("NostaleBot BOT = ON ", 0, 0)
RAMASSE()
SELECTMOB()
COMBAT()
WEnd
EndSwitch
WEnd
Func SELECTMOB()
Sleep(500)
ControlSend("[CLASS:TNosTaleMainF]", "", 0, "{SPACE}")
EndFunc
Func RAMASSE()
Sleep(500)
ControlSend("[CLASS:TNosTaleMainF]", "", 0, "r")
EndFunc
Func COMBAT()
Sleep(100)
ControlSend("[CLASS:TNosTaleMainF]", "", 0, "1")
Sleep(100)
ControlSend("[CLASS:TNosTaleMainF]", "", 0, "2")
Sleep(100)
ControlSend("[CLASS:TNosTaleMainF]", "", 0, "3")
Sleep(100)
ControlSend("[CLASS:TNosTaleMainF]", "", 0, "4")
EndFunc
Func ATTENDRE()
While 1
ToolTip("NostaleBot ...", 0, 0)
Sleep(7000)
WEnd
EndFunc
Func PAUSE()
$PAUSE = Not $PAUSE
While $PAUSE
ToolTip("NostaleBot = OFF", 0, 0)
Sleep(400)
WEnd
EndFunc
Func QUITTER()
ToolTip("NostaleBot Fermeture ", 0, 0)
Sleep(1000)
Exit
EndFunc