GS-Zone
Facebook Twitter

AYUDA! ORE! 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 » 13 Jul 2009 23:04


Arandhel escribió:Soy nahue amigo de gonza.. che bldo te confundiste subiste todo el server!!! con codigos y todo bldo.. !!

OWNED
SPOILER
KaiKo
Xendrock Online
36
Destructor de Mentes [7]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 822
Aportes: 8
Arriba

Nota » 13 Jul 2009 23:09

Fijate que con el post que hice de meditar con partículas también lo podés usar para crear partículas más facilmente, desde un .ini.

La llamada con mi código se haría así:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call General_Particle_Create(Num de la particula, PosX, PosY)

Imagen
Gus.Canaria
Usuario Registrado
Aprendiz [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 204
Aportes: 4
Arriba

Nota » 13 Jul 2009 23:15

Gus.Canaria escribió:Fijate que con el post que hice de meditar con partículas también lo podés usar para crear partículas más facilmente, desde un .ini.

La llamada con mi código se haría así:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call General_Particle_Create(Num de la particula, PosX, PosY)


Ahi me fijo

otra cosita...


Si quiero que la particula este en un mapa especifico como hago :P?


GRACIAS!

Arandhel escribió:Soy nahue amigo de gonza.. che bldo te confundiste subiste todo el server!!! con codigos y todo bldo.. !!

OWNED
SPOILER
KaiKo
Xendrock Online
36
Destructor de Mentes [7]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 822
Aportes: 8
Arriba

Nota » 13 Jul 2009 23:18

Buscás:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. CurMap = map


Y abajo ponés

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If map = 1 Then
  2. Call General_Particle_create(...)
  3. End If

Imagen
Gus.Canaria
Usuario Registrado
Aprendiz [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 204
Aportes: 4
Arriba

Nota » 14 Jul 2009 10:05

Gus.Canaria escribió:Buscás:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. CurMap = map


Y abajo ponés

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If map = 1 Then
  2. Call General_Particle_create(...)
  3. End If



Ahora que implemente lo de cargar particulas desde un .ini, me tira error en este sub
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub CargarParticulas()
  2. Dim StreamFile As String
  3. Dim loopc As Long
  4. Dim i As Long
  5. Dim GrhListing As String
  6. Dim TempSet As String
  7. Dim ColorSet As Long
  8.    
  9. StreamFile = App.path & "\INIT\Particles.ini"
  10. TotalStreams = Val(General_Var_Get(StreamFile, "INIT", "Total"))
  11.  
  12. 'resize StreamData array
  13. ReDim StreamData(1 To TotalStreams) As Stream
  14.  
  15.     'fill StreamData array with info from Particles.ini
  16.     For loopc = 1 To TotalStreams
  17.         StreamData(loopc).Name = General_Var_Get(StreamFile, Val(loopc), "Name")
  18.         StreamData(loopc).NumOfParticles = General_Var_Get(StreamFile, Val(loopc), "NumOfParticles")
  19.         StreamData(loopc).X1 = General_Var_Get(StreamFile, Val(loopc), "X1")
  20.         StreamData(loopc).Y1 = General_Var_Get(StreamFile, Val(loopc), "Y1")
  21.         StreamData(loopc).X2 = General_Var_Get(StreamFile, Val(loopc), "X2")
  22.         StreamData(loopc).Y2 = General_Var_Get(StreamFile, Val(loopc), "Y2")
  23.         StreamData(loopc).angle = General_Var_Get(StreamFile, Val(loopc), "Angle")
  24.         StreamData(loopc).vecx1 = General_Var_Get(StreamFile, Val(loopc), "VecX1")
  25.         StreamData(loopc).vecx2 = General_Var_Get(StreamFile, Val(loopc), "VecX2")
  26.         StreamData(loopc).vecy1 = General_Var_Get(StreamFile, Val(loopc), "VecY1")
  27.         StreamData(loopc).vecy2 = General_Var_Get(StreamFile, Val(loopc), "VecY2")
  28.         StreamData(loopc).life1 = General_Var_Get(StreamFile, Val(loopc), "Life1")
  29.         StreamData(loopc).life2 = General_Var_Get(StreamFile, Val(loopc), "Life2")
  30.         StreamData(loopc).friction = General_Var_Get(StreamFile, Val(loopc), "Friction")
  31.         StreamData(loopc).spin = General_Var_Get(StreamFile, Val(loopc), "Spin")
  32.         StreamData(loopc).spin_speedL = General_Var_Get(StreamFile, Val(loopc), "Spin_SpeedL")
  33.         StreamData(loopc).spin_speedH = General_Var_Get(StreamFile, Val(loopc), "Spin_SpeedH")
  34.         StreamData(loopc).AlphaBlend = General_Var_Get(StreamFile, Val(loopc), "AlphaBlend")
  35.         StreamData(loopc).gravity = General_Var_Get(StreamFile, Val(loopc), "Gravity")
  36.         StreamData(loopc).grav_strength = General_Var_Get(StreamFile, Val(loopc), "Grav_Strength")
  37.         StreamData(loopc).bounce_strength = General_Var_Get(StreamFile, Val(loopc), "Bounce_Strength")
  38.         StreamData(loopc).XMove = General_Var_Get(StreamFile, Val(loopc), "XMove")
  39.         StreamData(loopc).YMove = General_Var_Get(StreamFile, Val(loopc), "YMove")
  40.         StreamData(loopc).move_x1 = General_Var_Get(StreamFile, Val(loopc), "move_x1")
  41.         StreamData(loopc).move_x2 = General_Var_Get(StreamFile, Val(loopc), "move_x2")
  42.         StreamData(loopc).move_y1 = General_Var_Get(StreamFile, Val(loopc), "move_y1")
  43.         StreamData(loopc).move_y2 = General_Var_Get(StreamFile, Val(loopc), "move_y2")
  44.         StreamData(loopc).life_counter = General_Var_Get(StreamFile, Val(loopc), "life_counter")
  45.         StreamData(loopc).speed = Val(General_Var_Get(StreamFile, Val(loopc), "Speed"))
  46.         StreamData(loopc).grh_resize = Val(General_Var_Get(StreamFile, Val(loopc), "resize"))
  47.         StreamData(loopc).grh_resizex = Val(General_Var_Get(StreamFile, Val(loopc), "rx"))
  48.         StreamData(loopc).grh_resizey = Val(General_Var_Get(StreamFile, Val(loopc), "ry"))
  49.         StreamData(loopc).NumGrhs = General_Var_Get(StreamFile, Val(loopc), "NumGrhs")
  50.        
  51.         ReDim StreamData(loopc).grh_list(1 To StreamData(loopc).NumGrhs)
  52.         GrhListing = General_Var_Get(StreamFile, Val(loopc), "Grh_List")
  53.        
  54.         For i = 1 To StreamData(loopc).NumGrhs
  55.             StreamData(loopc).grh_list(i) = General_Field_Read(str(i), GrhListing, 44)
  56.         Next i
  57.         StreamData(loopc).grh_list(i - 1) = StreamData(loopc).grh_list(i - 1)
  58.         For ColorSet = 1 To 4
  59.             TempSet = General_Var_Get(StreamFile, Val(loopc), "ColorSet" & ColorSet)
  60.             StreamData(loopc).colortint(ColorSet - 1).r = General_Field_Read(1, TempSet, 44)
  61.             StreamData(loopc).colortint(ColorSet - 1).g = General_Field_Read(2, TempSet, 44)
  62.             StreamData(loopc).colortint(ColorSet - 1).b = General_Field_Read(3, TempSet, 44)
  63.         Next ColorSet
  64.     Next loopc
  65.  
  66. End Sub
  67.  



De está parte

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

Arandhel escribió:Soy nahue amigo de gonza.. che bldo te confundiste subiste todo el server!!! con codigos y todo bldo.. !!

OWNED
SPOILER
KaiKo
Xendrock Online
36
Destructor de Mentes [7]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 822
Aportes: 8
Arriba

Nota » 14 Jul 2009 10:34

Yo tambien tengo ese error, tmb con resizex y resizey
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 » 14 Jul 2009 12:04


Imagen
Gus.Canaria
Usuario Registrado
Aprendiz [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 204
Aportes: 4
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