Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 13th, 2012  |  syntax: None  |  size: 4.53 KB  |  hits: 9  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. menu channel {
  2.   .. shitlist
  3.   .$iif($ExceptionCheck($chan),$style(3)) Exclude #:Set %ShitException $addtok(%ShitExclusion,$+($network,$chan),32)
  4.   .$iif(!$ExceptionCheck($chan),$style(2)) Remove Exclusion #:Set %ShitException $remtok(%ShitExclusion,$+($network,$chan),1,32)
  5.   .on: .enable #shit | echo -a Shitlist Activated.
  6.   .off: .disable #shit | echo -a Shitlist Deactivated.
  7.   .people on the list: {
  8.     window -e @list
  9.     echo @list Type "/unshit NAMEHERE" to unshitlist a person
  10.     var %nicks 1
  11.     while (%nicks <= $ini(shitlist,nicks,0)) {
  12.       echo @list $ini(shitlist,nicks,%nicks) on the ip $readini(shitlist,nicks,$ini(shitlist,nicks,%nicks))
  13.       inc %nicks 1
  14.     }
  15.   }
  16. }
  17. menu nicklist {
  18.   ..shitlist
  19.   .ADD: {
  20.     set %global 1
  21.     writeini shitlist $address($1,2) $address($1,2) $1
  22.     writeini shitlist nicks $1 $address($1,2)
  23.     writeini shitlist $address($1,2) reason $?="why shitlist this guy/girl? (this is mandatory)"
  24.     while (%global <= $chan(0)) {
  25.       if ($1 ison $chan(%global)) && (!$ExceptionCheck($chan(%global))) {
  26.         mode $chan(%global) +b-e $address($1,2) $address($1,2)
  27.         kick $chan(%global) $1 [Shitlist Active: $readini(shitlist,$address($1,2),reason) ]
  28.       }
  29.       inc %global 1
  30.     }
  31.     echo -a Shitlist Entry Added.
  32.     .enable #shit
  33.   }
  34.   .DEL: {
  35.     set %global2 1
  36.     remini shitlist $address($1,2) $address($1,2) $1
  37.     remini shitlist nicks $1
  38.     remini shitlist $address($1,2) reason
  39.     echo -a Shitlist Entry Removed On $+($1,.)
  40.     while (%global2 <= $chan(0)) {
  41.       mode $chan(%global2) -b $address($1,2)
  42.       inc %global2 1
  43.     }
  44.   }
  45. }
  46. ;Shitlist by Acclamator
  47. alias shit {
  48.   set %global 1
  49.   writeini shitlist $address($1,2) $nick
  50.   writeini shitlist nicks $nick $address($1,2)
  51.   writeini shitlist $address($2\1,2) reason $$?="why shitlist this guy/girl? (this is mandatory)"
  52.   while (%global <= $chan(0)) {
  53.     if ($1 ison $chan(%global)) && (!$ExceptionCheck($chan(%global))) {
  54.       mode $chan(%global) +b-e $address($1,2) $address($1,2)
  55.       kick $chan(%global) $1 [Shitlist Active: $readini(shitlist,reason,$address($1,2)) ]
  56.     }
  57.     inc %global 1
  58.   }
  59.   echo -a Shitlist Entry Added.
  60.   .enable #shit
  61. }
  62. alias unshit {
  63.   set %global 1
  64.   if ($readini(shitlist,nicks,$1)) {
  65.     remini shitlist $readini(shitlist,nicks,$1)
  66.     remini shitlist nicks $1
  67.   }
  68.   echo -a  $1 removed from shitlist
  69. }
  70. #shit off
  71. on *:join:#: {
  72.   if  (!$ExceptionCheck($chan)) {
  73.     if ($ini(shitlist,$address($nick,2),0) >= 1) || ($readini(shitlist,nicks,$nick)) {
  74.       kick $chan $nick [Shitlist Active] $+([,$readini(shitlist,$address($nick,2),reason),])
  75.       mode $chan +b-e $address($nick,2) $address($nick,2)
  76.     }
  77.   }
  78. }                                
  79. on *:ban:#: {
  80.   if  (!$ExceptionCheck($chan)) {
  81.     if ($banmask == $address($me,2)) && ($nick != $me) || ($bnick == $me) {
  82.       mode $chan -bb $address($me,2) $me
  83.       kick $chan $nick [Ban Protection Active]
  84.     }
  85.   }
  86. }
  87. on *:RAWMODE:*: {
  88.   if  (!$ExceptionCheck($chan)) {
  89.     if ($regex($1,/\+[aqoh]/g) >= 1) && ($me == $2) {
  90.       var %shitscan 1
  91.       while (%shitscan <= $nick($chan,0)) {
  92.         if ($ini(shitlist,$address($nick($chan,%shitscan),2),0) > 0) || ($readini(shitlist,nicks,$nick)) {
  93.           mode $chan +b-e $address($nick($chan,%shitscan),2) $address($nick($chan,%shitscan),2)
  94.           kick $chan $nick($chan,%shitscan) [Shitlist entry on this nick/mask exists]
  95.         }
  96.         inc %shitscan 1
  97.       }
  98.     }
  99.     elseif ($nick != $me) {
  100.       if ($1 == -e) || ($1 == -ee) {
  101.         if ($address($2,2) == $address($me,2)) || ($2 == $me) {
  102.           mode $chan +e $address($me,2)
  103.           kick $chan $nick [Except Protection Active]
  104.         }
  105.       }
  106.     }
  107.   }
  108. }
  109. on *:KICK:*: {
  110.   if ($knick == $me) && ($nick != $me) {
  111.     cs invite $chan
  112.     join $chan
  113.     if  (!$ExceptionCheck($chan)) {    
  114.       mode $chan +b-e+e $address($nick,2) $address($nick,2) $address($me,2)
  115.       kick $chan $nick [Kick Revenge Active]
  116.     }
  117.   }
  118. }
  119. on *:nick: {
  120.   if ($ini(shitlist,$address($nick,2),0) > 0) || ($readini(shitlist,nicks,$nick)) {
  121.     set %global2 1
  122.     while (%global2 <= $chan(0)) {
  123.       if ($newnick ison $chan(%global2)) && (!$ExceptionCheck($chan(%global2))) {
  124.         mode $chan(%global2) +b-e $address($newnick,2) $address($newnick,2)
  125.         kick $chan(%global2) $newnick [Shitlist Active on this nick]
  126.       }
  127.       inc %global2 1
  128.     }
  129.   }
  130. }
  131. #shit end
  132. alias ExceptionCheck {
  133.   return $iif($istok(%ShitException,$+($network,$1),32),1,0)
  134. }
create a new version of this paste RAW Paste Data