-- GOOD MAPS

-- #45732
-- #73686
-- #82767
-- #37517
-- #92978
-- #67264
-- #18358
-- #48141
-- #88658
-- #30375
-- #1948
-- #39730
-- #63367
-- #76795
-- #30632 (EDIZ 10)
-- #33281 (EDIZ 10)

-- HMM MAPS
-- #43425

-- SMALLER GROUNDS: (TEST BIG?)
-- #46494 (10+ me + mak)
-- #78962 (10+ me + mak)
-- #74219 (10+ me + mak)
-- #63839
-- #21317
-- #888
-- #48740
-- #69716 (10)
-- #17908 (10+)


function split(s,t) local r={}; for p in string.gmatch(s,"[^"..t.."]+") do table.insert(r,p); end;return r;end


GROUNDS = 140

function GenerateXML()


	local n   = GROUNDS
	local xml = ""
	local r = 0
	local L = 40;
	local X, Y, Y1, Y2, H1, H2;
	local s
	local TT = { 11}
	local T  = TT[math.random(table.getn(TT))]
	local R = {}
	local a
	local rst = 0
	local fr = 0
	maplength = n * 200 + 400
	local gap = 180

	tfm.exec.chatMessage("<R>#" .. tostring(SEED) .. " ground:" .. tostring(T),"sharpiepoops")

	-- start xml, random bg, with spawn ground,
	-- local bg = 'D="'
	-- local fg = 'd="'
	-- for i = 0, maplength, 800 do
	-- 	bg = bg..string.format('x_transformice/x_maps/x_halloween2015/jardin-citrouilles.jpg,%d,%d;', i, 0)
	-- 	fg = fg..string.format('x_transformice/x_maps/x_halloween2015/jardin-citrouilles-fg.png,%d,%d;',i, 293)
	-- end
	-- bg = bg .. '"'
	-- s = string.format('<C><P replaceMe '..bg..' G="0, 30" Ca="" L="%d" defilante="0,0,0,1" /><Z><S><S X="40" Y="350" H="100" L="80" T="%d" P="0,0,9999,0,0,0,0,0" />', maplength, T)
	s = string.format('<C><P replaceMe G="0, 30" Ca="" L="%d" defilante="0,0,0,1" /><Z><S><S X="40" Y="350" H="100" L="80" T="%d" P="0,0,9999,0,0,0,0,0" />', maplength, T)
	xml = xml .. s
	local oTag = ''

	bonuses = {}
	fg1 = {}
	fg2 = {}
	for i = 0,n-1,1 do
		-- Pick a random number
		r  = math.random(-100, 100)

		-- X value of this ground
		X  = 300 + (i * 150)

		-- Upper ground:
		-- Height
		H1 = r + 100
		Y1 = H1 / 2

		-- Lower ground:
		H2 = 400 - (H1+100)
		print(gap)
		Y2 = H1 + gap + H2/2

		-- hmm, nudge up
		Y1 = Y1 - 20
		Y2 = Y2 - 20

		-- nudge height to make it easier towards the start
		-- H1 = H1 - (n-i)
		-- H2 = H2 - (n-i)

		bonuses[#bonuses + 1] = {X, Y1 + H1/2 + (Y2 - H2/2 - Y1 - H1/2)/2}
		fg1[#fg1 + 1] = {X-25, Y1 + H1/2 - 407}
		fg2[#fg2 + 1] = {X-25, Y2 - H2/2}
		--local bonus = string.format('<O C="6" X="%d" Y="%d" P="0" />',X,Y1 + H1/2 + (Y2 - H2/2 - Y1 - H1/2)/2)
		--oTag = oTag .. bonus

		-- Generate angle, and add upper ground (NOT NEEDED ANYMORE)
		a = 180

		--s = string.format('<S T="%d" P="0,0,%d,%d,%d,0,0,0" X="%d" Y="%d" L="%d" H="%d" c="2"/>',T,fr,rst,a,X,Y1,math.floor(L/40)*40,H1)
		--xml = xml .. s
		--fg = fg..string.format('x_transformice/x_maps/x_halloween2015/ronces'..math.random(1,2)..'.png,%d,%d;',X-25, Y1 + H1/2 - 407)

		-- add acid underneath
		s = string.format('<S T="%d" P="0,0,%d,%d,%d,0,0,0" X="%d" Y="%d" L="%d" H="%d" m=""/>',19,fr,rst,a,X,Y1,50,H1)
		xml = xml .. s

		-- Generate angle, and add lower ground
		a = 0

		-- Last ground, rest and angle 0
		--if i==n-1 then
		--	rst = 0
		--		a = 0
		--		T = 6
		--		fr = 0.3
		--	end


		--fg = fg..string.format('x_transformice/x_maps/x_halloween2015/ronces'..math.random(1,2)..'.png,%d,%d;',X-25, Y2 - H2/2)
		-- s = string.format('<S T="%d" P="0,0,%d,%d,%d,0,0,0" X="%d" Y="%d" L="%d" H="%d" c="2"/>',T,fr,rst,a,X,Y2,math.floor(L/40)*40,H2)
		-- xml = xml .. s
		-- add acid underneath
		s = string.format('<S T="%d" P="0,0,%d,%d,%d,0,0,0" X="%d" Y="%d" L="%d" H="%d" m=""/>',19,fr,rst,a,X,Y2,50,H2)
		xml = xml .. s


		L = L + 1.5

		-- textarea width
		local taw = 12;
		if i+1>=10 then
			taw = 20
		end

		gap = gap - 1
		if gap < 140 then gap = 140 end
		--ui.addTextArea(100+i, tostring(i+1), nil, X-taw/2, 26, taw, 16, 0x010101, 0xffffff, 0.5, false)

--		table.insert(R,r)
	end
	--fg = fg..'" '
	xml = string.gsub(xml,'replaceMe','')
	xml = xml .. '</S><D>'

	-- mouse spawn
	xml = xml .. '<DS X="50" Y="300" />'

	-- holes and cheeses
	for i = 0,19,1 do
		xml = xml .. string.format('<T X="%d" Y="%d" />', maplength-100, 30 + i*20)
	end
	for i = 0,18,1 do
		xml = xml .. string.format('<F X="%d" Y="%d" />', maplength-100, 20 + i*21)
	end

	xml = xml .. '</D><O>'..oTag

	-- for i = 0,n-1,1 do
	-- 	X = 300 + (i * 200)
	-- 	Y =

	-- 	xml = xml .. s
	-- end

	xml = xml .. '</O></Z></C>'

	return xml
end
SCORE = {}
MOVED = {}

SEED = math.random(100000)
math.randomseed(SEED)

function Bind(p)
	tfm.exec.bindKeyboard(p,32, true,true)
	tfm.exec.bindKeyboard(p,37, true,true)
	tfm.exec.bindKeyboard(p,38, true,true)
	tfm.exec.bindKeyboard(p,39, true,true)
	tfm.exec.bindKeyboard(p,40, true,true)
	tfm.exec.bindKeyboard(p,1, true,true)
	tfm.exec.bindKeyboard(p,string.byte('A',1),true,true)
	tfm.exec.bindKeyboard(p,string.byte('S',1),true,true)
	tfm.exec.bindKeyboard(p,string.byte('D',1),true,true)
	tfm.exec.bindKeyboard(p,string.byte('Q',1),true,true)
	tfm.exec.bindKeyboard(p,string.byte('Z',1),true,true)
	system.bindMouse(p,true)
end

function SetPlayerSpeedX(p)
	tfm.exec.movePlayer(p,0,0,true,45,0,false)
end

function Reset(p)
	Bind(p)
	tfm.exec.setPlayerScore(p,SCORE[p])
end

died = {}
initted = {}
function eventNewGame()
	local topPlayers = {}
	for p,_ in pairs(SCORE) do
		topPlayers[#topPlayers + 1] = {p, SCORE[p]}
		SCORE[p] = 0
		died[p] = nil
		tfm.exec.setPlayerScore(p, 0, false)
		if not initted[p] then
			init(p)
		end
	end

	table.sort(topPlayers, function(a, b)
        return a[2] > b[2]
    end)

	if topPlayers[1][2] ~= 0 then
		tfm.exec.chatMessage('<i><R>Congratulations, winners!</r></i>')
		local colorTags = {"font color='#ffd700'", "font color='#c0c0c0'", "font color='#cd7f32'", "font color='#cd7f32'", "font color='#cd7f32'", "font color='#cd7f32'"}
		for i = 1, 6 do
			if topPlayers[i] then
				if topPlayers[i][2] ~= 0 then
					tfm.exec.chatMessage('<'..colorTags[i]..'>'..i..'. '..topPlayers[i][1]..' - '..topPlayers[i][2]..'</'..colorTags[i]..'>')
                    tfm.exec.chatMessage("Ho ho ho! Congratulations, you've won the event map!\nMake sure you'll check your inbox the next few weeks for the cheese codes.\nWe wish you a merry Christmas and a Happy New Year!", topPlayers[i][1])
                end
			end
		end
	end

	tfm.exec.setGameTime(30 * 60,true)
	tfm.exec.setUIMapName('<R>Flappymouse: #' .. tostring(SEED))
end



function fly(p,x,y)
	tfm.exec.movePlayer(p,0,0,true,0,-100,false)
end

function eventMouse(p,x,y)
	fly(p,nil,nil)
	SetPlayerSpeedX(p)
end


local frozenEveryone = false
function eventKeyboard(p,k,d,x,y)
	if frozenEveryone == false then
		for p, _ in pairs(tfm.get.room.playerList) do
			tfm.exec.freezePlayer(p)
		end
		frozenEveryone = true
	end
	if not tfm.get.room.playerList[p].isDead then
		if k==32 or k == 1 then
			fly(p,x,y)
			SetPlayerSpeedX(p)
		end
		MOVED[p] = true;
	end
end

function eventLoop(t,r)
	if r < 3 then
		SEED = math.random(100000)
		tfm.exec.newGame(GenerateXML())
		initted = {}
	end

	end
	for p,P in pairs(tfm.get.room.playerList) do
		if P.isDead==false then
			if MOVED[p] == true then
				SetPlayerSpeedX(p)
			end
			if P.y<0 then
				tfm.exec.killPlayer(p)
			end
			tfm.exec.respawnPlayer(p)
		end
	end
end

function eventPlayerDied(p)
	tfm.exec.respawnPlayer(p)
	MOVED[p] = false
end

function eventPlayerWon(p)
	if not SCORE[p] then SCORE[p] = 50 else SCORE[p] = SCORE[p] + 500 end
    tfm.exec.chatMessage('<J>' .. p .. '<VP> finished the map!')
    tfm.exec.respawnPlayer(p)
	Reset(p)
end


tfm.exec.disableAutoTimeLeft(true)
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoScore(true)
tfm.exec.disableAfkDeath(true)
tfm.exec.setRoomMaxPlayers(60)
tfm.exec.newGame(GenerateXML())

function setupBonuses(player)
	for i = 1, #bonuses do
		tfm.exec.addBonus(0, bonuses[i][1], bonuses[i][2], i, 0, false, player)
	end
end

imgBns = {}
function setupImg(p)
	if not imgBns[p] then imgBns[p] = {} end
	for i = 1, #bonuses do
		tfm.exec.removeImage(imgBns[p][i])
		imgBns[p][i] = tfm.exec.addImage("1768226c79e.png", '!100', bonuses[i][1] - 10, bonuses[i][2] - 12, p)
	end
end

local imgs = {"17690e050cf.png", "17690e07927.png"}

function init(p)
	initted[p] = true
	tfm.exec.freezePlayer(p)
	setupBonuses(p)
	setupImg(p)
	for i = 0, maplength, 800 do
		tfm.exec.addImage("1768ecb306f.png", "?1", i, 0, p)
	end
	for i = 1, #fg1 do
		tfm.exec.addImage(imgs[math.random(#imgs)], '!100', fg1[i][1], fg1[i][2], p)
		tfm.exec.addImage(imgs[math.random(#imgs)], '!100', fg2[i][1], fg2[i][2], p)
	end
	imgP[p] = tfm.exec.addImage("176820cd5b9.png", "%"..p, -30, -50)
	Reset(p)
end

firstTime = {}
system.disableChatCommandDisplay(nil, true)
function eventNewPlayer(p)
	tfm.exec.setUIMapName('<R>Flappymouse: #' .. tostring(SEED))
	tfm.exec.chatMessage('<J>Welcome to <VP>Flappymouse - Christmas edition<J>! Write !help for instructions. Made by Sharpiepoops#0020, edited by Extremq#0000.', p)
	tfm.exec.chatMessage("<J>Fly using <VP>SPACE, CLICK or UP</VP>.", p)
    if not firstTime[p] then
	    SCORE[p] = 0
        firstTime[p] = 1
	end
	if not initted[p] then
		init(p)
	end
	tfm.exec.respawnPlayer(p)
	Reset(p)
end

imgP = {}
function eventPlayerRespawn(player)
	tfm.exec.freezePlayer(player)
	tfm.exec.removeImage(imgP[player])
	imgP[player] = tfm.exec.addImage("176820cd5b9.png", "%"..player, -30, -50)
	setupImg(player)
end

function eventPlayerLeft(player)
	initted[player] = nil
end

function eventChatCommand(p,s)
	local a = split(s,' ')
	local cmd = 'command_' .. string.lower(a[1])
	if _G[cmd] then
		_G[cmd](p,a)
	end
end

function command_help(p,a)
	tfm.exec.chatMessage("<J>Type <VP>/watch YOUR NAME<J> if it's difficult to see your mouse!", p)
end

for p, _ in pairs(tfm.get.room.playerList) do
	eventNewPlayer(p)
end

function eventPlayerBonusGrabbed(p, bonusId)
	SCORE[p] = SCORE[p] + 1
	tfm.exec.setPlayerScore(p, SCORE[p])
	tfm.exec.removeImage(imgBns[p][bonusId])
end