传世热砂_土之宝箱完整功能脚本添加技巧

[@main]

#IF
SMALL G50 1
#SAY
当前该功能没有开放，敬请关注！\\
<关闭/@exit>
#ACT
break
#ELSESAY
　　集天地之精华，传世大陆变幻出五行宝箱，开启宝箱就\
能探寻其中的宝物，而在每个宝箱的箱底都藏有一件镇箱之\
宝，请选择你要开启的宝箱，探寻其中的奇珍异宝！\
　　<color=green 五个宝箱中，将有一个宝箱的镇箱之宝是四大神器。>\
　　注：当天领取昨天的镇箱之宝，逾期未领视为自动放弃\
领奖要求：单个宝箱探宝次数最多且达到300次者，方能领\
取该宝箱的镇箱之宝。\
　　<开启土之宝箱/@开启土之宝箱>　　<查看今日排名/@今日排名>\
　　<查询昨日排名/@昨日排名>　　<领取昨日宝物/@领取昨日宝物>

[@领取昨日宝物]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\五行土奖名单.txt
#ELSESAY
　　您不是昨日探寻土之宝箱次数最多的勇士，无法获得压\
箱底宝物。\\
　　<离开/@exit>
#ELSEACT
break
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出空位！
break
#IF
CHECKVAR GLOBAL 五土01 = $USERNAME
#ELSESAY
很遗憾，你没有即时领取奖励，领奖资格过期失效了。\\
<离开/@exit>
#ELSEACT
DELNAMELIST ..\QuestDiary\数据文件\文本数据\五行土奖名单.txt
break
#IF
EQUAL G28 4
#ACT
MOVR P3 4
GOTO @奖励神器了
break
#ELSEACT
ReadRandomStr ..\QuestDiary\数据文件\文本数据\五行魔饰神饰.txt S7
DELNAMELIST ..\QuestDiary\数据文件\文本数据\五行土奖名单.txt
GIVE $STR(S7) 1
SENDMSG 5 恭喜你幸运的获得土之宝箱镇箱之宝：<$STR(S7)>
SENDMSG 10 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：<$STR(S7)>
break
#ELSESAY
恭喜你成为昨日开启土之宝箱最多的人，获得土之宝箱昨\
天镇箱之宝<color=green 随机魔饰神饰>奖励。\\
你最终获得了：<$STR(S7)>\\
<真是太高兴了/@exit>

[@奖励神器了]
#IF
EQUAL G28 4
EQUAL P3 0
#SAY
恭喜你成为昨日开启土之宝箱最多的人，获得土之宝箱昨\
天镇箱之宝<color=green 随机四大神器>奖励。\\
你最终获得了：<color=green 赤明天帝>\\
<真是太高兴了/@exit>
#ACT
GIVE 赤明天帝 1
DELNAMELIST ..\QuestDiary\数据文件\文本数据\五行土奖名单.txt
SENDMSG 5 恭喜你幸运的获得土之宝箱镇箱之宝：赤明天帝
SENDMSG 10 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：赤明天帝
SENDMSG 15 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：赤明天帝
break
#IF
EQUAL G28 4
EQUAL P3 1
#SAY
恭喜你成为昨日开启土之宝箱最多的人，获得土之宝箱昨\
天镇箱之宝<color=green 随机四大神器>奖励。\\
你最终获得了：<color=green 耀阳圣尊>\\
<真是太高兴了/@exit>
#ACT
GIVE 耀阳圣尊 1
DELNAMELIST ..\QuestDiary\数据文件\文本数据\五行土奖名单.txt
SENDMSG 5 恭喜你幸运的获得土之宝箱镇箱之宝：耀阳圣尊
SENDMSG 10 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：耀阳圣尊
SENDMSG 15 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：耀阳圣尊
break
#IF
EQUAL G28 4
EQUAL P3 2
#SAY
恭喜你成为昨日开启土之宝箱最多的人，获得土之宝箱昨\
天镇箱之宝<color=green 随机四大神器>奖励。\\
你最终获得了：<color=green 紫月圣君>\\
<真是太高兴了/@exit>
#ACT
GIVE 紫月圣君 1
DELNAMELIST ..\QuestDiary\数据文件\文本数据\五行土奖名单.txt
SENDMSG 5 恭喜你幸运的获得土之宝箱镇箱之宝：紫月圣君
SENDMSG 10 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：紫月圣君
SENDMSG 15 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：紫月圣君
break
#IF
EQUAL G28 4
LARGE P3 2
#SAY
恭喜你成为昨日开启土之宝箱最多的人，获得土之宝箱昨\
天镇箱之宝<color=green 随机四大神器>奖励。\\
你最终获得了：<color=green 碧海天王>\\
<真是太高兴了/@exit>
#ACT
GIVE 碧海天王 1
DELNAMELIST ..\QuestDiary\数据文件\文本数据\五行土奖名单.txt
SENDMSG 5 恭喜你幸运的获得土之宝箱镇箱之宝：碧海天王
SENDMSG 10 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：碧海天王
SENDMSG 15 恭喜<$USERNAME>昨天开启土之宝箱次数最多且超过300次，获得土之宝箱镇箱之宝：碧海天王
break



