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