'/////////////////////////////Motor Grafico en DirectX 8///////////////////////////////
'////////////////////////Extraccion de varios motores por ShaFTeR//////////////////////
'///////////////////ORE - VBGORE - GSZAO - KKAO y algunos ejemplos de webs/////////////
'**************************************************************************************
Option Explicit

Public SangreTexture(1 To 4) As Direct3DTexture8

'Texture for particle effects - this is handled differently then the rest of the graphics

Public WeatherEffectIndex As Integer
Public OnRampage As Long
Public OnRampageImg As Long
Public OnRampageImgGrh As Integer
Public LastEffect As Integer

Private Type effect
    SizeP As Single
    Ray As Byte
    X As Single        'Location of effect
    Y As Single
    GoToX As Single        'Location to move to
    GoToY As Single
    KillWhenAtTarget As Boolean        'If the effect is at its target (GoToX/Y), then Progression is set to 0
    KillWhenTargetLost As Boolean        'Kill the effect if the target is lost (sets progression = 0)
    Gfx As Byte        'Particle texture used
    Used As Boolean        'If the effect is in use
    EffectNum As Byte        'What number of effect that is used
    Modifier As Integer        'Misc variable (depends on the effect)
    FloatSize As Long        'The size of the particles
    Direction As Integer        'Misc variable (depends on the effect)
    Particles() As Particle        'Information on each particle
    Progression As Single        'Progression state, best to design where 0 = effect ends
    Looping As Boolean
    PartVertex() As TYPE_VERTEX        'Used to point render particles
    PreviousFrame As Long        'Tick time of the last frame
    ParticleCount As Integer        'Number of particles total
    ParticlesLeft As Integer        'Number of particles left - only for non-repetitive effects
    BindToChar As Integer        'Setting this value will bind the effect to move towards the character
    BindSpeed As Single        'How fast the effect moves towards the character
    BoundToMap As Byte        'If the effect is bound to the map or not (used only by the map editor)
    TargetAA As Single
    R As Single
    g As Single
    b As Single
    a As Single
    EcuationCount As Byte
    Sng As Single        'Misc variable
    size As Byte
End Type

Public NumEffects As Byte        'Maximum number of effects at once
Public effect() As effect        'List of all the active effects

'Constants With The Order Number For Each Effect

Public Const EffectNum_Fire As Byte = 1        'Burn baby, burn! Flame from a central point that blows in a specified direction
Public Const EffectNum_Snow As Byte = 2        'Snow that covers the screen - weather effect
Public Const EffectNum_Heal As Byte = 3        'Healing effect that can bind to a character, ankhs float up and fade
Public Const EffectNum_Bless As Byte = 4        'Following three effects are same: create a circle around the central point
Public Const EffectNum_Protection As Byte = 5        ' (often the character) and makes the given particle on the perimeter
Public Const EffectNum_Strengthen As Byte = 6        ' which float up and fade out
Public Const EffectNum_Rain As Byte = 7        'Exact same as snow, but moves much faster and more alpha value - weather effect
Public Const EffectNum_EquationTemplate As Byte = 8        'Template for creating particle effects through equations - a page with some equations can be found here: http://www.vbgore.com/modules.php?name=Forums&file=viewtopic&t=221
Public Const EffectNum_Waterfall As Byte = 9        'Waterfall effect
Public Const EffectNum_Summon As Byte = 10        'Summon effect
Public Const EffectNum_Meditate As Byte = 11        'Medit effect
Public Const EffectNum_Portal As Byte = 12        'Portal effect
Public Const EffectNum_Atomic As Byte = 13        'Atomic Effect
Public Const EffectNum_Circle As Byte = 14        'Outlined Circle Effect
Public Const EffectNum_Raro As Byte = 15
Public Const EffectNum_Lissajous As Byte = 16
Public Const EffectNum_Apocalipsis As Byte = 17
Public Const EffectNum_Humo As Byte = 18
Public Const EffectNum_CherryBlossom As Byte = 19
Public Const EffectNum_BloodSpray As Byte = 20
Public Const EffectNum_BloodSplatter As Byte = 21
Public Const EffectNum_LevelUP As Byte = 22        'Level Up Effect
Public Const EffectNum_AnimatedSign As Byte = 23
Public Const EffectNum_Galaxy As Byte = 24
Public Const EffectNum_FancyThickCircle As Byte = 25
Public Const EffectNum_Flower As Byte = 26
Public Const EffectNum_Wormhole As Byte = 27
Public Const EffectNum_HouseTeleport As Byte = 28        'Teleport To House Effect
Public Const EffectNum_GuildTeleport As Byte = 29        'Teleport To Guild Meeting
Public Const EffectNum_Rayo As Byte = 30        'Tormenta de Fuego
Public Const EffectNum_LissajousMedit As Byte = 31
Public Const EffectNum_Inmovilizar As Byte = 32
Public Const EffectNum_ChangeClass As Byte = 33
Public Const EffectNum_Armada As Byte = 34        'Particula armada ultimo rango
Public Const EffectNum_ButterflyCurve As Byte = 35
Public Const EffectNum_Torment As Byte = 36
Public Const EffectNum_Green As Byte = 37        'Green Explosion
Public Const EffectNum_Curse As Byte = 38
Public Const EffectNum_Ray As Byte = 39        'Ray
Public Const EffectNum_Ice As Byte = 40        'Ice
Public Const EffectNum_Torch As Byte = 41        'Torch
Public Const EffectNum_RedFountain As Byte = 42
Public Const EffectNum_Implode As Byte = 43
Public Const EffectNum_Misile As Byte = 44
Public Const EffectNum_Holy As Byte = 45
Public Const EffectNum_SmallTorch As Byte = 46
Public Const EffectNum_PortalGroso As Byte = 47
Public Const EffectNum_Nova As Byte = 48
Public Const EffectNum_Explode As Byte = 49        'Explosion
Public Const EffectNum_Atom As Byte = 50
Public Const EffectNum_Teleport As Byte = 51
Public Const EffectNum_Spell As Byte = 52
Public Const EffectNum_Necro As Byte = 53        'Green Ray
Public Const EffectNum_LissajousTrip As Byte = 54
'*************

