GS-Zone
Facebook Twitter

Editor de Partículas Ore (Carga de IAO y Ecuación) 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

28

Nota » 21 Oct 2011 11:56

Dunkan escribió:Muy bonito pibe!!, lástima que sea ORE xD!

Lástima que sea ORE? Ya me gustaria verte haciendo un software la mitad de bueno que ese.

•Parra
Vicinity of obscenity
525
Legendario Inmortal [2]
Registrado: 5 Años de membresía!
Ubicación: España
Mensajes: 5579
Aportes: 50
Premios: 3
Mister Programador FreeForAll (3)
Arriba

Nota » 21 Oct 2011 14:21

•Parra escribió:
Dunkan escribió:Muy bonito pibe!!, lástima que sea ORE xD!

Lástima que sea ORE? Ya me gustaria verte haciendo un software la mitad de bueno que ese.


Hacía referencia al sistema de partículas que personalmente no me gusta. Y hablando del sistema de partículas sí, puedo hacer uno mejor.
Dunkan
All we need is love
475
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Mar del Plata
Mensajes: 2001
Aportes: 30
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 21 Oct 2011 14:21

•Parra escribió:
Dunkan escribió:Muy bonito pibe!!, lástima que sea ORE xD!

Lástima que sea ORE? Ya me gustaria verte haciendo un software la mitad de bueno que ese.


vbgore♥

LyRan escribió:Buenos Dias amigos y programadores de Gs Zone, Me gustaria pedirle la amabilidad de una ayuda con un cliente editado para mi Ao casero, Osea me explico, yo juego Ao con varios amigos y ellos todos usan cheat y no me gusta eso me gustaria que alguien me ayudara a crear un cliente editado con auto poteo de ambas potas a la ves ya sea que se alla gastado Mana lanzando algun hechis y comienze a potear solo hasta estar completamente el Mana, igual para la salud y poteo rapido para ambos.
maTih.-
mAnco programEr
799
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Bolivia
Mensajes: 2299
Aportes: 109
Arriba

Nota » 21 Oct 2011 15:46

Dunkan escribió:
•Parra escribió:
Dunkan escribió:Muy bonito pibe!!, lástima que sea ORE xD!

Lástima que sea ORE? Ya me gustaria verte haciendo un software la mitad de bueno que ese.


Hacía referencia al sistema de partículas que personalmente no me gusta. Y hablando del sistema de partículas sí, puedo hacer uno mejor.

No me refiero al sistema de particulas sino al software completo, igualmente, me gustaria ver como te las ingenias para hacer uno mejor.

•Parra
Vicinity of obscenity
525
Legendario Inmortal [2]
Registrado: 5 Años de membresía!
Ubicación: España
Mensajes: 5579
Aportes: 50
Premios: 3
Mister Programador FreeForAll (3)
Arriba

Nota » 21 Oct 2011 17:51

Lord Fers escribió:
Van Dyke escribió:
Lord Fers escribió:A diferencia de los demás, este tiene la carga de recursos y particles.ini del ImperiumAO desde la 1.3 a la 1.4.5 Inframundo (no tengo idea como es el 1.4.9)

Fijate que si usas los recursos que se te descomprimen con el descompresor del IAO que aportó mannakia, vas a poder editar esas partículas. (Lo aporté porque me llegaron personas al msn pidiendo un editor de partículas para el IAO Clon)


Adiós.


Y que tiene de difícil? le cambias el loadgrhdata por el de IAO y ahí tenes un editor de partículas.

En si, no me preocupa la carga del IAO, nada más lo aporté por el sistema de radio en partículas ore... Algo que pensé que ya se habían avivado y ya lo debían haber aportado no lo aportaron.

Además yo nunca dije que fuera difícil ni dije que lo haya echo ahora. Esto lo tengo hace mucho más de 1 año... Las cosas que vos aportaste también son pavadas y no lo ando diciendo. No me preocupo por un aporte de AO codeado en vb6...

Mudate de lenguaje y después me hablas.


Adiós.


No empecemos a pelear bad boy.

Lo dije por las personas que te lo pedían... Que tiene de difícil? por que no lo hacen ellos?

Imagen
Van Dyke
169
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Mensajes: 2021
Aportes: 13
Premios: 1
Embajador (1)
Arriba

Nota » 21 Oct 2011 18:38

