No estás conectado. Conéctate o registrate

[Aporte] Sistema De Auras(DX8)

Ir abajo  Mensaje [Página 1 de 1.]

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

ArreK

avatar
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

avatar
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

avatar
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

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

Ver perfil de usuario

Contenido patrocinado


Volver arriba  Mensaje [Página 1 de 1.]

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