SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.


Unirse al foro, es rápido y fácil

SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.
SpikeL Comunidad
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



/CASAR PARA 0.11.2

2 participantes

SpikeL Comunidad :: Argentum Online :: Programación :: AO 11.2 / AOReady

Ir abajo

[ APORTE ] BIEN /CASAR PARA 0.11.2

Mensaje por santi55 Vie Dic 24, 2010 6:34 pm

Servidor

buscar:


Código:
Case "/ONLINECLAN"


y arriba poner



Código:
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 GAY 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



buscar


Código:
UserList(UserIndex).flags.AdminInvisible = 0
UserList(UserIndex).flags.ValCoDe = 0
UserList(UserIndex).flags.Hechizo = 0



y abajo poner





Código:
UserList(UserIndex).flags.Casandose = ""
UserList(UserIndex).flags.Casado = ""



buscar




Código:
UserList(UserIndex).Faccion.ArmadaReal = val(GetVar(UserFile, "FACCIONES", "EjercitoReal"))




Y abajo ponen:



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



buscar




Código:
Call WriteVar(UserFile, "FLAGS", "Muerto", val(UserList(UserIndex).flags.Muerto))


y abajo



Código:
Call WriteVar(UserFile, "FLAGS", "Casado", UserList(UserIndex).flags.Casado)




abajo de



Código:
Stat = Stat & " <Fuerzas del caos> " & "<" & TituloCaos(TempCharIndex) & ">"
end if



poner



Código:
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

buscar


Código:
TipoPocion As Byte


y abajo poner



Código:
Casado As String
    Casandose As String





Suerte
santi55
santi55
Nivel 12
Nivel 12

Medallas
/CASAR PARA 0.11.2 Prensa1
Advertencias Advertencias : 1
Mensajes Mensajes : 156
Puntos Puntos : 51297
Reputación Reputación : 1
Fecha de inscripción Fecha de inscripción : 19/12/2010
País País : Argentina


Volver arriba Ir abajo

[ APORTE ] BIEN Re: /CASAR PARA 0.11.2

Mensaje por Francohhh Vie Dic 24, 2010 6:44 pm

Buen aporte, no noté ningun error solamente de ortografia xD.
Francohhh
Francohhh
Administrador
Administrador

Administrador
Medallas
/CASAR PARA 0.11.2 Prensa1/CASAR PARA 0.11.2 Fundador1/CASAR PARA 0.11.2 Participativo1/CASAR PARA 0.11.2 Donar1
/CASAR PARA 0.11.2 Staff1x /CASAR PARA 0.11.2 Moderador1 /CASAR PARA 0.11.2 Ao1 /CASAR PARA 0.11.2 Desarrollo
/CASAR PARA 0.11.2 Radio10 /CASAR PARA 0.11.2 Radio110 /CASAR PARA 0.11.2 Colabo10 /CASAR PARA 0.11.2 Progra10
/CASAR PARA 0.11.2 Cs110/CASAR PARA 0.11.2 Postea10 /CASAR PARA 0.11.2 Senor_10 /CASAR PARA 0.11.2 Dueno_10
/CASAR PARA 0.11.2 Futbol10
Mensajes Mensajes : 880
Puntos Puntos : 55006
Reputación Reputación : 41
Sexo Sexo : Masculino

Fecha de inscripción Fecha de inscripción : 23/03/2010
Edad Edad : 28
Localización Localización : Mar del Plata

http://www.spikel.org

Volver arriba Ir abajo

Volver arriba

SpikeL Comunidad :: Argentum Online :: Programación :: AO 11.2 / AOReady

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