No estás conectado. Conéctate o registrate

[APORTE] Defenza magica en el MAin

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 [APORTE] Defenza magica en el MAin el Vie Mayo 01, 2009 2:06 pm

franeg95


USUARIO REGISTRADO
SERVIDOR:

buscamos:
Código:
StaffDamageBonus As Integer

y debajo colocamos: (solo si no esta declarado todavia)

Código:
  DefensaMagicaMax As Integer
    DefensaMagicaMin As Integer

Buscamos:

Código:
Sub SendUserHitBox(ByVal UserIndex As Integer)

y reemplazamos ese sub enterito por el siguiente:

Código:
Sub SendUserHitBox(ByVal UserIndex As Integer)
Dim lagaminarma As Integer
Dim lagamaxarma As Integer
Dim lagaminarmor As Integer
Dim lagamaxarmor As Integer
Dim lagaminescu As Integer
Dim lagamaxescu As Integer
Dim lagamincasc As Integer
Dim lagamaxcasc As Integer
 
 
Dim llagaminarma As Integer
Dim llagamaxarma As Integer
Dim llagaminarmor As Integer
Dim llagamaxarmor As Integer
Dim llagaminescu As Integer
Dim llagamaxescu As Integer
Dim llagamincasc As Integer
Dim llagamaxcasc As Integer
 
 
If UserList(UserIndex).Invent.WeaponEqpSlot > 0 Then
lagaminarma = ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).MinHIT
lagamaxarma = ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).MaxHIT
llagaminarma = ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).DefensaMagicaMin
llagamaxarma = ObjData(UserList(UserIndex).Invent.WeaponEqpObjIndex).DefensaMagicaMax
Else
lagaminarma = "0"
lagamaxarma = "0"
llagaminarma = "0"
llagamaxarma = "0"
End If
If UserList(UserIndex).Invent.ArmourEqpSlot > 0 Then
lagaminarmor = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).MinDef
lagamaxarmor = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).MaxDef
llagaminarmor = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).DefensaMagicaMin
llagamaxarmor = ObjData(UserList(UserIndex).Invent.ArmourEqpObjIndex).DefensaMagicaMax
Else
lagaminarmor = "0"
lagamaxarmor = "0"
llagaminarmor = "0"
llagamaxarmor = "0"
End If
If UserList(UserIndex).Invent.EscudoEqpSlot > 0 Then
lagaminescu = ObjData(UserList(UserIndex).Invent.EscudoEqpObjIndex).MinDef
lagamaxescu = ObjData(UserList(UserIndex).Invent.EscudoEqpObjIndex).MaxDef
llagaminescu = ObjData(UserList(UserIndex).Invent.EscudoEqpObjIndex).DefensaMagicaMin
llagamaxescu = ObjData(UserList(UserIndex).Invent.EscudoEqpObjIndex).DefensaMagicaMax
Else
lagaminescu = "0"
lagamaxescu = "0"
llagaminescu = "0"
llagamaxescu = "0"
End If
If UserList(UserIndex).Invent.CascoEqpSlot > 0 Then
lagamincasc = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).MinDef
lagamaxcasc = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).MaxDef
lagamincasc = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).DefensaMagicaMin
lagamaxcasc = ObjData(UserList(UserIndex).Invent.CascoEqpObjIndex).DefensaMagicaMax
Else
lagamincasc = "0"
lagamaxcasc = "0"
llagamincasc = "0"
llagamaxcasc = "0"
End If
Call SendData(ToIndex, UserIndex, 0, "ARM" & lagaminarma & "," & lagamaxarma & "," & lagaminarmor & "," & lagamaxarmor & "," & lagaminescu & "," & lagamaxescu & "," & lagamincasc & "," & lagamaxcasc & llagaminarma & "," & llagamaxarma & "," & llagaminarmor & "," & llagamaxarmor & "," & llagaminescu & "," & llagamaxescu & "," & llagamincasc & "," & llagamaxcasc)
End Sub

CLIENTE:

Primero creamos un label con el nombre de : lblmagica

Ahora los codigos
Buscamos:


Código:
Case "ARM"

y reemplazamos todo ese CASE por el siguiente:


Código:
      Case "ARM"
            Rdata = Right$(Rdata, Len(Rdata) - 3)
            ArmaMin = Val(ReadField(1, Rdata, 44))
            ArmaMax = Val(ReadField(2, Rdata, 44))
            ArmorMin = Val(ReadField(3, Rdata, 44))
            ArmorMax = Val(ReadField(4, Rdata, 44))
            EscuMin = Val(ReadField(5, Rdata, 44))
            EscuMax = Val(ReadField(6, Rdata, 44))
            CascMin = Val(ReadField(7, Rdata, 44))
            CascMax = Val(ReadField(8, Rdata, 44))
            MagMin = Val(ReadField(10, Rdata, 44))
            MagMax = Val(ReadField(11, Rdata, 44))
            frmMain.lblarmor.Caption = ArmorMin & "/" & ArmorMax
            frmMain.lblarma.Caption = ArmaMin & "/" & ArmaMax
            frmMain.lblescudo.Caption = EscuMin & "/" & EscuMax
            frmMain.lblcasc.Caption = CascMin & "/" & CascMax
            frmMain.lblMagica.Caption = MagMin & "/" & MagMax
ESE CASE ES EL CORRECTO PERO VI UNO NO TESTEADO POR MI(PARECE MAS OPTIMO)

Código:
Frmmain.lblcasc.caption = Val(ReadField(7, Rdata, 44)) & "/" &  Val(ReadField(8, Rdata, 44))
(NO TESTEADO)

Buscamos:


Código:
Public ServersRecibidos As Boolean

y colocamos abajo:


Código:
Public MagMin As Integer
Public MagMax As Integer

CODIGO pOSTEADO ORIINALMENTE EN GS ZONE

Ver perfil de usuario

2 Re: [APORTE] Defenza magica en el MAin el Vie Mayo 01, 2009 2:27 pm

Lao saiman


USUARIO REGISTRADO
Mucahs grasias se agradce mucho, estuvo bueno que ayas puesto el otro case parece mas chiquito aunque funiciona?

Ver perfil de usuario

3 Re: [APORTE] Defenza magica en el MAin el Vie Mayo 01, 2009 2:49 pm

franeg95


USUARIO REGISTRADO
dije que no lo testie, no puedo ahora porque borre el code del cliente y no lo encuentr funcional

Ver perfil de usuario

4 ArreK el Vie Mayo 01, 2009 4:35 pm

ArreK


USUARIO REGISTRADO
Muy lindo fran Smile

Ver perfil de usuario

5 Re: [APORTE] Defenza magica en el MAin el Vie Mayo 08, 2009 12:01 pm

Guiido


SUPER MODERADOR
Está mal de vista hay variables sin definir:S hay edito y lo arreglo

Frmmain.lblcasc.caption = Val(ReadField(7, Rdata, 44)) & "/" & Val(ReadField(8, Rdata, 44)) Shocked

primero el lblcasc.caption está definido pero no creado como vas a poner un label inexistente y aparte no está espesificado el label :S

Ver perfil de usuario

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.