Minesweeper by eshkation

tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAfkDeath(true)
tfm.exec.disableAutoShaman(true)

mine = {
--[[ default configuration ]]--
	width = 17;
	height = 17;
	bombs = 50;
	block = 20;
	area = {};
	minechar = '☀';
	flagchar = '◄';
	flagbchar = '|';
	startx = 300;
	starty = 50;
	positions = {}; -- [[ for bomb's random choice ]] --
	player = 'Eshkation';
	flagmode = false;
	gamend = true;
	clicks = 0;
	flagsleft  = 'notset';
	cellsleft = 0;
	flagcp = 0
}

function mine:init()
	tfm.exec.newGame('@6221354')
	system.bindMouse(mine.player, true)
	tfm.exec.bindKeyboard(mine.player, 32, true, true)
	id = 0
	mine.positions = {}
	mine.flagcp = 0
	mine.flagsleft = mine.bombs+1
	mine.flagmode = false
	mine.clicks = 0
	mine.cellsleft = mine.width*mine.height;
	math.randomseed(os.time())
	tfm.exec.addPhysicObject(-1, mine.startx+(mine.block*mine.width)/2-mine.block/2, mine.starty+(mine.block*mine.height)/2-mine.block/2, {type = 12, color = 0xA2A2A2, width = mine.width*mine.block+2, height = mine.height*mine.block+2, miceCollision = false})
	for lin = mine.width, 1, -1 do
		mine.area[lin] = {}
		for col = mine.height, 1, -1 do
			id = id+1
			mine.area[lin][col] = {ismine = false, isflagged = false, isexposed = false, objectid = id}
			table.insert(mine.positions, {lin, col})
			tfm.exec.addPhysicObject(id, ((lin-1)*mine.block)+mine.startx, ((col-1)*mine.block)+mine.starty, {type = 12, color = 0xBFBFBF, width = mine.block-2, height = mine.block-2, miceCollision = false})
		end
	end
	mine:setbombs()
	for lin = mine.width, 1, -1 do
		for col = mine.height, 1, -1 do
			mine.area[lin][col].neighmines = mine:getneighbors(lin-1, col-1, lin+1, col+1, function(x, y) if mine.area[x][y].ismine then count = count+1 end end)
		end
	end
	mine.gamend = false;
end

function mine:getcell(posx, posy)
	data = {false, false}
	for lin = mine.width, 1, -1 do
		for col = mine.height, 1, -1 do
			if mine:checkinrange(lin*mine.block, col*mine.block, posx-mine.startx+mine.block, posy-mine.starty+mine.block, mine.block/2) then
				data =  {lin, col}
			end
		end
	end
	return data
end

function mine:checkinrange(posx, posy, posx2, posy2, range)
	return ((posx - posx2)^2 + (posy - posy2)^2 < range^2)
end

function mine:getneighbors(posx, posy, posx2, posy2, functionto, discover)
	count = 0
	for lin = math.max(posx, 1), math.min(posx2, mine.width) do
		for col = math.max(posy, 1), math.min(posy2, mine.height) do
			if mine.area[lin] ~= nil and mine.area[lin][col] ~= nil then
				if not mine.area[lin][col].isexposed then
					functionto(lin, col)
					if discover then
						if mine.area[lin][col].neighmines == 0 then
							mine:getneighbors(lin-1, col-1, lin+1, col+1, function(x, y) if not mine.area[x][y].ismine then mine:removecell(x, y) end end, true)
						end
					end
				end
			end
		end
	end
	return count
end

function mine:removecell(posx, posy)
	if not mine.area[posx][posy].ismine and not mine.area[posx][posy].isflagged then
		mine.cellsleft = mine.cellsleft-1
		count = mine.area[posx][posy].neighmines
		mine.area[posx][posy].isexposed  = true
		cellscolors = {[0] = '#A2A2A2', [1] = '#0000FE', [2] = '#007F00', [3] = '#FE0000', [4] = '#00007F', [5] = '#7F0100', [6] = '#007F80', [7] = '#000000', [8] = '#BEBEBE'}
		tfm.exec.removePhysicObject(mine.area[posx][posy].objectid)
		text = string.format('<b><font color="%s" size="15" face="Lucida Console">%s', cellscolors[count], count)
		ui.addTextArea(mine.area[posx][posy].objectid, text, nil, (((posx-1)*mine.block)+mine.startx)-6, (((posy-1)*mine.block)+mine.starty)-6, nil, nil, 0, 0, 1, true)
	end
end

function eventKeyboard(player, keyid, down, x, y)
	if (keyid == 32) then
		if mine.flagmode then
			mine.flagmode = false
		else
			mine.flagmode = true
		end
	end
end

function eventTextAreaCallback(id, player, callback)
	if callback == 'newgame' then
		ui.removeTextArea(-3)
		ui.removeTextArea(-4)
		for lin = mine.width, 1, -1 do
			for col = mine.height, 1, -1 do
				ui.removeTextArea(mine.area[lin][col].objectid)
				ui.removeTextArea(-mine.area[lin][col].objectid)
				ui.removeTextArea('-1'..mine.area[lin][col].objectid)
			end
		end
		mine:init()
	end
end

function eventMouse(player, posx, posy)
	if not mine.gamend then
		pos = mine:getcell(posx, posy)
		lin = pos[1]
		col = pos[2]
		if lin then
			mine.clicks = mine.clicks+1
			if not mine.flagmode then
				if not mine.area[lin][col].ismine then
					if not mine.area[lin][col].isflagged then
						d = mine.area[lin][col].neighmines
						mine:getneighbors(lin-1, col-1, lin+1, col+1, function(x, y) if not mine.area[x][y].ismine then mine:removecell(x, y) end end, true)
					end
				end
				if mine.area[lin][col].ismine then
					for lin = mine.width, 1, -1 do
						for col = mine.height, 1, -1 do
							if mine.area[lin][col].ismine then
								mine.gamend = true
								tfm.exec.addPhysicObject(mine.area[lin][col].objectid, ((lin-1)*mine.block)+mine.startx, ((col-1)*mine.block)+mine.starty, {type = 12, color = 0xBC0000, width = mine.block-2, height = mine.block-2, miceCollision = false})
								text = '<b><font color="#000000" size="15" face="Lucida Console">'..mine.minechar
								ui.addTextArea(mine.area[lin][col].objectid, text, nil, (((lin-1)*mine.block)+mine.startx)-8, (((col-1)*mine.block)+mine.starty)-7, nil, nil, 0, 0, 1, true)
							end
						end
					end
					ui.addTextArea(-4, '', nil, -500, -500, 9000, 9000, 0x000001, 0x000001, 0.6, true)
					ui.addTextArea(-3, '<R><font size="40" face="Lucida Console"><p align="center">Booooooom!</font>\n<font size="15"><N><a href="event:newgame">new game', nil, 270, 200, nil, nil, 0x0, 0x0, 0, true)
				end
			else
				if not mine.area[lin][col].isflagged then
					if mine.flagsleft > 0 then
						mine.flagsleft = mine.flagsleft-1
						mine.area[lin][col].isflagged = true
						text = '<b><font color="#FF0000" size="15" face="Lucida Console">'..mine.flagchar
						text2 = '<b><font color="#000000" size="15" face="Lucida Console">'..mine.flagbchar
						ui.addTextArea(mine.area[lin][col].objectid, text, nil, (((lin-1)*mine.block)+mine.startx)-7, (((col-1)*mine.block)+mine.starty)-12, nil, nil, 0, 0, 1, false)
						ui.addTextArea('-1'..mine.area[lin][col].objectid, text2, nil, (((lin-1)*mine.block)+mine.startx)-3, (((col-1)*mine.block)+mine.starty)-9, nil, nil, 0, 0, 1, false)
						tfm.exec.addPhysicObject(mine.area[lin][col].objectid, ((lin-1)*mine.block)+mine.startx, ((col-1)*mine.block)+mine.starty, {type = 12, color = 0xCDC327, width = mine.block-2, height = mine.block-2, miceCollision = false})
						if mine.area[lin][col].ismine then
							mine.flagcp = mine.flagcp+1
							if mine.flagcp == mine.bombs+1 then
								mine.gamend = true
								for x = 120, 0, -1 do
									tfm.exec.displayParticle(29, 400, 200, math.random(-2, 2), math.random(-2, 2), math.random(-2, 2), math.random(-2, 2))
									math.randomseed(x*x)
								end
								ui.addTextArea(-4, '', nil, -500, -500, 9000, 9000, 0x000001, 0x000001, 0.6, true)
								ui.addTextArea(-3, '<BV><font size="40" face="Lucida Console"><p align="center">You found all mines!</font>\n<font size="15"><N><a href="event:newgame">new game', nil, 230, 200, nil, nil, 0x0, 0x0, 0, true)
							end
						end
					end
				else
					if mine.area[lin][col].isflagged then
						mine.area[lin][col].isflagged = false
						tfm.exec.addPhysicObject(mine.area[lin][col].objectid, ((lin-1)*mine.block)+mine.startx, ((col-1)*mine.block)+mine.starty, {type = 12, color = 0xBFBFBF, width = mine.block-2, height = mine.block-2, miceCollision = false})
						ui.removeTextArea(mine.area[lin][col].objectid)
						ui.removeTextArea('-1'..mine.area[lin][col].objectid)
						mine.flagsleft = mine.flagsleft+1
						if mine.area[lin][col].ismine then
							mine.flagcp = mine.flagcp-1
						end
					end
				end
			end
		end
	end
end

function mine:setbombs()
	for id = mine.bombs, 0, -1 do
		math.randomseed(os.time()*id)
		posid = math.random(#mine.positions)
		lin = mine.positions[posid][1]
		col = mine.positions[posid][2]
		mine.area[lin][col].ismine = true
		table.remove(mine.positions, posid)
	end
end

mine:init()

function eventLoop()
	if not gamend then
		text = '<font face="Lucida Console"><font size="20"><VP>MINESWEEPER<font size="12">\n\n<VP>Player: <N>%s\n<VP>Cells left: <N>%s\n<VP>Mines: <N>%s\n<VP>Flags left: <N>%s\n<VP>Clicks: <N>%s\n<J>Flag mode: <N>%s\n</font>'
		ui.addTextArea(-2, string.format(text, mine.player, mine.cellsleft, mine.bombs, mine.flagsleft, mine.clicks, tostring(mine.flagmode)), nil, 20, 100, nil, nil, 0x7F7F7F, 0x7F7F7F, 1, true)
	end
end