PDA

View Full Version : [JX] Xóa tẩy tủy kinh và võ lâm mật tích


lichnt
09-09-19, 08:30 AM
Mình mới dev JX: Mình muốn có chức năng là thu đổi Võ lâm mật tịch hoặc Tẩy tủy kinh nhưng không xóa được mình chưa hiểu tại sao:
Mình viết như sau:


function VLMT()
if (GetItemCount(26) >= 1) then
DelItem(26)
n=1
while(n<=15)
do
AddItem(4,417,1,1,0,0)
n=n+1
end
--<color=pink>TiÒn ®ång
Msg2Player("nhËn ®­îc 15 TiÒn ®ång.")
else
Msg2Player("B¹n kh«ng cã Vâ L©m mËt tÞch.")
end
end;

function TTK()
if (GetItemCount(22) >= 1) then
DelItem(22)
n=1
while(n<=15)
do
AddItem(4,417,1,1,0,0)
n=n+1
end
--<color=pink>TiÒn ®ång
Msg2Player("nhËn ®­îc 15 TiÒn ®ång.")
else
Msg2Player("B¹n kh«ng cã TÈy tuû kinh.")
end
end;



Các bác giúp mình xem tại sao mà không xóa được võ lâm mật tịch hoặc tẩy tủy kinh với
minhduc_aa
09-09-19, 10:31 AM
Mình mới dev JX: Mình muốn có chức năng là thu đổi Võ lâm mật tịch hoặc Tẩy tủy kinh nhưng không xóa được mình chưa hiểu tại sao:
Mình viết như sau:


function VLMT()
if (GetItemCount(26) >= 1) then
DelItem(26)
n=1
while(n<=15)
do
AddItem(4,417,1,1,0,0)
n=n+1
end
--<color=pink>TiÒn ®ång
Msg2Player("nhËn ®­îc 15 TiÒn ®ång.")
else
Msg2Player("B¹n kh«ng cã Vâ L©m mËt tÞch.")
end
end;

function TTK()
if (GetItemCount(22) >= 1) then
DelItem(22)
n=1
while(n<=15)
do
AddItem(4,417,1,1,0,0)
n=n+1
end
--<color=pink>TiÒn ®ång
Msg2Player("nhËn ®­îc 15 TiÒn ®ång.")
else3
Msg2Player("B¹n kh«ng cã TÈy tuû kinh.")
end
end;



Các bác giúp mình xem tại sao mà không xóa được võ lâm mật tịch hoặc tẩy tủy kinh với
Lâu không chơi nên không biết võ lâm mật tịch hay tẩy tủy kinh là loại vật phẩm gì, có xếp chồng được hay không. Nên mời bạn thử bảng giao vật phẩm này, nếu sai thì nghiên cứu tiếp:

function doivolammattich()
GiveItemUi ("Giao Vo Lam Mat Tich", "Can dat vao 01 quyen Vo lam mat tich", "VLMT", "no");
end;
function VLMT()
local scrollarray = {}
local scrollcount = 0
local scrollidx = {}
local c= 0
local xepchong = 0
for i=1, ncount do
local nItemIdx = GetGiveItemUnit(i);
itemgenre, detailtype, parttype = GetItemProp(nItemIdx)
xepchong = GetItemStackCount(nItemIdx) or 1;
if (itemgenre ==6 and detailtype ==1 and parttype ==26) then --id vat pham vo lam mat tich trong magicscript cua ban
c = c + xepchong
scrollidx[getn(scrollidx)+1] = nItemIdx;
end
end
if c ~= 1 then
Say ("Xin loi, ban dat sai vat pham hoac so luong khong dung." "Ta dat lai nhe/doivolammattich", "Thoi khong can/no")
return
end
AddStackItem(15,4,417,1,1,0,0);
--doi duoc 15 tien dong
Msg2Player ("Ban nhan duoc 15 <color=yellow>Tien dong<color>.");
for i=1, getn(scrollidx) do
RemoveItemByIndex(scrollidx[i])
end
end

:)
lichnt
09-09-19, 12:40 PM
Lâu không chơi nên không biết võ lâm mật tịch hay tẩy tủy kinh là loại vật phẩm gì, có xếp chồng được hay không. Nên mời bạn thử bảng giao vật phẩm này, nếu sai thì nghiên cứu tiếp:

