Reducir lag en tu sv

» 13 Jul 2009 19:06

1º Buscamos Sub senduserstatsbox.

2º y debajo del End Sub Ponemos:

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

 
Sub MandarMellace(ByVal UserIndex As Integer)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "ESE" & UserList(UserIndex).Stats.MaxSta & "," & UserList(UserIndex).Stats.MinSta )
End sub
 

3º Buscamos:

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

Dim bEnviarStats As Boolean

4º y debajo ponemos:

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

 
Dim benviarmellace as boolean

5º Buscamos

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

bEnviarStats = False

6º y Ponemos:

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

 
benviarmellace = false

7º Buscamos

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

 
Call RecStamina(iUserIndex, benviarstats, StaminaIntervaloSinDescansar)

8º y lo remplazamos por:

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

Call RecStamina(iUserIndex, benviarmellace, StaminaIntervaloSinDescansar)

lo mismo con el staminaintervalodescansar.

9º Abajo de:

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

If bEnviarAyS Then Call EnviarHambreYsed(iUserIndex)

10º Ponemos:

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

if benviarmellace then call mandarmellace(iuserindex)

11º Buscamos:

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

Public Sub RecStamina(UserIndex As Integer, Enviarstats As Boolean, Intervalo As Integer)

12º y lo remplazamos por:

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

 
Public Sub RecStamina(UserIndex As Integer, Enviarenergia As Boolean, Intervalo As Integer)
 

13º y en ese sub abajo dice:

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

 
Enviarstats = true

14º remplazamos eso por:

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

 
Enviarenergia = True

15º y por ultimo, debajo de:

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

Case "EST"

16º ponemos:

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

 
Case "ESE"
Rdata = Right$(Rdata, Len(Rdata) - 3)
UserMaxSTA = Val(ReadField(1, Rdata, 44))
UserMinSTA = Val(ReadField(2, Rdata, 44))
frmMain.STAShp.Width = (((UserMinSTA / 100) / (UserMaxSTA / 100)) * 98)
exit sub
 

cuando necesitamos energia nos envia el packete EST , es decir, estamos recibiendo el mana la vida la exp la energia la exp y el oro , cuando solo necesitamos la energia, ven todo lo que consume? bueno aca esta un codigo para que esto no sea necesario y solo mande la energia

Fuente:

Iber Zone

» 13 Jul 2009 19:08

Muy bueno, pero esto ya estaba.
Saludos y suerte.

» 13 Jul 2009 19:09

Saitam escribió:Muy bueno, pero esto ya estaba.
Saludos y suerte.

encerio???

la verdad que nunca lo vi...

que rapido que respondiste

» 13 Jul 2009 19:11

Lindo Aporte, mira todo lo que hace el servidor sin que no nos demos cuenta

» 13 Jul 2009 19:16

Ember escribió:Lindo Aporte, mira todo lo que hace el servidor sin que no nos demos cuenta

No te das cuenta porque nunca te pusiste a ver todo el codigo

.
Saludos.

» 13 Jul 2009 19:18

Ya estaba posteado luminum

» 13 Jul 2009 19:38

Ya estaba posteado, pero igual aporte.
PD: Tiene el mismo error. En el pedazo que recibe la stamina desde el cliente dice:

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

Rdata = Right$(Rdata, Len(Rdata) - 2)

Y asi va a funcionar mal ya que el paquete es "ESE"( tendria que restar 3)
En realidad seria:

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

Rdata = Right$(Rdata, Len(Rdata) - 3)

Espero que les sirva esa solucion!

(Sino la MaxEstamina desde el cliente queda en 0, a mi me paso eso la primera vez

)

» 13 Jul 2009 19:56

grax manam ahy lo arregle

» 13 Jul 2009 21:15

Piola gracias luminum, apurate con lao, soy waltersit0 el del msn

aunque es verdad, esta posteado un codigo que hace exactamente lo mismo

, nose nunca se me dio por ponerlo, ai le pongo el tullo.

salu2

» 13 Jul 2009 21:50

Si esta postead pero el qe vi esta en 11.2 nose donde esta el otro
Pero bueno muy buen paorte luminium!
Esta bueno! Y sirve, ya que sn cosas pequeñas que deriban en algo feo " LAG"

» 13 Jul 2009 22:00

Gracias me sirvio mucho para mi sv q esta por largarse la oficial y bueno esto va a ayudar a reducir los inconvenientes

Reducir lag en tu sv

¿Quién está conectado?