Para los que quieran usar el editor sin recursos de ImperiumAO busquen:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Const CANT_GRH_INDEX As Long = 40000
  2.  
  3. Public Sub LoadGrhData()
  4. '*****************************************************************
  5. 'Loads Grh.dat
  6. '*****************************************************************
  7.  
  8. On Error GoTo ErrorHandler
  9.  
  10. Dim Grh As Integer
  11. Dim Frame As Integer
  12. Dim tempInt As Integer
  13. Dim f As Integer
  14.  
  15. ReDim GrhData(0 To CANT_GRH_INDEX) As GrhData
  16.  
  17. f = FreeFile()
  18. Open App.Path & "\INIT\Graficos.ind" For Binary Access Read As #f
  19.    
  20.     Seek #f, 1
  21.    
  22.     Get #f, , tempInt
  23.     Get #f, , tempInt
  24.     Get #f, , tempInt
  25.     Get #f, , tempInt
  26.     Get #f, , tempInt
  27.  
  28.     'Get first Grh Number
  29.     Get #f, , Grh
  30.    
  31.     Do Until Grh <= 0
  32.         'Get number of frames
  33.         Get #f, , GrhData(Grh).NumFrames
  34.        
  35.         If GrhData(Grh).NumFrames <= 0 Then
  36.             GoTo ErrorHandler
  37.         End If
  38.        
  39.         ReDim GrhData(Grh).Frames(1 To GrhData(Grh).NumFrames)
  40.        
  41.         If GrhData(Grh).NumFrames > 1 Then
  42.        
  43.             'Read a animation GRH set
  44.             For Frame = 1 To GrhData(Grh).NumFrames
  45.                 Get #f, , GrhData(Grh).Frames(Frame)
  46.                 If GrhData(Grh).Frames(Frame) <= 0 Or GrhData(Grh).Frames(Frame) > CANT_GRH_INDEX Then GoTo ErrorHandler
  47.             Next Frame
  48.        
  49.             Get #f, , tempInt
  50.            
  51.             If tempInt <= 0 Then GoTo ErrorHandler
  52.             GrhData(Grh).speed = GrhData(Grh).NumFrames * 0.018 'CLng(TempInt)
  53.            
  54.             'Compute width and height
  55.             GrhData(Grh).pixelHeight = GrhData(GrhData(Grh).Frames(1)).pixelHeight
  56.             If GrhData(Grh).pixelHeight <= 0 Then GoTo ErrorHandler
  57.            
  58.             GrhData(Grh).pixelWidth = GrhData(GrhData(Grh).Frames(1)).pixelWidth
  59.             If GrhData(Grh).pixelWidth <= 0 Then GoTo ErrorHandler
  60.  
  61.             GrhData(Grh).TileWidth = GrhData(GrhData(Grh).Frames(1)).TileWidth
  62.             If GrhData(Grh).TileWidth <= 0 Then GoTo ErrorHandler
  63.  
  64.             GrhData(Grh).TileHeight = GrhData(GrhData(Grh).Frames(1)).TileHeight
  65.             If GrhData(Grh).TileHeight <= 0 Then GoTo ErrorHandler
  66.         Else
  67.             'Read in normal GRH data
  68.             Get #f, , GrhData(Grh).FileNum
  69.             If GrhData(Grh).FileNum <= 0 Then GoTo ErrorHandler
  70.  
  71.             Get #f, , GrhData(Grh).sX
  72.             If GrhData(Grh).sX < 0 Then GoTo ErrorHandler
  73.            
  74.             Get #f, , GrhData(Grh).sY
  75.             If GrhData(Grh).sY < 0 Then GoTo ErrorHandler
  76.  
  77.             Get #f, , GrhData(Grh).pixelWidth
  78.             If GrhData(Grh).pixelWidth <= 0 Then GoTo ErrorHandler
  79.  
  80.             Get #f, , GrhData(Grh).pixelHeight
  81.             If GrhData(Grh).pixelHeight <= 0 Then GoTo ErrorHandler
  82.  
  83.             'Compute width and height
  84.             GrhData(Grh).TileWidth = GrhData(Grh).pixelWidth / 32
  85.             GrhData(Grh).TileHeight = GrhData(Grh).pixelHeight / 32
  86.            
  87.             GrhData(Grh).Frames(1) = Grh
  88.         End If
  89.         'Get Next Grh Number
  90.         Get #f, , Grh
  91.     Loop
  92.    
  93. Close #f
  94. Exit Sub
  95.  
  96. ErrorHandler:
  97.     Close #1
  98.     MsgBox "Error al cargar el recurso de índice de gráficos: " & Err.Description & " (" & Grh & ")", vbCritical, "Error al cargar"
  99.     prgRun = False
  100.  
  101. End Sub


