Collision Ball

integer sec;   
default {
    state_entry () 
    {
        // Make sure that Physical is turned on
        llSetStatus (0, TRUE);
    }

    collision_start (integer total_number) 
    {
        do
        {
            // Set a vector 
            vector dist;

            // Force the x,y,z coordinate up
            dist.x = 1;
            dist.y = 2;
            dist.z = 1;

            // Scale the vector to a fixed length
            vector changed_vector = llVecNorm(dist)*1.5;

            // Apply the changed vector to the particle
            llApplyImpulse(changed_vector, FALSE);
            llSetForce( < 1,1,1 > , TRUE);
        }
        
        while(sec == 1);
            // Set the vector 
            vector dist;

            // Force the x,y,z coordinate up
            dist.x = 1;
            dist.y = -2;
            dist.z = 2;

            // Scale the vector to a fixed length
            vector changed_vector = llVecNorm(dist)*1.5;

            // Apply the changed vector to the particle
            llApplyImpulse(changed_vector, FALSE);
            //llSetForce( < 3,3,3 > , TRUE);
    
        }
        
  collision_end (integer total_number) 
    {
        do
        {
            // Set the vector
            vector dist;

            // Force the x,y,z coordinates up
            dist.x = 1;
            dist.y = 2;
            dist.z = 1;

            // Scale the vector to a fixed length
            vector changed_vector = llVecNorm(dist)*1.5;
            
            // Apply the changed vector to the particle
            llApplyImpulse(changed_vector, FALSE);
            //llSetForce( < 3,3,3 > , TRUE);
        } 
        
        while(sec == 1);
            // Set the vector
            vector dist;

            // Force the x,y,z coordinate up
            dist.x = 1;
            dist.y = -3;
            dist.z = -2;

            // Scale the vector to a fixed length
            vector changed_vector = llVecNorm(dist)*1.5;

            // Apply the changed vector to the particle
            llApplyImpulse(changed_vector, FALSE);
            //llSetForce( < 3,3,3 > , TRUE);
        
        }        
}