[KT] Nhờ mọi người chỉ về scripts Gia hạn vip
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 6 của 6
  1. #1
    Thành Viên
    Ngày tham gia
    Jul 2012
    Bài viết
    17
    Thanks
    10
    Thanked 0 Times in 0 Posts

    Nhờ mọi người chỉ về scripts Gia hạn vip

    Mình làm theo topic [Only registered and activated users can see links. ]
    Code:
    --NPC test
    
    local tbTest = Npc:GetClass("test");
    tbTest.TaskGourp = 10001;
    tbTest.nDuration = Env.GAME_FPS * 3600 * 24 * 7;
    
    function tbTest:OnDialog()
    	local szMsg = "<color=Yellow>Thời hạn VIP được nhận trong thời hạn 7 ngày<color>";
        local tbOpt = {
            {"<color=gold>Kích hoạt VIP<color>", self.OnDialog1, self},
            {"Tôi đã hiểu"},
        };
        Dialog:Say(szMsg, tbOpt);
        
    end
    -------------
    function tbTest:OnDialog1()
    local szOptMsg = "<color=green>Kích hoạt VIP. Ngươi có thể nhận được những ưu đãi đặc biệt<color>";
    
        local tbOpt = 
        {
            {"<color=red>Kích hoạt<color>",self.kh, self},
    
        }
        Dialog:Say(" " .. szOptMsg, tbOpt);
    end
    ------------
    function tbTest:kh()
    local nMyCoin    = me.nCoin;
        if nMyCoin< 500000 then
            Dialog:Say("Bạn không đem đủ 50v đồng thường.");
            return 0;
        end
        me.AddItem(18,1,211,1);---Hoàng Kim khánh la lệnh
        me.Earn(3000000,0);--- 300v bạc thường
        me.AddStackItem(18,1,377,1, {bForceBind = 1},2);---2 tần lăng hòa thị bích khóa
        me.SetItemTimeout(me.AddItem(1,12,52,4), os.date("%Y/%m/%d/%H/%M/00", GetTime() + 3600 * 24 * 7));----Lạc đà xanh 7 ngày
    	me.SetItemTimeout(me.AddTitle(16,1,4,4), os.date("%Y/%m/%d/%H/%M/00", GetTime() + 3600 * 24 * 7)); --- Danh hiệu vip 7 ngày
    me.CostJbCoin(500000,0);
    end
    Mình muốn khi gia hạn sẽ mất 50v đồng nhưng mình không biết sai ở chổ nào mà nó không trừ đồng, với chổ danh hiệu mình muốn 7 ngày có được không vậy mọi người mong mọi người giúp mình cảm ơn mọi người.
    Khách viếng thăm hãy cùng 219584 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên
    Ngày tham gia
    Mar 2013
    Bài viết
    118
    Thanks
    54
    Thanked 19 Times in 18 Posts

    Ðề: Nhờ mọi người chỉ về scripts Gia hạn vip

    Trích dẫn Gửi bởi 219584 [Only registered and activated users can see links. ]
    Mình làm theo topic [Only registered and activated users can see links. ]
    Code:
    --NPC test
    
    local tbTest = Npc:GetClass("test");
    tbTest.TaskGourp = 10001;
    tbTest.nDuration = Env.GAME_FPS * 3600 * 24 * 7;
    
    function tbTest:OnDialog()
    	local szMsg = "<color=Yellow>Thời hạn VIP được nhận trong thời hạn 7 ngày<color>";
        local tbOpt = {
            {"<color=gold>Kích hoạt VIP<color>", self.OnDialog1, self},
            {"Tôi đã hiểu"},
        };
        Dialog:Say(szMsg, tbOpt);
        
    end
    -------------
    function tbTest:OnDialog1()
    local szOptMsg = "<color=green>Kích hoạt VIP. Ngươi có thể nhận được những ưu đãi đặc biệt<color>";
    
        local tbOpt = 
        {
            {"<color=red>Kích hoạt<color>",self.kh, self},
    
        }
        Dialog:Say(" " .. szOptMsg, tbOpt);
    end
    ------------
    function tbTest:kh()
    local nMyCoin    = me.nCoin;
        if nMyCoin< 500000 then
            Dialog:Say("Bạn không đem đủ 50v đồng thường.");
            return 0;
        end
        me.AddItem(18,1,211,1);---Hoàng Kim khánh la lệnh
        me.Earn(3000000,0);--- 300v bạc thường
        me.AddStackItem(18,1,377,1, {bForceBind = 1},2);---2 tần lăng hòa thị bích khóa
        me.SetItemTimeout(me.AddItem(1,12,52,4), os.date("%Y/%m/%d/%H/%M/00", GetTime() + 3600 * 24 * 7));----Lạc đà xanh 7 ngày
    	me.SetItemTimeout(me.AddTitle(16,1,4,4), os.date("%Y/%m/%d/%H/%M/00", GetTime() + 3600 * 24 * 7)); --- Danh hiệu vip 7 ngày
    me.CostJbCoin(500000,0);
    end
    Mình muốn khi gia hạn sẽ mất 50v đồng nhưng mình không biết sai ở chổ nào mà nó không trừ đồng, với chổ danh hiệu mình muốn 7 ngày có được không vậy mọi người mong mọi người giúp mình cảm ơn mọi người.
    Thử thay local nMyCoin = me.nCoin; = local nCoin = me.GetJbCoin();
    Và me.CostJbCoin(500000,0);=me.AddJbCoin(-500000); --Thu Phí 50v đồng
    Sai hàm này me.CostJbCoin(500000,0)
    Khách viếng thăm hãy cùng mindergo11 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #3
    Thành Viên Tâm Huyết satthupro95's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    2,415
    Thanks
    2,567
    Thanked 1,846 Times in 882 Posts

    Ðề: Nhờ mọi người chỉ về scripts Gia hạn vip

    Trích dẫn Gửi bởi mindergo11 [Only registered and activated users can see links. ]
    Thử thay local nMyCoin = me.nCoin; = local nCoin = me.GetJbCoin();
    Và me.CostJbCoin(500000,0);=me.AddJbCoin(-500000); --Thu Phí 50v đồng
    Sai hàm này me.CostJbCoin(500000,0)
    Thay me.CostJbCoin(500000,0); thành me.AddJbCoin(-1*500000)
    Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. The Following 2 Users Say Thank You to satthupro95 For This Useful Post:

    219584 (10-07-13), kiemthe_dev (10-07-13)

  5. #4
    Thành Viên
    Ngày tham gia
    Mar 2013
    Bài viết
    118
    Thanks
    54
    Thanked 19 Times in 18 Posts

    Ðề: Nhờ mọi người chỉ về scripts Gia hạn vip

    Trích dẫn Gửi bởi satthupro95 [Only registered and activated users can see links. ]
    Thay me.CostJbCoin(500000,0); thành me.AddJbCoin(-1*500000)
    Khác gì của anh đâu . Qua xem anh cái shop xem nào . bực với nó quá
    Khách viếng thăm hãy cùng mindergo11 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    219584 (10-07-13)

  7. #5
    Thành Viên
    Ngày tham gia
    Jul 2012
    Bài viết
    17
    Thanks
    10
    Thanked 0 Times in 0 Posts

    Ðề: Nhờ mọi người chỉ về scripts Gia hạn vip

    Tk 2 bạn mình đã làm được rồi.
    Khách viếng thăm hãy cùng 219584 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #6
    Thành Viên
    Ngày tham gia
    Jan 2013
    Bài viết
    91
    Thanks
    38
    Thanked 4 Times in 4 Posts

    Ðề: Nhờ mọi người chỉ về scripts Gia hạn vip

    Trích dẫn Gửi bởi satthupro95 [Only registered and activated users can see links. ]
    Thay me.CostJbCoin(500000,0); thành me.AddJbCoin(-1*500000)
    Satthu ơi cho mình file scripts đó nhé. Hoặc post full scipts giúp mình vs nhé
    Khách viếng thăm hãy cùng kiemthe_dev xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [KT] xin Scripts nhận đồ một lần
    Bởi _Jack_ trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 25-11-12, 09:59 PM
  2. [KT] Xin Scripts tạo lại túi tân thủ khi bi vút nhầm mất túi tân thủ
    Bởi camxuc trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 04-10-12, 05:44 PM
  3. [JX] Các Pro ơi giúp mình cái Scripts này với
    Bởi hunter2508 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 09-08-12, 11:18 PM
  4. [KT] Giúp Scripts Giới hạn lần nhận Tiền của nhân vật
    Bởi cubi33 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 10
    Bài viết cuối: 06-05-12, 08:26 PM
  5. ai viết Scripts nhận thưởng giùm em
    Bởi nguydatloc trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 6
    Bài viết cuối: 19-02-11, 07:05 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à 09:09 AM.
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ệ.