Y lo remplazan por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function LoadGrhData() As Boolean
  2. On Error GoTo ErrorHandler
  3.     Dim Grh As Long
  4.     Dim Frame As Long
  5.     Dim grhCount As Long
  6.     Dim handle As Integer
  7.     Dim fileVersion As Long
  8.    
  9.     'Open files
  10.     handle = FreeFile()
  11.     Open App.Path & "\INIT\Graficos.ind" For Binary Access Read As handle
  12.     Seek #1, 1
  13.    
  14.     'Get file version
  15.     Get handle, , fileVersion
  16.    
  17.     'Get number of grhs
  18.     Get handle, , grhCount
  19.    
  20.     'Resize arrays
  21.     ReDim GrhData(1 To grhCount) As GrhData
  22.    
  23.     While Not EOF(handle)
  24.         Get handle, , Grh
  25.        
  26.         With GrhData(Grh)
  27.             'Get number of frames
  28.             Get handle, , .NumFrames
  29.             If .NumFrames <= 0 Then GoTo ErrorHandler
  30.            
  31.             ReDim .Frames(1 To GrhData(Grh).NumFrames)
  32.            
  33.             If .NumFrames > 1 Then
  34.                 'Read a animation GRH set
  35.                 For Frame = 1 To .NumFrames
  36.                     Get handle, , .Frames(Frame)
  37.                     If .Frames(Frame) <= 0 Or .Frames(Frame) > grhCount Then
  38.                         GoTo ErrorHandler
  39.                     End If
  40.                 Next Frame
  41.                
  42.                 Get handle, , .speed
  43.                
  44.                 If .speed <= 0 Then GoTo ErrorHandler
  45.                
  46.                 'Compute width and height
  47.                 .pixelHeight = GrhData(.Frames(1)).pixelHeight
  48.                 If .pixelHeight <= 0 Then GoTo ErrorHandler
  49.                
  50.                 .pixelWidth = GrhData(.Frames(1)).pixelWidth
  51.                 If .pixelWidth <= 0 Then GoTo ErrorHandler
  52.                
  53.                 .TileWidth = GrhData(.Frames(1)).TileWidth
  54.                 If .TileWidth <= 0 Then GoTo ErrorHandler
  55.                
  56.                 .TileHeight = GrhData(.Frames(1)).TileHeight
  57.                 If .TileHeight <= 0 Then GoTo ErrorHandler
  58.             Else
  59.                 'Read in normal GRH data
  60.                 Get handle, , .FileNum
  61.                 If .FileNum <= 0 Then GoTo ErrorHandler
  62.                
  63.                 Get handle, , GrhData(Grh).sX
  64.                 If .sX < 0 Then GoTo ErrorHandler
  65.                
  66.                 Get handle, , .sY
  67.                 If .sY < 0 Then GoTo ErrorHandler
  68.                
  69.                 Get handle, , .pixelWidth
  70.                 If .pixelWidth <= 0 Then GoTo ErrorHandler
  71.                
  72.                 Get handle, , .pixelHeight
  73.                 If .pixelHeight <= 0 Then GoTo ErrorHandler
  74.                
  75.                 'Compute width and height
  76.                 .TileWidth = .pixelWidth / 32
  77.                 .TileHeight = .pixelHeight / 32
  78.                
  79.                 .Frames(1) = Grh
  80.             End If
  81.         End With
  82.     Wend
  83.    
  84.     Close handle
  85.    
  86.     LoadGrhData = True
  87. Exit Function
  88.  
  89. ErrorHandler:
  90.     LoadGrhData = False
  91. End Function


Y despues remplazen el Type GrhData por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Type GrhData
  2.     sX As Integer
  3.     sY As Integer
  4.    
  5.     FileNum As Long
  6.    
  7.     pixelWidth As Integer
  8.     pixelHeight As Integer
  9.    
  10.     TileWidth As Single
  11.     TileHeight As Single
  12.    
  13.     NumFrames As Integer
  14.     Frames() As Long
  15.    
  16.     speed As Single
  17. End Type


