GOM引擎属性鉴定脚本，复古金币传奇有机率鉴定出两条特殊属性教程

[@MAIN]

将装备放入框中进行装备鉴定，有机率鉴定出两条特殊属性。

<ITEMBOX:5:61:250:200:100:10:10:5,6,10,11,15,19,20,21,24,26,22,23,62,64,30:鉴定一次需要支付500W金币>

<开始鉴定/@KSZDY>

[@ItemIntoBox5]

#IF

NOT CHECKTEXTLIST ..QuestDiary隐藏属性装备名单.txt <$BOXITEM[5].NAME>

#ACT

UNALLOWITEMINTOBOX

messagebox 沃玛级别以上装备才能鉴定。

BREAK

[@KSZDY]

#IF

EQUAL <$BOXITEM[5].NAME>  

#ACT

messagebox  请放入装备.

BREAK

#IF

checkgold 5000000

#ACT

#ELSEACT

messagebox 金币不足500万。

BREAK

#IF

#ACT

take 金币 5000000

SetUpgradeItem 5

Loopgoto @清除属性 1

GOTO @自定义鉴定1

[@清除属性]

#ACT

SetCustomItemValue boxitem5 0 = 0

SetCustomItemValue boxitem5 1 = 0

SetCustomItemValue boxitem5 2 = 0

SetCustomItemValue boxitem5 6 = 0

SetCustomItemValue boxitem5 7 = 0

SetCustomItemValue boxitem5 8 = 0

SetCustomItemValue boxitem5 9 = 0

[@自定义鉴定1]

#OR

CHECKITEMTYPE boxitem5 5

CHECKITEMTYPE boxitem5 6

#ACT

goto @武器机率分类

BREAK

#IF

CHECKITEMTYPE boxitem5 15

#ACT

goto @头盔机率分类

BREAK

#OR

CHECKITEMTYPE boxitem5 19

CHECKITEMTYPE boxitem5 20

CHECKITEMTYPE boxitem5 21

#ACT

MOVR N$项链属性编号 22 25

goto @项链机率分类

BREAK

#OR

CHECKITEMTYPE boxitem5 24

CHECKITEMTYPE boxitem5 26

#ACT

goto @手镯机率分类

BREAK

#OR

CHECKITEMTYPE boxitem5 22

CHECKITEMTYPE boxitem5 23

#ACT

goto @戒指机率分类

BREAK

#OR

CHECKITEMTYPE boxitem5 10

CHECKITEMTYPE boxitem5 11

#ACT

goto @衣服机率分类

BREAK

[@衣服机率分类]

#IF

RANDOM 3

#ACT

MOVR N$衣服移恢 1 11

GOTO @衣服111

#IF

#ACT

MOVR N$衣服偷取 1 3001

SetCustomItemAbil boxitem5 0 0 100

SetCustomItemAbil boxitem5 0 1 18

SetCustomItemAbil boxitem5 0 2 18

SetCustomItemValue boxitem5 0 = <$STR(N$衣服偷取)>

UpdateItem boxitem5

[@衣服111]

#IF

#ACT

SetCustomItemAbil boxitem5 1 0 94

SetCustomItemAbil boxitem5 1 1 16

SetCustomItemAbil boxitem5 1 2 16

SetCustomItemValue boxitem5 1 = <$STR(N$衣服移恢)>

UpdateItem boxitem5

[@戒指机率分类]

#IF

;RANDOM 3

#ACT

MOVR N$弱人打击 1 9

goto @戒指111

;#ELSEACT

;messagebox 抱歉，鉴定失败了…

[@戒指111]

#IF

#ACT

SetCustomItemAbil boxitem5 1 0 242

SetCustomItemAbil boxitem5 1 1 26

SetCustomItemAbil boxitem5 1 2 26

SetCustomItemValue boxitem5 1 = <$STR(N$弱人打击)>

UpdateItem boxitem5

[@手镯机率分类]

#IF

;RANDOM 3

#ACT

MOVR N$弱怪打击 1 16

GOTO @手镯111

;#ELSEACT

;messagebox 抱歉，鉴定失败了…

[@手镯111]

#IF

#ACT

SetCustomItemAbil boxitem5 0 0 244

SetCustomItemAbil boxitem5 0 1 25

SetCustomItemAbil boxitem5 0 2 25

