No estás conectado. Conéctate o registrate

Activar/Desactivar Mensajes Privados 11.5

Ir abajo  Mensaje [Página 1 de 1.]

1 Activar/Desactivar Mensajes Privados 11.5 el Dom Feb 13, 2011 5:58 pm

RoNiN

avatar
Usuario
Usuario
Bueno el titulo lo dice todo..

TODO EN EL SERVIDOR!

Buscamos

Código:
Case "\"

Abajo de eso colocamos

Código:
      If UserList(tIndex).flags.DeseoRecibirMSJ = 0 Then
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El usuario tiene los mensajes privados bloqueados. " & FONTTYPE_INFO)
 Exit Sub
  End If

Luego Buscamos

Código:
EstaEmpo As Byte

Arriba ponemos

Código:
DeseoRecibirMSJ As Byte

Ahora buscamos

Código:
Case "/ONLINE"

Debajo de Exit Sub ponemos

Código:
          Case "/RECIBIR"
        If UserList(UserIndex).flags.DeseoRecibirMSJ = 1 Then
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya tienes los mensajes privados desbloqueados." & FONTTYPE_INFO)
 
        Else
        UserList(UserIndex).flags.DeseoRecibirMSJ = 1
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Mensajes privados desbloqueados." & FONTTYPE_INFO)
        End If
        Exit Sub
       
        Case "/NORECIBIR"
        If UserList(UserIndex).flags.DeseoRecibirMSJ = 0 Then
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya tienes los mensajes privados bloqueados." & FONTTYPE_INFO)
 
        Else
        UserList(UserIndex).flags.DeseoRecibirMSJ = 0
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Bloqueaste los mensajes privados, ahora nadie podrá enviarte ningún mensaje. Para desbloquear tipea /RECIBIR." & FONTTYPE_INFO)
        End If
        Exit Sub


Testeado y 100% Funcional! Saludos

Ver perfil de usuario

2 Re: Activar/Desactivar Mensajes Privados 11.5 el Lun Abr 04, 2011 9:32 am

kratos

avatar
Usuario
Usuario
Buen aporte!
Segui asi
10 Estrellas Nos estamos Viendo




Saludos!

Ver perfil de usuario

Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.

 

Foros gratis en ForoActivo | © PunBB | Foro gratis de asistencia | Contactar | Denunciar un abuso | foro gratis