仓库.txt

企业版传奇世界本

[@昆仑]
{
金刚石可以在中州锻造炉那用来锻造各种高级物品，平时可以在\
各种任务和怪物中获得！你可以存放在这里，锻造时不用取出即\
可使用！\
你当前的金刚石库存数量是：[<$HUMAN(KLX)>]个\\
<存放金刚石/@存放昆仑>\
<取出金刚石/@取出昆仑>\
<关闭菜单/@exit>

[@存放昆仑]
#ACT
queryvalue 请输入你要存放的金刚石数量 2 2 771

[@getstring771]
#ACT
Getstring s5
MOV P1 $STR(S5)
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P1 1
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#IF
checkitem 金刚石 $STR(P1)
#ACT
take 金刚石 $STR(P1)
CALCVAR HUMAN KLX + $STR(P1)
SAVEVAR HUMAN KLX ..\QuestDiary\数据文件\KLX.txt
MessageBox 你成功的存放了[<$STR(P1)>]个金刚石
#CALL [\商人\仓库.txt] @昆仑
#ELSEACT
MessageBox 对不起，你包内没有那么多金刚石！！！

[@取出昆仑]
#ACT
queryvalue 请输入你要取出的金刚石数量 2 2 772

[@getstring772]
#ACT
Getstring s5
MOV P1 $STR(S5)
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P1 1
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#IF
CHECKVAR HUMAN KLX < $STR(P1)
#ACT
MessageBox 对不起，你仓库里没有那么多[<$STR(P1)>]个金刚石！！！
#ELSEACT
give 金刚石 $STR(P1)
CALCVAR HUMAN KLX - $STR(P1)
SAVEVAR HUMAN KLX ..\QuestDiary\数据文件\KLX.txt
goto @昆仑
MessageBox 你成功的取出了[<$STR(P1)>]个金刚石


}

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

[@查看数量]
你现在拥有:\
<$HUMAN(BHB)>颗红宝石\
<$HUMAN(BLA)>颗蓝宝石\
<$HUMAN(BLV)>颗绿宝石\
<返回/@宝仓>

[@取出宝石]
<取出红宝石/@取红宝>....现有红宝石<$HUMAN(BHB)>颗\
<取出蓝宝石/@取蓝宝>....现有蓝宝石<$HUMAN(BLA)>颗\
<取出绿宝石/@取绿宝>....现有绿宝石<$HUMAN(BLV)>颗\
<返回/@宝仓>

[@取红宝]
#IF
#ACT
queryvalue 请输入你要取出的红宝石数量 2 3 4202

[@getstring4202]
#ACT
Getstring s5
MOV P1 $STR(S5)
goto @检红数

[@检红数]
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKVAR HUMAN BHB > $STR(S5)
#ACT
give 红宝石 $STR(S5)
CALCVAR HUMAN BHB - $STR(S5)
SAVEVAR HUMAN BHB ..\QuestDiary\数据文件\BHBSave.txt
#IF
CHECKVAR HUMAN BHB = $STR(S5)
#ACT
give 红宝石 $STR(S5)
CALCVAR HUMAN BHB - $STR(S5)
SAVEVAR HUMAN BHB ..\QuestDiary\数据文件\BHBSave.txt
#ELSESAY
如果我没有看错的话，你的仓库里应该没有那么多红宝石！\
或者你的包裹空间不足！\
<返回/@宝仓>

[@取蓝宝]
#IF
#ACT
queryvalue 请输入你要取出的蓝宝石数量 2 3 4203

[@getstring4203]
#ACT
Getstring s5
MOV P1 $STR(S5)
goto @检蓝数

[@检蓝数]
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKVAR HUMAN BLA > $STR(S5)
#ACT
give 蓝宝石 $STR(S5)
CALCVAR HUMAN BLA - $STR(S5)
SAVEVAR HUMAN BLA ..\QuestDiary\数据文件\BLASave.txt
#IF
CHECKVAR HUMAN BLA = $STR(S5)
#ACT
give 蓝宝石 $STR(S5)
CALCVAR HUMAN BLA - $STR(S5)
SAVEVAR HUMAN BLA ..\QuestDiary\数据文件\BLASave.txt
#ELSESAY
如果我没有看错的话，你的仓库里应该没有那么多蓝宝石！\
或者你的包裹空间不足！\
<返回/@宝仓>

[@取绿宝]
#IF
#ACT
queryvalue 请输入你要取出的绿宝石数量 2 3 7

[@getstring7]
#ACT
Getstring s5
MOV P1 $STR(S5)
goto @检绿数

[@检绿数]
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKVAR HUMAN BLV > $STR(S5)
#ACT
give 绿宝石 $STR(S5)
CALCVAR HUMAN BLV - $STR(S5)
SAVEVAR HUMAN BLV ..\QuestDiary\数据文件\BLVSave.txt
#IF
CHECKVAR HUMAN BLV = $STR(S5)
#ACT
give 绿宝石 $STR(S5)
CALCVAR HUMAN BLV - $STR(S5)
SAVEVAR HUMAN BLV ..\QuestDiary\数据文件\BLVSave.txt
#ELSESAY
如果我没有看错的话，你的仓库里应该没有那么多绿宝石！\
或者你的包裹空间不足！\
<返回/@宝仓>

[@存放宝石]
#IF
#SAY
能存放红、绿、蓝三种颜色的宝石。
<返回/@宝仓>
#ACT
delay 0 @开始存放了

[@开始存放了]
#IF
#ACT
checkitembox 提供宝石 1 8

[@getboxitem8]
#if
checkitemx 红宝石
#act
delay 0 @红宝石
break
#if
checkitemx 蓝宝石
#act
delay 0 @蓝宝石
break
#if
checkitemx 绿宝石
#act
delay 0 @绿宝石
break
#if
#ACT
messagebox 你提供的物品不正确！\
close

[@红宝石]
#if
#act
take 红宝石 1
CALCVAR HUMAN BHB + 1
SAVEVAR HUMAN BHB ..\QuestDiary\数据文件\BHBSave.txt
SENDMSG 6 储存成功.
break

[@蓝宝石]
#if
#act
take 蓝宝石 1
CALCVAR HUMAN BLA + 1
SAVEVAR HUMAN BLA ..\QuestDiary\数据文件\BLASave.txt
SENDMSG 6 储存成功.
break

[@绿宝石]
#if
#act
take 绿宝石 1
CALCVAR HUMAN BLV + 1
SAVEVAR HUMAN BLV ..\QuestDiary\数据文件\BLVSave.txt
SENDMSG 6 储存成功.
break

}

[@捆扎物品]
{
一看你就是有钱人！\
行，我来帮你，你要干什么呢？\\
用金条<交换/@金条交换金砖>金砖\
用金砖<交换/@金砖交换金条>金条\
用金币<交换/@金币交换金条>金条\
用金条<交换/@金条交换金币>金币\
<打包/@打包>\
<离开/@exit>

[@金条交换金币]
#IF
checkgold 9000000
#SAY
你的钱囊已经满了，放不下金币了。\\
<离开/@exit>
#ACT
break
#IF
checkitem 金条 1
#SAY
你要用金条换成金币？\
好的，我帮你换\
但是要支付手续费\
费用是2000金币，你还换吗？\\
<交换/@金条交换金币2>\
<离开/@exit>
#elsesay
你没有金条还换什么？\
想骗我？走开！\\
<离开/@exit>
[@金条交换金币2]
#IF
checkitem 金条 1
#ACT
take 金币 2000
take 金条 1
give 金币 1000000
#SAY
金条已经换好金币了.\
还换吗？\\
<交换/@金条交换金币>\
<离开/@exit>
#elsesay
你连这点钱都没有，还换什么？\
等你有足够的钱，再来找我吧\\
<返回/@捆扎物品>


[@金币交换金条]
#IF
checkgold 1002000
#SAY
你要用金币换成金条？\
好的，我帮你换\
但是要支付手续费\
费用是2000金币，你还换吗？\\
<交换/@金币交换金条2>\
<离开/@exit>
#elsesay
你没有金币还换什么？\
想骗我？走开！\\
<离开/@exit>
[@金币交换金条2]
#IF
checkgold 1002000
#ACT
take 金币 1002000
give 金条 1
#SAY
金币已经换好金条了.\
还换吗？\\
<交换/@金币交换金条>\
<离开/@exit>
#elsesay
你连这点钱都没有，还换什么？\
等你有足够的钱，再来找我吧\\
<返回/@捆扎物品>

[@金砖交换金条]
#IF