Sub ContarMuerte(ByVal Muerto As Integer, ByVal atacante As Integer)
Dim dh As Integer
If UserList(atacante).ultimomatado <> Muerto And UserList(Muerto).pasos_desde_resu > 0 Then
    If UserList(Muerto).Flags.Desnudo Then
        UserList(atacante).Stats.puntos = UserList(atacante).Stats.puntos + 50
        UserList(atacante).Stats.puntosenv = UserList(atacante).Stats.puntosenv + 50
        If UserList(atacante).Flags.Desnudo = 0 Then dh = 8
    Else
        UserList(atacante).Stats.puntos = UserList(atacante).Stats.puntos + 150
        UserList(atacante).Stats.puntosenv = UserList(atacante).Stats.puntosenv + 150
        If UserList(atacante).Flags.Desnudo = 0 Then dh = 20
    End If
    UserList(atacante).ultimomatado = Muerto
    UserList(atacante).Stats.UsuariosMatadosenv = UserList(atacante).Stats.UsuariosMatadosenv + 1
End If
dh = dh + 2
honor_enviar atacante, dh
UserList(atacante).Faccion.CiudadanosMatados = UserList(atacante).Faccion.CiudadanosMatados + 1
UserList(Muerto).Stats.muertes = UserList(Muerto).Stats.muertes + 1
UserList(Muerto).Stats.muertesenv = UserList(Muerto).Stats.muertesenv + 1
End Sub