Kết quả 1 đến 2 của 2
-
30-08-13, 09:58 PM #1
- Ngày tham gia
- Jul 2012
- Bài viết
- 240
- Thanks
- 158
- Thanked 5 Times in 5 Posts
Cho tớ hỏi script mở vật phẩm random ra đồng thường
PHP Code:function tbHongBaoc:OnUse()
local tbItemId3 = {18,1,1190,1};
local nState = me.GetTask(3003, 2);
tbHongBaoc.TaskGourp = 3003;
tbHongBaoc.TaskId_Day = 1;
tbHongBaoc.TaskId_Count = 2;
tbHongBaoc.TaskId_Last = 3;
tbHongBaoc.Use_Max = 20;
local nDate = tonumber(GetLocalDate("%Y%m%d"));
local nCurTime = GetTime();
local nWeekDay = tonumber(os.date("%w", nCurTime));
if me.GetTask(self.TaskGourp, self.TaskId_Day) < nDate then
me.SetTask(self.TaskGourp, self.TaskId_Day, nDate);
me.SetTask(self.TaskGourp, self.TaskId_Count, 0);
end
local nCount = me.GetTask(self.TaskGourp, self.TaskId_Count)
if nCount >= self.Use_Max then
Dialog:Say(string.format("Bạn đã sử dụng %d lần.Hãy nghỉ ngơi , mai sử dụng tiếp !.", tbHongBaoc.Use_Max));
return 0;
end
local tbItemId3 = {18,1,1190,1};
local nCount3 = me.GetItemCountInBags(18,1,1190,1); -- Búa
local i = 0;
local nAdd = 0;
local nRand = 0;
local nIndex = 0;
-- random
nRand = MathRandom(1, 10000);
-- fill 3 rate
local tbRate = {3000,7000};
local tbAward =
{
[1] = {18,1,114,8};
[2] = {18,1,114,9};
}
if me.CountFreeBagCell() < 3 then
Dialog:Say("Phải có 3 ô trống !");
return 0;
end
if nCount3 < 1 then
Dialog:Say("<color=yellow>Trong hành trang không có rương anh hùng<color>");
return 0;
end
for i = 1, 2 do
nAdd = nAdd + tbRate[i];
if nAdd >= nRand then
nIndex = i;
break;
end
end
local pItem = me.AddItem(unpack(tbAward[nIndex]));
pItem.Bind(1);
Task: DelItem(me, tbItemId3, 1);
me.SetTask(self.TaskGourp, self.TaskId_Count, nCount + 1);
me.Msg(string.format("Bạn đã sử dụng <color=yellow>%s <color> lần.Bạn còn có thể sử dụng <color=yellow>%s <color> lần nữa.",nCount + 1,tbNpc.Use_Max - nCount - 1));
return 1;
end
Khách viếng thăm hãy cùng ltasa93 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
31-08-13, 08:36 AM #2
- Ngày tham gia
- May 2012
- Đang ở
- đây
- Bài viết
- 5,112
- Thanks
- 248
- Thanked 3,008 Times in 1,889 Posts
Ðề: Cho tớ hỏi script mở vật phẩm random ra đồng thường
đoạn này :
Code:local pItem = me.AddItem(unpack(tbAward[nIndex])); pItem.Bind(1);
Code:if nIndex == 1 then me.AddJbCoin(50000); end if nIndex == 2 then me.AddJbCoin(200000); end
Khách viếng thăm hãy cùng vipbk 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 vipbk vì bài viết này !
ltasa93 (31-08-13)
Các Chủ đề tương tự
-
[KT] Hỏi Random của Rương Đồng Bị Khóa
Bởi lythaotta trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 19Bài viết cuối: 05-12-12, 08:13 AM -
[JX] AE nhận xét xem giúp cái Script random NPC
Bởi heocon246 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 6Bài viết cuối: 21-07-12, 03:20 PM -
[JX] Giúp Về Vấn Đề Random
Bởi DMC.NeZo trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 3Bài viết cuối: 02-06-12, 07:55 PM -
[KT] Xin script nhận thưởng random vật phẩm
Bởi anhvaem_n2s trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 4Bài viết cuối: 04-05-12, 03:59 AM