array1[1]=1
array1[2]=3
array1[3]=0
array1[4]=5
array1[5]=6
array1[6]=2
array1[7]=7
array1[9]=0
array1[10]=9
array1[11]=13
array1[12]=12
array1[13]=15
array1[14]=0

highestnumber=10000 -- highest possible number
for i=1,highestnumber
	occupied=false
	for j=1,#array1
		if array1[j]==i then
			occupied=true
			break
		end
	end
	if not occupied then
		return i
	end
end

highestnumber=10000 -- highest possible number
occupied = {}
for i=1,highestnumber do
	occupied[i] = false
end
for i=1,#array1
	occupied[array1[i]] = true
end
for i=1,highestnumber do
	if not occupied[i] then
		return i
	end
end

addhook("die","addimage")
function addimage(id)
	ImageArray[id]=--lowest number that hasnt been taken
	image(...)
end

--then kill the image

addhook("spawn","deleteimage")
function deleteimage(id)
	freeimage(ImageArray[id]...)
end

function new_pqueue(initial)
	return setmetatable({unpack(initial)}, {
		__index = {pop = function (self) 
			return table.remove(self, 1)
		end, push = function(self, v) 
			table.insert(self, v)
			table.sort(self)
		end}
	})
end

__index = {push = function(self, v)
	table.insert(self, v)
	local next = #self
	local prev = math.floor(next/2)
	while next > 1 and self[next] < self[prev] do
		-- swap up
		self[next], self[prev] = self[prev], self[next]
		next = prev
		prev = math.floor(next/2)
	end
	self[next] = v
end, 
pop = function(self)
	local r = self[1]
	self[1] = table.remove(self)
	local root = 1
	if #self > 1 then
		local size = #self
		local v = self[root]
		while root < size do
			local child = 2*root
			if child < size then
				if child+1 < size and self[child+1] < self[child] then child = child + 1 end
				if self[child] < self[root] then
					-- swap down
					self[root], self[child] = self[child], self[root]
					root = child
				else
					self[root] = v
					break
				end
			else
				self[root] = v
				break
			end
		end
	end
	
	return r
end}

function lowest(t)
	for k, v in ipairs(t) do
		if tonumber(v) > 0 then return k end
	end
end