Massive improvements

New module system
Added help menu
Added stats command
Added built in HUD
Changed colors to make more sense
Added loaded net message
Improved chat check for commands
Shortened color names

modules/server/hello.txt

@@ -2,9 +2,29 @@
 --@author
 --@server
 
+function fuckOff(args)
+    if args[1] ~= nil then
+        local output = ""
+        for i, v in pairs(args) do
+            output = output..v.." "
+        end
+        
+        output = string.trimRight(output)
+        
+        print(output)
+    else 
+        print("Hello World!") 
+    end 
+end
+
 core.modules.hello = {
     version = 69420,
+    desc = "Hello world!",
     commands = {
-        helloworld = function() print("hi") end,
+        helloworld = {
+            usage = "helloworld <text>",
+            desc = "Prints either \"Hello World!\" or the arguments passed to it.",
+            func = fuckOff,
+        },
     },
 }

modules/server/serverinfo.txt

@@ -16,8 +16,13 @@ do
     
     core.modules.serverinfo = {
         version = 1,
+        desc = "Provides basic server info.",
         commands = {
-            serverinfo = getServerInfo,
+            serverinfo = {
+                usage = "serverinfo",
+                desc = "Prints basic server information to the chat.",
+                func = getServerInfo,
+            },
         },
     }
 end

sv_lsft.txt

@@ -18,46 +18,136 @@
 --]]
 
 --[[
-TODO: Literally everything
 TODO: Update checker
 TODO: On module load, grab default config values. Write changed values
-TODO: Client can request config values
 prop.createSent(chip():getPos()+Vector(0,0,90),Angle(0,0,0),"Seat_Airboat",true)
 --]]
 
---[[
-hook.add("PlayerSay", "CommandCheck", function(ply, str)
-    if ply==owner() and string.find(str,"^!") then
-        
-    end
-end)
---]]
-
 -- Main Module (Mostly loading modules and stuff)
 core = {}
 
