传奇金币捐献脚本

Gm论坛

(@@InPutInteger @@InPutString)
[@main]
　<怪兽军团入侵愈烈，国家连年征战，国库亏空。/fcolor=249>\
　<国王诏令天下，证集民间财物纳入国库，以备军需。/fcolor=249>\
　我奉王令，再此收缴<金币，金条，金砖/fcolor=250>等物上交国库。\
　作为对交纳财物最多的勇士，每周国王将会给予其<一件/fcolor=249>\
　<随机高级装备的奖励！/fcolor=249>,另外<9名分别得到随机惊喜奖！/fcolor=250>\
\ \
　<了解详情金币捐募说明/@捐募说明>\
　<我来捐募金币/@交纳金币01>　　　　　　　　　<我来捐募金条金砖[url=]/@jinzui>\[/url]
　<我来领奖/@领奖011>　<←上周上榜玩家领奖/fcolor=253>　<查看本周排行/@显示排行><←查看最新排步履态/fcolor=253>\
[@显示排行]
#act
#CALL [\金币捐募系统\显示本周.TXT] @显示本周
break
;----------------------------------------------------------------------
[@交纳金币01]
<留意：/fcolor=249>\
因为排行显示<单位为万/fcolor=250>，所以金币捐募\
都是以万来计算，您可以<起码1万进行捐募/fcolor=250>，排\
行则显示+1点也就是1万金币！假如你捐<一W以下/fcolor=249>\
系统默以为捐助<将不计入排行中/fcolor=249>，这点捐前要留意！\
捐募中的零头将被除去，最好<以万为整数捐募/fcolor=251>！\
\ \ \
<我明白了，我要进入金币捐募项/@交纳金币02>　　　　　　　　　　<离开[url=]/@exit>\[/url]
[@交纳金币02]
相信您是一位非常热血的勇士，无论你捐多少金币，\
你的足迹将永久留在我们玛法人民的心中，所以，也\
但愿勇士你能尽最大的能力来匡助他们！\
\ \
<我要马上捐募金币[url=]/@@InPutInteger1>\[/url]
\ \
<上一页/@交纳金币01>　　　　　　　　　　<离开[url=]/@exit>\[/url]
[@InPutInteger1]
#if
equal <$STR(N1)> 0
#SAY
操纵错误：您不能输入金币数为0\ \ \
<返回重新输入[url=]/@@InPutInteger1[/url]>
#act
break

#if
#say
<亲爱的勇士/fcolor=253><$USERNAME>：\
　　<您好！/fcolor=253>\
\ \
　　<您想捐募的金币数目为/fcolor=253>：<$STR(N1)>　个\ \ \ \
<按确定[url=]/@qdjx01[/url]><后捐募金币成功/fcolor=250>　　　　　　　　　　<离开[url=]/@exit>\[/url]
#act
break

[@qdjx01]
#if
checkgold <$STR(N1)>
#act
take 金币 <$STR(N1)>
DIV D3 <$STR(N1)> 10000
CALCVAR HUMAN 金币 + <$STR(D3)>
SAVEVAR HUMAN 金币 ..\QuestDiary\金币捐募系统\金币.txt
Gmexecute showeffect 80
Gmexecute showeffect 81
Gmexecute showeffect 82
Gmexecute showeffect 83
Gmexecute showeffect 84
Gmexecute showeffect 85
sendmsg 0 %s通过%D捐募了<$STR(D3)>万金币，感谢您的激动慷慨大方，我代表国王向你表示最真态的谢意，并且为勇士点起了英雄烟花！请记得关注最新排步履态，也许国王送的礼物有你一份哦！
MOV G431 1
MOV A431 <$USERNAME>
#CALL [\金币捐募系统\金币捐募触发.txt] @金币排行榜触发
#elsesay
对不起，你输入捐募金币的数目超过你身上所带的金币数目！\ \ \
所以，请您重新确认再捐募！
;----------------------------------------------------------------------
[@捐募说明]
<首先：/fcolor=249>大家可以在主菜单页面上看到二大项捐募方式供大家使用\
，第一，直接输入包中存放的金币来输入你要捐募的数目；第二\
，你可以直接用<金条/fcolor=249>，或者<金砖/fcolor=249>来输入数目进行捐募<其次，/fcolor=249>金币\
捐募的单位为<万/fcolor=249>，就是说你<1W/fcolor=251>以上可以显示,<一W/fcolor=251>以下捐募的就无\
法显示也无法计入排名中。这点大家一定要留意！最好每次捐的\
是整数，由于你所带的余数将不计入！<最后，/fcolor=249>每周排出一名捐募\
最多的玩家，<国王将随机送他一件顶级装备奖励,另外9名每人回/fcolor=250>\
<送金条一根!/fcolor=250>领奖之后排行清理,这样,新的一轮又将开始！\
<留意:元宝是买不到金条的,都靠自己打/fcolor=249>　<返回[url=]/@main[/url]>　　　　　<离开[url=]/@exit>\[/url]　　　　　

