GS-Zone
Facebook Twitter

Labels de Defensas y Daños 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

7

Nota » 21 May 2009 10:34

Yo lo tengo echo asi:

En el Servidor

Primero declaramos las variables que van a contener las defensas y daños.
En el modulo declaraciones buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Type UserStats


Y abajo de eso buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. MinAGU As Integer


Y abajo de eso ponemos esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. AMinDef As Integer
  2. AMaxDef As Integer
  3. EMinDef As Integer
  4. EMaxDef As Integer
  5. CMinDef As Integer
  6. CMaxDef As Integer
  7. WMinHit As Integer
  8. WMaxHit As Integer


Busca la Sub "EquiparInvItem":

Ahora al final de la sub busca esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call UpdateUserInv(True, UserIndex, 0)


Y abajo de eso pone esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call LAB(UserIndex)


Ahora buscas en la Sub "Desequipar":

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call UpdateUserInv(False, UserIndex, Slot)


Y abajo pones:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call LAB(UserIndex)


Ahora busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "EQUI"


Y Arriba del "Exit Sub" dentro de ese Case pones esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call LAB(UserIndex)


Ahora en el Modulo usuarios al final de todo pones esta nueva "SUB":

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub LAB(ByVal UserIndex As Integer)
  2.  
  3. If UserList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
  4.     UserList(UserIndex).Stats.AMinDef = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).MinDef
  5. Else
  6.     UserList(UserIndex).Stats.AMinDef = 0
  7. End If
  8.  
  9. If UserList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
  10.     UserList(UserIndex).Stats.AMaxDef = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).MaxDef
  11. Else
  12.     UserList(UserIndex).Stats.AMaxDef = 0
  13. End If
  14.  
  15. If UserList(UserIndex).Invent.EscudoEqpObjIndex > 0 Then
  16.     UserList(UserIndex).Stats.EMinDef = ObjData(UserList(UserIndex).Invent.EscudoEqpObjIndex).MinDef
  17. Else
  18.     UserList(UserIndex).Stats.EMinDef = 0
  19. End If
  20.  
  21. If UserList(UserIndex).Invent.EscudoEqpObjIndex > 0 Then
  22.     UserList(UserIndex).Stats.EMaxDef = ObjData(UserList(UserIndex).Invent.EscudoEqpObjIndex).MaxDef
  23. Else
  24.     UserList(UserIndex).Stats.EMaxDef = 0
  25. End If
  26.  
  27. If UserList(UserIndex).Invent.CascoEqpObjIndex > 0 Then
  28.     UserList(UserIndex).Stats.CMinDef = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).MinDef
  29.     UserList(UserIndex).Stats.MMinDef = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).DefensaMagicaMin
  30. Else
  31.     UserList(UserIndex).Stats.CMinDef = 0
  32.     UserList(UserIndex).Stats.MMinDef = 0
  33. End If
  34.  
  35. If UserList(UserIndex).Invent.CascoEqpObjIndex > 0 Then
  36.     UserList(UserIndex).Stats.CMaxDef = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).MaxDef
  37.     UserList(UserIndex).Stats.MMaxDef = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).DefensaMagicaMax
  38. Else
  39.     UserList(UserIndex).Stats.CMaxDef = 0
  40.     UserList(UserIndex).Stats.MMaxDef = 0
  41. End If
  42.  
  43. If UserList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
  44.     UserList(UserIndex).Stats.WMinHit = ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).MinHIT
  45. Else
  46.     UserList(UserIndex).Stats.WMinHit = 0
  47. End If
  48.  
  49. If UserList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
  50.     UserList(UserIndex).Stats.WMaxHit = ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).MaxHIT
  51. Else
  52.     UserList(UserIndex).Stats.WMaxHit = 0
  53. End If
  54.  
  55. If UserList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
  56.     UserList(UserIndex).Stats.MMinDef = UserList(UserIndex).Stats.MMinDef + ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).DefensaMagicaMin
  57. Else
  58.     UserList(UserIndex).Stats.MMinDef = UserList(UserIndex).Stats.MMinDef
  59. End If
  60.  
  61. If UserList(UserIndex).Invent.HerramientaEqpObjIndex > 0 Then
  62.     UserList(UserIndex).Stats.MMinDef = UserList(UserIndex).Stats.MMinDef + ObjData(UserList(UserIndex).Invent.HerramientaEqpObjIndex).DefensaMagicaMin
  63. Else
  64.     UserList(UserIndex).Stats.MMinDef = UserList(UserIndex).Stats.MMinDef
  65. End If
  66.  
  67. If UserList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
  68.     UserList(UserIndex).Stats.MMaxDef = UserList(UserIndex).Stats.MMaxDef + ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).DefensaMagicaMax
  69. Else
  70.     UserList(UserIndex).Stats.MMaxDef = UserList(UserIndex).Stats.MMaxDef
  71. End If
  72.  
  73. If UserList(UserIndex).Invent.HerramientaEqpObjIndex > 0 Then
  74.     UserList(UserIndex).Stats.MMaxDef = UserList(UserIndex).Stats.MMaxDef + ObjData(UserList(UserIndex).Invent.HerramientaEqpObjIndex).DefensaMagicaMax
  75. Else
  76.     UserList(UserIndex).Stats.MMaxDef = UserList(UserIndex).Stats.MMaxDef
  77. End If
  78.  
  79. Call SendData(ToIndex, UserIndex, 0, "LAB" & UserList(UserIndex).Stats.AMinDef & "," & UserList(UserIndex).Stats.AMaxDef & "," & UserList(UserIndex).Stats.CMinDef & "," & UserList(UserIndex).Stats.CMaxDef & "," & UserList(UserIndex).Stats.EMinDef & "," & UserList(UserIndex).Stats.EMaxDef & "," & UserList(UserIndex).Stats.WMinHit & "," & UserList(UserIndex).Stats.WMaxHit)
  80.  
  81. End Sub


