Birth Script Help

Hi,

I am trying to write a simple script to emit a particle on a specified frame in PFlow. This is the Birth script I am using.

--------------------------------------------------

on ChannelsUsed pCont do
(
pCont.useTime = true
pCont.useAge = true
pCont.usePosition = true
pCont.useSpeed = true
)

on Init pCont do
(

)

on Proceed pCont do
(

pCont.AddParticle()
pCont.particleTime = 10
pCont.particleAge = 0
pCont.particlePosition = [0, 0, 0]
pCont.particleSpeed = [.1, 0, 0]

)

on Release pCont do
(

)

----------------------------------------------
For some reason this script creates particles on every single frame and substep, so I end up with hundreds of particles on top of each other.

Does anyone know how to fix this?

Thanks

Graham