传奇游戏门户为玩家提供最新迷失第一季俸禄捐献开区信息,找迷失第一季俸禄捐献何必东奔西走,最新迷失第一季俸禄捐献发布网应有尽有.

[@main]
\
<【<$USERNAME>】/SCOLOR=222><您好,欢迎您使用俸禄捐献系统!/SCOLOR=251>\
第一名: <奖励:攻道魔80-80  体力增加10%  物理.魔法伤害减少10%/SCOLOR=241>\
第二名: <奖励:攻道魔50-50  体力增加 5%  物理.魔法伤害减少 5%/SCOLOR=046>\
第三名: <奖励:攻道魔40-40  体力增加 4%  物理.魔法伤害减少 4%/SCOLOR=249>\
第四名: <奖励:攻道魔30-30  体力增加 3%  物理.魔法伤害减少 3%/SCOLOR=253>\
第五名: <奖励:攻道魔20-20  体力增加 2%  物理.魔法伤害减少 2%/SCOLOR=132>\
第六名: <奖励:攻道魔10-10  体力增加 1%  物理.魔法伤害减少 1%/SCOLOR=254>   \
\     <温馨提示：排行榜每次合区清理捐献排名！/SCOLOR=254>\
\　  　  <捐献说明/@hlep>         <捐款排名/@元宝捐献>         <我要捐款/@@InPutInteger88>\

[@hlep]
\ \
\   <系统说明:> <俸禄捐献系统可以提升您的知名度。/SCOLOR=254>
\   <只要您排到前六名就可以获得丰富奖励。/SCOLOR=254>
\   <注意事项:><请不要盲目捐献.合区不保留捐献排行!/SCOLOR=254>
\   <捐献必须高于5000个元宝才可以获得俸禄。> 
\ \
\   <合区后清理捐献排行!/SCOLOR=250> 
\                                     <返回首页/@main>



[@元宝捐献]
#if
random 1
#act
GOTO @开始捐献排名
MOV S$显示第1名 　<$GLOBAL(YBJX-捐献第1名)>
SetStringBlank S$显示第1名 18 1
MOV S$显示第2名 　<$GLOBAL(YBJX-捐献第2名)>
SetStringBlank S$显示第2名 18 1
MOV S$显示第3名 　<$GLOBAL(YBJX-捐献第3名)>
SetStringBlank S$显示第3名 18 1
MOV S$显示第4名 　<$GLOBAL(YBJX-捐献第4名)>
SetStringBlank S$显示第4名 18 1
MOV S$显示第5名 　<$GLOBAL(YBJX-捐献第5名)>
SetStringBlank S$显示第5名 18 1

#SAY
\
<捐献榜第①名/SCOLOR=89>:<『/SCOLOR=251><$STR(S$显示第1名)><』/SCOLOR=251> <捐献元宝:/SCOLOR=222><≮/SCOLOR=180>{<$GLOBAL(YBJX-捐献第1数)>/SCOLOR=69}<≯/SCOLOR=180>\
<捐献榜第②名/SCOLOR=89>:<『/SCOLOR=251><$STR(S$显示第2名)><』/SCOLOR=251> <捐献元宝:/SCOLOR=222><≮/SCOLOR=180>{<$GLOBAL(YBJX-捐献第2数)>/SCOLOR=69}<≯/SCOLOR=180>\
<捐献榜第③名/SCOLOR=89>:<『/SCOLOR=251><$STR(S$显示第3名)><』/SCOLOR=251> <捐献元宝:/SCOLOR=222><≮/SCOLOR=180>{<$GLOBAL(YBJX-捐献第3数)>/SCOLOR=69}<≯/SCOLOR=180>\
<捐献榜第④名/SCOLOR=89>:<『/SCOLOR=251><$STR(S$显示第4名)><』/SCOLOR=251> <捐献元宝:/SCOLOR=222><≮/SCOLOR=180>{<$GLOBAL(YBJX-捐献第4数)>/SCOLOR=69}<≯/SCOLOR=180>\
<捐献榜第⑤名/SCOLOR=89>:<『/SCOLOR=251><$STR(S$显示第5名)><』/SCOLOR=251> <捐献元宝:/SCOLOR=222><≮/SCOLOR=180>{<$GLOBAL(YBJX-捐献第5数)>/SCOLOR=69}<≯/SCOLOR=180>\
<捐献榜第⑥名/SCOLOR=89>:　　　　　　　　<查询自己是否在排行/@查看是否排名>\
\
<【个人捐献总额】：/SCOLOR=254><$HUMAN(YBJX-个人捐献)>元宝            <开始捐献/@@InPutInteger88>





