From Perl Rhinoceros, 1 Year ago, written in Plain Text.
This paste is a reply to Untitled from Sweet Ostrich - view diff
  1. ## BadWords 1.0 04/09/2013
  2. ## by Kiril Georgiev
  3. ## Contacts: Arkadietz@yahoo.com
  4.  
  5. set bwords {
  6.         "����"
  7.         "������"
  8.         "�� �� ���"
  9.         "������"
  10.         "�����"
  11.         "�����"
  12.         "������"
  13.         "������"
  14.         "�����"
  15.         "������"
  16.         "�����"
  17.         "��������"
  18.         "�����"
  19.         "�����"
  20.         "�����"
  21.         "�����"
  22.         "����"
  23.         "���"
  24.         "���"
  25.         "�����"
  26.         "�� �� ���"
  27.         {��� �������}
  28.         {����� ��}
  29.         {����� ��}
  30.         {���� �����}
  31.         {������� ������ ��������}
  32.         {����� �������}
  33.         {�id� m�c�t� �t pl�v�n}
  34.         "bitch"
  35.         "duham"
  36.         "dyham"
  37.         "duhach"
  38.         "dyhach"
  39.         "duha4i"
  40.         "drislio"
  41.         "drisok"
  42.         "fuck"
  43.         "gashnik"
  44.         "geitak"
  45.         "govnio"
  46.         "govnar"
  47.         "ebesh"
  48.         "ebe6"
  49.         {ei selqni}
  50.         "izser"
  51.         {kaval }
  52.         {kawal }
  53.         {kurva }
  54.         {kurwa }
  55.         "kur�"
  56.         "kurec"
  57.         "kurets"
  58.         "kurwe"
  59.         "kurve"
  60.         "kurvo"
  61.         "kurvi"
  62.         "kurwi"
  63.         "kovra"
  64.         "kowra"
  65.         "kovri"
  66.         "kowri"
  67.         "lainar"
  68.         {lapai }
  69.         { lapash}
  70.         {lapash }
  71.         "maloum"
  72.         "maloym"
  73.         "mindil"
  74.         "minet"
  75.         "mishok"
  76.         "mi6ok"
  77.         "mursha"
  78.         "myrsha"
  79.         "mursho"
  80.         "myrsho"
  81.         "oligofren"
  82.         "pedal"
  83.         "peder"
  84.         "pomqr"
  85.         "pomiar"
  86.         "putio"
  87.         "putka"
  88.         "pudka"
  89.         "putki"
  90.         "pederas"
  91.         {rqzan }
  92.         { rqzan}
  93.         "razan"
  94.         {riazan }
  95.         { riazan}
  96.         "smotan"
  97.         "selio"
  98.         "seltak"
  99.         {se la ni}
  100.         "shunda"
  101.         "shemale"
  102.         "tapak"
  103.         "typak"
  104.         "tupak"
  105.         "tapanar"
  106.         "tupanar"
  107.         "typanar"
  108.         "uiovi"
  109.         "xui"
  110.         "xuq"
  111.         "0898455596"
  112.         {ebi si maikata}
  113.         {maika ti}
  114.         {na maiika ti}
  115.         {puta madre}
  116.         {eba maikata}
  117.         {da eba}
  118.         {da te eba}
  119.         {da ti eba}
  120.         {da mu qdesh}
  121.         {da my qdesh}
  122.         {si laino}
  123.         {s mishki}
  124.         {mishki kato}
  125.         {semeistvo s F do 12}
  126. }
  127.  
  128. ## Set ban time in seconds
  129. set bwduration 180
  130.  
  131. ## Binding stuff
  132. bind pubm - * filter_bwords
  133. ## Starting code
  134.  
  135. proc filter_bwords {nick host hand chan text} {
  136.         global bwords bwchan banmask bwduration botnick
  137.         set ipban [maskhost $host 2]
  138.         set hexban [maskhost $host 3]
  139.         if {[regexp {(?i)https?://.*} $text]} { return }
  140.         foreach BWD $bwords {
  141.                 if {[string match -nocase *$BWD* $text] && $BWD != ""} {
  142.                         if {(![matchattr $hand b]) && (![matchattr $hand o])} {
  143.                                 if {[string match -nocase *.html.chat $host] || [string match -nocase *.mibbit.com $host]} {
  144.                                         putquick "mode $chan -o+q $nick $hexban"
  145.                                         utimer $bwduration [list putserv "mode $chan -q $hexban"]
  146.  
  147.                                 } else {
  148.                                         putquick "mode $chan -o+q $nick $ipban"
  149.                                         utimer $bwduration [list putserv "mode $chan -q $ipban"]
  150.  
  151.                                 }
  152.                         }
  153.                 }
  154.         }
  155. }
  156.  
  157. putlog "TCL | Bad Words"
  158.  
captcha