You can make thing simple with $regsubex and the first pattern you gave (I changed it a bit) :
Code:
on *:text:*:#:{
tokenize 32 $regsubex($1-,/^##\*#.*?#\*##/S,)
if ($left($1,1) == .) { dot part }
elseif ($v1 == !) { ! part }
else { others part }
}
A dot match any caracter so you cannot use a litteral dot in the pattern to match a dot, you have to escape it (for example), with a \ : \.

Last edited by Wims; 13/04/11 07:24 PM.
#mircscripting @ irc.swiftirc.net == the best mIRC help channel