Kết quả 1 đến 4 của 4
-
08-12-12, 10:20 PM #1Thành Viên
- Ngày tham gia
- Jul 2012
- Bài viết
- 582
- Thanks
- 215
- Thanked 17 Times in 16 Posts
file script event trung hồn đoan ngọ có lỗi
mình đem về chạy file này
chổ phần (-----------------------------------------Chỗ này) trên mình ko để ý test bình thường thì ko có dòng GM test vật phẩm đó khi mở online thì bổng dưng có dòng đó các bạn cho mình hỏi điều kiện gì để có dòng đó vậy ?PHP Code:local tbNpc = Npc:GetClass("tetdoanngo");
function tbNpc:OnDialog()
local szOptMsg = [[
<color=green>Nhắc nhở：<color>
1、Gói Bánh ít cần <color=yellow>5 vạn lượng,Thịt,Gạo Nếp,Lá Bánh<color>；
2、Phóng sinh cá cần <color=yellow>10 Vạn Lượng<color>；
3、<color=yellow>Cá Bá Vương<color> có thể mua ở <color=yellow>Kì Trân Các<color>。
]]
local nState = me.GetTask(3006, 2);
local szButtonColor = (nState < 20 and "") or "<color=gray>";
local tbOpt =
{
{"Gói Bánh ít thịt Đoan Ngọ", self.Banhitdoanngo, self},
{szButtonColor.."Phóng sinh Cá Trắm,Cá Chép,Cá Chích đổi phần thưởng", self.Phongsinh1, self},
{"Phóng sinh Cá Trắm,Cá Chép,Cá Chích,<color=red>Cá Bá Vương <color>đổi phần thưởng", self.Phongsinh2, self},
{"Kết thúc đối thoại"},
}
[COLOR="#FF0000"]if me.GetTask(3001,4) == 1 then -----------------------------------------Chỗ này
table.insert(tbOpt, 4, {"<color=yellow>GM test vật phẩm<color>", [/COLOR]self.GMTest, self});
end
Dialog:Say("Ta có thể giúp nhà ngươi gói bánh hoặc phóng sinh cá.Ngươi cần ta giúp gì nào" .. szOptMsg, tbOpt);
end
function tbNpc:GMTest()
local szOptMsg = [[
<color=green>Nhắc nhở：<color>
1、Gói Bánh ít cần <color=yellow>5 vạn lượng,Thịt,Gạo Nếp,Lá Bánh<color>；
2、Phóng sinh cá cần <color=yellow>10 Vạn Lượng<color>；
3、<color=yellow>Cá Bá Vương<color> có thể mua ở <color=yellow>Kì Trân Các<color>。
]]
local tbOpt =
{
{"Nhận nguyên liệu gói bánh ", self.Banhitdoanngonl, self},
{"Nhận Bánh ít ", self.Banhitdoanngonl2, self},
{"Nhận nguyên liệu Phóng sinh", self.Phongsinh1nl, self},
{"Nhận nguyên liệu Phóng sinh Cá Bá Vương", self.Phongsinh2nl, self},
{"Túi Trung Hồn Đoan Ngọ", self.Tuitrunghon, self},
{"Túi Trung Hồn Đoan Ngọ (Cao Cấp)", self.Tuitrunghon1, self},
{"Túi Nguyên liệu Trung Hồn Đoan Ngọ", self.Tuitrunghon2, self},
{"Kết thúc đối thoại"},
}
Dialog:Say("Ta có thể giúp nhà ngươi gói bánh hoặc phóng sinh cá.Ngươi cần ta giúp gì nào" .. szOptMsg, tbOpt);
end
function tbNpc:Banhitdoanngonl()
me.AddStackItem(18,1,1292,1,nil,100);
me.AddStackItem(18,1,1293,1,nil,100);
me.AddStackItem(18,1,1294,1,nil,100);
end
function tbNpc:Banhitdoanngonl2()
me.AddStackItem(18,1,1295,1,nil,100);
end
function tbNpc:Tuitrunghon()
me.AddStackItem(18,1,1299,1,nil,100);
end
function tbNpc:Tuitrunghon1()
me.AddStackItem(18,1,1299,2,nil,100);
end
function tbNpc:Tuitrunghon2()
me.AddStackItem(18,1,1299,3,nil,100);
end
function tbNpc:Phongsinh1nl()
me.AddStackItem(18,1,1296,1,nil,100);
me.AddStackItem(18,1,1296,2,nil,100);
me.AddStackItem(18,1,1296,3,nil,100);
end
function tbNpc:Phongsinh2nl()
me.AddStackItem(18,1,1296,1,nil,100);
me.AddStackItem(18,1,1296,2,nil,100);
me.AddStackItem(18,1,1296,3,nil,100);
me.AddStackItem(18,1,1296,4,nil,100);
end
function tbNpc:Banhitdoanngo()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,1292,1,0,0};
local tbItemId3 = {18,1,1293,1,0,0};
local tbItemId4 = {18,1,1294,1,0,0};
local nCount2 = me.GetItemCountInBags(18,1,1292,1);
local nCount3 = me.GetItemCountInBags(18,1,1293,1);
local nCount4 = me.GetItemCountInBags(18,1,1294,1);
if (nMyMoney < 50000) then
Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
return 0;
end
if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 then
Dialog:Say("Bạn chưa chuẩn bị đủ nguyên liệu.");
return 0;
else
Task:DelItem(me, tbItemId2, 1);
Task:DelItem(me, tbItemId3, 1);
Task:DelItem(me, tbItemId4, 1);
me.AddItem(18,1,1295,1);
me.CostMoney(50000,0);
end
end
function tbNpc:Phongsinh1()
tbNpc.TaskGourp = 3006;
tbNpc.TaskId_Day = 1;
tbNpc.TaskId_Count = 2;
tbNpc.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 đã phóng sinh %d lần.Bồ tát ghi nhớ lòng thành tâm của bạn.", tbNpc.Use_Max));
return 0;
end
if me.CountFreeBagCell() < 1 then
me.Msg("Hành Trang không đủ chỗ trống.Hãy sắp xếp còn trống 1 ô rồi quay lại gặp ta！");
return 0;
end
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId2 = {18,1,1296,1,0,0};
local tbItemId3 = {18,1,1296,2,0,0};
local tbItemId4 = {18,1,1296,3,0,0};
local nCount2 = me.GetItemCountInBags(18,1,1296,1);
local nCount3 = me.GetItemCountInBags(18,1,1296,2);
local nCount4 = me.GetItemCountInBags(18,1,1296,3);
if (nMyMoney < 100000) then
Dialog:Say("Không đủ 10 Vạn Lượng, có đủ rồi hãy quay lại.");
return 0;
end
if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 then
Dialog:Say("Bạn chưa chuẩn bị đủ nguyên liệu.");
return 0;
else
Task:DelItem(me, tbItemId2, 1);
Task:DelItem(me, tbItemId3, 1);
Task:DelItem(me, tbItemId4, 1);
me.AddItem(18,1,1299,1).Bind(1);
me.CostMoney(100000,0);
me.SetTask(self.TaskGourp, self.TaskId_Count, nCount + 1);
me.Msg(string.format("Bạn đã phóng sinh <color=yellow>%s <color> lần.Bạn còn có thể phóng sinh <color=yellow>%s <color> lần nữa.",nCount + 1,tbNpc.Use_Max - nCount - 1));
end
return 1;
end
function tbNpc:Phongsinh2()
local nMyMoney = me.nCashMoney; --GetCash();
local tbItemId1 = {18,1,1296,1,0,0};
local tbItemId2 = {18,1,1296,2,0,0};
local tbItemId3 = {18,1,1296,3,0,0};
local tbItemId4 = {18,1,1296,4,0,0};
local nCount1 = me.GetItemCountInBags(18,1,1296,1);
local nCount2 = me.GetItemCountInBags(18,1,1296,2);
local nCount3 = me.GetItemCountInBags(18,1,1296,3);
local nCount4 = me.GetItemCountInBags(18,1,1296,4);
if (nMyMoney < 100000) then
Dialog:Say("Không đủ 10 Vạn Lượng, có đủ rồi hãy quay lại.");
return 0;
end
if nCount1 < 1 or nCount2 < 1 or nCount3 < 1 or nCount4 < 1 then
Dialog:Say("Bạn chưa chuẩn bị đủ nguyên liệu.");
return 0;
else
Task:DelItem(me, tbItemId1, 1);
Task:DelItem(me, tbItemId2, 1);
Task:DelItem(me, tbItemId3, 1);
Task:DelItem(me, tbItemId4, 1);
me.AddItem(18,1,1299,2).Bind(1);
me.CostMoney(100000,0);
end
end
và cho mình hỏi gs a3pic share trên đây có bị mem bug đồng được không sau vào thấy acc hack có 8 ức đồng vãi linh hồn
giúp nhé các bácKhách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
08-12-12, 10:29 PM #2Thành Viên Tâm Huyết
- Ngày tham gia
- Oct 2010
- Bài viết
- 668
- Thanks
- 130
- Thanked 67 Times in 63 Posts
Ðề: file script event trung hồn đoan ngọ có lõi
Mình thấy cái đó bạn không muốn có chức năng gm thì bạn xóa dòng đó đi hay them -- vào trước là được mà, còn server a3pick thì lỗi mua đồng âm thui chứ không có lỗi gì khác .
-
08-12-12, 10:32 PM #3Thành Viên Tâm Huyết
- Ngày tham gia
- Jan 2012
- Bài viết
- 2,415
- Thanks
- 2,567
- Thanked 1,846 Times in 882 Posts
Ðề: file script event trung hồn đoan ngọ có lõi
Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
09-12-12, 12:31 AM #4Thành Viên
- Ngày tham gia
- Jul 2012
- Bài viết
- 582
- Thanks
- 215
- Thanked 17 Times in 16 Posts
Ðề: file script event trung hồn đoan ngọ có lõi
Khách viếng thăm hãy cùng lyvanbethao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Trả lời kèm Trích dẫn
Gửi bởi lyvanbethao
[Only registered and activated users can see links. Các Chủ đề tương tự
-
[KT] [Quà Trung Thu Cho AE GZ] 1 Số Event Share Cho AE
Bởi satthupro95 trong diễn đàn ScriptsTrả lời: 27Bài viết cuối: 13-10-15, 12:09 AM -
[KT] Pro nào chỉ mình cách thêm event rương mảnh ghép và trung hồn ngọ được k
Bởi longauto trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 0Bài viết cuối: 27-09-12, 07:14 PM -
[JX] Share script event đêm huy hoàng, ghép chữ,trung thu ,woldcup
Bởi duykhang trong diễn đàn ScriptsTrả lời: 0Bài viết cuối: 25-09-12, 05:41 PM -
[KT] Xin code event trung thu !
Bởi sitachi trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 14Bài viết cuối: 23-09-12, 05:56 PM
