传世宝石存仓
功能：宝石存取
[@main]
来来来，只要是红、绿、蓝三种颜色的宝石，放在宝石\
仓库里是可就安全了。不过每种宝石可是只能放200颗。\
多了可就放不下咯。\
你身上的宝石<Color=Green 都会被一次收走>，不过要是你仓库已经满\
了的话，<Color=Green 多出的还都在你包裹里>。\
<查看宝石数量/@宝石数量>\
<存放宝石/@存放>\
<取出宝石/@取出>\
<返回/@main>\
[@宝石数量]
你现在拥有：\
<$GemCount(0)> 颗红宝石\
<$GemCount(1)> 颗蓝宝石\
<$GemCount(2)> 颗绿宝石\
<返回/@宝石仓库>\
[@存放]
#IF
random 1
#ACT
MOV M3 0
MOV M0 200
MOV M1 200
MOV M2 200
DEC M0 $GEMCOUNT(0)
DEC M1 $GEMCOUNT(1)
DEC M2 $GEMCOUNT(2)
#IF
LARGE $ITEMCOUNT(红宝石) 0
CHECKGemCount 0 < 200
#ACT
TAKE 红宝石 $STR(M0)
GemCount 0 + $PARAM(12)
SENDMSG 5 你成功存放了<$PARAM(12)>颗红宝石
MOV M3 1
#IF
LARGE $ITEMCOUNT(蓝宝石) 0
CHECKGemCount 1 < 200
#ACT
TAKE 蓝宝石 $STR(M1)
GemCount 1 + $PARAM(12)
SENDMSG 5 你成功存放了<$PARAM(12)>颗蓝宝石
MOV M3 1
#IF
LARGE $ITEMCOUNT(绿宝石) 0
CHECKGemCount 2 < 200
#ACT
TAKE 绿宝石 $STR(M2)
GemCount 2 + $PARAM(12)
SENDMSG 5 你成功存放了<$PARAM(12)>颗绿宝石
MOV M3 1
#IF
LARGE M3 0
#SAY
你的宝石已经成功存放，可以随时提取。\
\
<查看宝石数量/@宝石数量>\
<取出宝石/@取出>\
<返回/@main>
#ELSESAY
宝石存放失败！\
可能原因：\
1、您的包裹内没有任何宝石；\
2、您的宝石仓库容量已满，无法存放更多宝石。\
\
<返回/@main>
[@取出]
<取出红宝石/@取红宝石>\
<取出蓝宝石/@取蓝宝石>\
<取出绿宝石/@取绿宝石>\
<返回/@宝石仓库>\
[@取红宝石]
#ACT
QUERYVAL 1 1 3 @取出红宝石 请输入你要取出的红宝石的个数
[@取蓝宝石]
#ACT
QUERYVAL 1 1 3 @取出蓝宝石 请输入你要取出的蓝宝石的个数
[@取绿宝石]
#ACT
QUERYVAL 1 1 3 @取出绿宝石 请输入你要取出的绿宝石的个数
[@取出红宝石]
#IF
CHECKBAGSIZE $STR(M1)
CHECKGemCount 0 ^ $STR(M1)
#SAY
红宝石已经到你包裹中！\
<返回/@取出>
#ACT
GemCount 0 - $STR(M1)
GIVE 红宝石 $STR(M1)
#ELSESAY
如果我没有看错的话，你的仓库应该没有那么多红宝石！\
<返回/@取出>\
[@取出蓝宝石]
#IF
CHECKBAGSIZE $STR(M1)
CHECKGemCount 1 ^ $STR(M1)
#SAY
蓝宝石已经到你包裹中！\
<返回/@取出>
#ACT
GemCount 1 - $STR(M1)
GIVE 蓝宝石 $STR(M1)
#ELSESAY
如果我没有看错的话，你的仓库应该没有那么多蓝宝石！\
<返回/@取出>
[@取出绿宝石]
#IF
CHECKBAGSIZE $STR(M1)
CHECKGemCount 2 ^ $STR(M1)
#SAY
绿宝石已经到你包裹中！\
<返回/@取出>
#ACT
GemCount 2 - $STR(M1)
GIVE 绿宝石 $STR(M1)
#ELSESAY
如果我没有看错的话，你的仓库应该没有那么多绿宝石！\
<返回/@取出>
--------------------------------------------------------------------------------
