[KT] Chỉnh sửa hàm trong túi này
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 2 của 2
  1. #1
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Chỉnh sửa hàm trong túi này

    trong đây cái hàm nhận mtcc là nhận không giới hạng giờ muốn chĩnh cho nhận 1 lần giống mấy thứ kia thì sửa ntn các bạn chỉ dùm


    PHP Code:
    --脨脗脢脰脌帽掳眉拢潞赂拢脌没掳忙脥脝鲁枚潞贸拢卢脣霉脫脨脨脗脥忙录脪驴脡脪脭脕矛脠隆脪禄赂枚脨脗脢脰脌帽掳眉拢卢脙驴碌陆脪禄露篓碌脠录露戮霉驴脡麓脫脨脗脢脰脌帽掳眉脰脨禄帽碌脙脪禄露篓脢媒脕驴碌脛陆冒脟庐录露碌脌戮脽陆卤脌酶拢卢脳脺录脹脰碌100RMB+

    SpecialEvent.NewPlayerGift = {};
    local NewPlayerGift SpecialEvent.NewPlayerGift;
    NewPlayerGift.IS_OPEN    EventManager.IVER_bOpenNewPlayerGift;
    NewPlayerGift.TASK_GROUP_ID 2034;
    NewPlayerGift.TASK_CURRENT_INDEX 10;

    NewPlayerGift.OPEN_DAY 20000; --Thời gian hiệu lực của túi từ khi mở serversau số lượng ngày này túi sẽ ko xuất hiện nữa

    NewPlayerGift
    .SERVER_OPEN_DAY 20090605; -- 脮芒脤矛脰庐潞贸驴陋碌脛路镁虏脜脛脺

    NewPlayerGift
    .SHOW_OPTION_UNTIL 20090825; -- 脰禄脭脷脮芒脤矛脰庐脟掳脧脭脢戮脩隆脧卯


    NewPlayerGift
    .tbData = {
        [
    1] = {1, -- 脣霉脨猫碌脠录露
            
    {{18,1,195,},1nil7*24*60}, -- {{脦茂脝路GDPL}, 赂枚脢媒GenInfo(驴脡脩隆), 脢卤脧脼}
            {
    "BindMoney"50000},
            {
    "BindCoin"50000},
            },
        [
    2] = {10
            {{
    18,1,85,1},1},
            {
    "BindMoney"50000},
            {
    "BindCoin"50000},
            },
        [
    3] = {20,
            {{
    18,1,71,2},2},
            {{
    18,1,392,1},2,10},
            {
    "BindMoney"50000},
            {
    "BindCoin"50000},
            },
        [
    4] = {30,
            {{
    18,1,113,1},1},
            {{
    18,1,2,3},1},
            {
    "BindMoney"50000},
            {
    "BindCoin"50000},
            },
        [
    5] = {40,
            {
    "BindCoin",1000},
            {{
    18,1,114,4},10nil30*24*60}
            },
        [
    6] = {50,
            {{
    21,5,1,1},1},
            {
    "BindMoney"200000},
            },
        [
    7] = {60,
            {
    "BindCoin"2000},
            {{
    18,1,393,1},5},
            },
        [
    8] = {69,
            {{
    18,1,114,7},2nil30*24*60},
            {{
    18,1,394,1},5},
            },
        [
    9] = {79,
            {{
    18,1,394,1},10},
            {{
    18,1,212,1},2},
            },
        [
    10] = {89,
            {{
    18,1,394,1},10},
            {{
    18,1,212,1},3},
            },
        [
    11] = {99,
            {{
    18,1,395,1},2},
            },
    };

    -- 
    脤篓脥氓掳忙赂脛露炉
    if (IVER_g_nTwVersion == 1then
    NewPlayerGift
    .tbData = {
        [
    1] = {1, -- 脣霉脨猫碌脠录露
            
    {{18,1,71,1},2},
            {{
    18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
            
    {"BindCoin",50},
            {
    "BindMoney"500},
            },
        [
    2] = {10
            {{
    18,1,71,1},3},
            {{
    18,1,77,1},2},    -- 脥颅脭驴鲁脳
            
    {{18,1,85,1},1},    -- 脟卢脌陇路没
            
    {"BindCoin",100},
            {
    "BindMoney"1000},
            },
        [
    3] = {20,
            {{
    18,1,114,2},10},    -- 2录露脨镁戮搂
            
    {{18,1,24,1},3},    -- 戮脜脳陋脨酶脙眉脥猫
            
    {{18,1,71,1},3},
            {
    "BindCoin",200},
            {
    "BindMoney"2000},        
            },
        [
    4] = {30,
            {{
    18,1,114,3},10},    -- 3录露脨镁戮搂
            
    {{18,1,258,1},2},    -- 脨脼脕露碌陇
            
    {{18,1,113,1},1},    -- 脨隆麓芦脡霉潞拢脗脻
            
    {"BindCoin",300},
            },
        [
    5] = {40,
            {{
    18,1,114,4},10},    -- 3录露脨镁戮搂
            
    {{18,1,258,1},2},    -- 脨脼脕露碌陇
            
    {{18,1,85,1},1},    -- 脟卢脌陇路没
            
    {{18,1,2,3},1},        -- 陆冒脧卢3录露
            
    {"BindCoin",400},
            },
        [
    6] = {50,
            {{
    18,1,258,1},3},    -- 脨脼脕露碌陇
            
    {{21,3,1,1},1},        -- 8赂帽掳眉
            
    {{18,1,113,1},1},    -- 脨隆麓芦脡霉潞拢脗脻
            
    {{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
            
    {"BindCoin"500},
            },
        [
    7] = {60,
            {{
    18,1,114,5},5},    -- 5录露脨镁戮搂
            
    {{18,1,82,1},3},    -- 脪酶脭驴鲁脳
            
    {{18,1,244,1},1},    -- 禄锚脢炉脧盲拢篓100拢漏
            
    {{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
            
    {"BindCoin"600},
            },
        [
    8] = {69,
            {{
    18,1,114,6},3},    -- 6录露脨镁戮搂
            
    {{18,1,82,1},3},    -- 脪酶脭驴鲁脳
            
    {{18,1,258,1},3},    -- 脨脼脕露碌陇
            
    {{18,1,2,4},1},        -- 陆冒脧卢4录露
            
    {{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
            
    {"BindCoin"700},
            },
        [
    9] = {79,
            {{
    18,1,114,6},5},    -- 6录露脨镁戮搂
            
    {{18,1,258,1},3},    -- 脨脼脕露碌陇
            
    {{18,1,212,1},2},    -- 鲁玫录露脝铆赂拢脕卯脜脝
            
    {{18,1,244,1},1},    -- 禄锚脢炉脧盲拢篓100拢漏
            
    {{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
            
    {"BindCoin"800},
            },
        [
    10] = {89,
            {{
    18,1,187,1},2},    -- 陆冒脭驴鲁脳
            
    {{18,1,212,1},2},    -- 鲁玫录露脝铆赂拢脕卯脜脝
            
    {{18,1,114,6},2},    -- 6录露脨镁戮搂
            
    {{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
            
    {{18,1,85,1},1},    -- 脟卢脌陇路没
            
    {{18,1,244,1},10},    -- 禄锚脢炉脧盲拢篓100拢漏
            
    {"BindCoin"900},
            },
        [
    11] = {99,
            {{
    18,1,187,1},3},    -- 陆冒脭驴鲁脳
            
    {{18,1,212,1},3},    -- 鲁玫录露脝铆赂拢脕卯脜脝
            
    {{18,1,114,6},3},    -- 6录露脨镁戮搂
            
    {{18,1,195,1},1,nil,7*24*60}, -- 脪禄脰脺脦脼脧脼麓芦脣脥路没
            
    {{18,1,85,1},1},    -- 脟卢脌陇路没
            
    {{18,1,244,1},10},    -- 禄锚脢炉脧盲拢篓100拢漏
            
    {"BindCoin"2000},
            },
    };    
    end

    NewPlayerGift
    .tbNeededSpace = {};
    NewPlayerGift.tbLevel = {};
    NewPlayerGift.tbAward = {}
    --------------------------------------------------------------------------------
    function 
    NewPlayerGift:Init()
        for 
    itb in ipairs(self.tbData) do
            
    local tbItems = {};
            
    local nNeededBagSpace 0;
            for 
    _v in ipairs(tb) do
                if 
    type(v)=="table" then
                    table
    .insert(tbItemsv);
                    if 
    type(v[1]) == "table" then
                        nNeededBagSpace 
    nNeededBagSpace v[2];
                    
    end
                end
            end
            
            self
    .tbLevel[i] = tb[1];
            
    self.tbNeededSpace[i] = nNeededBagSpace;
            
    self.tbAward[i] = tbItems;
        
    end
    end

    NewPlayerGift
    :Init();

    function 
    NewPlayerGift:GetCurrData(pPlayer)
        
    local nIndex =  pPlayer.GetTask(self.TASK_GROUP_IDself.TASK_CURRENT_INDEX);
        if 
    nIndex >= #self.tbData + 1 then
            
    return nil;
        
    end
        
        
    if nIndex == 0 then
            nIndex 
    1;
            
    pPlayer.SetTask(self.TASK_GROUP_IDself.TASK_CURRENT_INDEX1);
        
    end
        
        
    return self.tbLevel[nIndex], self.tbNeededSpace[nIndex], self.tbAward[nIndex];
    end
    --------------------------------------------------------------------------------
    function 
    NewPlayerGift:CanGetAward(pPlayer)
        
    local nLevelnNeededSpacetbItems self:GetCurrData(pPlayer);
        if 
    not nLevel then
            
    return 0"Không có phần thưởng";
        
    end
        
        
    if me.nLevel nLevel then
            
    return 0string.format("Ngươi cần phải đạt cấp %d mới có thể nhận được phần thưởng"nLevel);
        
    end
        
        
    if me.CountFreeBagCell() < nNeededSpace then
            
    return 0string.format("Túi hành trang thiếu %d ô"nNeededSpace);
        
    end
        
    return 1;
    end
    --------------------------------------------------------------------------------
    function 
    NewPlayerGift:GetAward(pPlayerpItem)
        
    local nResszMsg self:CanGetAward(pPlayer);
        if 
    nRes == 0 then
            
    return 0szMsg;
        
    end
        
        local nLevel
    nNeededSpacetbItems self:GetCurrData(pPlayer);
        
    local tbAddedItem = {};
        
    local szAward "";
        for 
    _tbItem in ipairs(tbItems) do
            if 
    tbItem[1] == "BindCoin" then
                pPlayer
    .AddBindCoin(tbItem[2], Player.emKBINDCOIN_ADD_EVENT);
                
    szAward szAward .. "掳贸露篓".. IVER_g_szCoinName .. tbItem[2] .. ",";
                
    KStatLog.ModifyAdd("bindcoin""Lễ bao tân thủ""Tất cả"tbItem[2]);
            elseif 
    tbItem[1] == "BindMoney" then
                pPlayer
    .AddBindMoney(tbItem[2], Player.emKBINDMONEY_ADD_EVENT);
                
    szAward szAward .. "掳贸脪酶" .. tbItem[2] .. ",";
                
    KStatLog.ModifyAdd("bindjxb""Lễ bao tân thủ""Tất cả"tbItem[2]);
            else
                for 
    1tbItem[2] do
                    
    local pItem pPlayer.AddItem(unpack(tbItem[1]));
                    if 
    tbItem[3then
                        
    --pItem.SetGenInfo(1tbItem[3]);
                        --
    pItem.Sync();
                    
    end
                    
    if tbItem[4then
                        pPlayer
    .SetItemTimeout(pItemtbItem[4], 0)
                    
    end
                    pItem
    .Bind(1);
                    
    szAward szAward .. pItem.szName .. ",";
                
    end
            end
        end
        
        Dbg
    :WriteLog("SpecialEvent.NewPlayerGift"string.format("%s Nhận được vật phẩm %d cấp %s"me.szNamenLevelszAward));
        
    local nIndex =  pPlayer.GetTask(self.TASK_GROUP_IDself.TASK_CURRENT_INDEX);
        
    nIndex nIndex 1;
        
    pPlayer.SetTask(self.TASK_GROUP_IDself.TASK_CURRENT_INDEXnIndex);
        if 
    self.tbLevel[nIndexthen
            pItem
    .SetGenInfo(1self.tbLevel[nIndex]);
            
    pItem.Sync();
        
    end
        
    if nIndex >= #self.tbData + 1 then
            
    pItem.Delete(pPlayer);
            
    pPlayer.Msg("Chúc mừng ngươi đã đạt cấp 99.Ngươi có thể lấy tất cả các vật phẩm trong lễ bao này.");
        
    end
        
    return 1;
    end

    -- 脭脷脮芒赂枚脢卤录盲脰庐脟掳陆篓碌脛潞脜驴脡脪脭驴脡脪脭赂酶脌帽掳眉
    function NewPlayerGift:GetCreateRoleDeadline()
        
    local nServerStartTime KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME);
        return 
    nServerStartTime self.OPEN_DAY 86400;
    end

    function NewPlayerGift:ShowOption()
        if 
    GetTime() <= Lib:GetDate2Time(self.SHOW_OPTION_UNTIL) and
            
    self.SERVER_OPEN_DAY <= tonumber(os.date("%Y%m%d"KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME))) then
            
    return 1;
        
    end
            
    end
    --------------------------------------------------------------------------------
    function 
    NewPlayerGift:OnDialog()
        
    local nResszMsg self:GiveGift();
        if 
    szMsg then
            Dialog
    :Say(szMsg);
        
    end
    end
    --------------------------------------------------------------------------------
    function 
    NewPlayerGift:GiveGift()
        if 
    self.IS_OPEN ~= 1 then
            
    return 0;
        
    end

        
    if (IVER_g_nTwVersion == 0then
            
    --6脭脗5潞脜潞贸驴陋碌脛路镁
            
    if tonumber(os.date("%Y%m%d"KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME))) < self.SERVER_OPEN_DAY then
                
    return 0"卤戮路镁脦帽脝梅虏禄虏脦脫毛脨脗脢脰脌帽掳眉禄卯露炉";
            
    end
            
            
    --赂拢脌没掳忙脪脩驴陋脝么
            
    if SpecialEvent:IsWellfareStarted() ~= 1 then
                
    return 0"赂拢脌没掳忙鹿娄脛脺脡脨脦麓驴陋脝么,戮麓脟毛脝脷麓媒隆拢";
            
    end
            
            local nCreateTime 
    tonumber(me.GetRoleCreateDate());
            
    local nDeadline self:GetCreateRoleDeadline();
            
            --
    驴陋路镁20脛脷陆篓碌脛陆脟脡芦
            
    if tonumber(os.date("%Y%m%d"nDeadline)) < nCreateTime then
                local tbTime 
    os.date("*t"nDeadline);
                return 
    0string.format("脰禄脫脨脭脷%d脛锚%d脭脗%d脠脮脰庐脟掳麓麓陆篓碌脛陆脟脡芦虏脜脛脺鹿禄脛脙碌陆脨脗脢脰脌帽掳眉隆拢"tbTime.yeartbTime.monthtbTime.day);
            
    end
            
            
    if me.GetTask(self.TASK_GROUP_IDself.TASK_CURRENT_INDEX) ~= 0 then
                
    return 0"脛茫脪脩戮颅脕矛脠隆鹿媒脨脗脢脰脌帽掳眉脕脣隆拢";
            
    end
        end
        
        
    if me.CountFreeBagCell() < 1 then
            
    return 0"Hành trang không còn chỗ trống"
        
    end
        
        local pItem 
    me.AddItem(1813511);
        if 
    pItem then
            me
    .SetTask(self.TASK_GROUP_IDself.TASK_CURRENT_INDEX1);
            
    pItem.SetGenInfo(1self.tbLevel[1]);
            
    pItem.Sync();
            
    Dbg:WriteLog("SpecialEvent.NewPlayerGift"string.format("%s Nhận phần thưởng làm quen"me.szName));
        
    end
        
        
    return 1;
    end

    local tbGift 
    Item:GetClass("newplayergift"); 
    tbGift.WULINSHIJIA_STARTTIME 20090922;  
    tbGift.WULINSHIJIA_ENDTIME   20091030;
    tbGift.WULINSHIJIA_ITEM_TIME 30*24*60;

    tbGift.TASK_GROUP_ID 2027;
    tbGift.TASK_GET_BUFF 80;
    tbGift.TASK_GET_YAOPAI 81;
    tbGift.TaskId_Count 1;
    tbGift.Use_Max =1;

    tbGift.TASK_GROUP_ID1 3001;
    tbGift.TASK_GROUP_ID2 3002;
    tbGift.TASK_GROUP_ID3 3003;
    tbGift.TASK_GROUP_ID4 3004;
    tbGift.TASK_GROUP_ID5 3005;
    tbGift.TASK_GROUP_ID6 3006;
    tbGift.TASK_GROUP_ID7 3007;
    tbGift.TASK_GROUP_ID8 3008;


    local tbGift Item:GetClass("newplayergift"); 
    tbGift.tbItemInfo = {
            
    bForceBind=1,
    };  

    --------------------------------------------------------------------------------
    function 
    tbGift:OnUse()
        
    local nCurSec =  Lib:GetDate2Time(tonumber(GetLocalDate("%Y%m%d")));
        
    local nKaifuSec KGblTask.SCGetDbTaskInt(DBTASD_SERVER_STARTTIME);
        
    local nMinSec math.min(nCurSecnKaifuSec);
        
    local nMaxSec math.max(nCurSecnKaifuSec);    
        
    local nItemId it.dwId;
        
    local nItemLevel NewPlayerGift:GetCurrData(me);
        
        
    local tbOpt = {
            {
    "<color=pink>++<color>Hỗ trợ tân thủ <color=pink>++<color>",self.HoTro,self};
            {
    "<color=pink>++<color>Nhận thưởng hàng ngày <color=pink>++<color>",self.NhanThuongHangNgay,self};
            {
    "Để xem sau"},
        };
            if 
    nMaxSec <= Lib:GetDate2Time(self.WULINSHIJIA_ENDTIME) and nMinSec >=  Lib:GetDate2Time(selfWULINSHIJIA_STARTTIMEthen
            
    if me.GetTask(self.TASK_GROUP_IDself.TASK_GET_BUFF) == 0 then
                table
    .insert(tbOpt , {"Chọn Tác Động"self.GetAwardBuff,  self});
            
    end
            
    if me.GetTask(self.TASK_GROUP_IDself.TASK_GET_YAOPAI) == 0 then
                table
    .insert(tbOpt , {"Nhận Quà"self.GetAwardYaopaiself});
            
    end
        end    
        local szMsg 
    "Chào mừng bạn đến với <color=green>Kiếm Thế Bắc Ninh<color> - Dev by <color=blue>Nobita<color>";
        
    Dialog:Say(szMsgtbOpt); 
    end
    --------------------------------------------------------------------------------
    function 
    tbGift:GetAwardBuff()
        
    local szMsg ="";
        
    local nGetBuff me.GetTask(self.TASK_GROUP_IDself.TASK_GET_BUFF);
        if 
    me.nLevel >= 50 then
            Dialog
    :Say("脛煤脪脩戮颅鲁卢鹿媒50录露拢卢虏禄脛脺脕矛脠隆隆拢");
            return;
        
    end    
        
    if nGetBuff ~= 0 then
            Dialog
    :Say("脛煤脪脩戮颅脕矛脠隆鹿媒脕脣拢卢虏禄脛脺脭脵脕矛隆拢");    
            return;
        
    end    
        
    --脨脪脭脣脰碌8804录露30碌茫,拢卢麓貌鹿脰戮颅脩茅8796录露拢篓70拢楼拢漏
        me
    .AddSkillState(8804260 60 Env.GAME_FPS101);
        --
    脛楼碌露脢炉 鹿楼禄梅
        me
    .AddSkillState(3876260 60 Env.GAME_FPS101);    
        --
    禄陇录脳脝卢 脩陋
        me
    .AddSkillState(3858260 60 Env.GAME_FPS101);
        
    me.SetTask(self.TASK_GROUP_IDself.TASK_GET_BUFF1);    
        
    Dialog:Say("脛煤鲁脡鹿娄禄帽碌脙鲁没路茂脟氓脙霉脳麓脤卢脨搂鹿没隆拢");
        return;
    end
    --------------------------------------------------------------------------------
    function 
    tbGift:GetAwardYaopai()
        
    local nGetYaopai =     me.GetTask(self.TASK_GROUP_IDself.TASK_GET_YAOPAI);
        if 
    me.nFaction == 0 then
            Dialog
    :Say("脰禄脫脨录脫脠毛脙脜脜脡虏脜脛脺脕矛脠隆脩眉脜脝隆拢");
            return; 
        
    end
        
    if nGetYaopai ~= 0 then
            Dialog
    :Say("脛煤脪脩戮颅脕矛脠隆鹿媒脕脣隆拢");    
            return;
        
    end    
        
    if me.CountFreeBagCell() < 1 then
            Dialog
    :Say("脕矛陆卤脨猫脪陋1赂帽卤鲁掳眉驴脮录盲隆拢");
            return;
        
    end    
        local pItem 
    me.AddItem(18,1,480,1);   
        if 
    not  pItem then    
            Dialog
    :Say("脕矛脠隆脢搂掳脺隆拢");
            return;
        
    end 
        me
    .SetTask(self.TASK_GROUP_IDself.TASK_GET_YAOPAI,1);
        
    me.SetItemTimeout(pItem30*24*600);
        
    me.PlayerLog(Log.emKPLAYERLOG_TYPE_JOINSPORT"[禄卯露炉]脭枚录脫脦茂脝路"..pItem.szName);        
        
    Dbg:WriteLog("[脭枚录脫脦茂脝路]"..pItem.szNameme.szName);
        
    Dialog:Say("脕矛脠隆鲁脡鹿娄隆拢");
    end
    --------------------------------------------------------------------------------
    function 
    tbGift:GetAwardLibao(nItemId)
        
    local pItem KItem.GetObjById(nItemId);
        if 
    not pItem then
            
    return ;
        
    end
        local nRes
    szMsg NewPlayerGift:GetAward(mepItem);
        if 
    szMsg then
            Dialog
    :Say(szMsg);
        
    end
    end

    tbGift
    .tbSetItem = {
    {{
    2,6,161,10},{2,6,171,10},{2,6,181,10},{2,6,191,10},{2,6,201,10},{2,6,161,10},{2,6,171,10},{2,6,181,10},{2,6,191,10},{2,6,201,10},},--phu
    {{2,7,312,10},{2,7,332,10},{2,7,352,10},{2,7,372,10},{2,7,492,10},{2,7,322,10},{2,7,342,10},{2,7,362,10},{2,7,382,10},{2,7,402,10},},--giay
    {{2,10,628,10},{2,10,332,10},{2,10,652,10},{2,10,372,10},{2,10,392,10},{2,10,322,10},{2,10,342,10},{ 2,10,362,10},{2,10,382,10},{2,10,502,10},},--bao tay
    {{2,5,160,10},{2,5,170,10},{2,5,180,10},{2,5,190,10},{2,5,200,10},{2,5,160,10},{2,5,170,10},{2,5,180 ,10},{2,5,190,10},{2,5,200,10},},--lien
    {{2,11,310,10},{2,11,330,10},{2,11,350,10},{2,11,370,10},{2,11,390,10},{2,11,320,10},{2,11,340,10},{ 2,11,360,10},{2,11,380,10},{2,11,400,10},},--ngoc boi
    {{2,4,160,10},{2,4,170,10},{2,4,180,10},{2,4,190,10},{2,4,250,10},{2,4,160,10},{2,4,170,10},{2,4,180 ,10},{2,11,190,10},{2,4,200,10},},--gioi chi
    {{2,8,310,10},{2,8,330,10},{2,8,350,10},{2,8,470,10},{2,8,390,10},{2,8,320,10},{2,8,340,10},{2,8,360 ,10},{2,8,380,10},{2,8,400,10},},--dai
    {{2,3,612,10},{2,3,652,10},{2,3,692,10},{2,3,732,10},{2,3,772,10},{2,3,622,10},{2,3,662,10},{2,3,702 ,10},{2,3,742,10},{2,3,802,10},},--ao
    {{2,9,610,10},{2,9,650,10},{2,9,690,10},{2,9,730,10},{2,9,770,10},{2,9,620,10},{2,9,660,10},{2,9,700 ,10},{2,9,760,10},{2,9,800,10},},--mu
    {{2,1,551,10},{2,1,591,10},{2,1,611,10},{2,1,651,10},{2,1,691,10},{2,1,551,10},{2,1,591,10},{2,1,611 ,10},{2,1,651,10},{2,1,691,10},},
    {{
    2,1,561,10},{2,1,601,10},{2,1,621,10},{2,1,661,10},{2,1,701,10},{2,1,561,10},{2,1,601,10},{2,1,621 ,10},{2,1,661,10},{2,1,701,10},},
    {{
    2,1,571,10},{2,1,981,10},{2,1,631,10},{2,1,671,10},{2,1,711,10},{2,1,571,10},{2,1,981,10},{2,1,631 ,10},{2,1,671,10},{2,1,711,10},},
    {{
    2,1,581,10},{2,2,100,10},{2,1,641,10},{2,1,681,10},{2,1,721,10},{2,1,581,10},{2,2,100,10},{2,1,641 ,10},{2,1,681,10},{2,1,721,10},},
    {{
    2,1,1172,10},{2,2,90,10},{2,1,811,10},{2,1,851,10},{2,1,891,10},{2,1,1172,10},{2,2,90,10},{2,1,811 ,10},{2,1,851,10},{2,1,891,10},},
    {{
    2,1,1145,10},{2,1,911,10},{2,1,1183,10},{2,1,1208,10},{2,1,1211,10},{2,1,1145,10},{2,1,911,10},{21,1183,10},{2,1,1208,10},{2,1,1211,10},},

    -------------------------------
    function 
    tbGift:TrangBi100(nFlagnSeries)
    local nCount me.GetTask(self.TASK_GROUP_ID6self.TaskId_Count);
        if 
    nCount >= self.Use_Max then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần :<color>";
            
    local tbOpt = {
            
            {
    "Bạn đã nhận phần thưởng này rồi..."};
        };
        
    Dialog:Say(szMsgtbOpt);
        return 
    0
        
    end    
        
    if (nCount == 0then
    if not nFlag then
    local szMsg 
    "Nhận trang bị hệ nào?";
    local tbOpt =
    {
    {
    "Hệ Kim",self.TrangBi100,self,1,1},
    {
    "Hệ Mộc",self.TrangBi100,self,1,2},
    {
    "Hệ Thủy",self.TrangBi100,self,1,3},
    {
    "Hệ Hỏa",self.TrangBi100,self,1,4},
    {
    "Hệ Thổ",self.TrangBi100,self,1,5},
    }
    Dialog:Say(szMsg,tbOpt);
    elseif 
    nFlag == 1 then
    local szMsg 
    "Nam hay nữ?";
    local tbOpt =
    {
    {
    "Nam",self.TrangBi100,self,2,nSeries},
    {
    "Nữ",self.TrangBi100,self,2,nSeries+5},
    }
    Dialog:Say(szMsg,tbOpt);
    else    
    local tbItems self.tbSetItem;
    for 
    115 do
    me.AddItem(unpack(tbItems[i][nSeries])).Bind(1);
    me.SetTask(self.TASK_GROUP_ID6self.TaskId_CountnCount 1);
    end
    end
    end
    end
    --------------------------------------------------------------------------------

    --------------------------------------------------------------------------------

    function 
    tbGift:LenLevel1101()
        
    me.AddLevel(110 me.nLevel);
    end
    --------------------------------------------------------------------------------
    function 
    tbGift:BacDong1()
    --
    me.Earn(5000000,0);
    --
    me.AddJbCoin(10000);
    me.AddBindCoin(3000000);
    me.AddBindMoney(50000000);
    end
    --------------------------------------------------------------------------------
    function 
    tbGift:Tui1()
        
    me.AddStackItem(21,9,1,1,self.tbItemInfo,1);
        
    me.AddStackItem(21,9,2,1,self.tbItemInfo,1);
        
    me.AddStackItem(21,9,3,1,self.tbItemInfo,1);
    end
    ----------------------------------------------------------------------------------
    function 
    tbGift:TinhHoatLuc1()
        
    me.ChangeCurMakePoint(500000,0);
        
    me.ChangeCurGatherPoint(500000,0);
    end
    --------------------------------------------------------------------------------
    function 
    tbGift:ThuCuoi1()
        
    me.AddStackItem(1,12,45,4,self.tbItemInfo,1);
    end
    function tbGift:nhiemvu1110()
    me.AddStackItem(18,1,200,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,201,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,202,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,203,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,204,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,263,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,264,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,265,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,266,1,self.tbItemInfo,1);
    me.AddStackItem(18,1,267,1,self.tbItemInfo,1);
    end
    ----------------------------------------------------------------------------------
    ----------------------------------------------------------------------------------
    ----------------------------------------------------------------------------------

    function 
    tbGift:HoTro()
        
        
    local szMsg "Chào mừng bạn đến với <color=green>Kiếm Thế Bắc Ninh<color> - Dev by <color=blue>Nobita<color>";
        
    local szMsg "Xin hãy chọn:";
        
    local tbOpt = {
            {
    "Nhận thăng cấp 110 "self.LenLevel110self},
            {
    "Túi 24 ô",self.Tui,self};
            {
    "Thú Cưỡi",self.ThuCuoi,self}; 
            {
    "Tinh lực - Hoạt Lực",self.TinhHoatLuc,self};
            {
    "Nhận Bạc - Đồng ",self.BacDong,self};
            {
    "Đồ Nhiệm Vụ 110",self.nhiemvu110,self};
            {
    "Nhận set đồ hỗ trợ ",self.TrangBi100,self};
            {
    "Mật Tịch Cao",self.MatTichCaoself};        
            {
    "Ta Chỉ Xem Qua Thôi..."},
        };
        
    Dialog:Say(szMsgtbOpt);
        
    end

    function tbGift:NhanThuongHangNgay()
        
    local szMsg "<color=yellow>Phần thưởng<color><color=pink> Nhận thưởng hàng ngày<color> nhận   tại <color=yellow>Tu Luyện Châu. Xin hãy gia nhập phái :<color>";
        
    local tbOpt = {    
            {
    "Kết thúc đối thoại..."},
        };
        
    Dialog:Say(szMsgtbOpt);
    end


    function tbGift:LenLevel110()
        
    local nCount me.GetTask(self.TASK_GROUP_ID1self.TaskId_Count);
        if 
    nCount >= self.Use_Max then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần :<color>";
            
    local tbOpt = {
            
            {
    "Bạn đã nhận phần thưởng này rồi..."};
        };
        
    Dialog:Say(szMsgtbOpt);
        return 
    0
        
    end    
        
    if (nCount == 0then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần. Hãy chọn<color><color=pink> Nhận thưởng <color><color=yellow>:<color>";
            
    local tbOpt = {
            {
    "Nhận thưởng"self.LenLevel1101self};
        };
        
    Dialog:Say(szMsgtbOpt);
        
    end
        me
    .SetTask(self.TASK_GROUP_ID1self.TaskId_CountnCount 1);
    end

    function tbGift:Tui()
        
    local nCount me.GetTask(self.TASK_GROUP_ID2self.TaskId_Count);
        if 
    nCount >= self.Use_Max then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần. Hãy chọn<color><color=pink> Nhận thưởng <color><color=yellow>:<color>";
            
    local tbOpt = {
            
            {
    "Bạn đã nhận phần thưởng này rồi ..."};
        };
        
    Dialog:Say(szMsgtbOpt);
        return 
    0
        
    end    
        
    if (nCount == 0then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần. Hãy chọn<color><color=pink> Nhận thưởng <color><color=yellow>:<color>";
            
    local tbOpt = {
            {
    "Nhận thưởng"self.Tui1self};
        };
        
    Dialog:Say(szMsgtbOpt);
        
    end
        me
    .SetTask(self.TASK_GROUP_ID2self.TaskId_CountnCount 1);
    end

    function tbGift:BacDong()
        
    local nCount me.GetTask(self.TASK_GROUP_ID5self.TaskId_Count);
        if 
    nCount >= self.Use_Max then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần :<color>";
            
    local tbOpt = {
            
            {
    "Bạn đã nhận phần thưởng này rồi..."};
        };
        
    Dialog:Say(szMsgtbOpt);
        return 
    0
        
    end    
        
    if (nCount == 0then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần. Hãy chọn<color><color=pink> Nhận thưởng <color><color=yellow>:<color>";
            
    local tbOpt = {
            {
    "Nhận thưởng"self.BacDong1self};
        };
        
    Dialog:Say(szMsgtbOpt);
        
    end
        me
    .SetTask(self.TASK_GROUP_ID5self.TaskId_CountnCount 1);
    end

    function tbGift:ThuCuoi()
        
    local nCount me.GetTask(self.TASK_GROUP_ID3self.TaskId_Count);
        if 
    nCount >= self.Use_Max then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần :<color>";
            
    local tbOpt = {
            
            {
    "Bạn đã nhận phần thưởng này rồi..."};
        };
        
    Dialog:Say(szMsgtbOpt);
        return 
    0
        
    end    
        
    if (nCount == 0then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần. Hãy chọn<color><color=pink> Nhận thưởng <color><color=yellow>:<color>";
            
    local tbOpt = {
            {
    "Nhận thưởng"self.ThuCuoi1self};
        };
        
    Dialog:Say(szMsgtbOpt);
        
    end
        me
    .SetTask(self.TASK_GROUP_ID3self.TaskId_CountnCount 1);
    end

    function tbGift:TinhHoatLuc()
        
    local nCount me.GetTask(self.TASK_GROUP_ID4self.TaskId_Count);
        if 
    nCount >= self.Use_Max then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần :<color>";
            
    local tbOpt = {
            
            {
    "Bạn đã nhận phần thưởng này rồi..."};
        };
        
    Dialog:Say(szMsgtbOpt);
        return 
    0
        
    end    
        
    if (nCount == 0then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần. Hãy chọn<color><color=pink> Nhận thưởng <color><color=yellow>:<color>";
            
    local tbOpt = {
            {
    "Nhận thưởng"self.TinhHoatLuc1self};
        };
        
    Dialog:Say(szMsgtbOpt);
        
    end
        me
    .SetTask(self.TASK_GROUP_ID4self.TaskId_CountnCount 1);
    end

    function tbGift:nhiemvu110()
        
    local nCount me.GetTask(self.TASK_GROUP_ID7self.TaskId_Count);
        if 
    nCount >= self.Use_Max then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần :<color>";
            
    local tbOpt = {
            
            {
    "Bạn đã nhận phần thưởng này rồi..."};
        };
        
    Dialog:Say(szMsgtbOpt);
        return 
    0
        
    end    
        
    if (nCount == 0then
            local szMsg 
    "<color=yellow>Phần thưởng chỉ nhận được 1 lần. Hãy chọn<color><color=pink> Nhận thưởng <color><color=yellow>:<color>";
            
    local tbOpt = {
            {
    "Nhận thưởng"self.nhiemvu1110self};
        };
        
    Dialog:Say(szMsgtbOpt);
        
    end
        me
    .SetTask(self.TASK_GROUP_ID7self.TaskId_CountnCount 1);
    end
    function tbGift:MatTichCao()
        
    local szMsg "Xin hãy chọn:";
        
    local tbOpt = {};
        
    table.insert(tbOpt , {"Thiếu Lâm",  self.mttlself});
        
    table.insert(tbOpt , {"Thiên Vương",  self.mttvself});
        
    table.insert(tbOpt , {"Đường môn",  self.mtdmself});
        
    table.insert(tbOpt , {"Ngũ Độc",  self.mtndself});
        
    table.insert(tbOpt , {"Minh giáo",  self.mtmgself});
        
    table.insert(tbOpt , {"Nga My",  self.mtnmself});
        
    table.insert(tbOpt , {"Thúy Yên",  self.mttyself});
        
    table.insert(tbOpt , {"Đoàn Thị",  self.mtdtself});
        
    table.insert(tbOpt , {"Cái Bang",  self.mtcbself});
        
    table.insert(tbOpt , {"Thiên Nhẫn",  self.mttnself});
        
    table.insert(tbOpt , {"Võ Đang",  self.mtvdself});
        
    table.insert(tbOpt , {"Côn Lôn",  self.mtclself});
        
    Dialog:Say(szMsgtbOpt);
    end
    function tbGift:mttl()
            
    me.AddItem(1,14,1,3);
            
    me.AddItem(1,14,2,3);
    end
    function tbGift:mttv()        
            
    me.AddItem(1,14,3,3);
            
    me.AddItem(1,14,4,3);
    end
    function tbGift:mtdm()
            
    me.AddItem(1,14,5,3);
            
    me.AddItem(1,14,6,3);
    end
    function tbGift:mtnd()        
            
    me.AddItem(1,14,7,3);
            
    me.AddItem(1,14,8,3);
    end
    function tbGift:mtmg()        
            
    me.AddItem(1,14,21,3);
            
    me.AddItem(1,14,22,3);
    end
    function tbGift:mtnm()
            
    me.AddItem(1,14,9,3);
            
    me.AddItem(1,14,10,3);
    end
    function tbGift:mtty()        
            
    me.AddItem(1,14,11,3);
            
    me.AddItem(1,14,12,3);
    end
    function tbGift:mtdt()        
            
    me.AddItem(1,14,23,3);
            
    me.AddItem(1,14,24,3);
    end
    function tbGift:mtcb()
            
    me.AddItem(1,14,13,3);
            
    me.AddItem(1,14,14,3);
    end
    function tbGift:mttn()        
            
    me.AddItem(1,14,15,3);
            
    me.AddItem(1,14,16,3);
    end
    function tbGift:mtvd()
            
    me.AddItem(1,14,17,3);
            
    me.AddItem(1,14,18,3);
    end
    function tbGift:mtcl()        
            
    me.AddItem(1,14,19,3);
            
    me.AddItem(1,14,20,3);
    end
    --------------------------------------

    -------------------------------------

    --------------------------------------

    --================================================================
    --================================================================ 


    thans you và muôn chuyễn cái túi này qua lể quan nhận luôn nhé các bạn thanks bõ mấy cái nhận thưởng theo level dum mình
    Lần sửa cuối bởi lyvanbethao, ngày 12-08-12 lúc 12:05 PM.
    Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên Tâm Huyết nghichtu91's Avatar
    Ngày tham gia
    Nov 2010
    Bài viết
    2,228
    Thanks
    69
    Thanked 743 Times in 356 Posts

    Ðề: chĩnh sửa hàm trong túi này

    function tbGift:MatTichCao()
    local nUse =me.GetTask(Self.TSK_GROUP,Self.TSK_ID) or 0;
    if nUse >0 then
    Dialog:Say("Ban da nhan rôi");
    return
    end
    local szMsg = "Xin hãy chọn:";
    local tbOpt = {};
    table.insert(tbOpt , {"Thiếu Lâm", self.mttl, self,nUse});
    table.insert(tbOpt , {"Thiên Vương", self.mttv, self});
    table.insert(tbOpt , {"Đường môn", self.mtdm, self});
    table.insert(tbOpt , {"Ngũ Độc", self.mtnd, self});
    table.insert(tbOpt , {"Minh giáo", self.mtmg, self});
    table.insert(tbOpt , {"Nga My", self.mtnm, self});
    table.insert(tbOpt , {"Thúy Yên", self.mtty, self});
    table.insert(tbOpt , {"Đoàn Thị", self.mtdt, self});
    table.insert(tbOpt , {"Cái Bang", self.mtcb, self});
    table.insert(tbOpt , {"Thiên Nhẫn", self.mttn, self});
    table.insert(tbOpt , {"Võ Đang", self.mtvd, self});
    table.insert(tbOpt , {"Côn Lôn", self.mtcl, self});
    Dialog:Say(szMsg, tbOpt);
    end
    function tbGift:mttl(nUse)
    me.AddItem(1,14,1,3);
    me.AddItem(1,14,2,3);
    me.SetTask(Self.TSK_GROUP,Self.TSK_ID,nUse+1)
    end
    function tbGift:mttv()
    me.AddItem(1,14,3,3);
    me.AddItem(1,14,4,3);
    end
    function tbGift:mtdm()
    me.AddItem(1,14,5,3);
    me.AddItem(1,14,6,3);
    end
    function tbGift:mtnd()
    me.AddItem(1,14,7,3);
    me.AddItem(1,14,8,3);
    end
    function tbGift:mtmg()
    me.AddItem(1,14,21,3);
    me.AddItem(1,14,22,3);
    end
    function tbGift:mtnm()
    me.AddItem(1,14,9,3);
    me.AddItem(1,14,10,3);
    end
    function tbGift:mtty()
    me.AddItem(1,14,11,3);
    me.AddItem(1,14,12,3);
    end
    function tbGift:mtdt()
    me.AddItem(1,14,23,3);
    me.AddItem(1,14,24,3);
    end
    function tbGift:mtcb()
    me.AddItem(1,14,13,3);
    me.AddItem(1,14,14,3);
    end
    function tbGift:mttn()
    me.AddItem(1,14,15,3);
    me.AddItem(1,14,16,3);
    end
    function tbGift:mtvd()
    me.AddItem(1,14,17,3);
    me.AddItem(1,14,18,3);
    end
    function tbGift:mtcl()
    me.AddItem(1,14,19,3);
    me.AddItem(1,14,20,3);
    end
    --còn mấy cái còn lại làm tương tự function tbGift:mttl(nUse) chúc thành cong
    con task_group tự khai báo va task_id cung thế
    --------------------------------------

    -------------------------------------

    --------------------------------------
    Nhận thiết kế web
    skype:nhatthanh5891_3
    fb:fb.com/ThanhNaruto208
    SDT:0165.3749.679

 

 

Các Chủ đề tương tự

  1. [JX] [Hỏi] tại sao di chuyển nhân vật trong game thì dis gameserver trong vps
    Bởi vutrongphong trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 06-08-13, 11:20 PM
  2. Sửa shop trong Npc ở trong game ?
    Bởi nhactre8x trong diễn đàn Thục Sơn Kỳ Hiệp
    Trả lời: 3
    Bài viết cuối: 28-03-12, 10:33 AM
  3. Hỏi cách sửa lỗi trong nv trong game vẫn RS được
    Bởi zChiPhe0 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 08-01-11, 09:21 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 06:41 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.