I need help my npc merchant dont work on tks 3.0.1 mysql.
look this error in console.
lua script error: [npc interface]
data/npc/scrips/merchant.lua
nthink
data/npc/scrips/merchant.lua:24: attempt to index global 'luasql' <a nil value>
stack traceback:
data/npc/scrips/merchant.lua:24 in function <data/npc/scrips/merchant.lua:15>
my npc \/
i need help plis.
look this error in console.
lua script error: [npc interface]
data/npc/scrips/merchant.lua
nthinkdata/npc/scrips/merchant.lua:24: attempt to index global 'luasql' <a nil value>
stack traceback:
data/npc/scrips/merchant.lua:24 in function <data/npc/scrips/merchant.lua:15>
my npc \/
dofile('D:/Thunderserver_8.4_3/config.lua')
local offerTime = 10 -- Seconds to offer items
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
function onCreatureAppear(cid) npcHandler
function onCreatureDisappear(cid) npcHandler
function onCreatureSay(cid, type, msg) npcHandler
time = os.clock()
time2 = os.clock()
function onThink()
npcHandler
if (time2 + 10) < os.clock() then
selfSay('Come here to buy and sell your items.')
time2 = os.clock()
end
if (time + offerTime) < os.clock() then
time = os.clock()
if sqlType == "mysql" then
env = assert(luasql.mysql())
con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
else -- sqlite
env = assert(luasql.sqlite3())
con = assert(env:connect(sqliteDatabase))
end
local cur = assert(con:execute("SELECT * FROM merchantsystem WHERE selled LIKE 0 ORDER BY itemid ASC,price ASC"))
results = 0
money = 0
row = cur:fetch({}, "a")
totallines = cur:numrows()
local itemrand = math.random(1,totallines)
while results < totallines do
local itemrand2 = math.random(1,totallines)
if (itemrand == itemrand2) then
offerid = row.id
itemid = row.itemid
itemname = getItemName(itemid)
local cur2 = assert(con:execute("SELECT * FROM merchantsystem WHERE selled LIKE 0 AND itemid LIKE "..itemid.." ORDER BY price ASC LIMIT 1"))
row2 = cur2:fetch({}, "a")
itemprice2 = row2.price
if (itemprice2 == row.price) then
broadcastMessage('Merchant NPC: Sell '.. itemname ..' for '.. row.price ..' gold coins.',MESSAGE_EVENT_ADVANCE)
break
end
end
row = cur:fetch(row, "a")
results = results+1
end
end
end
function setMerchantItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, playerid, itemid, price)
if sqlType == "mysql" then
env = assert(luasql.mysql())
con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
else -- sqlite
env = assert(luasql.sqlite3())
con = assert(env:connect(sqliteDatabase))
end
textsArray = {}
indextype = 0
assert(con:execute("INSERT INTO merchantsystem VALUES (id,"..playerid..","..itemid..","..price..",0)"))
return TRUE
end
function getMerchantItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, itemid)
if sqlType == "mysql" then
env = assert(luasql.mysql())
con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
else -- sqlite
env = assert(luasql.sqlite3())
con = assert(env:connect(sqliteDatabase))
end
local cur = assert(con:execute("SELECT * FROM merchantsystem WHERE itemid LIKE "..itemid.." AND selled LIKE 0 ORDER BY price ASC LIMIT 1"))
row = cur:fetch({}, "a")
return row
end
function buyedMerchantItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, offerid)
if sqlType == "mysql" then
env = assert(luasql.mysql())
con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
else -- sqlite
env = assert(luasql.sqlite3())
con = assert(env:connect(sqliteDatabase))
end
textsArray = {}
indextype = 0
local cur = assert(con:execute("UPDATE merchantsystem SET selled=1 WHERE id LIKE "..offerid.." AND selled LIKE 0"))
return TRUE
end
function getNPCMoney(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, playerid)
if sqlType == "mysql" then
env = assert(luasql.mysql())
con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
else -- sqlite
env = assert(luasql.sqlite3())
con = assert(env:connect(sqliteDatabase))
end
textsArray = {}
indextype = 0
local cur = assert(con:execute("SELECT * FROM merchantsystem WHERE ownerid LIKE "..playerid.." AND selled LIKE 1"))
results = 0
money = 0
row = cur:fetch({}, "a")
totallines = cur:numrows()
while results < totallines do
money = money + row.price
row = cur:fetch(row, "a")
results = results+1
end
local cur = assert(con:execute("UPDATE merchantsystem SET selled=2 WHERE ownerid LIKE "..playerid.." AND selled LIKE 1"))
return money
end
function getNPCItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, playerid)
if sqlType == "mysql" then
env = assert(luasql.mysql())
con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
else -- sqlite
env = assert(luasql.sqlite3())
con = assert(env:connect(sqliteDatabase))
end
textsArray = {}
indextype = 0
local cur = assert(con:execute("SELECT * FROM merchantsystem WHERE ownerid LIKE "..playerid.." AND selled LIKE 0"))
results = 0
items = {}
row = cur:fetch({}, "a")
totallines = cur:numrows()
while results < totallines do
items[results] = row.itemid
row = cur:fetch(row, "a")
results = results+1
end
local cur = assert(con:execute("UPDATE merchantsystem SET selled=3 WHERE ownerid LIKE "..playerid.." AND selled LIKE 0"))
return items
end
function trim(s)
-- from PiL2 20.4
return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function sellItem(cid, message, keywords, parameters, node)
if(not npcHandler:isFocused(cid)) then
return false
end
msg = string.lower(message)
storages = {}
storages.itemid = 21547
storages.cost = 21548
if (parameters.getitem == TRUE) then
b = string.find(msg, "item:")
itemname = trim(string.sub(msg, 6))
npcHandler:say(itemname, cid)
itemid = getItemIdByName(itemname)
if itemid ~= LUA_ERROR then
setPlayerStorageValue(cid,storages.itemid,itemid)
npcHandler:say('So, for how much gold coins do you want to sell your '.. itemname ..'? (To say the item\'s cost use this format message: "money: Cost Goes Here")', cid)
return TRUE
else
npcHandler:say('Sorry, I didn\'t understand the item\'s name!', cid)
return FALSE
end
elseif (parameters.getmoney == TRUE) then
b, e = string.find(msg, "%d+")
if b == nil or e == nil then
quantity = 1
else
quantity = tonumber(string.sub(msg, b, e))
end
if isNumber(quantity) ~= TRUE then
quantity = 1
end
setPlayerStorageValue(cid,storages.cost,quantity)
itemid = getPlayerStorageValue(cid,storages.itemid)
itemname = getItemName(itemid)
npcHandler:say('Do you want to sell your '..itemname..' for '..quantity..' gold coins? (You will need to pay a fee of 1000 gold coins to me.)', cid)
return TRUE
elseif (parameters.decline == TRUE) then
npcHandler:say('Ok then.', cid)
npcHandler:resetNpc()
return TRUE
elseif (parameters.confirm == TRUE) then
itemid = getPlayerStorageValue(cid,storages.itemid)
itemname = getItemName(itemid)
cost = getPlayerStorageValue(cid,storages.cost)
playerid = getPlayerGUIDByName(getPlayerName(cid))
if(doPlayerTakeItem(cid, itemid, 1) == LUA_NO_ERROR) then
if getPlayerMoney(cid) >= 1000 then
if cost >= 0 then
doPlayerRemoveMoney(cid, 1000)
setMerchantItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, playerid, itemid, cost)
npcHandler:say('Right, now you are selling your '.. itemname ..' for '.. cost ..' gold coins. You can \'get back\' it or wait for someone buy. When someone buy, I will get the money and you will need to get it here.', cid)
else
npcHandler:say('You cannot sell an item costing a negative value.', cid)
end
else
npcHandler:say('You don\'t have 1000 gold coins to pay the fee.', cid)
end
else
npcHandler:say('You don\'t have a '.. itemname ..' to sell.', cid)
end
npcHandler:resetNpc()
return TRUE
end
end
function buyItem(cid, message, keywords, parameters, node)
if(not npcHandler:isFocused(cid)) then
return false
end
msg = string.lower(message)
storages = {}
storages.id = 21610
storages.owner = 21611
storages.itemid = 21612
storages.price = 21613
if (parameters.getitem == TRUE) then
b = string.find(msg, "item:")
itemname = trim(string.sub(msg, 6))
itemid = getItemIdByName(itemname)
if itemid ~= LUA_ERROR then
local itemget = getMerchantItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, itemid)
if itemget ~= nil then
npcHandler:say('The cheaper '.. itemname ..' that I have costs '.. itemget.price ..' gold coins. Do you want to buy?', cid)
setPlayerStorageValue(cid,storages.id,itemget.id)
setPlayerStorageValue(cid,storages.owner,itemget.ownerid)
setPlayerStorageValue(cid,storages.itemid,itemget.itemid)
setPlayerStorageValue(cid,storages.price,itemget.price)
return TRUE
else
npcHandler:say('Sorry, I don\'t have a '.. itemname ..' to sell you now!', cid)
return FALSE
end
return TRUE
else
npcHandler:say('Sorry, I didn\'t understand the item\'s name!', cid)
return FALSE
end
elseif (parameters.decline == TRUE) then
npcHandler:say('Ok then.', cid)
npcHandler:resetNpc()
return TRUE
elseif (parameters.confirm == TRUE) then
offerid = getPlayerStorageValue(cid,storages.id)
itemprice = getPlayerStorageValue(cid,storages.price)
ownerid = getPlayerStorageValue(cid,storages.owner)
itemid = getPlayerStorageValue(cid,storages.itemid)
itemname = getItemName(itemid)
playerid = getPlayerGUIDByName(getPlayerName(cid))
if getPlayerMoney(cid) >= itemprice then
doPlayerRemoveMoney(cid, itemprice)
doPlayerAddItem(cid,itemid,1)
buyedMerchantItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, offerid)
npcHandler:say('Thank you for buying it!', cid)
else
npcHandler:say('You don\'t have enough money to buy it.', cid)
end
npcHandler:resetNpc()
return TRUE
end
end
function getMoneyBack(cid, message, keywords, parameters, node)
if(not npcHandler:isFocused(cid)) then
return false
end
msg = string.lower(message)
if (parameters.confirm == TRUE) then
playerid = getPlayerGUIDByName(getPlayerName(cid))
moneyhave = getNPCMoney(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, playerid)
if (moneyhave > 0) then
doPlayerAddMoney(cid,moneyhave)
npcHandler:say('Ok, take it man.', cid)
else
npcHandler:say('You don\'t have money to get back.', cid)
end
npcHandler:resetNpc()
return TRUE
end
end
function getItemBack(cid, message, keywords, parameters, node)
if(not npcHandler:isFocused(cid)) then
return false
end
msg = string.lower(message)
if (parameters.confirm == TRUE) then
playerid = getPlayerGUIDByName(getPlayerName(cid))
itemshave = getNPCItem(sqlType, mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort, sqliteDatabase, playerid)
if (itemshave[0] ~= nil) then
for k,v in pairs(itemshave) do
doPlayerAddItem(cid,v,1)
end
npcHandler:say('Ok, take it man.', cid)
else
npcHandler:say('You don\'t have items to get back.', cid)
end
npcHandler:resetNpc()
return TRUE
end
end
local getItemNode = KeywordNode:new({'item:'}, sellItem, {getitem = TRUE})
local getMoneyNode = KeywordNode:new({'money: '}, sellItem, {getmoney = TRUE})
local noSellNode = KeywordNode:new({'no'}, sellItem, {decline = TRUE})
local yesSellNode = KeywordNode:new({'yes'}, sellItem, {confirm = TRUE})
local sellnode = keywordHandler:addKeyword({'sell item'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'What is the name of the item which you want to sell? (To say the item\'s name use this format message: "item: Item Name Goes Here")'})
local getItem = sellnode:addChildKeywordNode(getItemNode)
local getMoney = getItem:addChildKeywordNode(getMoneyNode)
getMoney:addChildKeywordNode(yesSellNode)
getMoney:addChildKeywordNode(noSellNode)
local getItemNode = KeywordNode:new({'item:'}, buyItem, {getitem = TRUE})
local noBuyNode = KeywordNode:new({'no'}, buyItem, {decline = TRUE})
local yesBuyNode = KeywordNode:new({'yes'}, buyItem, {confirm = TRUE})
local buynode = keywordHandler:addKeyword({'buy item'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'What is the name of the item which you want to buy? (To say the item\'s name use this format message: "item: Item Name Goes Here")'})
local getItem = buynode:addChildKeywordNode(getItemNode)
getItem:addChildKeywordNode(yesBuyNode)
getItem:addChildKeywordNode(noBuyNode)
keywordHandler:addKeyword({'get money'}, getMoneyBack, {confirm = TRUE})
keywordHandler:addKeyword({'getback item'}, getItemBack, {confirm = TRUE})
npcHandler:addModule(FocusModule:new())
i need help plis.
