Cliente:
Buscamos:
- Public Function General_Char_Particle_Create(ByVal ParticulaInd As Long, ByVal char_index As Integer, Optional ByVal particle_life As Long = 0) As Long
- Dim rgb_list(0 To 3) As Long
- rgb_list(0) = RGB(StreamData(ParticulaInd).colortint(0).r, StreamData(ParticulaInd).colortint(0).g, StreamData(ParticulaInd).colortint(0).b)
- rgb_list(1) = RGB(StreamData(ParticulaInd).colortint(1).r, StreamData(ParticulaInd).colortint(1).g, StreamData(ParticulaInd).colortint(1).b)
- rgb_list(2) = RGB(StreamData(ParticulaInd).colortint(2).r, StreamData(ParticulaInd).colortint(2).g, StreamData(ParticulaInd).colortint(2).b)
- rgb_list(3) = RGB(StreamData(ParticulaInd).colortint(3).r, StreamData(ParticulaInd).colortint(3).g, StreamData(ParticulaInd).colortint(3).b)
- General_Char_Particle_Create = engine.Char_Particle_Group_Create(char_index, StreamData(ParticulaInd).grh_list, rgb_list(), StreamData(ParticulaInd).NumOfParticles, ParticulaInd, _
- 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, _
- StreamData(ParticulaInd).vecx1, StreamData(ParticulaInd).vecx2, StreamData(ParticulaInd).vecy1, StreamData(ParticulaInd).vecy2, _
- StreamData(ParticulaInd).life1, StreamData(ParticulaInd).life2, StreamData(ParticulaInd).friction, StreamData(ParticulaInd).spin_speedL, _
- StreamData(ParticulaInd).gravity, StreamData(ParticulaInd).grav_strength, StreamData(ParticulaInd).bounce_strength, StreamData(ParticulaInd).x2, _
- StreamData(ParticulaInd).y2, StreamData(ParticulaInd).XMove, StreamData(ParticulaInd).move_x1, StreamData(ParticulaInd).move_x2, StreamData(ParticulaInd).move_y1, _
- StreamData(ParticulaInd).move_y2, StreamData(ParticulaInd).YMove, StreamData(ParticulaInd).spin_speedH, StreamData(ParticulaInd).spin, _
- StreamData(ParticulaInd).grh_resize, StreamData(ParticulaInd).grh_resizex, StreamData(ParticulaInd).grh_resizey)
- End Function
Puede ser que lo tengan distinto, pero el sub es el mismo, bueno y al final de donde termina la function termina con un ")", atras del parentesis agregamos:
- , StreamData(ParticulaInd).Radio
Buscamos:
- Public Function Char_Particle_Group_Create(ByVal char_index As Integer, ByRef grh_index_list() As Long, ByRef rgb_list() As Long, _
- Optional ByVal particle_count As Long = 20, Optional ByVal stream_type As Long = 1, _
- Optional ByVal alpha_blend As Boolean, Optional ByVal alive_counter As Long = -1, _
- Optional ByVal frame_speed As Single = 0.5, Optional ByVal id As Long, _
- Optional ByVal x1 As Integer, Optional ByVal y1 As Integer, Optional ByVal angle As Integer, _
- Optional ByVal vecx1 As Integer, Optional ByVal vecx2 As Integer, _
- Optional ByVal vecy1 As Integer, Optional ByVal vecy2 As Integer, _
- Optional ByVal life1 As Integer, Optional ByVal life2 As Integer, _
- Optional ByVal fric As Integer, Optional ByVal spin_speedL As Single, _
- Optional ByVal gravity As Boolean, Optional grav_strength As Long, _
- Optional bounce_strength As Long, Optional ByVal x2 As Integer, Optional ByVal y2 As Integer, _
- Optional ByVal XMove As Boolean, Optional ByVal move_x1 As Integer, Optional ByVal move_x2 As Integer, _
- Optional ByVal move_y1 As Integer, Optional ByVal move_y2 As Integer, Optional ByVal YMove As Boolean, _
- Optional ByVal spin_speedH As Single, Optional ByVal spin As Boolean, Optional grh_resize As Boolean, _
- Optional grh_resizex As Integer, Optional grh_resizey As Integer)
Donde termina con el ")" atras agregamos:
- , Optional ByVal Radio As Integer
Abajo en ese mismo sub dice:
- Char_Particle_Group_Make Char_Particle_Group_Create, char_index,
La linea sigue, donde termina la linea agregamos:
Buscamos:
- Private Sub Char_Particle_Group_Make(ByVal particle_group_index As Long, ByVal char_index As Integer, ByVal particle_char_index As Integer, _
- ByVal particle_count As Long, ByVal stream_type As Long, ByRef grh_index_list() As Long, ByRef rgb_list() As Long, _
- Optional ByVal alpha_blend As Boolean, Optional ByVal alive_counter As Long = -1, _
- Optional ByVal frame_speed As Single = 0.5, Optional ByVal id As Long, _
- Optional ByVal x1 As Integer, Optional ByVal y1 As Integer, Optional ByVal angle As Integer, _
- Optional ByVal vecx1 As Integer, Optional ByVal vecx2 As Integer, _
- Optional ByVal vecy1 As Integer, Optional ByVal vecy2 As Integer, _
- Optional ByVal life1 As Integer, Optional ByVal life2 As Integer, _
- Optional ByVal fric As Integer, Optional ByVal spin_speedL As Single, _
- Optional ByVal gravity As Boolean, Optional grav_strength As Long, _
- Optional bounce_strength As Long, Optional ByVal x2 As Integer, Optional ByVal y2 As Integer, _
- Optional ByVal XMove As Boolean, Optional ByVal move_x1 As Integer, Optional ByVal move_x2 As Integer, _
- Optional ByVal move_y1 As Integer, Optional ByVal move_y2 As Integer, Optional ByVal YMove As Boolean, _
- Optional ByVal spin_speedH As Single, Optional ByVal spin As Boolean, Optional grh_resize As Boolean, _
- Optional grh_resizex As Integer, Optional grh_resizey As Integer)
Donde termina con el ")" atras agregamos:
- , Optional Radio As Integer
Y en ese mismo sub mas abajo dice:
- 'Grh list
- ReDim particle_group_list(particle_group_index).grh_index_list(1 To UBound(grh_index_list))
- particle_group_list(particle_group_index).grh_index_list() = grh_index_list()
- particle_group_list(particle_group_index).grh_index_count = UBound(grh_index_list)
Arriba agregamos:
- particle_group_list(particle_group_index).Radio = Radio
Muestra:

Saludos







641![Dragon Ancestral [3] Dragon Ancestral [3]](./images/ranks/Rango32.gif)


![Dragon Ancestral [6] Dragon Ancestral [6]](./images/ranks/Rango35.gif)

![Dragon Ancestral [4] Dragon Ancestral [4]](./images/ranks/Rango33.gif)





![Oraculo [2] Oraculo [2]](./images/ranks/Rango26.gif)

![Oraculo [5] Oraculo [5]](./images/ranks/Rango29.gif)



![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)
