on :text::#:linkpost $1-
on :action::#:linkpost $1-
on :notice::#:linkpost $1-
alias -l linkpost {
if ((!allow) && (!$hfind(allow,$nick))) { inc -u4 %p
var %purge /^!(links o(n|ff)|(allow))\b/iS
var %domain com|edu|gov|mil|net|org|biz|info|name|museum|us|ca|uk|tv|png|gif|jpg|(dot)
var %link /(?<=^|\s)((?>\S{2,8}:\/\/|w{2}\56)\S+)|\56( $+ %domain $+ )\b/iS
if ($findtok(%chanon,#,1,22)) && ($nick(#,$nick,vr)) && ($regex($1-,%link)) {
msg $chan /timeout $nick | timer11 1 1 msg $chan /unban $nick | describe $chan $nick no posting links moron Kappa
}
elseif (($regex($1-,%purge)) && ($regml(1) = allow) && (($nick isop #) || ($nick == boy13y)) && ($$2 ison #)) {
hadd -mz allow $2 60 | describe # $2 You have 1 minute. to post a links. Hurry!(-(_)-)
}
elseif (($regml(1) = links on) && ($nick isop #)) {
goto $iif(!$istok(%chanon,#,22),a,b) | :a | set %chanon $addtok(%chanon,#,22)
describe # Links filter on
halt | :b | describe # Links filter is on you fool.
$+($chr(2),#,$chr(2)) !
}
elseif (($regml(1) = links off) && ($nick isop #)) {
goto $iif($istok(%chanon,#,22),c,d) | :c | set %chanon $remtok(%chanon,#,1,22)
describe # Links filter off
halt | :d | describe # Links filter has been disabled post away bishes Kappa
!
}
}
}
