Font stripping - 08/10/08 01:49 AM
Can anyone help me with some code to strip the font code from mIRC please?
S Georgia;#000 general text
S Georgia;#000 general text
alias sfont { return $regsubex($1-,/S .+/i,1) } USE: on ^*:TEXT:*:#:{ echo -t $chan [ $nick ] $sfont($1-) haltdef }
alias sfont { return $regsubex($1-,/\[style.+\](.+)\[/style\]/i,\1) | halt } on ^*:TEXT:*:#:{ echo -t $chan [ $nick ] $chr(58) $sfont($1-) | haltdef }
alias sfont { return $remove($1-, S ,Trebuchet\bMS;,Comic\bSans\bMS;,,Franklin\bGothic\bBook;,Microsoft\bSans\bSerif;,Tahoma;,#FF0000,#000066,#6600CC,#0000CC,#0099FF,#660000 ) | halt } on ^*:TEXT:*:#:{ echo -t $chan [ $nick ] $chr(58) $sfont($1-) | haltdef }