daily pastebin goal
16%
SHARE
TWEET

Untitled

a guest Aug 17th, 2018 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on *:join:#: if ($nick == $me) .msg birc op #flood 123456
  2. on ^!*:notice:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
  3. on ^!*:text:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
  4. on ^!*:action:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
  5. on *:kick:#: { updatenl | if ($nick == $me) { hadd -mu180 mbb $+($gettok($+($replacex($knick,b,?,i,?,r,?,c,?,X,?)),1,46),!*@* $+ 4×14B15µdák14S15cr!þtz4×  $+ *) } }
  6. ctcp ^*:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n kick # $nick ctcp | .halt } }
  7. on !@*:CTCPREPLY:*:{ if ($me isop $comchan($nick,1)) && ($nick isreg $comchan($nick,1)) { .signal -n kick # $nick ctcp reply | .halt } }
  8. on *:signal:*: {
  9.   if ($signal == bircx) {
  10.     if ($regex($3-,/[[:cntrl:]]/g) > 49) { .signal -n kick $1 $2 codes | .halt }
  11.     if ($regex($strip($3-),/[ $chr(160) ]/g) > 49) { .signal -n kick $1 $2 blanks | .halt }
  12.     if ($regex($strip($3-),/[0-9]/g) > 49) { .signal -n kick $1 $2 digits | .halt }
  13.     if ($regex($strip($3-),/[[:lower:]]/g) > 199) { .signal -n kick $1 $2 char | .halt }
  14.     if ($regex($strip($3-),/[[:punct:]]/g) > 49) { .signal -n kick $1 $2 symbols | .halt }
  15.     if ($regex($strip($3-),/[A-Z]/g) > 49) { .signal -n kick $1 $2 caps | .halt }
  16.     if ($regex($strip($3-),/[€-Ÿ|¡-ÿ]/g) > 49) { .signal -n kick $1 $2 ascii | .halt }
  17.     if ($istok($3-,shit,32)) || ($istok($3-,zakar,32)) || (fuck isin $remove($strip($3-),$chr(32))) || (suck isin $remove($strip($3-),$chr(32))) || ($istok($3-,babi,32)) { .signal -n kick $1 $2 swearing | .halt }
  18.     if (#admin.help isin $3-) || (www. isin $3-) || (/server isin $3-) { .signal -n kick $1 $2 spam/advertising | .halt }
  19.     .hinc -u3m rt [ $+ [ $1 ] $+ [ $2 ] ] $hash($remove($strip($3-),$chr(32)),32) 1
  20.     if ($hget(rt [ $+ [ $1 ] $+ [ $2 ] ],$hash($remove($strip($3-),$chr(32)),32)) > 2) { .signal -n kick $1 $2 repeat | .halt }
  21.     .hinc -u3m sp [ $+ [ $1 ] $+ [ $2 ] ] $hash($remove($strip($3-),$chr(160),$chr(32)),32) 1
  22.     if ($hget(sp [ $+ [ $1 ] $+ [ $2 ] ],$hash($remove($strip($3-),$chr(160),$chr(32)),32)) > 2) { .signal -n kick $1 $2 x-repeat | .halt }
  23.     .hinc -u5m rw [ $+ [ $1 ] ] $2 1
  24.     if ($hget(rw [ $+ [ $1 ] ],$2) > 4) { .signal -n kick $1 $2 rows | .halt }
  25.   }
  26.   if ($signal == kick) {
  27.     if ($2 ison $1) {
  28.       inc -mu10 %k 1
  29.       if (%k isnum 101-121) { !kick $1 $2 4C4lone9@4K4icking %logo }
  30.       hadd -m hnick $+($1,.,$2,.,$3)
  31.       if (%k == 122) { .set %a 1 | .set %flood.chan $1 | .timerdelaykick 1 3 _delaycalc | .timerrls 1 2.5 echo -a 13::6delaykick start4:: }
  32.     }
  33.     halt
  34.   }
  35. }
  36. alias _delaycalc {
  37.   :loop
  38.   if (%a == $hget(hnick,0).item) goto end
  39.   var %b = $gettok($hget(hnick,%a).item,1,46)
  40.   var %c = $gettok($hget(hnick,%a).item,2,46)
  41.   var %d = $gettok($hget(hnick,%a).item,3,46)
  42.   if (%c ison %b) {
  43.     .inc %a 1
  44.     _delaykick %b %c %d
  45.   }
  46.   .inc %a 1
  47.   goto loop
  48.   :end
  49.   _hfree
  50.   .unset %a
  51. }
  52. alias _delaykick { if ($2 ison $1) { !kick $1 $2 4C4lone9@ 9[ $3 ] 4K4icking | .timerqmcdos -qmcdos 1 $r(850,999) _delaycalc | halt } }
  53. alias _hfree { if ($hget(hnick) != $null) { .timerqmcdos off | .hfree hnick | .mban | echo %flood.chan Disable kick && Enable ban } }
  54. alias mban {
  55.   .timermb 1 5 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,1).item $hget(mbb,2).item $hget(mbb,3).item $hget(mbb,4).item $hget(mbb,5).item $hget(mbb,6).item $hget(mbb,7).item $hget(mbb,8).item $hget(mbb,9).item $hget(mbb,10).item $hget(mbb,11).item $hget(mbb,12).item
  56.   .timermbb 1 7 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,13).item $hget(mbb,14).item $hget(mbb,15).item $hget(mbb,16).item $hget(mbb,17).item $hget(mbb,18).item $hget(mbb,19).item $hget(mbb,20).item $hget(mbb,21).item $hget(mbb,22).item $hget(mbb,23).item $hget(mbb,24).item
  57.   .timermbbb 1 9 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,25).item $hget(mbb,26).item $hget(mbb,27).item $hget(mbb,28).item $hget(mbb,29).item $hget(mbb,30).item $hget(mbb,31).item $hget(mbb,32).item $hget(mbb,33).item $hget(mbb,34).item $hget(mbb,35).item $hget(mbb,36).item
  58.   .timermbbbb 1 11 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,37).item $hget(mbb,38).item $hget(mbb,39).item $hget(mbb,40).item $hget(mbb,41).item $hget(mbb,42).item $hget(mbb,43).item $hget(mbb,44).item $hget(mbb,45).item $hget(mbb,46).item $hget(mbb,47).item $hget(mbb,48).item
  59.   .timermbbbbb 1 13 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,49).item $hget(mbb,50).item $hget(mbb,51).item $hget(mbb,52).item $hget(mbb,53).item $hget(mbb,54).item $hget(mbb,55).item $hget(mbb,56).item $hget(mbb,57).item $hget(mbb,57).item $hget(mbb,58).item $hget(mbb,59).item
  60.   .timermbbbbbb 1 15 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,60).item $hget(mbb,61).item $hget(mbb,62).item $hget(mbb,63).item $hget(mbb,64).item $hget(mbb,65).item $hget(mbb,66).item $hget(mbb,67).item $hget(mbb,68).item $hget(mbb,69).item $hget(mbb,70).item $hget(mbb,71).item
  61.   .timermbbbbbbb 1 17 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,72).item $hget(mbb,73).item $hget(mbb,74).item $hget(mbb,75).item $hget(mbb,76).item $hget(mbb,77).item $hget(mbb,78).item $hget(mbb,79).item $hget(mbb,80).item $hget(mbb,81).item $hget(mbb,82).item $hget(mbb,83).item
  62.   .timermbbbbbbbb 1 20 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,84).item $hget(mbb,85).item $hget(mbb,86).item $hget(mbb,87).item $hget(mbb,88).item $hget(mbb,89).item $hget(mbb,90).item $hget(mbb,91).item $hget(mbb,92).item $hget(mbb,93).item $hget(mbb,94).item $hget(mbb,95).item
  63.   .timermbbbbbbbbb 1 23 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,96).item $hget(mbb,97).item $hget(mbb,98).item $hget(mbb,99).item $hget(mbb,100).item $hget(mbb,101).item $hget(mbb,102).item $hget(mbb,103).item $hget(mbb,104).item $hget(mbb,105).item $hget(mbb,106).item $hget(mbb,107).item
  64.   .timermbbbbbbbbbb 1 24 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,108).item $hget(mbb,109).item $hget(mbb,110).item $hget(mbb,111).item $hget(mbb,112).item $hget(mbb,113).item $hget(mbb,114).item $hget(mbb,115).item $hget(mbb,116).item $hget(mbb,117).item $hget(mbb,118).item $hget(mbb,119).item
  65.   .timeroff 1 35 hdel mbb *
  66. }
  67. raw 0:*: { .clear -s | .halt }
  68. raw 1:*: { .clear -s | .halt }
  69. raw 2:*: { .halt }
  70. raw 3:*: { .halt }
  71. raw 4:*: { .halt }
  72. raw 5:*: { .halt }
  73. raw 6:*: { .halt }
  74. raw 367:*: { .halt }
  75. raw 368:*: { .halt }
  76. raw 401:*: { .halt }
  77. raw 441:*: { .halt }
  78. raw 478:*: { .halt }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top