Kết quả 1 đến 10 của 12
Chủ đề: Hỏi về script đổi trang bị pet
-
18-05-13, 08:54 PM #1
Hỏi về script đổi trang bị pet
cả 2 SV share điều có chung cái scipt này nhưng mình tét có lõi sau
PHP Code:function tbLegendKiem:vkdhc2()
local tbItemId1 = {18,1,25128,1,0,0}; -- Linh Hồn Vũ Khí
local tbItemId2 = {18,1,325,1,0,0}; -- VSV
local nCount1 = me.GetItemCountInBags(18,1,25128,1);
local nCount2 = me.GetItemCountInBags(18,1,325,1);
if nCount1 < 50 and nCount2 < 2500 then
Dialog:Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
return 0;
else
Task:DelItem(me, tbItemId1, 50);
Task:DelItem(me, tbItemId2, 2500);
me.AddItem(5,19,1,2);
Dialog:Say("<color=wheat>Chức mừng <coloryellow>" ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>", {"..."});
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp <color=red>2<color>"});
end
end
-----------nó chỉ check là khi bạn có 2500 vsv là nó đổi cho bạn luôn chứ nó ko đòi điều kiện là 50 linh hồn vũ khíYahoo : Mattroimoi111
-
18-05-13, 09:05 PM #2
Ðề: hoi về script luyện hóa trang bị pet
tham khảoKhách viếng thăm hãy cùng trickster 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 trickster vì bài viết này !
lyvanbethao (18-05-13)
-
18-05-13, 09:11 PM #3
- Ngày tham gia
- Jan 2012
- Bài viết
- 2,412
- Thanks
- 2,567
- Thanked 1,842 Times in 880 Posts
Ðề: hoi về script luyện hóa trang bị pet
PHP Code:function tbLegendKiem:vkdhc2()
local tbItemId1 = {18,1,25128,1,0,0}; -- Linh Hồn Vũ Khí
local tbItemId2 = {18,1,325,1,0,0}; -- VSV
local nCount1 = me.GetItemCountInBags(18,1,25128,1);
local nCount2 = me.GetItemCountInBags(18,1,325,1);
if nCount1 < 50 and nCount2 < 2500 then
Dialog:Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
return 0;
else
Task:DelItem(me, tbItemId1, 50);
Task:DelItem(me, tbItemId2, 2500);
me.AddItem(5,19,1,2);
Dialog:Say("<color=wheat>Chức mừng <coloryellow>" ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>", {"..."});
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp <color=red>2<color>"});
end
end
Sửa lại thử kiểu này :
PHP Code:function tbLegendKiem:vkdhc2()
local tbItemId1 = {18,1,25128,1,0,0}; -- Linh Hồn Vũ Khí
local tbItemId2 = {18,1,325,1,0,0}; -- VSV
local nCount1 = me.GetItemCountInBags(18,1,25128,1);
local nCount2 = me.GetItemCountInBags(18,1,325,1);
if nCount1 < 50 or nCount2 < 2500 then
Dialog:Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .\nSố Linh Hồn Vũ Khí Hiện Có "..nCount1.."\nSố Vỏ Sò Vàng hiện có : "..nCount2.."")
return;
end
Task:DelItem(me, tbItemId1, 50); -- Xóa 50 LH Vũ Khí
Task:DelItem(me, tbItemId2, 2500); -- Xóa 2500 Vỏ Sò Vàng
me.AddItem(5,19,1,2); -- Ad vật phẩm vào
Dialog:Say("<color=wheat>Chức mừng <coloryellow>" ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>");
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp<color=red>2<color>"});
end
Lần sửa cuối bởi satthupro95, ngày 18-05-13 lúc 09:15 PM.
Khách viếng thăm hãy cùng satthupro95 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 satthupro95 vì bài viết này !
lyvanbethao (18-05-13)
-
18-05-13, 09:13 PM #4
Ðề: hoi về script luyện hóa trang bị pet
cái script này đổi 5 món khác nhau(mõi thứ 1 cái ) thành 1 món mình muốn tham khão script đổi 3 món khác nhau (mõi thứ nhiều cái vd như 500 vsv , 1000NAT) lấy thành 1 món bạn @@
--- Chế độ gộp bài viết ---
cám ơn THÁNH nhờ cái này mà có thể tùy biến ra thêm mấy cái khác thanks nhéYahoo : Mattroimoi111
-
18-05-13, 09:18 PM #5
- Ngày tham gia
- Jan 2012
- Bài viết
- 2,412
- Thanks
- 2,567
- Thanked 1,842 Times in 880 Posts
Ðề: hoi về script luyện hóa trang bị pet
Khách viếng thăm hãy cùng satthupro95 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 satthupro95 vì bài viết này !
lyvanbethao (18-05-13)
-
18-05-13, 09:31 PM #6
Ðề: hoi về script luyện hóa trang bị pet
Khách viếng thăm hãy cùng trickster xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
18-05-13, 09:53 PM #7
Ðề: hoi về script luyện hóa trang bị pet
test thêm cái đoạn này sài ok nhưng có 1 lõi
PHP Code:function tbLegendKiem:vkdhc2()
local tbItemId1 = {18,1,295,4,0,0}; -- Linh Hồn Vũ Khí
local tbItemId2 = {18,1,325,1,0,0}; -- VSV
local tbItemId3 = {5,19,1,1,0,0}; -- VK 1
local nCount1 = me.GetItemCountInBags(18,1,295,4);
local nCount2 = me.GetItemCountInBags(18,1,325,1);
local nCount3 = me.GetItemCountInBags(5,19,1,1);
if nCount1 < 100 or nCount2 < 2500 or nCount3 < 1 then
Dialog:Say("Khi nào đủ 1 Vũ khí LV1 + 100 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
return 0;
else
Task:DelItem(me, tbItemId1, 100);
Task:DelItem(me, tbItemId2, 2500);
Task:DelItem(me, tbItemId3, 1);
me.AddItem(5,19,1,2);
Dialog:Say("<color=wheat>Chức mừng <coloryellow>" ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>", {"..."});
GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>" ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp <color=red>2<color>"});
end
end
Yahoo : Mattroimoi111
-
18-05-13, 10:23 PM #8
- Ngày tham gia
- Jan 2012
- Bài viết
- 2,412
- Thanks
- 2,567
- Thanked 1,842 Times in 880 Posts
Ðề: hoi về script luyện hóa trang bị pet
Khách viếng thăm hãy cùng satthupro95 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 satthupro95 vì bài viết này !
lyvanbethao (18-05-13)
-
18-05-13, 10:49 PM #9
-
18-05-13, 11:31 PM #10
- Ngày tham gia
- Sep 2008
- Bài viết
- 1,320
- Thanks
- 256
- Thanked 740 Times in 559 Posts
Ðề: hoi về script luyện hóa trang bị pet
sao không viết OpenGift cho đơn giản .
Bỏ Item vào và xóa item đi .
Ngay trong Client VNG nó đã share rồi còn gì
Code: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
Khá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 Chủ đề tương tự
-
[MU] Share trang chủ và trang download mu-thanchet vừa mới rip đc
Bởi ikyssu trong diễn đàn SQL Server & WebsiteTrả lời: 7Bài viết cuối: 19-05-13, 10:53 AM -
[KT] Share Script đổi Trang Bị Pet
Bởi sitachi trong diễn đàn ScriptsTrả lời: 35Bài viết cuối: 17-04-13, 09:37 AM -
[JX] Hỏi Về Cách Viết Script đổi Trang Bị.
Bởi keo_ngot1418 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 8Bài viết cuối: 01-04-13, 03:47 AM -
[KT] Script ngoại trang
Bởi protoman trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 3Bài viết cuối: 22-01-13, 08:21 PM -
xin trang download file main trang cua webzen
Bởi mrgacon trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 0Bài viết cuối: 13-06-11, 04:37 AM