Kết quả 1 đến 8 của 8
-
10-03-13, 01:08 PM #1
hỏi thêm vật phẩm KHÓA trong script này
trong script như thế này
PHP Code:local tbNpc= Npc:GetClass("xinnian_vowtree");
SpecialEvent.Euro = SpecialEvent.Euro or {};
local Euro = SpecialEvent.Euro or {};
function tbNpc:OnDialog()
local szMsg = "Xin chào, ta có thể giúp được gì?";
local tbOpt=
{
{"Cuồng nhiệt cùng <color=yellow>EURO<color>",self.eventeuro,self},
{"Kết thúc đối thoại"},
};
Dialog:Say(szMsg,tbOpt);
end
function tbNpc:eventeuro()
local szMsg = "Hãy đi tìm những Ngôi sao danh vọng Euro đem về đây ta sẽ đổi cho ngươi phần thưởng xứng đáng!";
local tbOpt =
{
{"Tao muốn đỗi<color=yellow>5<color> ngôi sao", self.ChangePartnerMiJExi, self, 1},--uc van
--{"<color=yellow>20<color> ngôi sao", self.ChangePartnerMiJExi2, self, 1},--ngua 2 skill
--{"<color=yellow>50<color> ngôi sao", self.ChangePartnerMiJExi3, self, 1},--mat na
--{"<color=yellow>100<color> ngôi sao", self.ChangePartnerMiJExi4, self, 1},-- ấn
--{"<color=yellow>300<color> ngôi sao", self.ChangePartnerMiJExi5, self, 1},--hổ cap +3
{"Kết thúc đối thoại"},
};
Dialog:Say(szMsg, tbOpt);
end
function tbNpc:ChangePartnerMiJExi(nLevel)
local tbType = {5} --Số lượng vật phẩm cần đê đổi
local szContent = string.format("Đặt %s <color=yellow>Ngôi sao danh vọng Euro<color> vào đây và ta sẽ thực hiện điều ước của ngươi!", tbType[nLevel]);
Dialog:OpenGift(szContent, nil, {tbNpc.OnOpenGiftOk, tbNpc, nLevel});
end
function tbNpc:OnOpenGiftOk(nLevel, tbItemObj)
local tbType = {5} --Số lượng vật phẩm cần đê đổi
local szPartnerCaiLiao = "18,1,25067,1" ; --Vật phẩm cần để đổi
--数量判断
local nCount = 0;
for i = 1, #tbItemObj do
nCount = nCount + tbItemObj[i][1].nCount;
end
if nCount ~= tbType[nLevel] then
Dialog:Say("Số lượng không đủ", {"Ta biết rồi"});
return 0;
end
--物品判定
for i = 1, #tbItemObj do
local pItem = tbItemObj[i][1];
local szKey = string.format("%s,%s,%s,%s",pItem.nGenre,pItem.nDetail,pItem.nParticular,pItem.nLevel);
if szKey ~= szPartnerCaiLiao then
Dialog:Say("Loại nguyên liệu không đúng", {"Ta biết rồi"});
return 0;
end
end
--背包判定
if me.CountFreeBagCell() < 1 then
Dialog:Say("Hành trang đã đầy, hãy thu xếp rồi nhận lại",{"Ta biết rồi"});
return 0;
end
--删除交的东西
for i = 1, #tbItemObj do
local pItem = tbItemObj[i][1];
pItem.Delete(me);
end
local pItemEx = me.AddItem(18,1,356,1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
if pItemEx then
pItemEx.Bind(1);
--me.SetItemTimeout(pItemEx, 60*24*30, 0);
EventManager:WriteLog(string.format("[兑换同伴秘籍]获得物品:%s",pItemEx.szName), me);
me.PlayerLog(Log.emKPLAYERLOG_TYPE_JOINSPORT, string.format("[兑换同伴秘籍]获得物品:%s",pItemEx.szName));
else
EventManager:WriteLog(string.format("[兑换同伴秘籍]获得失败,扣除材料%s个",nCount), me);
me.PlayerLog(Log.emKPLAYERLOG_TYPE_JOINSPORT, string.format("[兑换同伴秘籍]获得失败,扣除材料%s个",nCount));
end
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đem 5 Ngôi Sao danh Vọng Ero cầu nguyện được 1 huyền tinh vô hạ cấp 9 xin chúc mừng!"});
me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName
.. "<color>] đem 10 Ngôi Sao danh Vọng Ero cầu nguyện được 1 huyền tinh vô hạ cấp 9 xin chúc mừng!");
Dialog:Say("<color=wheat>Chúc mừng ngươi đã đem 10 Ngôi Sao danh Vọng Ero cầu nguyện được 1 huyền tinh vô hạ cấp 9 xin chúc mừng!!<color>", {"Cảm ơn !"});
end
PHP Code:local pItemEx = me.AddItem(18,1,356,1).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
local pItemEx = me.AddItem(2,1,1292,10).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
local pItemEx = me.AddItem(2,1,1292,10).Bind(1); --Vật phẩm nhận được sau khi đổi 10 ngoi sao
if pItemEx then
pItemEx.Bind(1);
Lần sửa cuối bởi lyvanbethao, ngày 10-03-13 lúc 01:11 PM.
Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
10-03-13, 01:34 PM #2
Ðề: hỏi thêm vật phẩm KHÓA trong script này
lỗi thứ nhất không nên gán lệnh giống nhau pItemEx = me.AddItem(xxx) ,pItemEx = me.AddItem
nếu muốn dùng kiểu như thế thi khai báo như thế này
local pItemEx =
{
{18,1,356,1}, --1
{18,1,356,1},--2
{18,1,356,1},--3
}
khi goi no ra thì nhu me.AddItem(unpak(pItemEx[1])).Bind(1);
và trong kiêm thế ko nên dùng vong lập for ......................Lần sửa cuối bởi nghichtu91, ngày 10-03-13 lúc 02:16 PM.
Nhận thiết kế web
skype:nhatthanh5891_3
fb:fb.com/ThanhNaruto208
SDT:0165.3749.679
-
Các thành viên gởi lời cảm ơn đến nghichtu91 vì bài viết này !
satthupro95 (10-03-13)
-
10-03-13, 04:06 PM #3
Ðề: hỏi thêm vật phẩm KHÓA trong script này
sữa lại như thế này thì đổi mất nguyên liệu nhưng ko nhận dc gì gs báo lõi
PHP Code:for i = 1, #tbItemObj do
local pItem = tbItemObj[i][1];
pItem.Delete(me);
end
local pItemEx =
{
{18,1,356,1}, --1
{18,1,356,1},--2
{18,1,356,1},--3
};
if pItemEx then
me.AddItem(unpak(pItemEx[1])).Bind(1);
Lần sửa cuối bởi lyvanbethao, ngày 10-03-13 lúc 04:11 PM.
Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
10-03-13, 04:19 PM #4
-
10-03-13, 04:32 PM #5
Ðề: hỏi thêm vật phẩm KHÓA trong script này
vậy thì làm thế nào để nhận thêm vật phẩm khóa trên cái script của em vậy em ko rành nhiều về script help!
Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
10-03-13, 05:00 PM #6
Ðề: hỏi thêm vật phẩm KHÓA trong script này
Nhận thiết kế web
skype:nhatthanh5891_3
fb:fb.com/ThanhNaruto208
SDT:0165.3749.679
-
10-03-13, 07:43 PM #7
Ðề: hỏi thêm vật phẩm KHÓA trong script này
co ai giúp ko .................................................. ........................
Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
10-03-13, 09:20 PM #8
- Ngày tham gia
- Sep 2008
- Bài viết
- 1,320
- Thanks
- 256
- Thanked 740 Times in 559 Posts
Ðề: hỏi thêm vật phẩm KHÓA trong script này
Đơn giản nhất là không dùng local pItemEx nữa
Mà viết thẳng hàm Add hoặc đổi local pItem = or pItem1 =
rồi đùng
if pItem then
pItem.Bind(1);
end
là nó khóa thôiKhách viếng thăm hãy cùng __Jie__ xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
Các thành viên gởi lời cảm ơn đến __Jie__ vì bài viết này !
lyvanbethao (10-03-13)
Các Chủ đề tương tự
-
[KT] xin script nhận bạc và bạc khóa trong túi tân thủ
Bởi babychum trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 1Bài viết cuối: 28-01-12, 12:54 AM -
[KT] Cách chỉnh script trong server Kiếm Thế ko bị lỗi ai bik chỉ giùm
Bởi zZK3yL0v3Zz trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 8Bài viết cuối: 22-01-12, 11:59 PM -
Một số script trong thư mục script Vina (unpack)
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 19Bài viết cuối: 26-11-11, 08:12 AM -
Cho mình hỏi 1 lỗi về script trong sever hút hít
Bởi concabach trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 5Bài viết cuối: 11-06-11, 08:36 AM -
Tìm hiểu ngôn ngữ lập trình script trong JX.
Bởi giangleloi trong diễn đàn ScriptsTrả lời: 11Bài viết cuối: 28-12-09, 04:00 PM