海盗社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 18786|回复: 0

物品转移脚本

[复制链接]

93

主题

97

帖子

406

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
406
发表于 2018-5-10 16:42:29 | 显示全部楼层 |阅读模式
6933        石中盐        q0042        bluestone01        0        0        0        0        0        00        31        0        0        0        0        0        1        1        1        1        999        0        100000000        -1        0        -1        0        0        -1        -1        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0,0        0        0        0,0        0        0        0        0        0        0        0        0        0        Item_zhuanyi1        0        0        0        0        0        0        神器 专用 道具 双击道具转移背包第一个格子宝石到第二个格子(覆盖原有),需要数量等于精练等级。

function Item_zhuanyi1(role,Item)
        local item115=GetChaItem ( role , 2 , 0 )

        local itemresettype=GetItemType(item115)

       
        if (itemresettype>=1 and itemresettype<=10) or (itemresettype>=20 and itemresettype<=24) or itemresettype==27 then
                local Jinglianxinxi = GetItemForgeParam ( item115 , 1 )
                local Item_mainitem=GetChaItem ( role , 2 , 1 )
                local Jinglianxinxi2 = GetItemForgeParam ( Item_mainitem , 1 )
                local Item_mainitemtype=GetItemType(Item_mainitem)
                if Item_mainitemtype==itemresettype then
                        local Item_Stone = {}
                        local Item_StoneLv = {}
                        local Item_StoneID = {}
                        local JinglianLv=0
                        Num = TansferNum ( Jinglianxinxi )
                        -------宝石类型      
                        Item_Stone[0] = GetNum_Part2 ( Num )
                        Item_Stone[1] = GetNum_Part4 ( Num )
                        Item_Stone[2] = GetNum_Part6 ( Num )
                        -------宝石等级
                        Item_StoneLv[0] = GetNum_Part5 ( Num )
                        Item_StoneLv[1] = GetNum_Part7 ( Num )
                        Item_StoneLv[2] = GetNum_Part9 ( Num )
         
                        JinglianLv = Item_StoneLv[0] + Item_StoneLv[1] + Item_StoneLv[2]
                       
                        ----判断数量是否足够 Item_StoneLv[0]
                        local jz_count= CheckBagItem ( role , 6933 ) --检查卷轴数量
                        SystemNotice(role,"jz_count="..jz_count)
                        if jz_count>=JinglianLv and Item_StoneLv[0]>0 then
                                       
                                        local c_gd=GetChaAttr(role,ATTR_GD)
                                       
                                        if c_gd>=10000000 then
                                       
                                                TakeItem( role, 0, 6933,JinglianLv )
                                               
                                                ----------为新装备精炼属性 追加
                                         
                                                SetItemForgeParam ( Item_mainitem , 1 , Num )
                                                SetItemForgeParam ( item115 , 1 , 0 )
                                               
                                       
                                       
                                                SynChaKitbag(role,13)
                                               
                                                Notice("恭喜!<"..GetChaDefaultName(role)..">通过<宝石转移卷轴>将<"..GetItemName(GetItemID(item115))..">的精练属性转移到<"..GetItemName(GetItemID(Item_mainitem))..">!")
                                               
                                                UseItemFailed(role)
                                        else
                                       
                                                SystemNotice(role,"转移需要<1E>游戏币,数量不足")
                                                UseItemFailed(role)
                                                return
                                        end
                                       
                                 
                        else
                                SystemNotice(role,"转移需要<"..JinglianLv..">个卷轴,数量不足或者当前装备没有精练属性")
                                UseItemFailed(role)
                                return
                       
                        SystemNotice(role,"只有相同类型装备和武器的精练属性才可以被转移")
                        UseItemFailed(role)
                        return
                end
        else
                SystemNotice(role,"只有普通装备和武器才可以被转移")
                UseItemFailed(role)
                return
        end
end


回复

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|海盗社区

GMT+8, 2019-12-6 19:14 , Processed in 0.068684 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表