Dunno if it's going to be that easy.
The other 2 codes are both put into an alias already, which might help. I'm not going to work on this just yet, my priorities lie elsewhere. When I get to it though, this is what I'll be working on:

Code:
 
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|se
    var %link /(?<=^|\s)((?>\S{3,8}:\/\/|w{3}\56)\S+)|\56( $+ %domain $+ )\b/iS
    if ($findtok(%chanon1,#,1,32)) && ($nick(#,$nick,vr)) && ($regex($1-,%link)) {
      timeout # $nick | /mode # -b $nick
      msg # $nick You did not have permission to post a link, please ask a mod to !permit you.
      msg # /timeout $nick 1
    }
    elseif (($regex($1-,%purge)) && ($regml(1) = permit) && ($nick isop #) && ($$2 ison #)) {
      hadd -mz permit $v1 60 | notice $v1 You have 60 seconds to post a link. 
      msg # You now have 60 seconds to post a link!
    }
    elseif (($regml(1) = link on) && ($nick isop #)) {
      goto $iif(!$istok(%chanon1,#,32),a,b) | :a | set %chanon1 $addtok(%chanon,#,32)
      .msg # Link protection is now enabled, please ask a mod to !permit you.
      halt | :b | .msg # $nick $+ , Link protection is already enabled. $&
        $+($chr(2),#,$chr(2)) !
    }
    elseif (($regml(1) = link off) && ($nick isop #)) {
      goto $iif($istok(%chanon1,#,32),c,d) | :c | set %chanon1 $remtok(%chanon,#,1,32)
      .msg # Link protection is now disabled in: $+($chr(2),#)
      halt | :d | .msg # $nick $+ , Link protection is already disabled. $&
      }
  }
}


And:

Code:
on @*:text:*:#: bdwdwkb $1-
on @*:action:*:#: bdwdwkb $1-
on @*:notice:*:#: bdwdwkb $1-
alias -l bdwdwkb {
  if ($regex($1-,$+(/(?<![a-z\d])\Q,$replacecs(%badwords,\E,\\E\Q,$chr(32),\E|\Q),\E(?![a-z\d])/Si))) {
    inc $+(%,$site,#)
    if ($($+(%,$site,#),2) > 2) {
      .msg # /timeout $nick 180
      .msg # $nick has been timed out for 180 seconds due to cursing.
      unset $+(%,$site,#) 
    }
    elseif ($($+(%,$site,#),2) == 2) {
      .msg #  /timeout $nick 60
      .msg # $nick has been timed out for 60 seconds due to cursing.
    }
    else { .msg # $nick $+ , please do not use such language again. }
  }
}


Looking at it right now, it doesn't seem that hard at all, I just don't want to dedicate time to it right now as it isn't a priority.



Nillens @ irc.twitch.tv
Nillen @ irc.rizon.net