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

admin

[@MAIN]　　将装备放入框中进行装备鉴定，有机率鉴定出两条特殊属性。\
　　\
　　
　　[@ItemIntoBox5]
　　#IF
　　NOT CHECKTEXTLIST ..\QuestDiary\隐藏属性\装备名单.txt
　　#ACT
　　UNALLOWITEMINTOBOX
　　messagebox 沃玛级别以上装备才能鉴定。
　　BREAK
　　[@KSZDY]
　　#IF
　　EQUAL
　　#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 =
　　UpdateItem boxitem5
　　[@衣服111]
　　#IF
　　#ACT
　　SetCustomItemAbil boxitem5 1 0 94
　　SetCustomItemAbil boxitem5 1 1 16
　　SetCustomItemAbil boxitem5 1 2 16
　　SetCustomItemValue boxitem5 1 =
　　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 =
　　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 =
　　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 =
　　UpdateItem boxitem5
　　[@项链机率分类]
　　#IF
　　#ACT
　　ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt  属性下限
　　ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt  属性上限
　　ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt  颜色
　　MOVR N$单位数值  
　　SetCustomItemAbil boxitem5 0 0
　　SetCustomItemAbil boxitem5 0 1
　　SetCustomItemAbil boxitem5 0 2
　　SetCustomItemValue boxitem5 0 =
　　MOVR N$项链属性编号 22 25
　　UpdateItem boxitem5
　　#IF
　　random 3
　　#ACT
　　ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt  属性下限
　　ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt  属性上限
　　ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt  颜色
　　MOVR N$单位数值  
　　SetCustomItemAbil boxitem5 1 0
　　SetCustomItemAbil boxitem5 1 1
　　SetCustomItemAbil boxitem5 1 2
　　SetCustomItemValue boxitem5 1 =
　　UpdateItem boxitem5
　　BREAK