API tools faq
paste
Guest User

Untitled

a guest
Jul 22nd, 2018
60
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.21 KB | None | 0 0
raw download clone embed print report
  1. menu menubar,status,channel,nicklist {
  2. Kline Manager:k.line.window
  3. Gline Manager:g.line.window
  4. Shun Manager:shun.window
  5. }
  6.  
  7.  
  8. menu @G-line-manager {
  9. dclick: {
  10. tokenize 32 $sline(@G-line-manager,1)
  11. gline - $+ $2
  12. }
  13. ; G-lines : null.job
  14. -
  15. Remove : gline - $+ $2
  16. Refresh : ref.gline.win
  17. Search By Mask: ref.gline.win.mask
  18. Search By Reason: ref.gline.win.reason
  19. Search By Who Set It: ref.gline.win.user
  20. Close: window -c @G-line-manager
  21. }
  22.  
  23. alias ref.gline.win {
  24. clear @G-line-manager
  25. clear -l @G-line-manager
  26. aline -l @G-line-manager [: Begining G-line list .... :]
  27. set %g.num 0
  28. set %kgshun.active yes
  29. stats g
  30. }
  31.  
  32. alias ref.gline.win.mask {
  33. clear @G-line-manager
  34. clear -l @G-line-manager
  35. aline -l @G-line-manager [: Begining G-line list .... :]
  36. set %g.num 0
  37. set %kgshun.active yes
  38. stats g +m $$?="Mask? (wildcards allowed) *@<ip/host>"
  39. }
  40.  
  41. alias ref.gline.win.reason {
  42. clear @G-line-manager
  43. clear -l @G-line-manager
  44. aline -l @G-line-manager [: Begining G-line list .... :]
  45. set %g.num 0
  46. set %kgshun.active yes
  47. stats g +r $$?="Reason? (wildcards allowed) *word*"
  48. }
  49.  
  50. alias ref.gline.win.user {
  51. clear @G-line-manager
  52. clear -l @G-line-manager
  53. aline -l @G-line-manager [: Begining G-line list .... :]
  54. set %g.num 0
  55. set %kgshun.active yes
  56. stats g +s $$?="Set by? (wildcards allowed)" $+ !*@*
  57. }
  58.  
  59. alias g.line.window {
  60. window -l80 +stnx @G-line-manager 30 40 730 200
  61. aline -l @G-line-manager [: Begining G-line list .... :]
  62. set %g.num 0
  63. set %kgshun.active yes
  64. stats g
  65. }
  66.  
  67. on ^*:snotice:*line*: {
  68. if ( $window(@G-line-manager).state != $null ) {
  69. if ( $2 == permanent ) {
  70. if ( $3 == G:Line ) {
  71. if ( $4 == added ) {
  72. clear @G-line-manager
  73. dline -l @G-line-manager $line(@G-line-manager,0,1)
  74. aline -l @G-line-manager [: $6 :]
  75. aline -l @G-line-manager [: End of G-line list :]
  76. aline @G-line-manager Total
  77. aline @G-line-manager $calc( $line(@G-line-manager,0,1) - 2 )
  78. }
  79. }
  80. }
  81. if ( $2 == removed ) {
  82. if ( $3 == G:Line ) {
  83. var %n = 1, %v
  84. while ( %n <= $line(@G-line-manager,0,1) ) {
  85. %v = $line(@G-line-manager,%n,1)
  86. if ( %n != $null ) {
  87. if ( $4 isin %v ) {
  88. dline -l @G-line-manager %n
  89. %n = 0
  90. }
  91. }
  92. inc %n
  93. }
  94. clear @G-line-manager
  95. aline @G-line-manager Total
  96. aline @G-line-manager $calc( $line(@G-line-manager,0,1) - 2 )
  97. }
  98. }
  99. }
  100. }
  101.  
  102. menu @Shun-manager {
  103. dclick: {
  104. tokenize 32 $sline(@Shun-manager,1)
  105. shun - $+ $2
  106. }
  107. ; Shuns : null.job
  108. -
  109. Remove : shun - $+ $2
  110. Refresh : ref.shun.win
  111. Search By Mask: ref.shun.win.mask
  112. Search By Reason: ref.shun.win.reason
  113. Search By Who Set It: ref.shun.win.user
  114. Close: window -c @Shun-manager
  115. }
  116.  
  117. alias ref.Shun.win {
  118. clear @Shun-manager
  119. clear -l @Shun-manager
  120. aline -l @Shun-manager [: Begining Shun list .... :]
  121. set %shun.num 0
  122. set %kgshun.active yes
  123. stats s
  124. }
  125.  
  126. alias ref.Shun.win.mask {
  127. clear @Shun-manager
  128. clear -l @Shun-manager
  129. aline -l @Shun-manager [: Begining Shun list .... :]
  130. set %shun.num 0
  131. set %kgshun.active yes
  132. stats s +m $$?="Mask? (wildcards allowed) *@<ip/host>"
  133. }
  134.  
  135. alias ref.Shun.win.reason {
  136. clear @Shun-manager
  137. clear -l @Shun-manager
  138. aline -l @Shun-manager [: Begining Shun list .... :]
  139. set %shun.num 0
  140. set %kgshun.active yes
  141. stats s +r $$?="Reason? (wildcards allowed) *word*"
  142. }
  143.  
  144. alias ref.Shun.win.user {
  145. clear @Shun-manager
  146. clear -l @Shun-manager
  147. aline -l @Shun-manager [: Begining Shun list .... :]
  148. set %shun.num 0
  149. set %kgshun.active yes
  150. stats s +s $$?="Set by? (wildcards allowed)" $+ !*@*
  151. }
  152.  
  153. alias shun.window {
  154. window -l80 +stnx @Shun-manager 30 40 730 200
  155. aline -l @Shun-manager [: Begining Shun list .... :]
  156. set %shun.num 0
  157. set %kgshun.active yes
  158. stats s
  159. }
  160.  
  161. on ^*:snotice:*shun*: { if ( $window(@Shun-manager).state != $null ) {
  162. if ( $2 == permanent ) {
  163. if ( $3 == Shun ) {
  164. if ( $4 == added ) {
  165. clear @Shun-manager
  166. dline -l @Shun-manager $line(@Shun-manager,0,1)
  167. aline -l @Shun-manager [: $6 :]
  168. aline -l @Shun-manager [: End of Shun list :]
  169. aline @Shun-manager Total
  170. aline @Shun-manager $calc( $line(@Shun-manager,0,1) - 2 )
  171. }
  172. }
  173. }
  174. if ( $2 == removed ) {
  175. if ( $3 == Shun ) {
  176. var %n = 1, %v
  177. while ( %n <= $line(@Shun-manager,0,1) ) {
  178. %v = $line(@Shun-manager,%n,1)
  179. if ( %n != $null ) {
  180. if ( $4 isin %v ) {
  181. dline -l @Shun-manager %n
  182. %n = 0
  183. }
  184. }
  185. inc %n
  186. }
  187. clear @Shun-manager
  188. aline @Shun-manager Total
  189. aline @Shun-manager $calc( $line(@Shun-manager,0,1) - 2 )
  190. }
  191. }
  192. }
  193. }
  194.  
  195. menu @K-line-manager {
  196. dclick: {
  197. tokenize 32 $sline(@K-line-manager,1)
  198. kline - $+ $2
  199. }
  200. ; K-lines : null.job
  201. -
  202. Remove : kline - $+ $2
  203. Refresh : ref.kline.win
  204. Close: window -c @K-line-manager
  205. }
  206.  
  207. alias ref.kline.win {
  208. clear @K-line-manager
  209. clear -l @K-line-manager
  210. aline -l @K-line-manager [: Begining K-line list .... :]
  211. set %k.num 0
  212. set %kgshun.active yes
  213. stats k
  214. }
  215.  
  216. alias k.line.window {
  217. window -l80 +stnx @K-line-manager 30 40 730 200
  218. aline -l @K-line-manager [: Begining K-line list .... :]
  219. set %k.num 0
  220. set %kgshun.active yes
  221. stats k
  222. }
  223.  
  224. on ^*:snotice:*line*: { if ( $window(@K-line-manager).state != $null ) {
  225. if ( $2 == K:line ) {
  226. if ( $3 == added ) {
  227. clear @K-line-manager
  228. dline -l @K-line-manager $line(@K-line-manager,0,1)
  229. aline -l @K-line-manager [: $6 :]
  230. aline -l @K-line-manager [: End of K-line list :]
  231. aline @K-line-manager Total
  232. aline @K-line-manager $calc( $line(@K-line-manager,0,1) - 2 )
  233. }
  234. }
  235. if ( $2 == removed ) {
  236. if ( $3 == K:Line ) {
  237. var %n = 1, %v
  238. while ( %n <= $line(@K-line-manager,0,1) ) {
  239. %v = $line(@K-line-manager,%n,1)
  240. if ( %n != $null ) {
  241. if ( $4 isin %v ) {
  242. dline -l @K-line-manager %n
  243. %n = 0
  244. }
  245. }
  246. inc %n
  247. }
  248. clear @K-line-manager
  249. aline @K-line-manager Total
  250. aline @K-line-manager $calc( $line(@K-line-manager,0,1) - 2 )
  251. }
  252. }
  253. }
  254. }
  255.  
  256. raw 223:*: {
  257. if (%kgshun.active == yes) {
  258. haltdef
  259. }
  260. if ($2 == g) {
  261. if ( $window(@G-line-manager).state != $null ) {
  262. set %kgshun g
  263. aline -l @G-line-manager [: $3 :] $4-
  264. ;;;[: $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 :]
  265. }
  266. inc %g.num 1
  267. }
  268. if ($2 == s) {
  269. if ( $window(@Shun-manager).state != $null ) {
  270. set %kgshun s
  271. aline -l @Shun-manager [: $3 :] $4-
  272. ;;;[: $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 :]
  273. }
  274. inc %shun.num 1
  275. }
  276. if ($2 == k) {
  277. if ( $window(@K-line-manager).state != $null ) {
  278. set %kgshun k
  279. aline -l @K-line-manager [: $3 :] $4-
  280. ;;;[: $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 :]
  281. }
  282. inc %k.num 1
  283. }
  284. }
  285.  
  286. raw 219:*: {
  287. if (%kgshun.active == yes) {
  288. haltdef
  289. }
  290. if (%kgshun == g) {
  291. if ( $window(@G-line-manager).state != $null ) {
  292. aline -l @G-line-manager [: End of G-line list :]
  293. aline @G-line-manager Total
  294. aline @G-line-manager %g.num
  295. }
  296. unset %kgshun*
  297. }
  298. if (%kgshun == s) {
  299. if ( $window(@Shun-manager).state != $null ) {
  300. aline -l @Shun-manager [: End of Shun list :]
  301. aline @Shun-manager Total
  302. aline @Shun-manager %shun.num
  303. }
  304. unset %kgshun*
  305. }
  306. if (%kgshun == k) {
  307. if ( $window(@K-line-manager).state != $null ) {
  308. aline -l @K-line-manager [: End of K-line list :]
  309. aline @K-line-manager Total
  310. aline @K-line-manager %k.num
  311. }
  312. unset %kgshun*
  313. }
  314. }
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!