API tools faq
paste
Guest User

Untitled

a guest
Jun 23rd, 2018
89
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 21.89 KB | None | 0 0
raw download clone embed print report
  1. on *:TEXT:*:#:{
  2. if ($1 == !add) && ($nick isop #) {
  3. writeini users.ini $2 level $3
  4. }
  5. elseif ($1 == !del) && ($nick isop #) {
  6. remini users.ini $2
  7. }
  8. }
  9.  
  10. on *:JOIN:#:{
  11. if ($readini(users.ini,$nick,level) isnum 1-3) { mode # +v $nick }
  12. if ($readini(users.ini,$nick,level) isnum 4-6) { mode # +h $nick }
  13. if ($readini(users.ini,$nick,level) isnum 7-10) { mode # +o $nick }
  14. if ($readini(users.ini,$nick,level) isnum 11-9998) { mode # +a $nick }
  15. if ($readini(users.ini,$nick,level) isnum 9999) { mode # +q $nick }
  16. }
  17.  
  18.  
  19.  
  20. on *:INPUT:#: {
  21. if ($1 == .fill) && ($2 == e) {
  22. mode # +eeeeeeeeeeee 1 2 3 4 5 6 7 8 9 10 11 12
  23. mode # +eeeeeeeeeeee 13 14 15 16 17 18 19 20 21 22 23 24
  24. mode # +eeeeeeeeeeee 25 26 27 28 29 30 31 32 33 34 35 36
  25. mode # +eeeeeeeeeeee 37 38 39 40 41 42 43 44 45 46 47 48
  26. mode # +eeeeeeeeeeee 49 50 51 52 53 54 55 56 57 58 59 60
  27. mode # +eeeeeeeeeeee 49 50 51 52 53 54 55 56 57 58 59 60
  28. mode # +eeeeeeeeeeee 61 62 63 64 65 66 67 68 69 70 71 72
  29. mode # +eeeeeeeeeeee 73 74 75 76 77 78 79 80 81 82 83 84
  30. mode # +eeeeeeeeeeee 85 86 87 88 89 90 91 92 93 94 95 96
  31. mode # +eeee 97 98 99 100
  32. }
  33. if ($1 == .unfill) && ($2 == e) {
  34. mode # -eeeeeeeeeeee 1 2 3 4 5 6 7 8 9 10 11 12
  35. mode # -eeeeeeeeeeee 13 14 15 16 17 18 19 20 21 22 23 24
  36. mode # -eeeeeeeeeeee 25 26 27 28 29 30 31 32 33 34 35 36
  37. mode # -eeeeeeeeeeee 37 38 39 40 41 42 43 44 45 46 47 48
  38. mode # -eeeeeeeeeeee 49 50 51 52 53 54 55 56 57 58 59 60
  39. mode # -eeeeeeeeeeee 49 50 51 52 53 54 55 56 57 58 59 60
  40. mode # -eeeeeeeeeeee 61 62 63 64 65 66 67 68 69 70 71 72
  41. mode # -eeeeeeeeeeee 73 74 75 76 77 78 79 80 81 82 83 84
  42. mode # -eeeeeeeeeeee 85 86 87 88 89 90 91 92 93 94 95 96
  43. mode # -eeee 97 98 99 100
  44. }
  45. if ($1 == .fill) && ($2 == i) {
  46. mode # +IIIIIIIIIIII 1 2 3 4 5 6 7 8 9 10 11 12
  47. mode # +IIIIIIIIIIII 13 14 15 16 17 18 19 20 21 22 23 24
  48. mode # +IIIIIIIIIIII 25 26 27 28 29 30 31 32 33 34 35 36
  49. mode # +IIIIIIIIIIII 37 38 39 40 41 42 43 44 45 46 47 48
  50. mode # +IIIIIIIIIIII 49 50 51 52 53 54 55 56 57 58 59 60
  51. mode # +IIIIIIIIIIII 49 50 51 52 53 54 55 56 57 58 59 60
  52. mode # +IIIIIIIIIIII 61 62 63 64 65 66 67 68 69 70 71 72
  53. mode # +IIIIIIIIIIII 73 74 75 76 77 78 79 80 81 82 83 84
  54. mode # +IIIIIIIIIIII 85 86 87 88 89 90 91 92 93 94 95 96
  55. mode # +IIII 97 98 99 100
  56. }
  57. if ($1 == .unfill) && ($2 == i) {
  58. mode # -IIIIIIIIIIII 1 2 3 4 5 6 7 8 9. 10 11 12
  59. mode # -IIIIIIIIIIII 13 14 15 16 17 18 19 20 21 22 23 24
  60. mode # -IIIIIIIIIIII 25 26 27 28 29 30 31 32 33 34 35 36
  61. mode # -IIIIIIIIIIII 37 38 39 40 41 42 43 44 45 46 47 48
  62. mode # -IIIIIIIIIIII 49 50 51 52 53 54 55 56 57 58 59 60
  63. mode # -IIIIIIIIIIII 49 50 51 52 53 54 55 56 57 58 59 60
  64. mode # -IIIIIIIIIIII 61 62 63 64 65 66 67 68 69 70 71 72
  65. mode # -IIIIIIIIIIII 73 74 75 76 77 78 79 80 81 82 83 84
  66. mode # -IIIIIIIIIIII 85 86 87 88 89 90 91 92 93 94 95 96
  67. mode # -IIII 97 98 99 100
  68. }
  69. if ($1 == .fill) && ($2 == b) {
  70. mode # +bbbbbbbbbbbb 1 2 3 4 5 6 7 8 9 10 11 12
  71. mode # +bbbbbbbbbbbb 13 14 15 16 17 18 19 20 21 22 23 24
  72. mode # +bbbbbbbbbbbb 25 26 27 28 29 30 31 32 33 34 35 36
  73. mode # +bbbbbbbbbbbb 37 38 39 40 41 42 43 44 45 46 47 48
  74. mode # +bbbbbbbbbbbb 49 50 51 52 53 54 55 56 57 58 59 60
  75. mode # +bbbbbbbbbbbb 49 50 51 52 53 54 55 56 57 58 59 60
  76. mode # +bbbbbbbbbbbb 61 62 63 64 65 66 67 68 69 70 71 72
  77. mode # +bbbbbbbbbbbb 73 74 75 76 77 78 79 80 81 82 83 84
  78. mode # +bbbbbbbbbbbb 85 86 87 88 89 90 91 92 93 94 95 96
  79. mode # +bbbb 97 98 99 100
  80. }
  81. if ($1 == .nsu) {
  82. /msg nickserv update
  83. }
  84. if ($1 == .lL) {
  85. /cs set # mlock +ntlL $+ $2-
  86. }
  87. if ($1 == .dis) {
  88. cs levels # dis $2-
  89. }
  90. if ($1 == .op) {
  91. cs op #
  92. }
  93. if ($1 == .dev) {
  94. cs devoice #
  95. }
  96. if ($1 == deop) {
  97. cs deop #
  98. }
  99. if ($1 == .rlb) {
  100. mode $chan -b $ibl(#,1)
  101. }
  102. if ($1 == .bsadd) {
  103. bs badwords # add $2-
  104. }
  105. if ($1 == .rle) {
  106. mode $chan -e $iel(#,1)
  107. }
  108. if ($1 == .rli) {
  109. mode $chan -I $iil(#,1)
  110. }
  111. if ($1 == .rawr) {
  112. $chan 9RAWR IM A DINOSAUR
  113. }
  114. if ($1 == .i) {
  115. invite $2 $chan
  116.  
  117. }
  118. if ($1 == .cdrop) {
  119. cs drop #
  120. }
  121. if ($1 == .nreg) {
  122. ns register urpass email
  123. }
  124. if ($1 == .creg) {
  125. cs register # urpass $2-
  126. }
  127. if ($1 == .restricted) {
  128. cs set # restricted $2-
  129. }
  130. if ($1 == .desc) {
  131. cs set # desc $2-
  132. }
  133. if ($1 == .web) {
  134. cs set # website $2-
  135. }
  136. if ($1 == .email) {
  137. cs set # email $2-
  138. }
  139. if ($1 == /cycle) {
  140. cycle $chan
  141. cycle $chan
  142. cycle $chan
  143. cycle $chan
  144. cycle $chan
  145. cycle $chan
  146. cycle $chan
  147. cycle $chan
  148. cycle $chan
  149. cycle $chan
  150. cycle $chan
  151. cycle $chan
  152. cycle $chan
  153. cycle $chan
  154. cycle $chan
  155. cycle $chan
  156. cycle $chan
  157. cycle $chan
  158. cycle $chan
  159. cycle $chan
  160. cycle $chan
  161. cycle $chan
  162. cycle $chan
  163. cycle $chan
  164. cycle $chan
  165. cycle $chan
  166. cycle $chan
  167.  
  168. }
  169. if ($1 == .cinfo) {
  170. cs info $chan
  171. }
  172. if ($1 == .ninfo ) {
  173. ns info $2
  174. }
  175. if ($1 == .ms) {
  176. ms $2-
  177. }
  178. if ($1 == .fantasy) {
  179. bs set # fantasy $2-
  180. }
  181. if ($1 == .amsg) {
  182. amsg 11,1▁ ▂ ▃ ▄ ▅ ▆ ▇ 13 ◕‿◕ AMSG ◕‿◕ 11,1 ▇ ▆ ▅ ▄ ▃ ▂ ▁ :11 $2-
  183. }
  184. if ($1 == .qkb ) {
  185. .mode $chan -Q+b $address($2,2)
  186. kick $chan $2-
  187. }
  188. if ($1 == .qk ) {
  189. .mode $chan -Q
  190. kick $chan $2-
  191. }
  192. if ($1 == .chanreg) {
  193. cs register $chan urpass $2-
  194. }
  195. if ($1 == .chandrop) {
  196. cs drop $chan
  197. }
  198. if ($1 == .assign) {
  199. bs assign $chan $2-
  200. }
  201. if ($1 == .signkick) {
  202. cs set # signkick $2-
  203. }
  204. if ($1 == .cban ) {
  205. mode $chan +b ~c: $+ $2-
  206. }
  207. if ($1 == .dcban ) {
  208. mode $chan -b ~c: $+ $2-
  209. }
  210. if ($1 == .moad) {
  211. /mode $me $2-
  212. }
  213. if ($1 == .set) {
  214. cs set $chan $2-
  215. }
  216. if ($1 == .mlock ) {
  217. cs set $chan mlock $2-
  218. }
  219. if ($1 == .akick ) {
  220. cs akick $chan add $2-
  221. }
  222. if ($1 == .dakick ) {
  223. cs akick $chan del $2-
  224. }
  225. if ($1 == .cakick ) {
  226. cs clear # akick
  227. }
  228. if ($1 == .glist) {
  229. ns glist
  230. }
  231. if ($1 == .entrymsg) {
  232. cs set $chan entrymsg $2-
  233. }
  234. if ($1 == .av) {
  235. if ($2- == on) { cs levels # set autovoice -1 }
  236. if ($2- == off) { cs levels # set autovoice 3 }
  237. }
  238. if ($2) && ($1 == *eI) {
  239. mode $chan +eeII $address($2,9) $address($2,9)
  240. }
  241. if ($1 == .eI) && (!$2) {
  242. mode $chan +eeII $address($me,9) $address($me,2) $address($me,9) $address($me,2)
  243. }
  244. if ($2) && ($1 == .eI) {
  245. mode $chan +eeII $address($2,9) $address($2,2) $address($2,9) $address($2,2)
  246. }
  247. if ($1 == -eI) && (!$2) {
  248. mode $chan -eeII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
  249. }
  250. if ($2) && ($1 == -eI) {
  251. mode $chan -eeII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  252. }
  253. if ($1 == .id) && (!$2) {
  254. /msg nickserv identify urpass
  255. }
  256. if ($1 == .add) || ($1 == .del) || ($1 == .list) {
  257. cs access $chan $remove($1,.) $2-
  258. }
  259. if ($1 == .add) && ($3 isnum) {
  260. mode $chan $iif($3 == 3,+v) $iif($3 == 4,+h-v) $iif($3 isnum 5-9,+o-hv) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5)
  261. }
  262. if ($left($1,1) == +) || ($left($1,1) == -) {
  263. $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2))
  264. }
  265. if ($1 == .v) {
  266. mode $chan +v $2
  267. }
  268. if ($1 == .dev) {
  269. mode $chan -v $2
  270. }
  271. if ($1 == .topiclock &) {
  272. cs set $chan topiclock $2-
  273. }
  274. if ($1 == .secureops) {
  275. cs set $chan secureops $2-
  276. }
  277. if ($1 == .settopic) {
  278. topic $chan $2-
  279. }
  280. if ($1 == .k) {
  281. kick $chan $2-
  282. }
  283. if ($1 == .kick) {
  284. kick $chan $2-
  285. }
  286. if ($1 == .op) {
  287. mode $chan +o $2
  288. }
  289. if ($1 == .mode) {
  290. mode $chan $2
  291. }
  292. if ($1 == .ban) {
  293. mode $chan +b $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  294. }
  295. if ($1 == .deop) {
  296. mode $chan -o $2
  297. }
  298. if ($1 == .hop) {
  299. mode $chan +h $2
  300. }
  301. if ($1 == .dehop) {
  302. mode $chan -h $2
  303. }
  304. if ($1 == .aop) {
  305. mode $chan +ao $2 $2
  306. }
  307. if ($1 == .deaop) {
  308. mode $chan -ao $2 $2
  309. }
  310. if ($1 == .qo) {
  311. mode $chan +qo $2 $2
  312. }
  313. if ($1 == .deqo) {
  314. mode $chan -qo $2 $2
  315. }
  316. if ($1 == .powerrangerkick) {
  317. mode $chan +b $address($2,2)
  318. mode $chan +b $2
  319. kick $chan $2 $read(kick.txt)
  320. }
  321. if ($1 == .unban) {
  322. mode $chan -b $2
  323. mode $chan -b $address($2,2)
  324. }
  325. if ($1 == .chantakemodes) {
  326. mode $chan +iRmMpl-ntQ 1
  327. }
  328. if ($1 == .ban) {
  329. mode $chan +b $address($2,2)
  330. }
  331. if ($1 == .deop) {
  332. mode $chan -o $2
  333. }
  334. if ($1 == .topic) {
  335. msg $chan Topic7: $chan($chan).topic
  336. }
  337. if ($1 == .topiclock ) {
  338. cs set $chan topiclock $2
  339. }
  340. if ($1 == .whois ) {
  341. whois $2
  342. }
  343. if ($1 == .cgdemon ) {
  344. msg # 1,4I Love you 8,1CG_DEMON so much 4<3<3<3
  345.  
  346. }
  347. if ($1 == .hl) {
  348. msg $chan $2-
  349. msg $chan $2-
  350. msg $chan $2-
  351. msg $chan $2-
  352. msg $chan $2-
  353. }
  354. }
  355.  
  356. ##############
  357.  
  358. alias masshl $iif($numtok($2-,32) < $nick($1,0),scid $cid masshl $1- $nick($1,$calc($numtok($2-,32) +1)),/msg $1-)
  359.  
  360. ##############
  361.  
  362. dialog qctime {
  363. title \"Query Control Ignore Time\"
  364. size -1 -1 140 50
  365. option dbu
  366. text \"How long for the ignore?\", 1, 4 10 100 10
  367. edit \"\", 2, 4 20 132 10, return
  368. button \"Seconds\", 3, 12 34 37 12, flat
  369. button \"Minutes\", 4, 51 34 37 12, flat
  370. button \"Permanent\", 5, 90 34 37 12, flat
  371. box \"Ignore\", 6, 1 1 138 48
  372. }
  373. on *:dialog:qctime:sclick:3: {
  374. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  375. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  376. close -m %qnick
  377. ignore -pu $+ $did(qctime,2) %qnick
  378. echo -at [Ignore] %qnick is being Ignored for $did(qctime,2) seconds.
  379. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],Sorry) You have been $+(ignored,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  380. dialog -x qctime
  381. unset %qnick
  382. }
  383. on *:dialog:qctime:sclick:4: {
  384. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  385. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  386. close -m %qnick
  387. ignore -pu $+ $calc($did(qctime,2) * 60) %qnick
  388. echo -at [Ignore] %qnick is being Ignored for $did(qctime,2) minutes.
  389. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],Sorry) You have been $+(ignored,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  390. dialog -x qctime
  391. unset %qnick
  392. }
  393. on *:dialog:qctime:sclick:5: {
  394. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  395. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  396. close -m %qnick
  397. ignore -p %qnick
  398. echo -at [Ignore] %qnick is being permanently Ignored. To remove it type /ignore -r %qnick $+ .
  399. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],Sorry) You have been $+(ignored,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  400. dialog -x qctime
  401. unset %qnick
  402. }
  403. dialog qctime2 {
  404. title \"Query Control Ignore Time\"
  405. size -1 -1 140 50
  406. option dbu
  407. text \"How long for the ignore?\", 1, 4 10 100 10
  408. edit \"\", 2, 4 20 132 10, return
  409. button \"Seconds\", 3, 12 34 37 12, flat
  410. button \"Minutes\", 4, 51 34 37 12, flat
  411. button \"Permanent\", 5, 90 34 37 12, flat
  412. box \"Ignore All\", 6, 1 1 138 48
  413. }
  414. on *:dialog:qctime2:sclick:3: {
  415. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  416. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  417. set -u $+ $did(qctime2,2) %qcignoreall on
  418. close -m %qnick
  419. ignore -pu $+ $did(qctime2,2) *
  420. echo -at [Ignore All] All Private Messages are being Ignored for $did(qctime,2) seconds. To remove it early type /ignoreall off
  421. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],Sorry,$chr(44)) All Private Messages are now being $+(ignored,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  422. dialog -x qctime2
  423. unset %qnick
  424. }
  425. on *:dialog:qctime2:sclick:4: {
  426. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  427. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  428. set -u $+ $calc($did(qctime2,2) * 60) %qcignoreall on
  429. close -m %qnick
  430. ignore -pu $+ $calc($did(qctime2,2) * 60) *
  431. echo -at [Ignore All] All Private Messages are being Ignored for $did(qctime,2) minutes. To remove it early type /ignoreall off
  432. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],Sorry,$chr(44)) All Private Messages are now being $+(ignored,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  433. dialog -x qctime2
  434. unset %qnick
  435. }
  436. on *:dialog:qctime2:sclick:5: {
  437. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  438. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  439. set %qcignoreall on
  440. close -m %qnick
  441. ignore -p *
  442. echo -at [Ignore All] All Private Messages are being permanently Ignored. To remove it type /ignoreall off
  443. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],Sorry,$chr(44)) All Private Messages are now being $+(ignored,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  444. dialog -x qctime2
  445. unset %qnick
  446. }
  447. dialog qc {
  448. title \"Query Controller\"
  449. size -1 -1 140 80
  450. option dbu
  451. edit \"\", 3, 4 10 132 10, read
  452. text \"From:\", 5, 4 24 14 8
  453. edit \"\", 7, 20 22 116 10, read
  454. button \"Accept\", 1, 12 34 37 12, flat
  455. button \"Decline\", 2, 51 34 37 12, flat
  456. button \"Ignore\", 6, 90 34 37 12, flat
  457. button \"Auto-Accept\", 8, 31 49 37 12, flat
  458. button \"Auto-Decline\", 9, 72 49 37 12, flat
  459. button \"Accept All\", 10, 12 63 37 12, flat
  460. button \"Decline All\", 11, 51 63 37 12, flat
  461. button \"Ignore All\", 12, 90 63 37 12, flat
  462. box \"Query Control\", 4, 1 1 138 77
  463. }
  464. on *:dialog:qc:sclick:1:{
  465. set %pmcolor3 [ $+ [ %qnick ] ] $r(2,14)
  466. set %pmcolor4 [ $+ [ %qnick ] ] $r(2,14)
  467. window -w %qnick
  468. msg %qnick $+(,%pmcolor3 [ $+ [ %qnick ] ],$chr(40),,%pmcolor4 [ $+ [ %qnick ] ],Your) query has been $+(accepted,,%pmcolor3 [ $+ [ %qnick ] ],$chr(41)) 1,0
  469. dialog -x qc
  470. window -a %qnick
  471. unset %qnick
  472. }
  473. on *:dialog:qc:sclick:2:{
  474. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  475. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  476. close -m %qnick
  477. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],sorry) Your query has been $+(declined,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  478. dialog -x qc
  479. unset %qnick
  480. }
  481. on *:dialog:qc:sclick:6:{
  482. dialog -x qc
  483. dialog -m qctime qctime
  484. }
  485. on *:dialog:qc:sclick:8:{
  486. set %pmcolor3 [ $+ [ %qnick ] ] $r(2,14)
  487. set %pmcolor4 [ $+ [ %qnick ] ] $r(2,14)
  488. window -w %qnick
  489. msg %qnick $+(,%pmcolor3 [ $+ [ %qnick ] ],$chr(40),,%pmcolor4 [ $+ [ %qnick ] ],Your) query has been added to the Auto-Accept $+(list,,%pmcolor3 [ $+ [ %qnick ] ],$chr(41)) 1,0
  490. set %autoaccept [ $+ [ %qnick ] ] Auto-Accept
  491. set %autoacceptlist $addtok(%autoacceptlist, %qnick, 32)
  492. dialog -x qc
  493. window -a %qnick
  494. unset %qnick
  495. }
  496. on *:dialog:qc:sclick:9:{
  497. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  498. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  499. close -m %qnick
  500. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],sorry) Your query has been added to the Auto-Decline $+(list,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  501. set %autodecline [ $+ [ %qnick ] ] Auto-Decline
  502. set %autodeclinelist $addtok(%autodeclinelist, %qnick, 32)
  503. dialog -x qc
  504. unset %qnick
  505. }
  506. on *:dialog:qc:sclick:10:{
  507. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  508. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  509. set %qcacceptall on
  510. window -w %qnick
  511. echo -at [Accept All] You have enabled the Accept All feature. All Private Messages will now be Accepted.
  512. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],I) have just enabled the Accept All feature. All Private Messages will now be $+(Accepted.,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  513. dialog -x qc
  514. window -a %qnick
  515. unset %qnick
  516. }
  517. on *:dialog:qc:sclick:11:{
  518. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  519. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  520. set %qcdeclineall on
  521. close -m %qnick
  522. echo -at [Decline All] You have enabled the Decline All feature. All Private Messages will now be Declined.
  523. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],I) have just enabled the Decline All feature. All Private Messages will now be $+(Declined.,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  524. dialog -x qc
  525. unset %qnick
  526. }
  527. on *:dialog:qc:sclick:12:{
  528. dialog -x qc
  529. dialog -m qctime2 qctime2
  530. }
  531. on *:OPEN:?: {
  532. if (%query.blocker) {
  533. if ($dialog(qc)) { halt }
  534. if (%qcacceptall) {
  535. set %qnick $nick
  536. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  537. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  538. echo -at [Accept All] Private Message from %qnick has been accepted.
  539. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],All) Private Messages are being $+(Accepted.,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  540. unset %qnick
  541. halt
  542. }
  543. if (%autoaccept [ $+ [ $nick ] ]) {
  544. set %pmcolor5 [ $+ [ $nick ] ] $r(2,14)
  545. set %pmcolor6 [ $+ [ $nick ] ] $r(2,14)
  546. msg $nick $+(,%pmcolor5 [ $+ [ $nick ] ],$chr(40),,%pmcolor6 [ $+ [ $nick ] ],Your) Query has been $+(Auto-Accepted,,%pmcolor5 [ $+ [ $nick ] ],$chr(41)) 1,0
  547. halt
  548. }
  549. if (%qcdeclineall) {
  550. set %qnick $nick
  551. set %pmcolor1 [ $+ [ %qnick ] ] $r(2,14)
  552. set %pmcolor2 [ $+ [ %qnick ] ] $r(2,14)
  553. close -m %qnick
  554. echo -at [Decline All] Private Message from %qnick has been declined.
  555. msg %qnick $+(,%pmcolor1 [ $+ [ %qnick ] ],$chr(40),,%pmcolor2 [ $+ [ %qnick ] ],All) Private Messages are being $+(Blocked.,,%pmcolor1 [ $+ [ %qnick ] ],$chr(41)) 1,0
  556. unset %qnick
  557. halt
  558. }
  559. if (%autodecline [ $+ [ $nick ] ]) {
  560. set %pmcolor5 [ $+ [ $nick ] ] $r(2,14)
  561. set %pmcolor6 [ $+ [ $nick ] ] $r(2,14)
  562. close -m $nick
  563. msg $nick $+(,%pmcolor5 [ $+ [ $nick ] ],$chr(40),,%pmcolor6 [ $+ [ $nick ] ],Your) Query has been $+(Auto-Declined,,%pmcolor5 [ $+ [ $nick ] ],$chr(41)) 1,0
  564. echo -at [Query Controller] Auto-Declined $nick $+ \'s Query.
  565. halt
  566. }
  567. else {
  568. %qnick = $nick
  569. set %pmcolor5 [ $+ [ $nick ] ] $r(2,14)
  570. set %pmcolor6 [ $+ [ $nick ] ] $r(2,14)
  571. window -h %qnick
  572. msg %qnick $+(,%pmcolor5 [ $+ [ $nick ] ],$chr(40),,%pmcolor6 [ $+ [ $nick ] ],Please) Wait a moment For $me to Accept/Decline your $+(query,,%pmcolor5 [ $+ [ $nick ] ],$chr(41)) 1,0
  573. dialog -m qc qc
  574. did -a qc 7 %qnick
  575. did -a qc 3 $1-
  576. }
  577. }
  578. }
  579. menu * {
  580. Query Controller
  581. . $+ $iif(%query.blocker,Turn Off,Turn On) $+ : $iif(%query.blocker,unset %query.blocker,set %query.blocker on))
  582. .Decline All
  583. .. $+ $iif(%qcdeclineall,off,on) $+ : $iif(%qcdeclineall,declineall off,declineall on)
  584. .Accept All
  585. .. $+ $iif(%qcacceptall,off,on) $+ : $iif(%qcacceptall,acceptall off,acceptall on)
  586. .Ignore All
  587. .. $+ $iif(%qcignoreall,off,on) $+ : $iif(%qcignoreall,ignoreall off,ignoreall on)
  588. }
  589. menu Query {
  590. Query Controller
  591. .Auto-Accept
  592. .. $+ $iif($active isin %autoacceptlist,Delete,Add) $+ : $iif($active isin %autoacceptlist,autoaccept del $active,autoaccept add $active)
  593. .Auto-Decline
  594. .. $+ $iif($active isin %autodeclinelist,Delete,Add) $+ : $iif($active isin %autodeclinelist,autodecline del $active,autodecline add $active)
  595. }
  596.  
  597. alias autoaccept {
  598. if ($1 == add && $2 isin %autoacceptlist) {
  599. echo -a [Auto-Accept] $$2 is already in the Auto-Accept list
  600. }
  601. if ($1 == add && $2 !isin %autoacceptlist) {
  602. unset %autodecline [ $+ [ $2 ] ]
  603. set %autodeclinelist $remtok(%autodeclinelist, $2, 32)
  604. set %autoaccept [ $+ [ $2 ] ] Auto-Accept
  605. set %autoacceptlist $addtok(%autoacceptlist, $2, 32)
  606. echo -a [Auto-Accept] $$2 added to the Auto-Accept list
  607. }
  608. if ($regex($1,/^(del(ete)?|rem(ove)?)$/Si) && $2 !isin %autoacceptlist) {
  609. echo -a [Auto-Accept] $$2 was not found in the Auto-Accept list.
  610. }
  611. if ($regex($1,/^(del(ete)?|rem(ove)?)$/Si) && $2 isin %autoacceptlist) {
  612. unset %autoaccept [ $+ [ $2 ] ]
  613. set %autoacceptlist $remtok(%autoacceptlist, $2, 32)
  614. echo -a [Auto-Accept] $$2 deleted from the Auto-Accept list
  615. }
  616. if ($1 == list) {
  617. echo -a [Auto-Accept] %autoacceptlist
  618. }
  619. }
  620. alias autodecline {
  621. if ($1 == add && $2 isin %autodeclinelist) {
  622. echo -a [Auto-Decline] $$2 is already in the Auto-Decline list
  623. }
  624. if ($1 == add && $2 !isin %autodeclinelist) {
  625. unset %autoaccept [ $+ [ $2 ] ]
  626. set %autoacceptlist $remtok(%autoacceptlist, $2, 32)
  627. set %autodecline [ $+ [ $2 ] ] Auto-Decline
  628. set %autodeclinelist $addtok(%autodeclinelist, $2, 32)
  629. echo -a [Auto-Decline] $$2 added to the Auto-Decline list
  630. }
  631. if ($regex($1,/^(del(ete)?|rem(ove)?)$/Si) && $2 !isin %autodeclinelist) {
  632. echo -a [Auto-Decline] $$2 was not found in the Auto-Decline list.
  633. }
  634. if ($regex($1,/^(del(ete)?|rem(ove)?)$/Si) && $2 isin %autodeclinelist) {
  635. unset %autodecline [ $+ [ $2 ] ]
  636. set %autodeclinelist $remtok(%autodeclinelist, $2, 32)
  637. echo -a [Auto-Decline] $$2 deleted from the Auto-Decline list
  638. }
  639. if ($1 == list) {
  640. echo -a [Auto-Decline] %autodeclinelist
  641. }
  642. }
  643. alias acceptall {
  644. if ($1 == on && !%qcacceptall) {
  645. echo -at [Accept All] You have enabled the Accept All feature. All Private Messages will now be Accepted.
  646. set %qcacceptall on
  647. }
  648. elseif ($1 == off && %qcacceptall) {
  649. echo -at [Accept All] You have disabled the Accept All feature.
  650. unset %qcacceptall
  651. }
  652. elseif ($1 == on && %qcacceptall) {
  653. echo -at [Accept All] The Accept All feature is already enabled.
  654. }
  655. elseif ($1 == off && !%qcacceptall) {
  656. echo -at [Accept All] The Accept All feature is already disabled.
  657. }
  658. }
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!