--[[

Beware the Dark [bewarethedark]
==========================

A mod where darkness simply kills you outright.

Copyright (C) 2015 Ben Deutsch <ben@bendeutsch.de>

License
-------

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301
USA

]]


bewarethedark = {

    -- configuration in bewarethedark.default.conf

    -- per-player-stash (not persistent)
    players = {
        --[[
        name = {
            pending_dmg = 0.0,
        }
        ]]
    },

    -- global things
    time_next_tick = 0.0,
}
local M = bewarethedark

if minetest.get_modpath("darklands") then
    dofile(minetest.get_modpath('bewarethedark')..'/darklands.lua')
end

dofile(minetest.get_modpath('bewarethedark')..'/configuration.lua')
local C = M.config

dofile(minetest.get_modpath('bewarethedark')..'/persistent_player_attributes.lua')
local PPA = M.persistent_player_attributes

dofile(minetest.get_modpath('bewarethedark')..'/hud.lua')

PPA.register({
    name = 'bewarethedark_sanity',
    min  = 0,
    max  = 20,
    default = 20,
})

minetest.register_on_joinplayer(function(player)
    local name = player:get_player_name()
    local pl = M.players[name]
    if not pl then
        M.players[name] = { pending_dmg = 0.0 }
        pl = M.players[name]
    end
    M.hud_init(player)
end)

minetest.register_on_respawnplayer(function(player)
    local name = player:get_player_name()
    local pl = M.players[name]
    pl.pending_dmg = 0.0
    local sanity = 20
    PPA.set_value(player, "bewarethedark_sanity", sanity)
    M.hud_update(player, sanity)
end)

minetest.register_globalstep(function(dtime)

    M.time_next_tick = M.time_next_tick - dtime
    while M.time_next_tick < 0.0 do
        M.time_next_tick = M.time_next_tick + C.tick_time
        for _,player in ipairs(minetest.get_connected_players()) do

            local do_damage = true -- damage happens by default

            -- don't damage dead players
            if player:get_hp() <= 0 then       
                do_damage = false
            end

            -- don't damage protected players
            if minetest.get_modpath("darklands") then
                local player_inv = player:get_inventory({name="dlspcinv"})
                if player_inv:contains_item("dlspcinv", ItemStack("darklands:night_safe 1")) then
                    do_damage = false
                end
            end

            if do_damage == true then
                local name = player:get_player_name()
                local pl = M.players[name]
                local pos  = player:getpos()
                local pos_y = pos.y
                -- the middle of the block with the player's head
                pos.y = math.floor(pos_y) + 1.5

                local light_now = minetest.get_node_light(pos) or 9

                local sanity = PPA.get_value(player, "bewarethedark_sanity")
                local overflow_factor = 1.0

                local dps = C.damage_for_light[light_now] * C.tick_time
                --print("Standing in " .. node.name .. " at light " .. light_now .. " taking " .. dps);

                if dps ~= 0 then
                    sanity = sanity - dps
                    --print("New sanity "..sanity)
                    if sanity < 0.0 and minetest.setting_getbool("enable_damage") then
                        -- how much of this tick is hp damage?
                        overflow_factor = (0.0 - sanity) / dps
                        sanity = 0.0
                    end

                    PPA.set_value(player, "bewarethedark_sanity", sanity)

                    M.hud_update(player, sanity)
                end

                -- if insane, hp damage applies
                if sanity <= 0.0 then
                    -- dps for HP potentially other than for sanity
                    dps = (C.insane_damage_for_light[light_now] or C.damage_for_light[light_now]) * C.tick_time * overflow_factor
                    if dps < 0.0 then dps = 0.0 end

                    pl.pending_dmg = pl.pending_dmg + dps

                    if pl.pending_dmg > 0.0 then
                        local dmg = math.floor(pl.pending_dmg)
                        --print("Deals "..dmg.." damage!")
                        pl.pending_dmg = pl.pending_dmg - dmg
                        player:set_hp( player:get_hp() - dmg )
                    end
                end
            end
        end
    end
end)