--[ Loups-Garous ]--
--[ Module crée par Jtmlucile ]--
--[ lien: https://goo.gl/QoTSmW ]--

transparence = 0.5 --[[transparence des zones de textes]] À Changer par un chiffre entre 0 et 1 (0 = transparent, 1 = opaque)

function main()
--vars:
play = true
speak = false
witch = false
--ids:
idHaut = 1
idRole = 2
idChoser = 3
idTimer = 4
idPlay = 5
idLovers = 6
idChat = 7
--tables:
task = {}
players = {}
plNbr = {}
jeu = {}
roles = {"Voyante", "Loup Garou", "Simple Villageois", "Sorcière", "Cupidon", "Chasseur", "Salvateur", "Voleur", "Costaud"}
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}
game[10] = {1,2,2,1,1,1,1}
game[11] = {1,2,2,1,1,1,1,1}
game[12] = {1,3,2,1,1,1,1,1,1}
T = {
events = {
night = "La nuit tombe, tout le village s'endort.",
thief = "Le voleur se réveille, vole quelqu'un et se rendort.\nVérifiez votre carte après son tour !!!",
cupid = "Cupidon se réveille, choisis deux amoureux et se rendort.",
lovers = "Les amoureux se réveillent, se reconnaisent, se font des bisous et se rendorment.",
seer = "La voyante se réveille, regarde la face cachée de quelqu'un et se rendort.",
saving = "Le salvateur se réveille, protège quelqu'un et se rendort.",
werewolf = "Les loups-garous se réveillent, choisissent leur victime et se rendorment, le ventre plein.",
witch = "La sorcière se réveille, choisis de réssuciter le mort, ou de tuer quelqu'un et se rendort.",
vote = "Choissisez la personne à mettre au bûcher !",
hunter = "Le chasseur choisis sa cible !",
},
win = "Les %s ont gagnés !"
}
--sytème:
for pl in pairs(tfm.get.room.playerList) do
eventNewPlayer(pl)
end
ui.setMapName("<VP>Loups-Garous par</VP> <BV>Jtmlucile</BV>")
for k, v in pairs({"start", "t"}) do
system.disableChatCommandDisplay(v, true)
end
end

function eventNewPlayer(name)
--ui.addPopup(idPlay, 1, "<p align='center'>Veux-tu jouer au Loup-Garou ?", name, 350, 175, nil, true)
players[name] = {isPlaying = false, play = true}
ui.setMapName("<VP>Loups-Garous par</VP> <BV>Jtmlucile</BV>")
end

function eventPlayerLeft(name)
if players[name].isPlaying then
for k, v in pairs(plNbr) do
if v==name then
table.remove(plNbr, k)
end
end
table.sort(plNbr)
players[name].isPlaying = false
local txt = tfm.lg.dead(name, "<ROSE>"..name.."</ROSE> a quitté le salon. C'était un "..roles[players[name].jeu.role].." !")
ui.msg(txt)
if tmf.lg.win() then
for k, v in ipairs(task) do
task[k].finish = true
end
tfm.lg.task(3, "win")
end
end
end

