Advertisement
westor

Badwords Kicker fix for LoLa_BuNNy v1.1

Mar 15th, 2020
1,024
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.54 KB | None | 0 0
  1. ON 10:TEXT:badword on:?: {
  2.   unset %swear.*
  3.   .enable #swearkickernotsensitive
  4.   .timer 1 2 .msg $nick 6Bad words kicker is now 9open12!
  5.   closemsg $nick
  6.   if (!$window(@commands)) { window -n @commands }
  7.   aline -p @commands 6 $date $timestamp  O user 4 $nick  mou edwse tin entoli 12 $1- 
  8. }
  9. ON 10:TEXT:badword off:?: {
  10.   unset %swear.*
  11.   .disable #swearkickernotsensitive
  12.   .timer 1 2 .msg $nick 6Bad words kicker is now 4closed12!
  13.   closemsg $nick
  14.   if (!$window(@commands)) { window -n @commands }
  15.   aline -p @commands 6 $date $timestamp  O user 4 $nick  mou edwse tin entoli 12 $1- 
  16. }
  17.  
  18. #swearkickernotsensitive on
  19. ON *:TEXT:*:#: {
  20.   tokenize 32 $strip($1-)
  21.  
  22.   if ($nick == LiLa) || ($nick isop $chan) { return }
  23.  
  24.   ; Number of times to warn before banning
  25.   var %warns = 2
  26.  
  27.   var %i = 1
  28.   while (%i <= $numtok($1-,32)) {
  29.     var %word = $lower($gettok($1-,%i,32))
  30.  
  31.     if (!$istok(%v_bad_words,%word,44)) { goto next }
  32.  
  33.     inc -eu3600 $+(%,swear.,$wildsite)
  34.  
  35.     var %n = $evalnext($+(%,swear.,$wildsite))
  36.  
  37.     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 }
  38.  
  39.     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]
  40.  
  41.     :next
  42.     inc %i
  43.   }
  44. }
  45. #swearkickernotsensitive end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement