Xóa tẩy tủy kinh và võ lâm mật tích

[lichnt]

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]

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]

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]

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]

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

cho mình hỏi là làm sao kết hợp 2 script này lại thành 1 vậy, ví dụ nếu cho đồng thời cả VLMT + TTK thì sẽ được 35 tiền đồng chẳng hạn, mọi người giúp đỡ với @@

[YOLODC]

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

cho mình hỏi là làm sao kết hợp 2 script này lại thành 1 vậy, ví dụ nếu cho đồng thời cả VLMT + TTK thì sẽ được 35 tiền đồng chẳng hạn, mọi người giúp đỡ với @@

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]

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