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 :
Je vous remercie pour vos futurs réponses !
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
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
Dernière édition: