--[[
	This file loads and saves towns and stuff
]]
if engine.ActiveGamemode() ~= "sandbox" then return end
print("Hello from town.lua!")
local currentfile
--A fake nrequire
local npcs = {}
local fakes = {
	["sv_npcsystem.lua"] = {
		CreateTownie = function(tbl)
			print("got create townie table:")
			PrintTable(tbl)
			print("Spawning townie!")
			--Make sure this townie dosen't already exist
			for k,v in pairs(ents.FindByClass("info_towniespawn")) do
				if v.File == currentfile then return end
			end
			--Spawn the townie editor
			local e = ents.Create("info_towniespawn")
			e:SetPos(tbl.Pos)
			e:Spawn()
			e.File = currentfile
			e.data = {}
			for k,v in pairs(tbl.NavNodes) do
				e.data[#e.data + 1] = k
			end
			print("Ent's data is")
			PrintTable(e.data)
		end,
		CreateNavNode = function(tbl)
			print("got navnode table:",tbl)
			PrintTable(tbl)
			--Make sure this nav node dosen't already exist
			for k,v in pairs(ents.FindByClass("info_edit_townienode")) do
				print("Looking for nodes that connect to ", currentfile, v.File)
				if v.File == currentfile then return end
			end
			--Spawn this navnode
			local e = ents.Create("info_edit_townienode")
			e:SetPos(tbl.Position)
			e:Spawn()
			e.File = currentfile
			e.Name = tbl.Name
		end,
		CreateShop = function(tbl)
			--Make sure this townie dosen't already exist
			for k,v in pairs(ents.FindByClass("info_townieshop")) do
				if v.File == currentfile then return end
			end
			--Spawn the townie editor
			local e = ents.Create("info_towniespawn")
			e:SetPos(tbl.Pos)
			e:Spawn()
			e.File = currentfile
		end,
		RegisterNPC = function(npc)
			assert(npc ~= nil, "Attempted to register a nil npc")
			assert(npc.Name ~= nil, "Attempted to register an npc without a name")
			npcs[npc.Name] = npc
			--autocompletef = f.AutocompleteFunction(npcs)
		end,
		CreateNPCByName = function(npcname, pos)
			assert(npcs[npcname],string.format("No npc named %q, valid names are:\n%s",npcname,table.concat(table.GetKeys(npcs),"\n")))
			--print("Createing a ", npcname, " at ", pos)
			local npctbl = npcs[npcname]
			local npc = ents.Create("npc_huntable")
			npc:SetPos(pos)
		
			for k, v in pairs(npctbl) do
				npc[k] = v
			end
		
			npc:Spawn()
		
			return npc
		end
	},
	["inventory/item.lua"] = {
		GetItemByName = function(string)
			return {}
		end
	},
	["sv_huntingspawner.lua"] = {
		CreateSpawnNode = function(tbl)
			local pos = tbl.Position
			local e = ents.Create("info_edit_huntablespawn")
			e:SetPos(pos)
			e:Spawn()
		end
	},
	["core/inventory/inventory.lua"] = {
		CreateInventory = function(name)
			return {}
		end
	}
}
fakes["core/npc/sv_npcsystem.lua"] = fakes["sv_npcsystem.lua"] 
local calls = {}
function nrequire(string)
	print("nrequire called")
	
	local ntbl = {}
	local nmeta = {}
	nmeta.__index = function(self,key)
		print("a table from nrequire was called",string,key)
		local record = calls[string]
		record[#record+1] = key
		print("REturning", fakes[string][key])
		return fakes[string][key]
	end
	setmetatable(ntbl,nmeta)
	calls[string] = ntbl
	return ntbl
end

local function ExecuteOnFolder(dir, recursive, func)
    local path = ""
    local fpath = table.concat({path,dir,"/*"})
    local files, directories = file.Find(fpath,"DATA")
    for k,v in pairs(files) do
        local callpath = table.concat({path,dir,"/",v})
        func(callpath)
    end
    if not recursive then return end
    for k,v in pairs(directories) do
        local npath = table.concat({dir,"/",v})
        ExecuteOnFolder(npath,true,func)
    end
end

function loadtownies()
	--Remove any current townie things
	for k,v in pairs(fakes) do
		for i,j in pairs(ents.FindByClass(k)) do
			j:Remove()
		end
	end
	
	local mapname = game.GetMap()

	local foldername = "artery/maps/" .. mapname
	ExecuteOnFolder(foldername,true,function(path)
		print("I want to run",path)
		local filetxt = file.Read(path,"DATA")
		print("File text is", filetxt)
		currentfile = path
		CompileString(filetxt,path)()
		print("I want to execute",path)
	end)
end

concommand.Add("artery_loadtownies",function(ply,cmd,args)
	if not ply:IsAdmin() then return end
	loadtownies()
end)

hook.Add("InitPostEntity","load_lua",loadtownies)