Sub Engine_Init_ParticleEngine(Optional ByVal SkipToTextures As Boolean = False)
    '*****************************************************************
    'Loads all particles into memory - unlike normal textures, these stay in memory. This isn't
    'done for any reason in particular, they just use so little memory since they are so small
    'More info: http://www.vbgore.com/GameClient.TileEn ... icleEngine" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;
    '*****************************************************************
    Dim i As Byte

    If Not SkipToTextures Then

        'Set the particles texture
        NumEffects = 54
        ReDim effect(1 To NumEffects)

    End If

    For i = 1 To UBound(ParticleTexture())
        If ParticleTexture(i) Is Nothing Then Set ParticleTexture(i) = Nothing
        Set ParticleTexture(i) = DirectD3D8.CreateTextureFromFileEx(DirectDevice, App.path & "\Graficos\Grh\" & "p" & i & ".png", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_UNKNOWN, D3DPOOL_MANAGED, D3DX_FILTER_POINT, D3DX_FILTER_POINT, &HFF000000, ByVal 0, ByVal 0)
    Next i

    For i = 1 To 4
        If Not SangreTexture(i) Is Nothing Then Set SangreTexture(i) = Nothing
        Set SangreTexture(i) = DirectD3D8.CreateTextureFromFileEx(DirectDevice, App.path & "\Graficos\Grh\" & "2500" & i & ".png", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_UNKNOWN, D3DPOOL_MANAGED, D3DX_FILTER_NONE, D3DX_FILTER_NONE, &HFF000000, ByVal 0, ByVal 0)
    Next i

End Sub

Function Effect_EquationTemplate_Begin(ByVal X As Single, _
                                       ByVal Y As Single, _
                                       ByVal Gfx As Integer, _
                                       ByVal Particles As Integer, _
                                       Optional ByVal Progression As Single = 1) As Integer

    '*****************************************************************
    'Particle effect template for effects as described on the
    'wiki page: http://www.vbgore.com/Particle_effect_equations
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_EquationTemplate_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_EquationTemplate        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True
        Effect_EquationTemplate_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_EquationTemplate_Reset(ByVal EffectIndex As Integer, _
                                          ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset
    '*****************************************************************

    Dim X As Single
    Dim Y As Single
    Dim R As Single

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.1
    R = (Index / 20) * Exp(Index / effect(EffectIndex).Progression Mod 3)
    X = R * Cos(Index)
    Y = R * Sin(Index)
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 1, 1, 1, 0.2 + (Rnd * 0.2)
End Sub

Private Sub Effect_EquationTemplate_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_EquationTemplate_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Bless_Begin(ByVal X As Single, _
                            ByVal Y As Single, _
                            ByVal Gfx As Integer, _
                            ByVal Particles As Integer, _
                            Optional ByVal size As Byte = 30, _
                            Optional ByVal Time As Single = 10) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Bless_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Bless_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Bless        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Bless_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Bless_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Bless_Reset
    '*****************************************************************

    Dim a As Single
    Dim X As Single
    Dim Y As Single

    'Get the positions
    a = Rnd * 360 * DegreeToRadian
    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, 0, Rnd * -1, 0, -2
    effect(EffectIndex).Particles(Index).ResetColor 1, 1, 0.2, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
End Sub

Private Sub Effect_Bless_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Bless_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Bless_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Fire_Begin(ByVal X As Single, _
                           ByVal Y As Single, _
                           ByVal Gfx As Integer, _
                           ByVal Particles As Integer, _
                           Optional ByVal Direction As Integer = 180, _
                           Optional ByVal Progression As Single = 1) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Fire_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Fire        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(15)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Fire_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Fire_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Reset
    '*****************************************************************
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * 20, effect(EffectIndex).Y - 10 + Rnd * 20, -Sin((effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 8, Cos((effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 8, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 0.2, 0.2, 0.4 + (Rnd * 0.2), 0.03 + (Rnd * 0.07)
End Sub

Private Sub Effect_Fire_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Fire_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Private Function Effect_FToDW(ByVal F As Single) As Long

    '*****************************************************************
    'Converts a float to a D-Word, or in Visual Basic terms, a Single to a Long
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_FToDW
    '*****************************************************************

    Dim buf As D3DXBuffer

    'Converts a single into a long (Float to DWORD)
    Set buf = DirectD3D8.CreateBuffer(4)
    DirectD3D8.BufferSetData buf, 0, 4, 1, F
    DirectD3D8.BufferGetData buf, 0, 4, 1, Effect_FToDW
End Function

Function Effect_Heal_Begin(ByVal X As Single, _
                           ByVal Y As Single, _
                           ByVal Gfx As Integer, _
                           ByVal Particles As Integer, _
                           Optional ByVal Progression As Single = 1) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Heal_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Heal_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Heal        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'Loop the effect
    effect(EffectIndex).KillWhenAtTarget = True        'End the effect when it reaches the target (progression = 0)
    effect(EffectIndex).KillWhenTargetLost = True        'End the effect if the target is lost (progression = 0)
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(16)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Heal_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Heal_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Heal_Reset
    '*****************************************************************
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * 20, effect(EffectIndex).Y - 10 + Rnd * 20, -Sin((180 + (Rnd * 90) - 45) * 0.0174533) * 8 + (Rnd * 3), Cos((180 + (Rnd * 90) - 45) * 0.0174533) * 8 + (Rnd * 3), 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 0.8, 0.2, 0.2, 0.6 + (Rnd * 0.2), 0.01 + (Rnd * 0.5)
End Sub

Private Sub Effect_Heal_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Heal_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression <> 0 Then
                    'Reset the particle
                    Effect_Heal_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Sub Effect_Kill(Optional ByVal EffectIndex As Integer = 1, _
                Optional ByVal KillAll As Boolean = False)

    '*****************************************************************
    'Kills (stops) a single effect or all effects
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Kill
    '*****************************************************************

    Dim LoopC As Long

    'Check If To Kill All Effects

    If KillAll Then

        'Loop Through Every Effect

        For LoopC = 1 To NumEffects
            'Stop The Effect
            effect(LoopC).Used = False

        Next

    Else
        'Stop The Selected Effect
        effect(EffectIndex).Used = False
    End If

End Sub

Private Function Effect_NextOpenSlot() As Integer

    '*****************************************************************
    'Finds the next open effects index
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_NextOpenSlot
    '*****************************************************************

    Dim EffectIndex As Integer

    'Find The Next Open Effect Slot

    Do
        EffectIndex = EffectIndex + 1        'Check The Next Slot

        If EffectIndex > NumEffects Then        'Dont Go Over Maximum Amount
            Effect_NextOpenSlot = -1

            Exit Function

        End If

    Loop While effect(EffectIndex).Used = True        'Check Next If Effect Is In Use

    'Return the next open slot
    Effect_NextOpenSlot = EffectIndex
    'Clear the old information from the effect

    Erase effect(EffectIndex).Particles()
    Erase effect(EffectIndex).PartVertex()

    ZeroMemory effect(EffectIndex), LenB(effect(EffectIndex))
    effect(EffectIndex).GoToX = -30000
    effect(EffectIndex).GoToY = -30000

End Function

Function Effect_Protection_Begin(ByVal X As Single, _
                                 ByVal Y As Single, _
                                 ByVal Gfx As Integer, _
                                 ByVal Particles As Integer, _
                                 Optional ByVal size As Byte = 30, _
                                 Optional ByVal Time As Single = 10) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Protection_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Protection_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Protection        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Protection_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Protection_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Protection_Reset
    '*****************************************************************

    Dim a As Single
    Dim X As Single
    Dim Y As Single

    'Get the positions
    a = Rnd * 360 * DegreeToRadian
    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, 0, Rnd * -1, 0, -2
    effect(EffectIndex).Particles(Index).ResetColor 0.1, 0.1, 0.9, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
End Sub

Private Sub Effect_UpdateOffset(ByVal EffectIndex As Integer)
    '***************************************************
    'Update an effect's position if the screen has moved
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_UpdateOffset
    '***************************************************

    If UserCharIndex <> 0 Then
        If EffectIndex <> Charlist(UserCharIndex).ParticleIndex Then
            effect(EffectIndex).X = effect(EffectIndex).X + (LastOffsetX - ParticleOffsetX)
            effect(EffectIndex).Y = effect(EffectIndex).Y + (LastOffsetY - ParticleOffsetY)
        End If
    End If

End Sub

Private Sub Effect_UpdateBinding(ByVal EffectIndex As Integer)

    '***************************************************
    'Updates the binding of a particle effect to a target, if
    'the effect is bound to a character
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_UpdateBinding
    '***************************************************

    Dim TargetI As Integer
    Dim TargetA As Single
    Dim RetNum As Integer        'fao

    'Update position through character binding

    If effect(EffectIndex).BindToChar > 0 Then
        'Store the character index
        TargetI = effect(EffectIndex).BindToChar

        'Check for a valid binding index

        If TargetI > LastChar Then
            effect(EffectIndex).BindToChar = 0

            If effect(EffectIndex).KillWhenTargetLost Then
                effect(EffectIndex).Progression = 0

                Exit Sub

            End If

        ElseIf Charlist(TargetI).Active = 0 Then
            effect(EffectIndex).BindToChar = 0

            If effect(EffectIndex).KillWhenTargetLost Then
                effect(EffectIndex).Progression = 0

                Exit Sub

            End If

        Else
            'Calculate the X and Y positions
            effect(EffectIndex).GoToX = Engine_TPtoSPX(Charlist(effect(EffectIndex).BindToChar).Pos.X) + 10
            effect(EffectIndex).GoToY = Engine_TPtoSPY(Charlist(effect(EffectIndex).BindToChar).Pos.Y)
        End If
    End If

    'Move to the new position if needed

    If effect(EffectIndex).GoToX > -30000 Or effect(EffectIndex).GoToY > -30000 Then
        If effect(EffectIndex).GoToX <> effect(EffectIndex).X Or effect(EffectIndex).GoToY <> effect(EffectIndex).Y Then
            'Calculate the angle
            TargetA = Engine_GetAngle(effect(EffectIndex).X, effect(EffectIndex).Y, effect(EffectIndex).GoToX, effect(EffectIndex).GoToY) + 180
            'Update the position of the effect
            effect(EffectIndex).X = effect(EffectIndex).X - Sin(TargetA * DegreeToRadian) * effect(EffectIndex).BindSpeed        '* timerElapsedTime
            effect(EffectIndex).Y = effect(EffectIndex).Y + Cos(TargetA * DegreeToRadian) * effect(EffectIndex).BindSpeed        '* timerElapsedTime

            'Check if the effect is close enough to the target to just stick it at the target

            If effect(EffectIndex).GoToX > -30000 Then
                If Abs(effect(EffectIndex).X - effect(EffectIndex).GoToX) < 6 Then effect(EffectIndex).X = effect(EffectIndex).GoToX
            End If

            If effect(EffectIndex).GoToY > -30000 Then
                If Abs(effect(EffectIndex).Y - effect(EffectIndex).GoToY) < 6 Then effect(EffectIndex).Y = effect(EffectIndex).GoToY
            End If

            'Check if the position of the effect is equal to that of the target

            If effect(EffectIndex).X = effect(EffectIndex).GoToX Then
                If effect(EffectIndex).Y = effect(EffectIndex).GoToY Then

                    'For some effects, if the position is reached, we want to end the effect
                    If effect(EffectIndex).KillWhenAtTarget Then

                        'Explosion
                        If effect(EffectIndex).Progression <> 0 Then

                            If effect(EffectIndex).EffectNum = EffectNum_Rayo Then
                                RetNum = Effect_Inmovilizar_Begin(effect(EffectIndex).X - 16, effect(EffectIndex).Y - 16, 17, 100, , 5)
                            ElseIf effect(EffectIndex).EffectNum = EffectNum_Torch Then
                                RetNum = Effect_EquationTemplate_Begin(effect(EffectIndex).X, effect(EffectIndex).Y, 1, 200, 1)        'TORMENTA DE FUEGO
                            ElseIf effect(EffectIndex).EffectNum = EffectNum_Ray Then
                                RetNum = Effect_Ice_Begin(effect(EffectIndex).X, effect(EffectIndex).Y, 2, 150, 40)        'RAYO DE HIELO / DESCARGA ELECTRICA
                            ElseIf effect(EffectIndex).EffectNum = EffectNum_Necro Then
                                effect(EffectIndex).TargetAA = 0
                                RetNum = Effect_Green_Begin(effect(EffectIndex).X, effect(EffectIndex).Y, 2, 300, 40)        'APOCALIPSIS
                            ElseIf effect(EffectIndex).EffectNum = EffectNum_Curse Then
                                effect(EffectIndex).TargetAA = 0
                                RetNum = Effect_Lissajous_Begin(effect(EffectIndex).X, effect(EffectIndex).Y, 1, 250, 1)        'INMOVILIZAR
                            End If

                            If RetNum > 0 Then
                                effect(RetNum).BindToChar = effect(EffectIndex).BindToChar
                                effect(RetNum).BindSpeed = 10
                            End If
                        End If

                        effect(EffectIndex).BindToChar = 0
                        effect(EffectIndex).Progression = 0
                        effect(EffectIndex).GoToX = effect(EffectIndex).X
                        effect(EffectIndex).GoToY = effect(EffectIndex).Y
                    End If

                    Exit Sub        'The effect is at the right position, don't update

                End If
            End If
        End If
    End If

End Sub

Private Sub Effect_Protection_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Protection_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Protection_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Public Sub Effect_Render(ByVal EffectIndex As Integer, _
                         Optional ByVal SetRenderStates As Boolean = True)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Render
    '*****************************************************************

    Dim Count As Long
    Dim i As Long

    'Check if we have the device
    If DirectDevice.TestCooperativeLevel <> D3D_OK Then Exit Sub

    'Set the render state for the size of the particle
    DirectDevice.SetRenderState D3DRS_POINTSIZE, effect(EffectIndex).FloatSize

    'Set the render state to point blitting
    If SetRenderStates Then DirectDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_ONE

    'Set the last texture to a random number to force the engine to reload the texture
    LastTexture = -65489

    'Check what type of rendering to do (blood or everything else)

    If effect(EffectIndex).EffectNum = EffectNum_BloodSpray Or effect(EffectIndex).EffectNum = EffectNum_BloodSplatter Then
        Count = effect(EffectIndex).ParticleCount \ 4
        DirectDevice.SetTexture 0, SangreTexture(1)
        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex(0), LenB(effect(EffectIndex).PartVertex(0))

        For i = 0 To Count - 1

            With effect(EffectIndex).Particles(i)

                If .sngZ < 1 Then effect(EffectIndex).PartVertex(i).Y = effect(EffectIndex).PartVertex(i).Y + .sngZ
                effect(EffectIndex).PartVertex(i).Colour = D3DColorMake(.SngR, .SngG, .SngB, .SngA)
            End With

        Next i

        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex(0), LenB(effect(EffectIndex).PartVertex(0))
        DirectDevice.SetTexture 0, SangreTexture(4)
        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex(Count - 1), Len(effect(EffectIndex).PartVertex(0))

        For i = Count To Count - 1 + Count

            With effect(EffectIndex).Particles(i)

                If .sngZ < 1 Then effect(EffectIndex).PartVertex(i).Y = effect(EffectIndex).PartVertex(i).Y + .sngZ
                effect(EffectIndex).PartVertex(i).Colour = D3DColorMake(.SngR, .SngG, .SngB, .SngA)
            End With

        Next i

        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex(Count - 1), LenB(effect(EffectIndex).PartVertex(0))
        DirectDevice.SetTexture 0, SangreTexture(2)
        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex((Count * 2) - 1), LenB(effect(EffectIndex).PartVertex(0))

        For i = (Count * 2) To (Count * 2) - 1 + Count

            With effect(EffectIndex).Particles(i)

                If .sngZ < 1 Then effect(EffectIndex).PartVertex(i).Y = effect(EffectIndex).PartVertex(i).Y + .sngZ
                effect(EffectIndex).PartVertex(i).Colour = D3DColorMake(.SngR, .SngG, .SngB, .SngA)
            End With

        Next i

        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex((Count * 2) - 1), LenB(effect(EffectIndex).PartVertex(0))
        DirectDevice.SetTexture 0, SangreTexture(3)
        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex((Count * 3) - 1), LenB(effect(EffectIndex).PartVertex(0))

        For i = (Count * 3) To effect(EffectIndex).ParticleCount

            With effect(EffectIndex).Particles(i)

                If .sngZ < 1 Then effect(EffectIndex).PartVertex(i).Y = effect(EffectIndex).PartVertex(i).Y + .sngZ
                effect(EffectIndex).PartVertex(i).Colour = D3DColorMake(.SngR, .SngG, .SngB, .SngA)
            End With

        Next i

        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, Count, effect(EffectIndex).PartVertex((Count * 3) - 1), LenB(effect(EffectIndex).PartVertex(0))
    Else
        'Set the texture
        DirectDevice.SetTexture 0, ParticleTexture(effect(EffectIndex).Gfx)

        'Draw all the particles at once
        DirectDevice.DrawPrimitiveUP D3DPT_POINTLIST, effect(EffectIndex).ParticleCount, effect(EffectIndex).PartVertex(0), LenB(effect(EffectIndex).PartVertex(0))

        'Reset the render state back to normal
        If SetRenderStates Then DirectDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA

    End If

End Sub

Function Effect_Snow_Begin(ByVal Gfx As Integer, ByVal Particles As Integer) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Snow_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Snow_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Snow        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(15)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Snow_Reset EffectIndex, LoopC, 1

    Next LoopC

    'Set the initial time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Snow_Reset(ByVal EffectIndex As Integer, _
                              ByVal Index As Long, _
                              Optional ByVal FirstReset As Byte = 0)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Snow_Reset
    '*****************************************************************

    If FirstReset = 1 Then
        'The very first reset
        effect(EffectIndex).Particles(Index).ResetIt -200 + (Rnd * (frmMain.ScaleWidth + 400)), Rnd * (frmMain.ScaleHeight + 50), Rnd * 5, 5 + Rnd * 3, 0, 0
    Else
        'Any reset after first
        effect(EffectIndex).Particles(Index).ResetIt -200 + (Rnd * (frmMain.ScaleWidth + 400)), -15 - Rnd * 185, Rnd * 5, 5 + Rnd * 3, 0, 0

        If effect(EffectIndex).Particles(Index).sngX < -20 Then effect(EffectIndex).Particles(Index).sngY = Rnd * (frmMain.ScaleHeight + 50)
        If effect(EffectIndex).Particles(Index).sngX > frmMain.ScaleWidth Then effect(EffectIndex).Particles(Index).sngY = Rnd * (frmMain.ScaleHeight + 50)
        If effect(EffectIndex).Particles(Index).sngY > frmMain.ScaleHeight Then effect(EffectIndex).Particles(Index).sngX = Rnd * (frmMain.ScaleWidth + 50)
    End If

    'Set the color
    effect(EffectIndex).Particles(Index).ResetColor 1, 1, 1, 0.8, 0
End Sub

Private Sub Effect_Snow_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Snow_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check if particle is in use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if to reset the particle

            If effect(EffectIndex).Particles(LoopC).sngX < -200 Then effect(EffectIndex).Particles(LoopC).SngA = 0
            If effect(EffectIndex).Particles(LoopC).sngX > (frmMain.ScaleWidth + 200) Then effect(EffectIndex).Particles(LoopC).SngA = 0
            If effect(EffectIndex).Particles(LoopC).sngY > (frmMain.ScaleHeight + 200) Then effect(EffectIndex).Particles(LoopC).SngA = 0

            'Time for a reset, baby!

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then
                'Reset the particle
                Effect_Snow_Reset EffectIndex, LoopC
            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Strengthen_Begin(ByVal X As Single, _
                                 ByVal Y As Single, _
                                 ByVal Gfx As Integer, _
                                 ByVal Particles As Integer, _
                                 Optional ByVal size As Byte = 30, _
                                 Optional ByVal Time As Single = 10) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Strengthen_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Strengthen_Begin = EffectIndex
    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_Strengthen        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Strengthen_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Strengthen_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Strengthen_Reset
    '*****************************************************************

    Dim a As Single
    Dim X As Single
    Dim Y As Single

    'Get the positions
    a = Rnd * 360 * DegreeToRadian
    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, 0, Rnd * -1, 0, -2
    effect(EffectIndex).Particles(Index).ResetColor 0.2, 1, 0.2, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
End Sub

Private Sub Effect_Strengthen_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Strengthen_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check if particle is in use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update the particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Strengthen_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Sub Effect_UpdateAll()

    '*****************************************************************
    'Updates all of the effects and renders them
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_UpdateAll
    '*****************************************************************

    Dim LoopC As Long

    'Make sure we have effects

    If NumEffects = 0 Then Exit Sub

    'Set the render state for the particle effects
    DirectDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_ONE

    'Update every effect in use

    For LoopC = 1 To NumEffects

        'Make sure the effect is in use
        If effect(LoopC).Used Then
            'Update the effect position if the screen has moved
            Effect_UpdateOffset LoopC
            'Update the effect position if it is binded
            Effect_UpdateBinding LoopC

            'Find out which effect is selected, then update it
            If effect(LoopC).EffectNum = EffectNum_Fire Then Effect_Fire_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Snow Then Effect_Snow_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Heal Then Effect_Heal_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Bless Then Effect_Bless_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Protection Then Effect_Protection_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Strengthen Then Effect_Strengthen_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Rain Then Effect_Rain_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_EquationTemplate Then Effect_EquationTemplate_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Waterfall Then Effect_Waterfall_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Summon Then Effect_Summon_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Meditate Then Effect_Meditate_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Portal Then Effect_Portal_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Atomic Then Effect_Atomic_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Circle Then Effect_Circle_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Raro Then Effect_Raro_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Lissajous Then Effect_Lissajous_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Apocalipsis Then Effect_Apocalipsis_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Humo Then Effect_Humo_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_CherryBlossom Then Effect_CherryBlossom_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_BloodSpray Then Effect_BloodSpray_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_BloodSplatter Then Effect_BloodSplatter_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_LevelUP Then Effect_Spawn_Update EffectNum_LevelUP, LoopC
            If effect(LoopC).EffectNum = EffectNum_AnimatedSign Then Effect_Spawn_Update EffectNum_AnimatedSign, LoopC
            If effect(LoopC).EffectNum = EffectNum_Galaxy Then Effect_Spawn_Update EffectNum_Galaxy, LoopC
            If effect(LoopC).EffectNum = EffectNum_FancyThickCircle Then Effect_Spawn_Update EffectNum_FancyThickCircle, LoopC
            If effect(LoopC).EffectNum = EffectNum_Flower Then Effect_Spawn_Update EffectNum_Flower, LoopC
            If effect(LoopC).EffectNum = EffectNum_Wormhole Then Effect_Spawn_Update EffectNum_Wormhole, LoopC
            If effect(LoopC).EffectNum = EffectNum_HouseTeleport Then Effect_Spawn_Update EffectNum_HouseTeleport, LoopC
            If effect(LoopC).EffectNum = EffectNum_GuildTeleport Then Effect_Spawn_Update EffectNum_GuildTeleport, LoopC
            If effect(LoopC).EffectNum = EffectNum_Rayo Then Effect_Rayo_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_LissajousMedit Then Effect_LissajousMedit_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Inmovilizar Then Effect_Inmovilizar_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_ChangeClass Then Effect_ChangeClass_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Armada Then Effect_Armada_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_ButterflyCurve Then Effect_Butterfly_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Torment Then Effect_Torment_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Green Then Effect_Green_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Curse Then Effect_Curse_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Ray Then Effect_Ray_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Ice Then Effect_Ice_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Torch Then Effect_Torch_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_RedFountain Then Effect_RedFountain_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Implode Then Effect_Implode_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Misile Then Effect_Misile_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Holy Then Effect_Holy_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_PortalGroso Then Effect_PortalGroso_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Nova Then Effect_Nova_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Explode Then Effect_Explode_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Teleport Then Effect_teleport_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Spell Then Effect_Spell_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_Necro Then Effect_Necro_Update LoopC
            If effect(LoopC).EffectNum = EffectNum_LissajousTrip Then Effect_LissajousTrip_Update LoopC
            'Render the effect
            Effect_Render LoopC, False
        End If

    Next

    'Set the render state back for normal rendering
    DirectDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
End Sub

Function Effect_Rain_Begin(ByVal Gfx As Integer, ByVal Particles As Integer) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Rain_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Rain_Begin = EffectIndex
    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_Rain        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(10)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Rain_Reset EffectIndex, LoopC, 1

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Rain_Reset(ByVal EffectIndex As Integer, _
                              ByVal Index As Long, _
                              Optional ByVal FirstReset As Byte = 0)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Rain_Reset
    '*****************************************************************

    If FirstReset = 1 Then
        'The very first reset
        effect(EffectIndex).Particles(Index).ResetIt -200 + (Rnd * (frmMain.ScaleWidth + 400)), Rnd * (frmMain.ScaleHeight + 50), Rnd * 5, 25 + Rnd * 12, 0, 0
    Else
        'Any reset after first
        effect(EffectIndex).Particles(Index).ResetIt -200 + (Rnd * 1200), -15 - Rnd * 185, Rnd * 5, 25 + Rnd * 12, 0, 0

        If effect(EffectIndex).Particles(Index).sngX < -20 Then effect(EffectIndex).Particles(Index).sngY = Rnd * (frmMain.ScaleHeight + 50)
        If effect(EffectIndex).Particles(Index).sngX > frmMain.ScaleWidth Then effect(EffectIndex).Particles(Index).sngY = Rnd * (frmMain.ScaleHeight + 50)
        If effect(EffectIndex).Particles(Index).sngY > frmMain.ScaleHeight Then effect(EffectIndex).Particles(Index).sngX = Rnd * (frmMain.ScaleWidth + 50)
    End If

    'Set the color
    effect(EffectIndex).Particles(Index).ResetColor 1, 1, 1, 0.4, 0
End Sub

Private Sub Effect_Rain_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Rain_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check if the particle is in use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update the particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if to reset the particle

            If effect(EffectIndex).Particles(LoopC).sngX < -200 Then effect(EffectIndex).Particles(LoopC).SngA = 0
            If effect(EffectIndex).Particles(LoopC).sngX > (frmMain.ScaleWidth + 200) Then effect(EffectIndex).Particles(LoopC).SngA = 0
            If effect(EffectIndex).Particles(LoopC).sngY > (frmMain.ScaleHeight + 200) Then effect(EffectIndex).Particles(LoopC).SngA = 0

            'Time for a reset, baby!

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then
                'Reset the particle
                Effect_Rain_Reset EffectIndex, LoopC
            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Public Sub Effect_Begin(ByVal EffectIndex As Integer, _
                        ByVal X As Single, _
                        ByVal Y As Single, _
                        ByVal GfxIndex As Byte, _
                        ByVal Particles As Byte, _
                        Optional ByVal Direction As Single = 180, _
                        Optional ByVal BindToMap As Boolean = False)

    '*****************************************************************
    'A very simplistic form of initialization for particle effects
    'Should only be used for starting map-based effects
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Begin
    '*****************************************************************

    Dim RetNum As Byte

    Select Case EffectIndex

        Case 1
            RetNum = Effect_Fire_Begin(X, Y, GfxIndex, Particles, Direction, 1)

        Case 4
            RetNum = Effect_Waterfall_Begin(X, Y, GfxIndex, Particles)

        Case 7
            RetNum = Effect_Portal_Begin(X, Y, GfxIndex, Particles, 100)
    End Select

    'Bind the effect to the map if needed

    If BindToMap Then effect(RetNum).BoundToMap = 1
End Sub

Function Effect_Waterfall_Begin(ByVal X As Single, _
                                ByVal Y As Single, _
                                ByVal Gfx As Integer, _
                                ByVal Particles As Integer) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Waterfall_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Waterfall_Begin = EffectIndex
    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_Waterfall        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Waterfall_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Waterfall_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Waterfall_Reset
    '*****************************************************************

    If Int(Rnd * 10) = 1 Then
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + (Rnd * 60), effect(EffectIndex).Y + (Rnd * 130), 0, 8 + (Rnd * 6), 0, 0
    Else
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + (Rnd * 60), effect(EffectIndex).Y + (Rnd * 10), 0, 8 + (Rnd * 6), 0, 0
    End If

    effect(EffectIndex).Particles(Index).ResetColor 0.1, 0.1, 0.9, 0.6 + (Rnd * 0.4), 0
End Sub

Private Sub Effect_Waterfall_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Waterfall_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        With effect(EffectIndex).Particles(LoopC)

            'Check if the particle is in use

            If .Used Then
                'Update The Particle
                .UpdateParticle ElapsedTime

                'Check if the particle is ready to die

                If (.sngY > effect(EffectIndex).Y + 140) Or (.SngA = 0) Then
                    'Reset the particle
                    Effect_Waterfall_Reset EffectIndex, LoopC
                Else
                    'Set the particle information on the particle vertex
                    effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(.SngR, .SngG, .SngB, .SngA)
                    effect(EffectIndex).PartVertex(LoopC).X = .sngX
                    effect(EffectIndex).PartVertex(LoopC).Y = .sngY
                End If
            End If

        End With

    Next LoopC

End Sub

Function Effect_Summon_Begin(ByVal X As Single, _
                             ByVal Y As Single, _
                             ByVal Gfx As Integer, _
                             ByVal Particles As Integer, _
                             Optional ByVal Progression As Single = 0) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Summon_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Summon_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Summon        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Summon_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Summon_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Summon_Reset
    '*****************************************************************

    Dim X As Single
    Dim Y As Single
    Dim R As Single

    If effect(EffectIndex).Progression > 1000 Then
        effect(EffectIndex).Progression = effect(EffectIndex).Progression + 1.4
    Else
        effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.5
    End If

    R = (Index / 30) * Exp(Index / effect(EffectIndex).Progression)
    X = R * Cos(Index)
    Y = R * Sin(Index)
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 0, Rnd, 0, 0.9, 0.2 + (Rnd * 0.2)
End Sub

Private Sub Effect_Summon_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Summon_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression < 1800 Then
                    'Reset the particle
                    Effect_Summon_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Meditate_Begin(ByVal X As Single, _
                               ByVal Y As Single, _
                               ByVal Gfx As Integer, _
                               ByVal Particles As Integer, _
                               Optional ByVal size As Byte = 30, _
                               Optional ByVal Time As Single = 10) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Partic ... tate_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Meditate_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Meditate        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Meditate_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Meditate_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Partic ... tate_Reset
    '*****************************************************************

    Dim a As Single
    Dim X As Single
    Dim Y As Single
    Dim rR As Single
    Dim rG As Single
    Dim rB As Single

    'Get the positions
    a = Rnd * 360 * DegreeToRadian
    X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier)
    Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier / 2.5)
    'Load Colours
    rR = (0.1 - 0.05) * Rnd + 0.03
    rG = 0.8
    rB = 0.5
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, Rnd * -1, 0, -2
    effect(EffectIndex).Particles(Index).ResetColor rR, rG, rB, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
End Sub

Private Sub Effect_Meditate_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Partic ... ate_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Meditate_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Portal_Begin(ByVal X As Single, _
                             ByVal Y As Single, _
                             ByVal Gfx As Integer, _
                             ByVal Particles As Integer, _
                             Optional ByVal size As Byte = 30, _
                             Optional ByVal Time As Single = 10) As Long

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Partic ... rtal_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Portal_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Portal        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Portal_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Portal_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Partic ... rtal_Reset
    '*****************************************************************

    Dim a As Single
    Dim X As Single
    Dim Y As Single
    Dim rR As Single
    Dim rG As Single
    Dim rB As Single

    'Get the positions
    a = Rnd * 360 * DegreeToRadian

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.14

    If Rnd > Rnd Then
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier / 1.8) * Rnd * 1.1
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier * 1.1) * Rnd * 1.1
        rR = (0.1 - 0.05) * Rnd + 0.03
        rG = 0.2
        rB = 0.8
    Else
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier / 3)
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier / 1.5)
        rR = (0.2 - 0.06) * Rnd + 0.04
        rG = 0.3
        rB = 0.2
    End If

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, Rnd * -1, 0, 0        '-2
    effect(EffectIndex).Particles(Index).ResetColor rR, rG, rB, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
