GOM引擎通过脚本修改物品来源脚本，传奇开区时设置修改来源的教程

[@main]
#if
ISADMIN
#SAY
<>    <GM制造/@GMZZLY>    <NPC制造/@NPCZZLY>   <商店购买/@SDGMLY>  <PK怪掉落/@SGDLLY>  <系统给于/@XTGYLY>\
<>    <挖矿获取/@WKHQLY>  <宝箱获取/@BXHQLY>  <挖肉获取/@WRHQLY>  <捕捉获取/@BZHQLY>  <清空来源/@QKWPLY>\
<>      <╔═════╗/AUTOCOLOR=249,70,251,250,146,252,244>                                               \
<>      <║          ║/AUTOCOLOR=249,70,251,250,146,252,244>      地图:                               \
<>      <║          ║/AUTOCOLOR=249,70,251,250,146,252,244>      怪物:                              \
<>      <║          ║/AUTOCOLOR=249,70,251,250,146,252,244>      击PK:                              \
<>      <╚═════╝/AUTOCOLOR=249,70,251,250,146,252,244>      时间:                                        \
<>    <text:修改来源:0:0:1,2,3/@QRXGZBLY>  <text:修改时间:0:0:4,5/@QRXGZBSJ>   <(格式:2018-12-01  21:00:30)/FCOLOR=154>\
<> <使用方法:点击一次上方来源，再点击修改来源即可修改成功！/FCOLOR=250>                                                                                    \
<> <注意:/FCOLOR=249>选择<PK怪掉落/FCOLOR=249>或<挖肉获取/FCOLOR=249>时需要填写<地图,怪物,击PK/FCOLOR=249> 信息！\
<ITEMBOX:0:-1:70:90:90:48:48:*:放入装备>\
<INPUTTEXT:1:185:-129:130:14:26:83:255:0:0:请正确输入PK怪掉落信息:地图名称:>\
<INPUTTEXT:2:185:-129:130:14:26:83:255:0:0:请正确输入PK怪掉落信息:怪物名称:>\
<INPUTTEXT:3:185:-129:130:14:26:83:255:0:0:请正确输入PK怪掉落信息:人物名称:>\
<INPUTTEXT:4:185:-129:65:14:26:83:255:1:100:请输入正确的日期:输入日期:>\
<INPUTTEXT:5:255:-145:60:14:26:83:255:1:100:请输入正确到时间:输入时间:>\

[@QKWPLY]
#act
mov P100 0
break

[@GMZZLY]
#act
mov P100 1
break

[@NPCZZLY]
#act
mov P100 2
break

[@SDGMLY]
#act
mov P100 3
break

[@SGDLLY]
#act
mov P100 4
break

[@XTGYLY]
#act
mov P100 5
break

[@WKHQLY]
#act
mov P100 6
break

[@BXHQLY]
#act
mov P100 7
break

[@WRHQLY]
#act
mov P100 8
break

[@BZHQLY]
#act
mov P100 9
break




[@QRXGZBLY]
#act
mov S101 <$NPCINPUT(1)>
mov S102 <$NPCINPUT(2)>
mov S103 <$NPCINPUT(3)>

#or
EQUAL P100 0
EQUAL P100 1
EQUAL P100 2
EQUAL P100 3
EQUAL P100 5
EQUAL P100 6
EQUAL P100 7
EQUAL P100 9
#act
SetUpgradeItem 0
SetItemFrom boxitem0 0 <$STR(P100)>
UpdateItem boxitem0
break
#if
EQUAL P100 4
NOT EQUAL S101
NOT EQUAL S102
NOT EQUAL S103
#act
SetUpgradeItem 0
SetItemFrom boxitem0 0 <$STR(P100)>
SetItemFrom boxitem0 1 <$STR(S101)>
SetItemFrom boxitem0 2 <$STR(S102)>
SetItemFrom boxitem0 3 <$STR(S103)>
UpdateItem boxitem0
break
#if
EQUAL P100 8
NOT EQUAL S101
NOT EQUAL S102
NOT EQUAL S103
#act
SetUpgradeItem 0
SetItemFrom boxitem0 0 <$STR(P100)>
SetItemFrom boxitem0 1 <$STR(S101)>
SetItemFrom boxitem0 2 <$STR(S102)>
SetItemFrom boxitem0 3 <$STR(S103)>
UpdateItem boxitem0
#ELSEACT
messagebox \\<提示:/FCOLOR=249>请输入正确的<[地图,怪物,击PK]/FCOLOR=249>信息！
break

[@QRXGZBSJ]
#act
SetUpgradeItem 0
SetItemFrom boxitem0 4 <$NPCINPUT(4)> <$NPCINPUT(5)>
UpdateItem boxitem0
break