GS-Zone
Facebook Twitter

General_Paritcle_Create y CargarParticulas Fix 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

3

Nota » 12 Sep 2011 21:11

bueno les dejos estos subs arreglados que generalmente tiran error al querer implementar ORE a los servidores

Cargarparticulas(arreglado bug de los colorinit)

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub CargarParticulas()
  2. '*************************************
  3. 'Coded by OneZero (onezero_ss@hotmail.com)
  4. 'Last Modified: 6/4/03
  5. 'Loads the Particles.ini file to the ComboBox
  6. 'Edited by Juan Martín Sotuyo Dodero to add speed and life
  7. '*************************************
  8.     Dim loopc As Long
  9.     Dim i As Long
  10.     Dim GrhListing As String
  11.     Dim TempSet As String
  12.     Dim ColorSet As Long
  13.  
  14.     Dim StreamFile As String
  15.     StreamFile = App.Path & "\init\" & "Particles.ini"
  16.  
  17.     TotalStreams = Val(General_Var_Get(StreamFile, "INIT", "Total"))
  18.    
  19.     'resize StreamData array
  20.     ReDim StreamData(1 To TotalStreams) As Stream
  21.    
  22.     'fill StreamData array with info from Particles.ini
  23.     For loopc = 1 To TotalStreams
  24.         StreamData(loopc).Name = General_Var_Get(StreamFile, Val(loopc), "Name")
  25.         StreamData(loopc).NumOfParticles = General_Var_Get(StreamFile, Val(loopc), "NumOfParticles")
  26.         StreamData(loopc).x1 = General_Var_Get(StreamFile, Val(loopc), "X1")
  27.         StreamData(loopc).y1 = General_Var_Get(StreamFile, Val(loopc), "Y1")
  28.         StreamData(loopc).x2 = General_Var_Get(StreamFile, Val(loopc), "X2")
  29.         StreamData(loopc).y2 = General_Var_Get(StreamFile, Val(loopc), "Y2")
  30.         StreamData(loopc).angle = General_Var_Get(StreamFile, Val(loopc), "Angle")
  31.         StreamData(loopc).vecx1 = General_Var_Get(StreamFile, Val(loopc), "VecX1")
  32.         StreamData(loopc).vecx2 = General_Var_Get(StreamFile, Val(loopc), "VecX2")
  33.         StreamData(loopc).vecy1 = General_Var_Get(StreamFile, Val(loopc), "VecY1")
  34.         StreamData(loopc).vecy2 = General_Var_Get(StreamFile, Val(loopc), "VecY2")
  35.         StreamData(loopc).life1 = General_Var_Get(StreamFile, Val(loopc), "Life1")
  36.         StreamData(loopc).life2 = General_Var_Get(StreamFile, Val(loopc), "Life2")
  37.         StreamData(loopc).friction = General_Var_Get(StreamFile, Val(loopc), "Friction")
  38.         StreamData(loopc).spin = General_Var_Get(StreamFile, Val(loopc), "Spin")
  39.         StreamData(loopc).spin_speedL = General_Var_Get(StreamFile, Val(loopc), "Spin_SpeedL")
  40.         StreamData(loopc).spin_speedH = General_Var_Get(StreamFile, Val(loopc), "Spin_SpeedH")
  41.         StreamData(loopc).AlphaBlend = General_Var_Get(StreamFile, Val(loopc), "AlphaBlend")
  42.         StreamData(loopc).gravity = General_Var_Get(StreamFile, Val(loopc), "Gravity")
  43.         StreamData(loopc).grav_strength = General_Var_Get(StreamFile, Val(loopc), "Grav_Strength")
  44.         StreamData(loopc).bounce_strength = General_Var_Get(StreamFile, Val(loopc), "Bounce_Strength")
  45.         StreamData(loopc).XMove = General_Var_Get(StreamFile, Val(loopc), "XMove")
  46.         StreamData(loopc).YMove = General_Var_Get(StreamFile, Val(loopc), "YMove")
  47.         StreamData(loopc).move_x1 = General_Var_Get(StreamFile, Val(loopc), "move_x1")
  48.         StreamData(loopc).move_x2 = General_Var_Get(StreamFile, Val(loopc), "move_x2")
  49.         StreamData(loopc).move_y1 = General_Var_Get(StreamFile, Val(loopc), "move_y1")
  50.         StreamData(loopc).move_y2 = General_Var_Get(StreamFile, Val(loopc), "move_y2")
  51.         StreamData(loopc).life_counter = General_Var_Get(StreamFile, Val(loopc), "life_counter")
  52.         StreamData(loopc).speed = Val(General_Var_Get(StreamFile, Val(loopc), "Speed"))
  53.        
  54.         StreamData(loopc).NumGrhs = General_Var_Get(StreamFile, Val(loopc), "NumGrhs")
  55.        
  56.         ReDim StreamData(loopc).grh_list(1 To StreamData(loopc).NumGrhs)
  57.         GrhListing = General_Var_Get(StreamFile, Val(loopc), "Grh_List")
  58.        
  59.         For i = 1 To StreamData(loopc).NumGrhs
  60.             StreamData(loopc).grh_list(i) = General_Field_Read(str(i), GrhListing, ",")
  61.         Next i
  62.         StreamData(loopc).grh_list(i - 1) = StreamData(loopc).grh_list(i - 1)
  63.         For ColorSet = 1 To 4
  64.             TempSet = General_Var_Get(StreamFile, Val(loopc), "ColorSet" & ColorSet)
  65.             StreamData(loopc).colortint(ColorSet - 1).r = General_Field_Read(1, TempSet, "44")
  66.             StreamData(loopc).colortint(ColorSet - 1).g = General_Field_Read(2, TempSet, "44")
  67.             StreamData(loopc).colortint(ColorSet - 1).b = General_Field_Read(3, TempSet, "44")
  68.         Next ColorSet
  69.        
  70.     Next loopc
  71. End Sub


