登录
×
  • 首页
  • 传奇论坛
  • 传奇版本库
  • 传奇服务端
  • 传奇三端手游
  • 传奇素材网
  • 传奇客户端
  • 下载排行
  • 获取邀请码
  • 搜索
    传奇素材网
    210800

    [GEE引擎] GEE引擎宠物洗练脚本范例,GEE复古传奇版本通过洗炼提升宠物功能脚本。

     火... [复制链接]

    [GEE引擎] GEE引擎宠物洗练脚本范例,GEE复古传奇版本通过洗炼提升宠物功能脚本。

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

    1万

    主题

    17

    回帖

    11万

    积分

    管理员

    积分
    112339

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

    趣游论坛 2020-1-14 16:32:02 / 显示全部楼层 /阅读模式
    210800
    20200114153144.png
    先新建一个宠物洗练-3.txt,然后加入以下脚本。

    [@main]
    #IF
    #ACT
    OPENMERCHANTBIGDLG 11 140 1 4 0 0 1 436 2
    #SAY
    \<ItemShow:1373:0:41:34:1><ItemShow:1374:0:59:34:1><ItemShow:1375:0:77:34:1><ItemShow:1376:0:95:34:1><ItemShow:1377:0:113:34:1><ItemShow:1378:0:131:34:1>\ \
    \<ImgEx:11:135:136:137:164:70|250#信息小助手^250#灵魂骑士^251#闪电侠^168#神奇女侠^254#小丑女^158#星爵^158#蜘猪侠^158#机器猫^70#洛基^255#收集上述八件物品合成:^251#可随机合成展示出来的六个神宠/@合成永恒之心>


    \ \ \ \ \ \ \ \
    <Text:将宠物放入右侧框中:-5:0{FCOLOR=149}>  <Text:帮您洗练资质与契合度:185:0{FCOLOR=215}>\  \
    <Text:将宠物放入右侧框中:-5:0{FCOLOR=149}>  <Text:每次洗练需要10000永恒石:180:0{FCOLOR=215}>\ \
    <ITEMBOX:6:17:362:198:172:50:50:28:放入可洗练的宠物>      \ \  
    \                            <【洗练宠物】/@宠物重生> \


    [@合成永恒之心]
    #IF
    CHECKITEM 灵魂骑士 1
    CHECKITEM 闪电侠 1
    CHECKITEM 神奇女侠 1
    CHECKITEM 小丑女 1
    CHECKITEM 星爵 1
    CHECKITEM 蜘猪侠 1
    CHECKITEM 机器猫 1
    CHECKITEM 洛基 1
    #ACT
    TAKE 灵魂骑士 1
    TAKE 闪电侠 1
    TAKE 神奇女侠 1
    TAKE 小丑女 1
    TAKE 星爵 1
    TAKE 蜘猪侠 1
    TAKE 机器猫 1
    TAKE 洛基 1
    goto @给物品
    break
    #ELSEACT
    MESSAGEBOX 1.你没有:灵魂骑士.\2.你没有:闪电侠.\3.你没有:神奇女侠.\4.你没有:小丑女.\5.你没有:星爵.\6.你没有:蜘猪侠.\7.你没有:机器猫\8.你没有:洛基





    [@给物品]

    #if
    #act
    movr N$给予属性 0 15



    #or
    equal N$给予属性 3
    equal N$给予属性 6
    equal N$给予属性 9
    equal N$给予属性 12
    equal N$给予属性 15
    #act
    GIVE 钢铁侠 1
    SENDMSG 0 {实时消息:|249:0:1}玩家[{%s|254:0:1}]通过[{训宠师|250:0:1}]锻造出[{钢铁侠|168:0:1}]. 255 0
    break


    #or
    equal N$给予属性 1
    equal N$给予属性 4
    equal N$给予属性 7
    equal N$给予属性 11
    #act
    GIVE 雷神 1
    SENDMSG 0 {实时消息:|249:0:1}玩家[{%s|254:0:1}]通过[{训宠师|250:0:1}]锻造出[{雷神|168:0:1}]. 255 0
    break

    #or
    equal N$给予属性 2
    equal N$给予属性 5
    equal N$给予属性 8
    #act
    GIVE 绿巨人 1
    SENDMSG 0 {实时消息:|249:0:1}玩家[{%s|254:0:1}]通过[{训宠师|250:0:1}]锻造出[{绿巨人|168:0:1}]. 255 0
    break

    #or
    equal N$给予属性 0
    equal N$给予属性 13
    #act
    GIVE **队长 1
    SENDMSG 0 {实时消息:|249:0:1}玩家[{%s|254:0:1}]通过[{训宠师|250:0:1}]锻造出[{**队长|168:0:1}]. 255 0
    break


    #or
    equal N$给予属性 14
    equal N$给予属性 10
    #act
    GIVE 黑豹 1
    SENDMSG 0 {实时消息:|249:0:1}玩家[{%s|254:0:1}]通过[{训宠师|250:0:1}]锻造出[{黑豹|168:0:1}]. 255 0
    break




























    [@ItemIntoBox6]
    #if
    NOT CompareText <$BOXITEM[6].NAME> 灵魂骑士
    NOT CompareText <$BOXITEM[6].NAME> 闪电侠
    NOT CompareText <$BOXITEM[6].NAME> 神奇女侠
    NOT CompareText <$BOXITEM[6].NAME> 小丑女
    NOT CompareText <$BOXITEM[6].NAME> 星爵
    NOT CompareText <$BOXITEM[6].NAME> 蜘猪侠
    NOT CompareText <$BOXITEM[6].NAME> 机器猫
    NOT CompareText <$BOXITEM[6].NAME> 洛基
    NOT CompareText <$BOXITEM[6].NAME> 钢铁侠
    NOT CompareText <$BOXITEM[6].NAME> 雷神
    NOT CompareText <$BOXITEM[6].NAME> 绿巨人
    NOT CompareText <$BOXITEM[6].NAME> **队长
    NOT CompareText <$BOXITEM[6].NAME> 黑豹
    NOT CompareText <$BOXITEM[6].NAME> 苏大强
    #act
    UNALLOWITEMINTOBOX
    messagebox 请放入宠物!
    break



    [@宠物重生]
    #if
    equal <$BOXITEM[6].NAME>
    #act
    UNALLOWITEMINTOBOX
    messagebox 请先放入宠物!
    break

    #if
    NOT CompareText <$BOXITEM[6].NAME> 灵魂骑士
    NOT CompareText <$BOXITEM[6].NAME> 闪电侠
    NOT CompareText <$BOXITEM[6].NAME> 神奇女侠
    NOT CompareText <$BOXITEM[6].NAME> 小丑女
    NOT CompareText <$BOXITEM[6].NAME> 星爵
    NOT CompareText <$BOXITEM[6].NAME> 蜘猪侠
    NOT CompareText <$BOXITEM[6].NAME> 机器猫
    NOT CompareText <$BOXITEM[6].NAME> 洛基
    NOT CompareText <$BOXITEM[6].NAME> 钢铁侠
    NOT CompareText <$BOXITEM[6].NAME> 雷神
    NOT CompareText <$BOXITEM[6].NAME> 绿巨人
    NOT CompareText <$BOXITEM[6].NAME> **队长
    NOT CompareText <$BOXITEM[6].NAME> 黑豹
    NOT CompareText <$BOXITEM[6].NAME> 苏大强
    #act
    UNALLOWITEMINTOBOX
    messagebox 请放入宠物!
    break

    #if
    CHECKGAMEDIAMOND < 10000
    #act
    MESSAGEBOX 永恒石不足10000!
    break

    #IF
    CompareText <$BOXITEM[6].NAME> 苏大强
    #ACT
    MOVR N$宠物资质 100000 500001
    MOVR N$宠物契合 500 1001

    #IF
    CompareText <$BOXITEM[6].NAME> 黑豹
    #ACT
    MOVR N$宠物资质 50000 250001
    MOVR N$宠物契合 250 701


    #IF
    CompareText <$BOXITEM[6].NAME> **队长
    #ACT
    MOVR N$宠物资质 40000 200001
    MOVR N$宠物契合 200 501


    #IF
    CompareText <$BOXITEM[6].NAME> 绿巨人
    #ACT
    MOVR N$宠物资质 30000 150001
    MOVR N$宠物契合 150 401


    #IF
    CompareText <$BOXITEM[6].NAME> 雷神
    #ACT
    MOVR N$宠物资质 20000 100001
    MOVR N$宠物契合 120 301


    #IF
    CompareText <$BOXITEM[6].NAME> 钢铁侠
    #ACT
    MOVR N$宠物资质 10000 50001
    MOVR N$宠物契合 100 201

    #IF
    CompareText <$BOXITEM[6].NAME> 洛基
    #ACT
    MOVR N$宠物资质 8000 30001
    MOVR N$宠物契合 80 151

    #IF
    CompareText <$BOXITEM[6].NAME> 机器猫
    #ACT
    MOVR N$宠物资质 7000 25001
    MOVR N$宠物契合 70 131

    #IF
    CompareText <$BOXITEM[6].NAME> 蜘猪侠
    #ACT
    MOVR N$宠物资质 6000 20001
    MOVR N$宠物契合 60 111

    #IF
    CompareText <$BOXITEM[6].NAME> 星爵
    #ACT
    MOVR N$宠物资质 5000 15001
    MOVR N$宠物契合 50 96

    #IF
    CompareText <$BOXITEM[6].NAME> 小丑女
    #ACT
    MOVR N$宠物资质 4000 10001
    MOVR N$宠物契合 40 76

    #IF
    CompareText <$BOXITEM[6].NAME> 神奇女侠
    #ACT
    MOVR N$宠物资质 3000 8001
    MOVR N$宠物契合 30 61

    #IF
    CompareText <$BOXITEM[6].NAME> 闪电侠
    #ACT
    MOVR N$宠物资质 2000 6001
    MOVR N$宠物契合 20 46

    #IF
    CompareText <$BOXITEM[6].NAME> 灵魂骑士
    #ACT
    MOVR N$宠物资质 1000 4001
    MOVR N$宠物契合 10 31



    #IF
    large N$宠物资质 0
    large N$宠物契合 0
    #ACT
    GAMEDIAMOND - 10000
    SetUpgradeItem 6
    SetCustomItemAbil boxitem6 1 0 215
    SetCustomItemAbil boxitem6 1 1 19
    SetCustomItemAbil boxitem6 1 2 1
    SetCustomItemAbil boxitem6 1 3 0
    SetCustomItemValue boxitem6 1 = <$STR(N$宠物资质)>
    SetCustomItemAbil boxitem6 2 0 215
    SetCustomItemAbil boxitem6 2 1 20
    SetCustomItemAbil boxitem6 2 2 2
    SetCustomItemAbil boxitem6 2 3 0
    SetCustomItemValue boxitem6 2 = <$STR(N$宠物契合)>
    ChangeItemUpgradeCount boxitem6 = 9
    UpdateItem boxitem6
    ReturnBoxItem 6
    MOV N$宠物资质
    MOV N$宠物契合
    break


    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    扫一扫加群沟通交流

    首页 论坛 !mobpost! 最新 我的