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

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

学习教程tuzi2022-09-20 10:08:53A+A-

[@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

点击这里复制本文地址

声明

本站发布所有广告信息、下载资源,均来自互联网,非本站自制,与本站无关。 如有侵犯您的合法权益请来信告之。我们会在三个工作日内予以清除。


本站中所有资料、资源文件均来自于网络搜索,仅作为技术学习研究之用,请必须在24小时内删除所下载文件,切勿用于商业用途,否则由此引发的法律纠纷及连带责任本站和发布者概不承担。


本站保证站内提供的所有可下载资源(软件等等)都是按“原样”提供,本站未做过任何改动;但本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。 


访问本站的用户必须明白,[资源爱好者]对提供下载的软件等不拥有任何权利,其版权归该下载资源的合法拥有者所有。


本站所有资源均不提供相关技术服务,如果源码下载地址失效则请联系站长进行补发。


本站所有资源展现图片仅供参考

资源爱好者 © 本站发布所有资源,均来自互联网,非本站自制,分享目的仅供大家学习与参考,与本站无关。
如有侵犯您的合法权益请来信告之。我们会在三个工作日内予以清除。邮箱:admin?aihao.org
关于我们|广告合作|网站地图|冀ICP备14009590号|冀公网安备 13018302000072号