End Sub

Private Sub Effect_Portal_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Partic ... tal_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Portal_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Atomic_Begin(ByVal X As Single, _
                             ByVal Y As Single, _
                             ByVal Gfx As Integer, _
                             ByVal Particles As Integer, _
                             Optional ByVal size As Byte = 30, _
                             Optional ByVal Time As Single = 10) As Integer

    '*****************************************************************
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Atomic_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Atomic        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Atomic_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Atomic_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    '*****************************************************************

    Dim R As Single
    Dim X As Single
    Dim Y As Single

    'Get the positions
    R = 10 + Sin(2 * (Index / 10)) * 50
    X = R * Cos(Index / 30)
    Y = R * Sin(Index / 30)
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 200, 50, 1, 1, 0.9 + (Rnd * 0.2)
End Sub

Private Sub Effect_Atomic_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Protection_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Atomic_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Circle_Begin(ByVal X As Single, _
                             ByVal Y As Single, _
                             ByVal Gfx As Integer, _
                             ByVal Particles As Integer, _
                             Optional ByVal size As Byte = 30, _
                             Optional ByVal Time As Single = 10) As Integer

    '*****************************************************************
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Circle_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Circle        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Circle_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Circle_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    '*****************************************************************

    Dim a As Single
    Dim X As Single
    Dim Y As Single

    'Get the positions
    a = Rnd * 360 * DegreeToRadian        'The point on the circumference to be used
    X = effect(EffectIndex).X - (Sin(a) * 40)        'The 40s state the radius of circle
    Y = effect(EffectIndex).Y + (Cos(a) * 40)
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, -2
    effect(EffectIndex).Particles(Index).ResetColor 1 * Rnd + 0.4, 0, 1, 1, 0.2 + (Rnd * 0.2)
End Sub

Private Sub Effect_Circle_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Protection_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Circle_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Raro_Begin(ByVal X As Single, _
                           ByVal Y As Single, _
                           ByVal Gfx As Integer, _
                           ByVal Particles As Integer, _
                           Optional ByVal size As Byte = 30, _
                           Optional ByVal Time As Single = 10) As Integer

    '*****************************************************************
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Raro_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Raro        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Raro_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Raro_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    '*****************************************************************

    Dim X As Single
    Dim Y As Single
    Dim i As Single

    'Get the positions
    'a = Rnd * 360 * DegreeToRadian 'The point on the circumference to be used

    For i = 0 To 360 Step 30
        X = effect(EffectIndex).X - Cos(i)
        Y = effect(EffectIndex).Y + Sin(i) + Rnd
        'Reset the particle
        effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 1, 1, 1, 1, 0.2 + (Rnd * 0.2)

    Next i

End Sub

