Exploding Objects

//-----------
//Landmine
//-----------
integer MyChannel = 7;
vector pos; // Used to store the current position.

// Follows the function used to rez in random position a burst of
// ten bullets.
// Be sure that they are temporary prims!

burst()
{

// The bullet contained into your object's inventory is rezzed at
// the acquired position with random initial velocity and zero
// rotation.

llRezObject("piece_1", pos, < llFrand(9) + llFrand(-9),
llFrand(9) + llFrand(-9),
llFrand(9) > ,
ZERO_ROTATION, 0);

}

default
{
on_rez(integer start_param)
{
llResetScript();
}
// Script is resetted to its default values on object's rezzing
// (state_entry section).

state_entry()
{
llListen(MyChannel, "", NULL_KEY, "");
llSetAlpha(1, ALL_SIDES);
// This makes your object visible.

llSetStatus(STATUS_PHANTOM, FALSE);
// This makes your object solid.

pos = llGetPos();
// Used to acquire the actual position.

pos = pos + < 0.0, 0.0, 0.5 > ;
// Used to add a little offset to the bullets rezzing point.
}

    listen(integer channel, string name, key id, string message)
    {
    if (channel == MyChannel)
        {
        if (message == "investigate")
            {
            llSetAlpha(0, ALL_SIDES);
            // This makes your object invisible.

            llSetStatus(STATUS_PHANTOM, TRUE);
            // This makes your object "phantom" (non solid).

            llSay(0, llDetectedName(0) + " you just stepped on a landmine!");
            // Whenever someone walks on your object, will receive this
            // message.

            burst();
            // Bullets are rezzed.

            llSleep(20);
            // This makes the script sleep for 600 seconds (10 minutes)
            // before your object's initial status is restored.

            llResetScript();
            // Script is resetted and your object's initial status
            // is restored (state_entry section).
            }
        }
    }
}

default
{
on_rez(integer start_params)
{
//anything you want to do when this thing is rezzed from your inventory, like maybe llResetScript()
}
state_entry()
{
//Anything that needs to be initialized, like a llListen handle, llSetAlpha(1.0), etc.
//Oh, yes, and llPreloadSound("Big Bang") so that it's ready to play later
}
aTriggeringEvent  // Like listen, touch_start, or collision_start.
// The specific event you choose will determine what syntax is necessary here
{
llSetAlpha(0.0);
llParticleSystem( [//all of its parameters go here
]);
llRezObject("myScaryObject",llGetPos()+< 0,0,0.1>,ZERO_VECTOR,ZERO_ROTATION,1);
llPlaySound("BigBang",1.0);
llSetTimerEvent(10); // This sets the timer to wait 10 seconds before restarting everything
}
timer()
{
llResetScript();
}
}

//-----------
//Landmine
//-----------
integer MyChannel = 7;
vector pos; // Used to store the current position.

// Follows the function used to rez in random position a burst of
// ten one bullets. 
// Be sure that they are temporary prims!
// Temporary prims have a lifetime of close to one hour. To make them
// disappear faster, you'll need to script them individually to llDie 
burst()
{

// The bullet contained into your object's inventory is rezzed at
// the acquired position with random initial velocity and zero
// rotation.

llRezObject("piece_1", pos, < llFrand(9) + llFrand(-9),
llFrand(9) + llFrand(-9),
llFrand(9) > ,
ZERO_ROTATION, 0);

}

default
{
on_rez(integer start_param)
{
llResetScript();
}
// Script is resetted to its default values on object's rezzing
// (state_entry section).

state_entry()
{
llListen(MyChannel, "", NULL_KEY, "");
llSetAlpha(1, ALL_SIDES);
// This makes your object visible.

llSetStatus(STATUS_PHANTOM, FALSE);
// This makes your object solid.

pos = llGetPos();
// Used to acquire the actual position.

pos = pos + < 0.0, 0.0, 0.5 > ;
// Used to add a little offset to the bullets rezzing point.
// Or you could just put vector pos = llGetPos() + < 0,0,0.5> in the user defined function burst() instead of here and save a global variable
}

    listen(integer channel, string name, key id, string message)
    {
    if (channel == MyChannel) // Not needed since you already have filtered to listen 
// only on MyChannel in the llListen handle above
        {
        if (message == "investigate") // Try using either llToLower(message) == "investigate" 
// or llToUpper(message) == "INVESTIGATE" to avoid user uc/lc issues 
            {
            llSetAlpha(0, ALL_SIDES);
            // This makes your object invisible.

            llSetStatus(STATUS_PHANTOM, TRUE);
            // This makes your object "phantom" (non solid).

            llSay(0, llDetectedName(0) + " you just stepped on a landmine!");
// llDetectedName will not work in a listen event. If you want to use the avatar's name,
// you'll need llKey2Name(id) instead 
            // Whenever someone walks on your object, will receive this
            // message.

            burst();
            // Bullets are rezzed.

            llSleep(20);
            // This makes the script sleep for 600 seconds (10 minutes) actually 20 seconds
            // before your object's initial status is restored.

            llResetScript();
            // Script is resetted and your object's initial status
            // is restored (state_entry section).
            }
        }
    }
}

// Follows the function used to rez in random position a burst of
// ten one bullets. 
// Be sure that they are temporary prims!
// Temporary prims have a lifetime of close to one hour. To make them
// disappear faster, you'll need to script them individually to llDie 
burst()
{

// The bullet contained into your object's inventory is rezzed at
// the acquired position with random initial velocity and zero
// rotation.

llRezObject("piece_1", pos, < llFrand(9) + llFrand(-9),
llFrand(9) + llFrand(-9),
llFrand(9) > ,
ZERO_ROTATION, 0);

}

burst()
{
llSetAlpha(0.0);
llParticleSystem( [//all of its parameters go here
]);
llRezObject("myScaryObject",llGetPos()+< 0,0,0.1>,ZERO_VECTOR,ZERO_ROTATION,1);
llPlaySound("BigBang",1.0);
}