--------------------------------------------------------------------------------
　
　
[@仓库寄存服务]
{
#SAY
来来来，只要是红、绿、蓝三种颜色的宝石，放在宝石\
仓库里是可就安全了。不过每种宝石可是只能放200颗。\
多了可就放不下咯。\
<查看宝石数量/@宝石数量>\
<存放宝石/@存放>\
<取出宝石/@取出>\
<返回/@main>\
\

[@宝石数量]
你现在拥有：\
<$BAOSHI(0)> 颗红宝石\
<$BAOSHI(1)> 颗蓝宝石\
<$BAOSHI(2)> 颗绿宝石\
<返回/@仓库寄存服务>\
　\
[@存放]
能存放红、绿、蓝三种颜色的宝石。\<返回/@_CK_goldsave>
#ACT
ShowSpotDlg 1 提供宝石

[@取出]
<取出红宝石/@取红宝石>\
<取出蓝宝石/@取蓝宝石>\
<取出绿宝石/@取绿宝石>\
<返回/@仓库寄存服务>\

[@取红宝石]
#ACT
QUERYVAL 1 1 3 @取出红宝石 请输入你要取出的红宝石的个数

[@取蓝宝石]
#ACT
QUERYVAL 1 1 3 @取出蓝宝石 请输入你要取出的蓝宝石的个数

[@取绿宝石]
#ACT
QUERYVAL 1 1 3 @取出绿宝石 请输入你要取出的绿宝石的个数

[@取出红宝石]
#IF
CHECKBAGSIZE $STR(M1)
CHECKBAOSHI 0 ^ $STR(M1)
#ACT
BAOSHI 0 - $STR(M1)
GIVE 红宝石 $STR(M1)
#ELSESAY
如果我没有看错的话，你的仓库应该没有那么多红宝石！\
或者你的包裹没那么多空间！\
<返回/@仓库寄存服务>\

[@取出蓝宝石]
#IF
CHECKBAGSIZE $STR(M1)
CHECKBAOSHI 1 ^ $STR(M1)
#ACT
BAOSHI 1 - $STR(M1)
GIVE 蓝宝石 $STR(M1)
#ELSESAY
如果我没有看错的话，你的仓库应该没有那么多蓝宝石！\
或者你的包裹没那么多空间！\
<返回/@仓库寄存服务>\

[@取出绿宝石]
#IF
CHECKBAGSIZE $STR(M1)
CHECKBAOSHI 2 ^ $STR(M1)
#ACT
BAOSHI 2 - $STR(M1)
GIVE 红宝石 $STR(M1)
#ELSESAY
如果我没有看错的话，你的仓库应该没有那么多绿宝石！\
或者你的包裹没那么多空间！\
<返回/@仓库寄存服务>\

}