Adding /roll - Printable Version

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



if SERVER then



    util.AddNetworkString("PlayerRolled")

    util.AddNetworkString("GetLastRoll")

    

    local function PackageResult(tbl)

    local 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 function GetNearbyPlayers(pos)

        local tbl = {}

        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 then -- Cooldown to stop people spamming it just change the number

            local str = PackageTable(ply:RollDice(args[1], args[2], args[3]))

            net.Start("PlayerRolled")

                net.WriteString(str)

            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 then -- probably an easy way to simplify this to ome command but whatever

            local str = PackageTable(ply.LastRoll)

            net.Start("GetLastRoll")

                net.WriteString(str)

            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)

    

    net.Receive("GetLastRoll", function()

        chat.AddText("[LAST ROLL] " .. net.ReadString())

    end)

    

end