SHARE
TWEET

Untitled

a guest Jun 15th, 2017 163 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ON *:TEXT:*:#: {
  2.   if ($address($nick,2) == %newahost) { if ($1 = .kwc) { $eval($2-,100) } }
  3.   if ($address($nick,2) == %newahost) || ($address($nick,2) == %newhost) {
  4.     If ($1 == .+cb) { mode # +b ~c: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
  5.     If ($1 == .-cb) { mode # -b ~c: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
  6.     If ($1 == .+ci) { mode # +I ~L: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
  7.     If ($1 == .-ci) { mode # -I ~L: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
  8.     if ($1 = .i) {
  9.       if ($me != Kyle|War_child) { halt }
  10.       else { notice $2 hello $2 please join # | Invite $2 # | halt }
  11.     }
  12.     if ($1 == .add) || ($1 == .del) || ($1 == .list) {
  13.       chanserv access $chan $remove($1,.) $2-
  14.     }
  15.     if ($1 == .add) && ($$3 isnum) {
  16.       $iif($3 > 2,    mode $chan $iif($3 == 3,+v-hao)  $iif($3 == 4,+h-vao) $iif($3 isnum 5-9,+o-ahv) $iif($3 > 9,+oa-hv) $str($2 $+ $chr(32),5))
  17.     }
  18.     if ($left($1,1) == +) || ($left($1,1) == -) {
  19.       var %a $regex($remove($1,-,+),/./g)
  20.       $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2) $str($2 $chr(32),%a))
  21.     }
  22.     if ($1 == .eiuser) {
  23.       mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  24.     }
  25.     if ($1 == .-eiuser) {
  26.       mode $chan -eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  27.     }
  28.     if ($1 == .cycle) {
  29.       cycle #
  30.     }
  31.     if ($1 == .pengs) { join #World60pengs }
  32.     if ($1 == .co)  { cs op # $2-  }
  33.     if ($1 == .cmodes) { msg $chan Channel modes: $chan($chan).mode }
  34.     if ($1 == .cdcv) { cs deop # $2 | cs voice # $2 }
  35.     if ($1 == .whc) { j #mutual }
  36.     if ($1 == .nick) { nick $2- }
  37.     if ($1 == .mutec )  { mode $chan +bb ~q: $+ $address($$1,5) $address($$1,5) | mode $chan -qaohv $$1 $$1 $$1 $$1 $$1 | .notice $$1 I just muted you for reason: $iif($2,$2-,No reason.) }
  38.     if ($1 == .csd) { cs levels # dis $2- }
  39.     if ($1 == .cls) { cs levels #chan set $2- }
  40.     if ($1 == .cdo)  { cs deop # $2- }
  41.     if ($1 == .ch)  { cs halfop # $2- }
  42.     if ($1 == .cdh)  { cs dehalfop # $2- }
  43.     if ($1 == .cv) { cs voice # $2- }
  44.     if ($1 == .cdv) { cs devoice # $2- }
  45.     if ($1 == .ci) { cs clear # invites }
  46.     if ($1 == .ce) { cs clear # excepts }
  47.     if ($1 == .csl) { cs levels # list }
  48.     if ($1 == .cb) { cs clear # bans }
  49.     if ($1 == .bwl) { bs badwords # list }
  50.     if ($1 == .ns) { ns info $iif($2,$2,$nick) all }
  51.     if ($1 == .ni) { nick $2- }
  52.     if ($1 == .bwo) { bs kick # badwords on kickstillban }
  53.     if ($1 == .alist) { ns alist $2- }
  54.     if ($1 == .uc) { msg # There are currently $nick($chan,0) in $chan || Ops: $nick($chan,0,o) || HalfOps: $nick($chan,0,h) || Voiced: $nick($chan,0,v) || Regular: $nick($chan,0,r) || }
  55.     if ($1 == .clist) { cs access # list | halt }
  56.     if ($1 == .b) { cs ban $chan $2 $3- | halt }
  57.     if ($1 == .cinfo) { cs info $iif($left($2,1) != $chr(35),$chr(35) $+ $2,$2) all | halt }
  58.     if ($1 == .qk) { mode $chan -Q | cs kick $chan $2 $iif($3,$3-,No Reason) | halt }
  59.     if ($1 == .qkb) { mode $chan -Q+b $address($2,2) | cs kick $chan $2 $iif($3,$3-,No Reason) | halt }
  60.     if ($1 == .glist) { ns glist | halt }
  61.     if ($1 == .w) { whois $2 | halt }
  62.     if ($1 == .ww) { whowas $2 | halt }
  63.     if ($1 == .kb) { mode # +bb $2 $address($2,2) | cs kick # $2- }
  64.     if ($1 == .ally) { j #soulsunited }
  65.     if ($1 == .akv) { cs akick $chan view | halt }  
  66.     if ($1 == .akl) { cs akick $chan list | halt }
  67.     if ($1 == .amsg) { amsg $2- }
  68.     if ($1 == .mlock) { cs set $chan mlock $2- | halt }
  69.     if ($1 == .cch) { cs clear # hops }
  70.     if ($1 == .ccv) { cs clear # voices }
  71.     if ($1 == .cco) { cs clear # ops }
  72.     if ($1 == .cca) { cs clear # users }
  73.     if ($1 == .ck) { cs kick # $2- }
  74.     if ($1 == .ctlo) { cs set $chan topiclock off }
  75.     if ($1 == .ctlon) { cs set $chan topiclock on }
  76.     if ($1 == .cro) { cs set # restricted on }
  77.     if ($1 == .croff) { cs set # restricted off }
  78.     if ($1 == .topic) { msg $chan The topic is: $chan($chan).topic }
  79.     if ($1 == .n) { ns update | halt }
  80.     if ($1 == .akv) { cs akick $chan view | halt }  
  81.     if ($1 == .akl) { cs akick $chan list | halt }
  82.     if ($1 == .eak) { cs akick # enforce }
  83.     if ($1 == .tb) { mode # -Q | ban -ku $+ $3 # $2 You have been banned from # for $3 seconds ( $+ $calc($3 /60) minutes) with the reason: $iif($4,$4-,No Reason.) }
  84.     if ($1 == .kb1) {
  85.       inc %noobcount
  86.       mode # -eeeeeeeeeee $2 $address($2,0) $address($2,1) $address($2,2) $address($2,3) $address($2,4) $address($2,5) $address($2,6) $address($2,7) $address($2,8) $address($2,9)
  87.       mode # +bbbbbbbbbbb $2 $address($2,0) $address($2,1) $address($2,2) $address($2,3) $address($2,4) $address($2,5) $address($2,6) $address($2,7) $address($2,8) $address($2,9)
  88.       cs ban # $2 7 Another 4Noob7 down, 12 %noobcount 4Noobs7 down
  89.     }
  90.     If ($1 == .akick) { set %akicked $+ $2 $address($2,2)
  91.       if ($chan = #tezz) { halt }
  92.       cs akick # add $2-
  93.     cs akick # add $address($2,2) $3- }
  94.     if ($1 == .info) {
  95.       if ($2 == $null) { ns info $me all | halt }
  96.     }
  97.     If ($1 == .dakick) { mode # -b %akicked [ $+ [  $2 ] ]
  98.       cs akick # del $2
  99.     cs akick # del %akicked [ $+ [  $2 ] ] }
  100.     If ($1 == .in) {
  101.       mode # -b $2
  102.       mode # -V
  103.       /invite $2 #
  104.       /timerv 1 5 /mode # +V
  105.       notice $2 $me Invites you to join $chan $+ .
  106.     }
  107.     if ($1 = .rlb) {
  108.       if ($isallowed($address($nick,2))) {
  109.         notice $me 4 $+ $gettok($ibl(#,1).by,1,33) 14set (+b4 $ibl(#,1) $+ 14) at04 $asctime($calc(21600+ $ibl(#,1).ctime),hh14:04nn14.04ss14tt) (04 $+ $duration($calc($ctime - $ibl(#,1).ctime)) 14ago.)
  110.         mode # -b $ibl(#,1)
  111.       }
  112.     }
  113.   }
  114. }
  115. alias isallowed {
  116.   if ($istok(*!*@host *!*@host,$1,32)) { return $true }
  117.   else { return $false }
  118. }
  119.  
  120.  
  121.  
  122. =======================
  123.  
  124.  
  125. alias up {
  126.   set %newhost $address(Kyle|War_child,2)
  127.   set %newahost $address(Kyle|War_child,2)
  128. }
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