捐献属性系统

admin

1. (@effigy)
   
2. [@main]
   
3. 
   
4. ;------------
   
5. #IF
   
6. TRUE
   
7. #ACT
   
8. ClearVar S0 99
   
9. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S10 0 0 1 | ;//由大到小，取第1名
   
10. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S11 1 0 1 | ;//由大到小，取第2名
    
11. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S12 2 0 1 | ;//由大到小，取第3名
    
12. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S13 3 0 1 | ;//由大到小，取第4名
    
13. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S14 4 0 1 | ;//由大到小，取第5名
    
14. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S15 5 0 1 | ;//由大到小，取第6名
    
15. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S16 6 0 1 | ;//由大到小，取第7名
    
16. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S17 7 0 1 | ;//由大到小，取第8名
    
17. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S18 8 0 1 | ;//由大到小，取第9名
    
18. READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S19 9 0 1 | ;//由大到小，取第10名
    
19. #IF
    
20. !EQUAL S10
    
21. #ACT
    
22. SPLIT $STR(S10) | S20
    
23. #ELSEACT
    
24. MOV S20 无
    
25. MOV S21
    
26. 
    
27. #IF
    
28. !EQUAL S11
    
29. #ACT
    
30. SPLIT $STR(S11) | S30
    
31. #ELSEACT
    
32. MOV S30 无
    
33. MOV S31
    
34. #IF
    
35. !EQUAL S12
    
36. #ACT
    
37. SPLIT $STR(S12) | S40
    
38. #ELSEACT
    
39. MOV S40 无
    
40. MOV S41
    
41. #IF
    
42. !EQUAL S13
    
43. #ACT
    
44. SPLIT $STR(S13) | S42
    
45. #ELSEACT
    
46. MOV S42 无
    
47. MOV S43
    
48. #IF
    
49. !EQUAL S14
    
50. #ACT
    
51. SPLIT $STR(S14) | S70
    
52. #ELSEACT
    
53. MOV S70 无
    
54. MOV S71
    
55. #IF
    
56. !EQUAL S15
    
57. #ACT
    
58. SPLIT $STR(S15) | S72
    
59. #ELSEACT
    
60. MOV S72 无
    
61. MOV S73
    
62. #IF
    
63. !EQUAL S16
    
64. #ACT
    
65. SPLIT $STR(S16) | S74
    
66. #ELSEACT
    
67. MOV S74 无
    
68. MOV S75
    
69. #IF
    
70. !EQUAL S17
    
71. #ACT
    
72. SPLIT $STR(S17) | S76
    
73. #ELSEACT
    
74. MOV S76 无
    
75. MOV S77
    
76. #IF
    
77. !EQUAL S18
    
78. #ACT
    
79. SPLIT $STR(S18) | S78
    
80. #ELSEACT
    
81. MOV S78 无
    
82. MOV S79
    
83. #IF
    
84. !EQUAL S19
    
85. #ACT
    
86. SPLIT $STR(S19) | S80
    
87. #ELSEACT
    
88. MOV S80 无
    
89. MOV S81
    
90. 
    
91. 
    
92. 
    
93. #IF
    
94. TRUE
    
95. #ACT
    
96. MOV S51 $STR(S20)
    
97. MOV S52 $STR(S30)
    
98. MOV S53 $STR(S40)
    
99. MOV S54 $STR(S42)
    
100. MOV S55 $STR(S70)
     
101. MOV S56 $STR(S72)
     
102. MOV S57 $STR(S74)
     
103. MOV S58 $STR(S76)
     
104. MOV S59 $STR(S78)
     
105. MOV S60 $STR(S80)
     
106. FillText S51 14
     
107. FillText S52 14
     
108. FillText S53 14
     
109. FillText S54 14
     
110. FillText S55 14
     
111. FillText S56 14
     
112. FillText S57 14
     
113. FillText S58 14
     
114. FillText S59 14
     
115. FillText S60 14
     
116. 
     
117. #SAY
     
118. 
     
119. \\
     
120. \             <COLOR=GREEN  全服所有玩家-对捐献进行排名,排行榜前十名玩家获得额外属性加成>\
     
121. \          <Color=FF00DE ╔════════════════════════════════════>
     
122. \          <Color=FF00DE ‖>  <COLOR=GREEN 第一名:攻防+1500-1500 HP+10万>  <Color=FF00DE 玩家:><$STR(S51)><Color=FF00DE 捐献数量:>[<$STR(S21)>] <Color=FF00DE        >
     
123. \          <Color=FF00DE ‖>  <COLOR=GREEN 第二名:攻防+500-500   HP+05万>  <Color=FF00DE 玩家:><$STR(S52)><Color=FF00DE 捐献数量:>[<$STR(S31)>] <Color=FF00DE        >
     
124. \          <Color=FF00DE ‖>  <COLOR=GREEN 第三名:攻防+300-300   HP+03万>  <Color=FF00DE 玩家:><$STR(S53)><Color=FF00DE 捐献数量:>[<$STR(S41)>] <Color=FF00DE        >
     
125. \          <Color=FF00DE ‖>  <COLOR=ORANGE 第四名:攻防+200-200   HP+02万>  <Color=FF00DE 玩家:><$STR(S54)><Color=FF00DE 捐献数量:>[<$STR(S43)>] <Color=FF00DE        >
     
126. \          <Color=FF00DE ‖>  <COLOR=ORANGE 第五名:攻防+200-200   HP+02万>  <Color=FF00DE 玩家:><$STR(S55)><Color=FF00DE 捐献数量:>[<$STR(S71)>] <Color=FF00DE           >
     
127. \          <Color=FF00DE ‖>  <COLOR=ORANGE 第六名:攻防+100-100   HP+01万>  <Color=FF00DE 玩家:><$STR(S56)><Color=FF00DE 捐献数量:>[<$STR(S73)>] <Color=FF00DE           >
     
128. \          <Color=FF00DE ‖>  <COLOR=ORANGE 第七名:攻防+100-100   HP+01万>  <Color=FF00DE 玩家:><$STR(S57)><Color=FF00DE 捐献数量:>[<$STR(S75)>] <Color=FF00DE           >
     
129. \          <Color=FF00DE ‖>  <COLOR=ORANGE 第八名:攻防+100-100   HP+01万>  <Color=FF00DE 玩家:><$STR(S58)><Color=FF00DE 捐献数量:>[<$STR(S77)>] <Color=FF00DE           >
     
130. \          <Color=FF00DE ‖>  <COLOR=ORANGE 第九名:攻防+100-100   HP+01万>  <Color=FF00DE 玩家:><$STR(S59)><Color=FF00DE 捐献数量:>[<$STR(S79)>] <Color=FF00DE           >
     
131. \          <Color=FF00DE ‖>  <COLOR=ORANGE 第十名:攻防+100-100   HP+01万>  <Color=FF00DE 玩家:><$STR(S60)><Color=FF00DE 捐献数量:>[<$STR(S81)>] <Color=FF00DE           >
     
132. \          <Color=FF00DE ╚════════════════════════════════════>\
     
133. 
     
134. \                        <捐献创世币/@CallInPutInteger25>  <Color=FF00DE 每次合区清理排行榜,请量力而行>\
     
135. \                       <COLOR=GREEN 您当前拥有创世币>:<$CustomValue(6)> <color=GREEN 个> <COLOR=GREEN 捐献最低1000创世币起.>
     
136. 
     
137. 
     
138. 
     
139. 
     
140. [@CallInPutInteger25]
     
141. #IF
     
142. TRUE
     
143. #ACT
     
144. MOV M1 0
     
145. QUERYVAL 1 1 8 @LONG数入 请输入你要捐献的创世币数量！
     
146. 
     
147. [@LONG数入]
     
148. #IF
     
149. SMALL M1 1000
     
150. #ACT
     
151. messagebox 对不起,最低捐献1000创世币!
     
152. GOTO @WYJK
     
153. BREAK
     
154. 
     
155. #IF
     
156. LARGE $CustomValue(6) <$STR(M1)>
     
157. #ACT
     
158. GOTO @JKKS
     
159. BREAK
     
160. 
     
161. #IF
     
162. EQUAL $CustomValue(6) <$STR(M1)>
     
163. #ACT
     
164. GOTO @JKKS
     
165. BREAK
     
166. #ELSEACT
     
167. messagebox 您没有那么多的创世币!
     
168. BREAK
     
169. 
     
170. [@JKKS]
     
171. #IF
     
172. #ACT
     
173. CHANGECustomValue 6 - $STR(M1)
     
174. #IF
     
175. POSINLIST <$USERNAME>| ..\QuestDiary\数据文件\捐献排行.TXT S0
     
176. #ACT
     
177. SPLIT $STR(S0) | S10
     
178. MOV P1 $STR(S11)
     
179. DELVARLIST $STR(S0) ..\QuestDiary\数据文件\捐献排行.TXT
     
180. ADDVARLIST <$USERNAME>|<$INC.$STR(P1).$STR(M1)> ..\QuestDiary\数据文件\捐献排行.TXT
     
181. SHOWHUMEFFECT 282
     
182. SHOWHUMEFFECT 299
     
183. SENDMSG 26 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他!
     
184. SENDMSG 24 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他!
     
185. GMEXECUTE StartQuest @属性加载
     
186. #CALL [\登陆设置\属性加载.txt] @属性加载
     
187. GOTO @MAIN
     
188. BREAK
     
189. 
     
190. #IF
     
191. !POSINLIST <$USERNAME>| ..\QuestDiary\数据文件\捐献排行.TXT S0
     
192. #ACT
     
193. ADDVARLIST <$USERNAME>|<$INC.$STR(P1).$STR(M1)> ..\QuestDiary\数据文件\捐献排行.TXT
     
194. SHOWHUMEFFECT 282
     
195. SHOWHUMEFFECT 299
     
196. CHANGECustomValue 6 - $STR(M1)
     
197. SENDMSG 26 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他！
     
198. SENDMSG 24 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他!
     
199. GMEXECUTE StartQuest @属性加载
     
200. #CALL [\登陆设置\属性加载.txt] @属性加载
     
201. GOTO @MAIN
     
202. 
     
203. 
     

复制代码

游客，如果您要查看本帖隐藏内容请回复