--[[
How to add a new item to the shop;
  Firstly, decide what name and cost you would like to give the item. Make sure the name is descriptive.
  
  Secondly, decide what you want the item to give you once bought.
  
  For this example, I'll choose Meep and 25 as the name and cost of the item, and I'll evoke tfm.exec.giveMeep whenever someone buys the item.
  
  Now, follow this layout to create your item into the shop;
    {n = "ItemName", cost = costOfItem, effect = function(n)  InsertCodeToDoWhateverYouWantTheItemToDoOnceBought end},
    {n = "Meep", cost = 25, effect = function(n) tfm.exec.giveMeep(n) end},
    
  And that's it!
]]

local keys = {space = 32}
local places = 0
local players = {}

local shop = {
  {n = "Meep (Spacebar to use)",
    cost = 25,
    effect = function(n)
      tfm.exec.giveMeep(n)
    end,
  },
  {n = "Speed (Spacebar to use)",
    cost = 60,
    effect = function(n)
      tfm.exec.bindKeyboard(n, keys.space, true, true)
    end,
  },
}

function main()
  for n in pairs(tfm.get.room.playerList) do
    eventNewPlayer(n)
  end
end

function showShop(n)
  if players[n].openShop then
    local shopStr = ""
    for i, item in pairs(shop) do
      shopStr = "<a href='event:shop_"..i.."'>["..item.cost.."] "..item.n.."</a><br>"..shopStr
    end

    ui.addTextArea(0, "<font size='12' face='Wingdings'><p align='center'><a href='event:close'><rose><a href='event:close'>z <font size='12' face='Calibri'>"..players[n].coins, n, 10, 30, 60, 19, 0x212e35, 0x5d7d90, 0.5, true)
    ui.addTextArea(1, "<br><br>"..shopStr, n, 250, 80, 300, 200, 0x324650, 0x5d7d90, 1, true)
    ui.addTextArea(2, "<font size='14' face='Calibri'><p align='center'>Shop", n, 250, 80, 298, 20, 0x212e35, 0x5d7d90, 1, true)
    ui.addTextArea(3, "<font size='16' face='Calibri'><p align='center'><a href='event:close'><v>X", n, 520, 78, 29, 29, 0x324650, 0x000000, 0, true)
  else
    ui.addTextArea(0, "<font size='12' face='Wingdings'><p align='center'><a href='event:close'><rose><a href='event:open'>z <font size='12' face='Calibri'>"..players[n].coins, n, 10, 30, 60, 19, 0x212e35, 0x5d7d90, 0.5, true)
  end
end

function eventNewGame()
  places = 0
end

function eventKeyboard(n, key, down, x, y)
  local data = tfm.get.room.playerList[n]
  if key == keys.space then
    local dir = data.isFacingRight and 1 or -1
    
    tfm.exec.movePlayer(n, 0, 0, false, 80 * dir, 0, false)
    tfm.exec.bindKeyboard(n, keys.space, true, false)
  end
end

function eventPlayerWon(n)
  local player = players[n]

  places = places + 1

  if places == 1 then
    player.coins = player.coins + 20
  elseif places == 2 then
    player.coins = player.coins + 15
  elseif places == 3 then
    player.coins = player.coins + 5
  end
  showShop(n)
end

function eventNewPlayer(n)
  if not players[n] then
    players[n] = {
      coins = 0,
      openShop = false,
    }
  end
  showShop(n)
end

function eventTextAreaCallback(id, n, cb)
  local player = players[n]

  if cb == "close" then
    for i = 0, 3, 1 do
      ui.removeTextArea(i, n)
    end
    player.openShop = false
  elseif cb == "open" then
    player.openShop = true
  elseif cb:sub(1, 4) == "shop" then
    local i = tonumber(cb:sub(6))
    local item = shop[i]
    if item.cost <= player.coins then
      player.coins = player.coins - item.cost
      if item.effect then item.effect(n) end
    end
  end
  showShop(n)
end

main()

  if places == 1 then
    player.coins = player.coins + 20
  elseif places == 2 then
    player.coins = player.coins + 15
  elseif places == 3 then
    player.coins = player.coins + 5
  end
  showShop(n)
end 

--[[
How to add a new item to the shop;
  Firstly, decide what name and cost you would like to give the item. Make sure the name is descriptive.
  
  Secondly, decide what you want the item to give you once bought.
  
  For this example, I'll choose Meep and 25 as the name and cost of the item, and I'll evoke tfm.exec.giveMeep whenever someone buys the item.
  
  Now, follow this layout to create your item into the shop;
    {n = "ItemName", cost = costOfItem, effect = function(n)  InsertCodeToDoWhateverYouWantTheItemToDoOnceBought end},
    {n = "Meep", cost = 25, effect = function(n) tfm.exec.giveMeep(n) end},
    
  And that's it!
]]

local diedList = {}
local keys = {space = 32}
local players = {}

local shop = {
  {n = "Meep (Spacebar to use)",
    cost = 25,
    effect = function(n)
      tfm.exec.giveMeep(n)
    end,
  },
  {n = "Speed (Spacebar to use)",
    cost = 60,
    effect = function(n)
      tfm.exec.bindKeyboard(n, keys.space, true, true)
    end,
  },
}

function main()
  for n in pairs(tfm.get.room.playerList) do
    eventNewPlayer(n)
  end