[@查看是否排名]
#if
CHECKVAR HUMAN YBJX-个人捐献 < 5000
#ACT
messagebox 很遗憾！你不在元宝捐献排名6名之内！
#ELSEACT
messagebox 恭喜你！你在元宝捐献排名6名之内！



[@InPutInteger88]
#if
small n88 5000
#ACT
MESSAGEBOX ぐ【失败】：最少捐献5000个元宝!
BREAK

#IF
CHECKLEVELEX > 0
#ACT
MOV P61 <$HUMAN(YBJX-个人捐献)>
INC P61 <$STR(N88)>

#IF
LARGE P61 0
#ELSEACT
messagebox 你当前所捐献的金额,累计总额里后超出系统上限,请重新输入！\(最高累计金额21.47亿)
BREAK

#IF
CHECKGAMEGOLD > <$STR(N88)>
#ACT
GAMEGOLD - <$STR(N88)>
CALCVAR HUMAN YBJX-个人捐献 + <$STR(N88)>
SAVEVAR HUMAN YBJX-个人捐献 ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行数据.txt
GOTO @开始捐献排名
GuildNoticeMsg 251 0 {ぐ〖游戏提示〗:|253:0:1}{玩家|250:0:1}{『<$USERNAME>』|254:0:1}使用『<$STR(N88)>』元宝进行了称号荣誉捐献。
GOTO @元宝捐献
GMEXECUTE 开始提问 @runmang.com元宝捐献属性刷新
break

#ELSEACT
messagebox 你没有<$STR(N88)>元宝,拿什么捐献？
BREAK



[@开始捐献排名]
#IF
CHECKLEVELEX > 0
#ACT
SortHumVarToListEx YBJX-个人捐献 ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行数据.txt 1 ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 1
AddTextList ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 　:0
AddTextList ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 　:0
AddTextList ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 　:0
AddTextList ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 　:0
AddTextList ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 　:0

#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 0 s90 N90


#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第1名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第1数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第1名 =
CALCVAR GLOBAL YBJX-捐献第1数 = 
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 1 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第2名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第2数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第2名 =
CALCVAR GLOBAL YBJX-捐献第2数 = 
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 2 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第3名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第3数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第3名 =
CALCVAR GLOBAL YBJX-捐献第3数 = 
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 3 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第4名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第4数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第4名 =
CALCVAR GLOBAL YBJX-捐献第4数 = 
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\润芒网络QQ36742300_数据文件\runmang.com元宝捐献排行排名.txt 4 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第5名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第5数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第5名 =
CALCVAR GLOBAL YBJX-捐献第5数 = 

#if
CHECKVAR GLOBAL YBJX-捐献第1名 = <$USERNAME>
#act
MOV S$当前排名 第一名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第2名 = <$USERNAME>
#act
MOV S$当前排名 第二名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第3名 = <$USERNAME>
#act
MOV S$当前排名 第三名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第4名 = <$USERNAME>
#act
MOV S$当前排名 第四名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第5名 = <$USERNAME>
#act
MOV S$当前排名 第五名
#ELSEACT
MOV S$当前排名 第六名

本文固定链接: http://haosf.us/haosifu/71.html