on *:text:*:#test_chan: {
if ($nick isop #botops) { return }
IF ($nick isop $chan) { RETURN }
if (!$window(@Botlog)) { window -n @Botlog }
if ($1 == !badword) && ($_chan($chan)) && ($istok(on off,$2,32)) && ($nick isop $chan) {
set %_badword $iif($2 == off,$v2,on)
msg $chan Badword protection is now %_badword
return
}
if (%_badword == on) && ($me isop $chan) && ($nick !isop $chan) && ($_chan($chan)) {
var %badword = bitch,asshole,fotze,ficken,biatch,suck dick,bumsen,schlampe,horny,fickgeil,penis,vagina,sieg heil,Schlampe,dickhead,dickface,pussy,whore,cunt,fuck you,shitface,fucker,faggot
var %a = $numtok(%badword,44)
while (%a) {
var %bchk = $gettok(%badword,%a,44)
if (%bchk isin $1-) {
if ($($+(%,badwordslock,.,$chan),2)) {
if (*german* !iswm $chan) {
aline -a @Botlog $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
ban -ku3600 $chan $nick Banned: Please change your way of chatting.
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
}
if (*german* iswm $chan) {
aline -a @Botlog $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
ban -ku3600 $chan $nick Gebannt: Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
}
set -eu30 $+(%,badwordslock,.,$chan) 1
}
elseif (!$($+(%,badwordslock,.,$chan),2)) {
inc -eu30 $+(%,badword,.,$nick,.,$chan)
var %times = $($+(%,badword,.,$nick,.,$chan),2)
if (%times == 1) {
if (*german* !iswm $chan) {
notice $nick 12 $+ $nick $+ 7, 4Your behavior is inappropriate. Please change your way of chatting.
aline -a @Botlog $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
}
if (*german* iswm $chan) {
msg $chan 12 $+ $nick $+ 7, 4Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
aline -a @Botlog $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
}
inc -eu30 $+(%,badwordwarned,.,$chan)
if ($($+(%,badwordwarned,.,$chan),2) == 5) {
unset $+(%,badword,.,$nick,.,$chan)
unset $+(%,badwordwarned,.,$chan)
set -eu30 $+(%,badwordslock,.,$chan) 1
}
}
elseif (%times == 2) {
if (*german* !iswm $chan) {
kick $chan $nick Please change your way of chatting.
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
aline -a @Botlog $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
}
if (*german* iswm $chan) {
kick $chan $nick Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
aline -a @Botlog $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
}
}
elseif (%times > 2) {
unset $+(%,badword,.,$nick,.,$chan)
if (*german* !iswm $chan) {
aline -a @Botlog $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
ban -ku3600 $chan $nick Banned: Please change your way of chatting.
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
}
if (*german* iswm $chan) {
aline -a @Botlog $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
write Botlog.txt $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
ban -ku3600 $chan $nick Gebannt: Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
}
}
}
}
dec %a
}
}
}
alias -l _chan {
; Change the channels for the bot to work on below, to make it work in all channels just input “#”.
var %a = #, %b = $numtok(%a,44)
while (%b) {
if ($1 == $gettok(%a,%b,44)) || (%a == $chr(35)) {
return $true
}
dec %b
}
}
on *:exit: { unset %badword.* }
menu channel {
.Turn badword filter $iif(%_badword == on,off,on) : set %_badword $iif(%_badword == on,off,on)
}
