Got an iPhone or iPad? We have a brand new Pastebin App for both devices, and it's totally free! Click here to download the new Pastebin App for iOS.
Public Pastes
Guest

GrimReaper

By: a guest on Feb 9th, 2010  |  syntax: None  |  size: 5.67 KB  |  hits: 24  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. on *:JOIN:#: {
  2.   if ($left($nick(#,$me,a,r).pnick,1) != &) { HALT }
  3.   if (%vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { HALT }
  4.   if (%hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { HALT }
  5.   if (%aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { HALT }
  6.   if (%sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { HALT }
  7.   if ($left($nick(#,$me,a,r).pnick,1) == &) {
  8.     if ($nick isin %vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]) && (%vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == on) {
  9.       mode $chan +v $nick
  10.     }
  11.     if ($nick isin %hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]) && (%hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == on) {
  12.       mode $chan +hv $nick $nick
  13.     }
  14.     if ($nick isin %aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]) {
  15.       mode $chan +ohv $nick $nick $nick
  16.     }
  17.     if ($nick isin %sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]) {
  18.       mode $chan +aohv $nick $nick $nick $nick
  19.     }
  20.   }
  21. }
  22.  
  23. on *:TEXT:.access *:#: {
  24.   if ($left($nick(#,$nick,a,r).pnick,1) == &) || ($left($nick(#,$nick,a,r).pnick,1) == ~) {
  25.     if ($2 == vop) {
  26.       if ($3 == on) {
  27.         set %vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on on
  28.         msg $chan VOP Access List has been enabled.
  29.       }
  30.       if ($3 == off) {
  31.         set %vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on off
  32.         msg $chan VOP Access List has been disabled.
  33.       }
  34.     }
  35.     if ($2 == hop) {
  36.       if ($3 == on) {
  37.         set %hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on on
  38.         msg $chan HOP Access List has been enabled.
  39.       }
  40.       if ($3 == off) {
  41.         set %hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on off
  42.         msg $chan HOP Access List has been disabled.
  43.       }
  44.     }
  45.     if ($2 == aop) {
  46.       if ($3 == on) {
  47.         set %aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on on
  48.         msg $chan AOP Access List has been enabled.
  49.       }
  50.       if ($3 == off) {
  51.         set %aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on off
  52.         msg $chan AOP Access List has been disabled.
  53.       }
  54.     }
  55.     if ($2 == sop) {
  56.       if ($3 == on) {
  57.         set %sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on on
  58.         msg $chan SOP Access List has been enabled.
  59.       }
  60.       if ($3 == off) {
  61.         set %sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on off
  62.         msg $chan SOP Access List has been disabled.
  63.       }
  64.     }
  65.   }
  66. }
  67.  
  68. on *:TEXT:.vop *:#: {
  69.   if ($left($nick(#,$nick,a,r).pnick,1) == ~) || ($left($nick(#,$nick,a,r).pnick,1) == &) {
  70.     if (%vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { msg $chan Sorry $nick $+ , The Vop Access List is currently Disabled for $chan $+ . }
  71.     if ($2 == add) {
  72.       set %vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] $+(%vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  73.       .timer 1 1 msg $chan $3 $+ , Please could you type: /hop $chan or /cycle $chan
  74.     }
  75.     if ($2 == del) {
  76.       set %vop [ $+ [ $chan ] $+ ] . [ $network ] ] $remove(%vop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  77.       .timer 1 1 msg $chan $3 $+ , Your Voice has been removed from $chan $+ .
  78.     }
  79.   }
  80. }
  81.  
  82. on *:TEXT:.hop *:#: {
  83.   if ($left($nick(#,$nick,a,r).pnick,1) == ~) || ($left($nick(#,$nick,a,r).pnick,1) == &) {
  84.     if (%hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { msg $chan Sorry $nick $+ , The Hop Access List is currently Disabled for $chan $+ . }
  85.     if ($2 == add) {
  86.       set %hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] $+(%hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  87.       .timer 1 1 msg $chan $3 $+ , Please could you type: /hop $chan or /cycle $chan
  88.     }
  89.     if ($2 == del) {
  90.       set %hop [ $+ [ $chan ] $+ ] . [ $network ] ] $remove(%hop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  91.       .timer 1 1 msg $chan $3 $+ , Your Half-Op Status has been removed from $chan $+ .
  92.     }
  93.   }
  94. }
  95.  
  96. on *:TEXT:.aop *:#: {
  97.   if ($left($nick(#,$nick,a,r).pnick,1) == ~) || ($left($nick(#,$nick,a,r).pnick,1) == &) {
  98.     if (%aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { msg $chan Sorry $nick $+ , The Aop Access List is currently Disabled for $chan $+ . }
  99.     if ($2 == add) {
  100.       set %aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] $+(%aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  101.       .timer 1 1 msg $chan $3 $+ , Please could you type: /hop $chan or /cycle $chan
  102.     }
  103.     if ($2 == del) {
  104.       set %aop [ $+ [ $chan ] $+ ] . [ $network ] ] $remove(%aop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  105.       .timer 1 1 msg $chan $3 $+ , Your AOP Status has been removed from $chan $+ .
  106.     }
  107.   }
  108. }
  109.  
  110. on *:TEXT:.sop *:#: {
  111.   if ($left($nick(#,$me,a,r).pnick,1) != ~) { msg $chan Sorry $nick $+ , I need Owner Status to make $3 a SOP, Giving them AOP Status instead. }
  112.   if ($left($nick(#,$nick,a,r).pnick,1) == ~) || ($left($nick(#,$nick,a,r).pnick,1) == &) {
  113.     if (%sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] $+ ] on == off) { msg $chan Sorry $nick $+ , The Sop Access List is currently Disabled for $chan $+ . }
  114.     if ($2 == add) {
  115.       set %sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] $+(%sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  116.       .timer 1 1 msg $chan $3 $+ , Please could you type: /hop $chan or /cycle $chan
  117.     }
  118.     if ($2 == del) {
  119.       set %sop [ $+ [ $chan ] $+ ] . [ $network ] ] $remove(%sop [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],$chr(32) $+ $$3- $+ $chr(44))
  120.       .timer 1 1 msg $chan $3 $+ , Your SOP Status has been removed from $chan $+ .
  121.     }
  122.   }
  123. }
create a new version of this paste RAW Paste Data