捐献顶榜获得属性-合区清理数据

wojiajimi

{捐献顶榜脚本}

适用引擎：Gom引擎、Gee引擎

脚本特色：捐献顶榜获得对应属性，顶榜属性立即触发

占用变量：@@InPutInteger15

脚本补丁：无

以下为游戏登录触发脚本内容：

1. 
   
2. [@上线属性]
   
3. {
   
4. #IF
   
5. #ACT
   
6. MOV N$上线攻击 0
   
7. MOV N$上线魔法 0
   
8. MOV N$上线道术 0
   
9. MOV N$上线血量 0
   
10. CHANGEHUMABILITY 5 = 0
    
11. CHANGEHUMABILITY 6 = 0
    
12. CHANGEHUMABILITY 7 = 0
    
13. CHANGEHUMABILITY 8 = 0
    
14. CHANGEHUMABILITY 9 = 0
    
15. CHANGEHUMABILITY 10 = 0
    
16. 
    
17. #IF
    
18. CHECKNAMELIST ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
19. #ACT
    
20. GetStringPos ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
21. MOV N$元宝捐献排位 <$STR(N0)>
    
22. INC N$元宝捐献排位 1
    
23. MOV N$捐献攻魔道 1
    
24. #IF
    
25. EQUAL N$元宝捐献排位 1
    
26. CHECKNAMELIST ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
27. #ACT
    
28. MOV N$捐献攻魔道 20
    
29. #IF
    
30. EQUAL N$元宝捐献排位 2
    
31. CHECKNAMELIST ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
32. #ACT
    
33. MOV N$捐献攻魔道 10
    
34. #IF
    
35. EQUAL N$元宝捐献排位 3
    
36. CHECKNAMELIST ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
37. #ACT
    
38. MOV N$捐献攻魔道 7
    
39. #IF
    
40. EQUAL N$元宝捐献排位 4
    
41. CHECKNAMELIST ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
42. #ACT
    
43. MOV N$捐献攻魔道 5
    
44. #IF
    
45. EQUAL N$元宝捐献排位 5
    
46. CHECKNAMELIST ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
47. #ACT
    
48. MOV N$捐献攻魔道 3
    
49. #IF
    
50. LARGE N$捐献攻魔道 0
    
51. #ACT
    
52. INC N$上线攻击 <$STR(N$捐献攻魔道)>
    
53. INC N$上线魔法 <$STR(N$捐献攻魔道)>
    
54. INC N$上线道术 <$STR(N$捐献攻魔道)>
    
55. 
    
56. #IF
    
57. #ACT
    
58. CHANGEHUMABILITY 5 + <$STR(N$上线攻击)>
    
59. CHANGEHUMABILITY 6 + <$STR(N$上线攻击)>
    
60. CHANGEHUMABILITY 7 + <$STR(N$上线魔法)>
    
61. CHANGEHUMABILITY 8 + <$STR(N$上线魔法)>
    
62. CHANGEHUMABILITY 9 + <$STR(N$上线道术)>
    
63. CHANGEHUMABILITY 10 + <$STR(N$上线道术)>
    
64. BREAK
    
65. }

复制代码

请注意创建相应文件名的TXT文件：元宝捐献积分Save.txt，元宝捐献积分排名.txt，元宝捐献积分排位.txt

wojiajimi

这里是QM脚本内容：

1. [@Startup]
   
2. #IF
   
3. #ACT
   
4. ClearNameList ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt
   
5. ClearNameList ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt
   
6. ClearNameList ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt
   
7. ;如果QM中已经有[@Startup]字段，则将以上内容复制到[@Startup]下面。([@Startup]不要复制)
   
8. ;如果QM中没有[@Startup]字段，则将以上全部内容复制到QM中即可。
   
9. 
   
10. [@Login]
    
11. #IF
    
12. #ACT
    
13. VAR Integer HUMAN 元宝捐献积分
    
