GS-Zone
Facebook Twitter

Auras para DX7 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

47

Nota » 08 Jul 2009 00:36

Buscan



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


Y abajo ponemos


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


Buscan


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


y

abajo ponemos



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



Buscan



Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ObjData(Object).Newbie = val(Leer.GetValue("OBJ" & Object, "Newbie"))


y abajo agregan


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ObjData(Object).Aura = val(Leer.GetValue("OBJ" & Object, "CreaAura"))


Buscan



Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_SACARARMA)


Y abajo agregan



Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(UserIndex).Char.Aura = Obj.Aura
  2. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CLA" & UserList(UserIndex).Char.CharIndex & "," & UserList(UserIndex).Char.Aura)




Buscan



Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case eOBJType.otWeapon
  2. UserList(UserIndex).Invent.Object(Slot).Equipped = 0
  3. UserList(UserIndex).Invent.WeaponEqpObjIndex = 0
  4. UserList(UserIndex).Invent.WeaponEqpSlot = 0
  5. If Not UserList(UserIndex).flags.Mimetizado = 1 Then
  6. UserList(UserIndex).Char.WeaponAnim = NingunArma
  7. 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)
  8. End If


Y lo reemplazan por


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case eOBJType.otWeapon
  2. UserList(UserIndex).Invent.Object(Slot).Equipped = 0
  3. UserList(UserIndex).Invent.WeaponEqpObjIndex = 0
  4. UserList(UserIndex).Invent.WeaponEqpSlot = 0
  5. If Not UserList(UserIndex).flags.Mimetizado = 1 Then
  6. UserList(UserIndex).Char.WeaponAnim = NingunArma
  7. 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)
  8. End If
  9. UserList(UserIndex).Char.Aura = 0
  10. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CLA" & UserList(UserIndex).Char.CharIndex & "," & UserList(UserIndex).Char.Aura)



CLIENTE

Buscan



Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Select Case Left$(sData, 3)



Y abajo agregan


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "CLA"
  2. Rdata = Right$(Rdata, Len(Rdata) - 3)
  3. CharIndex = Val(ReadField(1, Rdata, 44))
  4. charlist(CharIndex).Aura_Index = Val(ReadField(2, Rdata, 44))
  5. Call InitGrh(charlist(CharIndex).Aura,Val(ReadField(2, Rdata, 44)) )


Buscan



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


abajo agregan :


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Aura_Index As Integer
  2. Aura as Grh



Buscar :


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If TempChar.Head.Head(TempChar.Heading).GrhIndex <> 0 Then
  2. If Not charlist(MapData(X, Y).CharIndex).invisible Then




Debajo poner :


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. #If (ConAlfaB = 1) Then
  2.                         If TempChar.Aura.GrhIndex Then
  3.                             Call DDrawTransGrhtoSurface(BackBufferSurface, TempChar.Aura, _
  4.                                     (((32 * ScreenX) - 32) + PixelOffsetXTemp), _
  5.                                     (((34 * ScreenY) - 34) + PixelOffsetYTemp), _
  6.                                     1, 0)
  7.     #End If
  8. End If


Listo, creo que eso sería todo... el código como algunos ya sabrán lo hizo mannakia, yo solo lo adjunté al th de mannakia con un post de lorwik, hize todo en un post e hize el aporte :P

saludos cordiales.

Honrada sea aquella guitarra que puede llegar a hablar, y glorificado sea aquel hombre que le enseña.
Agushh
Aventurero Argentum
257
Destructor de Mentes [6]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 774
Aportes: 16
Arriba

Nota » 08 Jul 2009 00:54

mira fijate q si no me equivoco te va a psar lo mismo q a todos va a mi y a juanjo y un par le paso q cuando qres ver los detale de un clan te dice q el clan no existe testia eso

Loqui
Usuario Registrado
60
Aprendiz [3]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 291
Aportes: 4
Arriba

Nota » 08 Jul 2009 06:55

