API tools faq
paste
Guest User

Untitled

a guest
Dec 11th, 2017
63
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 26.24 KB | None | 0 0
raw download clone embed print report
  1. on *:TEXT:!pick *:#: {
  2. if ($istok(%finished,$nick,32)) && (%forx == 24) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  3. if (%forx == 24) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) {
  4. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  5. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  6. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  7. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  8. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  9. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  10. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  11. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  12. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  13. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  14. set %finished $addtok(%finished,$nick,32)
  15. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  16. }
  17. else {
  18. if (%forx == 24) && !$istok(%finished,$nick,32) {
  19. showexample
  20. }
  21. }
  22. if ($istok(%finished,$nick,32)) && (%forx == 28) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  23. if (%forx == 28) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) {
  24. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  25. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  26. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  27. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  28. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  29. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  30. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  31. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  32. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  33. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  34. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  35. set %finished $addtok(%finished,$nick,32)
  36. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  37. }
  38. else {
  39. if (%forx == 28) && !$istok(%finished,$nick,32) {
  40. showexample
  41. }
  42. }
  43. if ($istok(%finished,$nick,32)) && (%forx == 32) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  44. if (%forx == 32) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) {
  45. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  46. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  47. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  48. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  49. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  50. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  51. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  52. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  53. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  54. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  55. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  56. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  57. set %finished $addtok(%finished,$nick,32)
  58. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  59. }
  60. else {
  61. if (%forx == 32) && !$istok(%finished,$nick,32) {
  62. showexample
  63. }
  64. }
  65. if ($istok(%finished,$nick,32)) && (%forx == 36) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  66. if (%forx == 36) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) {
  67. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  68. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  69. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  70. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  71. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  72. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  73. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  74. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  75. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  76. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  77. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  78. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  79. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  80. set %finished $addtok(%finished,$nick,32)
  81. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  82. }
  83. else {
  84. if (%forx == 36) && !$istok(%finished,$nick,32) {
  85. showexample
  86. }
  87. }
  88. if ($istok(%finished,$nick,32)) && (%forx == 40) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  89. if (%forx == 40) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) && ($11 isnum 19-20) {
  90. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  91. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  92. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  93. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  94. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  95. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  96. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  97. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  98. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  99. set %f $+ $11 $+ pickedby $addtok(%f [ $+ [ $11 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  100. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  101. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  102. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ $chr(44) [ %f [ $+ [ $11 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  103. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 [ %f [ $+ [ $11 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  104. set %finished $addtok(%finished,$nick,32)
  105. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  106. }
  107. else {
  108. if (%forx == 40) && !$istok(%finished,$nick,32) {
  109. showexample
  110. }
  111. }
  112. if ($istok(%finished,$nick,32)) && (%forx == 44) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  113. if (%forx == 44) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) && ($11 isnum 19-20) && ($12 isnum 21-22) {
  114. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  115. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  116. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  117. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  118. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  119. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  120. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  121. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  122. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  123. set %f $+ $11 $+ pickedby $addtok(%f [ $+ [ $11 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  124. set %f $+ $12 $+ pickedby $addtok(%f [ $+ [ $12 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  125. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  126. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  127. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ $chr(44) [ %f [ $+ [ $11 $+ $chr(44) [ %f [ $+ [ $12 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  128. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 [ %f [ $+ [ $11 [ %f [ $+ [ $12 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  129. set %finished $addtok(%finished,$nick,32)
  130. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  131. }
  132. else {
  133. if (%forx == 44) && !$istok(%finished,$nick,32) {
  134. showexample
  135. }
  136. }
  137. if ($istok(%finished,$nick,32)) && (%forx == 48) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  138. if (%forx == 48) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) && ($11 isnum 19-20) && ($12 isnum 21-22) && ($13 isnum 23-24) {
  139. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  140. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  141. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  142. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  143. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  144. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  145. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  146. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  147. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  148. set %f $+ $11 $+ pickedby $addtok(%f [ $+ [ $11 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  149. set %f $+ $12 $+ pickedby $addtok(%f [ $+ [ $12 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  150. set %f $+ $13 $+ pickedby $addtok(%f [ $+ [ $13 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  151. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  152. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  153. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ $chr(44) [ %f [ $+ [ $11 $+ $chr(44) [ %f [ $+ [ $12 $+ $chr(44) [ %f [ $+ [ $13 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  154. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 [ %f [ $+ [ $11 [ %f [ $+ [ $12 [ %f [ $+ [ $13 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  155. set %finished $addtok(%finished,$nick,32)
  156. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  157. }
  158. else {
  159. if (%forx == 48) && !$istok(%finished,$nick,32) {
  160. showexample
  161. }
  162. }
  163. if ($istok(%finished,$nick,32)) && (%forx == 52) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  164. if (%forx == 52) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) && ($11 isnum 19-20) && ($12 isnum 21-22) && ($13 isnum 23-24) && ($14 isnum 25-26) {
  165. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  166. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  167. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  168. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  169. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  170. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  171. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  172. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  173. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  174. set %f $+ $11 $+ pickedby $addtok(%f [ $+ [ $11 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  175. set %f $+ $12 $+ pickedby $addtok(%f [ $+ [ $12 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  176. set %f $+ $13 $+ pickedby $addtok(%f [ $+ [ $13 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  177. set %f $+ $14 $+ pickedby $addtok(%f [ $+ [ $14 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  178. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  179. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  180. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ $chr(44) [ %f [ $+ [ $11 $+ $chr(44) [ %f [ $+ [ $12 $+ $chr(44) [ %f [ $+ [ $13 $+ $chr(44) [ %f [ $+ [ $14 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  181. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 [ %f [ $+ [ $11 [ %f [ $+ [ $12 [ %f [ $+ [ $13 [ %f [ $+ [ $14 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  182. set %finished $addtok(%finished,$nick,32)
  183. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  184. }
  185. else {
  186. if (%forx == 52) && !$istok(%finished,$nick,32) {
  187. showexample
  188. }
  189. }
  190. if ($istok(%finished,$nick,32)) && (%forx == 56) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  191. if (%forx == 56) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) && ($11 isnum 19-20) && ($12 isnum 21-22) && ($13 isnum 23-24) && ($14 isnum 25-26) && ($15 isnum 27-28) {
  192. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  193. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  194. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  195. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  196. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  197. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  198. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  199. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  200. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  201. set %f $+ $11 $+ pickedby $addtok(%f [ $+ [ $11 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  202. set %f $+ $12 $+ pickedby $addtok(%f [ $+ [ $12 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  203. set %f $+ $13 $+ pickedby $addtok(%f [ $+ [ $13 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  204. set %f $+ $14 $+ pickedby $addtok(%f [ $+ [ $14 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  205. set %f $+ $15 $+ pickedby $addtok(%f [ $+ [ $15 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  206. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  207. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  208. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ $chr(44) [ %f [ $+ [ $11 $+ $chr(44) [ %f [ $+ [ $12 $+ $chr(44) [ %f [ $+ [ $13 $+ $chr(44) [ %f [ $+ [ $14 $+ $chr(44) [ %f [ $+ [ $15 $+ [ $chr(46) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  209. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 [ %f [ $+ [ $11 [ %f [ $+ [ $12 [ %f [ $+ [ $13 [ %f [ $+ [ $14 [ %f [ $+ [ $15 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  210. set %finished $addtok(%finished,$nick,32)
  211. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  212. }
  213. else {
  214. if (%forx == 56) && !$istok(%finished,$nick,32) {
  215. showexample
  216. }
  217. }
  218. if ($istok(%finished,$nick,32)) && (%forx == 60) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  219. if (%forx == 60) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) && ($11 isnum 19-20) && ($12 isnum 21-22) && ($13 isnum 23-24) && ($14 isnum 25-26) && ($15 isnum 27-28) && ($16 isnum 29-30) {
  220. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  221. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  222. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  223. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  224. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  225. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  226. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  227. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  228. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  229. set %f $+ $11 $+ pickedby $addtok(%f [ $+ [ $11 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  230. set %f $+ $12 $+ pickedby $addtok(%f [ $+ [ $12 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  231. set %f $+ $13 $+ pickedby $addtok(%f [ $+ [ $13 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  232. set %f $+ $14 $+ pickedby $addtok(%f [ $+ [ $14 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  233. set %f $+ $15 $+ pickedby $addtok(%f [ $+ [ $15 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  234. set %f $+ $16 $+ pickedby $addtok(%f [ $+ [ $16 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  235. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  236. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  237. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ $chr(44) [ %f [ $+ [ $11 $+ $chr(44) [ %f [ $+ [ $12 $+ $chr(44) [ %f [ $+ [ $13 $+ $chr(44) [ %f [ $+ [ $14 $+ $chr(44) [ %f [ $+ [ $15 $+ $chr(44) [ %f [ $+ [ $16 [ $+ [ $chr(44) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  238. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 [ %f [ $+ [ $11 [ %f [ $+ [ $12 [ %f [ $+ [ $13 [ %f [ $+ [ $14 [ %f [ $+ [ $15 [ %f [ $+ [ $16 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  239. set %finished $addtok(%finished,$nick,32)
  240. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  241. }
  242. else {
  243. if (%forx == 60) && !$istok(%finished,$nick,32) {
  244. showexample
  245. }
  246. }
  247. if ($istok(%finished,$nick,32)) && (%forx == 64) { msg # 4 $+ $nick you have already made picks for %event $+ . | HALT }
  248. if (%forx == 64) && ($2 isnum 1-2) && ($3 isnum 3-4) && ($4 isnum 5-6) && ($5 isnum 7-8) && ($6 isnum 9-10) && ($7 isnum 11-12) && ($8 isnum 13-14) && ($9 isnum 15-16) && ($10 isnum 17-18) && ($11 isnum 19-20) && ($12 isnum 21-22) && ($13 isnum 23-24) && ($14 isnum 25-26) && ($15 isnum 27-28) && ($16 isnum 29-30) && ($17 isnum 31-32) {
  249. set %f $+ $2 $+ pickedby $addtok(%f [ $+ [ $2 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  250. set %f $+ $3 $+ pickedby $addtok(%f [ $+ [ $3 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  251. set %f $+ $4 $+ pickedby $addtok(%f [ $+ [ $4 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  252. set %f $+ $5 $+ pickedby $addtok(%f [ $+ [ $5 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  253. set %f $+ $6 $+ pickedby $addtok(%f [ $+ [ $6 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  254. set %f $+ $7 $+ pickedby $addtok(%f [ $+ [ $7 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  255. set %f $+ $8 $+ pickedby $addtok(%f [ $+ [ $8 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  256. set %f $+ $9 $+ pickedby $addtok(%f [ $+ [ $9 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  257. set %f $+ $10 $+ pickedby $addtok(%f [ $+ [ $10 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  258. set %f $+ $11 $+ pickedby $addtok(%f [ $+ [ $11 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  259. set %f $+ $12 $+ pickedby $addtok(%f [ $+ [ $12 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  260. set %f $+ $13 $+ pickedby $addtok(%f [ $+ [ $13 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  261. set %f $+ $14 $+ pickedby $addtok(%f [ $+ [ $14 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  262. set %f $+ $15 $+ pickedby $addtok(%f [ $+ [ $15 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  263. set %f $+ $16 $+ pickedby $addtok(%f [ $+ [ $16 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  264. set %f $+ $17 $+ pickedby $addtok(%f [ $+ [ $17 [ $+ [ pickedby ] ] ] ] ,$nick,32)
  265. set %picksfor [ $+ [ $nick ] ] $left($regsubex($2-,/(\d+)/g,$(% $+ f\t,2) $+ $iif(\n == $calc(\0 - 1),$chr(44) and,$chr(44))),-1)
  266. set %picktokens [ $+ [ $nick ] ] $($regsubex($2-,/(\d+)/g,% $+ f\t),2)
  267. ;set %picksfor $+ $nick [ %f [ $+ [ $2 $+ $chr(44) [ %f [ $+ [ $3 $+ $chr(44) [ %f [ $+ [ $4 $+ $chr(44) [ %f [ $+ [ $5 $+ $chr(44) [ %f [ $+ [ $6 $+ $chr(44) [ %f [ $+ [ $7 $+ $chr(44) [ %f [ $+ [ $8 $+ $chr(44) [ %f [ $+ [ $9 $+ $chr(44) [ %f [ $+ [ $10 $+ $chr(44) [ %f [ $+ [ $11 $+ $chr(44) [ %f [ $+ [ $12 $+ $chr(44) [ %f [ $+ [ $13 $+ $chr(44) [ %f [ $+ [ $14 $+ $chr(44) [ %f [ $+ [ $15 $+ $chr(44) [ %f [ $+ [ $16 $+ $chr(44) [ %f [ $+ [ $17 [ $+ [ $chr(44) ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  268. ;set %picktokens $+ $nick [ %f [ $+ [ $2 [ %f [ $+ [ $3 [ %f [ $+ [ $4 [ %f [ $+ [ $5 [ %f [ $+ [ $6 [ %f [ $+ [ $7 [ %f [ $+ [ $8 [ %f [ $+ [ $9 [ %f [ $+ [ $10 [ %f [ $+ [ $11 [ %f [ $+ [ $12 [ %f [ $+ [ $13 [ %f [ $+ [ $14 [ %f [ $+ [ $15 [ %f [ $+ [ $16 [ %f [ $+ [ $17 ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ]
  269. set %finished $addtok(%finished,$nick,32)
  270. msg # Thank you 4 $+ $nick $+ ! Type 9!mypicks to see your picks.
  271. }
  272. else {
  273. if (%forx == 64) && !$istok(%finished,$nick,32) {
  274. showexample
  275. }
  276. }
  277. }
  278.  
  279. alias showexample {
  280. msg # 4 $+ $nick  Type 9!pick $chr(35) $chr(35) $chr(35) $chr(35) $chr(35) $chr(35) Example : !pick 2 3 6 7 10 11
  281. }
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!