end

function showShop(n)
  if players[n].openShop then
    local shopStr = ""
    for i, item in pairs(shop) do
      shopStr = "<a href='event:shop_"..i.."'>["..item.cost.."] "..item.n.."</a><br>"..shopStr
    end

    ui.addTextArea(0, "<font size='12' face='Wingdings'><p align='center'><a href='event:close'><rose><a href='event:close'>z <font size='12' face='Calibri'>"..players[n].coins, n, 10, 30, 60, 19, 0x212e35, 0x5d7d90, 0.5, true)
    ui.addTextArea(1, "<br><br>"..shopStr, n, 250, 80, 300, 200, 0x324650, 0x5d7d90, 1, true)
    ui.addTextArea(2, "<font size='14' face='Calibri'><p align='center'>Shop", n, 250, 80, 298, 20, 0x212e35, 0x5d7d90, 1, true)
    ui.addTextArea(3, "<font size='16' face='Calibri'><p align='center'><a href='event:close'><v>X", n, 520, 78, 29, 29, 0x324650, 0x000000, 0, true)
  else
    ui.addTextArea(0, "<font size='12' face='Wingdings'><p align='center'><a href='event:close'><rose><a href='event:open'>z <font size='12' face='Calibri'>"..players[n].coins, n, 10, 30, 60, 19, 0x212e35, 0x5d7d90, 0.5, true)
  end
end

function eventNewGame()
  diedList = {}

  for n, data in pairs(players) do
    data.awardedPoints = false
  end
end

function eventPlayerDied(n)
  if not tfm.get.room.playerList[n].isShaman then
    table.insert(diedList, n)
  end
end

function eventLoop(passed, left)
  if left <= 0 then
    if #diedList > 3 then
      local players = #diedList

      for i, n in pairs(diedList) do
        -- Making sure that only the last 3 dead players are in the list
        if players - i > 3 then
          table.remove(diedList, i)
        end
      end
    end

    local count = 1
    for i = #diedList, 1, -1 do
      local n = diedList[i]
      local coins = (count == 1 and 20 or count == 2 and 15 or 5)

      if players[n] and not players[n].awardedPoints then
        players[n].coins = players[n].coins + coins

        players[n].awardedPoints = true

        showShop(n)
      end

      count = count + 1
    end
  end
end

function eventKeyboard(n, key, down, x, y)
  local data = tfm.get.room.playerList[n]
  if key == keys.space then
    local dir = data.isFacingRight and 1 or -1

    tfm.exec.movePlayer(n, 0, 0, false, 80 * dir, 0, false)
    tfm.exec.bindKeyboard(n, keys.space, true, false)
  end
end

function eventNewPlayer(n)
  if not players[n] then
    players[n] = {
      coins = 0,
      openShop = false,
      awardedPoints = false
    }
  end
  showShop(n)
end

function eventTextAreaCallback(id, n, cb)
  local player = players[n]

  if cb == "close" then
    for i = 0, 3, 1 do
      ui.removeTextArea(i, n)
    end
    player.openShop = false
  elseif cb == "open" then
    player.openShop = true
  elseif cb:sub(1, 4) == "shop" then
    local i = tonumber(cb:sub(6))
    local item = shop[i]
    if item.cost <= player.coins then
      player.coins = player.coins - item.cost
      if item.effect then item.effect(n) end
    end
  end
  showShop(n)
end

main()

function eventPlayerDied(n)
	tfm.exec.respawnPlayer(n)
end

--[[
  This event is called when someone dies.
]]
function eventPlayerDied(died)
  --[[
    Creating a table to store the alive players.
  ]]
  local alive = {}
  
  --[[
    Checking the room list via for loop, to see who's alive (not dead).
  ]]
  for n, data in pairs(tfm.get.room.playerList) do
    --[[
      The key (n) is the name of the current player.
      The value (data) contains info about the current player (n).
      
      data.isDead tells us if a player is dead or alive.
    ]]
    if not data.isDead then
      --[[
        If the player is alive, add them to the alive table.
      ]]
      table.insert(alive, n)
    end
  end
  
  --[[
    The hashtag '#' gets the length of a table, or the number of things inside it.
    
    If it has 1, this means there's only one player alive left.
  ]]
  if #alive == 1 then
    local player = alive[1]
    tfm.exec.giveCheese(player)
    tfm.exec.playerVictory(player)
  end
end

function eventPlayerDied(died)
  local alive = {}
  
  for n, data in pairs(tfm.get.room.playerList) do
    if not data.isDead then
      table.insert(alive, n)
    end
  end
  
  if #alive == 1 then
    local player = alive[1]
    tfm.exec.giveCheese(player)
    tfm.exec.playerVictory(player)
  end
end

function eventPlayerWon(n, elapsed)
  print(n .. " has won. Time elapsed: " .. elapsed / 100)
end

local Timer = {
  change = function(time)
    tfm.exec.setGameTime(tonumber(time))
  end,

  popup = function(n)
    ui.addPopup(1, 2, "Please enter the time in seconds.", n, 20, 30, 200, true)
  end,
}

function eventChatCommand(n, cmd)
  if cmd == "changetime" then
    Timer.popup(n)
  end
end

function eventPopupAnswer(id, n, ans)
  Timer.change(ans)
end