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

Página 1 de 1.

/CASAR PARA 0.11.2

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

Nivel 12

Nivel 12

Medallas

Advertencias

Advertencias : 1

Mensajes

Mensajes : 156
Puntos

Puntos

Puntos : 49397

Reputación

Reputación : 1

Fecha de inscripción

Fecha de inscripción : 19/12/2010
País

País

País :

Argentina

Re: /CASAR PARA 0.11.2

por Francohhh Vie Dic 24, 2010 6:44 pm

Buen aporte, no noté ningun error solamente de ortografia

.

Francohhh

Administrador

Administrador

Administrador

Medallas

Mensajes

Mensajes : 880
Puntos

Puntos

Puntos : 53106

Reputación

Reputación : 41
Sexo

Sexo

Sexo :

Masculino

Fecha de inscripción

Fecha de inscripción : 23/03/2010
Edad

Edad

Edad : 27

Localización

Localización : Mar del Plata

http://www.spikel.org

Temas similares

» Menu para party
» Mapas para CS 1.6
» Se Buscan GMS para AO
» Minimap para 13.0 DX7
» Consejos para Conquistar

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

Página 1 de 1.

Cambiar a:

Permisos de este foro:

No puedes responder a temas en este foro.