Con Facciones

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

» 15 Mar 2011 16:57

Holaa!!

Les Explico Lo que me pasa:

Yo Cambio Los Usuarios Que Quiero Que Pida Para Las Recompensas asi:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Select Case NextRecom
2.     Case 120:
3.         UserList(UserIndex).Faccion.RecompensasCaos = 1
4.         UserList(UserIndex).Faccion.NextRecompensa = 150
5.    
6.     Case 150:
7.         UserList(UserIndex).Faccion.RecompensasCaos = 2
8.         UserList(UserIndex).Faccion.NextRecompensa = 250

y En Los Que Te Pide Ser Un Nivel y una cantidad de nobleza determinado Por ejemplo:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Case 3500:
2.         If Lvl < 35 Then
3.             Call WriteChatOverHead(UserIndex, "Mataste Suficientes Criminales, pero te faltan " & 35 - Lvl & " Niveles para poder recibir la próxima Recompensa", str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex), vbWhite)
4.             Exit Sub
5.         End If
6.         If Nobleza < 4000000 Then
7.             Call WriteChatOverHead(UserIndex, "Mataste Suficientes Criminales, pero te faltan " & 4000000 - Nobleza & " puntos de Nobleza para poder recibir la próxima Recompensa", str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex), vbWhite)
8.             Exit Sub
9.         End If
10.         UserList(UserIndex).Faccion.RecompensasReal = 12
11.         UserList(UserIndex).Faccion.NextRecompensa = 4000

Borro Lo que pide Level y Nobleza (Osea Que quede como los primeros ejemplos)
Luego En El Juego No Me Toma El Comando /RECOMPENSA. En las Dos Facciones

¿Sera Que No Tengo Que Borrar esto?

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. If Lvl < 35 Then
2.             Call WriteChatOverHead(UserIndex, "Mataste Suficientes Criminales, pero te faltan " & 35 - Lvl & " Niveles para poder recibir la próxima Recompensa", str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex), vbWhite)
3.             Exit Sub
4.         End If
5.         If Nobleza < 4000000 Then
6.             Call WriteChatOverHead(UserIndex, "Mataste Suficientes Criminales, pero te faltan " & 4000000 - Nobleza & " puntos de Nobleza para poder recibir la próxima Recompensa", str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex), vbWhite)
7.             Exit Sub
8.         End If

o Lo tengo que cambiar por nivel y nobleza que quiero yo?

Si hay soluciones Gracias

Saludos!

MauRee

PhaNtoM

MauRee

128

Registrado:

Mensajes: 263

Aportes: 1

Arriba

» 17 Mar 2011 22:40

Si seguro que es por eso, hace una cosa cambia el lvl por nivel 1 y la nobleza por 0 y es lo mismo... y seguro te anda...

Saludos.

Samke

Staff Zeiked-Games

641

Registrado:

Ubicación: Castelar

Mensajes: 3414

Aportes: 66

Premios: 3

Arriba

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados