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.



Cosas útiles Para Revival AO

4 participantes

SpikeL Comunidad :: Argentum Online :: Programación :: Ao 11.5 / Twist

Ir abajo

[ APORTE ] BIEN Cosas útiles Para Revival AO

Mensaje por xLautax Jue Dic 16, 2010 2:02 pm

Bueno primero empiezo.
Cambiando Los Frags de Ciudadano/Armada Criminal/Legion (Es Cuando Te Cliclean Que Dice ''Aprendiz'' ''Heroe Lao'' Etc Lo que voy a poner es a cambiar la cantidad de frags para Cada Etapa..

Primero Buscamos: (Esto es para Criminales)

Código:
ElseIf Criminal(TempCharIndex) Then

Y Ahi Veran Algo como Esto:

Código:
If UserList(TempCharIndex).Stats.UsuariosMatados < 100 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Aprendiz)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 200 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Asesino)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 300 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Mutilador)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 500 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Descuartizador)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 1000 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Destripador)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados >= 1000 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Dark Revival)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If

Y Lo Reemplazan Por:

Código:
If UserList(TempCharIndex).Stats.UsuariosMatados < 50 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Aprendiz)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 100 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Asesino)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 150 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Mutilador)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados <200 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Descuartizador)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 250 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Destripador)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados >= 300 Then
Stat = Stat & " <CRIMINAL> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Dark Revival)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~255~0~0~1~0"
End If

Bueno Ahora Quedo:
50
100
150
200
250
300

PD Si Quieren Cambiarlo Cambien por ejemplo El De 50:

Código:
If UserList(TempCharIndex).Stats.UsuariosMatados < 50 Then
Donde Dice 50 Ponen otro Número..


••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
Ahora para Ciudadanos:

Buscamos:

Código:
If UserList(TempCharIndex).Stats.UsuariosMatados < 100 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Aprendiz)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 200 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Soldado)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 300 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Teniente)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 500 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Capitan)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 1000 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Comandante)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados >= 1000 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Heroe LSAO)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
End If

Y Reemplazamos Por:

Código:
If UserList(TempCharIndex).Stats.UsuariosMatados < 50 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Aprendiz)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 100 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Soldado)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 150 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Teniente)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 200 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Capitan)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados < 250 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Comandante)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
If UserList(TempCharIndex).Stats.UsuariosMatados >= 300 Then
Stat = Stat & " <CIUDADANO> " & "<UserDies: " & UserList(TempCharIndex).Stats.UsuariosMatados & " (Heroe LSAO)>" & " <" & UserList(TempCharIndex).Clase & " " & UserList(TempCharIndex).Raza & ">" & "~0~0~200~1~0"
End If
End If


••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

2 CODIGO:

Cambiar El Por

Buscamos:

Código:
If UserList(TempCharIndex).DescRM = "" Then
                If EsNewbie(TempCharIndex) Then
                    Stat = " <NEWBIE>"
                End If

Y De Ahi Donde Dice

Código:
Stat = " <NEWBIE>"

Reemplazamos Por
Nos Quedaria:

Código:
If UserList(TempCharIndex).DescRM = "" Then
                If EsNewbie(TempCharIndex) Then
                    Stat = " <Novato>"
                End If


••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

3 CODIGO:

Cambiar Cantidad De Frags Al Entrar A La Armada /Legion Y El Nivel Que pide:

Primero:

Buscamos:

Código:
If UserList(userindex).Faccion.CiudadanosMatados < 10 Then
    Call SendData(SendTarget.toindex, userindex, 0, "||" & vbWhite & "°" & "Para unirte a nuestras fuerzas debes matar al menos 10 ciudadanos, solo has matado " & UserList(userindex).Faccion.CiudadanosMatados & "°" & str(Npclist(UserList(userindex).flags.TargetNPC).char.CharIndex))
    Exit Sub

Y Lo Reemplazamos por

Código:
If UserList(userindex).Faccion.CiudadanosMatados < X Then
    Call SendData(SendTarget.toindex, userindex, 0, "||" & vbWhite & "°" & "Para unirte a nuestras fuerzas debes matar al menos 10 ciudadanos, solo has matado " & UserList(userindex).Faccion.CiudadanosMatados & "°" & str(Npclist(UserList(userindex).flags.TargetNPC).char.CharIndex))
    Exit Sub

