热点推荐

小喇叭+ 发布

01-16 02:17
01-16 02:04
01-13 17:30
查看: 2102|回复: 0

[成品脚本] GOM引擎-通区沙城捐献(排行榜带返还)

[复制链接]
avatar

签到天数: 350 天

[LV.8]以坛为家I

7651

主题

255

回帖

31万

积分

司徒主管

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

UID
1
司徒币
260203
传世币
3000
元宝
0
在线时间
266 小时

最佳新人灌水之王

QQ
online_admin 发表于 2020-11-20 07:12:04 | 显示全部楼层 |阅读模式
GOM引擎-通区沙城捐献(排行榜带返还)

  1. [@MAIN]
  2. #IF
  3. #ACT
  4. GETSTRINGPOS ..\EffectImageList.txt 司徒游传奇-沙城捐献.Pak
  5. MOV N$沙城捐献资源编号 <$STR(N0)>
  6. OPENMERCHANTBIGDLG <$STR(N$沙城捐献资源编号)> 0 0 4 0 -80 0
  7. MOV N$沙城捐献颜色1 250
  8. MOV N$沙城捐献颜色2 250
  9. MOV N$沙城捐献颜色3 250
  10. MOV N$沙城捐献颜色4 250
  11. MOV N$沙城捐献颜色5 250
  12. MOV N$沙城捐献颜色6 250
  13. MOV N$沙城捐献颜色7 250
  14. MOV S$沙城捐献区名1 今日新开一区
  15. MOV S$沙城捐献区名2 今日新开二区
  16. MOV S$沙城捐献区名3 今日新开三区
  17. MOV S$沙城捐献区名4 今日新开四区
  18. MOV S$沙城捐献区名5 今日新开五区
  19. MOV S$沙城捐献区名6 今日新开六区
  20. MOV S$沙城捐献区名7 今日新开七区
  21. LOADVAR GLOBAL 沙城捐献分区数据1 ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  22. LOADVAR GLOBAL 沙城捐献分区数据2 ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  23. LOADVAR GLOBAL 沙城捐献分区数据3 ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  24. LOADVAR GLOBAL 沙城捐献分区数据4 ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  25. LOADVAR GLOBAL 沙城捐献分区数据5 ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  26. LOADVAR GLOBAL 沙城捐献分区数据6 ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  27. LOADVAR GLOBAL 沙城捐献分区数据7 ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  28. MOV S$沙城捐献数据1 <$GLOBAL(沙城捐献分区数据1)>
  29. MOV S$沙城捐献数据2 <$GLOBAL(沙城捐献分区数据2)>
  30. MOV S$沙城捐献数据3 <$GLOBAL(沙城捐献分区数据3)>
  31. MOV S$沙城捐献数据4 <$GLOBAL(沙城捐献分区数据4)>
  32. MOV S$沙城捐献数据5 <$GLOBAL(沙城捐献分区数据5)>
  33. MOV S$沙城捐献数据6 <$GLOBAL(沙城捐献分区数据6)>
  34. MOV S$沙城捐献数据7 <$GLOBAL(沙城捐献分区数据7)>
  35. MOV N$沙城捐献全区数据 <$GLOBAL(沙城捐献分区数据1)>
  36. INC N$沙城捐献全区数据 <$GLOBAL(沙城捐献分区数据2)>
  37. INC N$沙城捐献全区数据 <$GLOBAL(沙城捐献分区数据3)>
  38. INC N$沙城捐献全区数据 <$GLOBAL(沙城捐献分区数据4)>
  39. INC N$沙城捐献全区数据 <$GLOBAL(沙城捐献分区数据5)>
  40. INC N$沙城捐献全区数据 <$GLOBAL(沙城捐献分区数据6)>
  41. INC N$沙城捐献全区数据 <$GLOBAL(沙城捐献分区数据7)>
  42. MOV S$沙城捐献当前RMB点 <$GAMEPOINT>点
  43. SetStringBlank S$沙城捐献当前RMB点 6 1
  44. MOV N$沙城捐献奖励比例 100
  45. DEC N$沙城捐献奖励比例 <$GLOBAL(沙城捐献收取税率)>
  46. MUL N$沙城捐献实际领取 <$STR(N$沙城捐献全区数据)> <$STR(N$沙城捐献奖励比例)>
  47. DIV N$沙城捐献实际领取 100
  48. MUL N$沙城捐献胜方领取 <$STR(N$沙城捐献实际领取)> <$GLOBAL(沙城捐献胜方比例)>
  49. DIV N$沙城捐献胜方领取 100
  50. MOV N$沙城捐献败方领取 <$STR(N$沙城捐献实际领取)>
  51. DEC N$沙城捐献败方领取 <$STR(N$沙城捐献胜方领取)>
  52. MOV S$沙城捐献属性介绍 <暴击几率增加+10%/SCOLOR=151> + <增加攻击伤害+10%/SCOLOR=151> + <人物体力增加+50%/SCOLOR=151>
  53. SetStringBlank S$沙城捐献区名1 32 1
  54. SetStringBlank S$沙城捐献区名2 32 1
  55. SetStringBlank S$沙城捐献区名3 32 1
  56. SetStringBlank S$沙城捐献区名4 32 1
  57. SetStringBlank S$沙城捐献区名5 32 1
  58. SetStringBlank S$沙城捐献区名6 32 1
  59. SetStringBlank S$沙城捐献区名7 32 1
  60. SetStringBlank S$沙城捐献数据1 5 0
  61. SetStringBlank S$沙城捐献数据2 5 0
  62. SetStringBlank S$沙城捐献数据3 5 0
  63. SetStringBlank S$沙城捐献数据4 5 0
  64. SetStringBlank S$沙城捐献数据5 5 0
  65. SetStringBlank S$沙城捐献数据6 5 0
  66. SetStringBlank S$沙城捐献数据7 5 0

  67. #IF
  68. CHECK [140] 0
  69. #ACT
  70. MOV S$沙城捐献是否捐献 <未捐献/SCOLOR=249>
  71. #ELSEACT
  72. MOV S$沙城捐献是否捐献 <已捐献/SCOLOR=250>

  73. #IF
  74. CHECKVAR GLOBAL 沙捐排行玩家1 =
  75. #ACT
  76. MOV S$捐献排行玩家1 虚位以待..
  77. MOV N$捐献排行颜色1 249
  78. #ELSEACT
  79. MOV S$捐献排行玩家1 <$GLOBAL(沙捐排行玩家1)>
  80. MOV N$捐献排行颜色1 250
  81. #IF
  82. CHECKVAR GLOBAL 沙捐排行玩家2 =
  83. #ACT
  84. MOV S$捐献排行玩家2 虚位以待..
  85. MOV N$捐献排行颜色2 249
  86. #ELSEACT
  87. MOV S$捐献排行玩家2 <$GLOBAL(沙捐排行玩家2)>
  88. MOV N$捐献排行颜色2 250
  89. #IF
  90. CHECKVAR GLOBAL 沙捐排行玩家3 =
  91. #ACT
  92. MOV S$捐献排行玩家3 虚位以待..
  93. MOV N$捐献排行颜色3 249
  94. #ELSEACT
  95. MOV S$捐献排行玩家3 <$GLOBAL(沙捐排行玩家3)>
  96. MOV N$捐献排行颜色3 250

  97. #IF
  98. #ACT
  99. MOV S$捐献排行金额1 <$GLOBAL(沙捐排行数据1)>Rmb点
  100. MOV S$捐献排行金额2 <$GLOBAL(沙捐排行数据2)>Rmb点
  101. MOV S$捐献排行金额3 <$GLOBAL(沙捐排行数据3)>Rmb点
  102. SetStringBlank S$捐献排行玩家1 14 1
  103. SetStringBlank S$捐献排行玩家2 14 1
  104. SetStringBlank S$捐献排行玩家3 14 1
  105. SetStringBlank S$捐献排行金额1 10 0
  106. SetStringBlank S$捐献排行金额2 10 0
  107. SetStringBlank S$捐献排行金额3 10 0

  108. #IF
  109. CHECKVAR GLOBAL 沙捐限时排行玩家 =
  110. #ACT
  111. MOV S$4小时捐献第一名 虚位以待..
  112. #ELSEACT
  113. MOV S$4小时捐献第一名 <$GLOBAL(沙捐限时排行玩家)>

  114. #IF
  115. #ACT
  116. MUL N$第一名可领取 <$GLOBAL(沙捐限时排行总额)> <$GLOBAL(沙捐限时排行比例)>
  117. DIV N$第一名可领取 100

  118. #IF
  119. #SAY
  120. <IMGEX:<$STR(N$沙城捐献资源编号)>:7:8:9:578:20/@EXIT>\ \
  121. <>                                             <沙城捐献/AUTOCOLOR=251,21,250,70,254,103,242,243,22,253>\ \
  122. <>      <您当前RMB点数/SCOLOR=210>: {<$STR(S$沙城捐献当前RMB点)>/SCOLOR=70}    <捐献状态/SCOLOR=210>: <$STR(S$沙城捐献是否捐献)>    <沙城捐献只需捐献一次,属性永久有效!/SCOLOR=254>\ \ \
  123. <>   <捐献说明/SCOLOR=21>: <捐献/SCOLOR=253>[{<$GLOBAL(沙城捐献收取费用)>RMB点/SCOLOR=254}]<即可获得属性,当天所有区捐献总额的/SCOLOR=253>[{<$STR(N$沙城捐献奖励比例)>%/SCOLOR=250}]<将作为攻城双方的奖励!/SCOLOR=253> {(胜利方<$GLOBAL(沙城捐献胜方比例)>%)/SCOLOR=249}\
  124. <>   <属性介绍/SCOLOR=21>: <$STR(S$沙城捐献属性介绍)>\ \
  125. <>            <今日第一区/SCOLOR=103>: {<$STR(S$沙城捐献区名1)> /SCOLOR=<$STR(N$沙城捐献颜色1)>}<累计沙城捐献金额/SCOLOR=154>: {<$STR(S$沙城捐献数据1)> RMB点/SCOLOR=70}\
  126. <>            <今日第二区/SCOLOR=103>: {<$STR(S$沙城捐献区名2)> /SCOLOR=<$STR(N$沙城捐献颜色2)>}<累计沙城捐献金额/SCOLOR=154>: {<$STR(S$沙城捐献数据2)> RMB点/SCOLOR=70}\
  127. <>            <今日第三区/SCOLOR=103>: {<$STR(S$沙城捐献区名3)> /SCOLOR=<$STR(N$沙城捐献颜色3)>}<累计沙城捐献金额/SCOLOR=154>: {<$STR(S$沙城捐献数据3)> RMB点/SCOLOR=70}\
  128. <>            <今日第四区/SCOLOR=103>: {<$STR(S$沙城捐献区名4)> /SCOLOR=<$STR(N$沙城捐献颜色4)>}<累计沙城捐献金额/SCOLOR=154>: {<$STR(S$沙城捐献数据4)> RMB点/SCOLOR=70}\
  129. <>            <今日第五区/SCOLOR=103>: {<$STR(S$沙城捐献区名5)> /SCOLOR=<$STR(N$沙城捐献颜色5)>}<累计沙城捐献金额/SCOLOR=154>: {<$STR(S$沙城捐献数据5)> RMB点/SCOLOR=70}\
  130. <>            <今日第六区/SCOLOR=103>: {<$STR(S$沙城捐献区名6)> /SCOLOR=<$STR(N$沙城捐献颜色6)>}<累计沙城捐献金额/SCOLOR=154>: {<$STR(S$沙城捐献数据6)> RMB点/SCOLOR=70}\
  131. <>            <今日第七区/SCOLOR=103>: {<$STR(S$沙城捐献区名7)> /SCOLOR=<$STR(N$沙城捐献颜色7)>}<累计沙城捐献金额/SCOLOR=154>: {<$STR(S$沙城捐献数据7)> RMB点/SCOLOR=70}\ \
  132. <>  <捐献排行榜/SCOLOR=253>: <竞价排行捐献的金额70%计入沙城捐献,30%奖励给开区4小时内捐献第一名奖励!/SCOLOR=251><合区清理数据!>\
  133. <>  <开区4小时内排行榜累计捐献【/SCOLOR=253>{<$GLOBAL(沙捐限时排行总额)>RMB/SCOLOR=249}<】/SCOLOR=253>  <第一名可领/SCOLOR=250>: <$STR(N$第一名可领取)>RMB  <开区4小时捐献第一名/SCOLOR=70>: {<$STR(S$4小时捐献第一名)>/SCOLOR=242}  [<领取奖励/@领取开区捐献奖励>]\ \
  134. <>        <本区捐献第一名/SCOLOR=250>: {<$STR(S$捐献排行玩家1)>/SCOLOR=253}  <累计捐献金额/SCOLOR=250>: <$STR(S$捐献排行金额1)>      <获得属性/SCOLOR=250>: <移动鼠标查看|253#攻魔道增加[50-50]^-^253#攻击倍数增加50%^-^253#爆率倍数提升 300%/SCOLOR=253>\
  135. <>        <本区捐献第二名/SCOLOR=250>: {<$STR(S$捐献排行玩家2)>/SCOLOR=251}  <累计捐献金额/SCOLOR=250>: <$STR(S$捐献排行金额2)>      <获得属性/SCOLOR=250>: <移动鼠标查看|251#攻魔道增加[20-20]^-^251#攻击倍数增加20%^-^251#爆率倍数提升 200%/SCOLOR=251>\
  136. <>        <本区捐献第三名/SCOLOR=250>: {<$STR(S$捐献排行玩家3)>/SCOLOR=254}  <累计捐献金额/SCOLOR=250>: <$STR(S$捐献排行金额3)>      <获得属性/SCOLOR=250>: <移动鼠标查看|254#攻魔道增加[10-10]^-^254#攻击倍数增加10%^-^254#爆率倍数提升 100%/SCOLOR=254>\ \
  137. <>                     <开始沙城捐献/@沙城捐献开始>
  138. <>                        <参与排行榜捐献/@@InPutInteger40>
  139. <>  <您已累计捐献/SCOLOR=103>: <$HUMAN(沙城捐献金额)>Rmb点\ \
  140. <>    <累计捐献金额/SCOLOR=210>:{<$STR(N$沙城捐献全区数据)>RMB点/SCOLOR=254}        <实际发放/SCOLOR=210>:{<$STR(N$沙城捐献实际领取)>RMB点/SCOLOR=254}        <胜方领取/SCOLOR=210>:{<$STR(N$沙城捐献胜方领取)>RMB点/SCOLOR=254}        <败方领取/SCOLOR=210>:{<$STR(N$沙城捐献败方领取)>RMB点/SCOLOR=254}\

  141. [@领取开区捐献奖励]
  142. #IF
  143. CHECKVAR GLOBAL 沙捐限时排行计时 > 0
  144. #ACT
  145. MESSAGEBOX \提示:距离领取奖励还剩【<$GLOBAL(沙捐限时排行计时)>】秒!
  146. BREAK
  147. #IF
  148. CHECKVAR GLOBAL 沙捐限时排行玩家 =
  149. #ACT
  150. MESSAGEBOX \提示:开区4小时内没有玩家捐献!奖励已取消!
  151. BREAK
  152. #IF
  153. NOT CHECKVAR GLOBAL 沙捐限时排行玩家 = <$USERNAME>
  154. #ACT
  155. MESSAGEBOX \提示:开区4小时内捐献第一名玩家为【<$GLOBAL(沙捐限时排行玩家)>】!
  156. BREAK
  157. #IF
  158. LARGE G101 0
  159. #ACT
  160. MESSAGEBOX \提示:您已经领取过了!
  161. BREAK
  162. #IF
  163. EQUAL G101 0
  164. CHECKVAR GLOBAL 沙捐限时排行计时 = 0
  165. CHECKVAR GLOBAL 沙捐限时排行玩家 = <$USERNAME>
  166. #ACT
  167. MOV G101 1
  168. MUL N$第一名可领取 <$GLOBAL(沙捐限时排行总额)> <$GLOBAL(沙捐限时排行比例)>
  169. DIV N$第一名可领取 100
  170. GAMEPOINT + <$STR(N$第一名可领取)>
  171. SENDMOVEMSG 0 253 255 320 1  【号外】:恭喜土豪玩家『<$USERNAME>』获得开区4小时内捐献『第一名』领取了(<$STR(N$第一名可领取)>)RMB点!
  172. SENDMOVEMSG 0 253 255 350 1  【号外】:恭喜土豪玩家『<$USERNAME>』获得开区4小时内捐献『第一名』领取了(<$STR(N$第一名可领取)>)RMB点!
  173. SENDMOVEMSG 0 253 255 380 1  【号外】:恭喜土豪玩家『<$USERNAME>』获得开区4小时内捐献『第一名』领取了(<$STR(N$第一名可领取)>)RMB点!
  174. GUILDNOTICEMSG 151 249 {[号外]:》|250:0:1}恭喜土豪玩家【{<$USERNAME>|255:0:1}】获得开区4小时内捐献[{第一名|254:0:1}]领取了({<$STR(N$第一名可领取)>)|251:0:1}RMB点!
  175. GUILDNOTICEMSG 151 249 {[号外]:》|250:0:1}恭喜土豪玩家【{<$USERNAME>|255:0:1}】获得开区4小时内捐献[{第一名|254:0:1}]领取了({<$STR(N$第一名可领取)>)|251:0:1}RMB点!
  176. GUILDNOTICEMSG 151 249 {[号外]:》|250:0:1}恭喜土豪玩家【{<$USERNAME>|255:0:1}】获得开区4小时内捐献[{第一名|254:0:1}]领取了({<$STR(N$第一名可领取)>)|251:0:1}RMB点!
  177. BREAK

  178. [@InPutInteger40]
  179. #IF
  180. CHECK [140] 0
  181. #ACT
  182. MESSAGEBOX \提示:请先开通沙城捐献!
  183. BREAK
  184. #IF
  185. SMALL N40 10
  186. #ACT
  187. MESSAGEBOX \提示:请输入大于10的数字!
  188. BREAK
  189. #IF
  190. CHECKGAMEPOINT < <$STR(N40)>
  191. #ACT
  192. MESSAGEBOX \提示:Rmb点不够!
  193. BREAK

  194. #IF
  195. NOT SMALL N40 10
  196. CHECKGAMEPOINT ? <$STR(N40)>
  197. #ACT
  198. GAMEPOINT - <$STR(N40)>
  199. CALCVAR HUMAN 沙城捐献金额 + <$STR(N40)>
  200. SAVEVAR HUMAN 沙城捐献金额 ..\QuestDiary\QQ3215784\沙城捐献\02沙城捐献金额SAVE.txt
  201. #ELSEACT
  202. BREAK

  203. #IF
  204. CHECKVAR GLOBAL 沙捐限时排行计时 > 0
  205. #ACT
  206. CALCVAR GLOBAL 沙捐限时排行总额 + <$STR(N40)>
  207. SAVEVAR GLOBAL 沙捐限时排行总额 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt

  208. #IF
  209. #ACT
  210. MOV N$捐献区服标记 0
  211. #OR
  212. CheckContainsText <$SERVERNAME> 1区
  213. CheckContainsText <$SERVERNAME> 一区
  214. #ACT
  215. MOV N$捐献区服标记 1
  216. #OR
  217. CheckContainsText <$SERVERNAME> 2区
  218. CheckContainsText <$SERVERNAME> 二区
  219. #ACT
  220. MOV N$捐献区服标记 2
  221. #OR
  222. CheckContainsText <$SERVERNAME> 3区
  223. CheckContainsText <$SERVERNAME> 三区
  224. #ACT
  225. MOV N$捐献区服标记 3
  226. #OR
  227. CheckContainsText <$SERVERNAME> 4区
  228. CheckContainsText <$SERVERNAME> 四区
  229. #ACT
  230. MOV N$捐献区服标记 4
  231. #OR
  232. CheckContainsText <$SERVERNAME> 5区
  233. CheckContainsText <$SERVERNAME> 五区
  234. #ACT
  235. MOV N$捐献区服标记 5
  236. #OR
  237. CheckContainsText <$SERVERNAME> 6区
  238. CheckContainsText <$SERVERNAME> 六区
  239. #ACT
  240. MOV N$捐献区服标记 6
  241. #OR
  242. CheckContainsText <$SERVERNAME> 7区
  243. CheckContainsText <$SERVERNAME> 七区
  244. #ACT
  245. MOV N$捐献区服标记 7

  246. #IF
  247. CheckContainsText <$SERVERNAME> 测试
  248. #ACT
  249. MOV N$捐献区服标记 0
  250. SENDMSG 7 测试区捐献数据不计入沙捐!

  251. #IF
  252. LARGE N$捐献区服标记 0
  253. #ACT
  254. MOV N$排行计入沙捐比例 100
  255. DEC N$排行计入沙捐比例 <$GLOBAL(沙捐限时排行比例)>
  256. MUL N$排行计入沙捐 <$STR(N40)> <$STR(N$排行计入沙捐比例)>
  257. DIV N$排行计入沙捐 100
  258. LOADVAR GLOBAL 沙城捐献分区数据<$STR(N$捐献区服标记)> ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  259. CALCVAR GLOBAL 沙城捐献分区数据<$STR(N$捐献区服标记)> + <$STR(N$排行计入沙捐)>
  260. SAVEVAR GLOBAL 沙城捐献分区数据<$STR(N$捐献区服标记)> ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt

  261. #IF
  262. CHECKVAR GLOBAL 沙捐排行玩家1 =
  263. #ACT
  264. CONFERTITLE 【第一富豪】
  265. CALCVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  266. SAVEVAR GLOBAL 沙捐排行玩家1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  267. CALCVAR GLOBAL 沙捐排行数据1 = <$HUMAN(沙城捐献金额)>
  268. SAVEVAR GLOBAL 沙捐排行数据1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  269. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  270. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」获得【沙城捐献】[排行榜第一名],获得专属属性加成! 1 10
  271. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」获得【{沙城捐献|255:0:1}】[{排行榜第一名|254:0:1}],{获得专属属性加成|210:0:1}!
  272. GOTO @MAIN
  273. BREAK

  274. #IF
  275. CHECKVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  276. #ACT
  277. CALCVAR GLOBAL 沙捐排行数据1 = <$HUMAN(沙城捐献金额)>
  278. SAVEVAR GLOBAL 沙捐排行数据1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  279. MESSAGEBOX \提示:捐献成功!
  280. GOTO @MAIN
  281. BREAK

  282. #IF
  283. CHECKVAR GLOBAL 沙捐排行玩家2 = <$USERNAME>
  284. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据1)>
  285. #ACT
  286. DEPRIVETITLE 【第二富豪】
  287. CONFERTITLE 【第一富豪】
  288. CALCVAR GLOBAL 沙捐排行玩家2 = <$GLOBAL(沙捐排行玩家1)>
  289. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  290. CALCVAR GLOBAL 沙捐排行数据2 = <$GLOBAL(沙捐排行数据1)>
  291. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  292. CALCVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  293. SAVEVAR GLOBAL 沙捐排行玩家1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  294. CALCVAR GLOBAL 沙捐排行数据1 = <$HUMAN(沙城捐献金额)>
  295. SAVEVAR GLOBAL 沙捐排行数据1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  296. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  297. <$GLOBAL(沙捐排行玩家2)>.DEPRIVETITLE 【第一富豪】
  298. <$GLOBAL(沙捐排行玩家2)>.CONFERTITLE 【第二富豪】
  299. HCALL <$GLOBAL(沙捐排行玩家2)> @上线属性
  300. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家2)>】的[沙城捐献排行榜第一名],获得专属属性加成! 1 10
  301. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家2)>|255:0:1}】的[{沙城捐献排行榜第一名|254:0:1}],{获得专属属性加成|210:0:1}!
  302. GOTO @MAIN
  303. BREAK

  304. #IF
  305. CHECKVAR GLOBAL 沙捐排行玩家3 = <$USERNAME>
  306. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据1)>
  307. #ACT
  308. DEPRIVETITLE 【第三富豪】
  309. CONFERTITLE 【第一富豪】
  310. CALCVAR GLOBAL 沙捐排行玩家3 = <$GLOBAL(沙捐排行玩家2)>
  311. SAVEVAR GLOBAL 沙捐排行玩家3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  312. CALCVAR GLOBAL 沙捐排行数据3 = <$GLOBAL(沙捐排行数据2)>
  313. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  314. CALCVAR GLOBAL 沙捐排行玩家2 = <$GLOBAL(沙捐排行玩家1)>
  315. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  316. CALCVAR GLOBAL 沙捐排行数据2 = <$GLOBAL(沙捐排行数据1)>
  317. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  318. CALCVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  319. SAVEVAR GLOBAL 沙捐排行玩家1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  320. CALCVAR GLOBAL 沙捐排行数据1 = <$HUMAN(沙城捐献金额)>
  321. SAVEVAR GLOBAL 沙捐排行数据1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  322. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  323. <$GLOBAL(沙捐排行玩家2)>.DEPRIVETITLE 【第一富豪】
  324. <$GLOBAL(沙捐排行玩家2)>.CONFERTITLE 【第二富豪】
  325. HCALL <$GLOBAL(沙捐排行玩家2)> @上线属性
  326. <$GLOBAL(沙捐排行玩家3)>.DEPRIVETITLE 【第二富豪】
  327. <$GLOBAL(沙捐排行玩家3)>.CONFERTITLE 【第三富豪】
  328. HCALL <$GLOBAL(沙捐排行玩家3)> @上线属性
  329. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家2)>】的[沙城捐献排行榜第一名],获得专属属性加成! 1 10
  330. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家2)>|255:0:1}】的[{沙城捐献排行榜第一名|254:0:1}],{获得专属属性加成|210:0:1}!
  331. GOTO @MAIN
  332. BREAK

  333. #IF
  334. CHECKVAR GLOBAL 沙捐排行玩家2 =
  335. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据1)>
  336. #ACT
  337. CONFERTITLE 【第一富豪】
  338. CALCVAR GLOBAL 沙捐排行玩家2 = <$GLOBAL(沙捐排行玩家1)>
  339. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  340. CALCVAR GLOBAL 沙捐排行数据2 = <$GLOBAL(沙捐排行数据1)>
  341. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  342. CALCVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  343. SAVEVAR GLOBAL 沙捐排行玩家1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  344. CALCVAR GLOBAL 沙捐排行数据1 = <$HUMAN(沙城捐献金额)>
  345. SAVEVAR GLOBAL 沙捐排行数据1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  346. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  347. <$GLOBAL(沙捐排行玩家2)>.DEPRIVETITLE 【第一富豪】
  348. <$GLOBAL(沙捐排行玩家2)>.CONFERTITLE 【第二富豪】
  349. HCALL <$GLOBAL(沙捐排行玩家2)> @上线属性
  350. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家2)>】的[沙城捐献排行榜第一名],获得专属属性加成! 1 10
  351. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家2)>|255:0:1}】的[{沙城捐献排行榜第一名|254:0:1}],{获得专属属性加成|210:0:1}!
  352. GOTO @MAIN
  353. BREAK

  354. #IF
  355. CHECKVAR GLOBAL 沙捐排行玩家3 =
  356. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据1)>
  357. #ACT
  358. CONFERTITLE 【第一富豪】
  359. CALCVAR GLOBAL 沙捐排行玩家3 = <$GLOBAL(沙捐排行玩家2)>
  360. SAVEVAR GLOBAL 沙捐排行玩家3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  361. CALCVAR GLOBAL 沙捐排行数据3 = <$GLOBAL(沙捐排行数据2)>
  362. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  363. CALCVAR GLOBAL 沙捐排行玩家2 = <$GLOBAL(沙捐排行玩家1)>
  364. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  365. CALCVAR GLOBAL 沙捐排行数据2 = <$GLOBAL(沙捐排行数据1)>
  366. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  367. CALCVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  368. SAVEVAR GLOBAL 沙捐排行玩家1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  369. CALCVAR GLOBAL 沙捐排行数据1 = <$HUMAN(沙城捐献金额)>
  370. SAVEVAR GLOBAL 沙捐排行数据1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  371. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  372. <$GLOBAL(沙捐排行玩家2)>.DEPRIVETITLE 【第一富豪】
  373. <$GLOBAL(沙捐排行玩家2)>.CONFERTITLE 【第二富豪】
  374. HCALL <$GLOBAL(沙捐排行玩家2)> @上线属性
  375. <$GLOBAL(沙捐排行玩家3)>.DEPRIVETITLE 【第二富豪】
  376. <$GLOBAL(沙捐排行玩家3)>.CONFERTITLE 【第三富豪】
  377. HCALL <$GLOBAL(沙捐排行玩家3)> @上线属性
  378. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家2)>】的[沙城捐献排行榜第一名],获得专属属性加成! 1 10
  379. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家2)>|255:0:1}】的[{沙城捐献排行榜第一名|254:0:1}],{获得专属属性加成|210:0:1}!
  380. GOTO @MAIN
  381. BREAK

  382. #IF
  383. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据1)>
  384. #ACT
  385. DEPRIVETITLE 【爱心大使】
  386. CONFERTITLE 【第一富豪】
  387. MOV S$原来第三名 <$GLOBAL(沙捐排行玩家3)>
  388. CALCVAR GLOBAL 沙捐排行玩家3 = <$GLOBAL(沙捐排行玩家2)>
  389. SAVEVAR GLOBAL 沙捐排行玩家3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  390. CALCVAR GLOBAL 沙捐排行数据3 = <$GLOBAL(沙捐排行数据2)>
  391. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  392. CALCVAR GLOBAL 沙捐排行玩家2 = <$GLOBAL(沙捐排行玩家1)>
  393. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  394. CALCVAR GLOBAL 沙捐排行数据2 = <$GLOBAL(沙捐排行数据1)>
  395. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  396. CALCVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  397. SAVEVAR GLOBAL 沙捐排行玩家1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  398. CALCVAR GLOBAL 沙捐排行数据1 = <$HUMAN(沙城捐献金额)>
  399. SAVEVAR GLOBAL 沙捐排行数据1 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  400. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  401. <$GLOBAL(沙捐排行玩家2)>.DEPRIVETITLE 【第一富豪】
  402. <$GLOBAL(沙捐排行玩家2)>.CONFERTITLE 【第二富豪】
  403. HCALL <$GLOBAL(沙捐排行玩家2)> @上线属性
  404. <$GLOBAL(沙捐排行玩家3)>.DEPRIVETITLE 【第二富豪】
  405. <$GLOBAL(沙捐排行玩家3)>.CONFERTITLE 【第三富豪】
  406. HCALL <$GLOBAL(沙捐排行玩家3)> @上线属性
  407. S$原来第三名.DEPRIVETITLE 【第三富豪】
  408. S$原来第三名.CONFERTITLE 【爱心大使】
  409. HCALL <$STR(S$原来第三名)> @上线属性
  410. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家2)>】的[沙城捐献排行榜第一名],获得专属属性加成! 1 10
  411. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家2)>|255:0:1}】的[{沙城捐献排行榜第一名|254:0:1}],{获得专属属性加成|210:0:1}!
  412. GOTO @MAIN
  413. BREAK

  414. #IF
  415. CHECKVAR GLOBAL 沙捐排行玩家2 =
  416. #ACT
  417. CONFERTITLE 【第二富豪】
  418. CALCVAR GLOBAL 沙捐排行玩家2 = <$USERNAME>
  419. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  420. CALCVAR GLOBAL 沙捐排行数据2 = <$HUMAN(沙城捐献金额)>
  421. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  422. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  423. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」获得【沙城捐献】[排行榜第二名],获得专属属性加成! 1 5
  424. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」获得【{沙城捐献|255:0:1}】[{排行榜第二名|254:0:1}],{获得专属属性加成|210:0:1}!
  425. GOTO @MAIN
  426. BREAK

  427. #IF
  428. CHECKVAR GLOBAL 沙捐排行玩家2 = <$USERNAME>
  429. #ACT
  430. CALCVAR GLOBAL 沙捐排行数据2 = <$HUMAN(沙城捐献金额)>
  431. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  432. MESSAGEBOX \提示:捐献成功!
  433. GOTO @MAIN
  434. BREAK

  435. #IF
  436. CHECKVAR GLOBAL 沙捐排行玩家3 = <$USERNAME>
  437. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据2)>
  438. #ACT
  439. DEPRIVETITLE 【第三富豪】
  440. CONFERTITLE 【第二富豪】
  441. CALCVAR GLOBAL 沙捐排行玩家3 = <$GLOBAL(沙捐排行玩家2)>
  442. SAVEVAR GLOBAL 沙捐排行玩家3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  443. CALCVAR GLOBAL 沙捐排行数据3 = <$GLOBAL(沙捐排行数据2)>
  444. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  445. CALCVAR GLOBAL 沙捐排行玩家2 = <$USERNAME>
  446. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  447. CALCVAR GLOBAL 沙捐排行数据2 = <$HUMAN(沙城捐献金额)>
  448. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  449. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  450. <$GLOBAL(沙捐排行玩家3)>.DEPRIVETITLE 【第二富豪】
  451. <$GLOBAL(沙捐排行玩家3)>.CONFERTITLE 【第三富豪】
  452. HCALL <$GLOBAL(沙捐排行玩家3)> @上线属性
  453. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  454. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家3)>】的[沙城捐献排行榜第二名],获得专属属性加成! 1 5
  455. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家3)>|255:0:1}】的[{沙城捐献排行榜第二名|254:0:1}],{获得专属属性加成|210:0:1}!
  456. GOTO @MAIN
  457. BREAK

  458. #IF
  459. CHECKVAR GLOBAL 沙捐排行玩家3 =
  460. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据2)>
  461. #ACT
  462. CONFERTITLE 【第二富豪】
  463. CALCVAR GLOBAL 沙捐排行玩家3 = <$GLOBAL(沙捐排行玩家2)>
  464. SAVEVAR GLOBAL 沙捐排行玩家3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  465. CALCVAR GLOBAL 沙捐排行数据3 = <$GLOBAL(沙捐排行数据2)>
  466. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  467. CALCVAR GLOBAL 沙捐排行玩家2 = <$USERNAME>
  468. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  469. CALCVAR GLOBAL 沙捐排行数据2 = <$HUMAN(沙城捐献金额)>
  470. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  471. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  472. <$GLOBAL(沙捐排行玩家3)>.DEPRIVETITLE 【第二富豪】
  473. <$GLOBAL(沙捐排行玩家3)>.CONFERTITLE 【第三富豪】
  474. HCALL <$GLOBAL(沙捐排行玩家3)> @上线属性
  475. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  476. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家3)>】的[沙城捐献排行榜第二名],获得专属属性加成! 1 5
  477. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家3)>|255:0:1}】的[{沙城捐献排行榜第二名|254:0:1}],{获得专属属性加成|210:0:1}!
  478. GOTO @MAIN
  479. BREAK

  480. #IF
  481. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据2)>
  482. #ACT
  483. DEPRIVETITLE 【爱心大使】
  484. CONFERTITLE 【第二富豪】
  485. MOV S$原来第三名 <$GLOBAL(沙捐排行玩家3)>
  486. CALCVAR GLOBAL 沙捐排行玩家3 = <$GLOBAL(沙捐排行玩家2)>
  487. SAVEVAR GLOBAL 沙捐排行玩家3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  488. CALCVAR GLOBAL 沙捐排行数据3 = <$GLOBAL(沙捐排行数据2)>
  489. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  490. CALCVAR GLOBAL 沙捐排行玩家2 = <$USERNAME>
  491. SAVEVAR GLOBAL 沙捐排行玩家2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  492. CALCVAR GLOBAL 沙捐排行数据2 = <$HUMAN(沙城捐献金额)>
  493. SAVEVAR GLOBAL 沙捐排行数据2 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  494. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  495. <$GLOBAL(沙捐排行玩家2)>.DEPRIVETITLE 【第一富豪】
  496. <$GLOBAL(沙捐排行玩家2)>.CONFERTITLE 【第二富豪】
  497. HCALL <$GLOBAL(沙捐排行玩家2)> @上线属性
  498. <$GLOBAL(沙捐排行玩家3)>.DEPRIVETITLE 【第二富豪】
  499. <$GLOBAL(沙捐排行玩家3)>.CONFERTITLE 【第三富豪】
  500. HCALL <$GLOBAL(沙捐排行玩家3)> @上线属性
  501. S$原来第三名.DEPRIVETITLE 【第三富豪】
  502. S$原来第三名.CONFERTITLE 【爱心大使】
  503. HCALL <$STR(S$原来第三名)> @上线属性
  504. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$GLOBAL(沙捐排行玩家3)>】的[沙城捐献排行榜第二名],获得专属属性加成! 1 5
  505. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$GLOBAL(沙捐排行玩家3)>|255:0:1}】的[{沙城捐献排行榜第二名|254:0:1}],{获得专属属性加成|210:0:1}!
  506. GOTO @MAIN
  507. BREAK

  508. #IF
  509. CHECKVAR GLOBAL 沙捐排行玩家3 = <$USERNAME>
  510. #ACT
  511. CALCVAR GLOBAL 沙捐排行数据3 = <$HUMAN(沙城捐献金额)>
  512. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  513. MESSAGEBOX \提示:捐献成功!
  514. GOTO @MAIN
  515. BREAK

  516. #IF
  517. CHECKVAR HUMAN 沙城捐献金额 > <$GLOBAL(沙捐排行数据3)>
  518. #ACT
  519. DEPRIVETITLE 【爱心大使】
  520. CONFERTITLE 【第三富豪】
  521. MOV S$原来第三名 <$GLOBAL(沙捐排行玩家3)>
  522. CALCVAR GLOBAL 沙捐排行玩家3 = <$USERNAME>
  523. SAVEVAR GLOBAL 沙捐排行玩家3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  524. CALCVAR GLOBAL 沙捐排行数据3 = <$HUMAN(沙城捐献金额)>
  525. SAVEVAR GLOBAL 沙捐排行数据3 ..\QuestDiary\QQ3215784\沙城捐献\01沙城捐献变量SAVE.txt
  526. #CALL [QQ3215784\系统功能\游戏登录.txt] @上线属性
  527. S$原来第三名.DEPRIVETITLE 【第三富豪】
  528. S$原来第三名.CONFERTITLE 【爱心大使】
  529. HCALL <$STR(S$原来第三名)> @上线属性
  530. SENDCENTERMSG 253 0 [号外]:》恭喜玩家「<$USERNAME>」抢走了【<$STR(S$原来第三名)>】的[沙城捐献排行榜第三名],获得专属属性加成! 1 5
  531. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}恭喜玩家「{<$USERNAME>|250:0:1}」抢走了【{<$STR(S$原来第三名)>|255:0:1}】的[{沙城捐献排行榜第三名|254:0:1}],{获得专属属性加成|210:0:1}!
  532. GOTO @MAIN
  533. BREAK

  534. #IF
  535. NOT CHECKVAR GLOBAL 沙捐排行玩家1 = <$USERNAME>
  536. NOT CHECKVAR GLOBAL 沙捐排行玩家2 = <$USERNAME>
  537. NOT CHECKVAR GLOBAL 沙捐排行玩家3 = <$USERNAME>
  538. #ACT
  539. CONFERTITLE 【爱心大使】
  540. MESSAGEBOX \提示:捐献成功!获得【爱心大使】称号!
  541. GOTO @MAIN
  542. BREAK

  543. #IF
  544. #ACT
  545. MESSAGEBOX \提示:捐献成功!
  546. GOTO @MAIN
  547. BREAK

  548. [@沙城捐献开始]
  549. #IF
  550. CHECK [140] 1
  551. #ACT
  552. MESSAGEBOX \提示:您已经捐献过了!
  553. BREAK
  554. #IF
  555. CHECKGAMEPOINT < <$GLOBAL(沙城捐献收取费用)>
  556. #ACT
  557. MESSAGEBOX \提示:RMB点不够!
  558. BREAK

  559. #IF
  560. #ACT
  561. MOV N$捐献区服标记 0
  562. #OR
  563. CheckContainsText <$SERVERNAME> 1区
  564. CheckContainsText <$SERVERNAME> 一区
  565. #ACT
  566. MOV N$捐献区服标记 1
  567. #OR
  568. CheckContainsText <$SERVERNAME> 2区
  569. CheckContainsText <$SERVERNAME> 二区
  570. #ACT
  571. MOV N$捐献区服标记 2
  572. #OR
  573. CheckContainsText <$SERVERNAME> 3区
  574. CheckContainsText <$SERVERNAME> 三区
  575. #ACT
  576. MOV N$捐献区服标记 3
  577. #OR
  578. CheckContainsText <$SERVERNAME> 4区
  579. CheckContainsText <$SERVERNAME> 四区
  580. #ACT
  581. MOV N$捐献区服标记 4
  582. #OR
  583. CheckContainsText <$SERVERNAME> 5区
  584. CheckContainsText <$SERVERNAME> 五区
  585. #ACT
  586. MOV N$捐献区服标记 5
  587. #OR
  588. CheckContainsText <$SERVERNAME> 6区
  589. CheckContainsText <$SERVERNAME> 六区
  590. #ACT
  591. MOV N$捐献区服标记 6
  592. #OR
  593. CheckContainsText <$SERVERNAME> 7区
  594. CheckContainsText <$SERVERNAME> 七区
  595. #ACT
  596. MOV N$捐献区服标记 7

  597. #IF
  598. CheckContainsText <$SERVERNAME> 测试
  599. #ACT
  600. MOV N$捐献区服标记 0

  601. #IF
  602. EQUAL N$捐献区服标记 0
  603. #ACT
  604. SET [140] 1
  605. CONFERTITLE 沙城捐献
  606. GAMEPOINT - <$GLOBAL(沙城捐献收取费用)>
  607. CALCVAR HUMAN 沙城捐献金额 + <$GLOBAL(沙城捐献收取费用)>
  608. SAVEVAR HUMAN 沙城捐献金额 ..\QuestDiary\QQ3215784\沙城捐献\02沙城捐献金额SAVE.txt
  609. MESSAGEBOX \提示:开启成功!测试区和合区后Rmb点不计入沙城捐献总数!
  610. BREAK

  611. #IF
  612. LARGE N$捐献区服标记 0
  613. #ACT
  614. SET [140] 1
  615. CONFERTITLE 沙城捐献
  616. GAMEPOINT - <$GLOBAL(沙城捐献收取费用)>
  617. LOADVAR GLOBAL 沙城捐献分区数据<$STR(N$捐献区服标记)> ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  618. CALCVAR GLOBAL 沙城捐献分区数据<$STR(N$捐献区服标记)> + <$GLOBAL(沙城捐献收取费用)>
  619. SAVEVAR GLOBAL 沙城捐献分区数据<$STR(N$捐献区服标记)> ..\..\..\..\<$GLOBAL(跨区脚本目录)>\跨区沙城捐献\<$STR(A101)>.txt
  620. SENDCENTERMSG 253 0 [号外]:》土豪玩家「<$USERNAME>」为【沙城捐献】贡献了[<$GLOBAL(沙城捐献收取费用)>RMB点],获得超级属性加成! 1 10
  621. SENDCENTERMSG 253 0 [号外]:》土豪玩家「<$USERNAME>」为【沙城捐献】贡献了[<$GLOBAL(沙城捐献收取费用)>RMB点],获得超级属性加成! 1 10
  622. SENDCENTERMSG 253 0 [号外]:》土豪玩家「<$USERNAME>」为【沙城捐献】贡献了[<$GLOBAL(沙城捐献收取费用)>RMB点],获得超级属性加成! 1 10
  623. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}土豪玩家「{<$USERNAME>|250:0:1}」为【{沙城捐献|255:0:1}】贡献了[{<$GLOBAL(沙城捐献收取费用)>RMB点|254:0:1}],{获得超级属性加成|210:0:1}!
  624. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}土豪玩家「{<$USERNAME>|250:0:1}」为【{沙城捐献|255:0:1}】贡献了[{<$GLOBAL(沙城捐献收取费用)>RMB点|254:0:1}],{获得超级属性加成|210:0:1}!
  625. GUILDNOTICEMSG 251 249 {[号外]:》|158:0:1}土豪玩家「{<$USERNAME>|250:0:1}」为【{沙城捐献|255:0:1}】贡献了[{<$GLOBAL(沙城捐献收取费用)>RMB点|254:0:1}],{获得超级属性加成|210:0:1}!
  626. GOTO @MAIN
  627. BREAK
复制代码


GOM引擎-通区沙城捐献(排行榜带返还)78 / 作者:admin / 帖子ID:1258 GOM引擎-通区沙城捐献(排行榜带返还).txt (186 Bytes, 下载次数: 0, 售价: 300 司徒币)

帖子地址: 





上一篇:富豪捐献脚本
下一篇:gom原地禁锢BUFF让对方红名buff对方减速实现方法
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【乱回复灌水将给予禁言处理】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则