Test:Scratchblocks4

define dance (speed) set [dist v] to ((speed) * (distance to (mouse-pointer v))) repeat until <(timer) > [10]> move (dist) steps next costume play note (pick random (40) to (100)) for (0.5) beats say [Wow! Scratch scripts on the Wiki!] end