PD Cambiar La X Por El Numero Y Despues Donde Dice:

Código:
"Para unirte a nuestras fuerzas debes matar al menos X ciudadanos, solo has matado "
Cambiar La X Tambien por la misma Cantidad

Ahora cambiar nivel de ingreso:
Buscamos:

Código:
If UserList(userindex).Stats.ELV < 25 Then

Y Donde Dice 25 Ponemos El Nivel Que Queramos

Ahora Con La Armada

Buscamos:

Código:
If UserList(userindex).Faccion.CriminalesMatados < 10 Then

Y Donde Dice 10 Ponemos La Cantidad De Frags Que Queremos para Ingresar

Ahora Despues Buscamos:

Código:
"Para unirte a nuestras fuerzas debes matar al menos 10 criminales,

Y El 10 Lo Cambiamos por X Numero que Allamos Elegido..

Y Por Ultimo Cambiar Nivel de Ingreso:

Buscamos:

Código:
If UserList(userindex).Stats.ELV < 25 Then

Y Donde Dice :

Código:
25 Then

Ponemos

Código:
X Then

PD: Reemplazar X Por el Nivel q2ue quereos que intrece:




Gracias...

Son Comunes pero para El que recien empieza Le Sirven Razz

xLautax
xLautax
Nivel 1
Nivel 1

Medallas
Cosas útiles Para Revival AO Prensa1
Mensajes Mensajes : 17
Puntos Puntos : 49033
Reputación Reputación : 0
Fecha de inscripción Fecha de inscripción : 14/12/2010
País País : Argentina


Volver arriba Ir abajo

[ APORTE ] BIEN Re: Cosas útiles Para Revival AO

Mensaje por Francohhh Jue Dic 16, 2010 3:13 pm

Buenos códigos simples para los que empiezan hace poquito Very Happy.
Francohhh
Francohhh
Administrador
Administrador

Administrador
Medallas
Cosas útiles Para Revival AO Prensa1Cosas útiles Para Revival AO Fundador1Cosas útiles Para Revival AO Participativo1Cosas útiles Para Revival AO Donar1
Cosas útiles Para Revival AO Staff1x Cosas útiles Para Revival AO Moderador1 Cosas útiles Para Revival AO Ao1 Cosas útiles Para Revival AO Desarrollo
Cosas útiles Para Revival AO Radio10 Cosas útiles Para Revival AO Radio110 Cosas útiles Para Revival AO Colabo10 Cosas útiles Para Revival AO Progra10
Cosas útiles Para Revival AO Cs110Cosas útiles Para Revival AO Postea10 Cosas útiles Para Revival AO Senor_10 Cosas útiles Para Revival AO Dueno_10
Cosas útiles Para Revival AO Futbol10
Mensajes Mensajes : 880
Puntos Puntos : 53096
Reputación Reputación : 41
Sexo Sexo : Masculino

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

http://www.spikel.org

Volver arriba Ir abajo

[ APORTE ] BIEN Re: Cosas útiles Para Revival AO

Mensaje por Jeff Jue Dic 16, 2010 3:55 pm

Buen aporte!

Mensaje considerado como FLOOD. Para la próxima leer el reglamento general.
avatar
Jeff
Nivel 3
Nivel 3

Medallas
Cosas útiles Para Revival AO Prensa1
Advertencias Advertencias : 7
Mensajes Mensajes : 30
Puntos Puntos : 49065
Reputación Reputación : -1
Sexo Sexo : Masculino

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


Volver arriba Ir abajo

[ APORTE ] BIEN Re: Cosas útiles Para Revival AO

Mensaje por Batoh Dom Dic 19, 2010 10:36 pm

Yo empeze hace poco y me sirvio gracias !
Batoh
Batoh
Nivel 10
Nivel 10

Medallas
Cosas útiles Para Revival AO Prensa1
Advertencias Advertencias : 8
Mensajes Mensajes : 110
Puntos Puntos : 49142
Reputación Reputación : -1
Sexo Sexo : Masculino

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

Localización Localización : En Hipodromo abajo del caballo blanco con manchas

https://spikel.superforo.net

Volver arriba Ir abajo

[ APORTE ] BIEN Re: Cosas útiles Para Revival AO

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

SpikeL Comunidad :: Argentum Online :: Programación :: Ao 11.5 / Twist

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