SetCustomItemValue boxitem5 0 = <$STR(N$弱怪打击)>

UpdateItem boxitem5

[@武器机率分类]

;#IF

;RANDOM 3

;#ACT

;SetCustomItemAbil boxitem5 0 0 239

;SetCustomItemAbil boxitem5 0 1 20

;SetCustomItemAbil boxitem5 0 2 20

;SetCustomItemValue boxitem5 0 = 5

;UpdateItem boxitem5

#IF

RANDOM 3

#ACT

SetCustomItemAbil boxitem5 1 0 241

SetCustomItemAbil boxitem5 1 1 19

SetCustomItemAbil boxitem5 1 2 19

SetCustomItemValue boxitem5 1 = 1

UpdateItem boxitem5

BREAK

#IF

RANDOM 5

#ACT

SetCustomItemAbil boxitem5 1 0 241

SetCustomItemAbil boxitem5 1 1 19

SetCustomItemAbil boxitem5 1 2 19

SetCustomItemValue boxitem5 1 = 2

UpdateItem boxitem5

BREAK

#IF

RANDOM 20

#ACT

SetCustomItemAbil boxitem5 1 0 241

SetCustomItemAbil boxitem5 1 1 19

SetCustomItemAbil boxitem5 1 2 19

SetCustomItemValue boxitem5 1 = 3

UpdateItem boxitem5

BREAK

[@头盔机率分类]

#IF

#ACT

SetCustomItemAbil boxitem5 0 0 152

SetCustomItemAbil boxitem5 0 1 27

SetCustomItemAbil boxitem5 0 2 27

SetCustomItemValue boxitem5 0 = 1

UpdateItem boxitem5

#IF

RANDOM 3

#ACT

MOVR N$杀怪回血点数 50 151

GOTO @头盔111

[@头盔111]

#IF

#ACT

SetCustomItemAbil boxitem5 1 0 95

SetCustomItemAbil boxitem5 1 1 17

SetCustomItemAbil boxitem5 1 2 17

SetCustomItemValue boxitem5 1 = <$STR(N$杀怪回血点数)>

UpdateItem boxitem5

[@项链机率分类]

#IF

#ACT

ReadConfigFileItem ..QuestDiary拾取鉴定自定义属性调控.txt <$STR(N$项链属性编号)> 属性下限 <$STR(N$属性下限)>

ReadConfigFileItem ..QuestDiary拾取鉴定自定义属性调控.txt <$STR(N$项链属性编号)> 属性上限 <$STR(N$属性上限)>

ReadConfigFileItem ..QuestDiary拾取鉴定自定义属性调控.txt <$STR(N$项链属性编号)> 颜色 <$STR(N$属性颜色)>

MOVR N$单位数值 <$STR(N$属性下限)> <$STR(N$属性上限)>

SetCustomItemAbil boxitem5 0 0 <$STR(N$属性颜色)>

SetCustomItemAbil boxitem5 0 1 <$STR(N$项链属性编号)>

SetCustomItemAbil boxitem5 0 2 <$STR(N$项链属性编号)>

SetCustomItemValue boxitem5 0 = <$STR(N$单位数值)>

MOVR N$项链属性编号 22 25

UpdateItem boxitem5

#IF

random 3

#ACT

ReadConfigFileItem ..QuestDiary拾取鉴定自定义属性调控.txt <$STR(N$项链属性编号)> 属性下限 <$STR(N$属性下限)>

ReadConfigFileItem ..QuestDiary拾取鉴定自定义属性调控.txt <$STR(N$项链属性编号)> 属性上限 <$STR(N$属性上限)>

ReadConfigFileItem ..QuestDiary拾取鉴定自定义属性调控.txt <$STR(N$项链属性编号)> 颜色 <$STR(N$属性颜色)>

MOVR N$单位数值 <$STR(N$属性下限)> <$STR(N$属性上限)>

SetCustomItemAbil boxitem5 1 0 <$STR(N$属性颜色)>

SetCustomItemAbil boxitem5 1 1 <$STR(N$项链属性编号)>

SetCustomItemAbil boxitem5 1 2 <$STR(N$项链属性编号)>

SetCustomItemValue boxitem5 1 = <$STR(N$单位数值)>

UpdateItem boxitem5

BREAK