API tools faq
paste
henry900326

Untitled

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