Enhanced NPC System

local Oracle = AI.SocialNpc:New()

-- Lots of configuration options skipped for simplicity (hope)

-- This is just a specific table to store some data, we might use a local table aswell
-- The Npc class reserves all properties/methods in the object that start with a Upercase letter
-- you can add your own fields as long as they start with lowercase
Oracle.config = {
	minLevel = 8,
	cities = {
		['Rhyves'] = { town = 1, pos={x=242, y=429, z=12} }, 
		['Varak'] = { town = 2, pos={x=159, y=387, z=6} },  
		['Jorvik'] = { town = 3, pos={x=469, y=172, z=7} }		
	},
	vocations = {
		[1] = 'So, you wish to be a powerful magician? Are you sure about that?',
		[2] = 'Are you sure that a druid is what you wish to become?',
		[3] = 'A ranged marksman. Are you sure?',
		[4] = 'A mighty warrior. Is that your final decision?'
	},
	vocIdMap = {}
}

-- Do this one time
Oracle.config.citiesList = AI.CreateOptionList(Oracle.config.cities) -- outputs: "{Rhyves}, {Varak} or {Jorvik}"
Oracle.config.vocationsList = AI.CreateOptionList(Oracle.config.vocations, function(vocid) -- outputs: "{Sorcrer}, {Knight}, {Paladin} or {Druid}"
	local vocName = getVocationInfo(vocid).name
	Oracle.config.vocIdMap[vocName] = vocid -- Some mapping for later use
	return vocName
end)

-- This is called when user replies positive to our question (see line 85)
Oracle.dudeIsPrepared = function(talk)
	-- This outputs the message is passed, extracts the keywords (all words enclosed in {}) and
	-- later, if the players answers with any of these keywords, the response function
	-- (see below) is called
	talk:Ask('What city do you wish to live in? ' .. Oracle.config.citiesList .. '?')
	-- Response to all valid cities
	-- city = the city the player answered (with no case modification, so if player said
	-- "ThAiS" city will be "Thais"(the orignal keyword on the talk:Ask parsed parameters list)
	talk:Response(function(talk, city)	
	
		talk:Ask(city .. ', eh? So what vocation do you wish to become? ' .. Oracle.config.vocationsList .. '?')
		 -- Resonse functions are only called when the player replies with a valid answer
		 -- Theres a equivalent talk:BadResponse() function for when the player says a nonsense
		talk:Response(function(talk, vocation)
		
			talk:AskAgreement(Oracle.config.vocations[Oracle.config.vocIdMap[vocation]] .. ' This decision is irreversible!',
			function() -- yes					
				-- Start of default oracle code
				if(getPlayerVocation(talk.player) > 0) then
					talk:Say('Sorry, You already have a vocation!')
				else
					local cityPos =  Oracle.config.cities[city].pos
					doPlayerSetVocation(talk.player, Oracle.config.vocIdMap[vocation])
					doPlayerSetTown(talk.player, Oracle.config.cities[city].town)
					
					local tmp = getCreaturePosition(talk.player)
					doTeleportThing(talk.player, cityPos)
					doSendMagicEffect(tmp, CONST_ME_POFF)
					doSendMagicEffect(cityPos, CONST_ME_TELEPORT)
				end		
				-- End of default oracle code
				
				return talk:SilentEnd() -- Player is gone or we already said "You already have a voc.."
			end,
				
			function() -- no
				talk:Say('Then what vocation do you want to become?')
				talk:GoUp(1) -- Go up to vocation selection
			end)
			
		end)
	end)		
end


-- All replies can be either a function or a string 
Oracle.GreetReply = function(talk) -- a Talk object represent a conversation with a player
	if(getPlayerLevel(talk.player) < Oracle.config.minLevel) then
		talk:Say('COME BACK WHEN YOU GROW UP, CHILD!')
		talk:SilentEnd() -- Unfocus this player without saying anything
	else
		-- This output the question and waits for a positive or negative answer,
		-- calling the appropriate passed function once the player replies
		talk:AskAgreement('Hello |PLAYERNAME|. Are you prepared to face your destiny?', 
			Oracle.dudeIsPrepared, -- yes
			nil) -- no, since its nil(you can leave it empty) if players dont agree, the talk ends)
	end
end

-- String reply
Oracle.FarewellReply = 'Then come back when you are ready.'

-- This registers the default OnCreatureSay, OnCreatureDissapear, etc
-- to this enviroment
Oracle:Register()

MyOwnNpc:AddCallback(AI.Events.OnHear, myFn)

Oracle.Conversation = {
	{{NotFocused, Oracle.GreetKeywords} = { 
		{LessThan(PlayerLevel, 8) = "CHILD"},
		{Default = {"Are you ready?", setTopic('playerReady')}}
	}},
	
	{isTopic('playerReady') = {
		{Oracle.AgreementKeywords = {"What city? A|B|C", setTopic('city')}}
		{Default = "COME BACK WHEN YOU READY!"}
	}},
	
	{isTopic('city') = {
		{"A|B|C" = {setTopic('voc'), function(talk, city)
			return city .. ", eh? What voc do u want X|Z|Y?"
		end}},
		{Default = "A|B|C?"}
	}},
	
	{isTopic('voc') = {
		{"X" = {"A mighty X eh? u sure?", setTopic('sure')}},
		{"Z" = {"An awesome Z, u sure?", , setTopic('sure')}},
	}},
	
	{isTopic('sure') = {
		{Oracle.AgreementKeywords = function(talk)
			if getVocation(talk.Player) ~= 0 then
				return "Sorry u have voc lrdy"
			end
			
			doTeleportThing(talk.Player, getCityPos(talk:Var('city')))		
		end},
		{Oracle.DisagreementKeywords = {"Then, what voc do u want?", setTopic('voc')}}
	}}
}

George.Conversation = {
	{["ass%"]= function(talk, match, msg) -- Matchs ass/asshole, but no badass/noobass
		talk:Say("You called me an " .. match)
		talk:Say("You must die")
		
		local m = talk:Listen() -- Stops the execution until new data from player arrives (this does not stop the npc from moving, or talking to other players)
		
		talk:End("And now you called me a " .. m .. "! Bye |PLAYERNAME|")
	end},
	
	{["job|occupation"] = "My job is to complete the turing test ASAP!"}, -- Matchs either job OR occupation
	{["mission|quest"] = "I have no missions for you son"},
	{["heal"] = { 
		{[lessThan(playerHealth, 50)] = function(talk) -- Executes if player health is below 50
			doCreatureAddHealth(talk.player, 200)
			talk:Say("You have been healed!")
		end},
		{[Default] = "Sorry ur not wounded enough!"} -- Executes if the above wasnt true (i.e player health >= 50)
	}}
}