admin = "Mawcn" -- put nick of admin here
cash = {}

function eventNewPlayer(pN)
ui.addTextArea(1, "<a href = 'event:shop'>Shop!</a>", pN, 6, 25, 100, 20, 0x111111, 0x111111, 1, true) -- add shop area for player
system.bindMouse(pN, true)
if pN == admin then
cash[pN] = 888888 -- admin has 888888 cash
else
cash[pN] = 0 -- but the rest of players has 0 cash
end
ui.addTextArea(2, "You have "..cash[pN].." coins!", pN, 625, 25, 170, 20, 0x111111, 0x111111, 1, true) -- ..cash[pN].. will show cash quantity
end

for pN in pairs(tfm.get.room.playerList) do
  eventNewPlayer(pN)
end -- set all players as new players

function eventLoop(eT,  rT)
for pN in pairs(tfm.get.room.playerList) do -- for all players in room do
cash[pN] = cash[pN] + 1 -- to actual cash value add cash enlarged by 1
ui.updateTextArea(2, "You have "..cash[pN].." coins!", pN, 625, 25, 170, 20, 0x111111, 0x111111, 1, true) -- update cash area
end
end

function eventTextAreaCallback(id, pN, req)
if req == "shop" then -- "shop" is our 'event:shop' in shop area code
ui.addTextArea(1, "Shop!\n-> <a href = 'event:meep'>Meep - 250 coins</a>\n-> <a href = 'event:vampire'>Vampire - 300 coins</a>\n-> <a href = 'event:shaman'>Shaman - 350 coins</a>", pN, 6, 25, 200, 85, 0x111111, 0x111111, 1, true) -- update shop area
elseif req == "meep" then -- "meep" is our 'event:meep' in updated shop area code
if cash[pN] >= 250 then -- check if player has more or same as 250 coins
cash[pN] = cash[pN] - 250 -- substract actual cash value for 250
tfm.exec.giveMeep(pN) -- give meep for player
ui.updateTextArea(2, "You have "..cash[pN].." coins!", pN, 625, 25, 170, 20, 0x111111, 0x111111, 1, true) -- update cash area
end
elseif req == "vampire" then
if cash[pN] >= 300 then
cash[pN] = cash[pN] - 300
tfm.exec.setVampirePlayer(pN)
ui.updateTextArea(2, "You have "..cash[pN].." coins!", pN, 625, 25, 170, 20, 0x111111, 0x111111, 1, true)
end
elseif req == "shaman" then
if cash[pN] >= 350 then
cash[pN] = cash[pN] - 350
tfm.exec.setShaman(pN)
ui.updateTextArea(2, "You have "..cash[pN].." coins!", pN, 625, 25, 170, 20, 0x111111, 0x111111, 1, true)
end
end
end