on *:INPUT:#: {
if ((!$istok(/ $readini($mircini, text, commandchar), $left($1, 1), 32)) && (!$ctrlenter) && (!$inpaste) && ($1 != ,) && ($right($1,1) == ,)) {
if ($fline(#,$+(*,$left($1,-1),*),1,1)) {
say [color:red] 4 $2- $+ [/color] 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- +$ $2 +$ 11,1 ]9,1±13,1»
}
haltdef
}
}
}