Some minor things that can come in handy.

on:

say $str( $chr(32),$calc(70 - $len($1-))) $+ $1-
&
say $str( $chr(32),$calc(35 - $calc($len($1-)/2))) $+ $1-

replace it with:

msg $active $str( $chr(32),$calc(70 - $len($1-))) $+ $1-
&
msg $active $str( $chr(32),$calc(35 - $calc($len($1-)/2))) $+ $1-

Further more nice code :)