Put in your remotes:

Code:
 

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 4<-cut } | /else { /say %first 4<-cut } 
    /say 4cut-> %cuttext 
    /halt 
  } 
}