this is a badword code with a warning and then kick-ban!
Name your list "swear" and put it in your mirc folder.
Then paste this code in remotes on Scripts editor!
Code:
 
on @*:TEXT:*:#: {      
  if ($nick !isop #) {     
    var %i = 1                        
    while $gettok($read(swear.txt,1),%i,32) {                    
      if ($+(*,$v1,*) iswm $strip($1-)) {             
        set -u1800 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)          
        if (%rl. [ $+ [ $address($nick,2) ] ] == 1) {                     
          msg $chan $nick Dont use badwords pls-(Warning next time is ban)-
        }            
        if (%rl. [ $+ [ $address($nick,2) ] ] >= 2)  {              
          ban -ku3600 $chan $nick 2 The end is finally here!(Banned)- (2Total kicks: $+ %badwcount $+ | inc %badwcount 1          
        }          
      }       
      inc %i       
    }   
  }
}