PDA

View Full Version : [KT] Nhờ mọi người chỉ về scripts Gia hạn vip



219584
09-07-13, 05:12 PM
Mình làm theo topic <b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>

--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.

mindergo11
09-07-13, 05:20 PM
Mình làm theo topic <b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>

--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)

satthupro95
09-07-13, 05:28 PM
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)

mindergo11
09-07-13, 05:36 PM
Thay me.CostJbCoin(500000,0); thành me.AddJbCoin(-1*500000)
Khác gì của anh đâu :D . Qua xem anh cái shop xem nào . bực với nó quá

219584
10-07-13, 03:14 PM
Tk 2 bạn mình đã làm được rồi.

kiemthe_dev
10-07-13, 07:28 PM
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é