传奇盛大的祈愿树脚本

(@openBless)

[@main]
　　有道是，冥冥中自有天意。云游道长云游四海，自幼得\
高人传授，深谙占卜之道，观星相而知天命。如今发现了这\
棵万年神树，国王下令将神树迁到中州来。\
　　万民只要有祈愿符，并将物品投掷到这棵祈愿树上，就\
可以获得祈愿树的祈福。\\
　　<向祈愿树祈福/@openBless>\
　　<了解祈愿树的传说/@解祈愿>\
　　<了解可祈愿物品/@解祈物>
[@解祈物]
　　世间万物都蕴涵各种灵力，但只有灵力充沛的物品才能\
用来向祈愿树祈福。\
　　各种高级装备(圣战级以上)、高级武器(无极类以上)、\
高级技能书、高级勋章，以及所有宝石都可以向祈愿树祈福\
当然一些商城道具也蕴涵大量灵力可以用于祈福。\
　　此外，所有绑定和固化的装备道具由于灵力被锁，所以\
均无法用于祈福。还有你可以将装备道具和祈愿符一起放上\
祈愿树下的物品格，\
　　<向祈愿树祈福/@openBless>
[@解祈愿]
　　上万年的风风雨雨，上万年的饱经沧桑，这棵老神树用\
它那孤单的臂膀，挡风遮雨，庇护这传世大陆上的人们。\
　　云游道长首先发现了这棵神树，惊叹于这棵神树的灵力\
并称其为“祈愿树”。在祈愿树的每一层，都一条龙着琳琅满目的\
物品。只要向树祈愿，更有几率获得祈福树上的物品。\\
　　<向祈愿树祈福/@openBless>
[@openBless]
#IF
CheckUserGap < 5
#ACT
SendBlessItemList ..\QuestDiary\祈愿树配置\
#ELSESAY
你离树太远了...\
\
<离开/@exit>
[@StartBless]
#IF
equal $PARAM(0) 0
CHECKVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\投高级物品.txt
#ACT
SetBlessPower 3
break
#IF
equal $PARAM(0) 0
CHECKVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\投中级物品.txt
#ACT
SetBlessPower 2
break
#IF
equal $PARAM(0) 0
CHECKVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\投低级物品.txt
#ACT
SetBlessPower 1
break
#IF
equal $PARAM(0) 1
CHECKVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\投高级物品.txt
#ACT
ADDVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\BlessItem3.txt
SENDMSG 10 %S向祈愿树许下愿望，并将<$ITEMINFO[$PARAM(1)].NAME>留在了祈愿树上，快去中州的祈愿树许下
你的愿望。
takem $PARAM(1)
takem $PARAM(2)
ReadRandomStr ..\QuestDiary\祈愿树配置\BlessItem3.txt S20
Give $Str(S20) 1
DELVARLIST $Str(S20) ..\QuestDiary\祈愿树配置\BlessItem3.txt
break
#IF
equal $PARAM(0) 1
CHECKVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\投中级物品.txt
#ACT
ADDVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\BlessItem2.txt
SENDMSG 10 %S向祈愿树许下愿望，并将<$ITEMINFO[$PARAM(1)].NAME>留在了祈愿树上，快去中州的祈愿树许下
你的愿望。
takem $PARAM(1)
takem $PARAM(2)
ReadRandomStr ..\QuestDiary\祈愿树配置\BlessItem2.txt S20
Give $Str(S20) 1
DELVARLIST $Str(S20) ..\QuestDiary\祈愿树配置\BlessItem2.txt
break
#IF
equal $PARAM(0) 1
CHECKVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\投低级物品.txt
#ACT
ADDVARLIST $ITEMINFO[$PARAM(1)].NAME ..\QuestDiary\祈愿树配置\BlessItem1.txt
SENDMSG 10 %S向祈愿树许下愿望，并将<$ITEMINFO[$PARAM(1)].NAME>留在了祈愿树上，快去中州的祈愿树许下
你的愿望。
takem $PARAM(1)
takem $PARAM(2)
ReadRandomStr ..\QuestDiary\祈愿树配置\BlessItem1.txt S20
Give $Str(S20) 1
DELVARLIST $Str(S20) ..\QuestDiary\祈愿树配置\BlessItem1.txt
break


论坛一条龙