Simple Cut Script

on 1:input:*: {
  if ($len($1-) > 420) {
    { %pos = 420
      :loop
      if %pos < 390 goto end |
      %chara = $mid($1-,%pos,1)
      if $asc(%chara) == 32 goto end |
      %pos = %pos - 1
      goto loop
      :end
    }
    %first = $left($1-,%pos - 1)
    %cuttext = $remove($1-,%first)
    %prefix = $left(%first,4)
    %mtch = { /me  }
    if (%prefix == %mtch) { %metxt = $remove(%first,%mtch) | /me %metxt } | /else { /say %first }
    /say %cuttext
    /halt
  }
}