Sorry your browser is not supported!

// run through emitters (physical emitters placed in the world)
emitterChild = firstEmitterChild

while emitterChild > -1

    // < update emitter elapsed etc... >
    
    // process emitter system
    systemChild = emitterSystem
    
    // process system sources emitter
    sourceChild = system(systemChild).firstChild
    
    while sourceChild > -1
    
        // < process spawning >
    
        sourceChild = nextSourceChild
         
    endwhile
    
    emitterChild = nextEmtterChild
    
endwhile

// Initails

// frame tick
oldTick                 as dword
newTick                 as dword : newTick = hitimer()
delta                   as float

// emitter
emitterAge              as float        // the length of time the emitter is active
emitterElapsed          as float        // the elapsed of the emitter used in calcs
emitterDelay            as float        // the amount of time to delay the emitter
emitterDuration         as float        // the amount of time the emitter runs for
emitterLoops            as integer      // the amount of emitter loops
bDelayfirstLoopOnly     as byte         // delay only the first loop

// loops
loopCount               as integer
loopDuration            as float
bProcessLoop            as byte

// Setup
sync on : sync rate 0

// set up emitter
emitterDelay            = 1.0
emitterDuration         = 2.0
emitterLoops            = 2
bDelayfirstLoopOnly     = 0

do : cls

    // update frame tick
    oldTick = newTick
    newTick = hitimer()
    delta   = (newTick-oldTick)*0.001
    
    // update emitter
    inc emitterAge, delta
    
    // check if theres any loops (no saftey for loops yet)
    if emitterLoops <> 0
        // check if theres a emit delay
        if emitterDelay <> 0
            // check if there a delay every loop or if theres a delay only on the first loop
            bProcessLoop = 1
            
            if (int(emitterAge / (loopDuration+emitterDelay)) > 0) && bDelayfirstLoopOnly
                bProcessLoop = 0
                emitterElapsed = wrap((emitterAge-emitterDelay),0,emitterDuration)
                loopCount = ((emitterAge-emitterDelay) / emitterDuration)
            endif
                
            if bProcessLoop
                emitterElapsed = wrap(emitterAge,0,(emitterDuration+emitterDelay))-emitterDelay
                if emitterElapsed <= 0 then emitterElapsed = 0
                loopCount = emitterAge / (emitterDuration+emitterDelay)        
            endif
            
        else
            // if no delay calc as normal
            emitterElapsed = wrap(emitterAge,0,emitterDuration)
            loopCount = emitterAge / emitterDuration
            
        endif
        
        // saftey
        if loopCount > emitterLoops
            emitterElapsed = 0
        endif
        
    else
        
        // check if there's a delay on are infinite loop and apply it
        if emitterDelay <> 0
        
            emitterElapsed = 0
            
            if (int(emitterAge / emitterDelay) > 0)
                emitterElapsed = emitterAge-emitterDelay
            endif
            
        else
            // if there isn't, use age as elapsed
            emitterElapsed = emitterAge
        endif
        
    endif
    
    // process spawning
    if emitterElapsed <> 0
        // <spawn>
    endif
    
    set cursor 0,0
    print "[Emitter]"
    print "Delay:                   "+str$(emitterDelay,1)
    print "Duration:                "+str$(emitterDuration,1)
    print "Loop Count:              "+str$(emitterLoops)  
    print "Delay first Loop Only:   "+str$(bDelayfirstLoopOnly)        
    print    
    print "Current Loop:            "+str$(loopCount)
    print "Age:                     "+str$(emitterAge,1)
    print "Elapsed:                 "+str$(emitterElapsed,1)

    sync
loop