init

system/chat_commands.lua

@@ -0,0 +1,252 @@
+-- Localize Hunger NG
+local a = hunger_ng.attributes
+local c = hunger_ng.configuration
+local e = hunger_ng.effects
+local f = hunger_ng.functions
+local s = hunger_ng.settings
+local S = hunger_ng.configuration.translator
+
+
+-- Localize Luanto
+local chat_send = core.chat_send_player
+local log = core.log
+local player_exists = core.player_exists
+local get_player_by_name = core.get_player_by_name
+local get_connected_players = core.get_connected_players
+
+
+-- Set hunger to given value
+--
+-- Sets the hunger of the given player to the given value. If the player name
+-- is omitted own hunger is set.
+--
+-- @param name   The name of the target player
+-- @param value  The hunger value to set to
+-- @param caller The player who invoked the command
+-- @return mixed `void` if player exists, otherwise `nil`
+local set_hunger = function (name, value, caller)
+    local message = ''
+
+    if not get_player_by_name(name) then
+        chat_send(caller, S('The player @1 is not online', name))
+        return
+    end
+
+    if f.hunger_disabled(name) then
+        chat_send(caller, S('Hunger for @1 is disabled', name))
+        return
+    end
+
+    if value > s.hunger.maximum then value = s.hunger.maximum end
+    if value < 0 then value = 0 end
+
+    f.alter_hunger(name, -s.hunger.maximum, 'chat set 0')
+    f.alter_hunger(name, value, 'chat set target')
+
+    if name ~= caller then
+        chat_send(caller, S('Hunger for @1 set to @2', name, value))
+        chat_send(name, S('@1 set your hunger to @2', caller, value))
+        message = caller..' sets hunger for '..name..' to '..value
+    else
+        chat_send(caller, S('Hunger set to @1', value))
+        message = caller..' sets own hunger to '..value
+    end
+
+    log('action', '[hunger_ng] '..message)
+end
+
+
+-- Change the hunger value
+--
+-- Changes the hunger value of the given player by the given value. Use
+-- negative values to substract hunger. If the player name is omitted the own
+-- hunger gets changed.
+--
+-- @param name   The name of the target player
+-- @param value  The hunger value to change by
+-- @param caller The player who invoked the command
+-- @return mixed `void` if player exists, otherwise `nil`
+local change_hunger = function (name, value, caller)
+    local message = ''
+
+    if not get_player_by_name(name) then
+        chat_send(caller, S('The player @1 is not online', name))
+        return
+    end
+
+    if f.hunger_disabled(name) then
+        chat_send(caller, S('Hunger for @1 is disabled', name))
+        return
+    end
+
+    if value > s.hunger.maximum then value = s.hunger.maximum end
+    if value < -s.hunger.maximum then value = -s.hunger.maximum end
+
+    f.alter_hunger(name, value, 'chat change')
+
+    if name ~= caller then
+        chat_send(caller, S('Hunger for @1 changed by @2', name, value))
+        chat_send(name, S('@1 changed your hunger by @2', caller, value))
+        message = caller..'changes hunger for '..name..' by '..value
+    else
+        chat_send(caller, S('Hunger changed by @1', value))
+        message = caller..' changes own hunger by '..value
+    end
+
+    log('action', '[hunger_ng] '..message)
+end
+
+
+-- Toggle hunger being enabled
+--
+-- Toggles the hunger for the given player from enabled to disabled.
+--
+-- @param name   The name of the target player
+-- @param caller The player who invoked the command
+-- @return mixed `void` if player exists, otherwise `nil`
+local toggle_hunger = function (name, value, caller)
+    local message = ''
+    local action = ''
+    local name = name == '' and caller or name
+
+    if not get_player_by_name(name) then
+        chat_send(caller, S('The player @1 is not online', name))
+        return
+    end
+
+    if f.hunger_disabled(name) then
+        hunger_ng.configure_hunger(name, 'enable')
+        action = 'enabled'
+    else
+        hunger_ng.configure_hunger(name, 'disable')
+        action = 'disabled'
+    end
+
+    if name ~= caller then
+        chat_send(caller, S('Hunger for @1 was toggled', name))
+        chat_send(name, S('@1 toggled your hunger', caller))
+        message = caller..' '..action..' hunger for '..name
+    else
+        chat_send(caller, S('Own hunger was toggled'))
+        message = caller..' '..action..' own hunger'
+    end
+
+    log('action', '[hunger_ng] '..message)
+end
+
+
+-- Get the hunger value
+--
+-- When called without name parameter it gets the hunger values from all
+-- currently connected players. If a name is given the hunger value for that
+-- player is returned if the player is online
+--
+-- @param name   The name of the target player
+-- @param caller The player who invoked the command
+-- @return void
+local get_hunger = function(name, caller)
+    local message = ''
+
+    if name == '' then name = get_connected_players()
+    else name = { get_player_by_name(name) } end
+
+    for _,player in pairs(name) do
+        if player:is_player() then
+            local player_name = player:get_player_name()
+            local player_hunger = f.get_data(player_name, a.hunger_value)
+            local hunger_disabled = f.hunger_disabled(player_name)
+
+            if not hunger_disabled then
+                chat_send(caller, player_name..': '..player_hunger)
+            else
+                chat_send(caller, player_name..': '..S('Hunger is disabled'))
+            end
+
+            if player_name == caller then
+                message = caller..' gets own hunger value'
+            else
+                message = caller..' gets hunger value for '..player_name
+            end
+
+            log('action', '[hunger_ng] '..message)
+        end
+    end
+
+    if #name == 0 then
+        chat_send(caller, S('No player matches your criteria'))
+    end
+end
+
+
+-- Show the help message
+--
+-- Shows the help message to the caller
+--
+-- @param caller The player who invoked the command
+-- @return void
+local show_help = function (caller)
+    chat_send(caller, S('run `/help hunger` to show help'))
+end
+
+
+-- Register privilege for hunger control
+core.register_privilege('manage_hunger', {
+    description = S('Player can view and alter own and others hunger values.')
+})
+
+
+-- Administrative chat command definition
+core.register_chatcommand('hunger', {
+    params = '<set/change/get/toggle> <name> <value>',
+    description = S('Modify or get hunger values'),
+    privs = { manage_hunger = true },
+    func = function (caller, parameters)
+        local pt= {}
+        for p in parameters:gmatch("%S+") do table.insert(pt, p) end
+        local action = pt[1] or ''
+        local name = pt[2] or ''
+        local value = pt[3] or ''
+
+        -- Name parameter missing
+        if not player_exists(name) and tonumber(name) and value == '' then
+            value = name
+            name = caller
+        end
+
+        -- Convert value to number or print error message when trying to set
+        -- a value but no proper value was given
+        if tonumber(value) then
+            value = tonumber(value)
+        else
+            if action ~= 'get' and action ~= 'toggle' then
+                show_help(caller)
+                return
+            end
+        end
+
+        -- Execute the corresponding function for the defined action
+        if     action == 'set' then set_hunger(name, value, caller)
+        elseif action == 'change' then change_hunger(name, value, caller)
+        elseif action == 'get' then get_hunger(name, caller)
+        elseif action == 'toggle' then toggle_hunger(name, value, caller)
+        else show_help(caller) end
+    end
+})
+
+
+-- Personal information chat command
+core.register_chatcommand('myhunger', {
+    params = 'name',
+    description = S('Show own hunger value'),
+    privs = { interact = true },
+    func = function (caller)
+        local player_hunger = f.get_data(caller, a.hunger_value)
+        local hunger_disabled = f.hunger_disabled(caller)
+        if hunger_disabled then
+            chat_send(caller, S('Your hunger is disabled'))
+        else
+            chat_send(caller, S('Your hunger value is @1', player_hunger))
+        end
+    end
+})
+