Paste1

Private Sub Effect_SpinAttack_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
Dim a As Single
Dim X As Single
Dim Y As Single
Dim SpeedMod As Single
SpeedMod = Rnd / 4

    'Get the positions
    'a = Rnd * 360 * DegreeToRadian
    a = 360 * DegreeToRadian * Index / Effect(EffectIndex).ParticleCount
    X = Effect(EffectIndex).X - (Sin(a) * Effect(EffectIndex).Modifier)
    Y = Effect(EffectIndex).Y + (Cos(a) * Effect(EffectIndex).Modifier)
    

    'Reset the particle
    Effect(EffectIndex).Particles(Index).ResetIt X, Y, (SpeedMod + 0.5) * -Sin(a + 110 * DegreeToRadian) * 15, (SpeedMod + 0.5) * Cos(a + 110 * DegreeToRadian) * 15, 0, 0
    Effect(EffectIndex).Particles(Index).ResetColor 1, 1, 0.2, 0.8, 0.15 '+ (Rnd * 0.1)

End Sub