MaxScript粒子流塌陷

也是帮网友写的。不过最后没用上。哈哈。

targetPF = $

startTime = AnimationRange.Start.Frame
endTime = AnimationRange.End.Frame

particlesCount = targetPF.numParticlesGenerated() 

particleMeshs = #()
particleMeshs[particlesCount] = undefined




for timeIndex = startTime to endTime do
(
    SliderTime = timeIndex
    for particID = 1 to particlesCount do
    (
        targetPF.particleID = particID
        if targetPF.particleShape != undefined  then
        (
            if particleMeshs[particID] == undefined do
            (
                particleMeshs[particID] = Editable_Mesh()
                particleMeshs[particID].mesh = targetPF.particleShape
                particleMeshs[particID].name = Uniquename "ParticleFlowCollapse"
                with animate on
                (
                    for tt = startTime to timeIndex do 
                    at time tt
                    (
                        zeroMatrix = matrix3 0
                        zeroMatrix.Position = targetPF.particleTM.Position
                        particleMeshs[particID].transform = zeroMatrix
                    )
                )
            )
            with animate on
            (
                particleMeshs[particID].transform = targetPF.particleTM
            )
        )
        else
        (
            if particleMeshs[particID] != undefined do 
            (
                with animate on
                (
                    zeroMatrix = particleMeshs[particID].transform
                    zeroMatrix.scale = [0,0,0]
                    particleMeshs[particID].transform = zeroMatrix
                )
            )
        )
    )
)