function doivolammattich()
GiveItemUi ("Giao Vo Lam Mat Tich", "Can dat vao 01 quyen Vo lam mat tich", "VLMT", "no");
end;
function VLMT()
local scrollarray = {}
local scrollcount = 0
local scrollidx = {}
local c= 0
local xepchong = 0
for i=1, ncount do
local nItemIdx = GetGiveItemUnit(i);
itemgenre, detailtype, parttype = GetItemProp(nItemIdx)
xepchong = GetItemStackCount(nItemIdx) or 1;
if (itemgenre ==6 and detailtype ==1 and parttype ==26) then --id vat pham vo lam mat tich trong magicscript cua ban
c = c + xepchong
scrollidx[getn(scrollidx)+1] = nItemIdx;
end
end
if c ~= 1 then
Say ("Xin loi, ban dat sai vat pham hoac so luong khong dung." "Ta dat lai nhe/doivolammattich", "Thoi khong can/no")
return
end
AddStackItem(15,4,417,1,1,0,0);
--doi duoc 15 tien dong
Msg2Player ("Ban nhan duoc 15 <color=yellow>Tien dong<color>.");
for i=1, getn(scrollidx) do
RemoveItemByIndex(scrollidx[i])
end
end

:)

Không xếp chồng đc bạn nhé. Nếu vậy sửa sao nhỉ
lichnt
09-09-19, 05:03 PM
Lâu không chơi nên không biết võ lâm mật tịch hay tẩy tủy kinh là loại vật phẩm gì, có xếp chồng được hay không. Nên mời bạn thử bảng giao vật phẩm này, nếu sai thì nghiên cứu tiếp:

function doivolammattich()
GiveItemUi ("Giao Vo Lam Mat Tich", "Can dat vao 01 quyen Vo lam mat tich", "VLMT", "no");
end;
function VLMT()
local scrollarray = {}
local scrollcount = 0
local scrollidx = {}
local c= 0
local xepchong = 0
for i=1, ncount do
local nItemIdx = GetGiveItemUnit(i);
itemgenre, detailtype, parttype = GetItemProp(nItemIdx)
xepchong = GetItemStackCount(nItemIdx) or 1;
if (itemgenre ==6 and detailtype ==1 and parttype ==26) then --id vat pham vo lam mat tich trong magicscript cua ban
c = c + xepchong
scrollidx[getn(scrollidx)+1] = nItemIdx;
end
end
if c ~= 1 then
Say ("Xin loi, ban dat sai vat pham hoac so luong khong dung." "Ta dat lai nhe/doivolammattich", "Thoi khong can/no")
return
end
AddStackItem(15,4,417,1,1,0,0);
--doi duoc 15 tien dong
Msg2Player ("Ban nhan duoc 15 <color=yellow>Tien dong<color>.");
for i=1, getn(scrollidx) do
RemoveItemByIndex(scrollidx[i])
end
end

:)

Mình sửa lại , chưa được mịn lắm nhưng tạm thời ok:



function doivolammattich()
GiveItemUI("§æi Vâ L©m MËt TÞch", "Xin h·y ®Æt ®óng vËt phÈm vâ l©m mËt tÞch", "VLMT", "onCancel", 1);
end

function VLMT(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "Vâ L©m MËt TÞch" ) then
RemoveItemByIndex(nItemIndex)
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
else
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng vâ l©m mËt tÞch.",2, "H·y ®Æt l¹i vËt phÈm/doivolammattich", "Th«i kh«ng cÇn/no")
end
end--for
end

function doitaytuykinh()
GiveItemUI("§æi TÈy Tuû Kinh", "Xin h·y ®Æt ®óng vËt phÈm tÈy tuû kinh", "TTK", "onCancel", 1);
end


function TTK(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "TÈy Tñy Kinh" ) then
RemoveItemByIndex(nItemIndex)
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
else
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng tÈy tuû kinh.",2, "H·y ®Æt l¹i vËt phÈm/doitaytuykinh", "Th«i kh«ng cÇn/no")
end
end--for
end
tunggiang
15-04-20, 11:11 AM
function doivolammattich()
GiveItemUI("§æi Vâ L©m MËt TÞch", "Xin h·y ®Æt ®óng vËt phÈm vâ l©m mËt tÞch", "VLMT", "onCancel", 1);
end

function VLMT(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "Vâ L©m MËt TÞch" ) then
RemoveItemByIndex(nItemIndex)
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
else
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng vâ l©m mËt tÞch.",2, "H·y ®Æt l¹i vËt phÈm/doivolammattich", "Th«i kh«ng cÇn/no")
end
end--for
end

function doitaytuykinh()
GiveItemUI("§æi TÈy Tuû Kinh", "Xin h·y ®Æt ®óng vËt phÈm tÈy tuû kinh", "TTK", "onCancel", 1);
end


