wnsrc/gamemodes/ixhl2rp/plugins/phone/sh_plugin.lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]

--[[
    ring ring ring ring - LUA PHONE
       ,==.-------.
      (    ) ====  \
      ||  | [][][] |
    ,8||  | [][][] |
    8 ||  | [][][] |
    8 (    ) O O O /
    '88`=='-------'
]]

local PLUGIN = PLUGIN

PLUGIN.name = "Phones"
PLUGIN.description = "Adds landlines, pagers, and ways to route them"
PLUGIN.author = "M!NT"

ix.phone = ix.phone or {}
ix.phone.switch = ix.phone.switch or {}

ix.util.Include("cl_hooks.lua")
ix.util.Include("sv_hooks.lua")
ix.util.Include("sv_plugin.lua")

CAMI.RegisterPrivilege({
	Name = "Helix - Use Phones",
	MinAccess = "user"
})

ix.command.Add("HangupPhone", {
    alias = "HP",
    description = "Hangs up the phone you're looking at.",
    arguments = {},
    privilege = "Use Phones",
    OnRun = function(self, client)
        PLUGIN:runHangupOnClient(client)
    end
})

CAMI.RegisterPrivilege({
	Name = "Helix - Manage Phones",
	MinAccess = "admin"
})

ix.command.Add("EditLandline", {
    description = "Edit the landline phone you are currently looking at.",
    arguments = {
        ix.type.number,
        ix.type.number,
        ix.type.text
    },
    privilege = "Manage Phones",
    OnRun = function(self, client, pbx, extension, publicName)
        if (!pbx or !extension or !publicName or string.len(publicName) < 1) then
            client:NotifyLocalized("You provided an invalid argument")
        end

        -- perform input validations
        if (pbx < 1 or pbx > 9) then
            client:NotifyLocalized("Provided PBX is invalid! (must be a number between 1 and 10)")
            return
        end

        if (!ix.phone.switch:ExchangeExists(pbx)) then
            client:NotifyLocalized("Provided PBX '"..tostring(pbx).."' does not exist.")
            return
        end

        if (extension < 100 or extension > 999) then
            client:NotifyLocalized("Provided extension is invalid! (must be a number between 100 and 1000")
            return
        end

        if (string.len(publicName) < 1) then
            client:NotifyLocalized("Provided public name is invalid! (must have a length greater than 1)")
            return
        end

        local data = {}
            data.start = client:GetShootPos()
            data.endpos = data.start + client:GetAimVector() * 96
            data.filter = client
        local target = util.TraceLine(data).Entity

        if (!IsValid(target) or target.PrintName != "Landline Phone") then
            client:NotifyLocalized("You are not looking at a phone.")
            return
        end

        if (ix.phone.switch:DestExists(target.currentPBX, target.currentExtension)) then
            print("exists")
            ix.phone.switch:RmDest(target.currentPBX, target.currentExtension)
        end

        if (!ix.phone.switch:AddDest(pbx, extension, publicName, target.endpointID)) then
            client:NotifyLocalized("Could not register the phone with the provided arguments")
            return
        end

        target.currentName      = publicName
        target.currentPBX       = pbx
        target.currentExtension = extension

        client:NotifyLocalized("You have successfully updated the landline.")
    end
})

ix.command.Add("AddPBX", {
    description = "Add new PBX if one does not already exist",
    arguments = {ix.type.number},
    privilege = "Manage Phones",
    OnRun = function(self, client, pbx)
        if (!pbx or pbx < 1 or pbx > 9) then
            client:NotifyLocalized("Provided PBX is invalid! (must be a number between 1 and 10)")
            return
        end

        if (ix.phone.switch:AddExchange(pbx)) then
            client:NotifyLocalized("PBX '"..tostring(pbx).."' was created succesfully!")
        else
            client:NotifyLocalized("PBX '"..tostring(pbx).."' already exists!")
            return
        end
    end
})

ix.command.Add("RemovePBX", {
    description = "Remove an existing PBX (will stop all active calls on this PBX and deregister all phones currently connected!)",
    arguments = {ix.type.number},
    privilege = "Manage Phones",
    OnRun = function(self, client, pbx)
        if (!pbx or pbx < 1 or pbx > 9) then
            client:NotifyLocalized("Provided PBX is invalid! (must be a number between 1 and 10)")
            return
        end

        if (!ix.phone.switch:ExchangeExists(pbx)) then
            client:NotifyLocalized("PBX '"..tostring(pbx).."' does not exist!")
            return
        end

        -- stop all active connections
        for ext, md in ipairs(ix.phone.switch.exchanges[pbx]) do
            local connMd = ix.phone.switch:GetActiveConnection(pbx, ext)
            if (istable(connMd)) then
                ix.phone.switch:Disconnect(connMD.targetConnID)
            end
        end

        ix.phone.switch:RmExchange(pbx)

        client:NotifyLocalized("PBX '"..tostring(pbx).."' has been deconstructed.")
    end
})

ix.char.RegisterVar("landlineConnection", {
	field = "landlineConnection",
	fieldType = ix.type.table,
	default = {
        active = false,
        exchange = nil,
        extension = nil
    },
	bNoDisplay = true,
	isLocal = true,
	OnSet = function(self, value)
		local client = self:GetPlayer()

        if (!IsValid(client)) then
            return nil
        end

        self.vars.landlineConnection = {
            active    = value["active"],
            exchange  = value["exchange"],
            extension = value["extension"]
        }
	end,
	OnGet = function(self, default)
        local connMetaData = self.vars.landlineConnection
        return connMetaData
	end,
    OnAdjust = function(self, client, data, value, newData)
		newData.landlineConnection = value
	end
})

