consulta

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Administrador
Recortes del Thread en Alkon <a href="http://www.alkon.com.ar/foro/ayuda.57/2" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://www.alkon.com.ar/foro/ayuda.57/2</a> ... rvers.html de Shura...

6 - Como Hacemos Para Aumentar La Dificultad Para Ganar Exp?

Simple, Lo Primero Que Hacemos Es Ir A Modulo_UsUaRiOs.Bas Y Vamos Nuevamente A CheckUserLevel, Ahi Buscamos:
If UserList(UserIndex).Stats.ELV < 11 Then
UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.5
ElseIf UserList(UserIndex).Stats.ELV < 25 Then
UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.3
Else
UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.2
End If
Yo Voy A Tomar Un Segmento Y Lo Voy A Explicar:
If UserList(UserIndex).Stats.ELV < 11 Then
UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.5
ElseIf UserList(UserIndex).Stats.ELV < 25 Then
UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.3
Ahi Lo Que Dice Es QUe Si Nuestro Nivel Es Menor A 11 Entonces La Experiencia Necesaria Para Subir De Nivel Sera La Exp Requerida Por 1.5, Pero Si Nuestro Nivel Es Menor A 25 Y A La Vez Mayor O Igual A 11 Entonces La Experiencia Necesaria Para Subir De Nivel Sera La Exp Requerida Por 1.3.

o talvez buscabas esto otro....

9 - Quiero Aumentar El Oro Y La Exp De Los Bichos En Mi Servidor Como Hago?

Simple Nos Dirijimos Al Modulo FileIO.bas Y Ahi Buscamos El Sub CargarNpcBackUp Ahora Lo Unico Que Hay Que Hacer Es Buscar Estas Lineas:
Npclist(NpcIndex).GiveEXP = val(GetVar(npcfile, "NPC" & NpcNumber, "GiveEXP"))
Y
Npclist(NpcIndex).GiveGLD = val(GetVar(npcfile, "NPC" & NpcNumber, "GiveGLD"))
Ahora Viene La Parte Entretenida ^^ Que Es Que Tenemos Que Hacer Con Estas Lineas Y Eso Es Facil ^^

Supongamos Que Queremos Aumentar La Exp De Los Bichos x10 Y El Oro x7 Y No Tenemos Todo El Tiempo para Modificar El Dateado =P Como Hacemos?

Simple, Asi:
Npclist(NpcIndex).GiveEXP = val(GetVar(npcfile, "NPC" & NpcNumber, "GiveEXP")) * 10
Y
Npclist(NpcIndex).GiveGLD = val(GetVar(npcfile, "NPC" & NpcNumber, "GiveGLD")) * 7
Optimización por Khalem para el indice:

Si deseesemos que carge los valores desde un .ini pra no volver a crear el .exe, haremos lo siguiente:
en las mismas lineas, ahora agregaremos esto, reemplazando lo anterior:

Dim ME
ME = val(GetVar(IniPath & "Server.ini", "INIT", "EXP")
Npclist(NpcIndex).GiveEXP = val(GetVar(npcfile, "NPC" & NpcNumber, "GiveEXP")) * ME
Y
Dim MO
MO = val(GetVar(IniPath & "Server.ini", "INIT", "ORO")
Npclist(NpcIndex).GiveGLD = val(Leer.DarValor("NPC" & NpcNumber, "GiveGLD")) * MO
Ahora en el server.ini, abajo de: "[INIT]" agregar:
oro=1.5
exp=1.5
Reemplazar los 1.5 por la experiencia y oro deseados.
 
Estado
Cerrado para nuevas respuestas.
Arriba