[Aporte] Comando /Retirar (Style IAO)

Ir abajo

[Aporte] Comando /Retirar (Style IAO)

Mensaje por Zenitram el Miér Sep 18, 2013 10:17 pm

Servidor:

al final del protocol.bas ponen :

Código:
Private Sub HandleRetirar(ByVal UserIndex As Integer)
'Derechos a cuther, me ayudo mucho en el handle renegado
    With UserList(UserIndex)
        Call .incomingData.ReadByte
        If UserList(UserIndex).Faccion.Milicia = 1 Then
            Call WriteConsoleMsg(1, UserIndex, "Perteneces a la Milicia Republicana, antes de convertirte en renegado debes retirarte de la misma.", FontTypeNames.FONTTYPE_INFO)
            Exit Sub
        ElseIf UserList(UserIndex).Faccion.ArmadaReal = 1 Then
            Call WriteConsoleMsg(1, UserIndex, "Perteneces a la Armada Real, antes de convertirte en renegado debes retirarte de la misma.", FontTypeNames.FONTTYPE_INFO)
            Exit Sub
        ElseIf UserList(UserIndex).Faccion.FuerzasCaos = 1 Then
            Call WriteConsoleMsg(1, UserIndex, "Perteneces a las Fuerzas del Caos, antes de convertirte en renegado debes retirarte de la misma.", FontTypeNames.FONTTYPE_INFO)
            Exit Sub
         ElseIf Not UserList(UserIndex).Faccion.Milicia = 1 And Not UserList(UserIndex).Faccion.ArmadaReal = 1 And Not UserList(UserIndex).Faccion.FuerzasCaos = 1 Then
            UserList(UserIndex).Faccion.Republicano = 0
            UserList(UserIndex).Faccion.Ciudadano = 0
            UserList(UserIndex).Faccion.Renegado = 1
           
            Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCharStatus(UserList(UserIndex).Char.CharIndex, UserTypeColor(UserIndex)))
            End If
End With
End Sub
Luego buscan

Código:
Beta
y abajo pones

Código:
Retirar
ahora buscan

Código:
Call HandleSearchObj(UserIndex)
y abajo ponen

Código:
 Case ClientPacketID.Retirar
 Call HandleRetirar(UserIndex)
Cliente :

al final del protocol

Código:
Public Sub WriteRetirar()
With outgoingData
Call .WriteByte(ClientPacketID.Retirar)
End With
End Sub
ahora buscan

Código:
Select Case Comando
y abajo ponemos

Código:
Case "/RETIRAR"
Call WriteRetirar
Por ultimo buscan

Código:
Beta                    '/BEta arg
y abajo ponen

Código:
Retirar
y listo en su iao clon  ponen /retirar y se convierten en renegado
Zenitram
Zenitram



Aportes : 10
Mensajes : 65
Puntos : 130
Edad : 18

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte] Comando /Retirar (Style IAO)

Mensaje por ivo10 el Jue Sep 19, 2013 2:11 pm

Aportaso Gracias
ivo10
ivo10



Mensajes : 13
Puntos : 17

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte] Comando /Retirar (Style IAO)

Mensaje por Zenitram el Vie Sep 20, 2013 3:17 pm

denada ivo
Zenitram
Zenitram



Aportes : 10
Mensajes : 65
Puntos : 130
Edad : 18

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte] Comando /Retirar (Style IAO)

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

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