[@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
|
