No estás conectado. Conéctate o registrate

[Aporte] Sistema De Auras(DX8)

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

1 [Aporte] Sistema De Auras(DX8) el Miér Abr 29, 2009 1:31 pm

ArreK


USUARIO REGISTRADO
SERVIDOR

Buscan


Código:
Public Type Char


Y abajo ponemos


Código:
Aura As Integer


Buscan

Código:
Public Type ObjData


y abajo ponemos


Código:
Aura As Integer


Buscan


Código:
ObjData(Object).Newbie = val(Leer.GetValue("OBJ" & Object, "Newbie"))


y abajo agregan


Código:
ObjData(Object).Aura = val(Leer.GetValue("OBJ" & Object, "CreaAura"))


Buscan


Código:
Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_SACARARMA)


Y abajo agregan


Código:
UserList(UserIndex).Char.Aura = Obj.Aura
Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CLA" & UserList(UserIndex).Char.CharIndex & "," & UserList(UserIndex).Char.Aura)


Buscan


Código:
Case eOBJType.otWeapon
UserList(UserIndex).Invent.Object(Slot).Equipped = 0
UserList(UserIndex).Invent.WeaponEqpObjIndex = 0
UserList(UserIndex).Invent.WeaponEqpSlot = 0
If Not UserList(UserIndex).flags.Mimetizado = 1 Then
UserList(UserIndex).Char.WeaponAnim = NingunArma
Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
End If


Y lo reemplazan por

Código:

Case eOBJType.otWeapon
UserList(UserIndex).Invent.Object(Slot).Equipped = 0
UserList(UserIndex).Invent.WeaponEqpObjIndex = 0
UserList(UserIndex).Invent.WeaponEqpSlot = 0
If Not UserList(UserIndex).flags.Mimetizado = 1 Then
UserList(UserIndex).Char.WeaponAnim = NingunArma
Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
End If
UserList(UserIndex).Char.Aura = 0
Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CLA" & UserList(UserIndex).Char.CharIndex & "," & UserList(UserIndex).Char.Aura)



CLIENTE

Buscan

Código:

Select Case Left$(sData, 3)


Y abajo agregan

Código:

Case "CLA" ' Crea Aura Sobre El Char
Rdata = Right$(Rdata, Len(Rdata) - 3)
CharIndex = Val(ReadField(1, Rdata, 44))
charlist(CharIndex).Aura_Index = Val(ReadField(2, Rdata, 44))
Call InitGrh(charlist(CharIndex).Aura,Val(ReadField(2, Rdata, 44)) )


Buscan

Código:

Type Char


Y abajo agregan

Código:

Aura_Index As Integer
Aura as Grh


Buscan

Código:

If Not .invisible Then
'Draw Body


Y Agregan Abajo

Código:

If .Aura_Index > 0 Then
Call Draw_Grh(.Aura, PixelOffsetX, PixelOffsetY, 0, 0, True, X, Y)

Este Codigo es para Alkon 0.11.5 ,

Fuente: GS-Zone! Por el Usuario: Mannakia.

Espero que lo disfruten y les sea util.

Ver perfil de usuario

2 Re: [Aporte] Sistema De Auras(DX8) el Miér Abr 29, 2009 3:18 pm

Crixis


MODERADOR GLOBAL
Excelente Aporte De (10+)

Suerte y segui asi que vas en buen camino Smile


Atte: Crixis(Cristian)


_________________
Ver perfil de usuario

3 Re: [Aporte] Sistema De Auras(DX8) el Miér Abr 29, 2009 3:22 pm

ArreK


USUARIO REGISTRADO
Gracias Very Happy hoy creo que va a ser el unico dia que haga tantos aportes.

Ver perfil de usuario

4 Re: [Aporte] Sistema De Auras(DX8) el Vie Mayo 01, 2009 2:57 pm

franeg95


USUARIO REGISTRADO
ta buen oaunque tiene algunos bug, el otro n puede ver tu aura

Ver perfil de usuario

5 ArreK el Vie Mayo 01, 2009 4:46 pm

ArreK


USUARIO REGISTRADO
Gracias fran por comentar no lo habia testeado ahora lo edito Smile

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.