factorio-scenario-ExpCluster/modules/ExpGamingBot/autoChat/control.lua

--- Sends messages in chat in resposce to other messages
-- @module ExpGamingBot.autoChat
-- @author Cooldude2606
-- @license https://github.com/explosivegaming/scenario/blob/master/LICENSE

local Game = require('FactorioStdLib.Game')
local Ranking

-- lots of these are jokes, but some have uses

-- white spaces removed and made into lower
-- these messages are sent only to the player
local messages = {
    ['discord']={'chat-bot.discord'},
    ['expgaming']={'chat-bot.website'},
    ['website']={'chat-bot.website'},
    ['command']={'chat-bot.custom-commands'},
    ['commands']={'chat-bot.custom-commands'},
    ['softmod']={'chat-bot.softmod'},
    ['script']={'chat-bot.softmod'},
    ['link']={'chat-bot.links'},
    ['links']={'chat-bot.links'},
    ['loop']={'chat-bot.loops'},
    ['loops']={'chat-bot.loops'},
    ['rhd']={'chat-bot.lhd'},
    ['roundabout']={'chat-bot.loops'},
    ['roundabouts']={'chat-bot.loops'},
    ['redmew']={'chat-bot.redmew'},
    ['afk']=function(_player) local max=_player for _,player in pairs(game.connected_players) do if max.afk_time < player.afk_time then max=player end end return {'chat-bot.afk',max.name,tick_to_display_format(max.afk_time)} end
}
-- white spaces removed and made into lower
-- these are global chat commands that can be used
-- comands start with ! (all messages are also commands)
local command_syntax = '!'
local commands = {
    ['online']=function(player) return {'chat-bot.players-online',#game.connected_players} end,
    ['playtime']=function(player) return {'chat-bot.map-time',tick_to_display_format(game.tick)} end,
    ['players']=function(player) return {'chat-bot.players',#game.players} end,
    ['dev']={'chat-bot.not-real-dev'},
    ['blame']=function(player) local names = {'Cooldude2606','arty714','badgamernl',player.name} return {'chat-bot.blame',names[math.random(#names)]} end,
    ['readme']={'chat-bot.read-readme'},
    ['magic']={'chat-bot.magic'},
    ['aids']={'chat-bot.aids'},
    ['riot']={'chat-bot.riot'},
    ['lenny']={'chat-bot.lenny'},
    ['wiki']={'chat-bot.wiki'},
    ['evolution']=function(player) return {'chat-bot.current-evolution',string.format('%.2f',game.forces['enemy'].evolution_factor)} end,
    --Jokes about food and drink
    ['whattoeat']={'chat-bot.food'},
    ['makepopcorn']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data=player.name
    }:on_event('timeout',function(self)
        if self.data then game.print{'chat-bot.message',{'chat-bot.get-popcorn-2',self.data}} end
    end):open() return {'chat-bot.get-popcorn-1'} end,    
    ['orderpizza']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data={player.name,0}, reopen=true
    }:on_event('timeout',function(self)
        if self.data[2]==0 then game.print{'chat-bot.message',{'chat-bot.order-pizza-2',self.data[1]}}                
        elseif self.data[2]==1 then game.print{'chat-bot.message',{'chat-bot.order-pizza-3',self.data[1]}} self.reopen = false
        end
        self.data[2]=self.data[2]+1
    end):open() return {'chat-bot.order-pizza-1'} end,
    ['passsomesnaps']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data={player.name,0}, reopen=true
    }:on_event('timeout',function(self)
        if self.data[2]==0 then game.print{'chat-bot.message',{'chat-bot.get-snaps-2',self.data[1]}}                
        elseif self.data[2]==1 then game.print{'chat-bot.message',{'chat-bot.get-snaps-3',self.data[1]}} self.reopen = false
        end
        self.data[2]=self.data[2]+1
    end):open() return {'chat-bot.get-snaps-1'} end,
    ['makecocktail']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data={player.name,0}, reopen=true
    }:on_event('timeout',function(self)
        if self.data[2]==0 then game.print{'chat-bot.message',{'chat-bot.get-cocktail-2',self.data[1]}}                
        elseif self.data[2]==1 then game.print{'chat-bot.message',{'chat-bot.get-cocktail-3',self.data[1]}} self.reopen = false
        end
        self.data[2]=self.data[2]+1
    end):open() return {'chat-bot.get-cocktail-1'} end,
    ['makecoffee']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data=player.name
    }:on_event('timeout',function(self)
        if self.data then game.print{'chat-bot.message',{'chat-bot.make-coffee-2',self.data}} end
    end):open() return {'chat-bot.make-coffee-1'} end,
    ['orderpizza']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data={player.name,0}, reopen=true
    }:on_event('timeout',function(self)
        if self.data[2]==0 then game.print{'chat-bot.message',{'chat-bot.order-pizza-2',self.data[1]}}                     
        elseif self.data[2]==1 then game.print{'chat-bot.message',{'chat-bot.order-pizza-3',self.data[1]}} self.reopen = false
        end
        self.data[2]=self.data[2] + 1
    end):open() return {'chat-bot.order-pizza-1'} end,
    ['maketea']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data=player.name
    }:on_event('timeout',function(self)
        if self.data then game.print{'chat-bot.message',{'chat-bot.make-tea-2',self.data}} end
    end):open() return {'chat-bot.make-tea-1'} end,
    ['meadplease']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data=player.name
    }:on_event('timeout',function(self)
        if self.data then game.print{'chat-bot.message',{'chat-bot.get-mead-2',self.data}} end
    end):open() return {'chat-bot.get-mead-1'} end,
    ['passabeer']=function(player) Server.new_thread{
        timeout=math.floor(180*(math.random()+0.5)),data=player.name
    }:on_event('timeout',function(self)
        if self.data then game.print{'chat-bot.message',{'chat-bot.get-beer-2',self.data}} end
    end):open() return {'chat-bot.get-beer-1'} end
}

script.on_event(defines.events.on_console_chat,function(event)
    local player = Game.get_player(event)
    if not player then return end
    local player_message = event.message:lower():gsub("%s+", "")
    local allowed = Ranking and Ranking.get_rank(player):allowed('global-chat') or player.admin
    for to_find,message in pairs(messages) do
        if player_message:match(command_syntax..to_find) then
            if allowed then
                if is_type(message,'function') then message=message(player) end
                game.print{'chat-bot.message',message}
            else player_return({'chat-bot.rank-error'},nil,player) end
        elseif player_message:match(to_find) then
            if is_type(message,'function') then message=message(player) end
            player_return({'chat-bot.message',message},nil,player)
        end
    end
    for to_find,message in pairs(commands) do
        if player_message:match(command_syntax..to_find) then
            if allowed then
                if is_type(message,'function') then message=message(player) end
                game.print{'chat-bot.message',message}
            else player_return({'chat-bot.rank-error'},nil,player) end
        end
    end
end)

return {
    on_init = function(self) 
        if loaded_modules['ExpGamingCore.Ranking'] then Ranking = require('ExpGamingCore.Ranking') end
    end
}