yo ya puse como renderizarlo en el foro de 11.2 y es igual que como lo puse xD
bueno pero asi esta mas completo
juanjo_22
14
Destructor de Mentes [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: san pedro alcantara(malaga)
Mensajes: 564
Aportes: 18
Arriba

Nota » 08 Jul 2009 12:01

Tiene el mismo error que el que deje para DX8...
Buen aporte...

Director de Buth AO. 9.9z Protocolo Binario, Directx8 y todo lo lindo para jugar fluidamente feliz ;D
Mannakia
Programador
356
Oraculo [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 1135
Aportes: 30
Arriba

Nota » 08 Jul 2009 12:12

Muy Interesante el aporte...ya debe ser el 4 que veo de auras

" La mas linda del amor , que un tonto ha visto soñar "
McKeyN
Ex-Nosferatuz
14
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Mercedes , Bs As
Mensajes: 1865
Aportes: 4
Arriba

Nota » 08 Jul 2009 14:16

Muy bueno Agussh,despues de poner el codigo hay q poner el particles.ini? (no tengo ni idea por eso pregunto).

Imagen

CHUCK:

SPOILER


jajaa
Flatron
Usuario Registrado
247
Aprendiz [7]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 466
Aportes: 2
Premios: 1
Embajador (1)
Arriba

Nota » 08 Jul 2009 14:18

flatron escribió:Muy bueno Agussh,despues de poner el codigo hay q poner el particles.ini? (no tengo ni idea por eso pregunto).

:| no lees el codigo en OBJ.DAT pones el Grh del Aura, igual el codigo esta incompleto ^^ y para los q pedian auras dx7 ¬¬ no era muy dificil son PAJEROS q es otra cosa q no se ponen a hacer cosas por si solo o averiguar(YO ANTES ERA ASI) ^^ pero cambie :P
Nait
12
Oraculo [1]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Capital Federal
Mensajes: 1133
Aportes: 22
Arriba

Nota » 08 Jul 2009 14:23

Nait escribió:
flatron escribió:Muy bueno Agussh,despues de poner el codigo hay q poner el particles.ini? (no tengo ni idea por eso pregunto).

:| no lees el codigo en OBJ.DAT pones el Grh del Aura, igual el codigo esta incompleto ^^ y para los q pedian auras dx7 ¬¬ no era muy dificil son PAJEROS q es otra cosa q no se ponen a hacer cosas por si solo o averiguar(YO ANTES ERA ASI) ^^ pero cambie :P



Lo que pasa que no tengo ni la menor idea de lo que es un aura,pregunte eso porque un amigo me dijo que lo pregunte porque lo esta poniendo en su server,lo vi en imperium pero no me llama tanto la atencion,

Buen aporte agushh te dejo un gracias.

Imagen

CHUCK:

SPOILER


jajaa
Flatron
Usuario Registrado
247
Aprendiz [7]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 466
Aportes: 2
Premios: 1
Embajador (1)
Arriba

Nota » 08 Jul 2009 14:51

Buenaa agush..

Pero por favor.. me lo adaptas para 12.1 ? :P o alguien q lo adapte? (ya trate y no pude ) :S


Buen aporte gracias

Cancelar "nuestro dios"
ToTiGiO
Judio lider
83
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 1479
Aportes: 11
Arriba

Nota » 08 Jul 2009 16:17

Muy bueno, exelente.
Pero alguno puede poner una imagen para ver como queda?.
Saludos.

Saitam
Destructor de Mentes [3]
Registrado: Años de membresíaAños de membresía
Mensajes: 608
Aportes: 29
Premios: 1
Embajador (1)
Arriba

Nota » 08 Jul 2009 17:16

Asi quedaria:
Tengan en cuenta que yo tengo 4 auras.
1 Atras de otra en armadura escudo casco espada.

Imagen

WWW.FOTOLOG.COM/iidaaleeh
Mira, pasa, firma, effea, y no t toques... :@
Nathiria
Si el placer es pecado, bienvenidos al infierno!
Destructor de Mentes [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: En la Camita
Mensajes: 697
Aportes: 5
Arriba

Nota » 08 Jul 2009 17:53

Nathiria escribió:Asi quedaria:
Tengan en cuenta que yo tengo 4 auras.
1 Atras de otra en armadura escudo casco espada.

Imagen


¬¬mm vos usas DX8, esto es para DX7 y no va a quedar =

muy buen aporte!

, cual es el error que tiene el del DX8?
Franeg95
Aguante River Plate ! ! !
897 (+5)
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14425
Aportes: 304
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)
Arriba

Nota » 08 Jul 2009 18:03

Que raro yo lo tengo casi = el code (el mio tiene otras cosas! :D ) y el BUG que dicen sobre lo del clan me fije y yo no lo tengo :D.
Si quieren mañana se los paso pporque estoy en lo de mi viejo y esta todo en lo de mi vieja...

Saludos.

Atte.:Hardoz:.

Imagen
Mi firma es la original, el resto son todos Ripeos.
Para los que necesiten el FrmPremios del sistema de canje por dats acá está:
http://www.mediafire.com/?g2sf9h6aa0qe7vk
Agradecimientos a Luuq por subirlo.
Hardoz
Pensar Distinto.
61
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Olivos.
Mensajes: 1464
Aportes: 12
Premios: 2
Mister S.O.S. (1) Embajador (1)
Arriba

Nota » 08 Jul 2009 18:25

Franeg95 escribió:
Nathiria escribió:Asi quedaria:
Tengan en cuenta que yo tengo 4 auras.
1 Atras de otra en armadura escudo casco espada.

Imagen


¬¬mm vos usas DX8, esto es para DX7 y no va a quedar =

muy buen aporte!

, cual es el error que tiene el del DX8?


Dijiste cualquiera.. xD

Porque no va a quedar igual?, si solo reenderiza una imagen que tiene el mismo color =P

Es una imag, no usa particulas

WWW.FOTOLOG.COM/iidaaleeh
Mira, pasa, firma, effea, y no t toques... :@
Nathiria
Si el placer es pecado, bienvenidos al infierno!
Destructor de Mentes [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: En la Camita
Mensajes: 697
Aportes: 5
Arriba

Nota » 08 Jul 2009 18:28

Nathiria escribió:
Franeg95 escribió:
Nathiria escribió:Asi quedaria:
Tengan en cuenta que yo tengo 4 auras.
1 Atras de otra en armadura escudo casco espada.

Imagen


¬¬mm vos usas DX8, esto es para DX7 y no va a quedar =

muy buen aporte!

, cual es el error que tiene el del DX8?


Dijiste cualquiera.. xD

Porque no va a quedar igual?, si solo reenderiza una imagen que tiene el mismo color =P

Es una imag, no usa particulas



En realidad no porque si tenes dx8 el aura ilumina en cambio en dx7 no ilumina nada es como una imagen agregada nada mas.

Saludos.

Atte.:Hardoz:.

Imagen
Mi firma es la original, el resto son todos Ripeos.
Para los que necesiten el FrmPremios del sistema de canje por dats acá está:
http://www.mediafire.com/?g2sf9h6aa0qe7vk
Agradecimientos a Luuq por subirlo.
Hardoz
Pensar Distinto.
61
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Olivos.
Mensajes: 1464
Aportes: 12
Premios: 2
Mister S.O.S. (1) Embajador (1)
Arriba
Siguiente

Volver a AO 0.11.5

¿Quién está conectado?

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