[@main]
　　我是通灵塔使者，这里将发布关于通灵塔的各种活动，\
欢迎随时前来查看了解。\\
　　<通灵七星珠许愿/@七星珠许愿>\
　　<离开/@eixt>

[@七星珠许愿]
　　通灵宝珠共有七颗，只要通灵塔处于开启状态，就能从\
珍宝阁中获取通灵宝珠。如果连续 7天通灵塔持续运作，那\
就能从珍宝阁中获得通灵一星珠至通灵七星珠，集齐 7颗即\
有机会幻化为圣王精魄。\
　　<我只有单颗通灵宝珠/@单颗通灵宝珠>\
　　<我集齐了7颗通灵宝珠/@7颗通灵宝珠>\
　　<离开/@eixt>

[@单颗通灵宝珠]
#ACT
checkitembox 请放入通灵宝珠 1 1
break
#SAY
　　没有集齐 7颗通灵宝珠是无法幻化成为圣王精魄的，不\
过要是你愿意给我的话，我也可以拿一些东西和你交换。

[@getboxitem1]
#IF
CHECKVARLIST $CHECKBOXITEM.NAME ..\QuestDiary\数据文件\文本数据\通灵宝珠.txt
#ACT
ReadRandomStr ..\QuestDiary\数据文件\文本数据\单颗通灵宝珠奖励.txt S16
give $STR(S16) 1
takeid $CHECKBOXITEM.ItemExD
MOV P4 9
INC P4 5
MUL P4 10000
GIVE 经验 $STR(P4)
break
#ELSESAY
　　你是不是眼花了这不是通灵宝珠哦。\\
　　<我再去找找/@exit>

[@7颗通灵宝珠]
#IF
CHECKITEM 通灵一星珠 1
CHECKITEM 通灵二星珠 1
CHECKITEM 通灵三星珠 1
CHECKITEM 通灵四星珠 1
CHECKITEM 通灵五星珠 1
CHECKITEM 通灵六星珠 1
CHECKITEM 通灵七星珠 1
#ACT
TAKE 通灵一星珠 1
TAKE 通灵二星珠 1
TAKE 通灵三星珠 1
TAKE 通灵四星珠 1
TAKE 通灵五星珠 1
TAKE 通灵六星珠 1
TAKE 通灵七星珠 1
GIVE 圣王精魄 1
ReadRandomStr ..\QuestDiary\数据文件\文本数据\全套通灵宝珠奖励.tx S16
give $STR(S16) 1
MOV P4 25
INC P4 30
MUL P4 10000
GIVE 经验 $STR(P4)
break
#ELSESAY
　　你没有集齐完整的七颗通灵宝珠哦。\\
　　<我再去找找/@exit>