生死门看护脚本

[@MAIN]
哎，小兄弟，你怎么到这里来了啊！！这里可是很危险的啊\
传说这里有四个门，只有一个人可以到达生门，去享受那里\
的宝物，其他的全部是死门，误闯者死，没有一个会活着出来\
不过我知道怎么直接去生门，不过鄙人有个嗜好就是赌\
只要你选择的点数和你掷的骰子一样，那你就可以进入生门\
可以用元宝换取使用骰子的机会\
一个元宝换一次机会，二个元宝换三次机会，三个元宝换五次机会\
<查看机会/@查看>       <换1个机会/@交一张凭证>    <换3个机会/@交三张凭证>     <换5个机会/@交五张凭证>\
<开始投骰子/@CAIDIANSHU>  
[@查看]
亲爱的<$USERNAME>：你好！你当前的可掷骰子的次数数量是：<$HUMAN(Kyss)>次\
[@交一张凭证]
#IF
CHECKGAMEGOLD > 0
#ACT
GAMEGOLD - 1
CALCVAR HUMAN Kyss + 1
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
#SAY
恭喜：你成功获得：[投骰:1次]
#ELSESAY
你的元宝好象不够，我也不能帮你啊
[@交三张凭证]
#IF
CHECKGAMEGOLD > 1
#ACT
GAMEGOLD - 2
CALCVAR HUMAN Kyss + 3
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
#SAY
恭喜：你成功获得：[投骰:3次]
#ELSESAY
你的元宝好象不够，我也不能帮你啊
[@交五张凭证]
#IF
CHECKGAMEGOLD > 2
#ACT
GAMEGOLD - 3
CALCVAR HUMAN Kyss + 5
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
#SAY
恭喜：你成功获得：[投骰:5次]
#ELSESAY
你的元宝好象不够，我也不能帮你啊

