prt

alias badwords {
  var %bwlist cunt|khunt|kunt
  return $calc($regex($1-,%bwlist))
}

alias badkick {
  var %id $uid($2)
  if (%bad. [ $+ [ %id ] ] = 2) { user.ban $1 $2 1440 badword  Do not say that here. 24 hour ban | return }
  if (%bad. [ $+ [ %id ] ] = 1) { set %bad. [ $+ [ %id ] ] 2 |  user.ban $1 $2 60 badword Do not say that here. 1 hour ban | return }
  else { set  %bad. [ $+ [ %id ] ] 1 | kick $1 $2 Do not say that here. }
}

on *:JOIN:#: {
  if ($get.lvl(Global_Admin,$nick) || $get.lvl(Global_Owner,$nick) || $get.lvl(Local_ $+ # $+ _Owner,$nick) || $get.lvl(Global_Host,$nick) || $get.lvl(Local_ $+ # $+ _Host,$nick)) { return }
  if (!$hget(cProt)) { hmake cProt 15 }
  if ($hget(cProt,$+(JOIN,$chan,$nick)) >= 3) {
    user.ban # $nick 5 JoinFlood Flooding 5min time out
    ;echo $chan flooder
  }
  hinc -u20 cProt $+(JOIN,$chan,$nick)
}


on *:text:*:#: {
  if ($badwords($1-)) {
    if ($get.data(#,badword) != halt) {  badkick # $nick }
  }
  if ($get.lvl(Global_Admin,$nick) || $get.lvl(Global_Owner,$nick) || $get.lvl(Local_ $+ # $+ _Owner,$nick) || $get.lvl(Global_Host,$nick) || $get.lvl(Local_ $+ # $+ _Host,$nick)) { return }
  if (!$hget(cProt)) { hmake cProt 15 }
  if ($hget(cProt,$+(TEXT,$chan,$nick)) >= 4) {
    user.ban # $nick 5 TextFlood  Flooding 5 min time out.
    ; echo $chan flooder
  }
  hinc -u2 cProt $+(TEXT,$chan,$nick)
}

on *:action:*:#: { if ($badwords($1-)) {
    if ($get.data(#,badword) != halt) {  badkick # $nick }
} }


menu channel {
  Bot Autos
  .$style($iif(!$get.data(#,badword),,1)) Bad word Kick halt: $iif($get.data(#,badword) = halt, rem.data # badword, add.data # badword halt) | echo -a $iif($get.data(#,badword) = halt, bad word kick halted for #, bad word kick enabled for #)
}