Private Sub Effect_Raro_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Protection_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Raro_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Lissajous_Begin(ByVal X As Single, _
                                ByVal Y As Single, _
                                ByVal Gfx As Integer, _
                                ByVal Particles As Integer, _
                                Optional ByVal Progression As Single = 0, _
                                Optional size As Byte = 30, _
                                Optional R As Single = 100, _
                                Optional g As Single = 100, _
                                Optional b As Single = 100) As Long

    '*****************************************************************
    'Particle effect Lissajous equation
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Lissajous_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Lissajous        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Progression
    effect(EffectIndex).R = R
    effect(EffectIndex).g = g
    effect(EffectIndex).b = b
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Lissajous_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Lissajous_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset]http://www.vbgore.com/CommonCode.Partic ... late_Reset[/url]
    '*****************************************************************

    Dim X As Single
    Dim Y As Single
    Dim a As Single

    '2
    '1
    '1
    '2
    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.01
    a = effect(EffectIndex).Progression

    If RandomNumber(1, 2) = 1 Then
        X = effect(EffectIndex).X - (Sin(2 * a) * effect(EffectIndex).Modifier) - 20
        Y = effect(EffectIndex).Y + (Sin(1 * a) * effect(EffectIndex).Modifier)
        'Reset the particle
        effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor effect(EffectIndex).R * effect(EffectIndex).Progression, effect(EffectIndex).g * effect(EffectIndex).Progression, effect(EffectIndex).b, 0.2, 0.2 + (Rnd * 0.2)
    Else
        X = effect(EffectIndex).X - (Sin(1 + 5 * a) * effect(EffectIndex).Modifier) - 20
        Y = effect(EffectIndex).Y + (Sin(2 + 7 * a) * effect(EffectIndex).Modifier)
        'Reset the particle
        effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor effect(EffectIndex).R * effect(EffectIndex).Progression, effect(EffectIndex).g * effect(EffectIndex).Progression, effect(EffectIndex).b, 0.2, 0.2 + (Rnd * 0.2)
    End If

End Sub

Private Sub Effect_Lissajous_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update]http://www.vbgore.com/CommonCode.Partic ... ate_Update[/url]
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Lissajous_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Apocalipsis_Begin(ByVal X As Single, _
                                  ByVal Y As Single, _
                                  ByVal Gfx As Integer, _
                                  ByVal Particles As Integer, _
                                  Optional ByVal Progression As Single = 0) As Integer

    '*****************************************************************
    'Particle effect template for effects as described on the
    'wiki page: http://www.vbgore.com/Particle_effect_equations
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Apocalipsis_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Apocalipsis        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression
    effect(EffectIndex).KillWhenAtTarget = True        'End the effect when it reaches the target (progression = 0)
    effect(EffectIndex).KillWhenTargetLost = True        'End the effect if the target is lost (progression = 0)

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Apocalipsis_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Apocalipsis_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset
    '*****************************************************************

    Dim X As Single
    Dim Y As Single
    Dim a As Single

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.01
    a = effect(EffectIndex).Progression

    If RandomNumber(1, 2) = 1 Then
        X = effect(EffectIndex).X - (Sin(a)) * 120
        Y = effect(EffectIndex).Y + Cos(5 * a) * 20        'The 40s state the radius of circle
        effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 5, 0, 3, 1, 0.2 + (Rnd * 0.2)
    Else
        X = effect(EffectIndex).X - (Sin(a)) * 120
        Y = effect(EffectIndex).Y - Cos(5 * a) * 20        'The 40s state the radius of circle
        '
        effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 0, 5, 2, 1, 0.2 + (Rnd * 0.2)
    End If

End Sub

