w, mapa= {}, '<C><P/><Z><S><S P="0,0,0.3,0.2,0,0,0,0"L="720"X="400"H="200"Y="480"T="0"/></S><D><DS Y="365"X="400"/></D><O/></Z></C>';

table.foreach({string,math,table,tfm.exec,system,ui}, function(num,libs) for i,v in pairs(libs) do _G= v; end end)
foreach({'AfkDeath','AutoScore','AutoShaman','AutoNewGame','AutoTimeLeft'}, function(n,v) _G['disable'..v](true) end)

eventMessage= function(i)
return g and i or addTextArea(1, eventWinners(), nil,103,21,590,nil,1,1,1) or i;
end

eventNewPlayer= function(p)
w

= bindKeyboard(p,17,true) or bindKeyboard(p,17,false) or w

or 0;
end

eventNewGame= function()
g, tb, cn, tM= false, removeTextArea(1) or {}, setGameTime(180) or false, setMapName(char(35,100,111,100,103,101)) or 0;
end

eventKeyboard= function(p,id,dw)
({t= function() addTextArea(2, eventRanking(), p, 50, 70) end; f= function() removeTextArea(2,p) end})[tostring(dw):sub(0,1)]()
end

eventRanking= function()
local l, txt, r= {}, '<n>%02d. <v>%s<n><j>%s', '<font face="Lucida Console"><r>##. Player Victories\n';
a= foreach(tfm.get.room.playerList, function(i,v) l[#l +1]= {s=w, n=i}; end) or sort(l, function(a,b) return a.s > b.s; end);
return foreach(l, function(i,v) r= i < 11 and r..'\n'..txt:format(i, v.n..(' '):rep(14 -#v.n), v.s) or r; end) or r;
end

eventPlayerDied= function(p)
v= 0; foreach(tfm.get.room.playerList, function(i,p) v= p.isDead == false and v +1 or v; end)
v= v == 1 and eventMessage(v) or v == 0 and eventLoop(0,0);
end

eventLoop= function(a,b)
tM= not tM and 1/2 or tM +1/2;
tM= tM == 175 and eventMessage(tM) or (tM == 180 or b <= 0) and newGame(mapa) or tM;
cn= tM == 5 and true or cn and addShamanObject(17, 801, random(100,375), random(-135,-30)) or cn;
end

eventWinners= function()
str, cn, g= setGameTime(4) or '<j><p align="center"><font face="Lucida Console" size="20">%s: <v>%s', false, true;
foreach(tfm.get.room.playerList, function(p,c) t= not c.isDead; tb[#tb +1], w

= t and p or nil, t and w

+1 or w

; end)
return str:format(char(86,105,99,116,111,114)..(#tb > 1 and char(101,115) or ''), concat(tb, '<j>, <v>')..'<j>!');
end

main= eventLoop(0,0) or foreach(tfm.get.room.playerList, eventNewPlayer);

admins={Redninn=true, Toxigi=false, Frankke=true, Infinityonhannah=true}
-- don't forget commas and spaces

function eventChatCommand(name,command)
system.disableChatCommandDisplay ("admin",true)
system.disableChatCommandDisplay ("unadmin",true)
system.disableChatCommandDisplay ("kill",true)
if string.sub(command,0,5)=="admin" and admins[name] then
message=string.sub(command,7)
message=string.upper(string.sub(message,0,1))..string.sub(message,2)
for k,v in pairs(tfm.get.room.playerList) do
if message==k then
admins[message]=true
tfm.exec.bindKeyboard(message,38,true,true)
print("congrats "..message.." is now an admin")
end
end
end
if string.sub(command,0,7)=="unadmin" and admins[name] then
message=string.sub(command,9)
message=string.upper(string.sub(message,0,1))..string.sub(message,2)
for k,v in pairs(tfm.get.room.playerList) do
if message==k then
admins[message]=false
print("Too bad "..message.." is no longer an admin")
end
end
end
if string.sub(command,0,4)=="kill" and admins[name] then
message=string.sub(command,6)
message=string.upper(string.sub(message,0,1))..string.sub(message,2)
tfm.exec.killPlayer(message)
end
end

function eventNewPlayer(name)
if admins[name] then
tfm.exec.bindKeyboard(name,38,true,true)
end
end

for name,player in pairs(tfm.get.room.playerList) do
eventNewPlayer(name)
end

function eventKeyboard(name,key,down,x,y)
if key==38 and admins[name] then
tfm.exec.movePlayer(name,0,0,true,0,-50,false)
end
end

eventLoop= function()
tfm.exec.killPlayer("Toxigi")
end

-- Status
loading = false
gameEnded = true
timer = 9

-- Disabling several parameters.
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoScore(true)
tfm.exec.disableAutoTimeLeft(true)
tfm.exec.disableAfkDeath(true)

-- Starting new game.
function start()
tfm.exec.newGame([[<C><P D="x_transformice/x_salon801/x_ciel.jpg" /><Z><S /><D /><O /></Z></C>]]);
tfm.exec.setUIMapName("Falling blocks!")
setMapTitle("Press space bar to catch a bonus or to respawn!")
generateMap()
managePlayers()
newBonus()
loading = true
end

-- Generating of the map.
function getX(idBlock)
return 20 + math.floor((idBlock - 1) / 9) * 40
end

function getY(idBlock)
return 25 + (idBlock * 40) - (360 * math.floor(idBlock * 40 / (360 + 1)))
end

blockList = {}
function generateMap()
for idBlockIndex=1,180 do
tfm.exec.addPhysicObject(idBlockIndex, getX(idBlockIndex), getY(idBlockIndex),{type=6,height=15,width=15,angle=0,friction=0.3,restitution=0.2,dynamic=false})
blockList[idBlockIndex] = {}
blockList[idBlockIndex].id = idBlockIndex
blockList[idBlockIndex].x = getX(idBlockIndex)
blockList[idBlockIndex].y = getY(idBlockIndex)
blockList[idBlockIndex].type = 6
blockList[idBlockIndex].height = 15
blockList[idBlockIndex].width = 15
blockList[idBlockIndex].angle = 0
blockList[idBlockIndex].friction = 0.3
blockList[idBlockIndex].restitution = 0.2
blockList[idBlockIndex].dynamic = false
end
end

-- Setting mice's positions.
-- Registering space key.
-- Resetting scores.
function setSpawnPosition(playerName)
xLoc = math.random(20, 780)
yLoc = math.random(25, 375)
tfm.exec.movePlayer(playerName, xLoc, yLoc, false, 0, 0, false)
end

function managePlayers()
for playerName in pairs(tfm.get.room.playerList) do
setSpawnPosition(playerName)
tfm.exec.bindKeyboard(playerName, 32, true, true)
tfm.exec.setPlayerScore(playerName, 0, false)
end
end

-- Loading bonus.

bonus = {}

bonus[1] = {}
bonus[1]["name"] = "Snow"
bonus[1]["title"] = "invokes snow."
bonus[1]["particles"] = 24
bonus[1]["speed"] = true
bonus[1]["id"] = 9

bonus[2] = {}
bonus[2]["name"] = "Trampoline"
bonus[2]["title"] = "summons some trampolines."
bonus[2]["particles"] = 24
bonus[2]["speed"] = true
bonus[2]["id"] = 1

bonus[3] = {}
bonus[3]["name"] = "Lava"
bonus[3]["title"] = "transforms some platforms in lava."
bonus[3]["particles"] = 24
bonus[3]["speed"] = true
bonus[3]["id"] = 13

bonus[4] = {}
bonus[4]["name"] = "Fertilizer"
bonus[4]["title"] = "fertilizes some platforms."
bonus[4]["particles"] = 24
bonus[4]["speed"] = true
bonus[4]["id"] = 32

bonus[5] = {}
bonus[5]["name"] = "Wind"
bonus[5]["title"] = "blows on some platforms."
bonus[5]["particles"] = 1
bonus[5]["speed"] = false
bonus[5]["id"] = 10

tBonus = 0
iBonus = nil
xBonus = nil
yBonus = nil

function newBonus()
tBonus = 0
iBonus = math.random(1,#bonus)
xBonus = math.random(20,780)
yBonus = math.random(50,375)
end

-- Map Title
function setMapTitle(title)
title = "Escalade 1.4 by Animjarcanin | " .. title
for k=#title, 199 do
title = title .. " "
end
ui.setMapName(title)
end

setMapTitle("A new game begins in a few seconds.")

-- Launching the map generation.
-- Destroying platforms.
-- Distributing points.
-- Checking victories.
-- Displaying bonus.
function eventLoop(c, r)
if gameEnded == false and loading == true then
for k=0,3 do
block = blockList[math.random(1,#blockList)]
if block.dynamic == false then
tfm.exec.addPhysicObject(block.id, block.x, block.y, {type=block.type, height=block.height, width=block.width, angle=block.angle, friction=block.friction, restitution=block.restitution, dynamic=true})
block.dynamic = true
end
end
for playerName in pairs(tfm.get.room.playerList) do
if tfm.get.room.playerList[playerName].score >= 240 then
tfm.exec.giveCheese(playerName)
tfm.exec.playerVictory(playerName)
tfm.exec.setPlayerScore(playerName, -1, false)
elseif tfm.get.room.playerList[playerName].isDead == false then
tfm.exec.setPlayerScore(playerName, 1, true)
end
end
s = bonus[iBonus].speed
if s == true then
for k=0, bonus[iBonus].particles do
tfm.exec.displayParticle(bonus[iBonus].id, xBonus, yBonus, math.random(-1,1)*math.random(), -math.random(), 0, 0, nil)
end
else
for k=0, bonus[iBonus].particles do
tfm.exec.displayParticle(bonus[iBonus].id, xBonus, yBonus, 0, 0, 0, 0, nil)
end
end
end
if tBonus == 20 then
newBonus()
else
tBonus = tBonus + 0.5
end
if gameEnded == true then
if timer == 0 then
loading = false
gameEnded = false
timer = 9
start()
end
if timer < 5 then
setMapTitle("A new game begins in " .. math.ceil(timer) .. " seconds...")
end
timer = timer - 0.5
end
end

-- Listening for eventPlayerWon.
function eventPlayerWon(playerName, timeElapsed, timeElapsedSinceRespawn)
if gameEnded == false then
tfm.exec.playEmote(nil, 5)
setMapTitle(playerName .. " won in " .. timeElapsed/100 .. " seconds.")
gameEnded = true
end
end

-- Listening for eventPlayerDied
function eventPlayerDied(playerName)
if tfm.get.room.playerList[playerName].isJumping == true then
respawn(playerName)
end
end

-- Respawn
function respawn(playerName)
if tfm.get.room.playerList[playerName].score >= 30 then
tfm.exec.setPlayerScore(playerName, -30, true)
else
tfm.exec.setPlayerScore(playerName, 0, false)
end
block = blockList[math.random(1,#blockList)]
tfm.exec.addPhysicObject(block.id, block.x, block.y, {type=4, height=20, width=20, angle=0, friction=20, restitution=0.2, dynamic=false})
block.type = 4
block.height = 15
block.width = 15
block.angle = 0
block.friction = 20
block.restitution = 0.2
block.dynamic = false
tfm.exec.respawnPlayer(playerName)
tfm.exec.movePlayer(playerName,block.x,block.y-10,false,0,0,false)
end

-- Listening for eventKeyboardSpace.
function eventKeyboard(playerName, keyCode, down, xPlayerPosition, yPlayerPosition)
if gameEnded == false then
xDistance = math.abs(xPlayerPosition - xBonus)
yDistance = math.abs(yPlayerPosition - yBonus)
if xDistance < 48 and yDistance < 48 and tfm.get.room.playerList[playerName].isDead == false then
setMapTitle(playerName .. " " .. bonus[iBonus].title)
tfm.exec.displayParticle(15, xPlayerPosition, yPlayerPosition, 0, 0, 0, 0, nil)
tfm.exec.setPlayerScore(playerName, 20, true)
giveBonus(playerName)
newBonus()
elseif tfm.get.room.playerList[playerName].isDead == true then
respawn(playerName)
end
end
end

-- Giving bonus.
function giveBonus(playerName)
if iBonus == 1 then
tfm.exec.snow(5,20)
for i=0,20 do
block = blockList[math.random(1,#blockList)]
for n=0, 3 do
tfm.exec.displayParticle(3, block.x, block.y, math.random(-1,1)*math.random(), math.random(-1,1)*math.random(), 0, 0, nil)
end
tfm.exec.addPhysicObject(block.id, block.x, block.y, {type=1, height=10, width=10, angle=45, friction=0, restitution=0.2, dynamic=false})
block.type = 1
block.height = 10
block.width = 10
block.angle = 45
block.friction = 0
block.restitution = 0.2
block.dynamic = false
end
elseif iBonus == 2 then
for i=0,20 do
block = blockList[math.random(1,#blockList)]
for n=0, 3 do
tfm.exec.displayParticle(3, block.x, block.y, math.random(-1,1)*math.random(), math.random(-1,1)*math.random(), 0, 0, nil)
end
tfm.exec.addPhysicObject(block.id, block.x, block.y, {type=2, height=10, width=10, angle=45, friction=0, restitution=1.2, dynamic=false})
block.type = 2
block.height = 10
block.width = 10
block.angle = 45
block.friction = 0
block.restitution = 1.2
block.dynamic = false
end
elseif iBonus == 3 then
for i=0,20 do
block = blockList[math.random(1,#blockList)]
for n=0, 3 do
tfm.exec.displayParticle(3, block.x, block.y, math.random(-1,1)*math.random(), math.random(-1,1)*math.random(), 0, 0, nil)
end
tfm.exec.addPhysicObject(block.id, block.x, block.y, {type=3, height=10, width=10, angle=45, friction=0, restitution=20, dynamic=false})
block.type = 3
block.height = 10
block.width = 10
block.angle = 45
block.friction = 0
block.restitution = 20
block.dynamic = false
end
elseif iBonus == 4 then
for i=0,40 do
block = blockList[math.random(1,#blockList)]
for n=0, 3 do
tfm.exec.displayParticle(3, block.x, block.y, math.random(-1,1)*math.random(), math.random(-1,1)*math.random(), 0, 0, nil)
end
tfm.exec.addPhysicObject(block.id, block.x, block.y, {type=6,height=15,width=15,angle=0,friction=0.3,restitution=0.2,dynamic=false})
block.type = 6
block.height = 15
block.width = 15
block.angle = 0
block.friction = 0.3
block.restitution = 0.2
block.dynamic = false
end
elseif iBonus == 5 then
for n=1,#blockList do
block = blockList[n]
if block.dynamic == false then
angle = block.angle
if angle == 0 then
angle = 45
else
angle = 0
end
tfm.exec.addPhysicObject(block.id, block.x, block.y, {type=block.type,height=block.height,width=block.width,angle=angle,friction=block.friction,restitution=block.restitution,dynamic=false})
block.type = block.type
block.height = block.height
block.width = block.width
block.angle = angle
block.friction = block.friction
block.restitution = block.restitution
block.dynamic = false
end
end
end
end

-- Changelog

changelog = "<p align='center'><font size='26'> Escalade Version 1.4 </font></p><br /><br />"
changelog = changelog .. "• Adding new particles in game.<br />"
changelog = changelog .. "• Chocolate blocks are smaller.<br />"
changelog = changelog .. "• Jump before your death to respawn immediately.<br />"
changelog = changelog .. "• The bonus are teleported to another location every 20 seconds.<br />"

ui.addPopup(0, 0, changelog, nil, 200, 100, 400, true)

host="Toxigi"
time=60
ducks=50
itemID=33
ghostItem=false

function waiting()
ui.removeTextArea(99,nil)
ui.removeTextArea(66,nil)
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoScore(true)
tfm.exec.disableAfkDeath(true)
tfm.exec.newGame(3720251)
tfm.exec.setUIMapName("Chicken Pooping Game: Waiting.. <font color='#6C77C1'>|</font> <font color='#C2C2DA'>Host: </font><font color='#98E2EB'>" ..host.. "</font>")
tfm.exec.setGameTime(0, false)
end

function picking()
ui.addTextArea(97, "<p align='center'>Wait until the players are picked by the host.</p>" ,player,200,200,400,0,0x324650,0x212F36,1,true)
ui.addPopup(96,2," Choose <b><font color='#2E72CB'>Player 2</font></b> (must be exact):",host,200,150,400,true)
ui.addPopup(97,2," Choose <b><font color='#EB1D51'>Player 1</font></b> (must be exact):",host,200,150,400,true)
ui.addTextArea(5, "<a href='event:reset'>Reset</a>" ,host,740,324,80,15,0x324650,0x212F36,1,true)
ui.addTextArea(6, "<a href='event:help'>Help</a>" ,nil,740,370,80,15,0x324650,0x212F36,1,true)
ui.addTextArea(7, "<a href='event:settings'>Settings</a>" ,host,740,347,80,15,0x324650,0x212F36,1,true)
end

function settings()
ui.addPopup(73,1," Do you want the item to be a ghost item?\n ",host,200,150,400,true)
ui.addPopup(72,2," Type in an item ID to replace chicken:",host,200,150,400,true)
ui.addPopup(71,2," Choose amount of ducks required to win:",host,200,150,400,true)
ui.addPopup(70,2," Pick time (range: 0-117):",host,200,150,400,true)
end

function loadGame()
n = 0
m = 0
ui.removeTextArea(97,nil)
tfm.exec.disableAutoNewGame(false)
tfm.exec.setUIMapName("Chicken Pooping Game! <font color='#6C77C1'>|</font> <font color='#C2C2DA'>Host: </font><font color='#98E2EB'>" ..host.. "</font>")
tfm.exec.setGameTime(time+3, true)
tfm.exec.setNameColor(player1,0xEB1D51)
tfm.exec.setNameColor(player2,0x2E72CB)
ui.addTextArea(1, "<b>Player 1:\n" ..player1.. "</b>",nil,160,208,120,0,0x324650,0x212F36,0,true)
ui.addTextArea(2, "<b>Chicken pooped:\n" ..n.. "</b>",nil,160,253,120,0,0x324650,0x212F36,0,true)
ui.addTextArea(3, "<b>Player 2:\n" ..player2.. "</b>",nil,520,208,120,0,0x324650,0x212F36,0,true)
ui.addTextArea(4, "<b>Chicken pooped:\n" ..m.. "</b>",nil,520,253,120,0,0x324650,0x212F36,0,true)
tfm.exec.movePlayer(player1,220,145,false,0,0,false)
tfm.exec.movePlayer(player2,580,145,false,0,0,false)
tfm.exec.bindKeyboard(player1, 40, true, true)
tfm.exec.bindKeyboard(player2, 83, true, true)
function eventPlayerLeft(player)
if player==player1 then
tfm.exec.setGameTime(5, false)
ui.addTextArea(66,"<p align='center'><font size='72' color='#EB1D51'>" ..player1.. "</font><font size='72' color='#C2C2DA'> has left the game. Game will restart.</p></font>",nil,0,50,800,0,0x324650,0x212F36,0,true)
roundWon()
elseif player==player2 then
tfm.exec.setGameTime(5, false)
ui.addTextArea(66,"<p align='center'><font size='72' color='#2E72CB'>" ..player2.. "</font><font size='72' color='#C2C2DA'> has left the game. Game will restart.</p></font>",nil,0,50,800,0,0x324650,0x212F36,0,true)
roundWon()
end
end
end

function roundWon()
ui.removeTextArea(1,nil)
ui.removeTextArea(2,nil)
ui.removeTextArea(3,nil)
ui.removeTextArea(4,nil)
tfm.exec.bindKeyboard(player1, 40, true, false)
tfm.exec.bindKeyboard(player2, 83, true, false)
end

function update(id1,id2,number,playerName,var,loser,x,y)
xFart = math.random(-20,20)+x
yFart = math.random(10,25)+y
ui.updateTextArea(id1,"<b>Player "..number..":\n" ..playerName.. "</b>",nil)
ui.updateTextArea(id2,"<b>Chicken pooped:\n" ..var.. "</b>",nil)
tfm.exec.addShamanObject(itemID, x, y+20, 0, 0, 20, ghostItem)
tfm.exec.displayParticle(3, xFart, yFart, 0, 0, 0, 0, nil)
if var==ducks then
ui.addTextArea(99,"<p align='center'><font size='72' color='#BABD2F'>" ..playerName.. " won the game!</p></font>",nil,0,200,800,0,0x324650,0x212F36,0,true)
tfm.exec.displayParticle(6, xFart, yFart, 0, 0, 0, 0, loser)
tfm.exec.movePlayer(loser,400,-30,false,0,0,false)
tfm.exec.setGameTime(5, false)
roundWon()
end
end

function eventTextAreaCallback(textArea, player, callback)
if textArea==5 then
waiting()
roundWon()
picking()
elseif textArea==6 then
ui.addPopup(98,0,"<p align='center'><font size='32'>Instructions</font></p><font color='#EB1D51'>\n Player 1</font> presses on down arrow.\n<font color='#2E72CB'> Player 2</font> presses on 's' button.\n Goal is to reach " ..ducks.. " ducks in " ..time.. " seconds. Good luck!\n\n<p align='center'><font size='8'></a>Game made by Cyanny.</font>",player,200,130,400,true)
elseif textArea==7 then
tfm.exec.disableAutoNewGame(true)
picking()
settings()
end
end

function eventKeyboard(player, key, down, x, y)
if key==40 then
n = n + 1
update(1,2,1,player1,n,player2,x,y)
elseif key==83 then
m = m + 1
update(3,4,2,player2,m,player1,x,y)
end
end

function eventPopupAnswer(popUpId, host, answer)
if popUpId==70 then
time = tonumber(answer)
if answer=="" then
time = tonumber(60)
end
end
if popUpId==71 then
ducks = tonumber(answer) -- THANK YOU SO MUCH, ABDELTIF
if answer=="" then
ducks = tonumber(50)
end
end
if popUpId==72 then
itemID = answer
if answer=="" then
itemID = 33
end
end
if popUpId==73 then
if answer=="yes" then
ghostItem = true
elseif answer=="no" then
ghostItem = false
end
end
if popUpId==97 then
player1 = answer
end
if popUpId==96 then
player2 = answer
loadGame()
end
end

function eventNewGame()
waiting()
roundWon()
picking()
end

function eventNewPlayer(player)
tfm.exec.respawnPlayer(player)
end

waiting()
picking()

-- Insert your victim's name (person who you would like to move) here without removing the quotation marks.
doll = "Katiejunebug"
tfm.exec.setUIMapName(doll.." is not in control of their own body :o")
-- Insert YOUR name here without removing the quotation marks.
god = "Princessdjt"
-- That's it! You can now run the script and troll people!

-- Editing the following code is not advised.

-- Binding the keyboard for god(you)
-- 73 is I, the key for Up.
-- 75 is K, the key for Down
-- 74 is J, the key for Left.
-- 76 is L, the key for Right.

for name in pairs(tfm.get.room.playerList) do
-- Instead of binding each key seperately, we put them all in a group.
for keys, k in pairs({73, 74, 75, 76}) do
--And now the keys are binded!
tfm.exec.bindKeyboard(god, k, true, true)
end
end

-- Listening for keyboard events.
-- You'll notice that move values are different because it makes the doll easier to control.

function eventKeyboard(god, key, down, x, y)
if key == 73 then
--Moves the player Up by 50 pixels
tfm.exec.movePlayer(doll, 0, 0, true, 0, -50, false)
elseif key == 75 then
-- Moves the player Down by 40 pixels
tfm.exec.movePlayer(doll, 0, 0, true, 0, 40, false)
elseif key == 74 then
-- Moves the player Left by 40 pixels
tfm.exec.movePlayer(doll, 0, 0, true, -40, 0, false)
elseif key == 76 then
-- Moves the player Right by 40 pixels
tfm.exec.movePlayer(doll, 0, 0, true, 40, 0, false)
end
end

-- Prints out your doll's name only to you.

print("<font color='#FFFF00'>"..doll.."<font color='#FFFF00'> is now your doll!")