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

[@main]


















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


[@UpgradeDlgItem]
#if
equal  19
#ACT
RECLAIMITEM
SendMsg 6 该物品无法进化
break
#if
equal  20
#ACT
RECLAIMITEM
SendMsg 6 该物品无法进化
break
#if
equal  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 【】进化装备【】失败了,属性不变.
RECLAIMITEM


[@装备进化进程1]
#if
equal  5
#ACT
mov n$属性值 8
mov n$额外属性值 0
movr N$属性位置 0 3
goto @装备进化结果
break
#if
equal  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 【】将装备【】进化成了【红色最强品质】,属性获得提升.
RECLAIMITEM
break