[SafraN]

on *:input:#: if $regex($1,/^[!\.](n|c|m|o|h)$/Si) { $+($right($1,-1),s) $2- | set -u3 %axx $chan }

on ^*:notice:*:?: { haltdef | $iif(%axx,msg %axx $nick 2» $1-,echo -a 14© 7 $+ $nick $+ 5 $1-) }

on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { say $+($upper($left($1-,1)),$right($1-,-1)) | haltdef } }