This looks promising...
\data\scripts\gfx\icicle.gfx :
procedure GFX_IciclePart.Init
{
speed.z \
srand 0, 2
speed.x \
srand 0, 2
aspeed.alpha \
srand 0, 2
aspeed.beta \
srand 0, 2
aspeed.gamma \
srand 0, 2
lifetime \
srand 20, 1
}
procedure GFX_IciclePart.Draw
{
alpha \
sawtooth 15120,-15120,-1,0
render_model
}
procedure GFX_IciclePart.Run
{
gravitation 8
check_collision
}
procedure GFX_IciclePart.Collision
{
reflect 0.2, 64, 128
get_objectdata "gfx_params"
if (gfxobj.param1 = 1) exit
gfxobj.param1 = 1
set_objectdata "gfx_params"
}
Anyone else want to pitch in here?
|