Code:
on *:INPUT:#: {
  if ($regex($1,^[^/]+.*,$)) {
  if ((!$istok(/ $readini($mircini, text, commandchar), $left($1, 1), 32)) && (!$ctrlenter) && (!$inpaste)) {
    if ($fline(#,$+(*,$1,*),1,1)) {
      say 13,1«9,1±11,1[ 9,1 $line(#,$v1,1) 11,1 ]9,1±13,1»  13,1«9,1±11,1[ 9,1 $2- 11,1 ]9,1±13,1»
    else {
      say 13,1«9,1±11,1[ 9,1 $+($chr(3),9,$1) 11,1 ]9,1±13,1»  13,1«9,1±11,1[ 9,1 $2- 11,1 ]9,1±13,1»
    } 
    haltdef
  }
}


See if that is what you want.