[@昨日排名]
#IF
EQUAL G28 4
#SAY
　　昨天土之宝箱的镇箱之宝：<color=green 四大神器>随机一件\
　　　　　　　　<color=green 土之宝箱昨日排名>\
<color=green 名次　　　角色名　　　　　　探宝次数　　　　奖励>\
<$GLOBAL(五土02)>
<关闭/@exit>
#ELSESAY
　　昨天土之宝箱的镇箱之宝：<color=green 魔饰神饰>随机一件\
　　　　　　　　<color=green 土之宝箱昨日排名>\
<color=green 名次　　　角色名　　　　　　探宝次数　　　　奖励>\
<$GLOBAL(五土02)>
<关闭/@exit>

[@开启土之宝箱]
　　每天0：00-24：00，只要一把神秘钥匙或两把赤金钥匙\
或四把白银钥匙就能开启一次五行宝箱探寻其中的宝物。五\
行宝箱共分：金、木、水、火、土五种，你可以根据自己的\
喜好开启相应的宝箱。<color=green 每个宝箱都藏有一件镇箱之宝，但只>\
<color=green 有一个宝箱的镇箱之宝是四大神器>，至于每个宝箱的镇箱之\
宝是什么，只有第二天才会揭晓。每个宝箱的镇箱之宝只有\
当天该宝箱探宝次数最多者才能获得。\
　　<我要探寻土之宝箱/@探寻土>\
　　<换其他宝箱/@exit>

[@探寻土]
#IF
CHECKBAGSIZE 1
#ACT
MOV P50 0
MOV P5 0
#ELSESAY
　　你的包裹空间不足，回去整理一下再来开启宝箱吧！\\
　　<谢谢你的提醒。/@exit>
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
checkitem 神秘钥匙 1
#ACT
TAKE 神秘钥匙 1
MOV P50 1
#IF
checkitem 赤金钥匙 2
#ACT
TAKE 赤金钥匙 2
MOV P50 1
#IF
checkitem 白银钥匙 4
#ACT
TAKE 白银钥匙 4
MOV P50 1
#IF
CHECKVAR HUMAN 日23 = $DATAS
#ELSEACT
CALCVAR HUMAN 金日 = 0
SAVEVAR HUMAN 金日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 木日 = 0
SAVEVAR HUMAN 木日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 水日 = 0
SAVEVAR HUMAN 水日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 火日 = 0
SAVEVAR HUMAN 火日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 土日 = 0
SAVEVAR HUMAN 土日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 日23 = $DATAS
SAVEVAR HUMAN 日23 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
LARGE P50 0
#ACT
CALCVAR HUMAN 土日 + 1
SAVEVAR HUMAN 土日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 土总 + 1
SAVEVAR HUMAN 土总 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
MOV S0 <COLOR=GREEN[]
INC S0 $HUMAN(土日)
INC S0 >
#ELSESAY
　　你没有钥匙或者你的钥匙数量不够。\\
　　<谢谢你的提醒。/@exit>
#ELSEACT
break
#IF
RANDOM 69
#ACT
GIVE 铜矿 1
UpgradeUserItemEx $PARAM(0) 13 = 50000
MOV S1 <COLOR=GREEN[]品质50铜矿>
MOV S3 品质50铜矿
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 68
#ACT
GIVE 铁矿 1
UpgradeUserItemEx $PARAM(0) 13 = 50000
MOV S1 <COLOR=GREEN[]品质50铁矿>
MOV S3 品质50铁矿
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 67
#ACT
GIVE 银矿 1
UpgradeUserItemEx $PARAM(0) 13 = 50000
MOV S1 <COLOR=GREEN[]品质50银矿>
MOV S3 品质50银矿
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 66
#ACT
GIVE 金矿 1
UpgradeUserItemEx $PARAM(0) 13 = 50000
MOV S1 <COLOR=GREEN[]品质50金矿>
MOV S3 品质50金矿
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 55
#ACT
GIVE 紫心石(小) 1
MOV S1 <COLOR=GREEN[]紫心石(小)>
MOV S3 紫心石(小)
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 54
#ACT
GIVE 青木石(小) 1
MOV S1 <COLOR=GREEN[]青木石(小)>
MOV S3 青木石(小)
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 33
#ACT
GIVE 水云石(小) 1
MOV S1 <COLOR=GREEN[]水云石(小)>
MOV S3 水云石(小)
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 32
#ACT
GIVE 冰月石(小) 1
MOV S1 <COLOR=GREEN[]冰月石(小)>
MOV S3 冰月石(小)
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 31
#ACT
GIVE 火晶石(小) 1
MOV S1 <COLOR=GREEN[]火晶石(小)>
MOV S3 火晶石(小)
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 20
#ACT
GIVE 经验 1500000
MOV S1 <COLOR=GREEN[]1500000经验>
MOV S3 1500000经验
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 16
#ACT
GIVE 强化技能灵丹 1
MOV S1 <COLOR=GREEN[]100点强化技能灵丹>
MOV S3 100点强化技能灵丹
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 20
#ACT
GIVE 传世天书 1
MOV S1 <COLOR=GREEN[]传世天书>
MOV S3 传世天书
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 18
#ACT
GIVE 圣灵精华 1
UpgradeUserItemEx $PARAM(0) 13 = 6
MOV S1 <COLOR=GREEN[]6个圣灵精华>
MOV S3 6个圣灵精华
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 16
#ACT
GIVE 圣灵精华 1
UpgradeUserItemEx $PARAM(0) 13 = 4
MOV S1 <COLOR=GREEN[]4个圣灵精华>
MOV S3 4个圣灵精华
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 15
#ACT
GIVE 蓝宝 1
MOV S1 <COLOR=GREEN[]蓝宝>
MOV S3 蓝宝
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 14
#ACT
GIVE 红钻 1
MOV S1 <COLOR=GREEN[]红钻>
MOV S3 红钻
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 13
#ACT
GIVE 金玉 1
MOV S1 <COLOR=GREEN[]金玉>
MOV S3 金玉
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 11
#ACT
GIVE 宝石箱子 1
MOV S1 <COLOR=GREEN[]宝石箱子>
GOTO @提示信息
break
#IF
RANDOM 10
#ACT
GIVE 7级宠物强化卷 1
MOV S1 <COLOR=GREEN[]7级宠物强化卷>
GOTO @提示信息
break
#IF
RANDOM 8
#ACT
GIVE 熔炼宝箱 1
MOV S1 <COLOR=GREEN[]熔炼宝箱>
GOTO @提示信息
break
#IF
RANDOM 5
#ACT
GIVE 经验 800000
MOV S1 <COLOR=GREEN[]800000经验>
MOV S3 800000经验
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 3
#ACT
GIVE 经验 600000
MOV S1 <COLOR=GREEN[]600000经验>
MOV S3 600000经验
MOV P5 1
GOTO @提示信息
break
#IF
RANDOM 1
#ACT
GIVE 经验 500000
MOV S1 <COLOR=GREEN[]500000经验>
GOTO @提示信息
break


