[传奇脚本2] 传奇金币捐献脚本传奇架设

[复制链接]
      (@@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

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则