/CASAR [0.11.2]

Case "/ONLINECLAN"

    If Left$(UCase$(rdata), 7) = "/CASAR " Then
    Dim UsuarioACasarse As String
    Dim tempIndex As Integer
    UsuarioACasarse = Right$(rdata, Len(rdata) - 7)
    tempIndex = NameIndex(UsuarioACasarse)
        If UsuarioACasarse = "" Then
            Call SendData(ToIndex, UserIndex, 0, "||Debes escribir el nombre del personaje con el cual quieres casarte." & FONTTYPE_INFO)
            Exit Sub
        End If
        If tempIndex < 1 Then
            Call SendData(ToIndex, UserIndex, 0, "||El usuario no esta Online o no existe." & FONTTYPE_INFO)
            Exit Sub
        End If
        If UserList(tempIndex).Genero = UserList(UserIndex).Genero Then
            Call SendData(ToIndex, UserIndex, 0, "||No hay casamientos GAI o de LESBIANAS" & FONTTYPE_INFO)
            Exit Sub
        End If
        If UserList(UserIndex).flags.Casado <> "" Then
            Call SendData(ToIndex, UserIndex, 0, "||Ya estas casado/a con alguien." & FONTTYPE_INFO)
            Exit Sub
        End If
        If UserList(tempIndex).flags.Casado <> "" Then
            Call SendData(ToIndex, UserIndex, 0, "||Ya esta casado/a con alguien." & FONTTYPE_INFO)
            Exit Sub
        End If
        If Distancia(UserList(UserIndex).Pos, UserList(tempIndex).Pos) > 5 Then
            Call SendData(ToIndex, UserIndex, 0, "||¡¡No puedes hacer casamientos de lejos!!." & FONTTYPE_INFO)
            Exit Sub
        End If
        If UserList(tempIndex).flags.Casandose <> "" And UserList(tempIndex).flags.Casandose <> UserList(UserIndex).Name Then
            Call SendData(ToIndex, UserIndex, 0, "||Se esta tratando de casar con alguien mas... Lo siento" & FONTTYPE_INFO)
            Exit Sub
        End If
        UserList(UserIndex).flags.Casandose = UserList(tempIndex).Name
       
        If UserList(tempIndex).flags.Casandose = UserList(UserIndex).Name Then
            UserList(tempIndex).flags.Casado = UserList(UserIndex).Name
            UserList(UserIndex).flags.Casado = UserList(tempIndex).Name
            UserList(UserIndex).flags.Casandose = ""
            UserList(tempIndex).flags.Casandose = ""
            Call SendData(ToAll, 0, 0, "TW" & SND_CREACIONCLAN)
            Call SendData(ToAll, 0, 0, "||¡¡¡" & UserList(UserIndex).Name & " Y " & UserList(tempIndex).Name & " SE CASARON!!!" & "~255~255~0~1~0")
        Else
            SendData ToIndex, tempIndex, 0, "||" & UserList(UserIndex).Name & " quiere casarse contigo, escribi /casar " & UserList(UserIndex).Name & " para aceptar su propuesta." & FONTTYPE_GUILD
        End If
        Exit Sub
 
    End If
   
 If UCase$(rdata) = "/DIVORCIARSE" Then
    Dim nombredivor2 As String
    If UserList(UserIndex).flags.Casado = "" Then
        Call SendData(ToIndex, UserIndex, 0, "||¡¡No estas casado.!!." & FONTTYPE_INFO)
        Exit Sub
    End If
    nombredivor2 = UserList(UserIndex).flags.Casado
    If NameIndex(UserList(UserIndex).flags.Casado) < 1 Then
        WriteVar App.Path & "\Charfile\" & UserList(UserIndex).flags.Casado & ".chr", "FLAGS", "Casado", "0"
        UserList(UserIndex).flags.Casado = ""
    Else
        UserList(NameIndex(UserList(UserIndex).flags.Casado)).flags.Casado = ""
        UserList(UserIndex).flags.Casado = ""
    End If
    Call SendData(ToAll, 0, 0, "TW" & 27)
    Call SendData(ToAll, 0, 0, "||¡¡¡" & UserList(UserIndex).Name & " Y " & nombredivor2 & " SE DIVORCIARON!!!" & "~255~255~0~1~0")
    Exit Sub
 End If

 UserList(UserIndex).flags.AdminInvisible = 0
 UserList(UserIndex).flags.ValCoDe = 0
 UserList(UserIndex).flags.Hechizo = 0

 UserList(UserIndex).flags.Casandose = ""
 UserList(UserIndex).flags.Casado = ""

UserList(UserIndex).Faccion.ArmadaReal = val(GetVar(UserFile, "FACCIONES", "EjercitoReal"))

 UserList(UserIndex).flags.Casado = GetVar(UserFile, "FLAGS", "Casado")
 If UserList(UserIndex).flags.Casado = "0" Then UserList(UserIndex).flags.Casado = ""

Call WriteVar(UserFile, "FLAGS", "Muerto", val(UserList(UserIndex).flags.Muerto))

 Call WriteVar(UserFile, "FLAGS", "Casado", UserList(UserIndex).flags.Casado)

 Stat = Stat & " <Fuerzas del caos> " & "<" & TituloCaos(TempCharIndex) & ">"
 end if

  If UserList(TempCharIndex).flags.Casado <> "" Then
            Dim ReRaRo$
            ReRaRo$ = IIf(UCase$(UserList(TempCharIndex).Genero) = "HOMBRE", "Casado", "Casada")
                Stat = Stat & " <" & ReRaRo$ & " con " & UserList(TempCharIndex).flags.Casado & ">"
            End If

TipoPocion As Byte

 
    Casado As String
    Casandose As String