-core.modules = {
+do
-    core = {
+    local function stats()
-        version = 0.1,
+        -- For debugging purposes mostly
-        commands = {
+        core:log(log.TEXT, "---------------------------")
-            help = function() print("hi") end,
+        core:log(log.TEXT, "Server Stats:")
-            colors = function() print(""..core:get_config("core","color_logo")) end,
+        core:log(log.INFO, "Max CPU: ", core.colors.text, math.round(core.maxCPU*1000000).."us ("..math.round(core.maxCPU*100/quotaMax()).."%)")
+        core:log(log.INFO, "Max RAM: ", core.colors.text, math.round(core.maxRAM).."kB ("..math.round(core.maxRAM*100/ramMax()).."%)")
+        core:log(log.INFO, "Min Net: ", core.colors.text, core.minNet.." bytes")
+        core:log(log.TEXT, "---------------------------")
+    end
+    
+    local function hud()
+        if core.hud then 
+            enableHud(owner(),false) 
+            core.hud = false 
+        else 
+            enableHud(owner(),true) 
+            core.hud = true 
+        end 
+    end
+    
+    local function help(args)
+        local module = args[1]
+        local command = args[2]
+        
+        if module == nil and command == nil then
+            core:log(log.TEXT, "---------------------------")
+            core:log(log.INFO, "To list the commands in a module, type "..core:get_config("core", "command_prefix").."help <module>")
+            core:log(log.INFO, "List of available modules:")
+            
+            local modules = {}
+            for i, v in pairs(core.modules) do
+                table.insert(modules, core.colors.logo)
+                table.insert(modules, "[L-SFT] ")
+                table.insert(modules, core.colors.info)
+                table.insert(modules, "\""..i.."\" | "..(v.desc or "No description provided.").."\n")
+            end
+            modules[#modules] = modules[#modules]:sub(1, -2)
+            print(unpack(modules))
+            
+            core:log(log.TEXT, "---------------------------")
+        elseif module ~= nil and command == nil then
+            if not core.modules[module] then core:log(log.ERROR, "Module does not exist!") return end
+            core:log(log.TEXT, "---------------------------")
+            core:log(log.INFO, "List of available commands in module \""..module.."\":")
+            
+            local commands = {}
+            for i, v in pairs(core.modules[module].commands) do
+                table.insert(commands, core.colors.logo)
+                table.insert(commands, "[L-SFT] ")
+                table.insert(commands, core.colors.info)
+                table.insert(commands, "\""..i.."\" | Usage: "..(v.usage or "No usage provided.").."\n")
+            end
+            commands[#commands] = commands[#commands]:sub(1, -2)
+            print(unpack(commands))
+            
+            core:log(log.TEXT, "---------------------------")
+        elseif module ~= nil and command ~= nil then
+            if not core.modules[module].commands[command] then core:log(log.ERROR, "Command does not exist in module \""..module.."\"!") return end
+            core:log(log.TEXT, "---------------------------")
+            core:log(log.INFO, "Usage: "..(core.modules[module].commands[command].usage or "Command: "..command.." (No usage provided)"))
+            core:log(log.INFO, "Description: "..(core.modules[module].commands[command].desc or "No description provided."))
+            core:log(log.TEXT, "---------------------------")
+        else
+            core:log(log.ERROR, "Universe is broken.")
+        end
+    end
+    
+    core.modules = {
+        core = {
+            version = 0.1,
+            desc = "Built in module.",
+            commands = {
+                stats = {
+                    func = stats,
+                    usage = "stats",
+                    desc = "Gets performance information about this Starfall chip.",
+                },
+                hud = {
+                    func = hud,
+                    usage = "hud",
+                    desc = "Toggles the built in Starfall HUD",
+                },
+                help = {
+                    desc = "List modules, list commands in a module or gets information about a specific command.",
+                    usage = "help [module] [command]",
+                    func = help,
+                },
+            },
         },
-    },
+    }
-}
+end
 
 core.config = {}
 core.defaultconfig = {
     core = {
         command_prefix = "!n",
-        color_logo = Color(255,200,50),
+        colors = {
-        color_text = Color(200,200,200),
+            logo = Color(255,200,50),
-        color_info = Color(50,150,255),
+            text = Color(255,255,255),
-        color_warning = Color(255,150,50),
+            info = Color(50,150,255),
-        color_error = Color(255,50,50)
+            warn = Color(255,120,50),
+            error = Color(255,50,50),
+        },
+        controls = {
+            forward = KEY.W,
+            backward = KEY.S,
+            left = KEY.A,
+            right = KEY.D,
+            up = KEY.SPACE,
+            down = KEY.CTRL,
+            run = KEY.SHIFT,
+        },
     },
 }
 
+core.colors = {}
+
+core.maxCPU = 0
+core.minNet = net.getBytesLeft()
+core.maxRAM = 0
+
 log = {
     ERROR=0,
     WARNING=1,
@@ -73,13 +163,24 @@ function core:init(config)
     
     core:load_modules()
     
-    core.color_logo = core:get_config("core","color_logo")
+    local hud = prop.createComponent(chip():getPos(), Angle(0,0,0), "starfall_hud", "models/bull/dynamicbutton.mdl", true)
-    core.color_text = core:get_config("core","color_text")
+    hud:linkComponent(chip())
-    core.color_info = core:get_config("core","color_info")
+    hud:setSolid(false)
-    core.color_warning = core:get_config("core","color_warning")
+    hud:setColor(Color(255,255,255,0))
-    core.color_error = core:get_config("core","color_error")
+    enableHud(owner(), true)
+    core.hud = true
+    
+    core.colors.logo = core:get_config("core","colors","logo")
+    core.colors.text = core:get_config("core","colors","text")
+    core.colors.info = core:get_config("core","colors","info")
+    core.colors.warn = core:get_config("core","colors","warn")
+    core.colors.error = core:get_config("core","colors","error")
+    
+    core.command_prefix = core:get_config("core","command_prefix")
     
     core:log(log.INFO, "Loaded v"..core.modules.core.version.." successfully")
+    net.start("LSFT-Loaded")
+    net.send()
     
     return true
 end
@@ -125,14 +226,20 @@ function core:load_modules()
     dodir("lsft/modules/shared")
     
     hook.add("PlayerSay", "CommandCheck", function(ply, str)
-        local prefix = core:get_config("core","command_prefix")
+        if ply == owner() and string.find(str, "^"..core.command_prefix) then
-        if ply == owner() and string.find(str, "^"..prefix) then
+            local stringin = string.explode(" ", str)
-            local command = string.sub(string.explode(" ", str)[1], #prefix+1)
+            local command = string.sub(stringin[1], #core.command_prefix+1)
+            local args = {}
+            
+            for i, v in pairs(stringin) do
+                if i == 1 then continue end
+                table.insert(args, v)
+            end
             
             for i, v in pairs(core.modules) do
-                for commandin, commandfunc in pairs(v["commands"]) do
+                for commandin, commandthing in pairs(v["commands"]) do
                     if command == commandin then
-                        commandfunc()
+                        commandthing.func({unpack(args)})
                         return ""
                     end
                 end
@@ -152,13 +259,13 @@ function core:log(...)
     local message = { unpack(args, 2, #args) }
     local color = Color(0,0,0)
     
-    if loglevel == log.ERROR then color = core.color_error
+    if loglevel == log.ERROR then color = core.colors.error
-    elseif loglevel == log.WARNING then color = core.color_warning
+    elseif loglevel == log.WARNING then color = core.colors.warn
-    elseif loglevel == log.INFO then color = core.color_info
+    elseif loglevel == log.INFO then color = core.colors.info
-    elseif loglevel == log.TEXT then color = core.color_text
+    elseif loglevel == log.TEXT then color = core.colors.text
     end
     
-    print(core.defaultconfig.core.color_logo, "[L-SFT] ", color, unpack(message))
+    print(core.colors.logo, "[L-SFT] ", color, unpack(message))
 end
 
 net.receive("LSFT-Config-Read", function(len, ply)
@@ -167,7 +274,7 @@ net.receive("LSFT-Config-Read", function(len, ply)
         --print(core.defaultconfig.core.color_logo, "[L-SFT] ", core.defaultconfig.core.color_info, "Downloading configuration: 0%")
         
         timer.create("ConfigProgress", 0.25, 0, function()
-            print(core.defaultconfig.core.color_logo, "[L-SFT] ", core.defaultconfig.core.color_info, "Downloading configuration: ", math.round(net.getStreamProgress() * 100, 2), "%")
+            print(core.defaultconfig.core.colors.logo, "[L-SFT] ", core.defaultconfig.core.colors.info, "Downloading configuration: ", math.round(net.getStreamProgress() * 100, 2), "%")
         end)
         
         net.readStream(function(data)
@@ -175,11 +282,59 @@ net.receive("LSFT-Config-Read", function(len, ply)
             core:init(json.decode(data))
         end)
     else
-        print(core.defaultconfig.core.color_logo, "[L-SFT] ", core.defaultconfig.core.color_error, ply:getName().." is trying to give us a config")
+        print(core.defaultconfig.core.colors.logo, "[L-SFT] ", core.defaultconfig.core.colors.error, ply:getName().." is trying to give us a config")
     end
 end)
 
 net.receive("LSFT-Get-Config", function()
-    
+    net.start(net.readString())
-    core:getConfig(unpack(net.readTable()))
+    local output = {}
+    while true do
+        local temp = net.readTable()
+        if #temp == 0 then break end
+        net.writeTable({core:get_config(unpack(temp))}) -- what the fuck
+    end
+    net.send()
 end)
+
+
+timer.create("CPUCheck", 1, 0, function()
+    if quotaAverage() > core.maxCPU then
+        core.maxCPU = quotaAverage()
+    end
+    
+    if quotaAverage() > quotaMax() * 0.5 then
+        core:log(log.WARNING, "CPU quota is low! ("..math.round(100-(quotaAverage()*100/quotaMax())).."% remaining)")
+    elseif quotaAverage() > quotaMax() * 0.9 then
+        core:log(log.ERROR, "CPU quota is critically low! ("..math.round(100-(quotaAverage()*100/quotaMax())).."% remaining)")
+        timer.pause("CPUCheck")
+        timer.pause("NetCheck")
+        timer.pause("RAMCheck")
+        timer.simple(10, function() timer.unpause("CPUCheck") timer.unpause("NetCheck") timer.unpause("RAMCheck") end)
+    end
+end)
+
+timer.create("NetCheck", 1, 0, function()
+    if net.getBytesLeft() < core.minNet then
+        core.minNet = net.getBytesLeft()
+    end
+    
+    if net.getBytesLeft() < 3000 then
+        core:log(log.WARNING, "Network bandwidth is low! ("..net.getBytesLeft().." bytes left)")
+    elseif net.getBytesLeft() < 1000 then
+        core:log(log.ERROR, "Network bandwidth is critically low! ("..net.getBytesLeft().." bytes left)")
+    end
+end)
+
+timer.create("RAMCheck", 1, 0, function()
+    if ramUsed() > core.maxRAM then
+        core.maxRAM = ramUsed()
+    end
+    
+    if ramUsed() > ramMax() * 0.5 then
+        core:log(log.WARNING, "RAM usage is high! ("..math.round(ramUsed()*100/ramMax()).."% used)")
+    elseif ramUsed() > ramMax() * 0.9 then
+        core:log(log.ERROR, "RAM usage is critically high! ("..math.round(ramUsed()*100/ramMax()).."% used)")
+    end
+end)
+