API tools faq
paste
CREAMPAN0408

Untitled

CREAMPAN0408
Feb 23rd, 2019
46
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.80 KB | None | 0 0
raw download clone embed print report
  1. function kitGui(p: player):
  2. open chest with 3 rows named "&7Kit Selector" to {_p}
  3. wait 1 tick
  4. set {_set} to -1
  5. $ thread
  6. set {_selected} to value of sql var "kits::%{servertype}%::selected::%{_p}%"
  7. if {_selected} is "<none>":
  8. set {_selected} to "default"
  9. $ thread
  10. set {_coins} to getCoins({_p})
  11. loop {kits::*}:
  12. set {_kit} to "%loop-index%"
  13. set {_kitname} to {kits::%{_kit}%}
  14. delete {_own}
  15. delete {_price}
  16. add 1 to {_set}
  17. set {_price} to get digits of {kits::%{_kit}%::price} parsed as integer
  18. evaluate "set {_displayitem} to %{kits::%{_kit}%::displayitem}%"
  19. set {_displayname} to {kits::%{_kit}%::displayname}
  20. if {_price} is not set:
  21. set {_price} to "&7Found in the &eBonux Box&7 (%{kits::%{_kit}%::price}% Win)"
  22. else if {_price} is 0:
  23. set {_own} to true
  24. else:
  25. set {_price} to "&7Click to buy: &e%{_price}% coins"
  26. if {_own} is not set:
  27. $ thread
  28. set {_own} to sql var "kits::%{servertype}%::%{_kitname}%::%{_p}%" exists
  29. inventory name of {_p}'s current inventory is "&7Kit Selector"
  30. if {_kitname} is {_selected}:
  31. set slot {_set} of {_p}'s current inventory to glowing {_displayitem} with nbt "{Kit:%{_kitname}%,KitList:%{_kit}%}" named "%colored {_displayname}%" with no nbt with lore "&7Currently Selected"
  32. else if {_own} is false:
  33. set slot {_set} of {_p}'s current inventory to {_displayitem} with nbt "{Kit:%{_kitname}%,KitList:%{_kit}%}" named "%colored {_displayname}%" with no nbt with lore "%{_price}%"
  34. else:
  35. set slot {_set} of {_p}'s current inventory to {_displayitem} with nbt "{Kit:%{_kitname}%,KitList:%{_kit}%}" named "%colored {_displayname}%" with no nbt with lore "&7Click to Select"
  36. set slot {_set} + 9 of {_p}'s current inventory to a paper with nbt "{Kit:%{_kitname}%,KitList:%{_kit}%}" named "&7&lView Kit: %colored {_displayname}%"
  37. inventory name of {_p}'s current inventory is "&7Kit Selector"
  38. loop integers between 18 and 26:
  39. if loop-number is 22:
  40. set slot loop-number of {_p}'s current inventory to a glowing gold block named "&7Your Coins: &e%{_coins}% coins"
  41. else if loop-number is less than 22:
  42. set slot loop-number of {_p}'s current inventory to a gold nugget named "&6&l>>"
  43. else if loop-number is greater than 22:
  44. set slot loop-number of {_p}'s current inventory to a gold nugget named "&6&l<<"
  45.  
  46.  
  47. function loadKit(p: player):
  48. clear {_p}'s inventory
  49. $ thread
  50. set {_selected} to value of sql var "kits::%{servertype}%::selected::%{_p}%"
  51. if {_selected} is "<none>":
  52. set {_selected} to "default"
  53. loop {kits::*}:
  54. loop-value is {_selected}
  55. set {_num} to loop-index
  56. stop loop
  57. loop {kits::%{_num}%::slots::*}:
  58. evaluate "set slot %loop-index% of {_p} to %loop-value%"
  59.  
  60. on load:
  61. if {servertype} is not set:
  62. while {servertype} is not set:
  63. wait 1 second
  64. delete {kits::*}
  65. $ thread
  66. set {_kit} to text from "http://minealot.net/resources/%{servertype}%kits"
  67. set {_kits::*} to split {_kit} at "||"
  68. loop {_kits::*}:
  69. delete {_slots::*}
  70. set {_items::*} to split "%loop-value%" at "|"
  71. loop {_items::*}:
  72. set {_info::*} to split "%loop-value-2%" at ":"
  73. replace all " " with "" in {_info::1}
  74. if {_info::1} contains "slot":
  75. set {_slotnum} to get digits of {_info::1} parsed as integer
  76. set {_slots::%{_slotnum}%} to {_info::2}
  77. else:
  78. set {_%{_info::1}%} to {_info::2}
  79. {_kit::%{_kitname}%} is not set
  80. set {_kit::%{_kitname}%} to true
  81. set {kits::%loop-index%} to {_kitname}
  82. set {kits::%loop-index%::price} to {_price}
  83. set {kits::%loop-index%::displayname} to {_displayname}
  84. set {kits::%loop-index%::displayitem} to {_displayitem}
  85. set {kits::%loop-index%::slots} to size of {_slots::*}
  86. loop {_slots::*}:
  87. set {kits::%loop-index-1%::slots::%loop-index-2%} to loop-value-2
  88.  
  89. every 30 minutes:
  90. if {servertype} is not set:
  91. stop trigger
  92. delete {kits::*}
  93. $ thread
  94. set {_kit} to text from "http://minealot.net/resources/%{servertype}%kits"
  95. set {_kits::*} to split {_kit} at "||"
  96. loop {_kits::*}:
  97. delete {_slots::*}
  98. set {_items::*} to split "%loop-value%" at "|"
  99. loop {_items::*}:
  100. set {_info::*} to split "%loop-value-2%" at ":"
  101. replace all " " with "" in {_info::1}
  102. if {_info::1} contains "slot":
  103. set {_slotnum} to get digits of {_info::1} parsed as integer
  104. set {_slots::%{_slotnum}%} to {_info::2}
  105. else:
  106. set {_%{_info::1}%} to {_info::2}
  107. {_kit::%{_kitname}%} is not set
  108. set {_kit::%{_kitname}%} to true
  109. set {kits::%loop-index%} to {_kitname}
  110. set {kits::%loop-index%::price} to {_price}
  111. set {kits::%loop-index%::displayname} to {_displayname}
  112. set {kits::%loop-index%::displayitem} to {_displayitem}
  113. set {kits::%loop-index%::slots} to size of {_slots::*}
  114. loop {_slots::*}:
  115. set {kits::%loop-index-1%::slots::%loop-index-2%} to loop-value-2
  116.  
  117. on right click holding gunpowder:
  118. name of player's tool is "&7Kit Selector"
  119. cancel the event
  120. kitGui(player)
  121.  
  122. on inventory click:
  123. if inventory name of player's current inventory is "&7Kit Selector":
  124. cancel the event
  125. set {_kit} to tag "Kit" of nbt of clicked item
  126. set {_kitlist} to tag "KitList" of nbt of clicked item
  127. if clicked item is paper:
  128. set {_name} to name of clicked item
  129. replace all "&7&lView Kit: " with "" in {_name}
  130. close player's inventory
  131. wait 1 tick
  132. open chest with 5 rows named "&7Viewing: %{_name}%" to player
  133. wait 1 tick
  134. loop {kits::%{_kitlist}%::slots::*}:
  135. evaluate "set slot %loop-index% of player's current inventory to %loop-value%"
  136. set slot 44 of player's current inventory to a barrier named "&7Back"
  137. else if {_kit} is set:
  138. set {_lore} to lore of clicked item
  139. if {_lore} contains "Currently Selected":
  140. send "&7You already have that kit selected."
  141. close player's inventory
  142. else if {_lore} contains "Click to select":
  143. close player's inventory
  144. send "&7You have selected kit %name of clicked item%&7."
  145. $ thread
  146. set sql var "kits::%{servertype}%::selected::%player%" to "%{_kit}%"
  147. else:
  148. set {_price} to get digits of uncolored {_lore} parsed as integer
  149. if {_price} is not set:
  150. close player's inventory
  151. send "&7You cannot buy that, it is found in the Bonus Box only."
  152. else:
  153. $ thread
  154. set {_coins} to getCoins(sender)
  155. if {_coins} is less than {_price}:
  156. close player's inventory
  157. send "&7You do not have sufficient funds to purchase &7the %name of clicked item%&7 kit."
  158. else:
  159. close player's inventory
  160. send "&7You have purchased &7the %name of clicked item%&7 kit."
  161. $ thread
  162. set sql var "kits::%{servertype}%::%{_kit}%::%player%" to "true"
  163. $ thread
  164. remCoins(sender, {_price})
  165. else if inventory name of player's current inventory contains "&7Viewing: ":
  166. cancel the event
  167. clicked item is a barrier
  168. close player's inventory
  169. wait 1 tick
  170. kitGui(player)
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!