I got bored so I did a regex version =)

just change %n to w/e

alias msg {
  var %n = 40,%c = $1, %m = $2-
  while ($regex(%m,/^(?=.{ $+ %n $+ ,})(.{0, $+ %n $+ })[^$\w](.*)$/)) {
    msg %c $regml(1)
    %m = $regml(2)
  }
  msg %c %m
}