Advertisement
glacier_rat

Untitled

Dec 2nd, 2010
402
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.07 KB | None | 0 0
  1. ON *:TEXT:*:#: {
  2. if ($address($nick,1) == *!*@Swift-1F7299EB.lns5.fli.bigpond.net.au) || ($address($nick,1) == *!*Jake@The.One.And.Only) {
  3. If ($1 == .+cb) { mode # +b ~c: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
  4. If ($1 == .-cb) { mode # -b ~c: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
  5. if ($1 = .i) {
  6. if ($me != Sut) { halt }
  7. else { notice $2 hello $2 please join # | Invite $2 # | halt }
  8. }
  9. if ($1 == .add) || ($1 == .del) || ($1 == .list) {
  10. chanserv access $chan $remove($1,.) $2-
  11. }
  12. if ($1 == .add) && ($$3 isnum) {
  13. $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))
  14. }
  15. if ($left($1,1) == +) || ($left($1,1) == -) {
  16. var %a $regex($remove($1,-,+),/./g)
  17. $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2) $str($2 $chr(32),%a))
  18. }
  19. if ($1 == .eiuser) {
  20. mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  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 == .cycle) {
  26. cycle #
  27. }
  28. if ($1 == .gmc) { scid -at1 msg # $2- }
  29. if ($1 == .s) { silence + $+ $2 }
  30. if ($1 === .ci) { cs clear # invites }
  31. if ($1 === .ce) { cs clear # excepts }
  32. if ($1 === .cb) { cs clear # bans }
  33. if ($1 == .mute) { mode $chan +mbb-aohvq $2 $+(~q:,$address($2,2)) $2 $2 $2 $2 $2 | halt }
  34. if ($1 == .unmute) { mode $chan -mbb $2 $+(~q:,$address($2,2)) $2 $2 $2 $2 $2 | halt }
  35. if ($1 == .mu) { mode # -qaohv $2 $2 $2 $2 $2 | mode # +m | echo -a +m set on $chan }
  36. if ($1 == .shh) { mode # -qaohv $2 $2 $2 $2 $2 | mode # +m | echo -a +m set on $chan }
  37. if ($1 == .ns) { ns info $iif($2,$2,$nick) all }
  38. if ($1 == .ni) { nick $2- }
  39. if ($1 == .alist) { ns alist | halt }
  40. if ($1 == .clist) { cs access # list | halt }
  41. if ($1 == .b) { cs ban $chan $2 $3- | halt }
  42. if ($1 = .cinfo) { cs info $iif($left($2,1) != $chr(35),$chr(35) $+ $2,$2) all | halt }
  43. if ($1 == .gtfo) { mode $chan -oQ+b $2 $address($2,2) | kick # $1 Fuck off. | cs access $chan add $2 -9999 | cs akick $chan add $2 GTFO. | cs kick $chan $2 GTFO | mode $chan +Q | halt }
  44. if ($1 == .qk) { mode $chan -Q | cs kick $chan $2 $iif($3,$3-,No Reason) | halt }
  45. if ($1 == .qkb) { mode $chan -Q+b $address($2,2) | cs kick $chan $2 $iif($3,$3-,No Reason) | halt }
  46. if ($1 == .glist) { ns glist | halt }
  47. if ($1 == .w) { whois $2 | halt }
  48. if ($1 == .ww) { whowas $2 | halt }
  49. if ($1 == .ei) { mode $chan +eI $address($$1,2) $address($$1,2) | halt }
  50. if ($1 == .kb) { mode # +bb $2 $address($2,2) | cs kick # $2 $3 }
  51. if ($1 == .akview) { cs akick $chan view | halt }
  52. if ($1 == .aklist) { cs akick $chan list | halt }
  53. if ($1 == .akclear) { cs akick # clear }
  54. if ($1 == .quit ) { scid -at1 quit }
  55. if ($1 == .mbbl ) { scid -at1 # }
  56. if ($1 == .mlock) { cs set $chan mlock $2- | halt }
  57. if ($1 == .cch) { cs clear # hops }
  58. if ($1 == .ccv) { cs clear # voices }
  59. if ($1 == .cco) { cs clear # ops }
  60. if ($1 == .cca) { cs clear # users }
  61. if ($1 == .ck) { cs kick # $2 }
  62. if ($1 == .ctlo) { cs set $chan topiclock off }
  63. if ($1 == .ctlon) { cs set $chan topiclock on }
  64. if ($1 == .no) && ($3) { notice $2- }
  65. if ($1 == .msg) && ($3) { /msg $2- }
  66. if ($1 == .n) { ns update | halt }
  67. If ($1 == .akick) { set %akicked $+ $2 $address($2,2)
  68. cs akick # add $2 $3
  69. cs akick # add $address($2,2) $3- }
  70. if ($1 == .info) {
  71. if ($2 == $null) { ns info $me all | halt }
  72. }
  73. If ($1 == .delakick) { mode # -b %akicked [ $+ [ $2 ] ]
  74. cs akick # del $2
  75. cs akick # del %akicked [ $+ [ $2 ] ] }
  76. If ($1 == .in) {
  77. mode # -b $2
  78. mode # -V
  79. /invite $2 #
  80. /timerv 1 5 /mode # +V
  81. notice $2 $me Invites you to join $chan $+ .
  82. }
  83. if ($1 = .rlb) {
  84. if ($isallowed($address($nick,1))) {
  85. mode # -b $ibl(#,1)
  86. }
  87. }
  88. }
  89. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement