alias url_pattern { return m@(?:^| )((?:(?:https?|ircs?)://)?(?:(?:[-\w]+\.)+)[-\w]+(?:\d+)?(?:/(?:[-a-zA-Z;/\d#:?=&,_+]*))?)@ig } ; by Wims
alias isurl { ; by Wims
noop $regex(isurl,$1-,$url_pattern)
if ($prop == all) {
var %a 1,%url
while ($regml(isurl,%a) != $null) {
%url = %url $v1
inc %a
}
return $iif(%url,%url,0)
}
return $iif($prop isnum 0-,$regml(isurl,$prop),$iif($regml(isurl,0),$true,$false))
}
on *:text:*:#:{
if ($isurl($1-)) {
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # Stop posting links!
}
}