[@提示信息]
#IF
LARGE P5 0
#ACT
GOTO @宝箱排序
SENDMSG 10 恭喜<$USERNAME>在开启土之宝箱时，获得<$STR(S3)>的奖励，现在就寻找土之宝箱开启神秘礼物!
#SAY
　　今天已经探寻土之宝箱：<$STR(S0)>次。\
　　恭喜你开启了土之宝箱，获得了<$STR(S1)>。\\
　　<继续开启土之宝箱/@探寻土>\
　　<谢谢/@exit>
#ELSESAY
　　今天已经探寻土之宝箱：<$STR(S0)>次。\
　　恭喜你开启了土之宝箱，获得了<$STR(S1)>。\\
　　<继续开启土之宝箱/@探寻土>\
　　<谢谢/@exit>
#ELSEACT
GOTO @宝箱排序


[@今日排名]
#IF
CHECKVAR HUMAN 日23 = $DATAS
#ELSEACT
CALCVAR HUMAN 金日 = 0
SAVEVAR HUMAN 金日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 木日 = 0
SAVEVAR HUMAN 木日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 水日 = 0
SAVEVAR HUMAN 水日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 火日 = 0
SAVEVAR HUMAN 火日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 土日 = 0
SAVEVAR HUMAN 土日 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 日23 = $DATAS
SAVEVAR HUMAN 日23 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
MOV S0 <COLOR=GREEN[]
INC S0 $HUMAN(土日)
INC S0 >
MOV S61
MOV S62
MOV S63
MOV S64
MOV S65
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVAR GLOBAL 土排C1 > 0
#ACT
MOV S61 第[]1名　　
INC S61 $GLOBAL(土排A1)
INC S61 \
#IF
CHECKVAR GLOBAL 土排C2 > 0
#ACT
MOV S62 第[]2名　　
INC S62 $GLOBAL(土排A2)
INC S62 \
#IF
CHECKVAR GLOBAL 土排C3 > 0
#ACT
MOV S63 第[]3名　　
INC S63 $GLOBAL(土排A3)
INC S63 \
#IF
CHECKVAR GLOBAL 土排C4 > 0
#ACT
MOV S64 第[]4名　　
INC S64 $GLOBAL(土排A4)
INC S64 \
#IF
CHECKVAR GLOBAL 土排C5 > 0
#ACT
MOV S65 第[]5名　　
INC S65 $GLOBAL(土排A5)
INC S65 \
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVAR GLOBAL 土排C1 > 0
#SAY
你今日已探寻土之宝箱：<$STR(S0)>次\
　　　　　　　　<color=green 土之宝箱今日排名>\
<color=green 名次　　　角色名　　　　　　探宝次数　　　　奖励>\
<$STR(S61)><$STR(S62)><$STR(S63)><$STR(S64)><$STR(S65)>
<关闭/@exit>
#ELSESAY
　　目前暂无信息，请稍后查看。\\
　　<离开/@exit>

