Woo! Random "I started on another script and made an accident, here, take the accident!" day! It was supposed to do something else. But, it does what it does, and in order to find out what it does, in case you can't tell from the script, you'll need to test it out. Just don't do it on a channel that doesn't like flooding.

alias weird { set %weird on | echo -a Weird-Text is now on. }
alias weirdoff { unset %weird | echo -a Weird-Text is now off. }
on *:input:*: {
  if ($left($1,1) == /) { $1- | halt }
  if (%weird == on) {
    haltdef
    set %char 1
    while (%char <= $len($1-)) {
      msg $chan $left($1-,%char)
      inc %char
    }
  }
}