Private Sub Effect_Apocalipsis_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Apocalipsis_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Humo_Begin(ByVal X As Single, _
                           ByVal Y As Single, _
                           ByVal Gfx As Integer, _
                           ByVal Particles As Integer, _
                           Optional ByVal Direction As Integer = 180, _
                           Optional ByVal Progression As Single = 1) As Integer

    '*****************************************************************
    'More info: http://svn2.assembla.com/svn/vblore/trunk/Code/Common%20Code/Particles.bas
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Humo_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Humo        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(30)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Humo_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Humo_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://svn2.assembla.com/svn/vblore/trunk/Code/Common%20Code/Particles.bas
    '*****************************************************************
    'Reset the particle
    'Effect(EffectIndex).Particles(index).ResetIt Effect(EffectIndex).X - 10 + Rnd * 20, Effect(EffectIndex).Y - 10 + Rnd * 20, -Sin((Effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 8, Cos((Effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 8, 0, 0
    'Effect(EffectIndex).Particles(Index).ResetColor 1, 0.2, 0.2, 0.4 + (Rnd * 0.2), 0.03 + (Rnd * 0.07)
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * 50, effect(EffectIndex).Y - 10 + Rnd * 50, -Sin((effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 5, Cos((effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 8, 0.5, 0
    effect(EffectIndex).Particles(Index).ResetColor 0.2, 0.2, 0.2, 0.2 + (Rnd * 0.2), 0.03 + (Rnd * 0.01)
    'Reset the particle
    'Effect(EffectIndex).Particles(Index).ResetIt Effect(EffectIndex).X - 10 + Rnd * 50, Effect(EffectIndex).Y - 10 + Rnd * 80, -Sin((Effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 8, Cos((Effect(EffectIndex).Direction + (Rnd * 70) - 35) * DegreeToRadian) * 8, 0, 0
    'Effect(EffectIndex).Particles(Index).ResetColor 0.1, 0.1, 0.1, 0.4 + (Rnd * 0.2), 0.03 + (Rnd * 0.07)
    'Effect(EffectIndex).Particles(index).ResetColor 0.1, 0.1, 0.1, 0.4 + (Rnd * 0.2), 0.03 + (Rnd * 0.07)
End Sub

Private Sub Effect_Humo_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://svn2.assembla.com/svn/vblore/trunk/Code/Common%20Code/Particles.bas
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression <> 0 Then
                    'Reset the particle
                    Effect_Humo_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_CherryBlossom_Begin(ByVal X As Single, _
                                    ByVal Y As Single, _
                                    ByVal Gfx As Integer, _
                                    ByVal Particles As Integer) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Waterfall_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_CherryBlossom_Begin = EffectIndex
    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_CherryBlossom        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_CherryBlossom_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_CherryBlossom_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Waterfall_Reset
    '*****************************************************************

    If Int(Rnd * 10) = 1 Then
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + (Rnd * 60), effect(EffectIndex).Y + (Rnd * 130), 2 + (Rnd * 2), 2 + (Rnd * 2), 0, 0
    Else
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + (Rnd * 60), effect(EffectIndex).Y + (Rnd * 10), 2 + (Rnd * 2), 2 + (Rnd * 2), 0, 0
    End If

    effect(EffectIndex).Particles(Index).ResetColor 1#, 0.7, 0.75, 0.6 + (Rnd * 0.4), 0
End Sub

Private Sub Effect_CherryBlossom_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Waterfall_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        With effect(EffectIndex).Particles(LoopC)

            'Check if the particle is in use

            If .Used Then
                'Update The Particle
                .UpdateParticle ElapsedTime

                'Check if the particle is ready to die

                If (.sngY > effect(EffectIndex).Y + 140) Or (.SngA = 0) Then
                    'Reset the particle
                    Effect_CherryBlossom_Reset EffectIndex, LoopC
                Else
                    'Set the particle information on the particle vertex
                    effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(.SngR, .SngG, .SngB, .SngA)
                    effect(EffectIndex).PartVertex(LoopC).X = .sngX
                    effect(EffectIndex).PartVertex(LoopC).Y = .sngY
                End If
            End If

        End With

    Next LoopC

End Sub

Function Effect_Spawn_Begin(ByVal EffectNum As Byte, _
                            ByVal X As Single, _
                            ByVal Y As Single, _
                            ByVal Gfx As Integer, _
                            ByVal Particles As Integer, _
                            Optional ByVal size As Byte = 30, _
                            Optional ByVal Time As Single = 10, _
                            Optional ByVal Red As Single = -1, _
                            Optional ByVal Green As Single = -1, _
                            Optional ByVal Blue As Single = -1, _
                            Optional ByVal Alpha As Single = -1) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Spawn_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Spawn_Reset EffectNum, EffectIndex, LoopC, Red, Green, Blue, Alpha

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Spawn_Reset(ByVal EffectNum As Byte, _
                               ByVal EffectIndex As Integer, _
                               ByVal Index As Long, _
                               Optional ByVal Red As Single = -1, _
                               Optional ByVal Green As Single = -1, _
                               Optional ByVal Blue As Single = -1, _
                               Optional ByVal Alpha As Single = -1)

    Dim X As Single
    Dim Y As Single
    Dim R As Single

    'Determine if deafults are used

    If Red = -2 Then Red = Rnd
    If Green = -2 Then Green = Rnd
    If Blue = -2 Then Blue = Rnd
    If Alpha = -2 Then Alpha = Rnd
    'store
    effect(EffectIndex).Particles(Index).Red = Red
    effect(EffectIndex).Particles(Index).Green = Green
    effect(EffectIndex).Particles(Index).Blue = Blue
    effect(EffectIndex).Particles(Index).Alpha = Alpha

    Select Case EffectNum

        Case EffectNum_HouseTeleport
            R = Sin(20 / (Index + 1)) * 100
            X = R * Cos((Index))
            Y = R * Sin((Index))
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0

            'Determine if deafults are used

            If Red = -1 Then Red = Rnd
            If Green = -1 Then Green = Rnd
            If Blue = -1 Then Blue = 1
            If Alpha = -1 Then Alpha = Rnd
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.2 + (Rnd * 0.5)

        Case EffectNum_GuildTeleport
            R = 150 + Cos(Index * Rnd) * Sin(Index * Rnd)
            X = R * Cos(Index) * Rnd
            Y = R * Sin(Index) * Rnd

            'Determine if deafults are used

            If Red = -1 Then Red = Rnd
            If Green = -1 Then Green = Rnd
            If Blue = -1 Then Blue = 0.5
            If Alpha = -1 Then Alpha = Rnd
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.2 + (Rnd * 0.2)

        Case EffectNum_LevelUP
            R = 10 + Sin(2 * (Index / 10)) * 50 + (30 * Rnd)
            X = R * Cos(Index / 30)
            Y = R * Sin(Index / 30)

            'Determine if deafults are used

            If Red = -1 Then Red = 1
            If Green = -1 Then Green = 0.3 + Rnd / 2
            If Blue = -1 Then Blue = Rnd / 3
            If Alpha = -1 Then Alpha = Rnd / 2
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.005 + (Rnd * 0.2)

        Case EffectNum_AnimatedSign

            If Index = 0 Then effect(EffectIndex).Modifier = effect(EffectIndex).Modifier + 1
            effect(EffectIndex).Progression = effect(EffectIndex).Progression + effect(EffectIndex).Direction

            If effect(EffectIndex).Progression > 100 Then effect(EffectIndex).Direction = -0.02
            If effect(EffectIndex).Progression < -100 Then effect(EffectIndex).Direction = 0.02
            R = effect(EffectIndex).Progression + 2 * Cos(2 * Index) * 40
            X = R * Cos(Index / (effect(EffectIndex).Modifier + 1) * 5)
            Y = R * Sin(Index / (effect(EffectIndex).Modifier + 1) * 5)

            'Determine if deafults are used

            If Red = -1 Then Red = 1
            If Green = -1 Then Green = 1
            If Blue = -1 Then Blue = 1
            If Alpha = -1 Then Alpha = 1
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.2 + (Rnd * 0.2)

        Case EffectNum_Galaxy
            R = Sin(20 / (Index + 1)) * 100
            X = R * Cos((Index))
            Y = R * Sin((Index))

            'Determine if deafults are used

            If Red = -1 Then Red = 1
            If Green = -1 Then Green = 1
            If Blue = -1 Then Blue = 1
            If Alpha = -1 Then Alpha = 1
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.2 + (Rnd * 0.2)

        Case EffectNum_FancyThickCircle
            R = 50 + Rnd * 15 * Cos(2 * Index)
            X = R * Cos(Index / 30)
            Y = R * Sin(Index / 30)

            'Determine if deafults are used

            If Red = -1 Then Red = 1
            If Green = -1 Then Green = 1
            If Blue = -1 Then Blue = 1
            If Alpha = -1 Then Alpha = 1
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.2 + (Rnd * 0.2)

        Case EffectNum_Flower
            R = Cos(2 * (Index / 10)) * 50
            X = R * Cos(Index / 10)
            Y = R * Sin(Index / 10)

            'Determine if deafults are used

            If Red = -1 Then Red = 1
            If Green = -1 Then Green = 1
            If Blue = -1 Then Blue = 1
            If Alpha = -1 Then Alpha = 1
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.2 + (Rnd * 0.2)

        Case EffectNum_Wormhole
            effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.1
            R = (Index / 20) * Exp(Index / effect(EffectIndex).Progression Mod 3)
            X = R * Cos(Index)
            Y = R * Sin(Index)

            'Determine if deafults are used

            If Red = -1 Then Red = 1
            If Green = -1 Then Green = 1
            If Blue = -1 Then Blue = 1
            If Alpha = -1 Then Alpha = 1
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor Red, Green, Blue, Alpha, 0.2 + (Rnd * 0.2)
    End Select

End Sub

Private Sub Effect_Spawn_Update(ByVal EffectNum As Byte, ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Spawn_Reset EffectNum, EffectIndex, LoopC, effect(EffectIndex).Particles(LoopC).Red, effect(EffectIndex).Particles(LoopC).Green, effect(EffectIndex).Particles(LoopC).Blue, effect(EffectIndex).Particles(LoopC).Alpha
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Public Sub Effect_Create(ByVal QuienLanza As Byte, _
                         ByVal CharIndex As Integer, _
                         ByVal Effecto As Byte)

    With Charlist(CharIndex)

        Select Case Effecto

            Case 1
                .ParticleIndex = Effect_BloodSplatter_Begin(Engine_TPtoSPX(Charlist(CharIndex).Pos.X), Engine_TPtoSPY(Charlist(CharIndex).Pos.Y), 20 + Rnd * 40)

            Case 2
                .ParticleIndex = Effect_Rayo_Begin(Engine_TPtoSPX(Charlist(QuienLanza).Pos.X), Engine_TPtoSPY(Charlist(QuienLanza).Pos.Y), 13, 100)
                effect(Effecto).BindToChar = CharIndex
                effect(Effecto).BindSpeed = 3
        End Select

    End With

End Sub

Function Effect_Rayo_Begin(ByVal X As Single, _
                           ByVal Y As Single, _
                           ByVal Gfx As Integer, _
                           ByVal Particles As Integer, _
                           Optional ByVal Progression As Single = 1) As Integer

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Rayo_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_Rayo_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Rayo        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'Loop the effect
    effect(EffectIndex).KillWhenAtTarget = True        'End the effect when it reaches the target (progression = 0)
    effect(EffectIndex).KillWhenTargetLost = True        'End the effect if the target is lost (progression = 0)
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(16)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Rayo_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Rayo_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Rayo_Reset
    '*****************************************************************
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * 20, effect(EffectIndex).Y - 10 + Rnd * 20, -Sin((180 + (Rnd * 90) - 45) * 0.0174533) * 8 + (Rnd * 3), Cos((180 + (Rnd * 90) - 45) * 0.0174533) * 8 + (Rnd * 3), 0, 0
    'Effect(EffectIndex).Particles(Index).ResetColor 0, 0.8, 0.8, 0.6 + (Rnd * 0.2), 0.001 + (Rnd * 0.5)
    effect(EffectIndex).Particles(Index).ResetColor (Rnd * 0.8), (Rnd * 0.8), (Rnd * 0.8), 0.6 + (Rnd * 0.2), 0.001 + (Rnd * 0.5)
End Sub

Private Sub Effect_Rayo_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Rayo_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression <> 0 Then
                    'Reset the particle
                    Effect_Rayo_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_LissajousMedit_Begin(ByVal X As Single, _
                                     ByVal Y As Single, _
                                     ByVal Gfx As Integer, _
                                     ByVal Particles As Integer, _
                                     Optional ByVal Progression As Single = 0, _
                                     Optional size As Byte = 30, _
                                     Optional R As Single = 100, _
                                     Optional g As Single = 100, _
                                     Optional b As Single = 100, _
                                     Optional ByVal EcuationCount As Byte = 1) As Long

    '*****************************************************************
    'Particle effect Lissajous equation
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_LissajousMedit_Begin = EffectIndex
    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_LissajousMedit        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Progression
    effect(EffectIndex).R = R
    effect(EffectIndex).g = g
    effect(EffectIndex).b = b
    effect(EffectIndex).EcuationCount = EcuationCount
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_LissajousMedit_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_LissajousMedit_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset
    '*****************************************************************

    Dim X As Single
    Dim Y As Single
    Dim a As Single

    '2
    '1
    '1
    '2
    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.01
    a = effect(EffectIndex).Progression

    With effect(EffectIndex)

        If .EcuationCount = 1 Then
            X = effect(EffectIndex).X - (Sin(1 * a + 1) * effect(EffectIndex).Modifier) - 20
            Y = effect(EffectIndex).Y + (Sin(1 * a) * effect(EffectIndex).Modifier)
            'Reset the particle
            effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
            effect(EffectIndex).Particles(Index).ResetColor effect(EffectIndex).R * effect(EffectIndex).Progression, effect(EffectIndex).g * effect(EffectIndex).Progression, effect(EffectIndex).b, 0.2, 0.2 + (Rnd * 0.2)
        ElseIf .EcuationCount = 2 Then

            If RandomNumber(1, 2) = 1 Then
                X = effect(EffectIndex).X - (Sin(1 * a + 1) * effect(EffectIndex).Modifier) - 20
                Y = effect(EffectIndex).Y + (Sin(1 * a) * effect(EffectIndex).Modifier)
                'Reset the particle
                effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                effect(EffectIndex).Particles(Index).ResetColor effect(EffectIndex).R * effect(EffectIndex).Progression, effect(EffectIndex).g * effect(EffectIndex).Progression, effect(EffectIndex).b, 0.2, 0.2 + (Rnd * 0.2)
            Else
                X = .X - (Sin(1 * a) * .Modifier) - 20
                Y = .Y + (Sin(1 * a) * .Modifier)
                'Reset the particle
                .Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                .Particles(Index).ResetColor .R * .Progression, .g * .Progression, .b, 0.2, 0.2 + (Rnd * 0.2)
            End If

        ElseIf .EcuationCount = 3 Then

            If RandomNumber(1, 2) = 1 Then
                X = .X - (Sin(2 * a) * .Modifier) - 20
                Y = .Y + (Sin(1 * a) * .Modifier)
                'Reset the particle
                .Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                .Particles(Index).ResetColor .R * .Progression, .g * .Progression, .b, 0.2, 0.2 + (Rnd * 0.2)
            Else
                X = .X - (Sin(1 * a) * .Modifier) - 20
                Y = .Y + (Sin(2 * a) * .Modifier)
                'Reset the particle
                .Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                .Particles(Index).ResetColor .R * .Progression, .g * .Progression, .b, 0.2, 0.2 + (Rnd * 0.2)
            End If

        ElseIf .EcuationCount = 4 Then

            If RandomNumber(1, 2) = 1 Then
                X = .X - (Sin(4 * a) * .Modifier) - 20
                Y = .Y + (Sin(2 * a) * .Modifier)
                'Reset the particle
                .Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                .Particles(Index).ResetColor .R * .Progression, .g * .Progression, .b, 0.2, 0.2 + (Rnd * 0.2)
            Else
                X = .X - (Sin(2 * a) * .Modifier) - 20
                Y = .Y + (Sin(4 * a) * .Modifier)
                'Reset the particle
                .Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                .Particles(Index).ResetColor .R * .Progression, .g * .Progression, .b, 0.2, 0.2 + (Rnd * 0.2)
            End If

        ElseIf .EcuationCount = 5 Then

            If RandomNumber(1, 2) = 1 Then
                X = .X - (Sin(2 * a) * .Modifier) - 20
                Y = .Y + (Sin(1 * a) * .Modifier)
                'Reset the particle
                .Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                .Particles(Index).ResetColor .R * .Progression, .g * .Progression, .b, 0.2, 0.2 + (Rnd * 0.2)
            Else
                X = .X - (Sin(1 + 5 * a) * .Modifier) - 20
                Y = .Y + (Sin(2 + 7 * a) * .Modifier)
                'Reset the particle
                .Particles(Index).ResetIt X, Y, 0, 0, 0, 0
                .Particles(Index).ResetColor .R * .Progression, .g * .Progression, .b, 0.2, 0.2 + (Rnd * 0.2)
            End If
        End If

    End With

End Sub

Private Sub Effect_LissajousMedit_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_LissajousMedit_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_Inmovilizar_Begin(ByVal X As Single, _
                                  ByVal Y As Single, _
                                  ByVal Gfx As Integer, _
                                  ByVal Particles As Integer, _
                                  Optional ByVal size As Byte = 30, _
                                  Optional ByVal Time As Single = 10) As Long

    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Strengthen_Begin
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Inmovilizar_Begin = EffectIndex

    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_Inmovilizar        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(15)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Inmovilizar_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_Inmovilizar_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '// Posiciones

    Dim X As Single
    Dim Y As Single

    'Get the positions
    X = effect(EffectIndex).X + (Rnd * 60)
    Y = effect(EffectIndex).Y + (Rnd * 60)

    '// Colores
    '// Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, Rnd * 1 - 0.5, Rnd * 1 - 0.5, Rnd - 0.5, Rnd * -0.9 + 0.45
    effect(EffectIndex).Particles(Index).ResetColor (Rnd * 0.8), (Rnd * 0.8), (Rnd * 0.8), 0.6 + (Rnd * 0.2), 0.07 + Rnd * 0.01
End Sub

Private Sub Effect_Inmovilizar_Update(ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.1
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check if particle is in use

        If effect(EffectIndex).Particles(LoopC).Used Then
            'Update the particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then
                    'Reset the particle
                    Effect_Inmovilizar_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0
                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY
            End If
        End If

    Next LoopC

End Sub

Function Effect_ChangeClass_Begin(ByVal X As Single, _
                                  ByVal Y As Single, _
                                  ByVal Gfx As Integer, _
                                  ByVal Particles As Integer, _
                                  Optional ByVal Progression As Single = 1) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_ChangeClass_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_ChangeClass        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_ChangeClass_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_ChangeClass_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    Dim X As Single
    Dim Y As Single

    effect(EffectIndex).Sng = effect(EffectIndex).Sng + 0.03

    If effect(EffectIndex).Sng > 360 * DegreeToRadian Then effect(EffectIndex).Sng = effect(EffectIndex).Sng - 360 * DegreeToRadian
    effect(EffectIndex).Modifier = effect(EffectIndex).Modifier + 1

    'Get the positions
    X = effect(EffectIndex).X - (Sin(effect(EffectIndex).Sng) * 40) + Rnd * 10
    Y = effect(EffectIndex).Y + (Cos(effect(EffectIndex).Sng) * 40) - (effect(EffectIndex).Modifier / 10) + Rnd * 10

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 1, 0, 1, 0.2 + (Rnd * 0.2)

End Sub

Private Sub Effect_ChangeClass_Update(ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span

    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 0 Then

                    'Reset the particle
                    Effect_ChangeClass_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Armada_Begin(ByVal X As Single, _
                             ByVal Y As Single, _
                             ByVal Gfx As Integer, _
                             ByVal Particles As Integer, _
                             Optional ByVal Progression As Single = 1) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Armada_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Armada        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Armada_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Armada_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    Dim X As Single
    Dim Y As Single

    Dim a As Single
    Dim b As Integer
    Dim aL As Single
    Dim rG As Single

    aL = 3.1415 / 2
    a = 3
    b = 4

    rG = (Rnd * 0.6)

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.14

    X = a * Sin(effect(EffectIndex).Progression * aL / 12) * 6 + (Rnd * 0.5) - 1
    Y = b * Sin(effect(EffectIndex).Progression / 12) * 6 - 10 + (Rnd * 0.5) - 10

    'Reset the particle

    If RandomNumber(1, 2) = 1 Then
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 0.1, 0.2, rG, 0.1 + (Rnd * 0.2), 0.1
    Else
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - X, effect(EffectIndex).Y - Y - 50, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 0.1, 0.2, rG, 0.1 + (Rnd * 0.1), 0.036
    End If

End Sub

Private Sub Effect_Armada_Update(ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Effect(EffectIndex).Progression = Effect(EffectIndex).Progression + 0.001
    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0.5 And RandomNumber(1, 4) = 1 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 1 Then

                    'Reset the particle
                    Effect_Armada_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Butterfly_Begin(ByVal X As Single, _
                                ByVal Y As Single, _
                                ByVal Gfx As Integer, _
                                ByVal Particles As Integer, _
                                Optional ByVal Progression As Single = 1, _
                                Optional ByVal Aura As Byte = 0) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Butterfly_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_ButterflyCurve        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Butterfly_Reset EffectIndex, LoopC, Aura

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Butterfly_Reset(ByVal EffectIndex As Integer, _
                                   ByVal Index As Long, _
                                   ByVal AuraType As Byte)

    Dim X As Single
    Dim Y As Single

    If AuraType = 1 Then        'la posta del auratype es mandarle una cantidad de 300 particulas
        effect(EffectIndex).Sng = effect(EffectIndex).Sng + 0.003
    Else
        effect(EffectIndex).Sng = effect(EffectIndex).Sng + 0.03
    End If

    If effect(EffectIndex).Sng > 360 * DegreeToRadian Then effect(EffectIndex).Sng = effect(EffectIndex).Sng - 360 * DegreeToRadian
    effect(EffectIndex).Modifier = effect(EffectIndex).Modifier + 1

    'Get the positions
    'x = Effect(EffectIndex).x - (Sin(Effect(EffectIndex).Sng) * 40) + Rnd * 10
    'y = Effect(EffectIndex).y + (Cos(Effect(EffectIndex).Sng) * 40) - (Effect(EffectIndex).Modifier / 10) + Rnd * 10

    With effect(EffectIndex)

        If AuraType = 1 Then
            If RandomNumber(1, 2) = 1 Then
                X = .X + (.X * (Sin(.Sng) * (Exp(Cos(.Sng)) - 2 * Cos(4 * .Sng) - Sin((.Sng / 12) ^ 5)))) / 5
                Y = .Y - (.Y * (Cos(.Sng) * (Exp(Cos(.Sng)) - 2 * Cos(4 * .Sng) - Sin((.Sng / 12) ^ 5)))) / 5
            Else
                X = .X + (.X * -(Sin(.Sng) * (Exp(Cos(.Sng)) - 2 * Cos(4 * .Sng) - Sin((.Sng / 12) ^ 5)))) / 5
                Y = .Y - (.Y * -(Cos(.Sng) * (Exp(Cos(.Sng)) - 2 * Cos(4 * .Sng) - Sin((.Sng / 12) ^ 5)))) / 5

            End If

        Else
            X = .X + (.X * (Sin(.Sng) * (Exp(Cos(.Sng)) - 2 * Cos(4 * .Sng) - Sin((.Sng / 12) ^ 5)))) / 5
            Y = .Y - (.Y * (Cos(.Sng) * (Exp(Cos(.Sng)) - 2 * Cos(4 * .Sng) - Sin((.Sng / 12) ^ 5)))) / 5

        End If

    End With

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 1, 0, 1, 0.2 + (Rnd * 0.2)
End Sub

Private Sub Effect_Butterfly_Update(ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Effect(EffectIndex).Progression = Effect(EffectIndex).Progression + 0.001
    'Go Through The Particle Loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use

        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die

            If effect(EffectIndex).Particles(LoopC).SngA <= 0.5 And RandomNumber(1, 4) = 1 Then

                'Check if the effect is ending

                If effect(EffectIndex).Progression > 1 Then

                    'Reset the particle
                    Effect_Armada_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles

                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Torment_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal size As Byte = 30, Optional ByVal Time As Single = 10) As Integer
    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_Torment_Begin]http://www.vbgore.com/CommonCode.Partic ... ment_Begin[/url]
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Torment_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Torment        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Torment_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Torment_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_Torment_Reset]http://www.vbgore.com/CommonCode.Partic ... ment_Reset[/url]
    '*****************************************************************
    Dim R As Single
    Dim X As Single
    Dim Y As Single

    R = (Index / 21) * Exp(Index * effect(EffectIndex).Progression Mod 2)
    X = R * Cos(Index)
    Y = R * Sin(Index)

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, Rnd * -1, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 200, 0, 1, 0.2 + 0.01

End Sub

Private Sub Effect_Torment_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_Torment_Update]http://www.vbgore.com/CommonCode.Partic ... ent_Update[/url]
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.1
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime + 0.001

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Then

                    'Reset the particle
                    Effect_Torment_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Green_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'Particle effect template for effects as described on the
    'wiki page: http://www.vbgore.com/Particle_effect_equations
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Green_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Green        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(16)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Green_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Green_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset
    '*****************************************************************
    Dim X As Single
    Dim Y As Single
    Dim R As Single
    Dim rG As Single

    rG = (Rnd * 0.5)

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.1
    R = (Index / 250) * ((effect(EffectIndex).Progression / 10) ^ 2)
    X = R * Round(Cos(Index), 0) + (Index * Rnd * 0.07) * Sgn(Cos(Index))
    Y = R * Round(Sin(Index), 0) + (Index * Rnd * 0.07) * Sgn(Sin(Index))

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    If RandomNumber(1, 2) = 1 Then
        effect(EffectIndex).Particles(Index).ResetColor 1, 0.2 + rG, 0.2, 0.9, 0.2 + (Rnd * 0.2)
    Else
        effect(EffectIndex).Particles(Index).ResetColor 0.2, 0.2 + rG, 1, 0.9, 0.2 + (Rnd * 0.2)
    End If


End Sub

Private Sub Effect_Green_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount



    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.2 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression < 80 Then

                    'Reset the particle
                    Effect_Green_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Curse_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Direction As Integer = 180, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Curse_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Curse        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(12)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)
    effect(EffectIndex).TargetAA = 0
    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        'Effect_Necro_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Curse_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    'Static TargetA As Single
    Dim Co As Single
    Dim Si As Single
    Dim rG As Single

    rG = (Rnd * 0.4)
    'Calculate the angle

    If effect(EffectIndex).TargetAA = 0 And effect(EffectIndex).GoToX <> -30000 Then effect(EffectIndex).TargetAA = Engine_GetAngle(effect(EffectIndex).X, effect(EffectIndex).Y, effect(EffectIndex).GoToX, effect(EffectIndex).GoToY) + 180

    Si = Sin(effect(EffectIndex).TargetAA * DegreeToRadian)
    Co = Cos(effect(EffectIndex).TargetAA * DegreeToRadian)

    'Reset the particle
    If RandomNumber(1, 2) = 2 Then
        'Effect(EffectIndex).Particles(index).ResetIt Effect(EffectIndex).x, Effect(EffectIndex).y, Co * Sin(Effect(EffectIndex).Progression * 3) * 20, Si * Sin(Effect(EffectIndex).Progression * 3) * 20, 0, 0
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + Co * Sin(effect(EffectIndex).Progression) * 15, effect(EffectIndex).Y + Si * Sin(effect(EffectIndex).Progression) * 15, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor rG, 0.4, rG, 0.5 + (Rnd * 0.2), 0.1 + (Rnd * 4.09)
    Else
        'Effect(EffectIndex).Particles(index).ResetIt Effect(EffectIndex).x, Effect(EffectIndex).y, Co * Sin(Effect(EffectIndex).Progression * 3) * -20, Si * Sin(Effect(EffectIndex).Progression * 3) * -20, 0, 0
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + Co * Sin(effect(EffectIndex).Progression) * -15, effect(EffectIndex).Y + Si * Sin(effect(EffectIndex).Progression) * -15, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor rG, rG, 0.4, 0.7 + (Rnd * 0.2), 0.1 + (Rnd * 4.09)
    End If


End Sub

Private Sub Effect_Curse_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.5 And RandomNumber(1, 3) = 3 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Or effect(EffectIndex).Progression = -5000 Then


                    'Reset the particle
                    Effect_Curse_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Ray_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Direction As Integer = 180, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Ray_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Ray        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(15)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Ray_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Ray_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Reset
    '*****************************************************************
    Dim rG As Single
    rG = (Rnd * 1)
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * 20, effect(EffectIndex).Y - 10 + Rnd * 20, Rnd * 2 * RandomNumber(-1, 1), Rnd * 2 * RandomNumber(-1, 1), 0, 0
    effect(EffectIndex).Particles(Index).ResetColor rG, rG, 1, 0.8 + (Rnd * 0.2), 0.1 + (Rnd * 4.09)

End Sub

Private Sub Effect_Ray_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            'If EffectIndex = EIndex Or EffectIndex = EIndex2 Then
            '    Effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime, True
            'Else
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime
            'End If

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.3 And RandomNumber(1, 5) = 1 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Or effect(EffectIndex).Progression = -5000 Then


                    'Reset the particle
                    Effect_Ray_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Ice_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Progression As Single = 1, Optional Looping As Boolean = False) As Integer
    '*****************************************************************
    'Particle effect template for effects as described on the
    'wiki page: http://www.vbgore.com/Particle_effect_equations
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Ice_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Ice        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect
    effect(EffectIndex).Looping = Looping
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(16)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Ice_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Ice_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset
    '*****************************************************************
    Dim X As Single
    Dim Y As Single
    Dim R As Single
    Dim rG As Single

    rG = (Rnd * 1)

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.1
    R = (Index / 20) * Exp(Index / effect(EffectIndex).Progression Mod 3)
    X = R * Cos(Index) * (Rnd * 1.5)
    Y = R * Sin(Index) * (Rnd * 1.5)

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor rG, rG, 1, 0.9, 0.2 + (Rnd * 0.2)

End Sub

Private Sub Effect_Ice_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount



    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update the particle
            'If EffectIndex = EIndex Or EffectIndex = EIndex2 Then
            '    Effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime, True
            'Else
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime
            'End If

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.2 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression < 80 Then

                    'Reset the particle
                    Effect_Ice_Reset EffectIndex, LoopC

                ElseIf effect(EffectIndex).Looping Then
                    effect(EffectIndex).Progression = 70
                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Torch_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Direction As Integer = 180, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Torch_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Torch        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(15)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Torch_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Torch_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Reset
    '*****************************************************************

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * 20, effect(EffectIndex).Y - 10 + Rnd * 20, Rnd * 2 * RandomNumber(-1, 1), Rnd * 2 * RandomNumber(-1, 1), 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 0.1 + (Rnd * 0.4), 0.2, 0.4 + (Rnd * 0.2), 0.1 + (Rnd * 0.07)

End Sub

Private Sub Effect_Torch_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.3 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Or effect(EffectIndex).Progression = -5000 Then


                    'Reset the particle
                    Effect_Torch_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub
Function Effect_Implode_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'Particle effect template for effects as described on the
    'wiki page: http://www.vbgore.com/Particle_effect_equations
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Implode_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Implode        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(18)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Implode_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Implode_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset
    '*****************************************************************
    Dim X As Single
    Dim Y As Single
    Dim R As Single

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.1
    'R = (index / 20) * exp(index / Effect(EffectIndex).Progression Mod 3)
    R = (91 - (Index / 20) - (effect(EffectIndex).Progression / ((Rnd * 0.1) + 0.9))) * 0.5
    X = R * Cos(Index)
    Y = R * Sin(Index) * 0.5

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 0.4 + (Rnd * 0.6), 0.4 + (Rnd * 0.6), 0.8, 0.7, 0.4 + (Rnd * 0.2)

End Sub

Private Sub Effect_Implode_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount



    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.2 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression < 50 Then

                    'Reset the particle
                    Effect_Implode_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Nova_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'Particle effect template for effects as described on the
    'wiki page: http://www.vbgore.com/Particle_effect_equations
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Nova_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Nova        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(24)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Nova_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Nova_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Reset
    '*****************************************************************
    Dim X As Single
    Dim Y As Single
    Dim R As Single

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.05
    'R = (index / 20) * exp(index / Effect(EffectIndex).Progression Mod 3)
    R = (Index / 10) + (effect(EffectIndex).Progression / ((Rnd * 0.3) + 0.7))
    X = R * Cos(Index) * 2
    Y = R * Sin(Index) * 0.5

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 0.25 + (Rnd * 0.6), 0.2, 0.7, 0.2 + (Rnd * 0.2)

End Sub

Private Sub Effect_Nova_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_EquationTemplate_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount



    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.3 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression < 50 Then

                    'Reset the particle
                    Effect_Nova_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_PortalGroso_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Progression As Single = 1) As Integer
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_PortalGroso_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_PortalGroso        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression        'If we loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_PortalGroso_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_PortalGroso_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    Dim X As Single
    Dim Y As Single
    Dim R As Single
    Dim ind As Integer
    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.1
    ind = CInt(Index / 10) * 10
    R = ((Index + 100) / 4) * Exp((Index + 100) / 2000)
    X = R * Cos(Index) * 0.25        '* 0.3 * 0.25
    Y = R * Sin(Index) * 0.25        '* 0.2 * 0.25
    'Reset the particle
    'If Rnd * 20 < 1 Then
    '    Effect(EffectIndex).Particles(index).ResetIt Effect(EffectIndex).x + x, Effect(EffectIndex).y + y, 0, 0, 0, -1.5 * (ind / Effect(EffectIndex).ParticleCount)
    'Else
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + X, effect(EffectIndex).Y + Y, 0, 0, 0, 0
    'End If
    effect(EffectIndex).Particles(Index).ResetColor 0.2, 0, (0.7 * ind / effect(EffectIndex).ParticleCount), 1, IIf(ind / effect(EffectIndex).ParticleCount / 7 < 0.03, 0.03, ind / effect(EffectIndex).ParticleCount / 7)

End Sub

Private Sub Effect_PortalGroso_Update(ByVal EffectIndex As Integer)
    Dim ElapsedTime As Single
    Dim LoopC As Long
    'Dim Owner As Integer
    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'For LoopC = 1 To LastChar
    '    If EffectIndex = CharList(LoopC).AuraIndex Then
    '        Owner = LoopC
    '    End If
    'Next

    'If opciones.bGraphics < 2 Then Effect(EffectIndex).Used = False

    'If Owner = 0 Then
    '    Effect(EffectIndex).Used = False
    'End If

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            ''Update The Particle
            'If EffectIndex <> CharList(UserCharIndex).AuraIndex Then
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime
            'Else
            '   Effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime, True
            'End If

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Then

                    'Reset the particle
                    Effect_PortalGroso_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_teleport_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal size As Byte = 30, Optional ByVal Time As Single = 10) As Integer
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_teleport_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Teleport        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(15)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_teleport_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_teleport_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    Dim a As Single
    Dim X As Single
    Dim Y As Single


    If Rnd * 10 < 5 Then
        'Get the positions
        a = Rnd * 360 * DegreeToRadian
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier) / 2.2        '* (0.8 + Rnd * 0.2)
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier)
    Else
        a = Rnd * 360 * DegreeToRadian
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier / 2) / 2.2        '* (0.8 + Rnd * 0.2)
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier / 2)
    End If
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, Rnd * -1, 0, -2
    effect(EffectIndex).Particles(Index).ResetColor 1, Rnd * 0.5, Rnd * 0.5, 0.6 + (Rnd * 0.4), 0.2 + (Rnd * 0.2)

