Al compilar Argus

» 01 Oct 2011 14:40

¡Buenas Tardes!

Alguien me puede ayudar a poder revolver el siguiente problema en Argus AO (12.1 Dx8)

El problema es el siguiente:

Al compilar cliente me salta el siguiente error:

"Wrong number of arguments or invalid propety assignment"

y me marca la siguiente linea:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

.Particle_Group_Make

Y la linea completa seria asi:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

 Engine.Particle_Group_Make Particle_Count, 0, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0

Aca les dejo el Sub Particle_Group_Make:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Sub Particle_Group_Make( _
ByVal particle_group_index As Integer, _
ByVal map_z As Integer, _
ByVal map_x As Integer, _
ByVal map_y As Integer, _
ByVal var_z As Single, _
ByVal var_x As Single, _
ByVal var_y As Single, _
ByVal start_a As Integer, _
ByVal start_r As Integer, _
ByVal start_g As Integer, _
ByVal start_b As Integer, _
ByVal end_a As Integer, _
ByVal end_r As Integer, _
ByVal end_g As Integer, _
ByVal end_b As Integer, _
ByVal n_particles As Integer, _
ByVal Gravity As Single, _
ByVal Texture As Integer, _
ByVal Size As Single, _
ByVal Life As Integer)
 
    'If particle_group_index > particle_group_last Then
    '    particle_group_last = particle_group_index
   
    ReDim Preserve particle_group_list(0 To particle_group_index)
    With particle_group_list(particle_group_index)
        ReDim Preserve .PrtData(0 To n_particles)
        ReDim Preserve .PrtVertList(0 To n_particles)
        'Map pos
        Dim X As Integer
       
   
        map_x = map_x
        map_y = map_y
        .Z = map_z
        .Life = Life
        .Size = Size
        .Gravity = Gravity '-0.5
        'Sets alive counter
        .nParticles = n_particles
        .Texture = Texture
        Dim i As Integer
        .XVariation = var_x '0.5
        .YVariation = var_y '0.85
        .ZVariation = var_z '0.5
        Dim nowa As Long
        nowa = GetTickCount
        For i = 0 To .nParticles
            .PrtData(i).status = Alive
            .PrtData(i).lifeTime = 1000 + (Rnd * 500)
            .PrtData(i).created = nowa
            .PrtData(i).X = map_x + 1
            .PrtData(i).Y = map_y + 1
            '.PrtData(I).Z = map_z
            .PrtData(i).vX = (Rnd * var_x) - (var_x / 2)
            .PrtData(i).vY = (Rnd * var_y) - (var_y / 3)
            '.PrtData(I).vZ = (Rnd * var_z) - (var_z / 2)
            'Randomize
            .PrtData(i).StartColor = CreateColorVal(start_a, start_r, start_g, start_g)
            .PrtData(i).EndColor = CreateColorVal(end_a, end_r, end_g, end_b)
            .PrtData(i).CurrentColor = .PrtData(i).StartColor
            .PrtVertList(i).X = .PrtData(i).X
            .PrtVertList(i).rhw = 1
            .PrtVertList(i).Y = .PrtData(i).Y ', 0) '.PrtData(I).Z)
            .PrtVertList(i).color = D3DColorARGB(.PrtData(i).CurrentColor.a, .PrtData(i).CurrentColor.r, .PrtData(i).CurrentColor.g, .PrtData(i).CurrentColor.b)
        Next i
        MapData(map_x + 1, map_y + 1).particle_group = particle_group_index
    End With
   
    particle_group_count = particle_group_count + 1
End Sub