LUA腳本 隊長補魔30點、整理包包 GA0310可用



  • (同步發至妖城論壇)

    最近回妖城 又開始研究魔力=""= 之前不熟LUA 完全不敢碰

    這幾天摸索了一下,到處爬文....拼命看GA函數庫
    把內置 戰鬥結束祝福腳本 做了一些修改
    高手就勿噴了><~~

    一開始 登出就失效 不知道為啥...現在算可以運作了

    測試 20160310 GA 可以運行

    0_1460484574266_未命名777.jpg

    目前成品=>
    1.組滿5人時 隊長會有補魔30點 (尚未增加 戰鬥型態判定)
    2.可以下 開關指令 不要聽到提示
    3.可以整理包包

    下方亂碼處 是GBK变量,因為GA沒有出BIG5版 但是我還是盡量繁體化
    所以GBK变量必須要維持系統看的懂

    ////
    另外我想請問一下>< 有哪個語法 可以攔截 講話的內容 讓他執行LUA後 攔截 不要顯示出來

    例如 /私聊 某某某 你好嗎 四周的人 都看的到這句話 很奇怪

    我想要 輸入 /partoff 遊戲畫面不會顯示出來......../partoff

    ////

    tbl_partPlayer = {};--建立函數
    local part_on_key = "組隊提示開啟"; --開啟提示
    local part_off_key = "組隊提示關閉"; --關閉提示

    Delegate.RegDelLoginEvent("NewbieBlessLoginEvent");--登入事件
    Delegate.RegDelAllOutEvent("NewbieBlessOutEvent");--登出事件
    Delegate.RegDelDropEvent("NewbieBlessDropEvent");--掉線事件

    Delegate.RegDelBattleOverEvent("NewbieBless_BattleOver"); --戰鬥事件
    Delegate.RegDelTalkEvent("NewbieBlessTalkEvent");--說話事件

    function new_NewbieBlessplayerobject(player)
    local NewbieBlessplayer =
    {
    index = player;
    isopen = true;
    };
    return NewbieBlessplayer;
    end;

    --角色登入
    function NewbieBlessLoginEvent(player)
    tbl_partPlayer[Playerkey(player)] = new_NewbieBlessplayerobject(player);
    end;
    --角色登出
    function NewbieBlessOutEvent(player)
    tbl_partPlayer[Playerkey(player)] = nil;
    end;
    --角色掉線
    function NewbieBlessDropEvent(player)
    tbl_partPlayer[Playerkey(player)] = nil;
    end;

    function NewbieBlessTalkEvent(player,msg)

        if(msg=="組隊提示開啟" or msg=="開啟組隊提示" or msg=="/parton") then
                NLG.SystemMessage(player,"組隊獎勵提示已經開啟。");
                tbl_partPlayer[Playerkey(player)].isopen = true;
    
    
        elseif(msg=="組隊提示關閉" or msg=="開啟組隊關閉" or msg=="/partoff") then
                NLG.SystemMessage(player,"組隊獎勵提示已經關閉。");
                tbl_partPlayer[Playerkey(player)].isopen = false;
    
    
        elseif(msg=="整理包包" or msg=="整理" or msg=="/item" and player ~= -1) then
                NLG.SystemMessage(player,"包包已經整理。");
               NLG.SortItem(player);
        return 0
    
    
        end;
    

    end;

    function NewbieBless_BattleOver(_battle,_BattleIndex,player)
    local player = Battle.GetPlayer(_battle,0);

        if(player == -1) then
    
        return 0
    
    
        elseif(Char.PartyNum(Battle.GetPlayer(_battle,0)) >= 5) then
    

    -- local player = Battle.GetPlayer(_battle,0);
    Char.SetData(player,%勤砓_藹%,Char.GetData(player,%勤砓_藹%)+30);

                        if(tbl_partPlayer[Playerkey(player)].isopen == true)then
                        NLG.SystemMessage(player,"[隊長獎勵]"..Char.GetData(player,%勤砓_靡趼%).."回復了30點魔力");
                        end;
    
                        end;
    

    end;


登录后回复