End Sub

Private Sub Effect_teleport_Update(ByVal EffectIndex As Integer)
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    'If Effect(EffectIndex).Progression > 0 Then Effect(EffectIndex).Progression = Effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Then

                    'Reset the particle
                    Effect_teleport_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub



Function Effect_Atom_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal size As Byte = 30, Optional ByVal Time As Single = 10) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Atom_Begin = EffectIndex

    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_Atom        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(16)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Atom_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Atom_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    Dim a As Single
    Dim X As Single
    Dim Y As Single
    Dim R As Single
    'Get the positions
    a = Rnd * 360 * DegreeToRadian
    R = Rnd * 4
    If R < 1 Then
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier) / 3 + (Cos(a) * effect(EffectIndex).Modifier)
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier)
        effect(EffectIndex).Particles(Index).ResetColor 0.2, 1, 0.2, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
    ElseIf R < 2 Then
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier)
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier) / 3 + (Sin(a) * effect(EffectIndex).Modifier)
        effect(EffectIndex).Particles(Index).ResetColor 1, 1, 0.2, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
    ElseIf R < 3 Then
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier) / 3
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier)
        effect(EffectIndex).Particles(Index).ResetColor 1, 0.2, 0.2, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
    ElseIf R < 4 Then
        X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier)
        Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier) / 3

        effect(EffectIndex).Particles(Index).ResetColor 0.2, 0.2, 1, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)
    End If

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, -1


End Sub

Function Effect_RedFountain_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot

    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_RedFountain_Begin = EffectIndex

    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_RedFountain        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_RedFountain_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_RedFountain_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    'If Int(Rnd * 10) < 6 Then
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + (Rnd * 10) - 5, effect(EffectIndex).Y - (Rnd * 10), 0, 1, 0, -1 - Rnd * 0.25
    'Else
    'Effect(EffectIndex).Particles(index).ResetIt Effect(EffectIndex).x + (Rnd * 10) - 5, Effect(EffectIndex).y - (Rnd * 10), 1 + (Rnd * 5), -15 - (Rnd * 3), 0, 1.1 + Rnd * 0.1
    'End If
    effect(EffectIndex).Particles(Index).ResetColor 0.9, Rnd * 0.7, 0.1, 0.6 + (Rnd * 0.4), 0.035 + Rnd * 0.01

End Sub

