GS-Zone
Facebook Twitter

Guía 0.12.1 para armar tu server Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

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

65
Este tema se encuentra cerrado.

Nota » 07 May 2009 14:06

Si, ya se..de hecho se lo dije a amishar..pero yo solo arregle el q estaba antes..
Pato
Usuario Registrado
327
Destructor de Mentes [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 670
Aportes: 2
Arriba

Nota » 09 May 2009 19:14

Linda guia amishar, y a la gente que ayudo a completarla.

WWW.FOTOLOG.COM/iidaaleeh
Mira, pasa, firma, effea, y no t toques... :@
Nathiria
Si el placer es pecado, bienvenidos al infierno!
Destructor de Mentes [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: En la Camita
Mensajes: 697
Aportes: 5
Arriba

Nota » 09 May 2009 20:21

Igualmente tengo que editar algunos,y ponerlos bien en spoiler,asi es mejor y mas organizado pero una ves terminada,aunque nunca se sabe cuando se termina una guía,pero si algo donde los demás puedan rescatar algo y aprender lo básico para lograr lo próximo


saludos.

Imagen
I AmishaR I
Usuario Registrado
153
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 253
Aportes: 3
Arriba
#NotaEste post ha sido eliminado por ^[GS]^ en 27 Abr 2010 00:36.
Razón: Respuesta innecesaria, no aporta nada de nada
Arriba

Nota » 11 May 2009 12:57

aca va bien explicado [b]Bien para no enquilombar tanto todo lo posteo bien ya que la otra no me salió como quería acá está la solución y anda bien

vamos a
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Npclist(NpcIndex).GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP"))
y reemplazamos por

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.     Dim ExpX As Integer
  3.     ExpX = val(GetVar(IniPath & "Server.ini", "INIT", "Exp"))
  4.     Npclist(NpcIndex).GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP")) * ExpX
un poco mas abajo está
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Npclist(NpcIndex).GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD"))
que lo reemplazamos por
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Dim oroX As Integer
  2.     oroX = val(GetVar(IniPath & "Server.ini", "INIT", "oro"))
  3. Npclist(NpcIndex).GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD")) * oroX
  4.  
ahora bien para que ande esto vamos a DECLARACIONES buscamos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public ServerSoloGMs As Integer
y dejajo de eso ponemos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public ServerSoloGMs As Integer
  2. Public ExpX As Integer
  3. Public oroX As Integer
ahi quedaría declarado,ahora bien nos falta algo no? si,claro que si vamos a

Sub LoadSini() y ponemos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. Puerto = val(GetVar(IniPath & "Server.ini", "INIT", "StartPort"))
  3. HideMe = val(GetVar(IniPath & "Server.ini", "INIT", "Hide"))
  4. AllowMultiLogins = val(GetVar(IniPath & "Server.ini", "INIT", "AllowMultiLogins"))
  5. IdleLimit = val(GetVar(IniPath & "Server.ini", "INIT", "IdleLimit"))
  6. 'Lee la version correcta del cliente
  7. ULTIMAVERSION = GetVar(IniPath & "Server.ini", "INIT", "Version")
  8. ExpX = val(GetVar(IniPath & "Server.ini", "INIT", "Exp"))
  9. oroX = val(GetVar(IniPath & "Server.ini", "INIT", "Gld"))
  10. PuedeCrearPersonajes = val(GetVar(IniPath & "Server.ini", "INIT", "PuedeCrearPersonajes"))
  11. CamaraLenta = val(GetVar(IniPath & "Server.ini", "INIT", "CamaraLenta"))
  12. ServerSoloGMs = val(GetVar(IniPath & "Server.ini", "init", "ServerSoloGMs"))
  13.  
ahi tenemos el
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ExpX = val(GetVar(IniPath & "Server.ini", "INIT", "Exp"))
  2. oroX = val(GetVar(IniPath & "Server.ini", "INIT", "Gld"))
Luego en el server ini nos quedaria algo como
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. [INIT]
  2. ServerIp=190.245.250.208
  3. CrcSubKey=12345
  4. StartPort=25
  5. StartPortEstadisticas=25
  6. Hide=1
  7. AllowMultiLogins=1
  8. IdleLimit=5
  9. Version=0.12.1
  10. IniciarDesdeBackUp=1
  11. ClientsCommandsQueue=1
  12. CleanInterval=15
  13. PuedeCrearPersonajes=1
  14.  
  15. Exp=100
  16. Oro=100
saludos y anda [/b]

Imagen
I AmishaR I
Usuario Registrado
153
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 253
Aportes: 3
Arriba
Este tema se encuentra cerrado.
Anterior

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