function eventChatCommand(name, cmd)
if cmd=="start" and play then
for pl in pairs(tfm.get.room.playerList) do
if players[pl].play then
table.insert(plNbr, pl)
end
end
if #plNbr>5 then
task = {}
play = false
jeu = {roles={0,0,0,0,0,0,0,0,0}}
local r = {}
if game[#plNbr]~=nil then
for k, v in pairs(game[#plNbr]) do
r[k] = v
end
else
r = {1,3,2,1,1,1,1,1,1}
r[2] = #plNbr/4
r[3] = #plNbr-(r[2]+7)
end
math.randomseed(os.time())
for i=1, #plNbr do
local pl = nil
repeat
pl = plNbr[math.random(#plNbr)]
until players[pl].isPlaying==false
local ran = 0
local objectif = "Tues tous les Loups-Garous !"
repeat
ran = math.random(#r)
until r[ran]~=0
if ran==2 then
objectif = "Tues tous les Villageois !"
end
r[ran] = r[ran] - 1
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("Il n'y a pas assez de joueurs!\nIl faut minimum <VI>6</VI> joueurs!")
end
end
if 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 = 0
ui.role(name, roles[players[name].jeu.role], players[name].jeu.role==2 and "Tues tous les Villageois !" or "Tues tous les Loups-Garous !")
ui.role(call:sub(6), "Simple Villageois", "Tues tous les Loups-Garous !")
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).." est un(e) "..roles[players[call:sub(5)].jeu.role], name)
end
if call:sub(1,6)=="saving" then
players[name].lastProtect = call:sub(6)
players[call:sub(6)].isProtect = true
ui.choser("Tu protèges "..call:sub(6).." pour la nuit !", 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(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].mort then
ui.choser(jeu.txt, v)
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).." bois ta potion et meurt dans d'atroces souffrances !", name)
end
if call:sub(1,4)=="hunt" then
jeu.mort[1] = call:sub(5)
ui.choser("Tu tires sur "..call:sub(5).." en pleine tête", name)
end
end

function eventPopupAnswer(id, name, ans)
if id==idPlay and ans=="yes" then
ui.addPopup(idPlay, 0, "Tu dois attendre la prochaine partie pour jouer", name, 350, 175, nil, true)
players[name].play = true
end
if id==idChoser and witch then
if ans=="yes" then
jeu.mort = {}
players[name].rez = ""
else
ui.addPopup(idTimer, 1, "Veux-tu tuer quelqu'un ?", name, 350, 175, nil, true)
end
end
if id==idTimer and witch 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]
if tbl.timer then
ui.addTextArea(idTimer, math.ceil(os.difftime(tbl.time,os.time())/1000), all, 740, 45, nil, nil, 0, 0, 0, true)
end
if tbl.time<=os.time() or tbl.finish then
ui.removeTextArea(idTimer)
if tbl.txtArea then
ui.removeTextArea(tbl.id, tbl.name)
end
if (not tbl.finish) then
tfm.lg.tour(tbl.tour, tbl.last, tbl.name)
end
table.remove(task, k)
end
end
end

print1 = print
print=function(...)
local tbl = {}
for k, v in ipairs({...}) do
tbl[k] = tostring(v):gsub("%s", "<R>_</R>")
if v=="" then
tbl[k] = "<J>_"
end
end
print1("<VI>"..table.concat(tbl, "</VI><R>,</R><VI> "))
end

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

ui.role = function(name, role, obj)
ui.addTextArea(idRole, "<font size='16' color='#131a2a'>Tu es: </font><font size='16'>"..role.."</font>\n<p align='center'><font size='8'><b>"..(obj==name and ("Tu étais: "..roles[players[name].jeu.role]) or "Objectif: "..obj), name, 6, 350, 220, 50, 0x8C3232, 0x131A2A, transparence, true)
end

ui.choser = function(txt, name)
ui.addTextArea(idChoser, txt, name, 670, 86, 115, nil, 0x8C3232, 0x131A2A, transparence, true)
end

ui.chat = function(name)
ui.addTextArea(idChat, "<J>!t msg</J><BL> pour parler avec les loups-garous</BL>\n"..jeu.chat, name, 6, 86, 200, 228, 0x8c3232, 0x131a2a, transparence, true)
end

tfm.lg = {}
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.." meurt de chagrin après avoir perdu son aimé(e). "..name2.." était "..roles[players[name2].jeu.role].." !"
end
end
return txt, hunter
end

tfm.lg.tour = function(tour, lastTour, name)
if lastTour~=nil then
if lastTour=="thief" then
if players[name].choose==nil then
jeu.roles[8] = 1
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, "Simple Villageois", "Tues tous les Loups-Garous !")
end
end
if lastTour=="witch" then
witch = false
end
if lastTour=="werewolf" then
speak = false
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 = {}
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 #tbl>1 then
tour = "vote"
else
if mort=="" then
jeu.mort = {}
else
jeu.mort = {mort}
end
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 = "Prends la carte de:"
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 = "Choisis les deux amoureux:"
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'>Ton ame-soeur: "..jeu.amour, jeu.amour[i==1 and 2 or 1], 6, 322, 200, 20, 0x8C3232, 0x131A2A, transparence, true)
end
ui.msg(T.events[tour])
tfm.lg.task(5, "daily", tour, true)
end
if tour=="daily" then
if jeu.roles[1]==1 or jeu.roles[7]==1 then
local txt2 = "Personne à protéger:"
local txt = "Personne à dévoiler:"
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>"
if players[v].jeu.role==7 then
pl2 = v
end
if pl2~=nil and players[pl2].lastProtect~=nil and players[pl2].lastProtect~=v then
txt2 = txt2.."\n<a href='event:saving"..v.."'>"..v.."</a>"
end
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 = {}, "Personne à manger:"
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
witch = true
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, "Veux-tu réssuciter "..jeu.mort[1].."?", v, 350, 175, nil, true)
elseif players[v].kill==nil then
ui.addPopup(idTimer, 1, "Veux-tu tuer quelqu'un ?", 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.vote, jeu.mort = {}, {}
for k, v in pairs(plNbr) do
players[v].vote = nil
end
local txt = ""
for k, v in pairs(plNbr) do
if players[v].mort then
txt = txt.."<a href='event:vote"..v.."'>"..v.."(0)</a>\n"
end
end
jeu.txt = txt
for k, v in pairs(plNbr) do
if players[v].mort then
ui.choser(txt, v)
end
end
ui.msg(T.events[tour])
tfm.lg.task(120, "bucher", tour, true, true, idChoser)
end
if tour=="dead" then
local txt, hunter = "Le village se réveille, "
if jeu.mort[1]==nil then
txt = txt.."sans victimes !"
else
for k, v in pairs(jeu.mort) do
if (not players[v].isProtect) then
txt, hunter = tfm.lg.dead(v, txt.."sans <ROSE>"..v.."</ROSE> qui était "..roles[players[v].jeu.role].." !!\n")
end
end
jeu.mort = {}
ui.msg(txt)
if hunter then
tfm.lg.task(7, tfm.lg.win() and "win" or "hunter", "mort")
else
tfm.lg.task(7, tfm.lg.win() and "win" or "vote", tour)
end
end
end
if tour=="bucher" then
local txt, hunter = "Le village fait brûler "
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, txt.."<ROSE>"..v.."</ROSE> qui était "..roles[players[v].jeu.role].." !!\n")
end
jeu.mort = {}
ui.msg(txt)
if hunter then
tfm.lg.task(7, tfm.lg.win() and "win" or "hunter", "feu")
else
tfm.lg.task(7, 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 = "Personne n'a survécu !"
else
local tbl = {}
txt = T.win:format(tfm.lg.win()).."\n Bravo à <ROSE>"
for k, v in pairs(plNbr) do
if players[v].mort then
table.insert(tbl, v)
end
end
for i=1, #table do
print(table)
if i==#table then
txt = txt..table.."</ROSE>!"
elseif i==#table-1 then
txt = txt..table.."</ROSE>et <ROSE>"
else
txt = txt..table.."</ROSE>, <ROSE>"
end
end
end
ui.msg(txt)
end
if tour=="hunter" then
local txt, pl = "Choisis la personne que tu veux tuer:"
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("Le chasseur, dans ses derniers soupir, tire sur la personne de son choix !")
tfm.lg.task(15, "deadHunt", lastTour, true, true, idChoser, pl)
end
if tour=="deadHunt" then
if jeu.mort[1]==nil then
ui.msg(name.." n'a tiré sur personne")
else
ui.msg(tfm.lg.dead(jeu.mort[1], name.." a tiré sur "..jeu.mort[1].." qui était "..roles[players[jeu.mort[1]].jeu.role]))
end
tfm.lg.task(7, tfm.lg.win() and "win" or (lastTour=="feu" and "night" or "vote"))
end
end
end

tfm.lg.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

tfm.lg.win = function()
local nbr = 0
for k, v in pairs(plNbr) do
if players[v].mort then
nbr = nbr + 1
end
end
if jeu.roles[2]==nbr then
return "Loups-Garous";
elseif jeu.roles[2]==0 then
return "Villageois";
elseif nbr==2 then
for k, v in pairs(plNbr) do
if jeu.amour[1]==v and players[v].mort then
return "Amoureux";
end
end
elseif nbr==0 then
return "no";
else
return false;
end
end

main()