Saludos ^^

Imagen
Imagen
Samke
Staff Zeiked-Games
641
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3414
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)
Arriba

Nota » 21 Oct 2011 18:39

Van Dyke escribió:
Lord Fers escribió:
Van Dyke escribió:
Y que tiene de difícil? le cambias el loadgrhdata por el de IAO y ahí tenes un editor de partículas.

En si, no me preocupa la carga del IAO, nada más lo aporté por el sistema de radio en partículas ore... Algo que pensé que ya se habían avivado y ya lo debían haber aportado no lo aportaron.

Además yo nunca dije que fuera difícil ni dije que lo haya echo ahora. Esto lo tengo hace mucho más de 1 año... Las cosas que vos aportaste también son pavadas y no lo ando diciendo. No me preocupo por un aporte de AO codeado en vb6...

Mudate de lenguaje y después me hablas.


Adiós.


No empecemos a pelear bad boy.

Lo dije por las personas que te lo pedían... Que tiene de difícil? por que no lo hacen ellos?

Jajajaja xD!

"bad boy" LOL!... jaja :P. Perdoná brian, pensé que lo decías por mi :_


•Parra escribió:
Dunkan escribió:
•Parra escribió:Lástima que sea ORE? Ya me gustaria verte haciendo un software la mitad de bueno que ese.


Hacía referencia al sistema de partículas que personalmente no me gusta. Y hablando del sistema de partículas sí, puedo hacer uno mejor.

No me refiero al sistema de particulas sino al software completo, igualmente, me gustaria ver como te las ingenias para hacer uno mejor.


Cierto jaja, oye parra, por casualidad no tienes el Ore completo con las librerías y todo?

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
356
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4546
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 21 Oct 2011 20:40

Si.. si que lo tengo, y la versión 1.0 (que no fue publicada), con el codigo completo =P

Que prefieres?

•Parra
Vicinity of obscenity
525
Legendario Inmortal [2]
Registrado: 5 Años de membresía!
Ubicación: España
Mensajes: 5579
Aportes: 50
Premios: 3
Mister Programador FreeForAll (3)
Arriba

Nota » 21 Oct 2011 21:08

•Parra escribió:Si.. si que lo tengo, y la versión 1.0 (que no fue publicada), con el codigo completo =P

Que prefieres?

Joder!, tienes eso? :|...

Funciona bien? dios mío. Se me para el palo de abajo...


Me lo tenes que dar por dios...

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
356
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4546
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 21 Oct 2011 21:26

Si si que funciona, solo hay que adaptar un par de funciones del modulo general creo.

•Parra
Vicinity of obscenity
525
Legendario Inmortal [2]
Registrado: 5 Años de membresía!
Ubicación: España
Mensajes: 5579
Aportes: 50
Premios: 3
Mister Programador FreeForAll (3)
Arriba

Nota » 21 Oct 2011 21:30

•Parra escribió:Si.. si que lo tengo, y la versión 1.0 (que no fue publicada), con el codigo completo =P

Que prefieres?

che parra, la 1.0 usa los resources q dejaste?

por q tengo el code por ahi, pero el completo :P
Última edición por GoDKeR el 21 Oct 2011 21:31, editado 1 vez en total



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
686
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 21 Oct 2011 21:34

GoDKeR escribió:
•Parra escribió:Si.. si que lo tengo, y la versión 1.0 (que no fue publicada), con el codigo completo =P

Que prefieres?

che parra, la 1.0 usa los resources q dejaste?

por q tengo el code por ahi, pero el completo :P

Me parece que si, solo cambia una parte del codigo, que está mejorada.

•Parra
Vicinity of obscenity
525
Legendario Inmortal [2]
Registrado: 5 Años de membresía!
Ubicación: España
Mensajes: 5579
Aportes: 50
Premios: 3
Mister Programador FreeForAll (3)
Arriba
#NotaEste post ha sido eliminado por Cyrus en 22 Oct 2011 09:47.
Razón: La respuesta era un Offtopic, sin relación con la tematica.
Arriba
Anterior

Volver a AO 0.12.x

¿Quién está conectado?

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