Forums Scripts & Popups raw 311

 raw 311:*: {
  if (%name != off) && ($nick !isop #) {
  ; the next line is from your post, and has been remarked simply because it's not necessary in the new code.
    ;    var %bad.name = gay [censored] [censored] bastard biatch bitch blowjob cock cunt dick [censored] fucker horny orgasm
    var %a = 1, %b = $hget(bad.name,0).item
    while %a <= %b {
      var %bad.name = $hget(bad.name,%a)
      if $istok($6-,%bad.name,32) { ban -ku60 #chat-room $2 2 14Unacceptable IrcName Detected }
      %a = %b
      inc %a
    }
    return $regsubex($1-,/\b( $+ %name $+ )\b/gi,$str(*,$len(\t)))
  }
  halt
} 
on *:start:{
;checks if hash table exists, and if it doesn't creates it
  if !$hget(bad.name) { .hmake bad.name 10 }
; checks if file containing hash items when not connected exists, and if it does, loads it into the hash table
  if $exists(bad.name.hsh) { .hload bad.name bad.name.hsh }
}
on *:exit:{
;saves the hash table overwriting the previous file if it exists
  .hsave -o bad.name bad.name.hsh
}
on *:disconnect:{
;saves the hash table overwriting the previous file if it exists
  .hsave -o bad.name bad.name.hsh
}
on *:op:#:{
; set userlevel of op to ops for command access restriction
  .auser -a op $opnick
}
on *:serverop:#:{
; set userlevel of op to ops for command access restriction
  .auser -a op $opnick
}
on op:nick:{
;switch nicks if an op changes their nick
  .ruser op $nick
  .auser -a op $newnick
}
;if an op leaves, remove op user level
on op:part:#:{
  .ruser op $nick
}
on *:kick:#:{
  .ruser op $knick
}
on op:quit:{
  .ruser op $nick
}
;remote access available to ops that are in the channel, although the command can be sent via pm
on op:text:!bad*:*:{
  bad.name $2
}

;direct access
menu * {
  Bad Name : bad.name $$?="Enter name to add or remove"
}
alias bad.name {
  if !$1 { .notice $nick No name specified }
  elseif $hfind(bad.name,$1,0) {
    .hdel bad.name $1
  }
  else .hadd -m bad.name $1 $1
}