function TTK(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "TÈy Tñy Kinh" ) then
RemoveItemByIndex(nItemIndex)
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
else
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng tÈy tuû kinh.",2, "H·y ®Æt l¹i vËt phÈm/doitaytuykinh", "Th«i kh«ng cÇn/no")
end
end--for
end

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
YOLODC
15-04-20, 06:57 PM
function doivolammattich()
GiveItemUI("§æi Vâ L©m MËt TÞch", "Xin h·y ®Æt ®óng vËt phÈm vâ l©m mËt tÞch", "VLMT", "onCancel", 1);
end

function VLMT(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "Vâ L©m MËt TÞch" ) then
RemoveItemByIndex(nItemIndex)
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
else
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng vâ l©m mËt tÞch.",2, "H·y ®Æt l¹i vËt phÈm/doivolammattich", "Th«i kh«ng cÇn/no")
end
end--for
end

function doitaytuykinh()
GiveItemUI("§æi TÈy Tuû Kinh", "Xin h·y ®Æt ®óng vËt phÈm tÈy tuû kinh", "TTK", "onCancel", 1);
end


function TTK(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "TÈy Tñy Kinh" ) then
RemoveItemByIndex(nItemIndex)
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
else
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng tÈy tuû kinh.",2, "H·y ®Æt l¹i vËt phÈm/doitaytuykinh", "Th«i kh«ng cÇn/no")
end
end--for
end

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>



function VLMT(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "Vâ L©m MËt TÞch" ) then
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
elseif (strItem == "TÈy Tñy Kinh" ) then
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
elseif (strItem == "TÈy Tñy Kinh" ) and (strItem == "Vâ L©m MËt TÞch" ) then
AddStackItem(30,4,417,1,1,0,0)
RemoveItemByIndex(nItemIndex)
Msg2Player("NhËn ®­îc 30 TiÒn ®ång.")
elseif
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng vâ l©m mËt tÞch.",2, "H·y ®Æt l¹i vËt phÈm/doivolammattich", "Th«i kh«ng cÇn/no")
end
end--for
end

Bác test thử xem đc ko , em đang ở ngoài ko test đc
tunggiang
15-04-20, 08:29 PM
function VLMT(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
if (strItem == "Vâ L©m MËt TÞch" ) then
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
elseif (strItem == "TÈy Tñy Kinh" ) then
AddStackItem(15,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 15 TiÒn ®ång.")
elseif (strItem == "TÈy Tñy Kinh" ) and (strItem == "Vâ L©m MËt TÞch" ) then
AddStackItem(30,4,417,1,1,0,0)
RemoveItemByIndex(nItemIndex)
Msg2Player("NhËn ®­îc 30 TiÒn ®ång.")
elseif
Say ("Xin lçi, b¹n kh«ng ®Æt ®óng vâ l©m mËt tÞch.",2, "H·y ®Æt l¹i vËt phÈm/doivolammattich", "Th«i kh«ng cÇn/no")
end
end--for
end

nó không chạy đc b nhé, mình cũng từng thử viết cách này nhưng ko đc

mình có viết theo cách bên dưới này nhưng nó ko theo yêu cầu là chỉ nhận 1 VLMT + 1 TTK, mà nó còn nhận 2 TTK hoặc 2 VLMT cũng đc, bạn xem thử


function doivolamtaytuy()
GiveItemUI("Vâ L©m MËt TÞch vµ TÈy Tñy Kinh", "Xin h·y ®Æt ®óng vËt phÈm", "VLTT", "onCancel", 1);
end
function VLTT(nCount) -- nCount ®Õm sè vËt phÈm bá vµo
if ( nCount ~= 2 ) then
Say("Xin kiÓm tra kü, kh«ng phï hîp yªu cÇu sè l­îng!",0)
return 0
else
for i = 1, nCount do
local nItemIndex = GetGiveItemUnit( i )
itemgenre, detailtype, parttype = GetItemProp(nItemIndex)
if ( itemgenre ~= 6 ) then
Say("Xin kiÓm tra kü, kh«ng phï hîp yªu cÇu 1!",0)
return 0
elseif ( detailtype ~= 1) then
Say("Xin kiÓm tra kü, kh«ng phï hîp yªu cÇu 2!",0)
return 0
elseif ( parttype ~= 22 and parttype ~= 26) then
Say("Xin kiÓm tra kü, kh«ng phï hîp yªu cÇu 3",0)
return 0
end
RemoveItemByIndex(nItemIndex)
AddStackItem(500,4,417,1,1,0,0)
Msg2Player("NhËn ®­îc 500 TiÒn ®ång.")
end
end
end