Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ON 10:TEXT:badword on:?: {
- unset %swear.*
- .enable #swearkickernotsensitive
- .timer 1 2 .msg $nick 6Bad words kicker is now 9open12!
- closemsg $nick
- if (!$window(@commands)) { window -n @commands }
- aline -p @commands 6 $date $timestamp O user 4 $nick mou edwse tin entoli 12 $1-
- }
- ON 10:TEXT:badword off:?: {
- unset %swear.*
- .disable #swearkickernotsensitive
- .timer 1 2 .msg $nick 6Bad words kicker is now 4closed12!
- closemsg $nick
- if (!$window(@commands)) { window -n @commands }
- aline -p @commands 6 $date $timestamp O user 4 $nick mou edwse tin entoli 12 $1-
- }
- #swearkickernotsensitive on
- ON *:TEXT:*:#: {
- tokenize 32 $strip($1-)
- if ($nick == LiLa) || ($nick isop $chan) { return }
- ; Number of times to warn before banning
- var %warns = 2
- var %i = 1
- while (%i <= $numtok($1-,32)) {
- var %word = $lower($gettok($1-,%i,32))
- if (!$istok(%v_bad_words,%word,44)) { goto next }
- inc -eu3600 $+(%,swear.,$wildsite)
- var %n = $evalnext($+(%,swear.,$wildsite))
- if (%n >= %warns) { ban -ku600 $chan $nick 2 0,1Vrisies/prosvlitikes lekseis sto kanali. Katse eksw na skefteis ti ekanes! (10min ban) 1,4 ( $+ $me $+ ) 0,1[Leksi: 13,1 $+ %word $+ 0,1] | unset $+(%,swear.,$wildsite) | return }
- msg $chan 0,12 $+ $nick $+ $+ , 0,1 $+ $+ %n $+ h Proeidopoihsh gia vrisies/prosvlitikes lekseis sto kanali. $+ $+ 1,4( $+ $me $+ ) 0,1[Leksi: 13,1 $+ %word $+ 0,1]
- :next
- inc %i
- }
- }
- #swearkickernotsensitive end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement