[Aporte] Comando /Retirar (Style IAO)

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

denada ivo