Here's a more up-to-date version of the script...
Code:
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
    }
  }
}