PDA

View Full Version : [KT] thêm mất thêm tiền khi chuyển sinh như thế nào



canhchung89
25-12-12, 09:42 AM
local nMyMoney = me.nCashMoney; --GetCash();
if (nMyMoney < 10000000) then
Dialog:Say("Không đủ 1000 Vạn Lượng, có đủ rồi hãy quay lại.");
return 0;
end

local tbItemList = {};

for _, pItem in pairs(tbItemObj) do
if (self:CheckCSItem(pItem, REQUIRECS_ITEM[nValue], tbItemList) ~= 1) then
me.Msg("Không có vật phẩm yêu cầu!");
return 0;
end;
end

local bResult = false;
for i = 1, #REQUIRECS_ITEM[nValue] do
if (REQUIRECS_ITEM[nValue][i][2] ~= tbItemList[i]) then
bResult = true;
end;
end;

if (bResult) then
me.Msg("Số lượng vật phẩm không chính xác!");
return 0;
end;

if (nValue == 1) then
me.CostMoney(10000000,0);
end;

nhứ thế sai chỗ nào các pro giúp mình cái

super_1k_dev
25-12-12, 11:21 PM
local nMyMoney = me.GetJbCoin();
if (nMyMoney < 10000000) then
Dialog:Say("Không đủ 1000 Vạn Lượng, có đủ rồi hãy quay lại.");
return 0;
end

local tbItemList = {};

for _, pItem in pairs(tbItemObj) do
if (self:CheckCSItem(pItem, REQUIRECS_ITEM[nValue], tbItemList) ~= 1) then
me.Msg("Không có vật phẩm yêu cầu!");
return 0;
end;
end

local bResult = false;
for i = 1, #REQUIRECS_ITEM[nValue] do
if (REQUIRECS_ITEM[nValue][i][2] ~= tbItemList[i]) then
bResult = true;
end;
end;

if (bResult) then
me.Msg("Số lượng vật phẩm không chính xác!");
return 0;
end;

if (nValue == 1) then
me.AddJbCoin(-10000000);
end;

Bác copy đoạn này là ok :) chúc bác fun