General_Particle_Create( usa el grh que esta en el Particles.ini y no uno fijo)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub General_Particle_Create(ByVal ParticulaInd As Long, ByVal X As Integer, ByVal Y As Integer, Optional ByVal particle_life As Long = 0)
  2.  
  3. Dim rgb_list(0 To 3) As Long
  4. rgb_list(0) = RGB(StreamData(ParticulaInd).colortint(0).r, _
  5.             StreamData(ParticulaInd).colortint(0).g, _
  6.             StreamData(ParticulaInd).colortint(0).b)
  7. rgb_list(1) = RGB(StreamData(ParticulaInd).colortint(1).r, _
  8.             StreamData(ParticulaInd).colortint(1).g, _
  9.             StreamData(ParticulaInd).colortint(1).b)
  10. rgb_list(2) = RGB(StreamData(ParticulaInd).colortint(2).r, _
  11.             StreamData(ParticulaInd).colortint(2).g, _
  12.             StreamData(ParticulaInd).colortint(2).b)
  13. rgb_list(3) = RGB(StreamData(ParticulaInd).colortint(3).r, _
  14.             StreamData(ParticulaInd).colortint(3).g, _
  15.             StreamData(ParticulaInd).colortint(3).b)
  16.  
  17. Call engine.Particle_Group_Create(X, Y, StreamData(ParticulaInd).grh_list, rgb_list(), StreamData(ParticulaInd).NumOfParticles, ParticulaInd, _
  18.     StreamData(ParticulaInd).AlphaBlend, IIf(particle_life = 0, StreamData(ParticulaInd).life_counter, particle_life), StreamData(ParticulaInd).speed, , StreamData(ParticulaInd).x1, StreamData(ParticulaInd).y1, StreamData(ParticulaInd).angle, _
  19.     StreamData(ParticulaInd).vecx1, StreamData(ParticulaInd).vecx2, StreamData(ParticulaInd).vecy1, StreamData(ParticulaInd).vecy2, _
  20.     StreamData(ParticulaInd).life1, StreamData(ParticulaInd).life2, StreamData(ParticulaInd).friction, StreamData(ParticulaInd).spin_speedL, _
  21.     StreamData(ParticulaInd).gravity, StreamData(ParticulaInd).grav_strength, StreamData(ParticulaInd).bounce_strength, StreamData(ParticulaInd).x2, _
  22.     StreamData(ParticulaInd).y2, StreamData(ParticulaInd).XMove, StreamData(ParticulaInd).move_x1, StreamData(ParticulaInd).move_x2, StreamData(ParticulaInd).move_y1, _
  23.     StreamData(ParticulaInd).move_y2, StreamData(ParticulaInd).YMove, StreamData(ParticulaInd).spin_speedH, StreamData(ParticulaInd).spin)
  24.  
  25. End Sub
  26.  


algunos clientes con ore ya los traen fixeados (creo), pero a mi me daba paj*a fijarme, asi q los arregle yo ^^

Edit: me olvide, ahi cambie el carparticulas, tenia distinto la forma en q cargaba los datos :P



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 » 12 Sep 2011 21:20

Buen aporte, Aun que a mi no me tiro errores :S

Saludos

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 » 13 Sep 2011 12:54

por eso, no en todos los cliente tiraba errores, solo tira error el cargar



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

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