cuongvh93
14-12-16, 01:04 PM
Chào ae, chả là mình có coppy cái scripts Cẩm nang thay đổi trời đất mình thay thành mở ra Ngũ Hoa Ngọc Lộ Hoàn, rút 300 bình thì nó sẽ mất. mọi thứ ok hết thì có vấn đề này mình k biết bị sai chổ nào, cái phần hiện Còn Dư bao nhiêu bình thì nó k hiện ra đc, AE xem giúp nó bị sai chổ nào mà k hiện v? cám ơn ae :D
Include("\\script\\lib\\awardtemplet.lua")
local tbItem =
{
["6,1,4372"] = {szName="Ngò Hoa Ngäc Lé Hoµn", tbProp={1, 2, 0, 5, 0, 0}},
}
function main(nItemIndex)
dofile("script/global/thuoc.lua")
local nCount = GetItemParam(nItemIndex, 1);
if nCount >= 300 then
Say("§· rót hÕt toµn bé thuèc trong ®ã råi, cã thÓ vøt ®i.", 0)
return 0
end
SetTaskTemp(114, nItemIndex)
AskClientForNumber("huitianjinlang_getpotion", 0,(300-nCount), "Xin mêi nhËp sè cÇn rót:")
return 1
end
function huitianjinlang_getpotion(nPickCount)
local nFreeItemCellCount = CalcFreeItemCellCount()
if nPickCount <= 0 then
return
end
if nFreeItemCellCount < nPickCount then
nPickCount = nFreeItemCellCount
end
local nItemIndex = GetTaskTemp(114)
if IsMyItem(nItemIndex) == 1 then
local Gid, Did, Pid = GetItemProp(nItemIndex);
local szItemId = format("%d,%d,%d",Gid, Did, Pid)
if not %tbItem[szItemId] then --ÊDz»ÊÇÕâÀàµÀ¾ß
return
end
local nCount = GetItemParam(nItemIndex, 1);
local nLastCount = 300 - nCount;
if nPickCount > nLastCount then
nPickCount = nLastCount
end
%tbItem[szItemId].nCount = nPickCount
if tbAwardTemplet:GiveAwardByList(%tbItem[szItemId], "Ngò Hoa Ngäc Lé Hoµn") == 1 then
nCount = nCount + nPickCount
if nCount >= 300 then
RemoveItemByIndex(nItemIndex)
else
SetSpecItemParam(nItemIndex, 1, nCount)
SyncItem(nItemIndex) --ͬ²½¿Í»§¶Ë
end
end
else
print("VËt phÈm kh«ng ë trªn ngêi")
end
end
function GetDesc(nItemIndex)
local nCount= GetItemParam(nItemIndex, 1);
local nLastCount = 300 - nCount;
return format("Cßn d: <color=yellow>%d<color>",nLastCount)
end
Include("\\script\\lib\\awardtemplet.lua")
local tbItem =
{
["6,1,4372"] = {szName="Ngò Hoa Ngäc Lé Hoµn", tbProp={1, 2, 0, 5, 0, 0}},
}
function main(nItemIndex)
dofile("script/global/thuoc.lua")
local nCount = GetItemParam(nItemIndex, 1);
if nCount >= 300 then
Say("§· rót hÕt toµn bé thuèc trong ®ã råi, cã thÓ vøt ®i.", 0)
return 0
end
SetTaskTemp(114, nItemIndex)
AskClientForNumber("huitianjinlang_getpotion", 0,(300-nCount), "Xin mêi nhËp sè cÇn rót:")
return 1
end
function huitianjinlang_getpotion(nPickCount)
local nFreeItemCellCount = CalcFreeItemCellCount()
if nPickCount <= 0 then
return
end
if nFreeItemCellCount < nPickCount then
nPickCount = nFreeItemCellCount
end
local nItemIndex = GetTaskTemp(114)
if IsMyItem(nItemIndex) == 1 then
local Gid, Did, Pid = GetItemProp(nItemIndex);
local szItemId = format("%d,%d,%d",Gid, Did, Pid)
if not %tbItem[szItemId] then --ÊDz»ÊÇÕâÀàµÀ¾ß
return
end
local nCount = GetItemParam(nItemIndex, 1);
local nLastCount = 300 - nCount;
if nPickCount > nLastCount then
nPickCount = nLastCount
end
%tbItem[szItemId].nCount = nPickCount
if tbAwardTemplet:GiveAwardByList(%tbItem[szItemId], "Ngò Hoa Ngäc Lé Hoµn") == 1 then
nCount = nCount + nPickCount
if nCount >= 300 then
RemoveItemByIndex(nItemIndex)
else
SetSpecItemParam(nItemIndex, 1, nCount)
SyncItem(nItemIndex) --ͬ²½¿Í»§¶Ë
end
end
else
print("VËt phÈm kh«ng ë trªn ngêi")
end
end
function GetDesc(nItemIndex)
local nCount= GetItemParam(nItemIndex, 1);
local nLastCount = 300 - nCount;
return format("Cßn d: <color=yellow>%d<color>",nLastCount)
end