Private Sub Effect_RedFountain_Update(ByVal EffectIndex As Integer)
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go through the particle loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        With effect(EffectIndex).Particles(LoopC)

            'Check if the particle is in use
            If .Used Then

                'Update The Particle
                .UpdateParticle ElapsedTime

                'Check if the particle is ready to die
                If (.SngA < 0) Or (.sngY > effect(EffectIndex).Y + 100) Then

                    'Reset the particle
                    Effect_RedFountain_Reset EffectIndex, LoopC

                Else

                    'Set the particle information on the particle vertex
                    effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(.SngR, .SngG, .SngB, .SngA)
                    effect(EffectIndex).PartVertex(LoopC).X = .sngX
                    effect(EffectIndex).PartVertex(LoopC).Y = .sngY

                End If

            End If

        End With

    Next LoopC

End Sub


Function Effect_Explode_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal size As Byte = 30, Optional ByVal Time As Single = 10) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Bless_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Explode_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Explode        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Modifier = size        'How large the circle is
    effect(EffectIndex).Progression = Time        'How long the effect will last

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(20)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        'Effect_Explode_Reset EffectIndex, LoopC
    Next LoopC


    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount
    Effect_Explode_Update EffectIndex

End Function

Private Sub Effect_Explode_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    Dim a As Single
    Dim X As Single
    Dim Y As Single


    'Get the positions
    a = Round(Rnd, 1) * 360 * DegreeToRadian


    X = effect(EffectIndex).X - (Sin(a) * effect(EffectIndex).Modifier)        '+ index / 20
    Y = effect(EffectIndex).Y + (Cos(a) * effect(EffectIndex).Modifier)        '+ index / 20


    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 1, 0.2 + (Rnd * 0.3), 0.2, 0.6 + (Rnd * 0.4), 0.06 + (Rnd * 0.2)

End Sub

Private Sub Effect_Explode_Update(ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    effect(EffectIndex).Modifier = effect(EffectIndex).Modifier + 4
    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Then

                    'Reset the particle
                    Effect_Explode_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Misile_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Direction As Integer = 180) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Misile_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Misile        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = -5000        'Loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(15)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        'Effect_Misile_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Public Function Engine_RectDistance(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal MaxXDist As Long, ByVal MaxYDist As Long) As Byte
    '*****************************************************************
    'Check if two tile points are in the same area
    'More info: http://www.vbgore.com/GameClient.TileEngine.Engine_RectDistance
    '*****************************************************************

    If Abs(X1 - X2) < MaxXDist + 1 Then
        If Abs(Y1 - Y2) < MaxYDist + 1 Then
            Engine_RectDistance = True
        End If
    End If

End Function

Private Sub Effect_Misile_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Reset
    '*****************************************************************
    Dim Color As Single
    Color = (Rnd * 0.4)
    If effect(EffectIndex).TargetAA = 0 Then effect(EffectIndex).TargetAA = Engine_GetAngle(effect(EffectIndex).X, effect(EffectIndex).Y, effect(EffectIndex).GoToX, effect(EffectIndex).GoToY)
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * 20, effect(EffectIndex).Y - 10 + Rnd * 20, -Sin((effect(EffectIndex).TargetAA + (Rnd * 50) - 35) * DegreeToRadian) * 8, Cos((effect(EffectIndex).TargetAA + (Rnd * 50) - 35) * DegreeToRadian) * 8, 0, 0
    effect(EffectIndex).Particles(Index).ResetColor 0.5 + Color, 0.5 + Color, 0.5 + Color, 0.4 + (Rnd * 0.2), 0.2 + (Rnd * 0.07)

End Sub

Private Sub Effect_Misile_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Or Not Engine_RectDistance(effect(EffectIndex).X, effect(EffectIndex).Y, effect(EffectIndex).Particles(LoopC).sngX, effect(EffectIndex).Particles(LoopC).sngY, 32, 32) Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Or effect(EffectIndex).Progression = -5000 Then

                    'Reset the particle
                    Effect_Misile_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Holy_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Direction As Integer = 180, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Holy_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Holy        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(24)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Holy_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Holy_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Reset
    '*****************************************************************
    Dim V As Integer
    V = RandomNumber(1, 4)
    'Reset the particle
    Select Case V
        Case 1
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X, effect(EffectIndex).Y, 2 + Rnd * 1, 0, 0, 0, effect(EffectIndex).X, effect(EffectIndex).Y
        Case 2
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X, effect(EffectIndex).Y, 0, 2 + Rnd * 1, 0, 0, effect(EffectIndex).X, effect(EffectIndex).Y
        Case 3
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X, effect(EffectIndex).Y, -2 - Rnd * 1, 0, 0, 0, effect(EffectIndex).X, effect(EffectIndex).Y
        Case 4
            effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X, effect(EffectIndex).Y, 0, -2 - Rnd * 1, 0, 0, effect(EffectIndex).X, effect(EffectIndex).Y
    End Select

    effect(EffectIndex).Particles(Index).ResetColor 0.8 + Rnd * 0.1, 0.8 + Rnd * 0.1, 0.6 + (Rnd * 0.2), 0.6 + (Rnd * 0.2), 0.02 + (Rnd * 0.07)

End Sub

Private Sub Effect_Holy_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.3 Then        'Or Effect(EffectIndex).Particles(LoopC).sngY + 40 < Effect(EffectIndex).y Or Effect(EffectIndex).Particles(LoopC).sngY - 40 > Effect(EffectIndex).y Or Effect(EffectIndex).Particles(LoopC).sngX - 40 > Effect(EffectIndex).x Or Effect(EffectIndex).Particles(LoopC).sngX + 40 < Effect(EffectIndex).x Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Or effect(EffectIndex).Progression = -5000 Then


                    'Reset the particle
                    Effect_Holy_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub
Function Effect_Spell_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional SizeP As Single = 4, Optional size As Byte = 10, Optional R As Single = 1, Optional g As Single = 1, Optional b As Single = 1, Optional ByVal Direction As Integer = 180, Optional ByVal Progression As Single = 1, Optional Ray As Byte = 5, Optional a As Single = 4.09) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Spell_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Spell        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect

    effect(EffectIndex).R = R
    effect(EffectIndex).g = g
    effect(EffectIndex).b = b
    effect(EffectIndex).size = size
    effect(EffectIndex).Ray = Ray
    effect(EffectIndex).SizeP = SizeP

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(SizeP)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_Spell_Reset EffectIndex, LoopC, size, R, g, b, a
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Spell_Reset(ByVal EffectIndex As Integer, ByVal Index As Long, ByVal size As Byte, ByVal R As Single, ByVal g As Single, ByVal b As Single, a As Single)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Reset
    '*****************************************************************

    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X - 10 + Rnd * size, effect(EffectIndex).Y - 10 + Rnd * size, Rnd * 0 * RandomNumber(-1, 1), Rnd * 0 * RandomNumber(-1, 1), 0, 0
    effect(EffectIndex).Particles(Index).ResetColor R / 2 + (R / 2 * Rnd), g / 2 + (g / 2 * Rnd), b / 2 + (b / 2 * Rnd), 0.8 + (Rnd * 0.2), 0.1 + (Rnd * a)

End Sub

Private Sub Effect_Spell_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.3 And RandomNumber(1, effect(EffectIndex).Ray) = 1 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Then        'Or Effect(EffectIndex).Progression = -5000 Then


                    'Reset the particle
                    Effect_Spell_Reset EffectIndex, LoopC, effect(EffectIndex).size, effect(EffectIndex).R, effect(EffectIndex).g, effect(EffectIndex).b, effect(EffectIndex).a

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_Necro_Begin(ByVal X As Single, ByVal Y As Single, ByVal Gfx As Integer, ByVal Particles As Integer, Optional ByVal Direction As Integer = 180, Optional ByVal Progression As Single = 1) As Integer
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Begin
    '*****************************************************************
    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot
    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_Necro_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_Necro        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles - Particles * 0.25        'Set the number of particles
    effect(EffectIndex).Used = True        'Enabled the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Direction = Direction        'The direction the effect is animat
    effect(EffectIndex).Progression = Progression        'Loop the effect

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(16)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)
    effect(EffectIndex).TargetAA = 0
    'Create the particles
    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        'Effect_Necro_Reset EffectIndex, LoopC
    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_Necro_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    'Static TargetA As Single
    Dim Co As Single
    Dim Si As Single
    'Calculate the angle

    If effect(EffectIndex).TargetAA = 0 And effect(EffectIndex).GoToX <> -30000 Then effect(EffectIndex).TargetAA = Engine_GetAngle(effect(EffectIndex).X, effect(EffectIndex).Y, effect(EffectIndex).GoToX, effect(EffectIndex).GoToY) + 180

    Si = Sin(effect(EffectIndex).TargetAA * DegreeToRadian)
    Co = Cos(effect(EffectIndex).TargetAA * DegreeToRadian)

    'Reset the particle
    If RandomNumber(1, 2) = 2 Then
        'Effect(EffectIndex).Particles(index).ResetIt Effect(EffectIndex).x, Effect(EffectIndex).y, Co * Sin(Effect(EffectIndex).Progression * 3) * 20, Si * Sin(Effect(EffectIndex).Progression * 3) * 20, 0, 0
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + Co * Sin(effect(EffectIndex).Progression) * 25, effect(EffectIndex).Y + Si * Sin(effect(EffectIndex).Progression) * 25, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 0.2, 0.2 + (Rnd * 0.5), 1, 0.5 + (Rnd * 0.2), 0.1 + (Rnd * 4.09)
    Else
        'Effect(EffectIndex).Particles(index).ResetIt Effect(EffectIndex).x, Effect(EffectIndex).y, Co * Sin(Effect(EffectIndex).Progression * 3) * -20, Si * Sin(Effect(EffectIndex).Progression * 3) * -20, 0, 0
        effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + Co * Sin(effect(EffectIndex).Progression) * -25, effect(EffectIndex).Y + Si * Sin(effect(EffectIndex).Progression) * -25, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 1, 0.2 + (Rnd * 0.5), 0.2, 0.7 + (Rnd * 0.2), 0.1 + (Rnd * 4.09)
    End If


End Sub

Private Sub Effect_Necro_Update(ByVal EffectIndex As Integer)
    '*****************************************************************
    'More info: http://www.vbgore.com/CommonCode.Particles.Effect_Fire_Update
    '*****************************************************************
    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Update the life span
    If effect(EffectIndex).Progression > 0 Then effect(EffectIndex).Progression = effect(EffectIndex).Progression - ElapsedTime

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0.5 And RandomNumber(1, 3) = 3 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Or effect(EffectIndex).Progression = -5000 Then


                    'Reset the particle
                    Effect_Necro_Reset EffectIndex, LoopC

                Else

                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else

                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Function Effect_LissajousTrip_Begin(ByVal X As Single, _
                                    ByVal Y As Single, _
                                    ByVal Gfx As Integer, _
                                    ByVal Particles As Integer, _
                                    Optional ByVal Progression As Single = 0) As Integer

    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_LissajousTrip_Begin]http://www.vbgore.com/CommonCode.Partic ... Trip_Begin[/url]
    '*****************************************************************

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function

    'Return the index of the used slot
    Effect_LissajousTrip_Begin = EffectIndex

    'Set The Effect's Variables
    effect(EffectIndex).EffectNum = EffectNum_LissajousTrip        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Gfx = Gfx        'Set the graphic
    effect(EffectIndex).Progression = Progression
    effect(EffectIndex).KillWhenAtTarget = True        'End the effect when it reaches the target (progression = 0)
    effect(EffectIndex).KillWhenTargetLost = True        'End the effect if the target is lost (progression = 0)

    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount

    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(8)        'Size of the particles

    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_LissajousTrip_Reset EffectIndex, LoopC

    Next LoopC

    'Set The Initial Time
    effect(EffectIndex).PreviousFrame = GetTickCount

End Function

Private Sub Effect_LissajousTrip_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_LissajousTrip_Reset]http://www.vbgore.com/CommonCode.Partic ... Trip_Reset[/url]
    '*****************************************************************

    Dim X As Single
    Dim Y As Single
    Dim a As Single

    effect(EffectIndex).Progression = effect(EffectIndex).Progression + 0.01

    a = effect(EffectIndex).Progression

    If RandomNumber(1, 2) = 1 Then
        X = effect(EffectIndex).X - (Sin(a)) * 120
        Y = effect(EffectIndex).Y + Cos(5 * a) * 20        'The 40s state the radius of circle
        effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 0.1 * (Rnd * 0.5), 0.1 * (Rnd * 0.5), 0.1 * (Rnd * 0.5), 1, 0.2 + (Rnd * 0.2)
    Else
        X = effect(EffectIndex).X - (Sin(a)) * 120
        Y = effect(EffectIndex).Y - Cos(5 * a) * 20        'The 40s state the radius of circle
        effect(EffectIndex).Particles(Index).ResetIt X, Y, 0, 0, 0, 0
        effect(EffectIndex).Particles(Index).ResetColor 0.05 * (Rnd * 0.5), 0.05 * (Rnd * 0.5), 0.05 * (Rnd * 0.5), 1, 0.2 + (Rnd * 0.2)
    End If

End Sub

