-- Panda village (Transformice)
-- Code author: Klipus#0000 (C) 2026

-- Messages
mapName="<b><font color='#ffffff' >Panda</font> <font color='#0000' >village</font></b>"
welcomeMessage="<VP>Welcome to "..mapName.." entertainment room! Type <BL>!help</BL> to see available commands, or use buttons on the top.</VP><br><PT>Module was created by <V>Klipus#0000</V>, panda & bamboo graphics were drawn by <V>Cherubiniiii#0000</V>, panda smiley was drawn by <V>Ewentowyznaj#0358</V>.<br><BL>Press 'P' key for a little suprise.</BL><BR><FC>Have fun! ;)</FC>"

-- Data for all players in the room
playerData={}

-- Images
imagesDB={
	bambooBonus={url="19cc9a82f00.png", x=0, y=-5, scaleX=-0.25, scaleY=0.25, angleX=-0.5, angleY=0.5},
	sittingPanda={url="19cc9a84672.png", x=0, y=-5, scaleX=0.15, scaleY=0.15, angleX=0.5, angleY=0.5},
	rollingPanda={url="19cc9a84672.png", x=0, y=-5, scaleX=0.15, scaleY=0.15, angleX=0.5, angleY=0.5},
	mouse={url="1570ab92c4b.png", x=nil, y=nil, scaleX=nil, scaleY=nil, angleX=nil, angleY=nil},
	emoji={url="https://i.imgur.com/kr9Qmo5.png", x=0, y=0, scaleX=1.0, scaleY=1.0, angleX=0.5, angleY=1.75},
}

-- Available chat commands
commands={
	help="Opens this help window.",
	mouse="Reverts a mouse look.",
	panda="Changes mouse into a panda.",
	bamboo="Changes mouse into a bamboo.",
	color="Changes your nick color.",
	size="Changes your mouse size.",
}



-- Functions

