传奇服务端发布许愿(2012/8/10)树脚本

[@main]
白雪皑皑，鹿铃霄霄，新年的雪花又一次铺满了大地。　\
每个人得心中都有梦想和愿望，快将你的愿望一条龙在我这里吧，　\
祝您心想事成！　\
<2010年/FCOLOR=58>开始，<每周/FCOLOR=58>将开取全服许愿大奖，这周奖品为<炎龙项链/FCOLOR=250>，\
只要你都来许愿，就有可能获得大奖，实现夙愿。　\
　\
<使用50元宝购买许愿灯笼/@买许愿灯笼>            <使用许愿灯笼一条龙上我的愿望/@一条龙上愿望>　\
<领取许愿大奖/@领取许愿奖>                      <查看许愿获奖玩家/@查许愿获奖玩家>　\
<好漂亮的树啊/@exit>\
[@领取许愿奖]
#if
equal A1 <$USERNAME>
#act
GOTO @许愿大奖玩家01
break
#elsesay
你不是全区全服获得许愿大奖玩家。\  \
<查看许愿获奖玩家/@查许愿获奖玩家>　\

[@许愿大奖玩家01]
#if
checknamelist ..\QuestDiary\\其他名单\许愿树\已领许愿大奖名单.txt
#act
break
#say
本周许愿大奖你已经领取过了。\
#elsesay
恭喜，你是本周获得全区全服许愿大奖第一名的玩家，请选择许愿奖励。\  \
<补天神石/@领取许愿大奖01>\  \
<返回/@main>\
[@领取许愿大奖01]
#if
random 1
#act
give 炎龙项链 1
sendmsg 0 恭喜：%s获得全区全服许愿大奖：炎龙项链，如你也想参加，请前往庄园许愿树处一条龙上你的愿望吧。
addnamelist ..\QuestDiary\\其他名单\许愿树\已领许愿大奖名单.txt
BREAK
CLOSE
[@买许愿灯笼]
#IF
checknamelist ..\QuestDiary\\其他名单\许愿树\许愿名单.txt
#SAY
你本周已经许过愿了，不能再购买许愿灯笼。\
#elseact
goto @检测购买灯笼名单
[@检测购买灯笼名单]
#IF
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
give 许愿灯笼 1
sendmsg 7 恭喜：你获得了：许愿灯笼
#CALL [\\祝福点\许愿灯笼祝福点.txt] @许愿灯笼获得祝福点
BREAK
CLOSE
#ELSESAY
你没有足够的元宝！\
[@一条龙上愿望]
#IF
checknamelist ..\QuestDiary\\其他名单\许愿树\许愿名单.txt
#SAY
你本周已经许过愿了。\
#elseact
goto @许愿检测名单
[@许愿检测名单]
#IF
checklevelex > 49
#act
goto @许愿检测等级
#elseSAY
只有等级50级的人物才能一条龙上愿望！\
[@许愿检测等级]
#IF
CheckItem 许愿灯笼 1
#act
Take 许愿灯笼 1
CHANGEEXP + 10000000
addnamelist ..\QuestDiary\\其他名单\许愿树\许愿名单.txt
sendmsg 7 恭喜：你获得了：10000000　经验
sendmsg 7 恭喜：你成功一条龙上许愿灯笼在许愿树上，每周将开取全服许愿大奖，祝你好运。
sendmsg 0 恭喜：<$USERNAME>成功一条龙上许愿灯笼在许愿树上，等待每周虎威许愿大奖的降临，大家为<$USERNAME>祝福。
BREAK
CLOSE
#elseSAY
只有携带着许愿灯笼的勇士才可以一条龙上愿望！\
[@领取许愿奖]
没有可领取的新年愿望大奖。\
[@查许愿获奖玩家]
本周获得许愿树愿望达成玩家:\ \
<许愿大奖/FCOLOR=249> : <$STR(A1)> \ \
<返回/@main>


论坛一条龙

突然觉得楼主说的很有道理，赞一个！

我就搞不明白了，看帖回帖能死人么，居然只有我这么认真的在回帖！

楼主病的不轻啊！

这么经典的话只有楼主能想到！

楼主的帖子提神醒脑啊！

突然觉得楼主说的很有道理，赞一个！

东方不败还是灭绝师太啊？

楼主的等级很高啊！

收藏了，怕楼主删了！