local radx = math.random(0,(map('xsize')*32))
local rady = math.random(0,(map('ysize')*32))
parse("spawnnpc 1 "..(radx/32).." "..((rady/32)+1).." 0")

local radx = math.random(0,(map('xsize')*32))
local rady = math.random(0,(map('ysize')*32))

function randomnpcspawn(npctype)
	local x=math.random(0,map('xsize'))-1
	local y=math.random(0,map('ysize'))-1
	if tile(x,y,"frame")~=0 and tile(x,y,"walkable") and not tile(x,y,"deadly") and tile(x,y,"entity")==0 then
		parse("spawnnpc "..npctype.." "..x.." "..y.." 0")
	end
end

randomnpcs_max=50	--change this depending on the map size

addhook("ms100","randomnpcs_ms100")
function randomnpcs_ms100()
	local n
	for i,j in pairs(object(0,"table")) do
		if object(j,"type")==30 then
			n=n+1
		end
	end
	while n<randomnpcs_max do
		randomnpcspawn(math.random(1,5))
	end
end

GetTiles = function()
	local gn, ch = GetNeigh, Check
	GetNeigh = function(x, y)
		return { {x + 1, y}, {x, y + 1}, {x - 1, y}, {x, y - 1} }
	end
	Check = function(x, y, list, chlist)
		for _, P in pairs(GetNeigh(x, y)) do
			if chlist[P[1].."x"..P[2]] == nil then
				chlist[P[1].."x"..P[2]] = true
				if tile(P[1], P[2], "walkable") then
					table.insert(list, {P[1], P[2]})
					list, chlist = Check(P[1], P[2], list, chlist)
				end
			end
		end
		return list, chlist
	end
	local List, CheckList = {}, {}
	for _, ent in pairs({0, 1, 2}) do							--// info_T, info_CT, info_VIP
		for __, e in pairs(entitylist(ent)) do					--// entitylist
			List, CheckList = Check(e.x, e.y, List, CheckList)
		end
	end
	GetNeigh, Check = gn, ch
	return List
end

T = GetTiles()
for i = 1, 100 do
	local r = T[math.random(1, #T)]
	parse("spawnnpc 1 "..r[1].." "..r[2])
end