while (1) {
if (key_cul) pXent_addforcecentral(Ball, vector(-0.1, 0, 0));
if (key_cur) pXent_addforcecentral(Ball, vector(0.1, 0, 0));
if (key_cuu) pXent_addforcecentral(Ball, vector(0, 0, 0.1));
if (key_cud) pXent_addforcecentral(Ball, vector(0, 0, -0.1));
// reset ball
if (key_shift) {
pXent_enable(Ball, 0);
vec_set (Ball.x, vector(0, 0, -64));
pXent_enable(Ball, 1);
wait(-1);
}
wait(1);
}