diff --git a/game/engines/default/engine/Module.lua b/game/engines/default/engine/Module.lua
index b3bc1afbf6fda60708c510815b5399875407c009..2831a1de9973aa67c6e457714a4a4cfd2d0f12cb 100644
--- a/game/engines/default/engine/Module.lua
+++ b/game/engines/default/engine/Module.lua
@@ -741,10 +741,21 @@ function _M:instanciate(mod, name, new_game, no_reboot)
-- Add user chat if needed
if mod.allow_userchat and _G.game.key then
profile.chat:setupOnGame()
- profile.chat:join("global")
- profile.chat:join(mod.short_name)
- profile.chat:join(mod.short_name.."-spoiler")
- profile.chat:selectChannel(mod.short_name)
+ if not config.settings.chat or not config.settings.chat.channels or not config.settings.chat.channels[mod.short_name] then
+ profile.chat:join("global")
+ profile.chat:join(mod.short_name)
+ profile.chat:join(mod.short_name.."-spoiler")
+ profile.chat:selectChannel(mod.short_name)
+ print("Joining default channels")
+ else
+ local def = false
+ for c, _ in pairs(config.settings.chat.channels[mod.short_name]) do
+ profile.chat:join(c)
+ if c == mod.short_name then def = true end
+ end
+ if def then profile.chat:selectChannel(mod.short_name) else profile.chat:selectChannel( (next(config.settings.chat.channels[mod.short_name])) ) end
+ print("Joining selected channels")
+ end
end
-- Disable the profile if ungood
diff --git a/game/engines/default/engine/UserChat.lua b/game/engines/default/engine/UserChat.lua
index 4ab955993804a8d77684ebabe310a1672a31b245..fd45a0ed29ff01386a6dd2fe36695cb6e685e75f 100644
--- a/game/engines/default/engine/UserChat.lua
+++ b/game/engines/default/engine/UserChat.lua
@@ -218,6 +218,15 @@ function _M:event(e)
if self.uc_ext then
self.uc_ext:event(e)
end
+ elseif e.se == "SelfJoin" then
+ self:addMessage("join", e.channel, profile.auth.login, e.channel, "#{italic}#Joined channel#{normal}#", nil, true)
+ self:updateChanList()
+ self:saveChannels()
+ elseif e.se == "SelfPart" then
+ self:addMessage("join", e.channel, profile.auth.login, e.channel, "#{italic}#Left channel#{normal}#", nil, true)
+ self.channels[e.channel] = nil
+ self:updateChanList()
+ self:saveChannels()
elseif e.se == "Join" then
local color = colors.WHITE
if e.status == 'dev' then color = colors.CRIMSON
@@ -285,6 +294,23 @@ function _M:join(channel)
self:updateChanList(true)
end
+function _M:part(channel)
+ if not profile.auth then return end
+ core.profile.pushOrder(string.format("o='ChatPart' channel=%q", channel))
+ self:setCurrentTarget(true, game.__mod_info.short_name)
+end
+
+function _M:saveChannels()
+ local l = {
+ "chat.channels = chat.channels or {}",
+ "chat.channels["..string.format("%q", game.__mod_info.short_name).."]={}"
+ }
+ for k, v in pairs(profile.chat.channels) do
+ if v then l[#l+1] = "chat.channels["..string.format("%q", game.__mod_info.short_name).."]["..string.format("%q", k).."]=true" end
+ end
+ game:saveSettings("chat.channels."..game.__mod_info.short_name, table.concat(l, "\n"))
+end
+
function _M:selectChannel(channel, no_recurs)
if not self.channels[channel] then return end
self.channels[channel].changed = false
@@ -429,6 +455,8 @@ function _M:getLog(channel, extra)
local tstr
if i.kind == "whisper" then
tstr = tstring{{"color", 0xcb,0x87,0xd2}, "<", i.name, "> "}
+ elseif i.kind == "join" then
+ tstr = tstring{{"color", "FIREBRICK"}, "[", i.name, "]" }
else
tstr = tstring{"<", {"color",unpack(colors.simple(i.color_name or colors.WHITE))}, i.name, {"color", "LAST"}, "> "}
end
@@ -592,6 +620,8 @@ function _M:display()
local tstr
if log[z].kind == "whisper" then
tstr = tstring{{"color", 0xcb,0x87,0xd2}, "<", log[z].name, ">" }
+ elseif log[z].kind == "join" then
+ tstr = tstring{{"color", "FIREBRICK"}, "[", self:getChannelCode(log[z].channel), "-", log[z].name, "]" }
else
tstr = tstring{"[", self:getChannelCode(log[z].channel), "-", log[z].channel, "] <", {"color",unpack(colors.simple(log[z].color_name))}, log[z].name, {"color", "LAST"}, "> "}
end
diff --git a/game/engines/default/engine/colors.lua b/game/engines/default/engine/colors.lua
index e3f7b9c727acfa4962498c1e9d78ea8c0d0d657b..246223feba5eb22c10f5f86b4c2ad73329027e7b 100644
--- a/game/engines/default/engine/colors.lua
+++ b/game/engines/default/engine/colors.lua
@@ -18,9 +18,11 @@
-- darkgod@te4.org
colors = {}
+colors_simple = {}
function defineColor(name, r, g, b, br, bg, bb)
colors[name] = {r=r, g=g, b=b, br=br, bg=bg, bb=bb}
+ colors_simple[name] = {r, g, b}
end
function colors.simple(c) return {c.r, c.g, c.b} end
diff --git a/game/engines/default/engine/dialogs/ChatChannels.lua b/game/engines/default/engine/dialogs/ChatChannels.lua
new file mode 100644
index 0000000000000000000000000000000000000000..f3948733527782dc256ad5d85da82f4d8eac9b5b
--- /dev/null
+++ b/game/engines/default/engine/dialogs/ChatChannels.lua
@@ -0,0 +1,63 @@
+-- TE4 - T-Engine 4
+-- Copyright (C) 2009, 2010, 2011, 2012 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program. If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+require "engine.class"
+local Dialog = require "engine.ui.Dialog"
+local Checkbox = require "engine.ui.Checkbox"
+local Textzone = require "engine.ui.Textzone"
+
+module(..., package.seeall, class.inherit(Dialog))
+
+function _M:init(chat)
+ Dialog.init(self, "Chat channels", 500, 400)
+ local mod = game.__mod_info.short_name
+
+ local list = {
+ {name = "Global", kind = "global"},
+ {name = game.__mod_info.long_name, kind = mod},
+ {name = game.__mod_info.long_name.." [spoilers]", kind = mod.."-spoiler"},
+ }
+ for i, l in pairs(profile.chat.channels) do
+ if i ~= "global" and i ~= mod and i ~= mod.."-spoiler" then
+ list[#list+1] = {name=i, kind=i}
+ end
+ end
+
+ local c_desc = Textzone.new{width=self.iw - 10, height=1, auto_height=true, text="Select which channels to listen to. You can join new channels by typing '/join <channelname>' in the talkbox and leave channels by typing '/part <channelname>'"}
+ local uis = { {left=0, top=0, ui=c_desc} }
+ for i, l in ipairs(list) do
+ local l = l
+ uis[#uis+1] = {left=0, top=uis[#uis].top+uis[#uis].ui.h + 6, ui=Checkbox.new{title=l.name, default=profile.chat.channels[l.kind], fct=function() end, on_change=function(s)
+ if s then profile.chat:join(l.kind)
+ else profile.chat:part(l.kind)
+ end
+ end} }
+ end
+
+ self:loadUI(uis)
+ self:setupUI(false, true)
+
+ self.key:addBinds{
+ EXIT = function() game:unregisterDialog(self) end,
+ }
+end
+
+function _M:unload()
+ profile.chat:saveChannels()
+end
diff --git a/game/engines/default/engine/dialogs/Talkbox.lua b/game/engines/default/engine/dialogs/Talkbox.lua
index e29d1496e9549645e75911e0f7f7a70932a2d83e..e4e7de626d4bb8a8c5a1f5f7e7e69537247a5b9b 100644
--- a/game/engines/default/engine/dialogs/Talkbox.lua
+++ b/game/engines/default/engine/dialogs/Talkbox.lua
@@ -28,6 +28,8 @@ local Textzone = require "engine.ui.Textzone"
module(..., package.seeall, class.inherit(Dialog))
function _M:init(chat, on_end)
+ chat:getChannelCode("----------------")
+
self.on_end = on_end
self.chat = chat
self.min = 2
@@ -136,6 +138,26 @@ end
function _M:okclick()
local text = self.c_box.text
+
+ local _, _, command, params = text:find("^/([a-z]+) (.*)$")
+ if command then
+ if command == "join" and params:find("^[a-z_-]+$") then
+ self.chat:join(params)
+ self.c_box:setText("")
+ game:unregisterDialog(self)
+ self.chat:setCurrentTarget(true, params)
+ return
+ end
+ if command == "part" and params:find("^[a-z_-]+$") then
+ self.chat:part(params)
+ self.c_box:setText("")
+ game:unregisterDialog(self)
+ self.chat:setCurrentTarget(true, game.__mod_info.short_name)
+ return
+ end
+ self:triggerHook{"Chat:Talkbox:command", command=command, params=params, talkbox=self}
+ end
+
if text:len() >= self.min and text:len() <= self.max then
game:unregisterDialog(self)
diff --git a/game/modules/tome/dialogs/GameOptions.lua b/game/modules/tome/dialogs/GameOptions.lua
index 535c25d36bf5ca5e913cf18fb6244204ed48c981..2ae7d0968dac6b68a7e0d0dfdb2529081170879c 100644
--- a/game/modules/tome/dialogs/GameOptions.lua
+++ b/game/modules/tome/dialogs/GameOptions.lua
@@ -228,6 +228,11 @@ function _M:generateList()
return "select to configure"
end, fct=function(item) game:registerDialog(require("engine.dialogs.ChatIgnores").new()) end,}
+ local zone = Textzone.new{width=self.c_desc.w, height=self.c_desc.h, text=string.toTString"Configure the chat channels to listen to.#WHITE#"}
+ list[#list+1] = { zone=zone, name=string.toTString"#GOLD##{bold}#Chat channels#WHITE##{normal}#", status=function(item)
+ return "select to configure"
+ end, fct=function(item) game:registerDialog(require("engine.dialogs.ChatChannels").new()) end,}
+
if game.uiset:checkGameOption("icons_temp_effects") then
local zone = Textzone.new{width=self.c_desc.w, height=self.c_desc.h, text=string.toTString"Uses the icons for status effects instead of text.#WHITE#"}
list[#list+1] = { zone=zone, name=string.toTString"#GOLD##{bold}#Icons status effects#WHITE##{normal}#", status=function(item)
diff --git a/game/profile-thread/UserChat.lua b/game/profile-thread/UserChat.lua
index 0a032d5249e8405074c5613e4b6ddf6a7a5bd43c..f0a369ff9243d13ed432174d1d01fd24d1bda434 100644
--- a/game/profile-thread/UserChat.lua
+++ b/game/profile-thread/UserChat.lua
@@ -61,11 +61,13 @@ end
function _M:joined(channel)
self.cjoined[channel] = true
print("[ONLINE PROFILE] connected to channel", channel)
+ cprofile.pushEvent(string.format("e='Chat' se='SelfJoin' channel=%q", channel))
end
function _M:parted(channel)
self.cjoined[channel] = nil
print("[ONLINE PROFILE] parted from channel", channel)
+ cprofile.pushEvent(string.format("e='Chat' se='SelfPart' channel=%q", channel))
end
function _M:reconnect()