Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on @*:text:*:#:linkpost $1-
- on @*:action:*:#:linkpost $1-
- on @*:notice:*:#:linkpost $1-
- alias -l linkpost {
- if ((!%p) && (!$hfind(permit,$nick))) { inc -u4 %p
- var %purge /^!(link\so(n|ff)|(permit))\b/iS
- var %domain com|edu|gov|mil|net|org|biz|info|name|museum|us|ca|uk
- var %link /(?<=^|\s)((?>\S{3,8}:\/\/|w{3}\56)\S+)|\56( $+ %domain $+ )\b/iS
- if ($findtok(%chanon,#,1,32)) && ($nick(#,$nick,vr)) && ($regex($1-,%link)) {
- kick # $nick | /mode # -b $nick
- msg # $nick -> plz don't post links
- msg # /timeout $nick 30
- }
- elseif (($regex($1-,%purge)) && ($regml(1) = permit) && ($nick isop #) && ($$2 ison #)) {
- hadd -mz permit $v1 30 | notice $v1 You have 30 seconds to post a link. Starting now!
- }
- elseif (($regml(1) = link on) && ($nick isop #)) {
- goto $iif(!$istok(%chanon,#,32),a,b) | :a | set %chanon $addtok(%chanon,#,32)
- .msg # Link Protection Is Now on in: $+($chr(2),#)
- halt | :b | .msg # $nick $+ , my link protection is already on $&
- $+($chr(2),#,$chr(2)) !
- }
- elseif (($regml(1) = link off) && ($nick isop #)) {
- goto $iif($istok(%chanon,#,32),c,d) | :c | set %chanon $remtok(%chanon,#,1,32)
- .msg # Link Protection Is Now off in: $+($chr(2),#)
- halt | :d | .msg # $nick $+ , My link protection is already off $&
- !
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement