富豪捐献脚本

admin

元宝捐献脚本

1. [@Main]
   
2. #IF
   
3. #ACT
   
4. MOV S$显示第1名 　<$GLOBAL(HbJX-捐献第1名)>
   
5. SetStringBlank S$显示第1名 18 1
   
6. MOV S$显示第2名 　<$GLOBAL(HbJX-捐献第2名)>
   
7. SetStringBlank S$显示第2名 18 1
   
8. MOV S$显示第3名 　<$GLOBAL(HbJX-捐献第3名)>
   
9. SetStringBlank S$显示第3名 18 1
   
10. CloseBigDialogBox
    
11. OPENMERCHANTBIGDLG 1 765 0 0 0 0 1 422 11
    
12. #SAY
    
13. \　\　\
    
14. 　　　　　　　　　　　　<★司徒游传奇脚本★富豪捐献系统/SCOLOR=154>\
    
15. <Img:168:1:-1:4>\
    
16. 　<第一富豪:/SCOLOR=243>　[<$STR(S$显示第1名)>] <当前捐献火龙币数量为：/FCOLOR=251>[<$GLOBAL(HbJX-捐献第1数)>]\
    
17. 　<第二富豪:/SCOLOR=241>　[<$STR(S$显示第2名)>] <当前捐献火龙币数量为：/FCOLOR=251>[<$GLOBAL(HbJX-捐献第2数)>]\
    
18. 　<第三富豪:/SCOLOR=253>　[<$STR(S$显示第3名)>] <当前捐献火龙币数量为：/FCOLOR=251>[<$GLOBAL(HbJX-捐献第3数)>]\
    
19. 　<富豪捐献排名实时更新,捐献火龙币数量每天0点自动清零。/SCOLOR=250>\
    
20. 　<您当前的捐献火龙币数量为：【/FCOLOR=242><$HUMAN(Hbjx-个人捐献)><】/FCOLOR=242> <最低500才可以上榜/FCOLOR=249>　 <捐献火龙币/@@InPutInteger88>\
    
21. 　<排名第一可获得“第一富豪”称号，攻魔道 100-100 HP +1000,元素+ 5%/SCOLOR=243>\
    
22. 　<排名第二可获得“第二富豪”称号，攻魔道  50- 50 HP + 600,元素+ 3%/SCOLOR=241>\
    
23. 　<排名第三可获得“第三富豪”称号，攻魔道  20- 20 HP + 400,元素+ 2%/SCOLOR=253>\
    
24. 　<捐献五百币获得“西楚使者”称号，攻魔道  10- 10 HP + 200,元素+ 1%/SCOLOR=251>\
    
25. 　<如果你捐献达到500火龙币,不在排行榜内,小退上线获得“西楚使者”称号/SCOLOR=250>\
    
26. 　<拥有以上4种称号任意一种/FCOLOR=168>　<进入捐献专属地图|154#刷新时间60-120分钟之间/@Wyjr01x>　<即可进入捐献专属地图/FCOLOR=168>
    
27. 
    
28. [@InPutInteger88]
    
29. #if
    
30. small N88 500
    
31. #ACT
    
32. MESSAGEBOX ぐ【失败】：最少捐献500火龙币!
    
33. BREAK
    
34. 
    
35. #IF
    
36. CHECKLEVELEX > 0
    
37. #ACT
    
38. MOV P61 <$HUMAN(HbJX-个人捐献)>
    
39. INC P61 <$STR(N88)>
    
40. #IF
    
41. LARGE P61 0
    
42. #ELSEACT
    
43. messagebox 你当前所捐献的金额,累计总额里后超出系统上限,请重新输入！\(最高累计金额21.47亿)
    
44. BREAK
    
45. 
    
46. #IF
    
47. CHECKGameDiamond < <$STR(N88)>
    
48. #ACT
    
49. messagebox 你没有<$STR(N88)>火龙币,拿什么捐献？
    
50. BREAK
    
51. #ELSEACT
    
52. GameDiamond - <$STR(N88)>
    
53. CALCVAR HUMAN HbJX-个人捐献 + <$STR(N88)>
    
54. SAVEVAR HUMAN HbJX-个人捐献 ..\QuestDiary\火币捐献\火币捐献排行数据.txt
    
55. GOTO @开始捐献排名
    
56. Goto @给于称号
    
57. GuildNoticeMsg 254 0 【火龙币捐献提示】：[<$USERNAME>]捐献了[<$STR(N88)>]火龙币!当前排名:<$STR(S$当前排名)>
    
58. GOTO @Main
    
59. 
    
60. ;;;;;;;;;;;↓这里自行查询GM命令 管理命令  提问代码
    
61. GMEXECUTE 开始提问 @火币捐献属性刷新
    
62. 
    
63. [@开始捐献排名]
    
64. #IF
    
65. CHECKLEVELEX > 0
    
66. #ACT
    
67. SortHumVarToListEx HbJX-个人捐献 ..\QuestDiary\火币捐献\火币捐献排行数据.txt 1 ..\QuestDiary\火币捐献\火币捐献排行排名.txt 1
    
68. AddTextList ..\QuestDiary\火币捐献\火币捐献排行排名.txt 　:0
    
69. AddTextList ..\QuestDiary\火币捐献\火币捐献排行排名.txt 　:0
    
70. AddTextList ..\QuestDiary\火币捐献\火币捐献排行排名.txt 　:0
    
71. 
    
72. #IF
    
73. CHECKLEVELEX > 0
    
74. #ACT
    
75. GetListString ..\QuestDiary\火币捐献\火币捐献排行排名.txt 0 s90 N90
    
76. #IF
    
77. LARGE N90 0
    
78. #ACT
    
79. CALCVAR GLOBAL HbJX-捐献第1名 = <$STR(s90)>
    
80. CALCVAR GLOBAL HbJX-捐献第1数 = <$STR(N90)>
    
81. #ELSEACT
    
82. CALCVAR GLOBAL HbJX-捐献第1名 = 　
    
83. CALCVAR GLOBAL HbJX-捐献第1数 =
    
84. 
    
85. #IF
    
86. CHECKLEVELEX > 0
    
87. #ACT
    
88. GetListString ..\QuestDiary\火币捐献\火币捐献排行排名.txt 1 s90 N90
    
89. #IF
    
90. LARGE N90 0
    
91. #ACT
    
92. CALCVAR GLOBAL HbJX-捐献第2名 = <$STR(s90)>
    
93. CALCVAR GLOBAL HbJX-捐献第2数 = <$STR(N90)>
    
94. #ELSEACT
    
95. CALCVAR GLOBAL HbJX-捐献第2名 = 　
    
96. CALCVAR GLOBAL HbJX-捐献第2数 =
    
97. 
    
98. #IF
    
99. CHECKLEVELEX > 0
    
100. #ACT
     
101. GetListString ..\QuestDiary\火币捐献\火币捐献排行排名.txt 2 s90 N90
     
102. #IF
     
103. LARGE N90 0
     
104. #ACT
     
105. CALCVAR GLOBAL HbJX-捐献第3名 = <$STR(s90)>
     
106. CALCVAR GLOBAL HbJX-捐献第3数 = <$STR(N90)>
     
107. #ELSEACT
     
108. CALCVAR GLOBAL HbJX-捐献第3名 = 　
     
109. CALCVAR GLOBAL HbJX-捐献第3数 =
     
110. 
     
111. #if
     
112. CHECKVAR GLOBAL HbJX-捐献第1名 = <$USERNAME>
     
113. #act
     
114. MOV S$当前排名 第一名
     
115. BREAK
     
116. 
     
117. #if
     
118. CHECKVAR GLOBAL HbJX-捐献第2名 = <$USERNAME>
     
119. #act
     
120. MOV S$当前排名 第二名
     
121. BREAK
     
122. 
     
123. #if
     
124. CHECKVAR GLOBAL HbJX-捐献第3名 = <$USERNAME>
     
125. #act
     
126. MOV S$当前排名 第三名
     
127. BREAK
     
128. 
     
129. [@给于称号]
     
130. #IF
     
131. Not CHECKTITLE 西楚使者
     
132. #Act
     
133. CONFERTITLE 西楚使者
     
134. 
     
135. [@Wyjr01x]
     
136. #IF
     
137. CHECKUNDERWAR 沙巴克
     
138. CHECKVAR GLOBAL 领取次数 > 1
     
139. #ACT
     
140. MESSAGEBOX 攻城期间禁止下地图！
     
141. Break
     
142. 
     
143. #OR
     
144. CHECKVAR GLOBAL HbJX-捐献第1名 = <$USERNAME>
     
145. CHECKVAR GLOBAL HbJX-捐献第2名 = <$USERNAME>
     
146. CHECKVAR GLOBAL HbJX-捐献第3名 = <$USERNAME>
     
147. CHECKTITLE 西楚使者
     
148. #Act
     
149. Map Jxdt01x
     
150. SENDMSG 0 253 251 勇士{「<$USERNAME>」|254:0:1}闯入了{『<$MapTitle>』|250:0:1}开始传奇之旅!
     
151. Break
     
152. #ElseAct
     
153. MESSAGEBOX 你还未拥有任意一种称号，无法进入...
     
154. Break
     

复制代码

司徒游传奇脚本富豪捐献.txt (174 Bytes, 下载次数: 0, 售价: 200 司徒币)

2020-11-20 06:46 上传

点击文件名下载附件
富豪捐献脚本