迷失第一季传奇俸禄捐献
传奇游戏门户为玩家提供最新迷失第一季俸禄捐献开区信息,找迷失第一季俸禄捐献何必东奔西走,最新迷失第一季俸禄捐献发布网应有尽有.
[@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$当前排名 第六名