Private Sub Effect_LissajousTrip_Update(ByVal EffectIndex As Integer)

    '*****************************************************************
    'More info: [url=http://www.vbgore.com/CommonCode.Particles.Effect_LissajousTrip_Update]http://www.vbgore.com/CommonCode.Partic ... rip_Update[/url]
    '*****************************************************************

    Dim ElapsedTime As Single
    Dim LoopC As Long

    'Calculate The Time Difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go Through The Particle Loop
    For LoopC = 0 To effect(EffectIndex).ParticleCount

        'Check If Particle Is In Use
        If effect(EffectIndex).Particles(LoopC).Used Then

            'Update The Particle
            effect(EffectIndex).Particles(LoopC).UpdateParticle ElapsedTime

            'Check if the particle is ready to die
            If effect(EffectIndex).Particles(LoopC).SngA <= 0 Then

                'Check if the effect is ending
                If effect(EffectIndex).Progression > 0 Then

                    'Reset the particle
                    Effect_LissajousTrip_Reset EffectIndex, LoopC
                Else
                    'Disable the particle
                    effect(EffectIndex).Particles(LoopC).Used = False

                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1

                    'Check if the effect is out of particles
                    If effect(EffectIndex).ParticlesLeft = 0 Then effect(EffectIndex).Used = False

                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).PartVertex(LoopC).Colour = 0

                End If

            Else
                'Set the particle information on the particle vertex
                effect(EffectIndex).PartVertex(LoopC).Colour = D3DColorMake(effect(EffectIndex).Particles(LoopC).SngR, effect(EffectIndex).Particles(LoopC).SngG, effect(EffectIndex).Particles(LoopC).SngB, effect(EffectIndex).Particles(LoopC).SngA)
                effect(EffectIndex).PartVertex(LoopC).X = effect(EffectIndex).Particles(LoopC).sngX
                effect(EffectIndex).PartVertex(LoopC).Y = effect(EffectIndex).Particles(LoopC).sngY

            End If

        End If

    Next LoopC

End Sub

Sub Engine_Weather_Update()
    If bRain And CurMapAmbient.Rain Then
        If WeatherEffectIndex <= 0 Then
            WeatherEffectIndex = Effect_Rain_Begin(9, 100)
        ElseIf effect(WeatherEffectIndex).EffectNum <> EffectNum_Rain Then
            Effect_Kill WeatherEffectIndex
            WeatherEffectIndex = Effect_Rain_Begin(9, 100)
        ElseIf Not effect(WeatherEffectIndex).Used Then
            WeatherEffectIndex = Effect_Rain_Begin(9, 100)
        End If
    End If

    If CurMapAmbient.Snow Then
        If WeatherEffectIndex <= 0 Then
            WeatherEffectIndex = Effect_Snow_Begin(14, 200)
        ElseIf effect(WeatherEffectIndex).EffectNum <> EffectNum_Snow Then
            Effect_Kill WeatherEffectIndex
            WeatherEffectIndex = Effect_Snow_Begin(14, 200)
        ElseIf Not effect(WeatherEffectIndex).Used Then
            WeatherEffectIndex = Effect_Snow_Begin(14, 200)
        End If
    End If

    If CurMapAmbient.Fog <> -1 Then
        Engine_Weather_UpdateFog
    End If

    If OnRampageImgGrh <> 0 Then
        DDrawTransGrhIndextoSurface OnRampageImgGrh, 0, 0, 0, Normal_RGBList(), 0, True
    End If

End Sub

Sub Engine_Weather_UpdateFog()
    '*****************************************************************
    'Update the fog effects
    '*****************************************************************

    Dim i As Long
    Dim X As Long
    Dim Y As Long
    Dim CC(3) As Long
    Dim ElapsedTime As Single
    ElapsedTime = Engine_ElapsedTime

    If WeatherFogCount = 0 Then WeatherFogCount = 13

    WeatherFogX1 = WeatherFogX1 + (ElapsedTime * (0.018 + Rnd * 0.01)) + (LastOffsetX - ParticleOffsetX)
    WeatherFogY1 = WeatherFogY1 + (ElapsedTime * (0.013 + Rnd * 0.01)) + (LastOffsetY - ParticleOffsetY)

    Do While WeatherFogX1 < -512
        WeatherFogX1 = WeatherFogX1 + 512
    Loop
    Do While WeatherFogY1 < -512
        WeatherFogY1 = WeatherFogY1 + 512
    Loop
    Do While WeatherFogX1 > 0
        WeatherFogX1 = WeatherFogX1 - 512
    Loop
    Do While WeatherFogY1 > 0
        WeatherFogY1 = WeatherFogY1 - 512
    Loop

    WeatherFogX2 = WeatherFogX2 - (ElapsedTime * (0.037 + Rnd * 0.01)) + (LastOffsetX - ParticleOffsetX)
    WeatherFogY2 = WeatherFogY2 - (ElapsedTime * (0.021 + Rnd * 0.01)) + (LastOffsetY - ParticleOffsetY)
    Do While WeatherFogX2 < -512
        WeatherFogX2 = WeatherFogX2 + 512
    Loop
    Do While WeatherFogY2 < -512
        WeatherFogY2 = WeatherFogY2 + 512
    Loop
    Do While WeatherFogX2 > 0
        WeatherFogX2 = WeatherFogX2 - 512
    Loop
    Do While WeatherFogY2 > 0
        WeatherFogY2 = WeatherFogY2 - 512
    Loop

    'Render fog 2
    X = 2
    Y = -1

    CC(0) = D3DColorARGB(CurMapAmbient.Fog, 255, 255, 255)
    CC(1) = CC(0)
    CC(2) = CC(0)
    CC(3) = CC(0)

    For i = 1 To WeatherFogCount
        DDrawTransGrhIndextoSurface 27300, (X * 512) + WeatherFogX2, (Y * 512) + WeatherFogY2, 0, CC(), 0, False
        X = X + 1
        If X > (1 + (ScreenWidth \ 512)) Then
            X = 0
            Y = Y + 1
        End If
    Next i

    'Render fog 1
    X = 0
    Y = 0

    CC(0) = D3DColorARGB(CurMapAmbient.Fog / 2, 255, 255, 255)
    CC(1) = CC(0)
    CC(2) = CC(0)
    CC(3) = CC(0)

    For i = 1 To WeatherFogCount
        DDrawTransGrhIndextoSurface 27301, (X * 512) + WeatherFogX1, (Y * 512) + WeatherFogY1, 0, CC(), 0, False
        X = X + 1
        If X > (2 + (ScreenWidth \ 512)) Then
            X = 0
            Y = Y + 1
        End If
    Next i

End Sub

Function Effect_BloodSpray_Begin(ByVal X As Single, _
                                 ByVal Y As Single, _
                                 ByVal Particles As Integer, _
                                 ByVal Direction As Single, _
                                 Optional ByVal Intensity As Single = 1) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_BloodSpray_Begin = EffectIndex
    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_BloodSpray        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    effect(EffectIndex).Direction = Direction        'Direction
    effect(EffectIndex).Modifier = Intensity
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(7)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_BloodSpray_Reset EffectIndex, LoopC

    Next LoopC

    'Set the initial time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_BloodSpray_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    'Reset the particle

    With effect(EffectIndex)
        .Particles(Index).ResetIt .X + (Rnd * 16) - 8, .Y + (Rnd * 32) - 16, Sin((.Direction - 10 + (Rnd * 20)) * DegreeToRadian) * (30 * .Modifier * Rnd), -Cos((.Direction - 10 + (Rnd * 20)) * DegreeToRadian) * (30 * .Modifier * Rnd), 0, 0, -10, -2 - (Rnd * 30), 8 + Rnd * 4
        .Particles(Index).ResetColor 1, 1, 1, 0.8, 0
    End With

End Sub

Private Sub Effect_BloodSpray_Update(ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long
    Dim TileX As Long
    Dim TileY As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        With effect(EffectIndex).Particles(LoopC)

            'Check if particle is in Use

            If .Used Then
                'Update the particle
                .UpdateParticle ElapsedTime
                'Don't pass any walls/etc
                TileX = Engine_SPtoTPX(.sngX)
                TileY = Engine_SPtoTPY(.sngY)

                If TileX < 1 Then
                    .sngZ = 1.1
                ElseIf TileY < 1 Then
                    .sngZ = 1.1
                ElseIf TileX > 82 Then
                    .sngZ = 1.1
                ElseIf TileY > 92 Then
                    .sngZ = 1.1
                End If

                If .sngZ <> 1.1 Then
                    'If MapData(TileX, TileY).BlockedAttack Then
                    '.sngZ = 1.1
                    'End If
                End If

                'Blood trails

                If LoopC = 0 Or LoopC Mod 15 = 0 Then
                    If Int(Rnd * 3) = 0 Then
                        If Int(Rnd * 2) = 0 Then
                            Engine_Blood_Create .sngX + ParticleOffsetX, .sngY + ParticleOffsetY, 2
                        Else
                            Engine_Blood_Create .sngX + ParticleOffsetX, .sngY + ParticleOffsetY, 1
                        End If
                    End If
                End If

                'Check if to kill off the particle

                If .sngZ > 1 Then
                    'Disable the particle
                    .Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).Particles(LoopC).SngA = 0

                    'Check if we lost all the particles

                    If effect(EffectIndex).ParticlesLeft <= 0 Then effect(EffectIndex).Used = False
                    'Create the blood splatter
                    Engine_Blood_Create .sngX + ParticleOffsetX, .sngY + ParticleOffsetY, 0
                Else
                    'Set the particle information on the particle vertex
                    effect(EffectIndex).PartVertex(LoopC).Colour = 1258291200
                    effect(EffectIndex).PartVertex(LoopC).X = .sngX
                    effect(EffectIndex).PartVertex(LoopC).Y = .sngY
                End If
            End If

        End With

    Next LoopC

End Sub

Function Effect_BloodSplatter_Begin(ByVal X As Single, _
                                    ByVal Y As Single, _
                                    ByVal Particles As Integer) As Integer

    Dim EffectIndex As Integer
    Dim LoopC As Long

    'Get the next open effect slot
    EffectIndex = Effect_NextOpenSlot

    If EffectIndex = -1 Then Exit Function
    'Return the index of the used slot
    Effect_BloodSplatter_Begin = EffectIndex
    'Set the effect's variables
    effect(EffectIndex).EffectNum = EffectNum_BloodSplatter        'Set the effect number
    effect(EffectIndex).ParticleCount = Particles        'Set the number of particles
    effect(EffectIndex).Used = True        'Enable the effect
    effect(EffectIndex).X = X        'Set the effect's X coordinate
    effect(EffectIndex).Y = Y        'Set the effect's Y coordinate
    'Set the number of particles left to the total avaliable
    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticleCount
    'Set the float variables
    effect(EffectIndex).FloatSize = Effect_FToDW(7)        'Size of the particles
    'Redim the number of particles
    ReDim effect(EffectIndex).Particles(0 To effect(EffectIndex).ParticleCount)
    ReDim effect(EffectIndex).PartVertex(0 To effect(EffectIndex).ParticleCount)

    'Create the particles

    For LoopC = 0 To effect(EffectIndex).ParticleCount
        Set effect(EffectIndex).Particles(LoopC) = New Particle
        effect(EffectIndex).Particles(LoopC).Used = True

        Effect_BloodSplatter_Reset EffectIndex, LoopC

    Next LoopC

    'Set the initial time
    effect(EffectIndex).PreviousFrame = GetTickCount
End Function

Private Sub Effect_BloodSplatter_Reset(ByVal EffectIndex As Integer, ByVal Index As Long)

    Dim Direction As Single

    'Find the direction
    Direction = Rnd * 360
    'Reset the particle
    effect(EffectIndex).Particles(Index).ResetIt effect(EffectIndex).X + (Rnd * 16) - 8, effect(EffectIndex).Y + (Rnd * 32) - 16, Sin(Direction * DegreeToRadian) * (24 * Rnd), -Cos(Direction * DegreeToRadian) * (24 * Rnd), 0, 0, -25, -3 - (Rnd * 40), 10 + Rnd * 4
    effect(EffectIndex).Particles(Index).ResetColor 1, 0, 0, 0.8, 0
End Sub

Private Sub Effect_BloodSplatter_Update(ByVal EffectIndex As Integer)

    Dim ElapsedTime As Single
    Dim LoopC As Long
    Dim TileX As Long
    Dim TileY As Long

    'Calculate the time difference
    ElapsedTime = (GetTickCount - effect(EffectIndex).PreviousFrame) * 0.01
    effect(EffectIndex).PreviousFrame = GetTickCount

    'Go through the particle loop

    For LoopC = 0 To effect(EffectIndex).ParticleCount

        With effect(EffectIndex).Particles(LoopC)

            'Check if particle is in Use

            If .Used Then
                'Update the particle
                .UpdateParticle ElapsedTime
                'Don't pass any walls/etc
                TileX = Engine_SPtoTPX(.sngX)
                TileY = Engine_SPtoTPY(.sngY)

                If TileX < 1 Then
                    .sngZ = 1.1
                ElseIf TileY < 1 Then
                    .sngZ = 1.1
                ElseIf TileY > 92 Then
                    .sngZ = 1.1
                ElseIf TileY > 82 Then
                    .sngZ = 1.1
                End If

                If .sngZ <> 1.1 Then
                    'If MapData(TileX, TileY).BlockedAttack Then
                    '.sngZ = 1.1
                    'End If
                End If

                'Blood trails

                If LoopC = 0 Or LoopC Mod 10 = 0 Then
                    If Int(Rnd * 3) = 0 Then
                        If Int(Rnd * 2) = 0 Then
                            Engine_Blood_Create .sngX + ParticleOffsetX, .sngY + ParticleOffsetY, 2
                        Else
                            Engine_Blood_Create .sngX + ParticleOffsetX, .sngY + ParticleOffsetY, 1
                        End If
                    End If
                End If

                'Check if to kill off the particle

                If .sngZ > 1 Then
                    'Disable the particle
                    .Used = False
                    'Subtract from the total particle count
                    effect(EffectIndex).ParticlesLeft = effect(EffectIndex).ParticlesLeft - 1
                    'Clear the color (dont leave behind any artifacts)
                    effect(EffectIndex).Particles(LoopC).SngA = 0

                    'Check if we lost all the particles

                    If effect(EffectIndex).ParticlesLeft <= 0 Then effect(EffectIndex).Used = False
                    'Create the blood splatter
                    Engine_Blood_Create .sngX + ParticleOffsetX, .sngY + ParticleOffsetY, 0
                Else
                    'Set the particle information on the particle vertex
                    effect(EffectIndex).PartVertex(LoopC).Colour = 1258291200
                    effect(EffectIndex).PartVertex(LoopC).X = .sngX
                    effect(EffectIndex).PartVertex(LoopC).Y = .sngY
                End If
            End If

        End With

    Next LoopC

End Sub