localhost169
15-07-16, 12:25 PM
local tbItem = Item:GetClass("chuyduclo3")
function tbItem:OnUse()
local szMsg = "<newdialog><color=green>Vui Lòng Chon Trang Bị Muốn Đục Lỗ <item=18,1,2255,1><enter>";
local tbOpt = {};
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Nón"), self.duclo, self,1});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Áo"), self.duclo, self,2});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Lưng"), self.duclo, self,3});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Tay"), self.duclo, self,4});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Giày"), self.duclo, self,5});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Liên"), self.duclo, self,6});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Nhẫn"), self.duclo, self,7});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Bội"), self.duclo, self,8});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Phù"), self.duclo, self,9});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Vũ Khí"), self.duclo, self,10});--
table.insert(tbOpt ,{"Kết thúc đối thoại"});
Dialog:Say(szMsg, tbOpt);
return 0;
end;
function tbItem:duclo(nValue)
local nHoleLevel;
if nValue == 1 then
local pItem = me.GetEquip(Item.EQUIPPOS_HEAD)
if pItem then
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Nón Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 2 then
local pItem = me.GetEquip(Item.EQUIPPOS_BODY)
if pItem then
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Áo Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 3 then
local pItem = me.GetEquip(Item.EQUIPPOS_BELT)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 2);--check level
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Lưng Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 4 then
local pItem = me.GetEquip(Item.EQUIPPOS_CUFF)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 6);--check level
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Tay Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 5 then
local pItem = me.GetEquip(Item.EQUIPPOS_FOOT)
if pItem then
local nReputeLevel = me.GetReputeLevel(10, 1);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Giày Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 6 then
local pItem = me.GetEquip(Item.EQUIPPOS_NECKLACE)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 5);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Liên Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 7 then
local pItem = me.GetEquip(Item.EQUIPPOS_RING)
if pItem then
local nReputeLevel = me.GetReputeLevel(11, 1);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Nhẫn Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 8 then
local pItem = me.GetEquip(Item.EQUIPPOS_PENDANT)
if pItem then
local nReputeLevel = me.GetReputeLevel(12, 1);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Bội Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 9 then
local pItem = me.GetEquip(Item.EQUIPPOS_AMULET)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 4);--check level
if nReputeLevel == 6 then
nHoleLevel = 6
elseif nReputeLevel == 5 then
nHoleLevel = 5
elseif nReputeLevel <= 4 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Phù Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 10 then
local pItem = me.GetEquip(Item.EQUIPPOS_WEAPON)
if pItem then
local nReputeLevel = me.GetReputeLevel(9,2);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Vũ Khí Thành Công");
KDialog.MsgToGlobal(szMsg);
end
me.ConsumeItemInBags2(1,18 ,1, 2255 ,1,nil,-1);
end;
function tbItem:OnUse()
local szMsg = "<newdialog><color=green>Vui Lòng Chon Trang Bị Muốn Đục Lỗ <item=18,1,2255,1><enter>";
local tbOpt = {};
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Nón"), self.duclo, self,1});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Áo"), self.duclo, self,2});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Lưng"), self.duclo, self,3});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Tay"), self.duclo, self,4});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Giày"), self.duclo, self,5});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Liên"), self.duclo, self,6});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Nhẫn"), self.duclo, self,7});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Bội"), self.duclo, self,8});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Phù"), self.duclo, self,9});--
table.insert(tbOpt ,{string.format("<color=cyan>Đục Lỗ Vũ Khí"), self.duclo, self,10});--
table.insert(tbOpt ,{"Kết thúc đối thoại"});
Dialog:Say(szMsg, tbOpt);
return 0;
end;
function tbItem:duclo(nValue)
local nHoleLevel;
if nValue == 1 then
local pItem = me.GetEquip(Item.EQUIPPOS_HEAD)
if pItem then
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Nón Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 2 then
local pItem = me.GetEquip(Item.EQUIPPOS_BODY)
if pItem then
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Áo Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 3 then
local pItem = me.GetEquip(Item.EQUIPPOS_BELT)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 2);--check level
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Lưng Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 4 then
local pItem = me.GetEquip(Item.EQUIPPOS_CUFF)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 6);--check level
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Tay Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 5 then
local pItem = me.GetEquip(Item.EQUIPPOS_FOOT)
if pItem then
local nReputeLevel = me.GetReputeLevel(10, 1);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Giày Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 6 then
local pItem = me.GetEquip(Item.EQUIPPOS_NECKLACE)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 5);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Liên Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 7 then
local pItem = me.GetEquip(Item.EQUIPPOS_RING)
if pItem then
local nReputeLevel = me.GetReputeLevel(11, 1);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Nhẫn Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 8 then
local pItem = me.GetEquip(Item.EQUIPPOS_PENDANT)
if pItem then
local nReputeLevel = me.GetReputeLevel(12, 1);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Bội Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 9 then
local pItem = me.GetEquip(Item.EQUIPPOS_AMULET)
if pItem then
local nReputeLevel = me.GetReputeLevel(5, 4);--check level
if nReputeLevel == 6 then
nHoleLevel = 6
elseif nReputeLevel == 5 then
nHoleLevel = 5
elseif nReputeLevel <= 4 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Phù Thành Công");
KDialog.MsgToGlobal(szMsg);
elseif nValue == 10 then
local pItem = me.GetEquip(Item.EQUIPPOS_WEAPON)
if pItem then
local nReputeLevel = me.GetReputeLevel(9,2);--check level
if nReputeLevel == 4 then
nHoleLevel = 6
elseif nReputeLevel == 3 then
nHoleLevel = 5
elseif nReputeLevel <= 2 then
nHoleLevel = 4
end
pItem.MakeHole(3,6,1)
else
Dialog:Say("Vui Lòng Mang Trang Bị Vào Người");
return 0;
end
me.KickOut()
local szMsg = string.format("\n<color=cyan>Chúc Mừng Người chơi <color=yellow>"..me.szName.."<color> Đục Lỗ Thứ 3 Vũ Khí Thành Công");
KDialog.MsgToGlobal(szMsg);
end
me.ConsumeItemInBags2(1,18 ,1, 2255 ,1,nil,-1);
end;