分享一个新框架下刷宠物满档的LUA

shitony2002

--local GM = Char.GetData(player,%对象_GM%);--获得玩家GM数据
        if check_msg(msg,"/md") then  --快捷满档                              
                --if GM >= 1 then  --判断GM权限 ，如果值为0，则拥有GM权限可以满档
                        local _PetIndex = Char.GetPet(player,0);   --获取玩家宠物数据                    
                        if _PetIndex >= 0 then              --判断是否有宠物         
                                if(Char.GetData(_PetIndex,%对象_等级%) > 1) then   --判断宠物等级 是否高于1级            
                                        NLG.SystemMessage(player,"[系统]无法对非1级宠物进行洗档!");      
                                        return 0;      
                                end               
                                Pet.SetArtRank(_PetIndex,%宠档_体成%,Pet.FullArtRank(_PetIndex,%宠档_体成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_力成%,Pet.FullArtRank(_PetIndex,%宠档_力成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_强成%,Pet.FullArtRank(_PetIndex,%宠档_强成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_敏成%,Pet.FullArtRank(_PetIndex,%宠档_敏成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_魔成%,Pet.FullArtRank(_PetIndex,%宠档_魔成%));               
                                Pet.ReBirth(player, _PetIndex);               
                                NLG.SystemMessage(player,"[系统]你第一栏宠物已经满档。");               
                        else                       
                                NLG.SystemMessage(player,"[系统]你第一栏没有宠物。");
                            return 0                                                               
                        end                       
                --else
                        --NLG.SystemMessage(player, "[系统]您不是管理员无法使用满档命令。")
                --end
        end  
        return 1--一定要留着，不然全服不能说话
end

附注1：该LUA在phpstudy+cgmsv_24.5d 整合端亲自验证可行，但没有在phpstudy+cgmsv_24.10e 整合端验证过，但是在phpstudy+cgmsv_24.5d 整合端里的neigua.LuA和ng_index LUA都是从phpstudy+cgmsv_24.10e 整合端里移植过来的，所以理论上在phpstudy+cgmsv_24.10e 整合端这个满档LUA也能正常运行，但是都要满足附注2的以下条件：
*************
附注2：
1.以上LUA脚本借鉴了老框架下的满档LUA，做了适当修改，具有监测GM权限的功能（把 "--" 符号取消即可生效）
2.把上面满档LUA程序复制到阿欣大佬做的neigua.LuA里面，复制添加位置在其中的 “卸载模块钩子” 前面添加即可，重启CGMSV后登录游戏，可以直接在聊天窗口输入/md实现功能。
3.在阿欣大佬做的ng_index LUA 里加了一条 {"28、宠物满档 | /md","neigua","/md"},--已匹配，可以实现菜单选择，完成同等功能。
4.在ModuleConfig.lua把 loadModule('neigua')--内挂  和  loadModule('ng_index')--内挂菜单 前面的  “- -” 去掉
5.在ModuleConfig.lua把 loadModule('ng')前面加上 “- -”，关闭此LUA以防和前面两个LUA产生冲突。



声明：以上LUA仅供单机玩家研究娱乐使用，如私自商用，产生侵权后果，本人概不负责，谢谢。

测试创作不易，请大家收藏回复，谢谢

shitony2002

另外发现一个功能，就是对同一个宠物反复使用刷满档功能，可是刷不同属性参数的满档值，比如你需要满档的魔宠，就把魔法那个属性值刷到相对最高点即可，打开宠物属性窗口，不停的刷，看对应值的变化，到一个你觉得最高值即可。刷其它需要的五围属性值以此类推。

ld1573

我按照你这个搞了  无效啊/md没反应
                if Char.GetData(player,%对象_打卡%) == 1 and Char.GetData(player,%对象_金币%) >= dkjg then
                        Char.AddGold(player,-dkjg)
                        Char.FeverStop(player)
                        NLG.UpChar(player)
                        NLG.SystemMessage(player, "停止打卡成功。")
                        return 0
                end
                if Char.GetData(player,%对象_金币%) < dkjg then
                        NLG.SystemMessage(player,'你的钱不够，远程打卡收费价格为：'..dkjg..'魔币/次。')
                        return 0
                end
        end
        if msg == '/22' or msg == '、22' then--检查称号和声望一次
                Char.CheckTitle(player)
                NLG.SystemMessage(player,'称号刷新成功，你的声望值为：'..Char.GetData(player,%对象_声望%)..'。')
                return 0
        end

        return 1--一定要留着，不然全服不能说话
end

function neiguaModule:dianji(npc,player,seq,sel,data)--窗口中点击触发，内挂主菜单观战用
        --print("seq："..seq)
        --print("sel："..sel)
        --print("data："..data)
        if sel == 2 and seq == player+766999 then
                getModule('ng_index'):playersay(player,'、、')--主窗口lua功能，用不到请注释，功能参考http://bbs.cnmlb.com:233/thread-109-1-1.html
        elseif sel == 1 and seq == player+766999 then
                neiguaModule:wanjiashuohua(player,data)
        end
end
--local GM = Char.GetData(player,%对象_GM%);--获得玩家GM数据
        if check_msg(msg,"/md") then  --快捷满档                              
                if GM >= 1 then  --判断GM权限 ，如果值为0，则拥有GM权限可以满档
                        local _PetIndex = Char.GetPet(player,0);   --获取玩家宠物数据                    
                        if _PetIndex >= 0 then              --判断是否有宠物         
                                if(Char.GetData(_PetIndex,%对象_等级%) > 1) then   --判断宠物等级 是否高于1级            
                                        NLG.SystemMessage(player,"[系统]无法对非1级宠物进行洗档!");      
                                        return 0;      
                                end               
                                Pet.SetArtRank(_PetIndex,%宠档_体成%,Pet.FullArtRank(_PetIndex,%宠档_体成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_力成%,Pet.FullArtRank(_PetIndex,%宠档_力成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_强成%,Pet.FullArtRank(_PetIndex,%宠档_强成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_敏成%,Pet.FullArtRank(_PetIndex,%宠档_敏成%));               
                                Pet.SetArtRank(_PetIndex,%宠档_魔成%,Pet.FullArtRank(_PetIndex,%宠档_魔成%));               
                                Pet.ReBirth(player, _PetIndex);               
                                NLG.SystemMessage(player,"[系统]你第一栏宠物已经满档。");               
                        else                       
                                NLG.SystemMessage(player,"[系统]你第一栏没有宠物。");
                            return 0                                                               
                        end                       
                --else
                        --NLG.SystemMessage(player, "[系统]您不是管理员无法使用满档命令。")
                --end
        end  
        return 1--一定要留着，不然全服不能说话
end
--卸载模块钩子
function neiguaModulenUnload()
  self:logInfo('unload')
end

return neiguaModule