PDA

View Full Version : [KT] Script đổi Lôi Đình Ấn



tuidangvui
23-12-12, 09:44 AM
cái này có sẵn trong file lua của Lễ Quan VNG, có thể nhiều người không để ý

function tbLiGuan : OnDialog()
local szMsg = "Xin chào, ta có thể giúp được gì?";
local tbOpt =
{
{"Nhận phúc lợi", self.FuLi, self},
{"Đoán hoa đăng",GuessGame.OnDialog,GuessGame},
{"Kết thúc đối thoại"},
}
if TimeFrame : GetState("OpenLevel150") >= 1 then
table.insert(tbOpt, 1, {"<color=yellow>Đổi Lôi Đình Ấn<color>", self.ChangeSignt, self});
end
Dialog : Say(szMsg, tbOpt);
end



function tbLiGuan : ChangeSignt()
Dialog : OpenGift("Hãy đặt vào <color=yellow>100 Mảnh Lôi Đình Ấn<color>, ta sẽ đổi cho ngươi 1 <color=yellow>Lôi Đình Ấn<color> hoàn chỉnh.", nil ,{self.OnOpenGiftOk, self});
end


function tbLiGuan : OnOpenGiftOk(tbItemObj)
local nCount = 0;
for _, pItem in pairs(tbItemObj) do
local szItem = string.format("%s,%s,%s,%s",pItem[1].nGenre, pItem[1].nDetail, pItem[1].nParticular, pItem[1].nLevel);
if "18,1,741,1" ~= szItem then
Dialog : Say("Vật phẩm đặt vào không đúng, hãy đặt Mảnh Lôi Đình Ấn.");
return 0;
end;
nCount = nCount + pItem[1].nCount;
end
if nCount ~= 100 then
Dialog : Say("Số lượng đặt vào không đúng, hãy đặt 100 Mảnh Lôi Đình Ấn.");
return 0;
end
for _, pItem in pairs(tbItemObj) do
if me.DelItem(pItem[1]) ~= 1 then
return 0;
end
end
me.AddItem(1,16,14,2);
Dbg : WriteLog("Người chơi ["..me.szName.."] đổi được Lôi Đình Ấn.");
return 1;
end

vuagamepri
24-12-12, 12:45 AM
File scrip Lễ quan nó nằm đâu vậy bác?

vipbk
24-12-12, 11:34 AM
File scrip Lễ quan nó nằm đâu vậy bác?

gameserver\script\npc\liguan.lua

vuagamepri
24-12-12, 05:56 PM
Anh Vip ơi cho em xin file scrip chỉnh max các loại ấn với? em chỉnh define.lua nó cứ báo lỗi ko load đc :(