[@宝箱排序]
#IF
CHECKVAR GLOBAL 土排B1 = $USERNAME
#ACT
CALCVAR GLOBAL 土排A1 =
CALCVAR GLOBAL 土排B1 =
CALCVAR GLOBAL 土排C1 = 0
#IF
CHECKVAR GLOBAL 土排B2 = $USERNAME
#ACT
CALCVAR GLOBAL 土排A2 =
CALCVAR GLOBAL 土排B2 =
CALCVAR GLOBAL 土排C2 = 0
#IF
CHECKVAR GLOBAL 土排B3 = $USERNAME
#ACT
CALCVAR GLOBAL 土排A3 =
CALCVAR GLOBAL 土排B3 =
CALCVAR GLOBAL 土排C3 = 0
#IF
CHECKVAR GLOBAL 土排B4 = $USERNAME
#ACT
CALCVAR GLOBAL 土排A4 =
CALCVAR GLOBAL 土排B4 =
CALCVAR GLOBAL 土排C4 = 0
#IF
CHECKVAR GLOBAL 土排B5 = $USERNAME
#ACT
CALCVAR GLOBAL 土排A5 =
CALCVAR GLOBAL 土排B5 =
CALCVAR GLOBAL 土排C5 = 0
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVAR HUMAN 土日 > $GLOBAL(土排C5)
#ACT
MOV S71 $GLOBAL(土排A1)
MOV S72 $GLOBAL(土排A2)
MOV S73 $GLOBAL(土排A3)
MOV S74 $GLOBAL(土排A4)
MOV S75 $GLOBAL(土排A5)
MOV S76 $USERNAME
FillText S76 18
INC S76 $HUMAN(土日)
MOV S81 $GLOBAL(土排B1)
MOV S82 $GLOBAL(土排B2)
MOV S83 $GLOBAL(土排B3)
MOV S84 $GLOBAL(土排B4)
MOV S85 $GLOBAL(土排B5)
MOV S86 $USERNAME
MOV P71 $GLOBAL(土排C1)
MOV P72 $GLOBAL(土排C2)
MOV P73 $GLOBAL(土排C3)
MOV P74 $GLOBAL(土排C4)
MOV P75 $GLOBAL(土排C5)
MOV P76 $HUMAN(土日)
SortAry S71 S81 P71 6 1
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR GLOBAL 土排A1 = $STR(S71)
CALCVAR GLOBAL 土排A2 = $STR(S72)
CALCVAR GLOBAL 土排A3 = $STR(S73)
CALCVAR GLOBAL 土排A4 = $STR(S74)
CALCVAR GLOBAL 土排A5 = $STR(S75)
CALCVAR GLOBAL 土排B1 = $STR(S81)
CALCVAR GLOBAL 土排B2 = $STR(S82)
CALCVAR GLOBAL 土排B3 = $STR(S83)
CALCVAR GLOBAL 土排B4 = $STR(S84)
CALCVAR GLOBAL 土排B5 = $STR(S85)
CALCVAR GLOBAL 土排C1 = $STR(P71)
CALCVAR GLOBAL 土排C2 = $STR(P72)
CALCVAR GLOBAL 土排C3 = $STR(P73)
CALCVAR GLOBAL 土排C4 = $STR(P74)
CALCVAR GLOBAL 土排C5 = $STR(P75)
SAVEVAR GLOBAL 土排A1 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排A2 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排A3 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排A4 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排A5 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排B1 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排B2 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排B3 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排B4 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排B5 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排C1 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排C2 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排C3 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排C4 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
SAVEVAR GLOBAL 土排C5 ..\QUESTDIARY\数据文件\全局变量\全局变量.txt
break

无回帖，不论坛，这才是人道。

楼主加油，我们都看好你哦。

强烈支持楼主ing……

无回帖，不论坛，这才是人道。

感恩无私的分享与奉献

无回帖，不论坛，这才是人道。

淡定，淡定，淡定……

真是难得给力的帖子啊。

楼主加油，我们都看好你哦。