GS-Zone
Facebook Twitter

Sistema de auras dx8 e Inventario 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 » 30 Ene 2012 18:15

Bueno implemente el sistema de auras dx8:
sistema_de_auras_dx8_editor_de_auras_by_shekme_100_funcional_tdMp.html de Shekme perfectamente, cree el auras.dat las auras todo y cuando equipo la arma no pasa nada.. si a alguien le paso o alguien me puede decir como solucionarlo lo agradecería..

----------

Segundo quería saber como hacer para mover el signito "+" cuando equipas un ítem moverlo mas para la izquierda por que me tapa una parte del objeto y como hacer para que si agarro 10000 potas el numero 10000 no se corte. Gracias
Ventu
Usuario Registrado
140
Newbie [4]
Registrado: Enero 2012
Mensajes: 104
Arriba

Nota » 30 Ene 2012 18:21

1 : Dateaste el arma ??
2 : posteame el sub drawinventori del modulo de clase graphicalinventario

Imagen
miqueas150
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13
Arriba

Nota » 30 Ene 2012 18:48

miqueas150 escribió:1 : Dateaste el arma ??
2 : posteame el sub drawinventori del modulo de clase graphicalinventario


1: edite un objeto:

[OBJ556]
Name=Espada Mata Dragones NatOs
Aura=<1>
GrhIndex=716
ObjType=2
Agarrable=0
Anim=15
MinHit=1000
MaxHit=1000
Valor=188000
Crucial=0
LingH=500
LingP=400
LingO=300
SkHerreria=1000


2:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub DrawInventory()
  2.     Dim i As Byte
  3.     Dim X As Integer
  4.     Dim Y As Integer
  5.    
  6.     For i = 1 To UBound(UserInventory)
  7.         If UserInventory(i).GrhIndex Then
  8.             X = ((i - 1) Mod (InventoryWindow.Width / 32)) * 32 + 2
  9.             Y = ((i - 1) \ (InventoryWindow.Width / 32)) * 32 + 2
  10.             If InvSelectedItem = i Then
  11.                 Call engine.Draw_FilledBox(X, Y, 32, 32, D3DColorXRGB(0, 0, 0), D3DColorXRGB(255, 0, 0))
  12.             End If
  13.             Call engine.Draw_GrhIndex(UserInventory(i).GrhIndex, X, Y)
  14.             Call DibujarTexto(UserInventory(i).Amount, Y, X)
  15.             If UserInventory(i).Equipped Then
  16.            Call DibujarTexto("+", Y + 20, X + 15)
  17.             End If
  18.         End If
  19.     Next i
  20. End Sub


PD: el signito mas lo pude modificar por que estaba :

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call DibujarTexto("+", Y + 20, X + 20)

y cambie el x por x+5 me falta que no entra el numero 10000 yfijate lo de aura
Ventu
Usuario Registrado
140
Newbie [4]
Registrado: Enero 2012
Mensajes: 104
Arriba

Nota » 30 Ene 2012 19:10

Ventu escribió:
miqueas150 escribió:1 : Dateaste el arma ??
2 : posteame el sub drawinventori del modulo de clase graphicalinventario


1: edite un objeto:

[OBJ556]
Name=Espada Mata Dragones NatOs
Aura=<1>
GrhIndex=716
ObjType=2
Agarrable=0
Anim=15
MinHit=1000
MaxHit=1000
Valor=188000
Crucial=0
LingH=500
LingP=400
LingO=300
SkHerreria=1000


2:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub DrawInventory()
  2.     Dim i As Byte
  3.     Dim X As Integer
  4.     Dim Y As Integer
  5.    
  6.     For i = 1 To UBound(UserInventory)
  7.         If UserInventory(i).GrhIndex Then
  8.             X = ((i - 1) Mod (InventoryWindow.Width / 32)) * 32 + 2
  9.             Y = ((i - 1) \ (InventoryWindow.Width / 32)) * 32 + 2
  10.             If InvSelectedItem = i Then
  11.                 Call engine.Draw_FilledBox(X, Y, 32, 32, D3DColorXRGB(0, 0, 0), D3DColorXRGB(255, 0, 0))
  12.             End If
  13.             Call engine.Draw_GrhIndex(UserInventory(i).GrhIndex, X, Y)
  14.             Call DibujarTexto(UserInventory(i).Amount, Y, X)
  15.             If UserInventory(i).Equipped Then
  16.            Call DibujarTexto("+", Y + 20, X + 15)
  17.             End If
  18.         End If
  19.     Next i
  20. End Sub


PD: el signito mas lo pude modificar por que estaba :

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call DibujarTexto("+", Y + 20, X + 20)

y cambie el x por x+5 me falta que no entra el numero 10000 yfijate lo de aura