14. LOADVAR HUMAN 元宝捐献积分 ..\QuestDiary\QQ394099033\元宝捐献\元宝捐献积分Save.txt
    
15. #CALL [\系统功能\游戏登录.txt] @上线属性
    
16. ;如果QM中已经有[@Login]字段，则将以上内容复制到[@Login]下面。([@Login]不要复制)
    
17. ;如果QM中没有[@Login]字段，则将以上全部内容复制到QM中即可。
    
18. 
    
19. [@爵位捐献变更]
    
20. #IF
    
21. CHECKVAR HUMAN 元宝捐献积分 > 0
    
22. #ACT
    
23. #CALL [\系统功能\游戏登录.txt] @上线属性
    
24. BREAK
    

复制代码

wojiajimi

这里是NPC 爵位捐献-3.txt脚本内容：

1. [@main]
   
2. #IF
   
3. #ACT
   
4. GetListString ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 0 S$捐献玩家01 N$捐献元宝01
   
5. GetListString ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1 S$捐献玩家02 N$捐献元宝02
   
6. GetListString ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 2 S$捐献玩家03 N$捐献元宝03
   
7. GetListString ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 3 S$捐献玩家04 N$捐献元宝04
   
8. GetListString ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 4 S$捐献玩家05 N$捐献元宝05
   
9. GetListString ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 5 S$捐献玩家06 N$捐献元宝06
   
10. 
    
11. #IF
    
12. SMALL N$捐献元宝01 500
    
13. #ACT
    
14. MOV S$捐献玩家01 虚位以待..
    
15. MOV N$捐献元宝01 0
    
16. #IF
    
17. SMALL N$捐献元宝02 500
    
18. #ACT
    
19. MOV S$捐献玩家02 虚位以待..
    
20. MOV N$捐献元宝02 0
    
21. #IF
    
22. SMALL N$捐献元宝03 500
    
23. #ACT
    
24. MOV S$捐献玩家03 虚位以待..
    
25. MOV N$捐献元宝03 0
    
26. #IF
    
27. SMALL N$捐献元宝04 500
    
28. #ACT
    
29. MOV S$捐献玩家04 虚位以待..
    
30. MOV N$捐献元宝04 0
    
31. #IF
    
32. SMALL N$捐献元宝05 500
    
33. #ACT
    
34. MOV S$捐献玩家05 虚位以待..
    
35. MOV N$捐献元宝05 0
    
36. #IF
    
37. SMALL N$捐献元宝06 500
    
38. #ACT
    
39. MOV S$捐献玩家06 虚位以待..
    
40. MOV N$捐献元宝06 0
    
41. 
    
42. #IF
    
43. #ACT
    
44. GetStringPos ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt <$USERNAME>
    
45. #IF
    
46. EQUAL N0 9999999
    
47. #ELSEACT
    
48. MOV N$个人排位 1
    
49. INC N$个人排位 <$STR(N0)>
    
50. #IF
    
51. CHECKVAR HUMAN 元宝捐献积分 < 500
    
52. #ACT
    
53. MOV N$个人排位 999999
    
54. #IF
    
55. LARGE N$个人排位 6
    
56. CHECKVAR HUMAN 元宝捐献积分 ? 500
    
57. #ACT
    
58. MOV N$个人排位 6
    
59. MOV S$显示玩家06 <$USERNAME>
    
60. 
    
61. #IF
    
62. #ACT
    
63. MOV S$显示玩家01 <$STR(S$捐献玩家01)>
    
64. MOV S$显示玩家02 <$STR(S$捐献玩家02)>
    
65. MOV S$显示玩家03 <$STR(S$捐献玩家03)>
    
66. MOV S$显示玩家04 <$STR(S$捐献玩家04)>
    
67. MOV S$显示玩家05 <$STR(S$捐献玩家05)>
    
68. MOV S$显示玩家06 <$STR(S$捐献玩家06)>
    
69. SetStringBlank S$显示玩家01 15 1
    
