免费列表
≡
登录
×
头像游客
登录 注册
  • 首页
  • 传奇论坛
  • 传奇版本库
  • 传奇服务端
  • 传奇三端手游
  • 传奇素材网
  • 传奇客户端
  • 引擎登录器
  • 下载排行
  • 获取邀请码
    • 搜索
    传奇素材网
    传奇服务端下载基地»论坛 › 传奇架设教程区 › 传奇脚本教程 › GOM引擎属性鉴定脚本，复古金币传奇有机率鉴定出两条特 ...
    158720

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

     火... [复制链接]

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

     火... [复制链接]
    趣游论坛

    1万

    主题

    204

    回帖

    11万

    积分

    管理员

    积分
    113598

    灌水之王活跃会员突出贡献优秀版主荣誉管理论坛元老

    趣游论坛 2019-10-9 14:08:43 / 显示全部楼层 /阅读模式
    158720
    20191008075806.png

    [@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$PK怪回血点数 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$PK怪回血点数)>
    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

    回复

    使用道具 举报

    返回列表 发新帖
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    趣游论坛管理员

    • 灌水之王

      经常在论坛发帖，且发帖量较大

    • 活跃会员

      经常参与各类话题的讨论，发帖内容较有主见

    • 突出贡献

      长期对论坛的繁荣而不断努力，或多次提出建设性意见

    • 优秀版主

      活跃且尽责职守的版主

    • 荣誉管理

      曾经为论坛做出突出贡献目前已离职的版主

    • 论坛元老

      为论坛做出突出贡献的会员

    关注0

    粉丝2

    帖子10474

    最新素材上传
    推荐下载
    友情链接 交换友情链接请联系传奇GM论坛版本库客服
    官方微信 关注官方微信
    加入QQ群 加入技术交流群
    热门素材
    传奇武器
    传奇铠甲
    套装素材
    常用素材
    传奇界面
    传奇首饰
    传奇称号
    其它素材
    光柱特效
    翅膀特效
    盾牌素材
    新手指南
    进入论坛
    新手注册
    积分查询
    快捷导读
    最新热门
    最新发帖
    回复我的

    联系我们

    客服QQ : 80558827 客服电话 : 130xxxxxxxx

    Archiver|会员加入| 热血传奇版本库GM部落论坛 ( 赣ICP备2022008660号-4 |赣公网安备36050202000600号 ) |网站地图

    Powered by Discuz! X3.5 Copyright © 传奇版本库

    扫一扫加群沟通交流
    首页 论坛 !mobpost! 最新 我的