Lo del aura es porque no va "Aura=<Num>" es "Aura=Num"

Y para arreglar lo del 10000, fijate en esta línea: "Call DibujarTexto(UserInventory(i).Amount, Y, X)"


Adiós.

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 30 Ene 2012 19:21

Lord Fers escribió:
Ventu escribió:
miqueas150 escribió:1 : Dateaste el arma ??
2 : posteame el sub drawinventori del modulo de clase graphicalinventario


1: edite un objeto:

[OBJ556]
Name=Espada Mata Dragones NatOs
Aura=<1>
GrhIndex=716
ObjType=2
Agarrable=0
Anim=15
MinHit=1000
MaxHit=1000
Valor=188000
Crucial=0
LingH=500
LingP=400
LingO=300
SkHerreria=1000


2:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub DrawInventory()
  2.     Dim i As Byte
  3.     Dim X As Integer
  4.     Dim Y As Integer
  5.    
  6.     For i = 1 To UBound(UserInventory)
  7.         If UserInventory(i).GrhIndex Then
  8.             X = ((i - 1) Mod (InventoryWindow.Width / 32)) * 32 + 2
  9.             Y = ((i - 1) \ (InventoryWindow.Width / 32)) * 32 + 2
  10.             If InvSelectedItem = i Then
  11.                 Call engine.Draw_FilledBox(X, Y, 32, 32, D3DColorXRGB(0, 0, 0), D3DColorXRGB(255, 0, 0))
  12.             End If
  13.             Call engine.Draw_GrhIndex(UserInventory(i).GrhIndex, X, Y)
  14.             Call DibujarTexto(UserInventory(i).Amount, Y, X)
  15.             If UserInventory(i).Equipped Then
  16.            Call DibujarTexto("+", Y + 20, X + 15)
  17.             End If
  18.         End If
  19.     Next i
  20. End Sub


PD: el signito mas lo pude modificar por que estaba :

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call DibujarTexto("+", Y + 20, X + 20)

y cambie el x por x+5 me falta que no entra el numero 10000 yfijate lo de aura

Lo del aura es porque no va "Aura=<Num>" es "Aura=Num"

Y para arreglar lo del 10000, fijate en esta línea: "Call DibujarTexto(UserInventory(i).Amount, Y, X)"


Adiós.


Lo del aura puse Aura=1 el tema es que cuando la equipe y volvi a equipar me dibujo el aura pero equipe o desequipe, deslogee o no deslogee me queda el aura dibujada u.u
Ventu
Usuario Registrado
140
Newbie [4]
Registrado: Enero 2012
Mensajes: 104
Arriba

Nota » 30 Ene 2012 19:24

Ventu escribió:
Lord Fers escribió:
Ventu escribió:
1: edite un objeto:



2:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub DrawInventory()
  2.     Dim i As Byte
  3.     Dim X As Integer
  4.     Dim Y As Integer
  5.    
  6.     For i = 1 To UBound(UserInventory)
  7.         If UserInventory(i).GrhIndex Then
  8.             X = ((i - 1) Mod (InventoryWindow.Width / 32)) * 32 + 2
  9.             Y = ((i - 1) \ (InventoryWindow.Width / 32)) * 32 + 2
  10.             If InvSelectedItem = i Then
  11.                 Call engine.Draw_FilledBox(X, Y, 32, 32, D3DColorXRGB(0, 0, 0), D3DColorXRGB(255, 0, 0))
  12.             End If
  13.             Call engine.Draw_GrhIndex(UserInventory(i).GrhIndex, X, Y)
  14.             Call DibujarTexto(UserInventory(i).Amount, Y, X)
  15.             If UserInventory(i).Equipped Then
  16.            Call DibujarTexto("+", Y + 20, X + 15)
  17.             End If
  18.         End If
  19.     Next i
  20. End Sub


PD: el signito mas lo pude modificar por que estaba :

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call DibujarTexto("+", Y + 20, X + 20)

y cambie el x por x+5 me falta que no entra el numero 10000 yfijate lo de aura

Lo del aura es porque no va "Aura=<Num>" es "Aura=Num"

Y para arreglar lo del 10000, fijate en esta línea: "Call DibujarTexto(UserInventory(i).Amount, Y, X)"


Adiós.


Lo del aura puse Aura=1 el tema es que cuando la equipe y volvi a equipar me dibujo el aura pero equipe o desequipe, deslogee o no deslogee me queda el aura dibujada u.u

Eso ya es un bug del sistema de auras, tendrías que aprender un poco y hacer que se guarden en el char o alguna forma parecida.


Adiós.

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 30 Ene 2012 19:33

Ya está solucionado esto.
Ventu
Usuario Registrado
140
Newbie [4]
Registrado: Enero 2012
Mensajes: 104
Arriba

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