Advertisement
Guest User

Untitled

a guest
Sep 23rd, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.63 KB | None | 0 0
  1. lias unpick.player {
  2. if ($1 != random) {
  3. var %u = $1
  4. }
  5. else {
  6. var %u = $gettok(%c.playerpool,$r(1,$numtok(%c.playerpool,32)),32)
  7. }
  8. if ($matchtok(%c.sentinel,%u,0,32) > 1) {
  9. var %more = $v1
  10. notice $nick Be more correct! With symbols3 $close2(%u) $+ ,3 %more users are found!
  11. return
  12. }
  13. elseif ($matchtok(%c.scourge,%u,0,32) > 1) {
  14. var %more = $v1
  15. notice $nick Be more correct! With symbols3 $close2(%u) $+ ,3 %more users are found!
  16. return
  17. }
  18.  
  19. elseif ($matchtok(%c.sentinel,%u,1,32)) {
  20. var %u = $ifmatch
  21. }
  22. elseif ($matchtok(%c.scourge,%u,1,32)) {
  23. var %u = $ifmatch
  24. }
  25. var %who = $pick.whopick(%c.challpickround)
  26. if (%who == 1) {
  27. set %c.sentinel $remtok(%c.sentinel,%u,1,32)
  28. set %c.playerpool $addtok(%c.playerpool,%u,32)
  29. set %c.challpickround $remtok(%c.challpickround,1,32)
  30.  
  31.  
  32. }
  33. elseif (%who == 2) {
  34. set %c.scourge $remtok(%c.scourge,%u,1,32)
  35. set %c.playerpool $addtok(%c.playerpool,%u,32)
  36. set %c.challpickround $remtok(%c.challpickround,1,32)
  37.  
  38.  
  39. }
  40. set %c.playerpool $addtok(%c.playerpool,%u,1,32)
  41. if ($nauth(%u)) { mode %ch -v $ifmatch }
  42.  
  43.  
  44. if (%c.challpickround < 8) {
  45. describe %ch $usercolor($($+(%,c.picker,%who),2)) has $iif($1 != unpicked) $usercolor(%u) $+ ! $usercolor($($+(%,c.picker,$pick.whopick($calc(%c.challpickround - 1))),2)) $+ 's turn to pick. Total picked3 $calc($numtok(%c.scourge,32) + $numtok(%c.sentinel,32)) $+ / $+ 10
  46. timerspam.pick1 1 30 spam.pick1
  47. timerspam.pick2 1 50 spam.pick2
  48. timerspam.pick3 1 59 spam.pick3
  49. timerrandom.pick 1 60 pick.player random
  50. }
  51. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement