GEE引擎的传奇一条龙开区版本中怎么通过脚本实现物品来源？

[@main]
#IF
#SAY
\ \
\ \
\          <ITEMBOX:1:36:162:170:50:60:60:*:请先放入需要修改的装备>\
\ \
\ \
\ \
\ \
\                     <设置物品类型/@@InPutString22(请输入0-4之间的数值)>:<$STR(S$物品类型)>\
\                     <设置来源值一/@@InPutString23(请输入值一)>:<$STR(S$值一)>\
\                     <设置来源值二/@@InPutString24(请输入值二)>:<$STR(S$值二)>\
\ <设置方式查看|249#类型为0时=物品来源,值一可填以下数值,值二可留空^
251# 0:未    知    1:ＧＭ制造    2:NPC制 造    3:商店购买    4:杀怪掉落^
251# 5:系统给予    6:挖矿获取    7:宝箱获取    8:宝箱获取    9:挖肉获取^
251#10:捕捉获取^-^249#类型:类型为1时=地图,值一可设置任意地图名称,值二可留空^-^
249#类型为2时=杀死怪物,值一可设置任意怪物名称,值二可留空^-^
249#类型为3时=击杀者,值一可设置任意人物名称,值二可留空^-^
249#类型为4时=获得时间,值一设置(年-月-日),值二设置(时:分:秒)^-^
251#   如值一写入  2017-04-04    ^
251#   如值二写入  12:04:40    ^>\
\                       <确定设置/@确定设置物品来源>\
#ACT
break







[@InPutString22]
#IF
EQUAL S22
#ACT
MessageBox 请输入数值0-4之间的数值。
break
#IF
EQUAL S22 0
#ACT
MOV S$物品类型 物品来源
MOV S$物品类型_1 0
goto @main
break
#IF
EQUAL S22 1
#ACT
MOV S$物品类型 地图
MOV S$物品类型_1 1
goto @main
break
#IF
EQUAL S22 2
#ACT
MOV S$物品类型 杀死怪物
MOV S$物品类型_1 2
goto @main
break
#IF
EQUAL S22 3
#ACT
MOV S$物品类型 击杀者
MOV S$物品类型_1 3
goto @main
break
#IF
EQUAL S22 4
#ACT
MOV S$物品类型 时间
MOV S$物品类型_1 4
goto @main
break


[@InPutString23]
#IF
EQUAL S$物品类型_1 0
EQUAL S23 0
#ACT
MOV S$值一 未知
MOV S$值一_1 0
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 1
#ACT
MOV S$值一 GM制造
MOV S$值一_1 1
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 2
#ACT
MOV S$值一 NPC制造
MOV S$值一_1 2
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 3
#ACT
MOV S$值一 商店购买
MOV S$值一_1 3
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 4
#ACT
MOV S$值一 杀怪掉落
MOV S$值一_1 4
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 5
#ACT
MOV S$值一 系统给予
MOV S$值一_1 5
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 6
#ACT
MOV S$值一 挖矿获取
MOV S$值一_1 6
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 7
#ACT
MOV S$值一 宝箱获取
MOV S$值一_1 7
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 8
#ACT
MOV S$值一 宝箱获取
MOV S$值一_1 8
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 9
#ACT
MOV S$值一 挖肉获取
MOV S$值一_1 9
goto @main
break
#IF
EQUAL S$物品类型_1 0
EQUAL S23 10
#ACT
MOV S$值一 捕捉获取
MOV S$值一_1 10
goto @main
break
#IF
LARGE S$物品类型_1 0
#ACT
MOV S$值一 <$STR(S23)>
MOV S$值一_1 <$STR(S23)>
goto @main
break

[@InPutString24]
#IF
#ACT
MOV S$值二 <$STR(S24)>
MOV S$值二_1 <$STR(S24)>
goto @main
break

[@ItemIntoBox1]
#IF
#ACT
SetUpgradeItem 1
UpdateItem boxitem1
BREAK

[@ItemOutBox1]
#if
#act
SetUpgradeItem 1
UpdateItem boxitem1
RefreshBag
break

[@确定设置物品来源]
#IF
EQUAL <$BOXITEM[1].NAME>
#ACT
MessageBox 设置失败;请先放入需要设置的装备.
break
#IF
NOT EQUAL <$BOXITEM[1].NAME>
#ACT
SetUpgradeItem 1
SetItemFrom -1 <$STR(S$物品类型_1)> <$STR(S$值一_1)> <$STR(S$值二_1)>
UpdateItem boxitem1
MessageBox 物品来源设置成功;
break