70. SetStringBlank S$显示玩家02 15 1
    
71. SetStringBlank S$显示玩家03 15 1
    
72. SetStringBlank S$显示玩家04 15 1
    
73. SetStringBlank S$显示玩家05 15 1
    
74. SetStringBlank S$显示玩家06 15 1
    
75. MOV S$捐献元宝01 <$STR(N$捐献元宝01)>元宝
    
76. MOV S$捐献元宝02 <$STR(N$捐献元宝02)>元宝
    
77. MOV S$捐献元宝03 <$STR(N$捐献元宝03)>元宝
    
78. MOV S$捐献元宝04 <$STR(N$捐献元宝04)>元宝
    
79. MOV S$捐献元宝05 <$STR(N$捐献元宝05)>元宝
    
80. MOV S$捐献元宝06 <$STR(N$捐献元宝06)>元宝
    
81. SetStringBlank S$捐献元宝01 14 0
    
82. SetStringBlank S$捐献元宝02 14 0
    
83. SetStringBlank S$捐献元宝03 14 0
    
84. SetStringBlank S$捐献元宝04 14 0
    
85. SetStringBlank S$捐献元宝05 14 0
    
86. SetStringBlank S$捐献元宝06 14 0
    
87. #SAY
    
88. <>  <官位/SCOLOR=250>           <玩家/SCOLOR=250>                   <捐献金额/SCOLOR=250>    <获得属性/SCOLOR=250>\
    
89. <  皇帝  /SCOLOR=151> 第一名：{<$STR(S$显示玩家01)>/SCOLOR=70}  {<$STR(S$捐献元宝01)>/SCOLOR=254}    <攻魔道+20/SCOLOR=22>\
    
90. <  公爵  /SCOLOR=151> 第二名：{<$STR(S$显示玩家02)>/SCOLOR=70}  {<$STR(S$捐献元宝02)>/SCOLOR=254}    <攻魔道+10/SCOLOR=22>\
    
91. <  候爵  /SCOLOR=151> 第三名：{<$STR(S$显示玩家03)>/SCOLOR=70}  {<$STR(S$捐献元宝03)>/SCOLOR=254}    <攻魔道+7/SCOLOR=22>\
    
92. <  伯爵  /SCOLOR=151> 第四名：{<$STR(S$显示玩家04)>/SCOLOR=70}  {<$STR(S$捐献元宝04)>/SCOLOR=254}    <攻魔道+5/SCOLOR=22>\
    
93. <  子爵  /SCOLOR=151> 第五名：{<$STR(S$显示玩家05)>/SCOLOR=70}  {<$STR(S$捐献元宝05)>/SCOLOR=254}    <攻魔道+3/SCOLOR=22>\
    
94. <爱心大使/SCOLOR=151> 第六名：{<$STR(S$显示玩家06)>/SCOLOR=70}  {<$STR(S$捐献元宝06)>/SCOLOR=254}    <攻魔道+1/SCOLOR=22>\
    
95. <><温馨提示/SCOLOR=210>: <捐献满500元宝并列第六名，上线可享受攻魔道+1/SCOLOR=253> <合区清理数据/SCOLOR=58>\
    
96. <>[<我要捐款/@@InPutInteger15(请输入捐款数量[500元宝起捐]：)>]  <您当前已捐献/SCOLOR=103>: {<$HUMAN(元宝捐献积分)>元宝/SCOLOR=254}  <位于排行榜第/SCOLOR=103>[{<$STR(N$个人排位)>/SCOLOR=254}]<名/SCOLOR=103>\
    
97. 
    
98. [@InPutInteger15]
    
99. #IF
    
100. SMALL N15 500
     
101. #ACT
     
102. MESSAGEBOX \提示：每次捐款必须500元宝以上！
     
103. BREAK
     
104. #IF
     
105. CHECKGAMEGOLD < <$STR(N15)>
     
106. #ACT
     
107. MESSAGEBOX \提示：元宝不够！
     
108. BREAK
     
