GOM引擎装备重鉴脚本怎么做？传奇一条龙教你制作装备重鉴脚本

[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
\ \ \ \ \  
<1.装备开光系统/SCOLOR=254>\
<武器衣服可以在我这里进行开光/SCOLOR=251>\
<开光后随机获得打怪伤害跟元素属性/SCOLOR=241> <ITEMBOX:0:28:1294:100:0:36:15:5,10:251#只允许放入武器.衣服>\
<装备开光需要：/SCOLOR=250><[开光魔石]/SCOLOR=249>\  
<需要开光的武器.衣服放入左边框内/SCOLOR=253>\
<>                                                 <确定开光/@放入装备>\
<2.首饰重鉴系统/SCOLOR=250>\
<所有首饰都可以在我这里进行重新鉴定/SCOLOR=70>\
<重新鉴定需要鉴定等级相同或更高级的/SCOLOR=241><“祭品”/SCOLOR=249><首饰/SCOLOR=241>\
<只有首饰才能鉴定/SCOLOR=253>\ \
　                       <点击进入重新鉴定/@鉴定说明>\

[@鉴定说明]
#IF
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
\ \ \ \ \
<首饰重鉴系统/SCOLOR=250>\
<如果你不满意首饰的鉴定属性可以在我这里重新鉴定/scolor=250>\
<鉴定不收取任何费用,鉴定后重新重新获取鉴定属性/scolor=241>\\
<只允许戒指,手镯,腰带,靴子.头盔.项链/scolor=253>\
<1.一号框放入需要重新鉴定的装备/scolor=253>\
<2.二号框放入相同或更高鉴定等级的祭品首饰即可/scolor=70><(装备名称下方会写有鉴定等级)/scolor=7>\ \

<>      <ITEMBOX:3:28:1294:60:0:40:40:15,19,24,26,64,62,22,23:251#放入需要重新鉴定的装备><ITEMBOX:2:28:1294:190:0:40:40:15,19,24,26,64,62,22,23:251#放入相同或更高等级的祭品>\  \ \ \


<>   　   　                  <开始重鉴属性/@开始重鉴属性>\


[@开始重鉴属性]
#act
SetUpgradeItem 2
SetUpgradeItem 3
#IF
NOT CheckBoxItemCount 3 1
#act
MESSAGEBOX 左边没放装备
BREAK
#IF
NOT CheckBoxItemCount 2 1
#act
MESSAGEBOX 右边没放装备
BREAK

#OR
LARGE <$BOXITEM[2].MP> <$BOXITEM[3].MP>
EQUAL <$BOXITEM[2].MP> <$BOXITEM[3].MP>
#act
GOTO @确定重鉴属性
BREAK
#elseact
messagebox 祭品首饰必须与重新鉴定的首饰鉴定等级相同.或者更高！

[@确定重鉴属性]
#if
CHECKTEXTLIST ..\QuestDiary\喵喵专用鉴定系统\一级鉴定列表.txt <$BOXITEM[3].NAME>
#act
DELBOXITEM 2
CHANGECUSTOMITEMVALUE -1 0 = 0
CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
#CALL [\喵喵专用鉴定系统\一级拾取鉴定.txt] @一级鉴定
MESSAGEBOX 重新鉴定成功
BREAK

#if
CHECKTEXTLIST ..\QuestDiary\喵喵专用鉴定系统\二级鉴定列表.txt <$BOXITEM[3].NAME>
#act
DELBOXITEM 2
CHANGECUSTOMITEMVALUE -1 0 = 0
CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
#CALL [\喵喵专用鉴定系统\二级拾取鉴定.txt] @二级鉴定
MESSAGEBOX 重新鉴定成功
BREAK

#if
CHECKTEXTLIST ..\QuestDiary\喵喵专用鉴定系统\三级鉴定列表.txt <$BOXITEM[3].NAME>
#act
DELBOXITEM 2
CHANGECUSTOMITEMVALUE -1 0 = 0
CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
#CALL [\喵喵专用鉴定系统\三级拾取鉴定.txt] @三级鉴定
MESSAGEBOX 重新鉴定成功
BREAK

#if
CHECKTEXTLIST ..\QuestDiary\喵喵专用鉴定系统\四级鉴定列表.txt <$BOXITEM[3].NAME>
#act
DELBOXITEM 2
CHANGECUSTOMITEMVALUE -1 0 = 0
CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
#CALL [\喵喵专用鉴定系统\四级拾取鉴定.txt] @四级鉴定
MESSAGEBOX 重新鉴定成功
BREAK

#if
CHECKTEXTLIST ..\QuestDiary\喵喵专用鉴定系统\五级鉴定列表.txt <$BOXITEM[3].NAME>
#act
DELBOXITEM 2
CHANGECUSTOMITEMVALUE -1 0 = 0
CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
#CALL [\喵喵专用鉴定系统\五级拾取鉴定.txt] @五级鉴定
MESSAGEBOX 重新鉴定成功
BREAK


[@放入装备]
#ACT
MESSAGEBOX 你还没有放入装备？？？

[@ItemOutBox0]
#ACT
goto @main

[@ItemIntoBox0]
#ACT
SetUpgradeItem 0

#IF
EQUAL <$BOXITEM[0].STDMODE> 10
#ACT
MOV N$元素属性位置1 2
MOV N$元素属性位置2 3
MOV N$元素属性位置3 5
MOV N$元素属性位置4 7

MOVR N$元素属性数值1 1 25
MOVR N$元素属性数值2 1 25
;MOVR N$元素属性数值3 1 20
MOVR N$元素属性数值4 1 25
MOVR N$打怪伤害数值 1 30
DELAYGOTO 1 @开光说明
BREAK


#IF
EQUAL <$BOXITEM[0].STDMODE> 5
#ACT
MOV N$元素属性位置1 0
MOV N$元素属性位置2 1
MOV N$元素属性位置3 4
MOV N$元素属性位置4 6

MOVR N$元素属性数值1 1 30
MOVR N$元素属性数值2 1 20
;MOVR N$元素属性数值3 1 30
MOVR N$元素属性数值4 1 20
MOVR N$打怪伤害数值 1 30
DELAYGOTO 1 @开光说明
BREAK


[@开光说明]
#IF
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
\ \ \ \ \    \ \
<1.装备开光系统/SCOLOR=254>\
<武器衣服可以在我这里进行开光/SCOLOR=251> <ITEMBOX:0:28:1294:100:0:36:15:5,10:251#只允许放入武器.衣服>\
<开光后随机获得打怪伤害跟元素属性/SCOLOR=241>\
<装备开光需要：/SCOLOR=250><[开光魔石]/SCOLOR=249>\  
<需要开光的武器.衣服放入左边框内/SCOLOR=253>              <确定开光/@确定开光>\ \  \  \
<注:如果不满意开光获得的属性数值可以重复开光.只要你有足够的材料/SCOLOR=250>\
<[开光魔石全服所有怪物均有掉落.赞助福利商城也可以兑换]/SCOLOR=249>\


[@确定开光]
#IF
checkitem 开光魔石 1
#act
GOTO @执行开光
#elseact
messagebox 请检查是否有足够的材料！
BREAK

[@执行开光]
#IF
checkitem 开光魔石 1
#ACT
TAKE 开光魔石 1
SetNewItemValue -1 <$str(N$元素属性位置1)> = <$str(N$元素属性数值1)>
SetNewItemValue -1 <$str(N$元素属性位置2)> = <$str(N$元素属性数值2)>
;SetNewItemValue -1 <$str(N$元素属性位置3)> = <$str(N$元素属性数值3)>
SetNewItemValue -1 <$str(N$元素属性位置4)> = <$str(N$元素属性数值4)>
CHANGECUSTOMITEMABIL -1 1 1 8
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 1 0 250
CHANGECUSTOMITEMABIL -1 1 3 1
CHANGECUSTOMITEMVALUE -1 1 = <$str(N$打怪伤害数值)>
UpDateBoxItem 0
GOTO @ItemIntoBox0
MESSAGEBOX 恭喜您成功的给装备开光！