GS-Zone
Facebook Twitter

Modificar Oro y Exp desde el server.ini 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

4

Nota » 11 May 2009 12:55

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.  
  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
Última edición por I AmishaR I el 11 May 2009 15:17, editado 1 vez en total

Imagen
I AmishaR I
Usuario Registrado
158
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 253
Aportes: 3
Arriba

Nota » 11 May 2009 14:38

Me tira error al compilar en

"Public ServerSoloGMs As Integer"

Error de compilacion:
Se ha detectado un nombre ambiguo en ServerSoloGMs

Imagen
En progreso...
Con Minimapa, Reproductor de Mp3, Nuevo mundo gigante, + de 300 Items nuevos, MOD NUEVO!
Se buscan programadores con Tiempo, y serios, no se permite Copy+Paste, INFO DEL SV en:
http://www.gs-zone.com.ar/lt221464_proyecto_casi_terminado_falta_un_poco_de_programacion_post_con_imagenes_del_cliente_varias.html#p221464 , ¿Estas listo?
Luchhorlz
Usuario Registrado
10
Aprendiz [3]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 305
Arriba

Nota » 11 May 2009 14:43

Luchhorlz escribió:Me tira error al compilar en

"Public ServerSoloGMs As Integer"

Error de compilacion:
Se ha detectado un nombre ambiguo en ServerSoloGMs



Borralo, esta declarado 2 veces, se confundio y dijo qe busques eso, y abajo qe lo declares, saca esa declaracion xD

Imagen
Naaan!
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)
Arriba

Nota » 11 May 2009 15:17

Petin escribió:
Luchhorlz escribió:Me tira error al compilar en

"Public ServerSoloGMs As Integer"

Error de compilacion:
Se ha detectado un nombre ambiguo en ServerSoloGMs



Borralo, esta declarado 2 veces, se confundio y dijo qe busques eso, y abajo qe lo declares, saca esa declaracion xD


claro,no me confundí,pensé que se iba a dar cuenta pero bueno, ahí lo cambié por las dudas...ya está todo bien.

Imagen
I AmishaR I
Usuario Registrado
158
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 253
Aportes: 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