109. #IF
     
110. #ACT
     
111. GAMEGOLD - <$STR(N15)>
     
112. CALCVAR HUMAN 元宝捐献积分 + <$STR(N15)>
     
113. SAVEVAR HUMAN 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt
     
114. MESSAGEBOX \提示：捐献成功！
     
115. 
     
116. #IF
     
117. EQUAL S$捐献玩家01 <$USERNAME>
     
118. #ACT
     
119. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
120. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
121. GOTO @MAIN
     
122. BREAK
     
123. #IF
     
124. CHECKVAR HUMAN 元宝捐献积分 > <$STR(N$捐献元宝01)>
     
125. #ACT
     
126. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
127. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
128. GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S$捐献玩家01)>』皇帝称号，上线攻魔道+20.
     
129. GMEXECUTE 开始提问 @爵位捐献变更
     
130. GOTO @MAIN
     
131. BREAK
     
132. #IF
     
133. EQUAL S$捐献玩家02 <$USERNAME>
     
134. #ACT
     
135. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
136. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
137. GOTO @MAIN
     
138. BREAK
     
139. #IF
     
140. CHECKVAR HUMAN 元宝捐献积分 > <$STR(N$捐献元宝02)>
     
141. #ACT
     
142. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
143. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
144. GMEXECUTE 开始提问 @爵位捐献变更
     
145. GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S$捐献玩家02)>』公爵称号，上线攻魔道+10.
     
146. GOTO @MAIN
     
147. BREAK
     
148. #IF
     
149. EQUAL S$捐献玩家03 <$USERNAME>
     
150. #ACT
     
151. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
152. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
153. GOTO @MAIN
     
154. BREAK
     
155. #IF
     
156. CHECKVAR HUMAN 元宝捐献积分 > <$STR(N$捐献元宝03)>
     
157. #ACT
     
158. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
159. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
160. GMEXECUTE 开始提问 @爵位捐献变更
     
161. GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S$捐献玩家03)>』侯爵称号，上线攻魔道+7.
     
162. GOTO @MAIN
     
163. BREAK
     
164. #IF
     
165. EQUAL S$捐献玩家04 <$USERNAME>
     
166. #ACT
     
167. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
168. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
169. GOTO @MAIN
     
170. BREAK
     
171. #IF
     
172. CHECKVAR HUMAN 元宝捐献积分 > <$STR(N$捐献元宝04)>
     
173. #ACT
     
174. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
175. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
176. GMEXECUTE 开始提问 @爵位捐献变更
     
177. GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S$捐献玩家04)>』伯爵称号，上线攻魔道+5.
     
178. GOTO @MAIN
     
179. BREAK
     
180. #IF
     
181. EQUAL S$捐献玩家05 <$USERNAME>
     
182. #ACT
     
183. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
184. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
185. GOTO @MAIN
     
186. BREAK
     
187. #IF
     
188. CHECKVAR HUMAN 元宝捐献积分 > <$STR(N$捐献元宝05)>
     
189. #ACT
     
190. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
191. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
192. GMEXECUTE 开始提问 @爵位捐献变更
     
193. GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S$捐献玩家05)>』子爵称号，上线攻魔道+3.
     
194. GOTO @MAIN
     
195. BREAK
     
196. #IF
     
197. CHECKVAR HUMAN 元宝捐献积分 > <$STR(N$捐献元宝06)>
     
198. #ACT
     
199. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排名.txt 1
     
200. SortHumVarToListEx 元宝捐献积分 ..\QuestDiary\元宝捐献\元宝捐献积分Save.txt 1 ..\QuestDiary\元宝捐献\元宝捐献积分排位.txt 0
     
201. GOTO @MAIN
     
202. BREAK
     
203. #IF
     
204. #ACT
     
205. #CALL [\系统功能\游戏登录.txt] @上线属性
     
206. GOTO @MAIN
     
207. BREAK
     

复制代码

wxs4565563

++++++++++++++++