;----------------------------------------------------------------------
[@jinzui]
请选择你要交纳的类型：\
\ \
<金条[url=]/@@InPutInteger2[/url]>　　　　　　　　　　<金砖[url=]/@@InPutInteger3>\[/url]
\ \ \
<返回[url=]/@main[/url]>　　　　　　　　　　<离开[url=]/@exit>\[/url]

[@InPutInteger2]
#if
EQUAL N2 0
#SAY
你不能输入0，请仔细输入你的数目！
#ACT
break
#if
CHECKITEM 金条 <$STR(N2)>
#ACT
TAKE 金条 <$STR(N2)>
MUL D1 <$STR(N2)> 100
CALCVAR HUMAN 金币 + <$STR(D1)>
SAVEVAR HUMAN 金币 ..\QuestDiary\金币捐募系统\金币.txt
sendmsg 0 %s通过%D捐募了<$STR(D1)>万金币，将纳入国库，以备军需！
MOV G431 1
MOV A431 <$USERNAME>
#CALL [\金币捐募系统\金币捐募触发.txt] @金币排行榜触发
#elsesay
<对不起，你输入的金币数目超出你包中所带额度，请核对后再输入！/fcolor=249>\ \ \
<返回重新输入[url=]/@main[/url]>
;----------------------------------------------------------------------
[@InPutInteger3]
#if
EQUAL N3 0
#SAY
你不能输入0，请仔细输入你的数目！
#ACT
break
#if
CHECKITEM 金砖 <$STR(N3)>
#ACT
TAKE 金砖 <$STR(N3)>
MUL D2 <$STR(N3)> 500
CALCVAR HUMAN 金币 + <$STR(D2)>
SAVEVAR HUMAN 金币 ..\QuestDiary\金币捐募系统\金币.txt
sendmsg 0 %s通过%D捐募了<$STR(D2)>万金币，将纳入国库，以备军需！
MOV G431 1
MOV A431 <$USERNAME>
#CALL [\金币捐募系统\金币捐募触发.txt] @金币排行榜触发
#elsesay
<对不起，你输入的金币数目超出你包中所带额度，请核对后再输入！/fcolor=249>\ \ \
<返回重新输入[url=]/@main[/url]>
;----------------------------------------------------------------------
[@领奖011]
#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第1名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励1.txt S15
GOTO @领取周排行奖励1
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第2名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励2~6.txt S15
GOTO @领取周排行奖励2
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第3名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励2~6.txt S15
GOTO @领取周排行奖励3
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第4名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励2~10.txt S15
GOTO @领取周排行奖励4
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第5名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励2~6.txt S15
GOTO @领取周排行奖励5
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第6名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励2~6.txt S15
GOTO @领取周排行奖励6
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第7名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励7~10.txt S15
GOTO @领取周排行奖励7
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第8名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励7~10.txt S15
GOTO @领取周排行奖励8
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第9名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励7~10.txt S15
GOTO @领取周排行奖励9
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第10名.txt
#ACT
GetRandomName ..\QuestDiary\金币捐募系统\周奖励7~10.txt S15
GOTO @领取周排行奖励10
BREAK

#IF
#SAY
<领奖失败提示：/fcolor=249>：\
　　<$USERNAME>！\
　　<请察看以下几点原因：/fcolor=249>\
\ \
　　<1、您没有上榜/fcolor=250>\
　　<2、本周捐募的流动还没结束/fcolor=250>\
　　<3、您已领取过奖励/fcolor=250>\
\ \
<返回[url=]/@main[/url]>　　　　　　　　　　　　　　　<离开[url=]/@exit[/url]>
#ACT
BREAK
;----------------------------------------------------------------
[@领取周排行奖励1]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第1名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
;---------------------------------------------------------------------------------
[@领取周排行奖励2]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第2名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励3]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第3名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励4]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第4名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励5]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第5名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励6]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第6名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励7]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第7名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励8]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第8名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励9]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第9名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK
[@领取周排行奖励10]
#IF
CheckBagSize 1
#SAY
恭喜，你获得了<$STR(S15)>！
#ACT
GIVE <$STR(S15)> 1
SENDMSG 0 恭喜：%s金币捐募中成绩凸起，国王特送他随机装备一件：<$STR(S15)>！
CLEARNAMELIST ..\QuestDiary\金币捐募系统\上周获奖名单\第10名.txt
BREAK
#ELSESAY
对不起，请先清理你的包裹！再领取奖励！
#ELSEACT
BREAK

2308391

路过。支持围观。。。