Adding /roll - Printable Version

Code:
-- Created by Spy (steamcommuntiy.com/id/Snappey)

-- Credit to Rayts5 (Small optimizations here and there)



-- TODO:

-- add errors messages for cooldown and too many rolls

-- Create chat commands, use gamemode chat command system

-- 





if SERVER then



    util.AddNetworkString("PlayerRolled")

    

    local str = ""

    local function PackageResult(tbl)

    str = "" -- so we cant add other strings to it

        for k,v in pairs(tbl) do 

            str = str .. "[ Dice #"..k.."] Rolled " .. v.res .. " (min: " .. v.min ..", max: " .. v.max..") /n" -- newline maybe idk

        end

        return str

    end

    

    local tbl = {} -- credit to ratys5 pretty sure this does slightly optimize

    local function GetNearbyPlayers(pos)

        tbl = {} -- afaik his should nit create a new local var each time and use the one created outside the function, credits to rayts5

        for k,v in pairs(ents.FindInSphere(pos, 240)) do -- Think 240 is distance of talking 

            if !v:IsPlayer() then return end

            table.insert(tbl, v)

        end

        return tbl

    end

    

    local meta = FindMetaTable("Player")

    

    function meta:RollDice(min,max,l)

    self.LastRoll = {} -- reset last roll

        if l == nil then l = 1 end -- incase they dont give a third arg

        for i=1, l do 

            self.LastRoll[i] = {res = math.random(min, max), min = min, max = max}

        end

        return self.LastRoll

    end



    concommand.Add("rtd", function(ply,cmd,args)

        if ply.DiceCooldown == nil then ply.DiceCooldown = 0 end -- that should prevent a nil index i believe

        if CurTime() > ply.DiceCooldown + 1 && args[3] <= 5 then -- Cooldown to stop people spamming it just change the number

            net.Start("PlayerRolled")

                net.WriteString(ply:Nick() .. ": " .. PackageTable(ply:RollDice(args[1], args[2], args[3]])))

            net.Send(GetNearbyPlayers(ply:GetPos()))

            ply.DiceCooldown = CurTime()

        else 

            -- tell them there is a cooldown

        end

    end)

    

    concommand.Add("rtd_last", function(ply,cmd,args)

        if ply.DiceCooldown == nil then ply.DiceCooldown = 0 end -- same as above

        if CurTime() > ply.DiceCooldown + 1 && ply.LastRoll != nil then -- probably an easy way to simplify this to ome command but whatever

            net.Start("PlayerRolled")

                net.WriteString(ply:Nick() .. ": [LAST ROLL]" ..  PackageTable(ply.LastRoll))

            net.Send(GetNearbyPlayers(ply:GetPos()))

            ply.DiceCooldown = CurTime()

        else 

            -- tell them there is a cooldown

        end

    end)



else 



    net.Receive("PlayerRolled", function()

        chat.AddText(net.ReadString()) -- idk how you want it prefixed etc.

        -- iirc last time i used chat.AddText colours just defaulted to bland yellow probs a gamemkde thimg

    end)

    

end