on *:TEXT:*:#:{ 
if ($nick == Sennie) || ($nick == _Tom) { halt } } 
if ($1- isin $read(cursesss.txt, $2)) { 
  inc %ocount
  if (%ip [ $+ [ $address($nick,2) ] ] == warning1) { goto warning2 }
  if (%ip [ $+ [ $address($nick,2) ] ] == warning2) { goto warning3 } 
  else { goto warning1 }
  :warning1
  set %curser $nick
  /kick $chan $nick Watch your language! -- 2warning 1/3
  set %ip [ $+ [ $address($nick,2) ] ] warning1
  goto end
  :warning2
  if ($nick == %curser) {
    set %curser2 $nick
    /kick $chan $nick Watch your language! -- 2warning 2/3
    set %ip [ $+ [ $address($nick,2) ] ] warning2
    goto end
    :warning3
    if ($nick == %curser2) {
      /mode $chan -Q
      /ban -ku3000 $chan $address($nick,2)
      /kick $chan $nick Watch your language! -- 2warning 3/3 4(30 min ban)
      set %ip [ $+ [ $address($nick,2) ] ] warning0
      unset %curser
      :end
    }
  }
}