Checks if the particle has been teleproted by PRPL this frame.

<-pid GetParticleHasTeleported not if
    <-pid 50 50 1 0 TeleportParticle
    #teleprot particle to 50 50 if it was not teleported this frame yet
endif