View difference between Paste ID: kJuLwPiD and U4SkNqqs

--- Module [football] by Matiasgim and Sincabellera
+
 
---tfm.exec.setRoomMaxPlayers(14)
+
 local MAX_SCORE = 20;
 local WELCOME_MESSAGE = "<J>Welcome! This is a football game for testing modules. Write <N>!help<J> for more information. Please report any issues to Makinit.";
 local keys = {space = 32, left = 37, right = 39, a = 65, d = 68, q = 81, x = 88};
 local team1 = {id = 1, score = 1, colour = "0x0000FF", colour2 = "0x8888FF", tag = "<BV>", name = "the blue team", players = {}};
 local team2 = {id = 2, score = 1, colour = "0xFF0000", colour2 = "0xFF8888", tag = "<R>", name = "the red team", players = {}};
 local ball = {player = nil, object = 0, t = 0, x = 0, y = 0, vx = 0, vy = 0, ax = 0, ay = 0, takeTime = 0, shootTime = 0};
 local tasks = {};
 
 local addShamanObject = function(...)
 	local object, x, y, r, vx, vy = ...
 	print(object .. "," .. x .. "," .. y .. "," .. r .. "," .. vx .. "," .. vy)
 	return tfm.exec.addShamanObject(...)
 end
 
 local players = {};
 local spectators = {Matiasgim};
 
 function table.copy(t)
   local t2 = {}
   for k,v in pairs(t) do
     t2[k] = v
   end
   return t2
 end
 
 function printInfo(name, value, tabs)
 	tabs = tabs or "";
 	local t = type(value);
 	print(tabs .. t .. " " .. tostring(name) .. " = " .. tostring(value));
 	if t == "table" then
 		for n, v in pairs(value) do
 			if v == value then
 				print(tabs .. "\tself " .. n);
 			else
 				printInfo(n, v, tabs .. "\t");
 			end
 		end
 	end
 end
 
 -------------------------
 -- Fonction principale --
 -------------------------
 
 function main()
 	command.addHandler("debug", doDebug);
 	command.addHandler("cheese", doCheese);
 	command.addHandler("help", doHelp);
 	command.addHandler("arrow", doArrow);
 	--command.addHandler("t", doTeamChat);
 
 	debug.disableEventLog(debugOff);
 	tfm.exec.disableAutoScore(true);
 	tfm.exec.disableAutoNewGame(true);
 	tfm.exec.setGameTime(0, true);
 	--tfm.exec.chatMessage(WELCOME_MESSAGE);
 	tfm.exec.newGame(MAP);
 end
 
 ------------------------
 -- Fonction newGame ----
 ------------------------
 
 function eventNewGame()
 	team1.players = {};
 	team2.players = {};
 	team1.score = 1;
 	team2.score = 1;
 	gameOver = false;
 	arrows = false;
 	clearTextArea = false;
 	for name, player in pairs(tfm.get.room.playerList) do
 		if player.isShaman then
 			tfm.exec.killPlayer(name);
 			tfm.exec.respawnPlayer(name);
 			shaman = name;
 		end
 		initPlayer(name);
 	end
 
 	for name, player in pairs(tfm.get.room.playerList) do
 		if player.isShaman then
 			tfm.exec.killPlayer(name);
 			tfm.exec.respawnPlayer(name);
 			shaman = name;
 		end
 		returnPlayer(name);
 	end
 	ball.object = nil;
 	if #team1.players > 0 and math.random() > 0.5 then
 		tasks[os.time() + 5000] = function() giveBall(team1.players[math.random(#team1.players)]) tp123 == true; end;
 	elseif #team2.players > 0 then
 		tasks[os.time() + 5000] = function() giveBall(team2.players[math.random(#team2.players)]) tp123 == true; end;
 	end
 end
 
 ------------------------------
 -- Fonction PlayerGetCheese --
 ------------------------------
 function eventPlayerGetCheese(player)
 	ball.player = player;
         tp123 == true;
 end
 
 ------------------------
 -- Fonction eventLoop --
 ------------------------
 
 function doArrow(player)
 	if arrows then
 	arrows = false
 	else
 	arrows = true
 	end
 end
 
 function eventLoop()
 	--[[if clearTextArea then
 	ui.removeTextArea(0, player)
 	clearTextArea = false
 	end]]
 	--local done = {}
 	local now = os.time();
 
 	-- task handler
 	for when, task in pairs(table.copy(tasks)) do
 		if when <= now then
 			tasks[when] = nil;
 			task();
 		end
 	end
 	if not gameOver then
 		tfm.exec.setGameTime(60 * team1.score + team2.score + 1, true);
 	if arrows then
 		local object = ball.object;
 		local player = ball.player;
 		if object then
 			local x, y = getBallLocation();
 			addShamanObject(0, x, y - 25, 0, 0, 0, true);
 		elseif player then
 			local ballPlayer = players[player];
 			if false or ballPlayer then
 				addShamanObject(0, ballPlayer.x, ballPlayer.y - 50, 0, 0, 0, true);
 			end
 			local tfmPlayer = tfm.get.room.playerList[player];
 			if tfmPlayer then
 				addShamanObject(0, tfmPlayer.x, tfmPlayer.y - 50, 0, 0, 0, true);
 				end
 				end
 				end
 	-- Flèches
 
 		--[[local object = ball.object;
 		local player = ball.player;
 		if object then
 			local x, y = getBallLocation();
 			addShamanObject(0, x, y - 25, 0, 0, 0, true);
 		elseif player then
 			local ballPlayer = players[player];
 			if false or ballPlayer then
 				addShamanObject(0, ballPlayer.x, ballPlayer.y - 50, 0, 0, 0, true);
 			end
 			local tfmPlayer = tfm.get.room.playerList[player];
 			if tfmPlayer then
 				addShamanObject(0, tfmPlayer.x, tfmPlayer.y - 50, 0, 0, 0, true);
 			end
 		end]]
 	else
 		local left =50;
 		local right = 1550;
 		if team1.score > team2.score then
 			right = 800;
 		elseif team2.score > team1.score then
 			left = 800;
 		end
 		addShamanObject(28, math.random(left, right), 350, 0, 0, 0, false);
 	end
 end
 
 -----------------------
 -- Fonction keyboard --
 -----------------------
 
 function eventKeyboard(player, key, down, x, y)
 	if down and players[player] then
 		if key == keys.left or key == keys.a or key == keys.q then
 			players[player].direction = -1;
 		elseif key == keys.right or key == keys.d then
 			players[player].direction = 1;
 		end
 	end
 	if key == keys.space then
 		local now = os.time();
 		local x2, y2 = getBallLocation(now);
 		if player == ball.player then
 			if down then
 				ball.space = now;
 			elseif ball.space then
 				local force = (now - ball.space) / 100;
 				if force > 8 then
 					force = 8;
 				end
 				ball.space = nil;
 				shootBall(x, y, 5, -6 - force);
 				players[player].shootTime = now;
 				ball.takeTime = 0;
 				ball.shooter = player;
 			end
 		elseif ball.object then
 			local shootTime = players[player].shootTime or 0;
 			if now > shootTime + 1000 and isClose(x, y - 25, getBallLocation(now)) then
 				removeBall();
 				ball.takeTime = now;
 				giveBall(player);
 				ball.space = nil;
 				ball.passer = ball.shooter;
 			end
 		elseif ball.player and players[ball.player] and players[ball.player].team.id ~= players[player].team.id and now > ball.takeTime + 1000 then
 			local ballPlayer = tfm.get.room.playerList[ball.player];
 			local tfmPlayer = tfm.get.room.playerList[player];
 			if isClose(x, y, ballPlayer.x, ballPlayer.y) or isClose(tfmPlayer.x, tfmPlayer.y, ballPlayer.x, ballPlayer.y) then
 				takeBall(ballPlayer.x, ballPlayer.y);
 				ball.takeTime = now;
 				giveBall(player);
 				ball.space = nil;
 				ball.passer = nil;
 			end
 		end
 	end
 	--players[player].x = x;
 	--players[player].y = y;
 end
 
 ----------------------
 -- Fonction isClose --
 ----------------------
 
 function isClose(x, y, x2, y2)
 	local d = 25;
 	return x < x2+d and x > x2-d and y < y2+d and y > y2-d;
 end
 
 -------------------------
 -- Fonction removeBall --
 -------------------------
 
 function removeBall()
 	tfm.exec.removeObject(ball.object);
 	ball.object = nil;
 	if ball.floorTimer then
 		system.removeTimer(ball.floorTimer);
 	end
 	ball.floorTimer = nil;
 	if ball.goalTimer then
 		tasks[ball.goalTimer] = nil;
 	end
 	ball.goalTimer = nil;
 end
 
 ------------------------
 -- Fonction shootBall --
 ------------------------
 
 function shootBall(x, y, vx, vy)
 	ball.x = x;
 	ball.y = y;
 	ball.vx = players[ball.player].direction * (vx or 5);
 	ball.vy = (vy or -6);
 	ball.ax = 0;
 	ball.ay = 5;
 	if ball.object then
 		tfm.exec.removeObject(ball.object);
 	end
 	ball.t = os.time();
 	--ball.object = addShamanObject(tfm.enum.shamanObject.littleBox, x, y, 0, ball.vx, ball.vy, true);
 	ball.object = addShamanObject(17, x, y, 0, 0, 0, true);
 	tfm.exec.moveObject(ball.object, x, y, false, ball.vx*10, ball.vy*10, false);
 	if not gameOver then
 		local yf = 330; --floor
 		setFloorTimer(yf);
 		if ball.vx < 0 then
 			setGoalTimer(0);
 		elseif ball.vx > 0 then
 			setGoalTimer(800);
 		end
 	end
 	takeBall(x, y);
 end
 
 ----------------------------
 -- Fonction setFloorTimer --
 ----------------------------
 
 function setFloorTimer(yf)
 	if ball.floorTimer then
 		system.removeTimer(ball.floorTimer);
 	end
 	if yf then
 		local tf;
 		if (ball.ay == 0) then
 			tf = (yf - ball.y) / (30*ball.vy);
 		else
 			tf = (-(30*ball.vy) + math.sqrt((30*ball.vy)*(30*ball.vy) - 4*(30*ball.ay)*(ball.y-yf))) / (2*(30*ball.ay));
 			if tf < 0 then
 				--print"-");
 				tf = (-(30*ball.vy) - math.sqrt((30*ball.vy)*(30*ball.vy) - 4*(30*ball.ay)*(ball.y-yf)))/(2*(30*ball.ay));
 			end
 		end
 		if tf < 1 then
 			tf = 1;
 		end
 		--ball.floorTimer = system.newTimer(hitFloor, tf * 1000, false, tf);
 	end
 end
 
 -----------------------
 -- Fonction hitFloor --
 -----------------------
 
 function hitFloor(timer, tf)
 	local now = os.time();
 	local x, y = getBallLocation(now);
 	ball.x = x;
 	ball.y = 330;
 	ball.vy = 0;
 	ball.ax = 0;
 	ball.ay = 0;
 	ball.t = now;
 	tfm.exec.moveObject(ball.object, ball.x, ball.y, false, 0, ball.vy, false);
 	--print"hit!");
 	--printtf .. "," .. x .. "," .. y);
 end
 
 ---------------------------
 -- Fonction setGoalTimer --
 ---------------------------
 
 function setGoalTimer(xg)
 	if ball.goalTimer then
 		tasks[ball.goalTimer] = nil;
 	end
 	if xg then
 		local tg;
 		if (ball.ax == 0) then
 			tg = (xg - ball.x) / (30*ball.vx);
 		else
 			tg = (-(30*ball.vx) + math.sqrt((30*ball.vx)*(30*ball.vx) - 4*(30*ball.ax)*(ball.x-xg))) / (2*(30*ball.ax));
 			if tg < 0 then
 				--print"-");
 				tg = (-30*ball.vx - math.sqrt(900*ball.vx*ball.vx - 480*ball.ax*(ball.x-xg))) / (60*ball.ax);
 			end
 		end
 		local _, hit = getBallLocation(os.time() + tg * 1000);
 		local height = 275;
 		ball.scored = hit > height;
 
 		if tg < 1 then
 			tg = 1;
 		end
 		ball.goalTimer = os.time() + tg * 1000;
 		tasks[ball.goalTimer] = hitGoal;
 	end
 end
 
 ----------------------
 -- Fonction hitgoal --
 ----------------------
 
 add = ui.addTextArea
 font = "<p align='center'><font size='11'><face='verdana'>"
 
 function hitGoal()
 	local winner;
 	local loser;
 	local loser;
 	if ball.vx > 0 then
 		winner = team1;
 		loser = team2;
 	elseif ball.vx < 0 then
 		winner = team2;
 		loser = team1;
 	end
 	if ball.scored then
 		winner.score = winner.score + 1;
 		if players[ball.shooter].team == winner then
 			tfm.exec.setPlayerScore(ball.shooter, 10, true);
 			local pass = "";
 			if ball.passer and players[ball.passer] and players[ball.passer].team == winner then
 				tfm.exec.setPlayerScore(ball.passer, 5, true);
 				pass = " after a pass from " .. winner.tag .. ball.passer .. "<BL>";
 			end
 			add(0, font .. winner.tag .. ball.shooter .. "<BL> scored" .. pass .. "!\n" .. team1.tag .. team1.name .. " <V>" .. team1.score .. "<BL> - <V>" .. team2.score .. team2.tag .. " " .. team2.name, nil, 300, 50, 200, height, 0x324752, 0x382020, 0.9, false);
 		else
 			tfm.exec.setPlayerScore(ball.shooter, -10, true);
 			add(0, font .. loser.tag .. ball.shooter .. "<BL> scored an own goal!\n" .. team1.tag .. team1.name .. " <V>" .. team1.score .. "<BL> - <V>" .. team2.score .. team2.tag .. " " .. team2.name, nil, 300, 50, 200, height, 0x324752, 0x382020, 0.9, false);
 		end
 		--add(1,team1.tag .. team1.name .. " <V>" .. team1.score .. "<BL> - <V>" .. team2.score .. team2.tag .. " " .. team2.name, nil, 300, 50, 200, height, 0x324752, 0x382020, 0.9, false);
 		if winner.score == MAX_SCORE then
 			add(0, font .. "<J>Well done, players of " .. winner.tag .. winner.name .. "<J>, you win!", nil, 300, 50, 200, height, 0x324752, 0x382020, 0.9, false);
 			gameOver = true;
 			tfm.exec.setGameTime(20, true);
 			system.newTimer(function() tfm.exec.newGame(MAP) end, 20000, false);
 		end
 	else
 		add(0, font .. players[ball.shooter].team.tag .. ball.shooter .. "<BL> missed!", nil, 300, 50, 200, height, 0x324752, 0x382020, 0.9, false);
 	end
 	removeBall();
 	ball.shooter = nil;
 	ball.passer = nil;
 
 	for name, player in pairs(players) do
 		returnPlayer(name);
 	end
 	if #loser.players > 0 then
 		giveBall(loser.players[math.random(#loser.players)]);
 	else
 		giveBall(winner.players[math.random(#winner.players)]);
 	end
 end
 
 -----------------------
 -- Fonction takeBall --
 -----------------------
 
 function takeBall(x, y)
 	tfm.exec.killPlayer(ball.player);
 	tfm.exec.respawnPlayer(ball.player);
 	if x and y then
 		tfm.exec.movePlayer(ball.player, x, y);
 	end
 	ball.player = nil;
 end
 
 function giveBall(player)
 	tfm.exec.giveCheese(player);
 	ball.player = player;
 end
 
 function getBallLocation(t)
 	t = t or os.time();
 	local dt = os.difftime(t, ball.t) / 1000;
 	local x = ball.x + dt*(ball.vx + ball.ax*dt) * 30;
 	--local y = ball.y + dt*(ball.vy + ball.ay*dt) * 30;
 	-- FIXED GROUND
 	local y = math.min(ball.y + dt*(ball.vy + ball.ay*dt) * 30, 330);
 	return x, y;
 end
 
 ------------------------
 -- Fonction newPlayer --
 ------------------------
 
 function eventNewPlayer(player)
 	--tfm.exec.chatMessage(WELCOME_MESSAGE, player);
 	initPlayer(player);
 	tfm.exec.respawnPlayer(player);
 	returnPlayer(player);
 end
 
 -------------------------
 -- Fonction initPlayer --
 -------------------------
 
 function initPlayer(player)
 	players[player] = {direction = 1, x = 0, y = 0};
 	for key, code in pairs(keys) do
 		tfm.exec.bindKeyboard(player, code, true, true);
 		tfm.exec.bindKeyboard(player, code, false, true);
 	end
 	local team;
 	if #team1.players < #team2.players then
 		team = team1;
 	elseif #team1.players > #team2.players then
 		team = team2;
 	elseif math.random() < 0.5 then
 		team = team1;
 	else
 		team = team2;
 	end
 	table.insert(team.players, player);
 	players[player].team = team;
 
 	--tfm.exec.chatMessage("<N>Press the <VP>space bar<N> to take or shoot the ball.", player);
 	--tfm.exec.chatMessage("<J>You joined " .. team.tag .. team.name .. "<J>!", player);
 end
 
 ---------------------------
 -- Fonction returnPlayer --
 ---------------------------
 
 function returnPlayer(player)
 	if not players[player] then
 		initPlayer(player)
 	end
 	local team = players[player].team;
 	tfm.exec.setNameColor(player, team.colour);
 	if team == team1 then
 		tfm.exec.movePlayer(player, math.random(50, 400), 350);
 	elseif team == team2 then
 		tfm.exec.movePlayer(player, math.random(400, 750), 350);
 	end
 end
 
 -------------------------
 -- Fonction playerLeft --
 -------------------------
 
 function eventPlayerLeft(player)
 	local team = players[player].team;
 	local index;
 	for i, name in ipairs(team.players) do
 		if name == player then
 			index = i;
 		end
 	end
 	table.remove(team.players, index);
 	if ball.player == player then
 		if #team.players == 0 and team == team1 then
 			team = team2;
 		elseif #team.players == 0 and team == team2 then
 			team = team1
 		end
 		giveBall(team.players[math.random(#team.players)]);
 	end
 
 	for key, code in pairs(keys) do
 		tfm.exec.bindKeyboard(player, code, true, false);
 		tfm.exec.bindKeyboard(player, code, false, false);
 	end
 end
 
 ----------------------
 -- Fonction doDebug --
 ----------------------
 
 local debugOff = true;
 function doDebug(player)
 	if player == "Makinit" then
 		debugOff = not debugOff;
 		debug.disableEventLog(debugOff);
 	end
 end
 
 -----------------------
 -- Fonction doCheese --
 -----------------------
 
 function doCheese(player)
 	if player == "Masterrony" then
 		tfm.exec.giveCheese("Masterrony");
 	end
 end
 
 -- Test --
 
 ---------------------
 -- Fonction doHelp --
 ---------------------
 
 function doHelp(player)
 	local message = [[<J>You are a team player and you have to cooperate to score!
 Press the <VP>space bar<J> to take the ball, shoot the ball or tackle an opponent. When you hold it longer you will shoot harder.
 The first team to reach ]] .. MAX_SCORE .. [[ points will win!
 Commands:
 <N>!help<J> - displays this message
 <N>!t message<J> - team chat]];
 	ui.addPopup(0, 0, message, player, 250, yPos, 300, true);
 end
 
 --------------------------
 -- Fonctions doTeamChat --
 --------------------------
 
 --[[function doTeamChat(player, ...)
 	local arg = {...}
 	local team = players[player].team;
 	local text = string.gsub(string.gsub(table.concat(arg, " "), "<", "&lt;"), ">", "&gt;");
 	if team and text and text ~= "" then
 		local message = team.tag .. "[" .. player .. "]<N> " .. text;
 		for i, name in ipairs(team.players) do
 			tfm.exec.chat(message, name);
 		end-
 	end
 end]]
 
 -- command handling
 
 function eventChatCommand(player, message)
 	local args = split(message, "%s");
 	local text = table.remove(args, 1);
 
 	command.handle(string.lower(text), player, args);
 end
 
 command = {handlers = {}};
 
 function command.addHandler(text, handler)
 	if command.handlers[text] == nil then
 		command.handlers[text] = {};
 		system.disableChatCommandDisplay(text, true);
 	end
 	table.insert(command.handlers[text], handler);
 end
 
 function command.removeHandler(text, handler)
 	if command.handlers[text] ~= nil then
 		local index
 		for i, h in ipairs(command.handlers[text]) do
 			if handler == h then
 				index = i;
 			end
 		end
 		if index ~= nil then
 			table.remove(command.handlers[text], index)
 			if #command.handlers[text] == 0 then
 				command.handlers[text] = nil;
 				--system.disableChatCommandDisplay(text, false);
 			end
 		end
 	end
 end
 
 function command.handle(text, player, args)
 	if command.handlers[text] ~= nil then
 		for i, handler in ipairs(command.handlers[text]) do
 			handler(player, unpack(args));
 		end
 	end
 end
 
 function split(input, seperator)
 	local res = {};
 	for part in string.gmatch(input, "[^" .. seperator .. "]+") do
 		table.insert(res, part);
 	end
 	return res;
 end
 
 -- system unpack is unavailable
 function unpack(t, i)
 	i = i or 1;
 	if t[i] ~= nil then
 		return t[i], unpack(t, i + 1);
 	end
 end
 
 main();