传奇藏经阁秘室脚本

()
%100
[@main]
#IF
#ACT
#SAY
这是1号秘室，我需要1个<古籍残片(小)>。　\
在完成我的要求之后，你可以掷骰子前进。　\
10个古籍残片(小)可以解读成一个古籍残片(中)，　\
5个古籍残片(中)可以拼接成1个古籍残片(大)。　\
<解读古籍残片(小)/@解读小>                <拼接古籍残片(中)/@拼接中>  　\
　\
<使用一张灵符释放圣兽/@释放圣兽>            <给予古籍残片开始掷骰子/@掷骰子>  　\
　\
<离开藏经阁/@回书店>

[@释放圣兽]
#IF
CheckRangeMonCount <$MAP> 10 6 20 > 0
#ACT
CLEARDELAYGOTO
break
#SAY
秘室守护兽已经出现在此秘室中，请你消灭他。\
在它身上获得更多古籍残片进入更多的秘室。\
#IF
CHECKGAMEGIRD > 0
#ACT
GAMEGIRD - 1
movr d0 6
inc d0 1
MOV D1 0
MOV D2 0
playdice 1 @出怪
#SAY
秘室守护兽已出现在该秘室中。\
#ELSESAY
你已经没有灵符了，去找灵符仙子或在铺兑换些吧。\
[@出怪]
#IF
CheckLevelEx > 0
#ACT
mov D3 0
inc D3 <$STR(D0)>
inc D3 <$STR(D1)>
inc D3 <$STR(D2)>
Param1 <$MAP>
Param2 10
Param3 6
MonGen 秘室守护兽 1 0
#SAY
骰子的点数是 <$STR(D3)> ，\
秘室守护兽已出现在该秘室。\
[@解读小]
#IF
CHECKITEM 古籍残片(小) 10
#ACT
TAKE 古籍残片(小) 10
give 古籍残片(中) 1
#SAY
解读成功
#ELSESAY
10个古籍残片(小)可以解读成一个古籍残片(中),\
如果你已经带来了，就交给我\

[@拼接中]
#IF
CHECKITEM 古籍残片(中) 5
#ACT
TAKE 古籍残片(中) 5
give 古籍残片(大) 1
#SAY
解读成功
#ELSESAY
5个古籍残片(中)可以解读成一个古籍残片(大),\
如果你已经带来了，就交给我\
[@回书店]
#IF
#ACT
map 0161
[@掷骰子]
#IF
CHECKITEM 古籍残片(小) 1
#ACT
TAKE 古籍残片(小) 1
mov p9 1
movr d0 6
inc d0 1
playdice 1 @cube
#SAY
正在投骰子
#ELSESAY
你好象没有足够的古籍残片(小)啊\
<退出[url=]/@Quit[/url]>
#ELSEACT
mov p9 9
[@Quit]
#IF
#ACT
map B0
[@cube]
#IF
#SAY
你投出的骰子的点数为:<$STR(D0)>\
你可以前进<$STR(D0)>个房间\  \
<移动[url=]/@next_cube>\[/url]
[@next_cube]
#IF
equal d0 1
#ACT
goto @posi1
break
#IF
equal d0 2
#ACT
goto @posi2
break
#IF
equal d0 3
#ACT
goto @posi3
break
#IF
equal d0 4
#ACT
goto @posi4
break
#IF
equal d0 5
#ACT
goto @posi5
break
#IF
equal d0 6
#ACT
goto @posi6
break
[@Posi1]
#IF
#ACT
batchDelay 1
addbatch MS02
SENDMSG 7 你投出的骰子的点数为:<$STR(D0)>
SENDMSG 7 你可以前进<$STR(D0)>个房间
batchmove
[@Posi2]
#IF
#ACT
batchDelay 1
addbatch MS02
addbatch MS03
SENDMSG 7 你投出的骰子的点数为:<$STR(D0)>
SENDMSG 7 你可以前进<$STR(D0)>个房间
batchmove
[@Posi3]
#IF
#ACT
batchDelay 1
addbatch MS02
addbatch MS03
addbatch MS04
SENDMSG 7 你投出的骰子的点数为:<$STR(D0)>
SENDMSG 7 你可以前进<$STR(D0)>个房间
batchmove
[@Posi4]
#IF
#ACT
batchDelay 1
addbatch MS02
addbatch MS03
addbatch MS04
addbatch MS05
SENDMSG 7 你投出的骰子的点数为:<$STR(D0)>
SENDMSG 7 你可以前进<$STR(D0)>个房间
batchmove
[@Posi5]
#IF
#ACT
batchDelay 1
addbatch MS02
addbatch MS03
addbatch MS04
addbatch MS05
addbatch MS06
SENDMSG 7 你投出的骰子的点数为:<$STR(D0)>
SENDMSG 7 你可以前进<$STR(D0)>个房间
batchmove
[@Posi6]
#IF
#ACT
batchDelay 1
addbatch MS02
addbatch MS03
addbatch MS04
addbatch MS05
addbatch MS06
addbatch MS07
SENDMSG 7 你投出的骰子的点数为:<$STR(D0)>
SENDMSG 7 你可以前进<$STR(D0)>个房间
batchmove