Forums Scripts & Popups nick script

;Name: Offensive Nicknames Auto Kick.
;Written By: JOMARO
;jomaro@zdnetmail.com
;http://welcome.to/jomaro
;Feb 2000
;=========================
;===Offensive Nick Kick===>
on @*:JOIN:#:{
  if (%offensive-nick-kick == on) {
    if ($nick isop $chan) || ($nick isvo $chan) || (guest isin $nick) { goto unset }
    if (coco isin $nick) || (shit isin $nick) || (goddamn isin $nick) || (dick isin $nick) || (slut isin $nick) || (bitch isin $nick) || (pussy isin $nick) || (fag isin $nick) || (horny isin $nick) || (nigger isin $nick) || (69 isin $nick) || (beaner isin $nick) || (sadam isin $nick) || (saddam isin $nick) || (qa7bah isin $nick) || (qawadah isin $nick) || (mam7onah isin $nick) || (fucker isin $nick) || (sex isin $nick) { goto warn }
    else { goto end }
    :warn
    set %offensive-chan $chan
    set %offensive-nick $nick
    .msg $chan 4 $nick 14Jouw nicknaam is hier niet toegestaan!! 10Je hebt nu4 60 seconden 10om dit te veranderen. 4Type /nick nieuwe-nick 3@ 12Room-Bot 3@
    .timer 1 60 kick-offensive-nick
    goto end
    :unset
    unset %offensive-chan
    unset %offensive-nick
    :end
  }
}
on @*:NICK:{
  if ($nick == %offensive-nick) {
    if (fuck isin $newnick) || (shit isin $newnick) || (goddamn isin $newnick) || (coco isin $newnick) || (slut isin $newnick) || (bitch isin $newnick) || (pussy isin $newnick) || (fag isin $newnick) || (horny isin $newnick) || (nigger isin $newnick) || (69 isin $newnick) || (beaner isin $newnick) || (sadam isin $newnick) || (saddam isin $newnick) || (qa7bah isin $newnick) || (qawadah isin $newnick) || (mam7onah isin $newnick) || (fucker isin $newnick) || (sex isin $newnick) { goto set }
    .msg $chan 4 $newnick 14Bedankt voor het veranderen van je nicknaam. 3@ 12Room-Bot 3@
    unset %offensive-nick
    unset %offensive-chan
    goto end
    :set
    set %offensive-nick $newnick
    halt
  }
  if (fuck isin $newnick) || (shit isin $newnick) || (goddamn isin $newnick) || (dick isin $newnick) || (slut isin $newnick) || (bitch isin $newnick) || (pussy isin $newnick) || (fag isin $newnick) || (horny isin $newnick) || (nigger isin $newnick) || (69 isin $newnick) || (beaner isin $newnick) || (sadam isin $newnick) || (saddam isin $newnick) || (qa7bah isin $newnick) || (qawadah isin $newnick) || (mam7onah isin $newnick) || (fucker isin $newnick) || (sex isin $newnick) { 
    set %on.cha.no 0
    :loop
    inc %on.cha.no
    set %on.cha $comchan($newnick,%on.cha.no)
    if (%on.cha == $null) { goto end }
    if ($me !isop %on.cha) { goto loop }
    if ($newnick isop %on.cha) || ($newnick isvo %on.cha) { goto loop }
    if (guest isin $newnick) { goto end }
    ban -u300 %on.cha $newnick 2
    kick %on.cha $newnick 4 $nick 14Jouw nicknaam is hier niet toegestaan!! 3@ 12Room-Bot 3@
    goto loop
    :end
    unset %on.cha %on.cha.no
  }
}    

alias kick-offensive-nick {
  if (%offensive-nick != $null) && (%offensive-nick ison %offensive-chan) {
    ban -u300 %offensive-chan %offensive-nick 2
    kick %offensive-chan %offensive-nick 4 $nick 14Jouw nicknaam is hier niet toegestaan!! 3@ 12Room-Bot 3@
    unset %offensive-chan
    unset %offensive-nick
  }
}
menu status,menubar,channel {
  Offensive Nicks Kick
  .ON:/set %offensive-nick-kick on | echo 3 *** De foute nick auto kick staat nu AAN
  .OFF:/set %offensive-nick-kick off | echo 3 *** De foute nick auto kick staat nu UIT
}
alias thank dialog -mo thank thank
dialog thank {
  title "Add-ons By Jomaro 2000"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by jomaro. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "jomaro@zdnetmail.com",4,10 80 180 15,center
  edit "http://welcome.to/jomaro",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://welcome.to/jomaro
on *:load:if ($version >= 5.51) { thank }

on @*:JOIN:#:{
  if (%offensive-nick-kick == on) {
    if ($nick(#,$nick,ov) || (guest isin $nick) { return }
    if ($regex($newnick,/fuck|shit|goddamn|dick|coco|slut|bitch|pussy|fag|horny|nigger|69|beaner|sadam|saddam|qa7bah|qawadah|mam7onah|sex/i)) {
      msg $chan 4 $nick 14Jouw nicknaam is hier niet toegestaan!! 10Je hebt nu4 60 seconden 10om dit te veranderen. 4Type /nick nieuwe-nick 3@ 12Room-Bot 3@
      .timeroffensive. $+ $nick 1 60 kick-offensive-nick # $nick
    }
  }
}
alias kick-offensive-nick {
  if ($2 ison $1) {
    ban -u300 $1-!*@*
    kick $1- 14Jouw nicknaam is hier niet toegestaan!! 3@ 12Room-Bot 3@
  }
}
on *:NICK:{
  if ($timer(offensive. $+ $nick)) {
    var %a = $v1
    if ($regex($newnick,/fuck|shit|goddamn|dick|coco|slut|bitch|pussy|fag|horny|nigger|69|beaner|sadam|saddam|qa7bah|qawadah|mam7onah|sex/i)) {
      .timeroffensive. $+ $newnick 1 $timer(%a).secs $replace($timer(%a).com,$nick,$newnick)
      .timeroffensive. $+ $nick off
    }
    else {
      var %i = 1
      while $comchan($newnick,%i) {
        var %a = $v1
        if ($me isop %a) && ($nick(%a,$newnick,r) { msg %a 4 $newnick 14Bedankt voor het veranderen van je nicknaam. 3@ 12Room-Bot 3@ }
        inc %i
    }
  }
  elseif ($regex($newnick,/fuck|shit|goddamn|dick|coco|slut|bitch|pussy|fag|horny|nigger|69|beaner|sadam|saddam|qa7bah|qawadah|mam7onah|sex/i)) {
    var %i = 1
    while $comchan($newnick,%i) {
      var %a = $v1
      if ($me isop %a) && ($nick(%a,$newnick,r) { kick-offensive-nick %a $newnick }
      inc %i
    }
  }
}