local spells, voc = {
					{name="utamo vita", lvl=15, club=35, xml="Magic Shield"},
					{name="utevo lux", lvl=30, club=50, xml="Light"},
					{name="exura gran", lvl=40, club=65, xml="Intense Healing"},
					{name="utani gran hur", lvl=90, club=75, xml="Strong Haste"},
					{name="exevo gran mas frigo", lvl=100, club=100, xml="Eternal Winter"},
					{name="exevo frigo hur", lvl=110, club=110, xml="Ice Wave"},
					--etc
					}, {1,2,3,4,5,51,87}
local function isVocation(cid, voc)
	for _,v in pairs(voc) do
		if(getPlayerVocation(cid) == v)then
			return true
		end
	end
return false
end
local function loadSpellsList(spells)
local out, str = "", ""
	for i,_ in pairs(spells) do
		local v = spells[i]
		out = out .. v.name .. "(lvl "..v.lvl.."; club "..v.club.."),\n"
	end
	str = out:sub(1, out:len()-2) .. "."
return str
end
local focuses = {}
local talkStates = {}
local function isFocused(cid)
	for i, v in pairs(focuses) do
		if(v == cid) then
			return true
		end
	end
	return false
end
local function addFocus(cid)
	if(not isFocused(cid)) then
		table.insert(focuses, cid)
	end
end
local function removeFocus(cid)
	for i, v in pairs(focuses) do
		if(v == cid) then
			table.remove(focuses, i)
			break
		end
	end
end
local function lookAtFocus()
	for i, v in pairs(focuses) do
		if(isPlayer(v)) then
			doNpcSetCreatureFocus(v)
			return
		end
	end
	doNpcSetCreatureFocus(0)
end
local function isTalkState(cid)
	for _, v in pairs(talkStates) do
		if(v[1] == cid) then
			return true
		end
	end
	return false
end
local function setTalkState(cid, state)
	if(not isTalkState(cid)) then
		table.insert(talkStates, {cid, state})
	else
		for _, v in pairs(talkStates) do
			if(v[1] == cid) then
				v[2] = state
				break
			end
		end
	end
end
local function removeTalkState(cid)
	for i, v in pairs(talkStates) do
		if(v[1] == cid) then
			table.remove(talkStates, i)
			break
		end
	end
end
local function getTalkState(cid)
	for _, v in pairs(talkStates) do
		if(v[1] == cid) then
			return v[2]
		end
	end
	return 0
end
function onCreatureAppear(cid)
end
function onCreatureDisappear(cid)
	if(isFocused(cid)) then
		selfSay("Hmph!")
		removeFocus(cid)
		if(isPlayer(cid)) then --Be sure he's online
			closeShopWindow(cid)
		end
	end
end
function onCreatureSay(cid, type, msg)
	if((msg == "hi") and not (isFocused(cid))) then
		selfSay("Welcome, ".. getCreatureName(cid) ..".", cid, true)
		selfSay("I'm lern {spells} if you have skills and level!", cid)
		addFocus(cid)
	elseif((isFocused(cid)) and (msg == "spell" or msg == "spells")) then
		selfSay("I lern:\n"..loadSpellsList(spells), cid)
		setTalkState(cid, 1)
	elseif(isFocused(cid) and getTalkState(cid) == 1 and (msg ~= "" or msg ~= " "))then
		for _,v in pairs(spells) do
			if(v.name == msg)then
				if(isVocation(cid, voc))then
					if(v.lvl >= getPlayerLevel(cid) and v.club >= getPlayerSkillLevel(cid, SKILL_CLUB))then
						doPlayerLearnInstantSpell(cid, v.xml)
						selfSay("You learned " .. v.xml .. ".", cid)
						doSendMagicEffect(getCreaturePosition(cid), 12)
						break
					else
						selfSay("Back, when you are stronger!", cid)
						break
					end
				else
					selfSay("Sorry you cannot learn these skills!", cid)
					break
				end
			end
		end
	elseif((isFocused(cid)) and (msg == "bye" or msg == "goodbye" or msg == "cya")) then
		selfSay("Goodbye!", cid, true)
		removeFocus(cid)
	end
end
function onPlayerCloseChannel(cid)
	if(isFocused(cid)) then
		selfSay("Hmph!")
		removeFocus(cid)
	end
end
function onPlayerEndTrade(cid)
	selfSay("It was a pleasure doing business with you.", cid)
end
function onThink()
	for i, focus in pairs(focuses) do
		if(not isCreature(focus)) then
			removeFocus(focus)
		else
			local distance = getDistanceTo(focus) or -1
			if((distance > 4) or (distance == -1)) then
				selfSay("Hmph!")
				removeFocus(focus)
			end
		end
	end
	lookAtFocus()
end