[KT] Xin pro chỉ cách Add thêm giờ hoạt động
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 5 của 5
  1. #1
    Thành Viên anhnhianh's Avatar
    Ngày tham gia
    Jan 2014
    Bài viết
    625
    Thanks
    134
    Thanked 91 Times in 73 Posts

    Xin pro chỉ cách Add thêm giờ hoạt động

    e muốn add thêm giờ vào file.lua này nhưng ko biết add làm sao mong pro chỉ giúp
    Script của e nó đây
    Code:
    local tbBanPhuc = Npc:GetClass("thantaibanphuc");
    function tbBanPhuc:OnDialog()
    if me.CountFreeBagCell() < 5 then
    		Dialog:Say("Phải Có 5 Ô Trống Trong Túi Hành Trang");
    		return 0;
    	end
    		local tbEvent = 
    	{
    		Player.ProcessBreakEvent.emEVENT_MOVE,
    		Player.ProcessBreakEvent.emEVENT_ATTACK,
    		Player.ProcessBreakEvent.emEVENT_SITE,
    		Player.ProcessBreakEvent.emEVENT_USEITEM,
    		Player.ProcessBreakEvent.emEVENT_ARRANGEITEM,
    		Player.ProcessBreakEvent.emEVENT_DROPITEM,
    		Player.ProcessBreakEvent.emEVENT_SENDMAIL,
    		Player.ProcessBreakEvent.emEVENT_TRADE,
    		Player.ProcessBreakEvent.emEVENT_CHANGEFIGHTSTATE,
    		Player.ProcessBreakEvent.emEVENT_CLIENTCOMMAND,
    		Player.ProcessBreakEvent.emEVENT_LOGOUT,
    		Player.ProcessBreakEvent.emEVENT_DEATH,
    		Player.ProcessBreakEvent.emEVENT_ATTACKED,
    	}
    	 local tbOpt = {
    				 GeneralProcess:StartProcess("Đang Hái Lộc", 10 * Env.GAME_FPS, {self.OnDialog4, self}, nil, tbEvent);
    	 };
    end
    function tbBanPhuc:OnDialog4()
    	local i = 0;
    	local nAdd = 0;
    	local nRand = 0;
    	local nIndex = 0;
    	-- random
    	nRand = MathRandom(1, 10000);
    	-- fill 3 rate	
    	local tbRate = {3000,1000,6000};
    	local tbAward = {1,2,3}
    	 
    			for i = 1, 3 do
    		nAdd = nAdd + tbRate[i];
    		if nAdd >= nRand then
    			nIndex = i;
    			break;
    		end
    	end
    	if (tbAward[nIndex]==3) then
    	me.AddExp(100000000);
    	me.AddStackItem(18,10,11,2,self.tbBanPhuc,20); -- Cá CHép Đỏ
    me.Msg("Hái được <color=green>100tr Exp và 20 Tiền Xu<color>");
    	end
    	if (tbAward[nIndex]==1) then
    	me.AddExp(200000000);
    	me.AddStackItem(18,10,11,2,self.tbBanPhuc,30); -- Cá CHép Vàng
    me.Msg("Hái được <color=green>200tr Exp và 30 Tiền Xu<color>");
    	end	
    	if (tbAward[nIndex]==2) then
    	me.AddExp(300000000);
    	me.AddItem(18,10,11,2,self.tbBanPhuc,40); -- Lưỡi Kiếm
    me.Msg("Hái được <color=green>300tr Exp và 40 Tiền Xu<color>");
    	end	
    	end
    add thêm giờ cho nó hoạt động như từ 13h30 --> 13h35 rồi ko cho nhận nữa (tựa tựa như ev QTT)
    Khách viếng thăm hãy cùng anhnhianh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    ✎﹏ Nà Ní Team ❖ ︻╦╤─ ҉ - na.ilusm89's Avatar
    Ngày tham gia
    May 2012
    Bài viết
    1,084
    Thanks
    99
    Thanked 707 Times in 402 Posts

    Ðề: Xin pro chỉ cách Add thêm giờ hoạt động

    PHP Code:
    local nCurTime tonumber(os.date("%H%M"GetTime()));
    if (
    nCurTime >= 0900 and nCurTime <= 0910) or  (nCurTime >= 1500 and nCurTime <= 1510) or (nCurTime >= 1700 and nCurTime <= 1710) or (nCurTime >= 2000 and nCurTime <= 2010then 

    PHP Code:
    Dialog:Say("Hái Lộc diễn ra lúc :\n9h00 -> 9h10\n15h00 -> 15h10\n17h00 -> 17h10\n20h00 -> 20h10"
    ℵóα

  3. Các thành viên gởi lời cảm ơn đến na.ilusm89 vì bài viết này !

    anhnhianh (16-03-14)

  4. #3
    Thành Viên anhnhianh's Avatar
    Ngày tham gia
    Jan 2014
    Bài viết
    625
    Thanks
    134
    Thanked 91 Times in 73 Posts

    Ðề: Xin pro chỉ cách Add thêm giờ hoạt động

    nhưng add vào chỗ nào hả pro ?? giúp e chút nữa thôi
    Khách viếng thăm hãy cùng anhnhianh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #4
    Thành Viên Tâm Huyết __Jie__'s Avatar
    Ngày tham gia
    Sep 2008
    Bài viết
    1,320
    Thanks
    256
    Thanked 740 Times in 559 Posts

    Ðề: Xin pro chỉ cách Add thêm giờ hoạt động

    Code:
    local tbBanPhuc = Npc:GetClass("thantaibanphuc");
    function tbBanPhuc:Onfialog()
    local tbOpt = {};
    local nCurTime = tonumber(os.date("%H%M", GetTime()));
        if (nCurTime >= 1330 and nCurTime <= 1335)  then
                table.insert(tbOpt , {"Chưc Năng Ban Phúc",  self.ChucNangBanPhuc, self});
    
    
        else
                table.insert(tbOpt, {"Chưa đến thời gian Ban Phuc"});    
    
    
        end  
    end
    function tbBanPhuc:ChucNangBanPhuc()
    if me.CountFreeBagCell() < 5 then
            Dialog:Say("Phải Có 5 Ô Trống Trong Túi Hành Trang");
            return 0;
        end
            local tbEvent = 
        {
            Player.ProcessBreakEvent.emEVENT_MOVE,
            Player.ProcessBreakEvent.emEVENT_ATTACK,
            Player.ProcessBreakEvent.emEVENT_SITE,
            Player.ProcessBreakEvent.emEVENT_USEITEM,
            Player.ProcessBreakEvent.emEVENT_ARRANGEITEM,
            Player.ProcessBreakEvent.emEVENT_DROPITEM,
            Player.ProcessBreakEvent.emEVENT_SENDMAIL,
            Player.ProcessBreakEvent.emEVENT_TRADE,
            Player.ProcessBreakEvent.emEVENT_CHANGEFIGHTSTATE,
            Player.ProcessBreakEvent.emEVENT_CLIENTCOMMAND,
            Player.ProcessBreakEvent.emEVENT_LOGOUT,
            Player.ProcessBreakEvent.emEVENT_DEATH,
            Player.ProcessBreakEvent.emEVENT_ATTACKED,
        }
         local tbOpt = {
                     GeneralProcess:StartProcess("Đang Hái Lộc", 10 * Env.GAME_FPS, {self.OnDialog4, self}, nil, tbEvent);
         };
    end
    function tbBanPhuc:OnDialog4()
        local i = 0;
        local nAdd = 0;
        local nRand = 0;
        local nIndex = 0;
        -- random
        nRand = MathRandom(1, 10000);
        -- fill 3 rate    
        local tbRate = {3000,1000,6000};
        local tbAward = {1,2,3}
         
                for i = 1, 3 do
            nAdd = nAdd + tbRate[i];
            if nAdd >= nRand then
                nIndex = i;
                break;
            end
        end
        if (tbAward[nIndex]==3) then
        me.AddExp(100000000);
        me.AddStackItem(18,10,11,2,self.tbBanPhuc,20); -- Cá CHép Đỏ
    me.Msg("Hái được <color=green>100tr Exp và 20 Tiền Xu<color>");
        end
        if (tbAward[nIndex]==1) then
        me.AddExp(200000000);
        me.AddStackItem(18,10,11,2,self.tbBanPhuc,30); -- Cá CHép Vàng
    me.Msg("Hái được <color=green>200tr Exp và 30 Tiền Xu<color>");
        end    
        if (tbAward[nIndex]==2) then
        me.AddExp(300000000);
        me.AddItem(18,10,11,2,self.tbBanPhuc,40); -- Lưỡi Kiếm
    me.Msg("Hái được <color=green>300tr Exp và 40 Tiền Xu<color>");
        end    
        end
    Xong nhé
    Nhận viết sự kiện Kiếm Thế PC - Mobile
    Auto PK 6 acc Kiếm Thế PC không cần sanboxie hoặc autoupdate
    Web: [Only registered and activated users can see links. ]

  6. Các thành viên gởi lời cảm ơn đến __Jie__ vì bài viết này !

    anhnhianh (16-03-14)

  7. #5
    Thành Viên anhnhianh's Avatar
    Ngày tham gia
    Jan 2014
    Bài viết
    625
    Thanks
    134
    Thanked 91 Times in 73 Posts

    Ðề: Xin pro chỉ cách Add thêm giờ hoạt động

    tks pro nhá

    Một với một là bao nhiêu ? (viết trả lời bằng số)
    Khách viếng thăm hãy cùng anhnhianh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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à 08:40 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ệ.