;>>836に便乗して俺も作ってみた。

#define WHITE 255
#define BALL_SPEED 50
#define BALL_SPIN 5

repeat
redraw 1 : redraw 0
await 40 : color : boxf

stick key
if key&256>0&(MoveFlag=0){
Goto_x = mousex
Goto_y = mousey
MoveFlag = BALL_SPEED
}

if MoveFlag{
ax = Ball_x : ay = Ball_y
Ball_x -= -Goto_x+Ball_x/MoveFlag+BALL_SPIN
Ball_y -= -Goto_y+Ball_y/MoveFlag
MoveFlag-=MoveFlag>1
if Ball_x=ax&(Ball_y=ay) : MoveFlag=0
}

palcolor WHITE
pos Ball_x ,Ball_y
mes "●"

loop