It's used to kick users with on join bad ident, nick and it also kick users who uses text, action, notice with swear words.

on @*:JOIN:#:{
  ; Bad IdentD Kicker
  if  ($nick isop #) return
  if (*!*FUCK*@* iswm $fulladdress) || (*!*PRICK*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) || (*!*BITCH*@* iswm $fulladdress) || (*!*WHORE*@* iswm $fulladdress) || (*!*BIATCH*@* iswm $fulladdress) || (*!*LUN*@* iswm $fulladdress) || (*!*ASSHOLE*@* iswm $fulladdress) || (*!*SEX*@* iswm $fulladdress) || (*!*BASTARD*@* iswm $fulladdress) || (*!*PUSSY*@* iswm $fulladdress) || (*!*CUNT*@* iswm $fulladdress) || (*!*SLUT*@* iswm $fulladdress) || (*!*GAY*@* iswm $fulladdress) || (*!*LESBIAN*@* iswm $fulladdress) || (*!*KDOR*@* iswm $fulladdress) || (*!*KADOY*@* iswm $fulladdress) && ( %badident == on ) {
    ban -u120 # $nick 3 | inc %knum 1
    kick $chan $nick %ver 4Sorry, You may have bad Ident in your fulladdres. Check it again! 13(Kick $chr(35) $+ %knum $+ )
  }
  ; Bad Nick Kicker
  if (fuck isin $nick) || (bitch isin $nick) || (biatch isin $nick) || (asshole isin $nick) || (whore isin $nick) || (prick isin $nick) || (bastard isin $nick) || (horney isin $nick) || (horny isin $nick) || (orgasm isin $nick) || (orgy isin $nick) || (pussy isin $nick) || (cunt isin $nick) || (lun isin $nick) || (nigger isin $nick) || (nigga isin $nick) || (slut isin $nick) || (kdor isin $nick) || (kadoy isin $nick) || (ass isin $nick) || (gay isin $nick) || (lesbian isin $nick) && ( %badnick == on ) {
    ban -u120 # $nick 3 | inc %knum 1
    kick $chan $nick %ver 4Sorry, Look bad on your. Come again with a new nick. 13(Kick $chr(35) $+ %knum $+ )
  }
}
on *:NICK: {
  ; Nick-Kick
  if if ($nick !isop #) && (fuck isin $newnick) || (bitch isin $newnick) || (biatch isin $newnick) || (asshole isin $newnick) || (whore isin $newnick) || (prick isin $newnick) || (bastard isin $newnick) || (horney isin $newnick) || (horny isin $newnick) || (orgasm isin $newnick) || (orgy isin $newnick) || (pussy isin $newnick) || (cunt isin $newnick) || (lun isin $newnick) || (nigger isin $newnick) || (nigga isin $newnick) || (slut isin $newnick) || (kdor isin $newnick) || (kadoy isin $newnick) || (gay isin $newnick) || (lesbian isin $newnick) || (ass isin $newnick) && ( %badnick == on ) {
    var %i = 0
    while (%i < $comchan($newnick,0)) { 
      inc %i 
      if ($me isop $comchan($newnick,%i)) {
        ban -u120 $comchan($newnick,%i) $newnick 3 | inc %knum 1
        kick $comchan($newnick,%i) $newnick %ver 4Sorry, No place for bad nick in here. 13(Kick $chr(35) $+ %knum $+ )
      }      
    }      
  }
}      

on @*:TEXT:*:#: {
  if ($nick !isop #) {
    var %i = 0
    while (%i < $numtok(%swear.words,32)) {
      inc %i
      var %current.word = $gettok(%swear.words,%i,32)
      if ($istok($strip($1-),%current.word,32) == $true) && ( %swear == on ) {
        ban -u120 # $nick 3 | inc %knum 1
        kick # $nick 4 (You said %current.word $+ ) is a type of badwords. 13(Kick $chr(35) $+ %knum $+ ) 
      }
    }
  }
}

on @*:ACTION:*:#: {
  if ($nick !isop #) {
    var %i = 0
    while (%i < $numtok(%swear.words,32)) {
      inc %i
      var %current.word = $gettok(%swear.words,%i,32)
      if ($istok($strip($1-),%current.word,32) == $true) && ( %swear == on ) {
        ban -u120 # $nick 3 | inc %knum 1
        kick # $nick 4 (You said %current.word $+ ) is a type of badwords. 13(Kick $chr(35) $+ %knum $+ ) 
      }
    }
  }
}

on @*:NOTICE:*:#: {
  if ($nick !isop #) {
    var %i = 0
    while (%i < $numtok(%swear.words,32)) {
      inc %i
      var %current.word = $gettok(%swear.words,%i,32)
      if ($istok($strip($1-),%current.word,32) == $true) && ( %swear == on ) {
        ban -u120 # $nick 3 | inc %knum 1
        kick # $nick 4 (You said %current.word $+ ) is a type of badwords. 13(Kick $chr(35) $+ %knum $+ )
      }
    }
  }
}