Test

--[  Module crée par Athesdrake  ]--
--[ lien: https://goo.gl/QoTSmW  ]--
transparence = 0.75 --[         Loups-Garous         ]--
--[[transparence des zones de textes]] --À Changer par un chiffre entre 0 et 1 (0 = transparent, 1 = opaque)

changeLesNoms = {
	voyante =    {"nhà tiên tri", ""},
	loup_garou = {"Ma$ sói$", ""}, -- mettez "$" aux endroits où il faut un "s" au pluriel. (ne fonctionne que pour ce rôle)
	villageois = {"dân làng", ""},
	sorciere =   {"phù thủy", ""},
	cupidon =    {"thần tình yêu", ""},
	chasseur =   {"thợ săn", ""},
	salvateur =  {"bảo vệ", ""},
	voleur =     {"ăn trộm", ""},
	costaud =    {"bí ẩn", ""}
}

function main()
--vars:
	play = true
	speak = false
	TIME = 0
	mapName = "<VP>Ma sói<BL> | <N>Thời gian còn lại: <V>%ds</V><BL> | <N>Người chơi: <V>%d<N>/<V>%d<N> (<PT>%d<N>, <R>%d<N>)<BL> | <N>Người tạo: <BV>Athesdrake/n"

--ids:
	idHaut = 1
	idRole = 2
	idChoser = 3
	idTimer = 4
	idPlay = 5
	idLovers = 6
	idChat = 7
--tables:
	task = {}
	players = {}
	plNbr = {}
	want2Play = {}
	jeu = {}
	roles = {"Nhà tiên tri", "Ma$ sói$", "dân làng", "Phù thủy", "Thần tình yêu", "Thợ săn", "Bảo vệ", "ăn trộm", "bí ẩn"}
	game = {}
		game[6] = {1,2,2,1}
		game[7] = {1,2,2,1,1}
		game[8] = {1,2,2,1,1,1}
		game[9] = {1,2,2,1,1,1,1}
	T = {
		events = {
			night = "Ðêm rồi ngủ thoy.",
			thief = "%s %s chọn một người và cướp nhân vật của họ",
			cupid = "%s %s chọn hai người  yêu nhau rồi quay về ngủ.",
			lovers = " đã tìm đc người iu,họ phải bảo vệ nhau.",
			seer = "%s %s nhìn nhân vật của một người rồi quay lại ngủ.",
			saving = "%s %s chọn một người và bảo vệ.",
			werewolf = "chọn nạn nhân của tối hôm nay.",
			witch = "%s %s chọn một người đã chết để hồi sinh hoặc giết một người nào đó.",
			vote = "Bầu người để từ hình",
			hunter = "%s %s Chọn người để giết",

		},
		win = "Phe %s đã win ez game :v !"
	}
--sytème:
	for pl in pairs(tfm.get.room.playerList) do
		eventNewPlayer(pl)
	end
	for k, v in pairs({"start", "t"}) do
		system.disableChatCommandDisplay(v, true)
	end
end

function eventNewPlayer(name)
	ui.addPopup(idPlay, 1, "<p align='center'>Muốn chơi ma sói ko ? :v", name, 350, 175, nil, true)
	players[name] = {isPlaying = false, play = false}
	tfm.lg.map()
end

function eventPlayerLeft(name)
	if players[name].isPlaying then
		for k, v in pairs(plNbr) do
			if v==name then
				table.remove(plNbr, k)
				break
			end
		end
		players[name].isPlaying = false
		local txt = tfm.lg.dead(name, "<ROSE>"..name.."</ROSE> đã out room rồi họ chính là "..roles[players[name].jeu.role].." !")
		ui.msg(txt)
		if tfm.lg.win() then
			for k, v in ipairs(task) do
				task[k].finish = true
			end
			tfm.lg.task(3, "win")
		end
	end
	tfm.lg.map()
end

function eventNewGame() tfm.lg.map() end

function eventChatCommand(name, cmd)
	if cmd=="start" and play then
		if (not pcall(setRolesNames)) then
			error("<R>La table \'changeLesNoms\' est obselète!</R>")
		end
		if #want2Play>5 then
			task = {}
			play = false
			jeu = {roles={0,0,0,0,0,0,0,0,0}}
			local r = {}
			if game[#want2Play]~=nil then
				for k, v in pairs(game[#want2Play]) do
					r[k] = v
				end
			else
				r = {1,3,2,1,1,1,1,1,1}
				r[2] = #want2Play/4
				r[3] = #want2Play-(r[2]+7)
			end
			math.randomseed(os.time())
			for i=1, #want2Play do
				local pl = nil
				repeat
					pl = want2Play[math.random(#want2Play)]
				until players[pl].isPlaying==false
				local ran = 0
				local objectif = "Giết hết ma sói !"
				repeat
					ran = math.random(#r)
				until r[ran]~=0
				if ran==2 then
					objectif = "Giết hết dân làng !"
				end
				r[ran] = r[ran] - 1
				table.insert(plNbr, pl)
				jeu.roles[ran] = jeu.roles[ran] + 1
				players[pl].jeu = {}
				players[pl].jeu.role = ran
				players[pl].isPlaying = true
				ui.role(pl, roles[ran], objectif)
			end
			tfm.lg.tour("ini")
		else
			ui.msg("del có đủ người chơi\ số lượng ít nhất là <J>6</J> Người chơi")
		end
	end
	if string.lower(cmd:sub(0,1))=="t" and speak and players[name].jeu.role~=nil and players[name].jeu.role==2 and players[name].mort then
		jeu.chat = "["..name.."] "..((cmd:sub(3)):gsub("&lt;"..".-".."&gt;", "")):gsub("%c", "").."\n"..jeu.chat
		for k, v in pairs(plNbr) do
			if players[v].jeu.role==2 then
				ui.chat(v)
			end
		end
	end
end

function eventTextAreaCallback(id, name, call)
	if call:sub(1,5)=="steal" then
		players[name].choose = true
		players[name].jeu.role = players[call:sub(6)].jeu.role
		players[call:sub(6)].jeu.role = 1
		ui.role(name, roles[players[name].jeu.role], players[name].jeu.role==2 and "Giết hết dân làng !" or "Giết hết ma sói !")
		ui.role(call:sub(6), "Dân làng", "Giết hết ma sói !")
	end
	if call:sub(1,6)=="lovers" then
		name2 = call:sub(7)
		local nbr = (players[name].amour[1]==nil and 1) or (players[name].amour[2]==nil and 2) or nil
		if nbr~=nil and players[name].amour[1]~=name2 then
			players[name].amour[nbr] = name2
			players[name].jeu.texte = string.gsub(players[name].jeu.texte, "%s"..name2, " "..name2.."("..nbr..")")
			ui.choser(players[name].jeu.texte, name)
		end
	end
	if call:sub(1,4)=="seer" then
		ui.choser(call:sub(5).." là một "..roles[players[call:sub(5)].jeu.role], name)
	end
	if call:sub(1,6)=="saving" then
		players[name].lastProtect = call:sub(7)
		players[call:sub(7)].isProtect = true
		ui.choser("Ðã bảo vệ cho "..call:sub(7).." tối nay !", name)
	end
	if call:sub(1,8)=="werewolf" then
		local name2 = call:sub(9)
		if jeu.vote[name2]==nil then
			jeu.vote[name2] = 1
		else
			jeu.vote[name2] = jeu.vote[name2] + 1
		end
		jeu.txt = jeu.txt:gsub(name2.."%(".."%d".."%)", name2.."("..tostring(jeu.vote[name2])..")")
		if players[name].vote~=nil then
			jeu.vote[players[name].vote] = jeu.vote[players[name].vote] - 1
			jeu.txt = jeu.txt:gsub(players[name].vote.."%(".."%d".."%)", players[name].vote.."("..jeu.vote[players[name].vote]..")")
		end
		players[name].vote = name2
		for k, v in pairs(plNbr) do
			if players[v].jeu.role==2 and players[v].mort then
				ui.choser(jeu.txt, v)
			end
		end
	end
	if call:sub(1,4)=="vote" then
		local name2 = call:sub(5)
		if jeu.vote[name2]==nil then
			jeu.vote[name2] = 1
		else
			jeu.vote[name2] = jeu.vote[name2] + 1
		end
		--jeu.txt = jeu.txt:gsub(name.."%(%d%)%?%S+", name.."("..(jeu.vote[name] and jeu.vote[name] or "0")..")?"..name2 )
		players[name].vote = name2
		for k,v in pairs(plNbr) do
			if players[v].mort then
				jeu.txtVote[v] = string.format("<a href='event:vote%s'>%s</a>(%d)?%s\n", v, v, jeu.vote[v] and jeu.vote[v] or 0, players[v].vote and players[v].vote or "personne")
			end
		end
		local txt = ""
		for k,v in pairs(jeu.txtVote) do txt = txt..v end
		for k, v in pairs(plNbr) do
			if players[v].mort then
				ui.choser(txt, v, false, true)
			else
				ui.choser(txt, v, true, true)
			end
		end
	end
	if call:sub(1,4)=="kill" then
		players[name].kill = call:sub(5)
		table.insert(jeu.mort, call:sub(5))
		ui.choser(call:sub(5).." đã bị nguyền rủa !", name)
	end
	if call:sub(1,4)=="hunt" then
		jeu.mort[1] = call:sub(5)
		ui.choser("Tu tires sur "..call:sub(5).." đã bị bắn ", name)
	end
end

function eventPopupAnswer(id, name, ans)
	if id==idPlay and ans=="yes" then
		if (not play) then
			ui.addPopup(idPlay, 0, "Tu dois attendre la prochaine partie pour jouer", name, 350, 175, nil, true)
		end
		players[name].play = true
		players[name].mort = true
		table.insert(want2Play, name)
		tfm.lg.map()
	end
	if id==idChoser then
		if ans=="yes" then
			ressu = true
			players[name].rez = ""
		else
			ui.addPopup(idTimer, 1, "Muốn nguyền rủa ai vào tối nay ko ?", name, 350, 175, nil, true)
		end
	end
	if id==idTimer then
		local txt = ""
		for k, v in pairs(plNbr) do
			if players[v].mort then
				txt = txt.."<a href='event:kill"..v.."'>"..v.."</a>\n"
			end
		end
		players[name].txt = txt
		ui.addTextArea(idChoser, txt, name, 620, 110, 180, nil, 0x8C3232, 0x131A2A, transparence, true)
	end
end

function eventLoop(t1, t2)
	for k, v in ipairs(task) do
		local tbl = task[k]
		TIME = math.ceil(os.difftime(tbl.time,os.time())/1000)
		tfm.lg.map()
		if tbl.timer then
			ui.addTextArea(idTimer, TIME, all, 740, 45, nil, nil, 0, 0, 0, true)
		end

function setRolesNames()
	if changeLesNoms~=nil and type(changeLesNoms)=="table" then
		local tbl = changeLesNoms
		T.events.seer = string.format(T.events.seer, tbl.voyante~=nil and (tbl.voyante~=nil and (tbl.voyante[2]~=nil and tbl.voyante[2] or "La")) or "La", tbl.voyante[1]~=nil and tbl.voyante[1] or "Voyante" or "Voyante")
		T.events.werewolf = string.format(T.events.werewolf, tbl.loup_garou~=nil and (tbl.loup_garou[1]~=nil and tbl.loup_garou[1]:gsub("%$", "s") or "Loups Garous") or "Loups Garous")
		T.events.witch = string.format(T.events.witch, tbl.sorciere~=nil and (tbl.sorciere~=nil and (tbl.sorciere[2]~=nil and tbl.sorciere[2] or "La")) or "La", tbl.sorciere[1]~=nil and tbl.sorciere[1] or "Sorcière" or "Sorcière")
		T.events.cupid = string.format(T.events.cupid, tbl.cupidon~=nil and (tbl.cupidon~=nil and (tbl.cupidon[2]~=nil and tbl.cupidon[2] or "Le")) or "Le", tbl.cupidon[1]~=nil and tbl.cupidon[1] or "Cupidon" or "Cupidon")
		T.events.hunter = string.format(T.events.hunter, tbl.chasseur~=nil and (tbl.chasseur~=nil and (tbl.chasseur[2]~=nil and tbl.chasseur[2] or "Le")) or "Le", tbl.chasseur[1]~=nil and tbl.chasseur[1] or "Chasseur" or "Chasseur")
		T.events.saving = string.format(T.events.saving, tbl.salvateur~=nil and (tbl.salvateur~=nil and (tbl.salvateur[2]~=nil and tbl.salvateur[2] or "Le")) or "Le", tbl.salvateur[1]~=nil and tbl.salvateur[1] or "Salvateur" or "Salvateur")
		T.events.thief = string.format(T.events.thief, tbl.voleur~=nil and (tbl.voleur~=nil and (tbl.voleur[2]~=nil and tbl.voleur[2] or "Le")) or "Le", tbl.voleur[1]~=nil and tbl.voleur[1] or "Voleur" or "Voleur")

		roles[1] = tbl.voyante~=nil and (tbl.voyante[1]~=nil and tbl.voyante[1] or roles[1]) or roles[1]
		roles[2] = tbl.loup_garou~=nil and (tbl.loup_garou[1]~=nil and tbl.loup_garou[1]:gsub("%$", "") or roles[2]) or roles[2]
		roles[3] = tbl.villageois~=nil and (tbl.villageois[1]~=nil and tbl.villageois[1] or roles[3]) or roles[3]
		roles[4] = tbl.sorciere~=nil and (tbl.sorciere[1]~=nil and tbl.sorciere[1] or roles[4]) or roles[4]
		roles[5] = tbl.cupidon~=nil and (tbl.cupidon[1]~=nil and tbl.cupidon[1] or roles[5]) or roles[5]
		roles[6] = tbl.chasseur~=nil and (tbl.chasseur[1]~=nil and tbl.chasseur[1] or roles[6]) or roles[6]
		roles[7] = tbl.salvateur~=nil and (tbl.salvateur[1]~=nil and tbl.salvateur[1] or roles[7]) or roles[7]
		roles[8] = tbl.voleur~=nil and (tbl.voleur[1]~=nil and tbl.voleur[1] or roles[8]) or roles[8]
		roles[9] = tbl.costaud~=nil and (tbl.costaud[1]~=nil and tbl.costaud[1] or roles[9]) or roles[9]
	end
end

function findKey(value, tbl)
	for k,v in next, tbl do
		if value==v then
			return k
		end
	end
	return false
end

function nbrSouris()
	local nbr = 0
	for k,v in pairs(tfm.get.room.playerList) do
		nbr = nbr +1
	end
	return nbr
end

ui.msg = function(txt)
	ui.addTextArea(idHaut, "<p align='center'>"..txt.."</p>", name, 15, 28, 770, 50, 0x8C3232, 0x131A2A, transparence, true)
end

ui.role = function(name, role, obj)
	ui.addTextArea(idRole, "<font size='16' color='#131a2a'>Nhân vật: </font><font size='16'>"..role.."</font>\n<p align='center'><font size='8'><b>"..(obj==name and ("đã từng là:"..roles[players[name].jeu.role]) or "Nhiệm vụ: "..obj), name, 15, 350, 220, 50, 0x8C3232, 0x131A2A, transparence, true)
end

ui.choser = function(txt, name, bool, display)
	ui.addTextArea(idChoser, (bool and txt:gsub("href", "color") or txt), name, (display and 560 or 670), 86, (display and 225 or 115), nil, 0x8C3232, 0x131A2A, transparence, true)
end

ui.chat = function(name)
	ui.addTextArea(idChat, "<J>!t message</J><BL> Ðể chat với những ma sói khác</BL>\n"..jeu.chat, name, 15, 86, 200, 228, 0x8c3232, 0x131a2a, tonumber(transparence)/1.5, true)
end

tfm.lg = {
	dead = function(name, mort)
		local role, txt, hunter, cos = players[name].jeu.role, mort, players[name].jeu.role==6, players[name].jeu.role==9
		if cos and players[name].life==nil then
			players[name].life = 1
			return	txt, false;
		end
		players[name].mort = false
		jeu.roles[role] = jeu.roles[role] - 1
		ui.role(name, "mort", name)
		if jeu.amour~=nil and jeu.amour[1]~=nil then
			local tbl = jeu.amour
			if (name==tbl[1] and players[tbl[2]].mort) or (name==tbl[2] and players[tbl[1]].mort) then
				local name2 = name==tbl[1] and tbl[2] or tbl[1]
				tfm.lg.dead(name2)
				txt = txt.."\n"..name2.." đã  tự tử vì mất người iu. "..name2.." là "..roles[players[name2].jeu.role].." !"
			end
		end
		return txt, hunter
	end,

	plDead = function()
		local nbr = 0
		for k,v in pairs(plNbr) do
			if (not players[v].mort) then
				nbr = nbr +1
			end
		end
		return nbr
	end,

	tour = function(tour, lastTour, name)
		if lastTour~=nil then
			if lastTour=="thief" then
				if players[name] and players[name].choose==nil then
					jeu.roles[8] = 0
					jeu.roles[3] = jeu.roles[3] + 1
				end
			end
			if lastTour=="cupid" then
				if players[name].amour[2]==nil then
					tour = "daily"
				else
					jeu.amour = {}
					jeu.amour[1] = players[name].amour[1]
					jeu.amour[2] = players[name].amour[2]
					jeu.roles[5] = 0
					jeu.roles[3] = jeu.roles[3] + 1
					ui.role(name, "Dân làng", "Giết hết ma sói !")
				end
			end
			if lastTour=="witch" then
				ui.addPopup(idTimer,2,"",name,1e7,1e7)
				ui.addPopup(idChoser,2,"",name,1e7,1e7)
			end
			if lastTour=="werewolf" then
				speak = true
				local last = 0
				local mort = ""
				for k, v in pairs(jeu.vote) do
					if v~=nil and v~="" and v>last then
						last = v
						mort = k
					end
				end
				if mort=="" then
					jeu.mort = {}
				else
					jeu.mort = {mort}
				end
				jeu.vote = {}
			end
			if lastTour=="vote" then
				local last = 0
				local mort = ""
				local tbl = {}
				local nbr = 0
				for k, v in pairs(plNbr) do
					if players[v].mort then
						nbr = nbr + 1
					end
				end
				for k,v in pairs(jeu.vote) do
					if v~=nil and v~="" and v>last then
						last = v
						mort = k
						tbl = {k}
					elseif v==last then
						table.insert(tbl, k)
					end
				end
				if mort=="" then
					jeu.mort = {}
				elseif #tbl>1 and (#plNbr%2)~=0 then
					if nbr==2 then
						jeu.mort = {mort}
					else
						tour = "vote"
					end
				else
					jeu.mort = {mort}
				end
				jeu.vote = {}
			end
		end
		if tour~=nil then
			if tour=="ini" then
				jeu.mort = {""}
				jeu.amour = {""}
				jeu.vote = {""}
				jeu.chat = ""
				for k, v in pairs(plNbr) do
					players[v].mort = true
				end
				tfm.lg.task(2, "night")
			end
			if tour=="night" then
				for _, pl in pairs(plNbr) do
					players[pl].isProtect = false
				end
				ui.msg(T.events[tour])
				tfm.lg.task(2, "thief", tour)
			end
			if tour=="thief" then
				if jeu.roles[8]==1 then
					local txt = "đã ăn trộm:"
					local pl = ""
					for k, v in pairs(plNbr) do
						if players[v].jeu.role==8 and players[v].mort then
							pl = v
						elseif players[v].mort then
							txt = txt.."\n<a href='event:steal"..v.."'>"..v.."</a>"
						end
					end
					ui.choser(txt, pl)
					ui.msg(T.events[tour])
					tfm.lg.task(10, "cupid", tour, true, true, idChoser, pl)
				else
					tour = "cupid"
				end
			end
			if tour=="cupid" then
				if jeu.roles[5]==1 then
					local txt = "Chọn hai người để yêu nhau:"
					local pl = ""
					for k, v in pairs(plNbr) do
						if players[v].mort then
							txt = txt.."\n<a href='event:lovers"..v.."'> "..v.."</a>"
							if players[v].jeu.role==5 then
								pl = v
								players[v].amour = {}
							end
						end
					end
					players[pl].jeu.texte = txt
					ui.choser(txt, pl)
					ui.msg(T.events[tour])
					tfm.lg.task(20, "lovers", tour, true, true, idChoser, pl)
				else
					tour = "daily"
				end
			end
			if tour=="lovers" then
				for i=1, 2 do
					ui.addTextArea(idLovers, "<font size='12' color='#131a2a'>Người yêu: "..jeu.amour[i], jeu.amour[i==1 and 2 or 1], 6, 322, nil, 20, 0x8C3232, 0x131A2A, transparence, true)
				end
				ui.msg(T.events[tour])
				tfm.lg.task(10, "daily", tour, true)
			end
			if tour=="daily" then
				if jeu.roles[1]==1 or jeu.roles[7]==1 then
					local txt2 = "Nhân vật:"
					local txt = "Nhân vật:"
					local pl, pl2, msg
					for k, v in pairs(plNbr) do
						if players[v].mort then
							if players[v].jeu.role==1 then
								pl = v
							else
								txt = txt.."\n<a href='event:seer"..v.."'>"..v.."</a>"
							end
							txt2 = txt2.."\n<a href='event:saving"..v.."'>"..v.."</a>"
							if players[v].jeu.role==7 then
								pl2 = v
							end
						end
					end
					if pl and pl2 then
						msg = T.events.seer.."\n"..T.events.saving
						ui.choser(txt, pl)
						ui.choser(txt2, pl2)
					elseif pl then
						msg = T.events.seer
						ui.choser(txt, pl)
					else
						msg = T.events.saving
						ui.choser(txt2, pl2)
					end
					ui.msg(msg)
					tfm.lg.task(20, "werewolf", tour, true, true, idChoser)
				else
					tour = "werewolf"
				end
			end
			if tour=="werewolf" then
				jeu.mort = {}
				speak = true
				for k, v in pairs(plNbr) do
					players[v].vote = nil
				end
				local werewolf, txt = {}, "Tối nay sẽ ăn thịt:"
				for k, v in pairs(plNbr) do
					if players[v].jeu.role==2 and players[v].mort then
						table.insert(werewolf, v)
					elseif players[v].mort then
						txt = txt.."\n<a href='event:werewolf"..v.."'>"..v.."(0)</a>"
					end
				end
				jeu.txt = txt
				for k, v in pairs(plNbr) do
					if players[v].jeu.role==2 and players[v].mort then
						ui.choser(txt, v)
						ui.chat(v)
					end
				end
				ui.msg(T.events[tour])
				tfm.lg.task(45, "witch", tour, true, true, idChoser)
			end
			if tour=="witch" then
				if jeu.roles[4]==1 then
					for k, v in pairs(plNbr) do
						if players[v].jeu.role==4 then
							if jeu.mort[1]~=nil and players[v].rez==nil then
								ui.addPopup(idChoser, 1, "Có muốn hồi sinh <VI>"..jeu.mort[1].."</VI>?", v, 350, 175, nil, true)
							elseif players[v].kill==nil then
								ui.addPopup(idTimer, 1, "Có muốn nguyền rủa ai ko ?", v, 350, 175, nil, true)
							else
								tour = "dead"
								break;
							end
							ui.msg(T.events[tour])
							tfm.lg.task(15, "dead", tour, true, true, idChoser, v)
						end
					end
				else
					tour = "dead"
				end
			end
			if tour=="vote" then
				jeu.txtVote, jeu.mort = {}, {}
				for k, v in pairs(plNbr) do
					players[v].vote = nil
				end
				local txt = ""
				for k, v in pairs(plNbr) do

					for k, v in pairs(jeu.mort) do
						if (not players[v].isProtect) then
							txt, hunter = tfm.lg.dead(v, txt.."nạn nhân là <ROSE>"..v.."</ROSE> chính là "..roles[players[v].jeu.role].." !!\n")
						end
					end
					jeu.mort = {}
					ui.msg(txt)
					if hunter then
						tfm.lg.task(15, tfm.lg.win() and "win" or "hunter", "mort")
					else
						tfm.lg.task(15, tfm.lg.win() and "win" or "vote", tour)
					end
				end
			end
			if tour=="bucher" then
				local txt, hunter = "người bị tử hình "
				if jeu.mort[1]==nil then
					txt = "Personne ne vas au bûcher !"
				else
					for k, v in pairs(jeu.mort) do
						txt, hunter = tfm.lg.dead(v, tostring(txt).."<ROSE>"..v.."</ROSE> chính là m?t "..tostring(roles[players[v].jeu.role]).." !!\n")
					end
					jeu.mort = {}
					ui.msg(txt)
					if hunter then
						tfm.lg.task(15, tfm.lg.win() and "win" or "hunter", "feu")
					else
						tfm.lg.task(15, tfm.lg.win() and "win" or "night", tour)
					end
				end
			end
			if tour=="win" then
				local txt = "ERROR"
				if tfm.lg.win()=="no" then
					txt = "Không một ai sống !"
				else
					local tbl = {}
					txt = T.win:format(tfm.lg.win()).."\n chúc mừng <ROSE>"
					for k, v in pairs(plNbr) do
						if players[v].mort then
							table.insert(tbl, v)
						end
					end
					for k, v in pairs(tbl) do
						if k==#tbl then
							txt = txt..v.."</ROSE>!"
						elseif k==#tbl-1 then
							txt = txt..v.."</ROSE> và <ROSE>"
						else
							txt = txt..v.."</ROSE>, <ROSE>"
						end
					end
				end
				ui.msg(txt)
			end
			if tour=="hunter" then
				local txt, pl = "Chọn người muốn giết vào tối nay:"
				for k, v in pairs(plNbr) do
					if players[v].jeu.role==6 then
						pl = v
					elseif players[v].mort then
						txt = txt.."\n<a href='event:hunt"..v.."'>"..v.."</a>"
					end
				end
				ui.choser(txt, pl)
				ui.msg("Người thợ săn đã lấy hơi cuối cùng và bắn người mà anh ta thấy !")
				tfm.lg.task(15, "deadHunt", lastTour, true, true, idChoser, pl)
			end
			if tour=="deadHunt" then
				if jeu.mort[1]==nil then
					ui.msg(name.." dã không b?n  ai")
				else
					ui.msg(tfm.lg.dead(jeu.mort[1], name.." ð? b?n vào "..jeu.mort[1].." và ch?t "..roles[players[jeu.mort[1]].jeu.role]))
				end
				tfm.lg.task(15, tfm.lg.win() and "win" or (lastTour=="feu" and "night" or "vote"))
			end
		end
	end,

	task = function(time, tour, lastTour, timer, txtArea, id, name)
		table.insert(task, {time = os.time()+time*1000, tour = tour, timer = timer==nil and false or timer, txtArea = txtArea==nil and false or txtArea, id = id, name = name, last = lastTour})
	end,

	map = function()
		local nbr = #plNbr
		if play then nbr=#want2Play end
		ui.setMapName(string.format(mapName, TIME, nbr, nbrSouris(), nbr-tfm.lg.plDead(), tfm.lg.plDead()))
	end,

	win = function()
		tfm.lg.map()
		if jeu.roles[2]==#plNbr-tfm.lg.plDead() then
			return "Ma sói";
		elseif jeu.roles[2]==0 then
			return "Dân làng";
		elseif #plNbr-tfm.lg.plDead()==2 then
			for k, v in pairs(plNbr) do
				if jeu.amour[1]==v and players[v].mort then
					return "Amoureux";
				end
			end
		elseif #plNbr-tfm.lg.plDead()==0 then
			return "no";
		else
			return false;
		end
	end
}

badPrint = print
print=function( ... )
	local tbl, self, i = {}, {}, 1
	self.wType=function(var)
		return (type(var)=="number" and "J" or (type(var)=="string" and "VP" or (type(var)=="boolean" and "BV" or (type(var)=="table" and "VI" or "R"))))
	end
	self.pTable=function(tbl1)
		local txt = ""
		for k,v in next, tbl1 do
			txt = txt.pe(v)=="table" and tostring(k) or tostring(v)).."</%s>"):format(self.wType(v), self.wType(v))
			if type(v)=="table" then
				txt = txt..self.pTable(v)
			end
			txt = tx</R>"
		end
		txt = txt:sub(0, #txt-9)
		return "={"..txt.."}"
	end

	for k,v in next,
		tbl[i] = ("<%s>".."</%s>"):format(self.wType(v), self.wType(v))
		if type(v)=="table" then
			tbl[i] = tbl[i]..self.pTable(v)
		end
		i = i+1
	end
	badPrint(table.concat(tbl, "<R>, </R>"))
end

main()