Bad word

alias badwords {
  var %bwlist slut|nigger|bitch|cunt|faggot
  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 *:text:*:#: { if ($badwords($1-)) {
    if ($get.data(#,badword) != halt) {  badkick # $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 #)
}