Update ball-games.r

Tidied up the ball function a bit