En el Cliente

Arriba de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "T01"


Pones esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "LAB"
  2.             Rdata = Right$(Rdata, Len(Rdata) - 3)
  3.             frmmain.lblArmaduras.Caption = Val(ReadField(1, Rdata, 44)) & "/" & Val(ReadField(2, Rdata, 44))
  4.             frmmain.lblCascos.Caption = Val(ReadField(3, Rdata, 44)) & "/" & Val(ReadField(4, Rdata, 44))
  5.             frmmain.lblEscudos.Caption = Val(ReadField(5, Rdata, 44)) & "/" & Val(ReadField(6, Rdata, 44))
  6.             frmmain.lblArmas.Caption = Val(ReadField(7, Rdata, 44)) & "/" & Val(ReadField(8, Rdata, 44))


Ahora es cuestion que los frmmain.(lbl...) los cambies por el nombre de los Labels que queres que contengan esa informacion! :D
Cualquier cosa me avisan.

Suerte.

Silver
Última edición por Silver el 21 May 2009 23:08, editado 1 vez en total

Imagen
Director y Programador
<Destruction-Ao>
Silver
Director y Programador Destruction-Ao
19
Destructor de Mentes [4]
Registrado: 5 Años de membresía!
Mensajes: 659
Aportes: 6
Arriba

Nota » 21 May 2009 22:20

Tira error cuando lo compilo y me señala por ejemplo esto:

UserList(UserIndex).Stats.AMINDEF = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).MinDef


Me tira error en .AMINDEF =

me dice: Method or data member not found
No anda al compilarlo a .exe :
Arriba

Nota » 21 May 2009 22:26

No anda al compilarlo a .exe : escribió:Tira error cuando lo compilo y me señala por ejemplo esto:

UserList(UserIndex).Stats.AMINDEF = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).MinDef


Me tira error en .AMINDEF =

me dice: Method or data member not found


no esta declarado AMINDEF

Fijate de declararlo o si esta bien esa variable ( el nombre )

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 » 21 May 2009 23:06

Perdon tiene razon me olvide de declararlas, ahy las agrego al post principal.

Silver

Imagen
Director y Programador
<Destruction-Ao>
Silver
Director y Programador Destruction-Ao
19
Destructor de Mentes [4]
Registrado: 5 Años de membresía!
Mensajes: 659
Aportes: 6
Arriba

Nota » 21 May 2009 23:35

Gracias.. igualmente te faltaron un par declarar


MMinDef as integer
MMaxdef as integer



Suerteee :D



AAA TE HAGO UNA PREGUNTA NO PODRIAS HACER UN CODIGO HACIENDO QUE CUANDO TE HACES INVISIBLE TE HAGAS TRANSPARENTE Y TE CAMBIE EL NOMBRE DE COLOR (AMARILLO) O DIRECTAMENTE QUE O QE SOLO TE CAMBIE EL COLOR DEL NOMBRE (AMARILLO) .


POR FAVOR TE PIO :)
Última edición por algio el 22 May 2009 15:58, editado 1 vez en total
algio
Usuario Registrado
Newbie [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 46
Arriba

Nota » 22 May 2009 12:38

Ese MMin y MMax no estan declaradas porque en general en los servidores pelados de Alkon no existe la defensa magica en armaduras, cascos y demases entonces se los saque pero se ve que se me pasaron xD.

Por otro lado con respecto al Invi la verdad lo hice pero no me acuerdo como xD.

Silver

Imagen
Director y Programador
<Destruction-Ao>
Silver
Director y Programador Destruction-Ao
19
Destructor de Mentes [4]
Registrado: 5 Años de membresía!
Mensajes: 659
Aportes: 6
Arriba

Nota » 22 May 2009 17:01

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

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

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