do
    local phoneChatCommands = {
        phonesay = {
            alias = "PS",
            description = "Speak into a phone if you're holding one.",
            range = ix.config.Get("chatRange", 280),
        },
        phonewhisper = {
            alias = "PW",
            description = "Whisper into a phone if you're holding one.",
            range = ix.config.Get("chatRange", 280) / 4,
        },
        phoneyell = {
            alias = "PY",
            description = "Yell into a phone if you're holding one.",
            range = ix.config.Get("chatRange", 280) * 4,
        }
    }

    for phoneChatCommand, commandSettings in pairs(phoneChatCommands) do
        ix.command.Add(phoneChatCommand, {
            alias = commandSettings.alias,
            description = commandSettings.description,
            arguments = ix.type.text,
            privilege = "Use Phones",
            OnRun = function(self, client, message)
                local character = client:GetCharacter()
                if (!istable(character)) then
                    return
                end
                if (character:GetLandlineConnection().active) then
                    local recvs = ix.phone.switch:GetCharacterActiveListeners(character)
                    if (!recvs) then
                        recvs = {}
                    end

                    local eavesDropRecvs = ix.phone.switch.endpoints:GetPlayersInRadiusFromPos(
                            client:GetPos(), commandSettings.range)

                    if (istable(eavesDropRecvs)) then
                        table.Add(recvs, eavesDropRecvs)
                    end

                    -- doing this here because, for some reason, chat CanHear just isn't working
                    -- "If you want it done right, do it yourself"
                    ix.chat.Send(client, phoneChatCommand, message, false, recvs)
                end
            end
        })
    end
end

do
    -- used to simulate a distortion effect on certain letters when using phoneyell
    local chatDistortionChars = {
        O = "Ő̸̗",
        F = "F̸̲̂̉ ̷̖̇̀",
        P = "P̵̧̝̫̘͛͜F̶̆̃ ̴̩̫̎̌͜͝ ̴͈̈́",
        CK =  "C̴̣̖̕͜K̵̘̲͂̈́",
        K = "K̵̘̲͂̈́",
        T = "T̸̮͒͝͝",
        X = "Ẍ̷̻́_̷̛̰",
        SH =  "S̷̥̓ ̶̖͂Ḣ̴̗ ̴̘̔",
        Z = "Z̶̗̒̃̅",
        S = "S̶͖̐̿ ̷̤̰͂͌",
        H = " ̵̬̻͇̎ ̵͈̦͍̔̅̊̇͝H"
    }
    -- TODO: get atle to add a real icon for this to willardcuntent
    local chatIcon = ix.util.GetMaterial("willardnetworks/chat/message_icon.png")
    local chatSettings = {
        phonewhisper = {
            range = ix.config.Get("chatRange", 280) / 4,
            color = Color(149, 196, 215),
            indicator = "chatWhispering",
            format = "[PHONE] %s: (whisper) \"%s\""
        },
        phonesay = {
            range = ix.config.Get("chatRange", 280),
            color = Color(105, 157, 178),
            indicator = "chatTalking",
            format = "[PHONE] %s: \"%s\""
        },
        phoneyell = {
            range = ix.config.Get("chatRange", 280) * 4,
            color = Color(166, 89, 89),
            indicator = "chatYelling",
            format = "[PHONE] %s: \"%s\""
        }
    }

    for chatType, chatTypeData in pairs(chatSettings) do
        ix.chat.Register(chatType, {
            color = chatTypeData.color,
            indicator = chatTypeData.indicator,
            format = chatTypeData.format,
            CanSay = function(self, speaker, text)
                return speaker:GetCharacter():GetLandlineConnection()["active"]
            end,
            OnChatAdd = function(self, speaker, text, anonymous, data)
                local name = anonymous and
				    L"someone" or
                    hook.Run("GetCharacterName", speaker, "ic") or
				    (IsValid(speaker) and speaker:Name() or "Console")

                local rText = ix.chat.Format(text)
                if (chatType == "phoneyell") then
                    rText = rText:upper()
                    for char, repl in pairs(chatDistortionChars) do
                        rText = rText:gsub(tostring(char), tostring(repl))
                    end

                    -- ix.chat.Format() will always add punctuation. 
                    -- Replace that with an exclamation mark for greater effect :)
                    rText = rText:sub(1, -2)
                    rText = rText.."!"
                end
                rText = string.format(chatTypeData.format, name, rText)

                if (ix.option.Get("standardIconsEnabled")) then
                    chat.AddText(chatIcon, self.color, rText)
                else
                    chat.AddText(self.color, rText)
                end
            end
        })
    end
end

do
    -- dial statuses which will be displayed on the target phone's derma
    ix.phone.switch.DialStatus = {
        SourceNotExist = "Err #186A0:>\n Source does not exist as a destination.\n Is it registered in the PSTN?",
        NoDialSeq = "Err #1D4C0:>\n No dial sequence provided.",
        CannotDecodeDial = "Err #1E078:>\n Invalid dial sequence provided.",
        NumberNotFound = "Err #1E208:>\n Destination not registered in the PSTN;\n Cannot find a route.",
        EndpointNotFound = "Err #1E23A:>\n Route exists, but is missing a valid endpoint;\n Cannot reach endpoint.",
        DebugMode = "Entering debug mode.",
        Success = "Connection established.",
        LineBusy = "Line busy. Please try again later",
        NotSetup = "Err #1E240:>\n Cannot establish connection.\n Please verifiy connection to PBX."
    }
end