on *:input:*:{ if ($regex($1-,/^(?!\/|!|\.)/)) { msg $active $regsubex(d,$regsubex(c,$regsubex(b,$regsubex(a,$1-,/([[:punct:]])/g,$+($chr(3), 4, \1, $chr(15))), $& /(\S+)/g,$iif($strip(\1) ison # || $strip(\1) = $active, $+($chr(2),$v1,$chr(2)),\1)),/^(\S)/,$upper(\1)),/(\x28|\x29)/g,$+($chr(3),1,\1,$chr(15))) | halt } }
Powered by vBulletin®Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.