Bonsoir,
en parcourant la partie question/réponse j'ai remarqué qu'il y avait une sujet sans réponse sur la régénération de la vie donc je viens ici poster la solution. ;)
D'abord on va faire une petit calcul de la vita en pourcentage et deux variables avant tout:
Cliquez pour révéler
Cliquez pour masquer
Dim vie As Integer = 0
Dim message As String
vie = vi*e / vie.max* * 100
On vérifie si la vie est inférieur à 10% (a vous libre de modifier le pourcentage évidement !):
Cliquez pour révéler
Cliquez pour masquer
If vie < 10 Then
'action
end if
La on va mettre dans le if la fonction régénération, donc on va s’asseoir via le chat avec la commande "/sit":
Cliquez pour révéler
Cliquez pour masquer
Dim param1 As New Dofus.DofusWriter
Message = "/sit"
param1.WriteString(Message)
param1.WriteByte(0)
Dofus.DofusWriter.Send(861)
Ensuite on va faire une boucle while tant que la vie n'est pas à 100%.
Cliquez pour révéler
Cliquez pour masquer
While vie = 100
Thread.Sleep(1000)
End While
Voilà ce tuto est fini, voilà le code en entier:
Cliquez pour révéler
Cliquez pour masquer
Dim vie As Integer = 0
Dim message As String
vie = vie* / vie.max* * 100
If vie < 10 Then
couleur = Color.DarkRed
Chat.Invoke(Chater, "[" & TimeOfDay & "] " & "Votre vie est dangereusement faible !" & vbCrLf)
couleur = Color.DarkRed
Chat.Invoke(Chater, "[" & TimeOfDay & "] " & "Démarage de la regénération ..." & vbCrLf)
Dim param1 As New Dofus.DofusWriter
message = "/sit"
param1.WriteString(message)
param1.WriteByte(0)
Dofus.DofusWriter.Send(861)
While vie = 100
Thread.Sleep(1000)
End While
End If
*N'oubliez pas de modifier le mot vie par votre vie et vie.max par votre vie max. Et remplacez uniquement ceux qui ont une étoile car vous risquez de modifier la variable.
Simple non?
@++