on *:INPUT:#:{
if ((/* iswm $1) && (!$ctrlenter)) return
var %mcllines = $ceil($calc($len($1-) / $maxchars))
var %mcllen = $floor($calc(($len($1-) + $len($str($target $+ ..,%mcllines))) / %mcllines)))
var %mclpre = $calc(%mcllen - $len($target $+ $chr(32)))
while ($left($1,%mclpre)) {
msg $target $v1
tokenize 32 $right($1,$+(-,%mclpre))
}
halt
}