API tools faq
paste
Advertisement
Hsuwan

Untitled

Hsuwan
Dec 8th, 2017
90
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 57.56 KB | None | 0 0
raw download clone embed print report
  1. Options:
  2. Title: &6&l公會 &c&l>> &e
  3. Size: 150
  4. on command:
  5. command is "lv" or "lvl"
  6. wait 1 ticks
  7. if "%arguments%" don't contain "<none":
  8. if {公會系統::%arguments%} is set:
  9. send "&e==========&a%arguments%公會卡&e=========="
  10. send "{@Title} 公會名: &4&l%{公會系統::%arguments%}% &3&l公會等級: &9&l%floor({公會系統.名稱以及總資產::%{公會系統::%arguments%}%} / 12000)%"
  11. loop {公會系統::*}:
  12. if {公會系統::%arguments%} is {公會系統::%loop-index%}:
  13. if {公會系統.職位::%loop-index%} is "會長":
  14. set {_會長} to loop-index
  15. send "{@Title} 公會會長: &a%{_會長}%"
  16. send "&e==========&a%arguments%的會籍&e=========="
  17. if player is a op:
  18. send "{@Title} &f管理員查看: %{公會系統.每日寶箱::%{公會系統::%arguments%}%}%"
  19. else:
  20. if {公會系統::%player%} is set:
  21. send "&e==========&a%player%公會卡&e=========="
  22. send "{@Title} 公會名: &4&l%{公會系統::%player%}% &3&l公會等級: &9&l%floor({公會系統.名稱以及總資產::%{公會系統::%player%}%} / 12000)%"
  23. loop {公會系統::*}:
  24. if {公會系統::%player%} is {公會系統::%loop-index%}:
  25. if {公會系統.職位::%loop-index%} is "會長":
  26. set {_會長} to loop-index
  27. send "{@Title} 公會會長: &a%{_會長}% "
  28. send "&e==========&a%player%的會籍&e=========="
  29. if player is a op:
  30. send "{@Title} &f管理員查看: %{公會系統.每日寶箱::%{公會系統::%player%}%}%"
  31. #on right click on pig:
  32. # if {公會系統::%player%} is set:
  33. # set {_會地p.loc} to block at location of {公會系統.會地::%{公會系統::%player%}%}
  34. # set {_x1.p} to x-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  35. # set {_x2.p} to x-coordinate of {_會地p.loc} - 15
  36. # set {_z2.p} to z-coordinate of {_會地p.loc} - 15
  37. # set {_z1.p} to z-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  38. # set {_x.p} to x-coordinate of event-location
  39. # set {_z.p} to z-coordinate of event-location
  40. # if {_x.p} is smaller than or equal to {_x1.p}:
  41. # if {_x.p} is more than or equal to {_x2.p}:
  42. # if {_z.p} is smaller than or equal to {_z1.p}:
  43. # if {_z.p} is more than or equal to {_z2.p}:
  44. # drop 1 of pig spawn eggs named "&3&l公會限定 - pig生怪蛋" with lore "&b&l只公能在會世界用||&f注: 座標無限制" at location of clicked entity
  45. # delete clicked entity
  46. # stop
  47. # cancel event
  48. on right click:
  49. if name of player's tool contain "公會限定":
  50. if {公會系統::%player%} isn't set:
  51. cancel event
  52. stop
  53. set {_會地p.loc} to block at location of {公會系統.會地::%{公會系統::%player%}%}
  54. set {_x1.p} to x-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  55. set {_x2.p} to x-coordinate of {_會地p.loc} - 15
  56. set {_z2.p} to z-coordinate of {_會地p.loc} - 15
  57. set {_z1.p} to z-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  58. set {_x.p} to x-coordinate of event-location
  59. set {_z.p} to z-coordinate of event-location
  60. if {_x.p} is smaller than or equal to {_x1.p}:
  61. if {_x.p} is more than or equal to {_x2.p}:
  62. if {_z.p} is smaller than or equal to {_z1.p}:
  63. if {_z.p} is more than or equal to {_z2.p}:
  64. stop
  65. cancel event
  66. on right click on sign:
  67. if line 1 of clicked block is "gshop":
  68. set line 1 of clicked block to "&9[公會商店(幹部專用)]"
  69. set line 2 of clicked block to "&a<左鍵換>|<右鍵買>"
  70. set line 3 of clicked block to "增加會地面積"
  71. set line 4 of clicked block to "&b價格500經驗值"
  72. stop
  73. if line 1 of clicked block contain "公會商店":
  74. if {公會系統::%player%} is set:
  75. if {公會系統.職位::%player%} is "會長" or "副會長":
  76. if {公會系統.會地::%{公會系統::%player%}%} is set:
  77. if "%player's world%" isn't "GUILD":
  78. send "{@Title} 請在會地世界內建立牌子選單。"
  79. stop
  80. if line 2 of clicked block don't contain ">|<右鍵":
  81. stop
  82. set line 2 of clicked block to "&9加載中,若卡住請拆掉。"
  83. if line 3 of clicked block contain "會地面積":
  84. execute console command "g %player% buy size"
  85. else if line 3 of clicked block contain "生怪蛋(pig)":
  86. execute console command "g %player% buy pig"
  87. else if line 3 of clicked block contain "生怪蛋(cow)":
  88. execute console command "g %player% buy cow"
  89. else if line 3 of clicked block contain "生怪蛋(sheep)":
  90. execute console command "g %player% buy sheep"
  91. else if line 3 of clicked block contain "生怪蛋(chicken)":
  92. execute console command "g %player% buy chicken"
  93. else if line 3 of clicked block contain "生怪蛋(dog)":
  94. execute console command "g %player% buy wolf"
  95. else if line 3 of clicked block contain "生怪蛋(cat)":
  96. execute console command "g %player% buy ocelot"
  97. wait 4 ticks
  98. set line 2 of clicked block to "&a<左鍵換>|<右鍵買>"
  99. else:
  100. if line 2 of clicked block don't contain "只有公會幹部可以用":
  101. loop 4 times:
  102. set line 2 of clicked block to "&c只有公會幹部可以用 "
  103. wait 4 ticks
  104. set line 2 of clicked block to "&c 只有公會幹部可以用"
  105. wait 3 ticks
  106. set line 2 of clicked block to "&a<左鍵換>|<右鍵買>"
  107. stop
  108. on left click on sign:
  109. if line 1 of clicked block contain "公會商店":
  110. if {公會系統::%player%} is set:
  111. if {公會系統.職位::%player%} is "會長" or "副會長":
  112. if {公會系統.會地::%{公會系統::%player%}%} is set:
  113. if "%player's world%" isn't "GUILD":
  114. send "{@Title} 請在會地世界內建立牌子選單。"
  115. stop
  116. if line 2 of clicked block don't contain ">|<右鍵":
  117. stop
  118. set line 2 of clicked block to "&9加載中,若卡住請拆掉。"
  119. wait 2 ticks
  120. set line 4 of clicked block to "&9<< Loading >>"
  121. wait 4 ticks
  122. if line 3 of clicked block contain "會地面積":
  123. set line 3 of clicked block to "生怪蛋(pig)"
  124. set line 4 of clicked block to "&b價格800經驗值"
  125. else if line 3 of clicked block contain "生怪蛋(pig)":
  126. set line 3 of clicked block to "生怪蛋(cow)"
  127. set line 4 of clicked block to "&b價格800經驗值"
  128. else if line 3 of clicked block contain "生怪蛋(cow)":
  129. set line 3 of clicked block to "生怪蛋(sheep)"
  130. set line 4 of clicked block to "&b價格800經驗值"
  131. else if line 3 of clicked block contain "生怪蛋(sheep)":
  132. set line 3 of clicked block to "生怪蛋(chicken)"
  133. set line 4 of clicked block to "&b價格800經驗值"
  134. else if line 3 of clicked block contain "生怪蛋(chicken)":
  135. set line 3 of clicked block to "生怪蛋(dog)"
  136. set line 4 of clicked block to "&b價格5000經驗值"
  137. else if line 3 of clicked block contain "生怪蛋(dog)":
  138. set line 3 of clicked block to "生怪蛋(cat)"
  139. set line 4 of clicked block to "&b價格5000經驗值"
  140. else if line 3 of clicked block contain "生怪蛋(cat)":
  141. set line 3 of clicked block to "增加會地面積"
  142. set line 4 of clicked block to "&b價格500經驗值"
  143. set line 2 of clicked block to "&a<左鍵換>|<右鍵買>"
  144. else:
  145. if line 2 of clicked block don't contain "只有公會幹部可以用":
  146. loop 4 times:
  147. set line 2 of clicked block to "&c只有公會幹部可以用 "
  148. wait 4 ticks
  149. set line 2 of clicked block to "&c 只有公會幹部可以用"
  150. wait 3 ticks
  151. set line 2 of clicked block to "&a<左鍵換>|<右鍵買>"
  152. stop
  153. command /guild [<player>] [<text>] [<player>] [<text>]:
  154. aliases: /g
  155. trigger:
  156. set {_time} to "%day%"
  157. set {_特惠} to ""
  158. set {_特惠item} to 0
  159. if {_time} contain "22":
  160. set {_特惠} to "(加開特惠買1送3)"
  161. set {_特惠item} to 3
  162. if {公會系統.職位::%player%} is "會長" or "副會長":
  163. if {公會系統.會地::%{公會系統::%player%}%} is set:
  164. if arg-2 is "setbedrock":
  165. set {_購買過程} to location of player
  166. teleport player to block at location of {公會系統.會地::%{公會系統::%player%}%}
  167. set {公會系統.會地.等級::%{公會系統::%player%}%} to 1 + {公會系統.會地.等級::%{公會系統::%player%}%}
  168. set {_會地.loc} to block at location of {公會系統.會地::%{公會系統::%player%}%}
  169. set {_x1} to x-coordinate of {_會地.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  170. set {_x2} to x-coordinate of {_會地.loc} - 15
  171. set {_z2} to z-coordinate of {_會地.loc} - 15
  172. set {_z1} to z-coordinate of {_會地.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  173. set {_y} to y-coordinate of {_會地.loc} - 9
  174. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x2}, {_y}, {_z1}):
  175. if loop-block is air:
  176. set loop-block to bedrock
  177. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x1}, {_y}, {_z2}):
  178. if loop-block is air:
  179. set loop-block to bedrock
  180. teleport player to location of {_購買過程}
  181. stop
  182. if executor is console:
  183. if {公會系統.職位::%arg-1%} is "會長" or "副會長":
  184. if {公會系統.會地::%{公會系統::%arg-1%}%} is set:
  185. if arg-2 is "buy":
  186. if arg-4 is "pig":
  187. if {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%} is more than or equal to 24800:
  188. remove 800 from {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%}
  189. set {_total} to 1 + {_特惠item}
  190. drop {_total} of pig spawn eggs named "&3&l公會限定 - %arg-4%生怪蛋" with lore "&b&l只公能在會世界用||&f注: 座標無限制" at location of arg-1
  191. loop {公會系統::*}:
  192. if {公會系統::%arg-1%} is {公會系統::%loop-index%}:
  193. set {_87} to loop-index parsed as offline player
  194. send "{@Title} %{公會系統.職位::%arg-1%}% &f%arg-1% &b&l購買了一個%{_特惠}%%arg-4%生怪蛋。" to {_87}
  195. stop
  196. else:
  197. send "{@Title} 公會資產不足800，至少保底24000否則無法購買" to arg-1
  198. stop
  199. if arg-4 is "chicken":
  200. if {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%} is more than or equal to 24800:
  201. remove 800 from {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%}
  202. set {_total} to 1 + {_特惠item}
  203. drop {_total} of chicken spawn eggs named "&3&l公會限定 - %arg-4%生怪蛋" with lore "&b&l只公能在會世界用||&f注: 座標無限制" at location of arg-1
  204. loop {公會系統::*}:
  205. if {公會系統::%arg-1%} is {公會系統::%loop-index%}:
  206. set {_87} to loop-index parsed as offline player
  207. send "{@Title} %{公會系統.職位::%arg-1%}% &f%arg-1% &b&l購買了一個%{_特惠}%%arg-4%生怪蛋。" to {_87}
  208. stop
  209. else:
  210. send "{@Title} 公會資產不足800，至少保底24000否則無法購買" to arg-1
  211. stop
  212. if arg-4 is "cow":
  213. if {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%} is more than or equal to 24800:
  214. remove 800 from {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%}
  215. set {_total} to 1 + {_特惠item}
  216. drop {_total} of cow spawn eggs named "&3&l公會限定 - %arg-4%生怪蛋" with lore "&b&l只公能在會世界用||&f注: 座標無限制" at location of arg-1
  217. loop {公會系統::*}:
  218. if {公會系統::%arg-1%} is {公會系統::%loop-index%}:
  219. set {_87} to loop-index parsed as offline player
  220. send "{@Title} %{公會系統.職位::%arg-1%}% &f%arg-1% &b&l購買了一個%{_特惠}%%arg-4%生怪蛋。" to {_87}
  221. stop
  222. else:
  223. send "{@Title} 公會資產不足800，至少保底24000否則無法購買" to arg-1
  224. stop
  225. if arg-4 is "sheep":
  226. if {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%} is more than or equal to 24800:
  227. remove 800 from {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%}
  228. set {_total} to 1 + {_特惠item}
  229. drop {_total} of sheep spawn eggs named "&3&l公會限定 - %arg-4%生怪蛋" with lore "&b&l只公能在會世界用||&f注: 座標無限制" at location of arg-1
  230. loop {公會系統::*}:
  231. if {公會系統::%arg-1%} is {公會系統::%loop-index%}:
  232. set {_87} to loop-index parsed as offline player
  233. send "{@Title} %{公會系統.職位::%arg-1%}% &f%arg-1% &b&l購買了一個%{_特惠}%%arg-4%生怪蛋。" to {_87}
  234. stop
  235. else:
  236. send "{@Title} 公會資產不足800，至少保底24000否則無法購買" to arg-1
  237. stop
  238. if arg-4 is "wolf":
  239. if {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%} is more than or equal to 29000:
  240. remove 5000 from {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%}
  241. set {_total} to 6 + {_特惠item}
  242. drop {_total} of wolf spawn eggs named "&3&l公會限定 - %arg-4%生怪蛋" with lore "&b&l只公能在會世界用||&f注: 座標無限制" at location of arg-1
  243. loop {公會系統::*}:
  244. if {公會系統::%arg-1%} is {公會系統::%loop-index%}:
  245. set {_87} to loop-index parsed as offline player
  246. send "{@Title} %{公會系統.職位::%arg-1%}% &f%arg-1% &b&l購買了六個%{_特惠}%%arg-4%生怪蛋。" to {_87}
  247. stop
  248. else:
  249. send "{@Title} 公會資產不足5000，至少保底24000否則無法購買" to arg-1
  250. stop
  251. if arg-4 is "ocelot":
  252. if {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%} is more than or equal to 29000:
  253. remove 5000 from {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%}
  254. set {_total} to 6 + {_特惠item}
  255. drop {_total} of ocelot spawn eggs named "&3&l公會限定 - %arg-4%生怪蛋" with lore "&b&l只公能在會世界用||&f注: 座標無限制" at location of arg-1
  256. loop {公會系統::*}:
  257. if {公會系統::%arg-1%} is {公會系統::%loop-index%}:
  258. set {_87} to loop-index parsed as offline player
  259. send "{@Title} %{公會系統.職位::%arg-1%}% &f%arg-1% &b&l購買了六個%{_特惠}%%arg-4%生怪蛋。" to {_87}
  260. stop
  261. else:
  262. send "{@Title} 公會資產不足5000，至少保底24000否則無法購買" to arg-1
  263. stop
  264. if arg-4 is "size":
  265. if {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%} is more than or equal to 24500:
  266. remove 500 from {公會系統.名稱以及總資產::%{公會系統::%arg-1%}%}
  267. set {公會系統.會地.等級::%{公會系統::%arg-1%}%} to 1 + {公會系統.會地.等級::%{公會系統::%arg-1%}%}
  268. execute arg-1 command "g setbedrock"
  269. loop {公會系統::*}:
  270. if {公會系統::%arg-1%} is {公會系統::%loop-index%}:
  271. set {_87} to loop-index parsed as offline player
  272. send "{@Title} %{公會系統.職位::%arg-1%}% &f%arg-1% &b&l增加了會地面積，現在是&f&l%30 + {公會系統.會地.等級::%{公會系統::%arg-1%}%}% &f&lx &f&l%30 + {公會系統.會地.等級::%{公會系統::%arg-1%}%}%&b&l。" to {_87}
  273. stop
  274. else:
  275. send "{@Title} 公會資產不足500，至少保底24000否則無法購買" to arg-1
  276. stop
  277. else:
  278. send "{@Title} 擁有會地才能購買。" to arg-1
  279. stop
  280. else:
  281. send "{@Title} 你太自大了，你不是會長甚至連副會長都不是。" to arg-1
  282. stop
  283. if arg-2 is "shop":
  284. if {公會系統::%player%} is set:
  285. if {公會系統.職位::%player%} is "會長" or "副會長":
  286. if {公會系統.會地::%{公會系統::%player%}%} is set:
  287. send "{@Title} &f&l請在牌子第一行打gshop並右鍵謝謝。"
  288. stop
  289. else:
  290. send "{@Title} &m暫不開放&f(購買會地後開放)"
  291. stop
  292. send "{@Title} 你必須是公會成員幹部"
  293. stop
  294. send "{@Title} 必須有公會"
  295. stop
  296. if arg-2 is "QPteleport" or "tp" or "qptp":
  297. if arg-3 isn't set:
  298. send "{@Title} &6&l/guild QPteleport &e&l<玩家名> &c&l傳送到該玩家身旁。"
  299. stop
  300. if {玩家資料.%player%::VIP} is set:
  301. if {公會系統::%player%} is set:
  302. if {公會系統::%arg-3%} is {公會系統::%player%}:
  303. send "{@Title}%player% 傳送到你的身邊。" to arg-3
  304. send "{@Title} 正在傳送. . ."
  305. teleport player to arg-3
  306. stop
  307. send "{@Title}傳送失敗，請確認是否加入公會。"
  308. stop
  309. else:
  310. send "{@Title} 傳送失敗，本指令為VIP專屬。"
  311. stop
  312. send "{@Title} &6&l/guild QPteleport &e&l<玩家名> &c&l傳送到該玩家身旁。"
  313. stop
  314. if arg-2 is "QPremove":
  315. if arg-3 is set:
  316. set {_玩家名} to arg-3
  317. else:
  318. set {_玩家名} to arg-4
  319. if {_玩家名} isn't set:
  320. send "{@Title} &6&l/guild QPremove &e&l<玩家名> &c&l踢掉該玩家。"
  321. stop
  322. if {公會系統::%player%} is {公會系統::%{_玩家名}%}:
  323. if {公會系統.職位::%{_玩家名}%} is "會長" or "副會長":
  324. send "{@Title} 不管怎麼說，移除幹部是奇怪的行為，我不允許這樣做！"
  325. stop
  326. if {公會系統.職位::%player%} is "會長" or "副會長":
  327. if "%{_玩家名}'s world%" is "GUILD":
  328. execute {_玩家名} command "spawn"
  329. send "{@Title} 你被 &3&n%{公會系統.職位::%player%}%&f %player% &e踢出了公會。" to {_玩家名}
  330. delete {公會系統.職位::%{_玩家名}%}
  331. delete {公會系統::%{_玩家名}%}
  332. loop {公會系統::*}:
  333. if {公會系統::%player%} is {公會系統::%loop-index%}:
  334. set {_87} to loop-index parsed as offline player
  335. send "{@Title}%{_玩家名}%被踢出了公會。" to {_87}
  336. stop
  337. else:
  338. send "{@Title} 你可以選擇投訴給你家會長或副會長，"
  339. if {公會系統.職位::%{_玩家名}%} is "會長" or "副會長":
  340. send "{@Title} 即使他是會長或者副會長。"
  341. else:
  342. send "{@Title} 你不在一個公會 或 他跟你不同公會。"
  343. stop
  344. if arg-2 is "debugdelhome":
  345. if player is a op:
  346. if arg-4 is "delall":
  347. delete {公會系統.會地::*}
  348. loop all players:
  349. if "%loop-player's world%" isn't "GUILD":
  350. execute loop-player command "spawn"
  351. send "會地系統重置。自動彈回主世界。" to loop-player
  352. send "clear"
  353. stop
  354. if arg-4 is set:
  355. loop {公會系統.會地::*}:
  356. if loop-index contain "%arg-4%":
  357. delete {公會系統.會地::%loop-index%}
  358. exit loop
  359. send "clear"
  360. stop
  361. clear {_公會系統.暫存空間::*}
  362. loop {公會系統.會地::*}:
  363. add loop-index to {_公會系統.暫存空間::*}
  364. send "%{_公會系統.暫存空間::*}%"
  365. stop
  366. if arg-2 is "tphome":
  367. if player is a op:
  368. if arg-4 is set:
  369. loop {公會系統.會地::*}:
  370. if loop-index contain "%arg-4%":
  371. set {_會地.loc} to {公會系統.會地::%loop-index%}
  372. teleport player to block at location of {_會地.loc}
  373. exit loop
  374. stop
  375. clear {_公會系統.暫存空間::*}
  376. loop {公會系統.會地::*}:
  377. add loop-index to {_公會系統.暫存空間::*}
  378. send "%{_公會系統.暫存空間::*}%"
  379. stop
  380. if arg-2 is "debuglist":
  381. if player is a op:
  382. clear {_公會系統.暫存空間::*}
  383. loop {公會系統.名稱以及總資產::*}:
  384. add loop-index to {_公會系統.暫存空間::*}
  385. send "%{_公會系統.暫存空間::*}%"
  386. if {公會系統::%player%} is set:
  387. clear {_公會系統.暫存空間::*}
  388. loop {公會系統::*}:
  389. if {公會系統::%loop-index%} is {公會系統::%player%}:
  390. add loop-index to {_公會系統.暫存空間::*}
  391. send "{@Title}%{_公會系統.暫存空間::*}%"
  392. stop
  393. send "{@Title}你沒有加入任何公會。" to player
  394. stop
  395. if arg-2 is "debugresetallchest":
  396. if player is a op:
  397. loop {公會系統.每日寶箱::*}:
  398. set {公會系統.每日寶箱::%loop-index%} to 10
  399. send "ok"
  400. stop
  401. if arg-2 is "QPcreate":
  402. set {_公會名} to "%player%的公會"
  403. if arg-4 is set:
  404. if length of arg-4 is more than or equal to 28:
  405. send "&c&l公會名過長!!!!最多7個中文字"
  406. stop
  407. set {_公會名} to arg-4
  408. if {公會系統::%player%} is set:
  409. message "{@Title}你已經在一個公會裏面" to player
  410. stop
  411. else:
  412. loop {公會系統::*}:
  413. if {_公會名} is loop-value:
  414. send "{@Title} 已經有公會是這個名字了。"
  415. stop
  416. set {公會系統::%player%} to {_公會名}
  417. set {公會系統.職位::%player%} to "會長"
  418. message "{@Title} 創建公會成功。" to player
  419. set {公會系統.名稱以及總資產::%{_公會名}%} to 0
  420. set {公會系統.是否允許直接加入::%{_公會名}%} to false
  421. set {公會系統.每日寶箱::%{_公會名}%} to 10
  422. stop
  423. if arg-2 is "QPAdmin":
  424. if {公會系統::%player%} is set:
  425. if {公會系統.職位::%player%} is "會長":
  426. set {_新人名} to "不存在"
  427. if arg-3 is set:
  428. set {_新人名} to arg-3
  429. else if arg-4 is set:
  430. set {_新人名} to arg-4
  431. if {公會系統::%{_新人名}%} is {公會系統::%player%}:
  432. if {公會系統.職位::%{_新人名}%} is "副會長":
  433. delete {公會系統.職位::%{_新人名}%}
  434. loop {公會系統::*}:
  435. if {公會系統::%player%} is {公會系統::%loop-index%}:
  436. set {_87} to loop-index parsed as offline player
  437. send "{@Title} %{_新人名}% 已被撤職， 身為 %{公會系統::%player%}% 幹部 是不是有點被會長覺得失職了呢?" to {_87}
  438. stop
  439. else if {公會系統.職位::%{_新人名}%} is "會長":
  440. send "{@Title} WTF MAN?你把自己撤成副會長是在幹三小。"
  441. stop
  442. set {_累計公會人數} to 0
  443. clear {_公會系統.暫存空間::*}
  444. loop {公會系統::*}:
  445. if {公會系統::%player%} is {公會系統::%loop-index%}:
  446. add loop-index to {_公會系統.暫存空間::*}
  447. if {公會系統.職位::%loop-index%} is "副會長":
  448. add 1 to {_累計公會人數}
  449. set {_87} to loop-index parsed as offline player
  450. if {_累計公會人數} is smaller than or equal to 4:
  451. send "{@Title}會長 %player% 正在分佈新的副會長. . . . . ." to {_87}
  452. if {_累計公會人數} is smaller than or equal to 4:
  453. set {公會系統.職位::%{_新人名}%} to "副會長"
  454. loop {_公會系統.暫存空間::*}:
  455. set {_87} to loop-value parsed as offline player
  456. send "{@Title}恭喜 %{_新人名}% 擔任我們 %{公會系統::%player%}% 的副會長。" to {_87}
  457. stop
  458. send "{@Title} 副會長人數已超過5位，如果要炒人請用/guild QPAdmin 副會長名"
  459. stop
  460. send "{@Title} 該玩家不在您的公會。"
  461. stop
  462. send "{@Title} 只有會長可以給副會長。"
  463. stop
  464. send "{@Title} 您沒有公會"
  465. stop
  466. if arg-2 is "Change":
  467. if {公會系統::%player%} is set:
  468. if {公會系統.職位::%player%} is "會長":
  469. set {_新人名} to "不存在"
  470. if arg-3 is set:
  471. set {_新人名} to arg-3
  472. else if arg-4 is set:
  473. set {_新人名} to arg-4
  474. if {公會系統::%{_新人名}%} is {公會系統::%player%}:
  475. if {公會系統.職位::%{_新人名}%} is "副會長":
  476. set {公會系統.職位::%{_新人名}%} to "會長"
  477. set {公會系統.職位::%player%} to "副會長"
  478. loop {公會系統::*}:
  479. if {公會系統::%player%} is {公會系統::%loop-index%}:
  480. set {_87} to loop-index parsed as offline player
  481. send "{@Title} 恭喜 %{_新人名}% 榮升為 %{公會系統::%player%}% 會長, 會長%player%下臺做副會長了。" to {_87}
  482. stop
  483. else if {公會系統.職位::%{_新人名}%} is "會長":
  484. send "{@Title} WTF MAN?你把自己轉讓自己是在轉三小。"
  485. stop
  486. set {公會系統.職位::%{_新人名}%} to "會長"
  487. delete {公會系統.職位::%player%}
  488. loop {公會系統::*}:
  489. if {公會系統::%player%} is {公會系統::%loop-index%}:
  490. set {_87} to loop-index parsed as offline player
  491. send "{@Title} 恭喜 %{_新人名}% 榮升為 %{公會系統::%player%}% 會長, 會長%player%下臺了，也許想退休了。" to {_87}
  492. stop
  493. send "{@Title} 該玩家不在您的公會。"
  494. stop
  495. send "{@Title} 只有會長可以給轉讓。"
  496. stop
  497. send "{@Title} 您沒有公會"
  498. stop
  499.  
  500. if arg-2 is "QPleave":
  501. if {公會系統::%player%} is set:
  502. if {公會系統.職位::%player%} is "會長":
  503. if arg-4 is "deleteguild":
  504. set {_累計公會人數} to 0
  505. clear {_公會系統.暫存空間::*}
  506. loop {公會系統::*}:
  507. if {公會系統::%player%} is {公會系統::%loop-index%}:
  508. add loop-index to {_公會系統.暫存空間::*}
  509. add 1 to {_累計公會人數}
  510. set {_87} to loop-index parsed as offline player
  511. send "{@Title}會長 %player% 宣布公會解散。" to {_87}
  512. if "%{_87}'s world%" is "GUILD":
  513. execute {_87} command "spawn"
  514. delete {公會系統.職位::%loop-index%}
  515. if {_累計公會人數} is more than 4:
  516. if {公會系統.名稱以及總資產::%{公會系統::%player%}%} is more than 12000:
  517. give 1 of water bucket named "&a&l成就 - &9&l眼淚的水桶" with lore "&a&l一個水桶，隱藏成就。" to player
  518. broadcast "{@Title} 經歷了可怕的會議後， %player% 放棄了公會 [%floor({公會系統.名稱以及總資產::%{公會系統::%player%}%} / 12000)%] - %{公會系統::%player%}% ，解散了 %{_累計公會人數}% 人公會。"
  519. if {公會系統.會地::%{公會系統::%player%}%} is set:
  520. broadcast "{@Title} 會地的面積 %30 + {公會系統.會地.等級::%{公會系統::%player%}%}% &f&lx &f&l%30 + {公會系統.會地.等級::%{公會系統::%player%}%}% &e成為歷史。"
  521. if {公會系統.會地::%{公會系統::%player%}%} is set:
  522. set {_會地.loc} to {公會系統.會地::%{公會系統::%player%}%}
  523. teleport player to block at location of {_會地.loc}
  524. set {_會地.loc} to location of player
  525. set {_y} to y-coordinate of {_會地.loc} - 3
  526. set {_x1} to x-coordinate of {_會地.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  527. set {_x2} to x-coordinate of {_會地.loc} - 15
  528. set {_z2} to z-coordinate of {_會地.loc} - 15
  529. set {_z1} to z-coordinate of {_會地.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  530. loop blocks within location at ({_x1}, 255, {_z1}) to location at ({_x2}, 0, {_z2}):
  531. if loop-block isn't air:
  532. set loop-block to air
  533. loop entities in radius 1 of loop-block:
  534. if loop-entity isn't player:
  535. delete loop-entity
  536. execute player command "spawn"
  537. delete {公會系統.會地.等級::%{公會系統::%player%}%}
  538. delete {公會系統.會地::%{公會系統::%player%}%}
  539. delete {公會系統.會地.傳送點::%{公會系統::%player%}%}
  540. delete {公會系統.會地.buff.1::%{公會系統::%player%}%}
  541. delete {公會系統.會地.buff.2::%{公會系統::%player%}%}
  542. delete {公會系統.會地.buff.3::%{公會系統::%player%}%}
  543. delete {公會系統.每日寶箱::%{公會系統::%player%}%}
  544. delete {公會系統.名稱以及總資產::%{公會系統::%player%}%}
  545. delete {公會系統.是否允許直接加入::%{公會系統::%player%}%}
  546. delete {公會系統::%player%}
  547. loop {_公會系統.暫存空間::*}:
  548. delete {公會系統::%loop-value%}
  549. stop
  550. send "{@Title} 會長無法離開公會，如果要解散請使用"
  551. send "{@Title} /g qpleave deleteguild 來直接解散"
  552. stop
  553. else:
  554. set {_公會會員量} to 0
  555. if {公會系統::%player%} is set:
  556. set {_名分} to ""
  557. if {公會系統.職位::%player%} is "副會長":
  558. set {_名分} to "副會長"
  559. loop {公會系統::*}:
  560. if {公會系統::%player%} is {公會系統::%loop-index%}:
  561. set {_87} to loop-index parsed as offline player
  562. send "{@Title} %{_名分}%%player%離開了公會。" to {_87}
  563. if "%player's world%" is "GUILD":
  564. execute player command "spawn"
  565. delete {公會系統.職位::%player%}
  566. delete {公會系統::%player%}
  567. stop
  568. send "{@Title}你沒有加入任何公會。" to player
  569. stop
  570. if arg-2 is "switchopen":
  571. if {公會系統::%player%} is set:
  572. if {公會系統.職位::%player%} is "會長":
  573. if {公會系統.是否允許直接加入::%{公會系統::%player%}%} is false:
  574. set {公會系統.是否允許直接加入::%{公會系統::%player%}%} to true
  575. send "{@Title} 公會已開放任何人加入。"
  576. else:
  577. set {公會系統.是否允許直接加入::%{公會系統::%player%}%} to false
  578. send "{@Title} 公會已更改為審核制度。"
  579. if arg-2 is "QPlist":
  580. if {公會系統::%player%} is set:
  581. clear {_公會系統.暫存空間::*}
  582. set {_累計公會人數} to 0
  583. loop {公會系統::*}:
  584. if {公會系統::%player%} is {公會系統::%loop-index%}:
  585. set {_player} to loop-index parsed as offline player
  586. if {_player} is online:
  587. set {_player} to "&a●&f%loop-index%"
  588. else:
  589. set {_player} to "&c●&f%loop-index%"
  590. if {公會系統.職位::%loop-index%} is set:
  591. add "%{公會系統.職位::%loop-index%}%%{_player}%" to {_公會系統.暫存空間::*}
  592. else:
  593. add "%{_player}%" to {_公會系統.暫存空間::*}
  594. add 1 to {_累計公會人數}
  595. if {公會系統.職位::%loop-index%} is "會長":
  596. set {_會長} to loop-index
  597. clear {_耐久度::*}
  598. set {_now} to {公會系統.名稱以及總資產::%{公會系統::%player%}%}
  599. set {_now} to {_now} - floor({_now}/12000) * 12000
  600. set {_max} to floor({_now}/12000) * 12000 + 12000
  601. set {_cge} to {_now} / {_max} * 20
  602. loop {_cge} times:
  603. add "&a&l■" to {_耐久度::*}
  604. set {_cge} to 20 - {_cge}
  605. loop {_cge} times:
  606. add "&7&l_" to {_耐久度::*}
  607. set {_耐久度} to "%{_耐久度::*}%"
  608. replace all ",", "and" and " " with "" in {_耐久度}
  609. send "{@Title} &e&l==============================================="
  610. send "公會會員列表(包括會長與副會):"
  611. send " &l%{_公會系統.暫存空間::*}%"
  612. send "{@Title} &e&l==============================================="
  613. send "{@Title} 公會名: &4&l%{公會系統::%player%}% &f&l公會討伐生物數: &e&l&o%floor({公會系統.名稱以及總資產::%{公會系統::%player%}%})%"
  614. send "{@Title} 公會進入方式: &6&l%{公會系統.是否允許直接加入::%{公會系統::%player%}%}% &e(true是任何人 / false是申請制)"
  615. set {_暫無} to "&c未持有"
  616. if {公會系統.會地::%{公會系統::%player%}%} is set:
  617. set {_暫無} to "&a已擁有 &b&l(%30 + {公會系統.會地.等級::%{公會系統::%player%}%}% &b&lx &b&l%30 + {公會系統.會地.等級::%{公會系統::%player%}%}%)"
  618. send "{@Title} &3&l公會等級: &9&l%floor({公會系統.名稱以及總資產::%{公會系統::%player%}%} / 12000)% &e 會地: %{_暫無}%"
  619. send "{@Title} &2&l公會EXP&7&l: [%{_耐久度}%]"
  620. send "{@Title} 公會會長: &a%{_會長}% &a&l人數 &f&l%{_累計公會人數}%"
  621. if {公會系統.職位::%player%} is "會長" or "副會長" :
  622. send json of "{@Title} &a[點此開啟公會商店列表]" run "/guild shop" to player
  623. if {公會系統.會地::%{公會系統::%player%}%} isn't set:
  624. if {公會系統.每日寶箱::%{公會系統::%player%}%} is set:
  625. send "{@Title} &a&l==============================================="
  626. set {_會地資產值} to {公會系統.每日寶箱::%{公會系統::%player%}%} - 10
  627. if {_會地資產值} isn't equal to 10:
  628. set {_內容} to "&n: %21600 - {_會地資產值}% / 21600"
  629. else:
  630. set {_內容} to "&a&l&n待開啟寶箱 &8&l(/g open)"
  631. send "{@Title} &f&l&o免費寶箱 (公會經驗值) %{_內容}%"
  632. loop {公會系統.待處理玩家::*}:
  633. if loop-value is {公會系統::%player%}:
  634. send "{@Title} &8&l您有待處理的公會申請，"
  635. send "{@Title} (會長限定)要開放公會請輸入/guild SwitchOpen(/會長限定)"
  636. send "{@Title} &8&l審核請輸入/guild Check 或/guild Check <玩家名>"
  637. exit loop
  638. if {公會系統.會地::%{公會系統::%player%}%} is set:
  639. set {_會地資產值} to {公會系統.每日寶箱::%{公會系統::%player%}%} - 10
  640. if {_會地資產值} isn't smaller than or equal to 10:
  641. set {_內容} to "&n: %21600 - {_會地資產值}% / 21600"
  642. send "{@Title} &f&l&o皇冠寶箱 (公會經驗值) %{_內容}%"
  643. else:
  644. send "{@Title} &a&l==============================================="
  645. set {_cge} to {公會系統.每日寶箱::%{公會系統::%player%}%}
  646. send "{@Title} &f&l&o皇冠寶箱 &a&l殺王數量 &f&l(%10 - {_cge}%/10)"
  647. else:
  648. send "{@Title} &e&l==============================================="
  649. if player is a op:
  650. send "管理員請用debuglist看公會列表"
  651. stop
  652. send "{@Title} 目前暫不開放 全公會列表。"
  653. if player is a op:
  654. clear {_公會系統.暫存空間::*}
  655. loop {公會系統.名稱以及總資產::*}:
  656. add loop-index to {_公會系統.暫存空間::*}
  657. send "%{_公會系統.暫存空間::*}%"
  658. stop
  659. if arg-2 is "open":
  660. if {公會系統::%player%} is set:
  661. if {公會系統.職位::%player%} is "會長" or "副會長" :
  662. if arg-4 is "許文487":
  663. if player is a op:
  664. set {_公會EXP增加} to a random integer between 30 and 2500
  665. add {_公會EXP增加} to {公會系統.名稱以及總資產::%{公會系統::%player%}%}
  666. set {_now} to {_公會EXP增加}
  667. set {_max} to floor({_now}/12000) * 12000 + 12000
  668. set {_cge} to {_now} / {_max} * 100
  669. set {_cge} to floor({_cge}) + 1
  670. loop {公會系統::*}:
  671. if {公會系統::%player%} is {公會系統::%loop-index%}:
  672. set {_87} to loop-index parsed as offline player
  673. send "{@Title} %{公會系統.職位::%player%}% %player% 正在為 %loop-value% 開箱中。" to {_87}
  674. wait 16 ticks
  675. loop {公會系統::*}:
  676. if {公會系統::%player%} is {公會系統::%loop-index%}:
  677. set {_87} to loop-index parsed as offline player
  678. send "{@Title} &a&l公會 &3&l%loop-value% &a&l經驗值 增加了 &f&l%{_cge}%%% &a&l。" to {_87}
  679. play raw sound "random.levelup" at {_87} with pitch 1.7 volume 0.5
  680. stop
  681. if {公會系統.每日寶箱::%{公會系統::%player%}%} is set:
  682. if {公會系統.會地::%{公會系統::%player%}%} isn't set:
  683. send "{@Title} &a&l==============================================="
  684. set {_會地資產值} to {公會系統.每日寶箱::%{公會系統::%player%}%}
  685. if {_會地資產值} is equal to 10:
  686. set {公會系統.每日寶箱::%{公會系統::%player%}%} to 21610
  687. set {_公會EXP增加} to a random integer between 30 and 1250
  688. add {_公會EXP增加} to {公會系統.名稱以及總資產::%{公會系統::%player%}%}
  689. set {_cge} to (floor({_公會EXP增加}) + 1) / (12000 * (floor({公會系統.名稱以及總資產::%{公會系統::%player%}%} / 12000) + 1)) * 100
  690. set {_cge} to floor({_cge}) + 1
  691. loop {公會系統::*}:
  692. if {公會系統::%player%} is {公會系統::%loop-index%}:
  693. set {_87} to loop-index parsed as offline player
  694. send "{@Title} %{公會系統.職位::%player%}% %player% 正在為 %loop-value% 開箱中。" to {_87}
  695. wait 16 ticks
  696. loop {公會系統::*}:
  697. if {公會系統::%player%} is {公會系統::%loop-index%}:
  698. set {_87} to loop-index parsed as offline player
  699. send "{@Title} &a&l公會 &3&l%loop-value% &a&l經驗值 增加了 &f&l%{_cge}%%% &a&l。" to {_87}
  700. play raw sound "random.levelup" at {_87} with pitch 1.7 volume 0.
  701. else:
  702. execute player command "/g qplist"
  703. stop
  704. send "{@Title} 公會已達到無法領取每日寶箱的等級。"
  705. stop
  706. send "{@Title} 您不是公會幹部，無法開箱。"
  707. stop
  708. send "{@Title} 您還沒加入公會。"
  709. stop
  710. if arg-2 is "check":
  711. if {公會系統::%player%} is set:
  712. if {公會系統.職位::%player%} is "會長" or "副會長" :
  713. set {_新人名} to "不存在"
  714. if arg-3 is set:
  715. set {_新人名} to arg-3
  716. else if arg-4 is set:
  717. set {_新人名} to arg-4
  718. if {公會倒計時::%{_新人名}%} is set:
  719. if {公會系統.待處理玩家::%{_新人名}%} is {公會系統::%player%}:
  720. delete {公會倒計時::%{_新人名}%}
  721. set {公會系統::%{_新人名}%} to {公會系統::%player%}
  722. delete {公會系統.待處理玩家::%{_新人名}%}
  723. set {_新人名} to {_新人名} parsed as offline player
  724. send "{@Title} 您的請求已被處理， %{公會系統::%player%}%幹部 %player% 同意您的加入。" to {_新人名}
  725. loop {公會系統::*}:
  726. if {公會系統::%{_新人名}%} is {公會系統::%loop-index%}:
  727. set {_87} to loop-index parsed as offline player
  728. send "{@Title} %{_新人名}% 加入了 %loop-value% 的大家庭。" to {_87}
  729. stop
  730. send "{@Title} &c&l系統回傳錯誤，屢次嘗試有可能引爆你媽，因為你媽太胖。"
  731. stop
  732. send "{@Title} 待處理清單:"
  733. clear {_公會系統.暫存空間::*}
  734. loop {公會系統.待處理玩家::*}:
  735. if loop-value is {公會系統::%player%}:
  736. add loop-index to {_公會系統.暫存空間::*}
  737. send "%{_公會系統.暫存空間::*}%"
  738. stop
  739. if arg-2 is "QPinvite" or "invite" or "邀請":
  740. if {公會系統::%player%} is set:
  741. if {公會系統.職位::%player%} is "會長" or "副會長" :
  742. if {公會系統::%arg-3%} is set:
  743. send "{@Title} &c&l該玩家已有公會，無法邀請。"
  744. stop
  745. if arg-3 is set:
  746. send "{@Title} 邀請已發送到%arg-3%"
  747. send "{@Title} %player% 邀請您到 %{公會系統::%player%}% 公會" to arg-3
  748. send json of "{@Title} &a[點此申請加入%{公會系統::%player%}%公會]" run "/guild %{公會系統::%player%}% QPjoin" to arg-3
  749. stop
  750. send "{@Title} 只能邀請在綫玩家。"
  751. stop
  752. send "{@Title} 你不是幹部成員， &c無法 邀請。 "
  753. stop
  754. stop
  755. if arg-2 is "QPHome":
  756. if {公會系統::%player%} is set:
  757. if {公會系統.職位::%player%} is "會長" or "副會長" :
  758. if player is a op:
  759. if arg-4 is "reset":
  760. if "%player's world%" is "GUILD":
  761. set {公會系統.會地::%{公會系統::%player%}%} to location of player
  762. send "{@Title} 會地座標已重置"
  763. stop
  764. if arg-4 is "set":
  765. if "%player's world%" is "GUILD":
  766. set {_會地p.loc} to block at location of {公會系統.會地::%{公會系統::%player%}%}
  767. set {_x1.p} to x-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  768. set {_x2.p} to x-coordinate of {_會地p.loc} - 15
  769. set {_z2.p} to z-coordinate of {_會地p.loc} - 15
  770. set {_z1.p} to z-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  771. set {_x.p} to x-coordinate of event-location
  772. set {_z.p} to z-coordinate of event-location
  773. if {_x.p} is smaller than or equal to {_x1.p}:
  774. if {_x.p} is more than or equal to {_x2.p}:
  775. if {_z.p} is smaller than or equal to {_z1.p}:
  776. if {_z.p} is more than or equal to {_z2.p}:
  777. set {公會系統.會地.傳送點::%{公會系統::%player%}%} to location of player
  778. send "{@Title} 會地傳送點已變更。"
  779. stop
  780. if player is a op:
  781. if player's gamemode is creative:
  782. set {公會系統.會地.傳送點::%{公會系統::%player%}%} to location of player
  783. send "{@Title} 會地傳送點已變更。"
  784. stop
  785. send "{@Title} 座標在會地範圍外。"
  786. stop
  787. if {公會系統.會地::%{公會系統::%player%}%} isn't set:
  788. if {公會系統.名稱以及總資產::%{公會系統::%player%}%} is more than or equal to 24000:
  789. teleport player to spawn of "GUILD"
  790. if {公會系統.會地.x} isn't set:
  791. set {公會系統.會地.x} to x-coordinate of location of player
  792. set {_會地.loc} to location of player
  793. set x-coordinate of {_會地.loc} to {公會系統.會地.x} - 500
  794. set {公會系統.會地.x} to x-coordinate of {_會地.loc}
  795. teleport player to block at location of {_會地.loc}
  796. set {_會地.loc} to location of player
  797. set {公會系統.會地::%{公會系統::%player%}%} to {_會地.loc}
  798. set {公會系統.會地.傳送點::%{公會系統::%player%}%} to {_會地.loc}
  799. set {_y} to y-coordinate of {_會地.loc} - 3
  800. set {_x1} to x-coordinate of {_會地.loc} + 15
  801. set {_x2} to x-coordinate of {_會地.loc} - 15
  802. set {_z2} to z-coordinate of {_會地.loc} - 15
  803. set {_z1} to z-coordinate of {_會地.loc} + 15
  804. loop blocks within location at ({_x1}, 255, {_z1}) to location at ({_x2}, 0, {_z2}):
  805. if loop-block isn't air:
  806. set loop-block to air
  807. loop entities in radius 1 of loop-block:
  808. if loop-entity isn't player:
  809. delete loop-entity
  810. set {_y} to {_y} + 1
  811. clear {_公會系統.暫存空間::*}
  812. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x2}, {_y}, {_z2}):
  813. Chance of 30%:
  814. set loop-block to beacon
  815. exit loop
  816. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x2}, {_y}, {_z2}):
  817. if loop-block is air:
  818. Chance of 30%:
  819. set loop-block to melons
  820. exit loop
  821. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x2}, {_y}, {_z2}):
  822. if loop-block isn't beacon or melons:
  823. Chance of 30%:
  824. set loop-block to pumpkin
  825. exit loop
  826. set {_y} to {_y} - 1
  827. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x2}, {_y}, {_z2}):
  828. set loop-block to grass
  829. set {_y} to {_y} - 1
  830. loop 5 times:
  831. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x2}, {_y}, {_z2}):
  832. set loop-block to dirt
  833. set {_y} to {_y} - 1
  834. loop blocks within location at ({_x1}, {_y}, {_z1}) to location at ({_x2}, {_y}, {_z2}):
  835. set loop-block to bedrock
  836. loop {公會系統::*}:
  837. if {公會系統::%player%} is {公會系統::%loop-index%}:
  838. set {_87} to loop-index parsed as offline player
  839. send "{@Title} %player% 創建了 %loop-value% 的會地！" to {_87}
  840. stop
  841. send "{@Title} 公會沒錢啊，我幫你廣播一下給全部人聽。"
  842. loop {公會系統::*}:
  843. if {公會系統::%player%} is {公會系統::%loop-index%}:
  844. set {_87} to loop-index parsed as offline player
  845. send "{@Title} %player% 想創建 %loop-value% 的會地，快加油討伐怪物,還差經驗值 %24000 - floor({公會系統.名稱以及總資產::%{公會系統::%player%}%})%" to {_87}
  846. stop
  847. if {公會系統.會地::%{公會系統::%player%}%} is set:
  848. if {公會系統.會地.傳送點::%{公會系統::%player%}%} isn't set:
  849. teleport player to block at location of {公會系統.會地::%{公會系統::%player%}%}
  850. if block below player is air:
  851. if {公會系統.職位::%player%} is "會長" or "副會長" :
  852. send "{@Title} &3&l公會傳點好像不太正常，要不要用/g qphome set 換個位置?"
  853. else:
  854. teleport player to block at location of {公會系統.會地.傳送點::%{公會系統::%player%}%}
  855. if block below player is air:
  856. if {公會系統.職位::%player%} is "會長" or "副會長" :
  857. send "{@Title} &3&l公會傳點好像不太正常，要不要用/g qphome set 換個位置?"
  858. send "{@Title} &2&l已傳送到會地。"
  859. stop
  860. send "{@Title} 公會會地暫不存在，請叫你家會長建立。"
  861. stop
  862. send "{@Title} 您未加入公會。"
  863. stop
  864. if arg-2 is set:
  865. if arg-4 is "申請" or "QPjoin":
  866. if {公會系統::%player%} isn't set:
  867. loop {公會系統.是否允許直接加入::*}:
  868. if loop-index is arg-2:
  869. if loop-value is false:
  870. set {公會系統.待處理玩家::%player%} to arg-2
  871. set {公會倒計時::%player%} to 21600
  872. send "{@Title} 您的請求已被處理， 請稍等 %loop-index% 的幹部回覆。"
  873. loop {公會系統::*}:
  874. if {公會系統.待處理玩家::%player%} is {公會系統::%loop-index-2%}:
  875. if {公會系統.職位::%loop-index-2%} is "會長" or "副會長":
  876. set {_87} to loop-index-2 parsed as offline player
  877. send "{@Title} 新的玩家要申請加入 %loop-index-1% 公會，輸入/g check查看。" to {_87}
  878. stop
  879. else:
  880. set {公會系統::%player%} to loop-index
  881. send "{@Title} 您已直接加入了此公會！"
  882. loop {公會系統::*}:
  883. if {公會系統::%player%} is {公會系統::%loop-index-2%}:
  884. set {_87} to loop-index-2 parsed as offline player
  885. send "{@Title} %player% 加入了 %loop-index-1% 的大家庭。" to {_87}
  886. stop
  887. send "{@Title} &a&l/guild QPcreate <公會名> &8&l創建公會。"
  888. send "{@Title} &3&l/guild QPinvite <玩家名> &8&l 公會邀請。"
  889. #"(邀請為 會長/副會長 限定)"
  890. #send "{@Title} &7&l PS. 邀請後若果是審核制度，仍需要 會長/副會長 手動接受。"
  891. #send "{@Title} &7&l&m(缺憾請多多原諒[技術人員也想偷懶啊~])"
  892. send "{@Title} &a&l/guild QPHome &8&l創建 / 傳送到公會會地。&f&l(2級公會可以創建)"
  893. send "{@Title} &a&l/guild QPAdmin &8&l設置 / 解雇 副會長 (不會踢出公會)。"
  894. send "{@Title} &3&l/guild <公會名> QPjoin &8&l申請加入公會 "
  895. #"(若是開放式公會，會自動加入。)"
  896. send "{@Title} &a&l/guild QPremove <玩家名> &8&l踢掉該玩家。(會長/副會長限定)"
  897. send "{@Title} &c&l/guild QPTp <玩家名> &8&l傳送到該玩家身旁。(VIP限定)"
  898. send "{@Title} &4&l/guild QPleave &8&l離開 或 解散公會。"
  899. if {公會系統::%player%} is set:
  900. execute player command "guild QPlist"
  901. every 1 seconds:
  902. loop {公會倒計時::*}:
  903. remove 1 from {公會倒計時::%loop-index%}
  904. if {公會倒計時::%loop-index%} is smaller than or equal to 0:
  905. set {_name} to loop-index parsed as offline player
  906. send "{@Title} 公會申請已過時" to {_name}
  907. delete {公會倒計時::%loop-index%}
  908. delete {公會系統.待處理玩家::%loop-index%}
  909. on place:
  910. player's gamemode is creative:
  911. stop
  912. if player's tool is beacon:
  913. cancel event
  914. send "該物品無法放置"
  915. stop
  916. set {_會地p.loc} to block at location of {公會系統.會地::%{公會系統::%player%}%}
  917. set {_x1.p} to x-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  918. set {_x2.p} to x-coordinate of {_會地p.loc} - 15
  919. set {_z2.p} to z-coordinate of {_會地p.loc} - 15
  920. set {_z1.p} to z-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  921. set {_x.p} to x-coordinate of event-location
  922. set {_z.p} to z-coordinate of event-location
  923. if {_x.p} is smaller than or equal to {_x1.p}:
  924. if {_x.p} is more than or equal to {_x2.p}:
  925. if {_z.p} is smaller than or equal to {_z1.p}:
  926. if {_z.p} is more than or equal to {_z2.p}:
  927. stop
  928. cancel event
  929. on right click:
  930. if "%player's world%" isn't "GUILD":
  931. stop
  932. player's gamemode is creative:
  933. stop
  934. if clicked block is chest or trapped chest:
  935. set {_會地p.loc} to block at location of {公會系統.會地::%{公會系統::%player%}%}
  936. set {_x1.p} to x-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  937. set {_x2.p} to x-coordinate of {_會地p.loc} - 15
  938. set {_z2.p} to z-coordinate of {_會地p.loc} - 15
  939. set {_z1.p} to z-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  940. set {_x.p} to x-coordinate of location of clicked block
  941. set {_z.p} to z-coordinate of location of clicked block
  942. if {_x.p} is smaller than or equal to {_x1.p}:
  943. if {_x.p} is more than or equal to {_x2.p}:
  944. if {_z.p} is smaller than or equal to {_z1.p}:
  945. if {_z.p} is more than or equal to {_z2.p}:
  946. stop
  947. cancel event
  948. on break:
  949. player's gamemode is creative:
  950. stop
  951. set {_會地p.loc} to block at location of {公會系統.會地::%{公會系統::%player%}%}
  952. set {_x1.p} to x-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  953. set {_x2.p} to x-coordinate of {_會地p.loc} - 15
  954. set {_z2.p} to z-coordinate of {_會地p.loc} - 15
  955. set {_z1.p} to z-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%player%}%}
  956. set {_x.p} to x-coordinate of event-location
  957. set {_z.p} to z-coordinate of event-location
  958. if {_x.p} is smaller than or equal to {_x1.p}:
  959. if {_x.p} is more than or equal to {_x2.p}:
  960. if {_z.p} is smaller than or equal to {_z1.p}:
  961. if {_z.p} is more than or equal to {_z2.p}:
  962. if event-block is dirt or grass:
  963. Chance of 30%:
  964. drop 1 of log item
  965. else:
  966. Chance of 20%:
  967. drop 1 of sand
  968. else:
  969. Chance of 20%:
  970. drop 4 of cobblestone
  971. Chance of 10%:
  972. drop 1 of iron ingot
  973. Chance of 4%:
  974. drop 1 of diamond
  975. drop 1 of obsidian
  976. Chance of 1%:
  977. drop 1 of dirt
  978. stop
  979. cancel event
  980. on damage:
  981. if damage cause is void:
  982. if {公會系統.會地::%{公會系統::%victim%}%} is set:
  983. teleport victim to block at location of {公會系統.會地::%{公會系統::%victim%}%}
  984. if {公會系統::%attacker%} is {公會系統::%victim%}:
  985. cancel event
  986. if {公會系統::%attacker%} is set:
  987. if "%victim's world%" isn't "GUILD":
  988. stop
  989. if victim isn't a player:
  990. set {_會地p.loc} to block at location of {公會系統.會地::%{公會系統::%attacker%}%}
  991. set {_x1.p} to x-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%attacker%}%}
  992. set {_x2.p} to x-coordinate of {_會地p.loc} - 15
  993. set {_z2.p} to z-coordinate of {_會地p.loc} - 15
  994. set {_z1.p} to z-coordinate of {_會地p.loc} + 15 + {公會系統.會地.等級::%{公會系統::%attacker%}%}
  995. set {_x.p} to x-coordinate of location of victim
  996. set {_z.p} to z-coordinate of location of victim
  997. if {_x.p} is smaller than or equal to {_x1.p}:
  998. if {_x.p} is more than or equal to {_x2.p}:
  999. if {_z.p} is smaller than or equal to {_z1.p}:
  1000. if {_z.p} is more than or equal to {_z2.p}:
  1001. if attacker is sneaking:
  1002. stop
  1003. cancel event
  1004. stop
  1005.  
  1006. on death:
  1007. if {公會系統::%attacker%} is set:
  1008. if {公會系統.名稱以及總資產::%{公會系統::%attacker%}%} is more than or equal to 24000:
  1009. set {_累計公會人數} to 0
  1010. loop {公會系統::*}:
  1011. if {公會系統::%attacker%} is {公會系統::%loop-index%}:
  1012. add 1 to {_累計公會人數}
  1013. if {_累計公會人數} is more than or equal to 15:
  1014. set {_公會等級} to floor({公會系統.名稱以及總資產::%{公會系統::%attacker%}%} / 12000) + 1
  1015. else if {_累計公會人數} is more than or equal to 9:
  1016. set {_公會等級} to floor({公會系統.名稱以及總資產::%{公會系統::%attacker%}%} / 12000) + 3
  1017. set {_累計公會人數} to 5
  1018. else:
  1019. set {_公會等級} to floor({公會系統.名稱以及總資產::%{公會系統::%attacker%}%} / 12000) + 5
  1020. set {_累計公會人數} to 3
  1021. if {公會系統.職位::%attacker%} is "會長" or "副會長":
  1022. add 3 to {_累計公會人數}
  1023. set {_公會等級} to {_公會等級} / 100
  1024. if name of victim contain "boss":
  1025. add 10 to {_累計公會人數}
  1026. if {公會系統.會地::%{公會系統::%attacker%}%} is set:
  1027. if {公會系統.每日寶箱::%{公會系統::%attacker%}%} is set:
  1028. if {公會系統.每日寶箱::%{公會系統::%attacker%}%} is smaller than or equal to 10:
  1029. set {_皇冠寶箱} to a random integer between 1 and 3
  1030. remove {_皇冠寶箱} from {公會系統.每日寶箱::%{公會系統::%attacker%}%}
  1031. if {公會系統.每日寶箱::%{公會系統::%attacker%}%} is smaller than or equal to 0:
  1032. set {公會系統.每日寶箱::%{公會系統::%attacker%}%} to 21610
  1033. set {_次元超越} to 1
  1034. loop {公會系統::*}:
  1035. if {公會系統::%attacker%} is {公會系統::%loop-index%}:
  1036. set {_87} to loop-index parsed as offline player
  1037. send "{@Title} %attacker% 成功完成了任務的最後一擊 ， %loop-value% 的箱子正在打開中~" to {_87}
  1038. loop 7 times:
  1039. Chance of 30%:
  1040. add 1 to {_次元超越}
  1041. set {_total} to 0
  1042. loop {_次元超越} times:
  1043. if loop-number isn't 1:
  1044. loop {公會系統::*}:
  1045. if {公會系統::%attacker%} is {公會系統::%loop-index%}:
  1046. set {_87} to loop-index parsed as offline player
  1047. send "{@Title} 突然!!!箱子發光了!!!!!" to {_87}
  1048. play raw sound "note.pling" at {_87} with pitch 1.7 volume 0.5
  1049. play raw sound "game.player.swim" at {_87} with pitch 1 volume 1
  1050. set {_公會EXP增加} to a random integer between 110 and 990
  1051. add {_公會EXP增加} to {公會系統.名稱以及總資產::%{公會系統::%attacker%}%}
  1052. set {_now} to {_公會EXP增加}
  1053. set {_max} to floor({_now}/12000) * 12000 + 12000
  1054. set {_cge} to {_now} / {_max} * 100
  1055. set {_cge} to floor({_cge}) + 1
  1056. set {_total} to {_cge} + {_total}
  1057. wait 16 ticks
  1058. loop {公會系統::*}:
  1059. if {公會系統::%attacker%} is {公會系統::%loop-index%}:
  1060. set {_87} to loop-index parsed as offline player
  1061. send "{@Title} &a&l公會 &3&l%loop-value-2% &a&l經驗值 增加了 &f&l%{_cge}%%% &a&l。" to {_87}
  1062. play raw sound "random.levelup" at {_87} with pitch 1.7 volume 0.5
  1063. if {_次元超越} is more than or equal to 2:
  1064. loop {公會系統::*}:
  1065. if {公會系統::%attacker%} is {公會系統::%loop-index%}:
  1066. set {_87} to loop-index parsed as offline player
  1067. send "" to {_87}
  1068. send "{@Title} &a&l公會 &3&l%loop-value% &9&l經驗值 總共增加了 &a&l%{_cge}%%% &9&l。" to {_87}
  1069. play raw sound "game.player.swim" at {_87} with pitch 1.7 volume 0.5
  1070. if name of victim contain "lv":
  1071. if {公會系統.會地::%{公會系統::%attacker%}%} is set:
  1072. if {公會系統.每日寶箱::%{公會系統::%attacker%}%} isn't set:
  1073. set {公會系統.每日寶箱::%{公會系統::%attacker%}%} to 21610
  1074. if {公會系統.每日寶箱::%{公會系統::%attacker%}%} isn't smaller than or equal to 10:
  1075. remove 50 from {公會系統.每日寶箱::%{公會系統::%attacker%}%}
  1076. else:
  1077. if {公會系統.每日寶箱::%{公會系統::%attacker%}%} isn't set:
  1078. set {公會系統.每日寶箱::%{公會系統::%attacker%}%} to 21610
  1079. if {公會系統.每日寶箱::%{公會系統::%attacker%}%} isn't smaller than or equal to 10:
  1080. remove 50 from {公會系統.每日寶箱::%{公會系統::%attacker%}%}
  1081. if {公會系統.名稱以及總資產::%{公會系統::%attacker%}%} is more than or equal to 24000:
  1082. loop {_累計公會人數} times:
  1083. Chance of {_公會等級}:
  1084. add 0.1 to {公會系統.名稱以及總資產::%{公會系統::%attacker%}%}
  1085. if {玩家資料.%attacker%::VIP} is set:
  1086. loop 15 times:
  1087. Chance of {_公會等級}:
  1088. add 0.1 to {公會系統.名稱以及總資產::%{公會系統::%attacker%}%}
  1089. wait 1 tick
  1090. else:
  1091. set {_time} to "%day%"
  1092. set {_特惠} to 3
  1093. if {_time} contain "22":
  1094. set {_特惠} to 3 + 10
  1095. loop {_特惠} times:
  1096. Chance of 42%:
  1097. add 0.6 to {公會系統.名稱以及總資產::%{公會系統::%attacker%}%}
  1098. on join:
  1099. if {公會系統::%player%} is set:
  1100. set {_Name} to "0"
  1101. if {玩家資料.%player%::VIP} is set:
  1102. set {_Name} to "&fVIP"
  1103. if {公會系統.職位::%player%} is "會長" or "副會長" :
  1104. set {_Name} to {公會系統.職位::%player%}
  1105. if {_Name} isn't "0":
  1106. loop {公會系統::*}:
  1107. if {公會系統::%player%} is {公會系統::%loop-index%}:
  1108. set {_87} to loop-index parsed as offline player
  1109. send "{@Title} &a&l公會%{_Name}% %player% 上線了 。" to {_87}
  1110.  
  1111. on quit:
  1112. if {公會系統::%player%} is set:
  1113. set {_Name} to "0"
  1114. if {玩家資料.%player%::VIP} is set:
  1115. set {_Name} to "&fVIP"
  1116. if {公會系統.職位::%player%} is "會長" or "副會長" :
  1117. set {_Name} to {公會系統.職位::%player%}
  1118. if {_Name} isn't "0":
  1119. loop {公會系統::*}:
  1120. if {公會系統::%player%} is {公會系統::%loop-index%}:
  1121. set {_87} to loop-index parsed as offline player
  1122. send "{@Title} &a&l公會%{_Name}% %player% 下線了 。" to {_87}
  1123. On Sign Change:
  1124. if player is a op:
  1125. stop
  1126. if line 2 contain "扭蛋":
  1127. set line 1 to "I"
  1128. set line 2 to "am"
  1129. set line 3 to "Watching"
  1130. set line 4 to "you"
  1131. stop
  1132. loop {扭蛋機列表::*}:
  1133. if line 1 contains "%loop-index%":
  1134. set line 1 to ""
  1135. stop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!