如何写出完美支持GOM引擎传奇装备进化脚本

[@main]

\ \
\ \
<只要您的装备鉴定出了/FCOLOR=250><金色品质/FCOLOR=243><，那么恭喜你，可以到我这里进化./FCOLOR=250>\
<我可以帮您进化成/FCOLOR=250><红色品质装备><，/FCOLOR=250><红色品质><可是全服装备属性最好./FCOLOR=250>\
<但是我要收取铜钱500吊作为报酬，您愿意吗？/FCOLOR=250>\

\ \
<我要进化装备{FCOLOR=245}/@装备进化>\
\ \
<离开/@exit>  \







[@装备进化]
#ACT
OPENUPGRADEDLG  装备进化


[@UpgradeDlgItem]
#if
equal <$DLGITEM.STDMODE> 19
#ACT
RECLAIMITEM
SendMsg 6 该物品无法进化
break
#if
equal <$DLGITEM.STDMODE> 20
#ACT
RECLAIMITEM
SendMsg 6 该物品无法进化
break
#if
equal <$DLGITEM.STDMODE> 21
#ACT
RECLAIMITEM
SendMsg 6 该物品无法进化
break
#if
CheckItemNameColor -1 243
#act
goto @装备进化进程
#ELSEACT
RECLAIMITEM
SendMsg 6 只有金色的装备才能进化成红色品质


[@装备进化进程]
#IF
CHECKGAMEDIAMOND < 500
#ACT
RECLAIMITEM
SendMsg 6 每次进化需要500铜钱,失败装备不会消失,红色是最强品质
break
#if
random 20
#act
goto @装备进化进程1
#ELSEACT
GAMEDIAMOND - 500
SendMsg 6 进化装备失败,铜钱减少500
SendMsg 0 【<$USERNAME>】进化装备【<$DLGITEM.NAME>】失败了,属性不变.
RECLAIMITEM


[@装备进化进程1]
#if
equal <$DLGITEM.STDMODE> 5
#ACT
mov n$属性值 8
mov n$额外属性值 0
movr N$属性位置 0 3
goto @装备进化结果
break
#if
equal <$DLGITEM.STDMODE> 6
#ACT
mov n$属性值 8
mov n$额外属性值 0
movr N$属性位置 0 3
goto @装备进化结果
#ELSEACT
mov n$属性值 8
mov n$额外属性值 10
movr N$属性位置 2 5
goto @装备进化结果
break




[@装备进化结果]
#act
GAMEDIAMOND - 500
movr N$元素属性位置 0 9
SetNewItemValue -1 N$元素属性位置 + 5
CHANGEITEMADDVALUE -1 N$属性位置 + n$属性值
CHANGEITEMADDVALUE -1 0 + n$额外属性值
CHANGEITEMADDVALUE -1 1 + n$额外属性值
ChangeItemNameColor -1 249
SendMsg 0 【<$USERNAME>】将装备【<$DLGITEM.NAME>】进化成了【红色最强品质】,属性获得提升.
RECLAIMITEM
break