Backwards typing script

To use:
/backwards channel/nick Your Text Here

/Backwards {
:start
inc %var.back 1
if (%var.back > $len($2-)) { msg $1 %var.backwards | unset %var.back* | halt }
set %var.back.right $right($2-,%var.back)
set %var.back.left $left(%var.back.right,1)
if (%var.back.left == $chr(32)) { set %var.backwards $addtok(%var.backwards,$chr(32),32) | goto start }
set %var.backwards %var.backwards $+ %var.back.left
goto start
}