[@CAIDIANSHU]
#if
CHECKVAR HUMAN Kyss > 0
#say
请选择你要猜的点数，如投出的点数与你猜的一样，\
那就要恭喜你了，你就可以进入生门了\
╔┄┄┄╗╔┄┄┄╗╔┄┄┄╗╔┄┄┄╗╔┄┄┄╗╔┄┄┄╗\
┊　　　┊┊　<●/@cds-2>　┊┊<●/@cds-3>　　┊┊<●/@cds-4>　<●/@cds-4>┊┊<●/@cds-5>　<●/@cds-5>┊┊<●/@cds-6>　<●/@cds-6>┊\
┊　<●/@cds-1>　┊┊　　　┊┊　<●/@cds-3>　┊┊　　　┊┊　<●/@cds-5>　┊┊<●/@cds-6>　<●/@cds-6>┊\
┊　　　┊┊　<●/@cds-2>　┊┊　　<●/@cds-3>┊┊<●/@cds-4>　<●/@cds-4>┊┊<●/@cds-5>　<●/@cds-5>┊┊<●/@cds-6>　<●/@cds-6>┊\
╚┄┄┄╝╚┄┄┄╝╚┄┄┄╝╚┄┄┄╝╚┄┄┄╝╚┄┄┄╝\
#ELSESAY
你还没有换取投骰子的机会
[@cds-1]
#IF
CHECKVAR HUMAN Kyss > 0
#ACT
set [030] 1
set [031] 1
CALCVAR HUMAN Kyss - 1
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
movr d0 6
inc d0 1
playdice 1 @cube_cds-1
#SAY
正在投骰子中... \ \
<下一个/@cube_cds-1>
#ELSESAY
你还没有换取投骰子的机会
[@cube_cds-1]
#if
check [031] 0
#say
由于你使用外挂\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 1
#ACT
set [030] 0
mapmove EM100A
SENDMSG 6 提示：恭喜你可以进入生门
#SAY
哇，你真厉害.竟然给你猜对了....\
#ELSEACT
goto @dutouzi_cds-lk
[@cds-2]
#IF
CHECKVAR HUMAN Kyss > 0
#ACT
set [030] 1
set [031] 1
CALCVAR HUMAN Kyss - 1
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
movr d0 6
inc d0 1
playdice 1 @cube_cds-2
#SAY
正在投骰子... \ \
<下一个/@cube_cds-2>
#ELSESAY
你还没有换取投骰子的机会
[@cube_cds-2]
#if
check [031] 0
#say
由于你使用外挂\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 2
#ACT
set [030] 0
mapmove EM100A
SENDMSG 6 提示：恭喜你可以进入生门
#SAY
哇，你真厉害.竟然给你猜对了....\ \
#ELSEACT
goto @dutouzi_cds-lk
[@cds-3]
#IF
CHECKVAR HUMAN Kyss > 0
#ACT
set [030] 1
set [031] 1
CALCVAR HUMAN Kyss - 1
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
movr d0 6
inc d0 1
playdice 1 @cube_cds-3
#SAY
正在投骰子...\ \
<下一个/@cube_cds-3>
#ELSESAY
你还没有换取投骰子的机会
[@cube_cds-3]
#if
check [031] 0
#say
由于你使用外挂\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 3
#ACT
set [030] 0
Param1 T208A
Param2 14
Param3 16
mapmove EM100A
SENDMSG 6 提示：恭喜你可以进入生门
#SAY
哇，你真厉害.竟然给你猜对了....\
#ELSEACT
goto @dutouzi_cds-lk
[@cds-4]
#IF
CHECKVAR HUMAN Kyss > 0
#ACT
set [030] 1
set [031] 1
CALCVAR HUMAN Kyss - 1
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
movr d0 6
inc d0 1
playdice 1 @cube_cds-4
#SAY
正在投骰子... \ \
<下一个/@cube_cds-4>
#ELSESAY
你还没有换取投骰子的机会
[@cube_cds-4]
#if
check [031] 0
#say
由于你使用外挂\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 4
#ACT
set [030] 0
mapmove EM100A
SENDMSG 6 提示：恭喜你可以进入生门
#SAY
哇，你真厉害.竟然给你猜对了....\
#ELSEACT
goto @dutouzi_cds-lk
[@cds-5]
#IF
CHECKVAR HUMAN Kyss > 0
#ACT
set [030] 1
set [031] 1
CALCVAR HUMAN Kyss - 1
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
movr d0 6
inc d0 1
playdice 1 @cube_cds-5
#SAY
正在投骰子...\ \
<下一个/@cube_cds-5>
#ELSESAY
你还没有换取投骰子的机会
[@cube_cds-5]
#if
check [031] 0
#say
由于你使用外挂。\
严重违反游戏规则！\ \
<离开/@exit>
#IF
check [030] 1
equal d0 5
#ACT
set [030] 0
mapmove EM100A
SENDMSG 6 提示：恭喜你可以进入生门
#SAY
哇，你真厉害.竟然给你猜对了....\
#ELSEACT
goto @dutouzi_cds-lk
[@cds-6]
#IF
CHECKVAR HUMAN Kyss > 0
#ACT
set [030] 1
set [031] 1
CALCVAR HUMAN Kyss - 1
SAVEVAR HUMAN Kyss ..\QuestDiary\宠物系统\KyssSave.txt
movr d0 6
inc d0 1
playdice 1 @cube_cds-6
#SAY
正在投骰子...\ \
<下一个/@cube_cds-6>
#ELSESAY
你还没有换取投骰子的机会
[@cube_cds-6]
#if
check [031] 0
#say
由于你使用外挂\
严重违反游戏规则\ \
<离开/@exit>
#IF
check [030] 1
equal d0 6
#ACT
set [030] 0
mapmove EM100A
SENDMSG 6 提示：恭喜你可以进入生门
#SAY
哇，你真厉害.竟然给你猜对了....\
#ELSEACT
goto @dutouzi_cds-lk
[@dutouzi_cds-lk]
#ACT
set [030] 0
set [031] 0
#SAY
很可惜...\
骰子的点数是<$STR(D0)> 和你猜的点数不同.\ \
<再来，我就不信./@Main>       <离 开./@exit>