-- String to table
function str2tbl(str)
	t={}
	i=1

	while true do
		--s=string.match(str, "%w+", i)
		s=string.match(str, "[^ ]+", i)
		t[#t+1]=s
		i=string.find(str, " ", i+1)
		if i==nil then break end
	end

	return t
end

-- Initialize player data
function playerDataInit(playerName)
	playerData[playerName]={
		id=nil,
		rot=0,
		sign=1,
		image="",
		playerSize=1.0,
		tpTrigger=false,
		emoteImgID=nil,
	}
end

-- Remove player data
function playerDataRemove(playerName)
	playerData[playerName]=nil
end

-- Flying
function fly(playerName)
	tfm.exec.movePlayer(playerName,
		0, 0, false,
		0, -50, false)
end

-- Changing player size
function changePlayerSize(playerName, newSize)
	playerSize=tonumber(newSize)
	if playerSize then
		if playerSize < 0.1 then
			playerSize = 0.1
		elseif playerSize > 5.0 then
			playerSize = 5.0
		end

		tfm.exec.changePlayerSize(playerName, playerSize)
		playerData[playerName].playerSize=playerSize
	end
end

-- Change player nick color
function changePlayerNickColor(playerName, color)
	if color then
		if color == 0 then
			tfm.exec.setNameColor(playerName, 0x1000000)
			playerData[playerName].playerColor=0x1000000
		elseif color > 0 and color < 0x1000000 then
			tfm.exec.setNameColor(playerName, color)
			playerData[playerName].playerColor=color
		end
	end
end

-- Custom emote
function playCustomEmote(playerName, playEmote, emoteId)
	if emoteId==nil then
		_emoteId=imagesDB.emoji
	else
		_emoteId=emoteId
	end

	if playerData[playerName] then
		-- Remove previous image
		if playerData[playerName].emoteImgID then
			tfm.exec.removeImage(playerData[playerName].emoteImgID)
			playerData[playerName].emoteImgID=nil
		end

		if playEmote then
			local _sign=1
			if tfm.get.room.playerList[playerName].isFacingRight then _sign=-1 end
			playerData[playerName].emoteImgID=tfm.exec.addImage(_emoteId.url,
				"$" .. playerName,
				_emoteId.x, _emoteId.y,
				nil,
				_emoteId.scaleX*_sign, _emoteId.scaleY,
				nil, nil,
				_emoteId.angleX*_sign, _emoteId.angleY)
			tfm.exec.playSound("transformice/son/smiley.mp3", 100, tfm.get.room.playerList[playerName].x, tfm.get.room.playerList[playerName].y, nil)
			playerData[playerName].emoteDuration=7
		end
	end
end

-- Render UI for a player
function renderUI(playerName)
	-- Y=28 (top)
	-- Y=365 (bottom)

	-- Bind mouse and keys for a player
	system.bindMouse(playerName, true)
	tfm.exec.bindKeyboard(playerName, 17, true, true)	-- CTRL=DOWN
	tfm.exec.bindKeyboard(playerName, 17, false, true)	-- CTRL=UP
	tfm.exec.bindKeyboard(playerName, 32, true, true)	-- SPACEBAR=DOWN
	tfm.exec.bindKeyboard(playerName, 80, true, true)	-- P=DOWN

	ui.addTextArea(1,
		"<font size='20' ><a href='event:mouse' ><b>&#xa0;&#xa0;&#xa0;&#xa0;&#xa0; MOUSE</b></a></font>",
		playerName,
		0, 28,
		150, 0,
		0x324650, 0x324650,
		0.5, true)

	tfm.exec.addImage(imagesDB.mouse.url,
		"~0",
		5, 25,
		playerName,
		0.7, 0.7)

	ui.addTextArea(2,
		"<font size='20' ><a href='event:panda' ><b>&#xa0;&#xa0;&#xa0;&#xa0;&#xa0; PANDA</b></a></font>",
		playerName,
		160, 28,
		150, 0,
		0x324650, 0x324650,
		0.5, true)

	tfm.exec.addImage(imagesDB.rollingPanda.url,
		"~0",
		165, 28,
		playerName,
		0.1, 0.1)

	ui.addTextArea(3,
		"<font size='20' ><a href='event:bamboo' ><b>&#xa0;&#xa0;&#xa0;&#xa0;&#xa0; BAMBOO</b></a></font>",
		playerName,
		320, 28,
		150, 0,
		0x324650, 0x324650,
		0.5, true)

	tfm.exec.addImage(imagesDB.bambooBonus.url,
		"~0",
		325, 30,
		playerName,
		0.15, 0.15)

	ui.addTextArea(4,
		"<font size='20' ><a href='event:color' ><b>NICK COLOR</b></a></font>",
		playerName,
		480, 28,
		150, 0,
		0x324650, 0x324650,
		0.5, true)

	ui.addTextArea(5,
		"<font size='20' ><a href='event:size' ><b>MOUSE SIZE</b></a></font>",
		playerName,
		640, 28,
		150, 0,
		0x324650, 0x324650,
		0.5, true)
end

-- Command processing
function moduleCommand(playerName, _commandLine)
	commandLine=str2tbl(_commandLine)
	command=commandLine[1]

	if command=="help" then
		local commandsHelp=""
		for commandName, commandDesc in pairs(commands) do
			commandsHelp=commandsHelp..string.format("!%s - %s<BR>", commandName, commandDesc)
		end

		ui.addPopup(0, 0, "Available commands:<BR>"..commandsHelp.."<BR>Flying - press a Spacebar<BR>Teleporting - press CTRL and click anywhere on a map<BR>Panda emote - press P", playerName, 250, 100, 300, true)
	elseif command=="mouse" then
		-- To avoid spammimg with bubbles
		if playerData[playerName].image~="" or playerData[playerName].playerSize~=1.0 then
			playerData[playerName].image=""

			-- Restore player size
			tfm.exec.changePlayerSize(playerName, 1.0)
			playerData[playerName].playerSize=1.0

			-- Respawn player in the same place
			local x=tfm.get.room.playerList[playerName].x
			local y=tfm.get.room.playerList[playerName].y
			tfm.exec.killPlayer(playerName)
			tfm.exec.respawnPlayer(playerName)
			tfm.exec.movePlayer(playerName, x, y)
		end
	elseif command=="panda" then
		playerData[playerName].image="rollingPanda"
	elseif command=="bamboo" then
		playerData[playerName].image="bambooBonus"
	elseif command=="color" then
		tfm.exec.chatMessage("<J>Ask a <FC>FunCorp</FC> member for a nick color visible in chat!</J>", playerName)
		if commandLine[2] then
			changePlayerNickColor(playerName, tonumber(commandLine[2], 16))
		else
			ui.showColorPicker(0, playerName, 0x009D9D, "Select a color for nickname above mouse")
		end
	elseif command=="size" then
		if commandLine[2] then
			changePlayerSize(playerName, commandLine[2])
		else
			ui.addPopup(0, 2, "Enter a new player size (in range 0.1-5.0):", playerName, 325, 150, 150, true)
		end
	end
end



-- Callbacks

function eventNewPlayer(playerName)
	ui.setMapName(mapName)
	tfm.exec.chatMessage(welcomeMessage, playerName)

	playerDataInit(playerName)
	renderUI(playerName)
end

function eventPlayerLeft(playerName)
	playerDataRemove(playerName)
end

function eventPlayerRespawn(playerName)
	if playerData[playerName] and playerData[playerName].playerColor then
		tfm.exec.setNameColor(playerName, playerData[playerName].playerColor)
	end
end

function eventKeyboard(playerName, keyCode, down)
	if keyCode == 17 then
		-- CTRL key - teleport
		if playerData[playerName] then
			playerData[playerName].tpTrigger=down
		end
	elseif keyCode == 32 then
		-- Space - flying
		fly(playerName)
	elseif keyCode == 80 then -- P
		playCustomEmote(playerName, down, nil)
	end
end

function eventMouse(playerName, xMousePosition, yMousePosition)
	if playerData[playerName] and playerData[playerName].tpTrigger then
		tfm.exec.movePlayer(playerName,
			xMousePosition, yMousePosition, false,
			0, 0, false)
	end
end

function eventPopupAnswer(popupId, playerName, answer)
	if popupId==0 then
		changePlayerSize(playerName, answer)
	end
end

function eventColorPicked(colorPickerId, playerName, color)
	if colorPickerId==0 then
		changePlayerNickColor(playerName, color)
	end
end

function eventTextAreaCallback(textAreaId, playerName, eventName)
	moduleCommand(playerName, eventName)
end

function eventChatCommand(playerName, command)
	moduleCommand(playerName, command)
end

function eventLoop()
	for playerName, playerInfo in pairs(tfm.get.room.playerList) do
		-- Player with panda or bamboo look
		if playerData[playerName] then
			-- Flip the image if player is facing left side
			if playerInfo.isFacingRight then
				playerData[playerName].sign=1
			else
				playerData[playerName].sign=-1
			end

			-- Calculate a rotation (panda only)
			if playerData[playerName].image=="rollingPanda" then
				if playerInfo.movingRight then
					playerData[playerName].rot=(playerData[playerName].rot - 5) % 360
					playerData[playerName].moving=true
				elseif playerInfo.movingLeft then
					playerData[playerName].rot=(playerData[playerName].rot + 5) % 360
					playerData[playerName].moving=true
				else
					playerData[playerName].rot=0
					playerData[playerName].moving=false
				end
			else
				playerData[playerName].rot=0
				playerData[playerName].moving=false
			end

			-- Remove previous image
			if playerData[playerName].id then
				tfm.exec.removeImage(playerData[playerName].id)
				playerData[playerName].id=nil
			end

			-- Add a new image
			if playerData[playerName].image~="" then
				-- Hot-swap panda images (sitting and rolling)
				local _image=""
				if playerData[playerName].image=="rollingPanda" and playerData[playerName].moving==false then
					_image="sittingPanda"
				else
					_image=playerData[playerName].image
				end

				-- Add an image and save it's ID
				playerData[playerName].id=tfm.exec.addImage(
					imagesDB[_image].url,
					"%" .. playerName,
					imagesDB[_image].x*playerData[playerName].playerSize, imagesDB[_image].y*playerData[playerName].playerSize,
					nil,
					imagesDB[_image].scaleX*playerData[playerName].sign*playerData[playerName].playerSize, imagesDB[_image].scaleY*playerData[playerName].playerSize,
					playerData[playerName].rot, 1,
					imagesDB[_image].angleX*playerData[playerName].sign, imagesDB[_image].angleY)
			end

			-- Emote disappears after 4 seconds
			if playerData[playerName].emoteDuration then
				if playerData[playerName].emoteDuration == 0 then
					playCustomEmote(playerName, nil, nil)
					playerData[playerName].emoteDuration=nil
				else
					playerData[playerName].emoteDuration=playerData[playerName].emoteDuration-1
				end
			end
		end
	end
end



-- Map settings
--tfm.exec.disableAfkDeath(true)
--tfm.exec.disableAutoTimeLeft(true)
--tfm.exec.disableAutoNewGame(true)
--tfm.exec.disableAutoShaman(true)
tfm.exec.disablePhysicalConsumables(true)

-- Hide chat commands
for commandName, commandDesc in pairs(commands) do
	system.disableChatCommandDisplay(commandName, true)
end

-- Prepare room & player data
ui.setMapName(mapName)
tfm.exec.chatMessage(welcomeMessage)

for playerName, playerInfo in pairs(tfm.get.room.playerList) do
	playerDataInit(playerName)
	renderUI(playerName)
end