action ball()
{
VECTOR ball_speed;
var soundtrack_handle;
ENTITY* ball;
ball = my;

ph_setgravity (vector(0, 0, -386)); // set the gravity
phent_settype (my, PH_RIGID, PH_SPHERE); // set the physics entity type
phent_setmass (my, 3, PH_SPHERE); // and its mass
phent_setfriction (my, 80); // set the friction
phent_setdamping (my, 40, 40); // set the damping
phent_setelasticity (my, 50, 20); // set the elasticity
while (1)
{
ball_speed.x = 25 * (key_cur - key_cul); // move the ball using the cursor keys
ball_speed.y = 25 * (key_cuu - key_cud); // 25 sets the x / y movement speeds
ball_speed.z = 0; // no need to move on the vertical axis
if (key_p)
{
freeze_mode = 1;
set(pause_pan,VISIBLE);
mouse_mode = 2;
}
phent_addtorqueglobal (my, ball_speed); // add a torque (an angular force) to the ball
camera.x = my.x - 300; // keep the camera 300 quants behind the ball
camera.y = my.y; // using the same y with the ball
camera.z = my.z + 100; // and place it at z = 1000 quants
camera.tilt = -10;
wait (1);
}
}