Eduardo170
Well-Known Member
king_odisea.lua
Code:
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
-- Promotion
local promoteKeyword = keywordHandler:addKeyword({'promot'}, StdModule.say, {npcHandler = npcHandler, text = 'Do you want to be promoted in your vocation for 20000 gold?'})
promoteKeyword:addChildKeyword({'yes'}, StdModule.promotePlayer, {npcHandler = npcHandler, level = 20, cost = 20000})
promoteKeyword:addChildKeyword({''}, StdModule.say, {npcHandler = npcHandler, text = 'Ok, whatever.', reset = true})
npcHandler:setMessage(MESSAGE_GREET, 'I greet thee, my loyal subject |PLAYERNAME|.')
npcHandler:setMessage(MESSAGE_FAREWELL, 'Good bye, |PLAYERNAME|!')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'How rude!')
local focusModule = FocusModule:new()
focusModule:addGreetMessage('hi')
focusModule:addGreetMessage('hail king')
npcHandler:addModule(focusModule)modules.lua
Click here(too long)
keywordhandler.lua
Code:
-- Advanced NPC System by Jiddo
if KeywordHandler == nil then
KeywordNode = {
keywords = nil,
callback = nil,
parameters = nil,
children = nil,
parent = nil
}
-- Created a new keywordnode with the given keywords, callback function and parameters and without any childNodes.
function KeywordNode:new(keys, func, param)
local obj = {}
obj.keywords = keys
obj.callback = func
obj.parameters = param
obj.children = {}
setmetatable(obj, self)
self.__index = self
return obj
end
-- Calls the underlying callback function if it is not nil.
function KeywordNode:processMessage(cid, message)
return (self.callback == nil or self.callback(cid, message, self.keywords, self.parameters, self))
end
-- Returns true if message contains all patterns/strings found in keywords.
function KeywordNode:checkMessage(message)
if self.keywords.callback ~= nil then
return self.keywords.callback(self.keywords, message)
end
for _, v in ipairs(self.keywords) do
if type(v) == 'string' then
local a, b = string.find(message, v)
if a == nil or b == nil then
return false
end
end
end
return true
end
-- Returns the parent of this node or nil if no such node exists.
function KeywordNode:getParent()
return self.parent
end
-- Returns an array of the callback function parameters assosiated with this node.
function KeywordNode:getParameters()
return self.parameters
end
-- Returns an array of the triggering keywords assosiated with this node.
function KeywordNode:getKeywords()
return self.keywords
end
-- Adds a childNode to this node. Creates the childNode based on the parameters (k = keywords, c = callback, p = parameters)
function KeywordNode:addChildKeyword(keywords, callback, parameters)
local new = KeywordNode:new(keywords, callback, parameters)
return self:addChildKeywordNode(new)
end
-- Adds a pre-created childNode to this node. Should be used for example if several nodes should have a common child.
function KeywordNode:addChildKeywordNode(childNode)
self.children[#self.children + 1] = childNode
childNode.parent = self
return childNode
end
KeywordHandler = {
root = nil,
lastNode = nil
}
-- Creates a new keywordhandler with an empty rootnode.
function KeywordHandler:new()
local obj = {}
obj.root = KeywordNode:new(nil, nil, nil)
obj.lastNode = {}
setmetatable(obj, self)
self.__index = self
return obj
end
-- Resets the lastNode field, and this resetting the current position in the node hierarchy to root.
function KeywordHandler:reset(cid)
if self.lastNode[cid] then
self.lastNode[cid] = nil
end
end
-- Makes sure the correct childNode of lastNode gets a chance to process the message.
function KeywordHandler:processMessage(cid, message)
local node = self:getLastNode(cid)
if node == nil then
error('No root node found.')
return false
end
local ret = self:processNodeMessage(node, cid, message)
if ret then
return true
end
if node:getParent() then
node = node:getParent() -- Search through the parent.
local ret = self:processNodeMessage(node, cid, message)
if ret then
return true
end
end
if node ~= self:getRoot() then
node = self:getRoot() -- Search through the root.
local ret = self:processNodeMessage(node, cid, message)
if ret then
return true
end
end
return false
end
-- Tries to process the given message using the node parameter's children and calls the node's callback function if found.
-- Returns the childNode which processed the message or nil if no such node was found.
function KeywordHandler:processNodeMessage(node, cid, message)
local messageLower = string.lower(message)
for i, childNode in pairs(node.children) do
if childNode:checkMessage(messageLower) then
local oldLast = self.lastNode[cid]
self.lastNode[cid] = childNode
childNode.parent = node -- Make sure node is the parent of childNode (as one node can be parent to several nodes).
if childNode:processMessage(cid, message) then
return true
end
self.lastNode[cid] = oldLast
end
end
return false
end
-- Returns the root keywordnode
function KeywordHandler:getRoot()
return self.root
end
-- Returns the last processed keywordnode or root if no last node is found.
function KeywordHandler:getLastNode(cid)
return self.lastNode[cid] or self:getRoot()
end
-- Adds a new keyword to the root keywordnode. Returns the new node.
function KeywordHandler:addKeyword(keys, callback, parameters)
return self:getRoot():addChildKeyword(keys, callback, parameters)
end
-- Moves the current position in the keyword hierarchy steps upwards. Steps defalut value = 1.
function KeywordHandler:moveUp(cid, steps)
if steps == nil or type(steps) ~= "number" then
steps = 1
end
for i = 1, steps do
if self.lastNode[cid] == nil then
return nil
end
self.lastNode[cid] = self.lastNode[cid]:getParent() or self:getRoot()
end
return self.lastNode[cid]
end
end
