VB/VB.Net Regeneration bot dofus

Inscrit
24 Novembre 2016
Messages
28
Reactions
0
#1
Salutations a tous !

Je voudrais corriger la regen de M4axoubot, j'ai ajouté un petit bout de code a chaque fin du combat le personnage verifie la vie du personnage, on divise la vie maximal du personnage si elle est moins il se régénère sinon il continue a combattre, mais le problème c'est que le personnage ne se régénère pas.

Voici mon code :
ElseIf (Mid(packet, 1, 3) = "GAF") Then
Dim lowlPacket As String = Mid(packet, 4)
.sock.Envoyer("GKK" & Gettok(lowlPacket, "|", 1))

ElseIf (Mid(packet, 1, 2) = "GE") Then
.nombreDeCombat += 1
If ((.nombreDeCombat >= AuBoutDeCombats) AndAlso (ChangerDeMap)) Then
.changeDeMap = 1
End If
.TimerLaunch.Enabled = False
.enCombat = 0
.sock.Envoyer("GC1")
wait(500)


If ((.nombreDeCombat >= AuBoutDeCombats) And (ChangerDeMap) And .enRegen = 0) Then
.ChangerMap()
End If

.TimerLaunch.Enabled = True

ElseIf (Mid(packet, 1, 3) = "GV") Then
.enCombat = 0
.sock.Envoyer("GC1")
Dim Quota As Integer = .TabUtilisateur.Vie.Maximum / 2
Dim Vie As Integer = .TabUtilisateur.Vie.Value
If (Vie < Quota) Then
.sock.Envoyer("eU1")
.Regenerate(Quota * 1000)
End If
End If

End With

End Sub

End Module
Je vous remercie pour vos futurs réponses !
 
Dernière édition:

BlueDream

Administrateur
Membre du personnel
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#2
Le paquet "GV" passe au moins ? N'y a t'il pas une option à activer ?
 
Inscrit
25 Novembre 2015
Messages
169
Reactions
20
#6
As-tu fais l'effort de lire le tutoriel au moins ?
 

BlueDream

Administrateur
Membre du personnel
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#7
Il traite de la 2.0 et de la 1.29 si tu avais pris la peine de lire les premières lignes...

Pour ceux qui ont déjà connu le protocole 1.29 je vais vous expliquer les nuances entre les 2.
 
Inscrit
24 Novembre 2016
Messages
28
Reactions
0
#8
Il traite de la 2.0 et de la 1.29 si tu avais pris la peine de lire les premières lignes...
J'ai bien lu, mais je ne trouve pas toujours la résolution a mon problème..
 
Dernière édition par un modérateur:

BlueDream

Administrateur
Membre du personnel
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#9
Normal, tu ne comprends rien de ce que tu fais, donc au lieu d'essayer de faire n'importe quoi, essaye d'apprendre et de comprendre.
En passant par la compréhension du protocole.
 
Haut Bas