铁血丹心

 找回密码
 我要成为铁血侠客
搜索
查看: 1678|回复: 2

谁教我写一个全员等级最大化,能力最大成长的代码

[复制链接]
发表于 2012-5-13 11:04 | 显示全部楼层 |阅读模式

马上注册,结交更多侠友!

您需要 登录 才可以下载或查看,没有账号?我要成为铁血侠客

x
本帖最后由 710541994 于 2012-5-13 11:05 编辑

--人物等级最大化
local function MaxStatus()
---[[
        local maxFlag = false;
        for i = 1,6 do
                local manaMax = 0;
                local absorbFlag = false;
               
                local pid = JY.Base["队伍"..i];
                if pid >= 0        and JY.Person[pid]["声望"] ~= 100 then--该位置有队员且未能力最大化
                        while JY.Person[pid]["等级"] ~= 30 do        --先判断是否满级
                                JY.Person[pid]["经验"] = CC.Exp[#CC.Exp];
                                War_AddPersonLVUP(pid);
                        end
                        
                        JY.Person[pid]["生命最大值"] = 999;        --生命最大化

                        if JY.Person[pid]["姓名"] ~= "零二七" or JY.Person[pid]["姓名"] ~= "段誉" then
                                manaMax = 9500-(math.floor((JY.Person[pid]["资质"]-1)/15)*750);
                        else
                                manaMax = 10000;
                        end
        
                        for i = 1,10 do
                                if JY.Person[pid]["武功"..i] == 85 or JY.Person[pid]["武功"..i] == 88 then
                                        absorbFlag = true;
                                end
                        end

                        if absorbFlag == true then
                                manaMax = manaMax + 750;
                                if manaMax >10000 then
                                        manaMax = 10000;
                                end
                        end

                        JY.Person[pid]["内力最大值"] = manaMax;        --内力最大化
                        
                        --医疗能力最大化
                        if JY.Person[pid]["医疗能力"] >= 20 then
                                if pid == 16 or pid ==28 or pid ==45 then
                                        JY.Person[pid]["医疗能力"] = 500;
                                elseif pid == 85 or (pid == 0 and GetS(4,5,5,5) == 7) then
                                        JY.Person[pid]["医疗能力"] = 400;
                                else
                                        JY.Person[pid]["医疗能力"] = 240;
                                end
                        end
                        --用毒能力最大化
                        if JY.Person[pid]["用毒能力"] >= 20 then
                                if pid == 17 or pid ==25 or pid ==83 or (pid == 0 and GetS(4,5,5,5) == 7) then
                                        JY.Person[pid]["用毒能力"] = 400;
                                elseif pid == 2 then
                                        JY.Person[pid]["用毒能力"] = 500;
                                else
                                        JY.Person[pid]["用毒能力"] = 240;
                                end
                        end
                        --解毒能力最大化
                        if JY.Person[pid]["解毒能力"] >= 20 then
                                JY.Person[pid]["解毒能力"] = 240;
                        end
                        
                        JY.Person[pid]["声望"] = 100;
                        DrawStrBoxWaitKey(string.format("%s 能力最大化",JY.Person[pid]["姓名"]),C_WHITE,CC.DefaultFont);
                        maxFlag = true;
                end
        end
        if maxFlag == false then
                QZXS("全员已经能力最大化");
        end
        instruct_12();
--]]
end

--人物武功升为极
local function SkillLevel()
---[[
        instruct_0();
        DrawStrBox(CC.MainSubMenuX,CC.MainSubMenuY,"要提升谁的武功",C_WHITE,CC.DefaultFont);
               
        local teamMenu = {};        --菜单生成
        for i=1,6 do
                teamMenu = {"",nil,0};
                local pid = JY.Base["队伍"..i];
                if pid>=0 then
                        teamMenu[1] = JY.Person[pid]["姓名"];
                        teamMenu[3] = 1;
                end
        end
        
    local r = ShowMenu(teamMenu,6,0,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
        local personSelect = JY.Base["队伍"..r];
        
        if r > 0 then
                instruct_0();
                DrawStrBox(CC.MainSubMenuX,CC.MainSubMenuY,"要提升哪个武功的等级",C_WHITE,CC.DefaultFont);
        
                local skillMenu = {};        --菜单生成
                local menuDis = false;        --是否显示菜单
                for i=1,10 do
                        skillMenu = {"",nil,0};
                        local sid = JY.Person[personSelect]["武功"..i];
                        local slv = JY.Person[personSelect]["武功等级"..i];
                        if sid>0 and slv >= 900 and slv <=998 then
                                skillMenu[1] = JY.Wugong[sid]["名称"];
                                skillMenu[3] = 1;
                                menuDis = true;
                        end
                end
               
                instruct_0();
                if menuDis == true then
                        local s = ShowMenu(skillMenu,10,0,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
                        if s > 0 then
                                local skillSelect = JY.Person[personSelect]["武功"..s];
                                JY.Person[personSelect]["武功等级"..s] = 999;
                                DrawStrBoxWaitKey(string.format("%s %s 等级提升为极",JY.Person[personSelect]["姓名"],JY.Wugong[skillSelect]["名称"]),C_WHITE,CC.DefaultFont);
                        end
                else
                        DrawStrBoxWaitKey(string.format("%s 没有武功可以提升",JY.Person[personSelect]["姓名"]),C_WHITE,CC.DefaultFont);
                end
        end
        instruct_0();
--]]
end
为什么这段代码复制到源码版里没有用,各位前辈,教教我
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。
发表于 2012-5-15 21:14 | 显示全部楼层
找到国庆版可DIY那个贴,大概在第三页(电脑上)有个附件,你拿去参考,手机不方便
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。
 楼主| 发表于 2012-5-17 12:19 | 显示全部楼层
我的就是那段代码,我想把这段代码放到源码版里,但又不想全屏,该怎么办
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。

本版积分规则

小黑屋|手机版|铁血丹心

GMT+8, 2024-5-19 08:01

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

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