PDA

View Full Version : [KT] Share chức năng (VIP của tất cả loại VIP) trong Kiếm thế


copday
19-06-13, 03:54 PM
local tbNpc = Npc:GetClass("VIP");
tbNpc.TaskGourp = 10001; --task mới phải add vào gameserver\setting\player\task_def.txt
tbNpc.nDuration = Env.GAME_FPS * 3600 * 24 * 7;

function tbNpc: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 tbNpc: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 tbNpc:kh()
local nMyMoney = me.nCashMoney;
if nMyMoney< 200000 then
Dialog:Say("Bạn không đem đủ 20v bạc thường.");
return 0;
end
me.AddSkillState(393, 1, 2, self.nDuration, 1, 0, 1);---tăng tốc di chuyển
me.AddSkillState(478, 1, 2, self.nDuration, 1, 0, 1);--- thuốc may mắn
me.AddSkillState(880, 1, 2, self.nDuration, 1, 0, 1);---may mắn tăng
me.AddSkillState(1623, 1, 2, self.nDuration, 1, 0, 1);---kinh nghiệm đánh quái tăng
me.AddSkillState(897, 1, 2, self.nDuration, 1, 0, 1);-- chờ đổi môn phái
me.CostMoney(200000,0);
end


hi, khả năng của mình chỉ đến đó, chia sẽ anh em newbie, các pro đừng ném đá mình nhé!.\:D/
linhpl2001
19-06-13, 05:14 PM
nếu làm z skill vĩnh viễn thì sao bạn :))
copday
19-06-13, 05:28 PM
nếu làm z skill vĩnh viễn thì sao bạn :))

hi, 7 ngày mà bạn, để anh em phát triển thêm chứ:bz
__Jie__
19-06-13, 05:34 PM
nói là 7 ngày nhưng cứ có bac thì cứ click sẽ có tiếp tục thôi :)>-
satthupro95
19-06-13, 07:20 PM
tưởng share cái VIP player trong script sv chứ T_T
copday
19-06-13, 07:32 PM
tưởng share cái VIP player trong script sv chứ T_T

hi, cái đó thì sv nào cũng có mà, ak sai box, thanks mod đã chuyển
__Jie__
19-06-13, 08:47 PM
tưởng share cái VIP player trong script sv chứ T_T
VIP ấy nó chạy thế nào nhỉ :D

Hiểu cơ cấu của nó thì viết lại được mà nhỉ (*)
satthupro95
19-06-13, 09:29 PM
hi, cái đó thì sv nào cũng có mà, ak sai box, thanks mod đã chuyển

Bác quẩy hộ em chức năng VIP ấy phát T_T
E cũng chưa hiểu lắm vì toàn tiếng tàu
Có vẻ vụ check điểm phi phong set VIP rồi chuyển server thì phải
copday
19-06-13, 10:15 PM
Bác quẩy hộ em chức năng VIP ấy phát T_T
E cũng chưa hiểu lắm vì toàn tiếng tàu
Có vẻ vụ check điểm phi phong set VIP rồi chuyển server thì phải

hi, cái đó chắc phải nhờ pro chứ bạn, nhìn code trên của mình là biết biết mình gà, sao chịu nỗi cái đó, toàn ném mình thế:-bd
OsinLove
05-06-14, 12:16 AM
Cái này nếu làm skill 7 ngày thì khi reset server có mất k ?
linhmoi11
12-06-14, 10:26 PM
chủ thớt đã share rồi thì chỉ ae tới luôn đi :D
khai task như nào vậy chủ thớt :D e hơi gà nhưng e khai như vầy ko biết đúng ko :D

10001 1 1 Test VIP

thớt cho ý kiến phát :D