mods/beds/functions.lua

   1 local pi = math.pi
   2 local player_in_bed = 0
   3 local is_sp = minetest.is_singleplayer()
   4 local enable_respawn = minetest.setting_getbool("enable_bed_respawn")
   5 if enable_respawn == nil then
   6         enable_respawn = true
   7 end
   8
   9 -- Helper functions
  10
  11 local function get_look_yaw(pos)
  12         local n = minetest.get_node(pos)
  13         if n.param2 == 1 then
  14                 return pi / 2, n.param2
  15         elseif n.param2 == 3 then
  16                 return -pi / 2, n.param2
  17         elseif n.param2 == 0 then
  18                 return pi, n.param2
  19         else
  20                 return 0, n.param2
  21         end
  22 end
  23
  24 local function is_night_skip_enabled()
  25         local enable_night_skip = minetest.setting_getbool("enable_bed_night_skip")
  26         if enable_night_skip == nil then
  27                 enable_night_skip = true
  28         end
  29         return enable_night_skip
  30 end
  31
  32 local function check_in_beds(players)
  33         local in_bed = beds.player
  34         if not players then
  35                 players = minetest.get_connected_players()
  36         end
  37
  38         for n, player in ipairs(players) do
  39                 local name = player:get_player_name()
  40                 if not in_bed[name] then
  41                         return false
  42                 end
  43         end
  44
  45         return #players > 0
  46 end
  47
  48 local function lay_down(player, pos, bed_pos, state, skip)
  49         local name = player:get_player_name()
  50         local hud_flags = player:hud_get_flags()
  51
  52         if not player or not name then
  53                 return
  54         end
  55
  56         -- stand up
  57         if state ~= nil and not state then
  58                 local p = beds.pos[name] or nil
  59                 if beds.player[name] ~= nil then
  60                         beds.player[name] = nil
  61                         player_in_bed = player_in_bed - 1
  62                 end
  63                 -- skip here to prevent sending player specific changes (used for leaving players)
  64                 if skip then
  65                         return
  66                 end
  67                 if p then
  68                         player:setpos(p)
  69                 end
  70
  71                 -- physics, eye_offset, etc
  72                 player:set_eye_offset({x = 0, y = 0, z = 0}, {x = 0, y = 0, z = 0})
  73                 player:set_look_yaw(math.random(1, 180) / 100)
  74                 default.player_attached[name] = false
  75                 player:set_physics_override(1, 1, 1)
  76                 hud_flags.wielditem = true
  77                 default.player_set_animation(player, "stand" , 30)
  78
  79         -- lay down
  80         else
  81                 beds.player[name] = 1
  82                 beds.pos[name] = pos
  83                 player_in_bed = player_in_bed + 1
  84
  85                 -- physics, eye_offset, etc
  86                 player:set_eye_offset({x = 0, y = -13, z = 0}, {x = 0, y = 0, z = 0})
  87                 local yaw, param2 = get_look_yaw(bed_pos)
  88                 player:set_look_yaw(yaw)
  89                 local dir = minetest.facedir_to_dir(param2)
  90                 local p = {x = bed_pos.x + dir.x / 2, y = bed_pos.y, z = bed_pos.z + dir.z / 2}
  91                 player:set_physics_override(0, 0, 0)
  92                 player:setpos(p)
  93                 default.player_attached[name] = true
  94                 hud_flags.wielditem = false
  95                 default.player_set_animation(player, "lay" , 0)
  96         end
  97
  98         player:hud_set_flags(hud_flags)
  99 end
 100
 101 local function update_formspecs(finished)
 102         local ges = #minetest.get_connected_players()
 103         local form_n
 104         local is_majority = (ges / 2) < player_in_bed
 105
 106         if finished then
 107                 form_n = beds.formspec .. "label[2.7,11; Good morning.]"
 108         else
 109                 form_n = beds.formspec .. "label[2.2,11;" .. tostring(player_in_bed) ..
 110                         " of " .. tostring(ges) .. " players are in bed]"
 111                 if is_majority and is_night_skip_enabled() then
 112                         form_n = form_n .. "button_exit[2,8;4,0.75;force;Force night skip]"
 113                 end
 114         end
 115
 116         for name,_ in pairs(beds.player) do
 117                 minetest.show_formspec(name, "beds_form", form_n)
 118         end
 119 end
 120
 121
 122 -- Public functions
 123
 124 function beds.kick_players()
 125         for name, _ in pairs(beds.player) do
 126                 local player = minetest.get_player_by_name(name)
 127                 lay_down(player, nil, nil, false)
 128         end
 129 end
 130
 131 function beds.skip_night()
 132         minetest.set_timeofday(0.23)
 133 end
 134
 135 function beds.on_rightclick(pos, player)
 136         local name = player:get_player_name()
 137         local ppos = player:getpos()
 138         local tod = minetest.get_timeofday()
 139
 140         if tod > 0.2 and tod < 0.805 then
 141                 if beds.player[name] then
 142                         lay_down(player, nil, nil, false)
 143                 end
 144                 minetest.chat_send_player(name, "You can only sleep at night.")
 145                 return
 146         end
 147
 148         -- move to bed
 149         if not beds.player[name] then
 150                 lay_down(player, ppos, pos)
 151                 beds.set_spawns() -- save respawn positions when entering bed
 152         else
 153                 lay_down(player, nil, nil, false)
 154         end
 155
 156         if not is_sp then
 157                 update_formspecs(false)
 158         end
 159
 160         -- skip the night and let all players stand up
 161         if check_in_beds() then
 162                 minetest.after(2, function()
 163                         if not is_sp then
 164                                 update_formspecs(is_night_skip_enabled())
 165                         end
 166                         if is_night_skip_enabled() then
 167                                 beds.skip_night()
 168                                 beds.kick_players()
 169                         end
 170                 end)
 171         end
 172 end
 173
 174
 175 -- Callbacks
 176
 177 -- respawn player at bed if enabled and valid position is found
 178 minetest.register_on_respawnplayer(function(player)
 179         if not enable_respawn then
 180                 return false
 181         end
 182         local name = player:get_player_name()
 183         local pos = beds.spawn[name] or nil
 184         if pos then
 185                 player:setpos(pos)
 186                 return true
 187         end
 188 end)
 189
 190 minetest.register_on_leaveplayer(function(player)
 191         local name = player:get_player_name()
 192         lay_down(player, nil, nil, false, true)
 193         beds.player[name] = nil
 194         if check_in_beds() then
 195                 minetest.after(2, function()
 196                         update_formspecs(is_night_skip_enabled())
 197                         if is_night_skip_enabled() then
 198                                 beds.skip_night()
 199                                 beds.kick_players()
 200                         end
 201                 end)
 202         end
 203 end)
 204
 205 minetest.register_on_player_receive_fields(function(player, formname, fields)
 206         if formname ~= "beds_form" then
 207                 return
 208         end
 209         if fields.quit or fields.leave then
 210                 lay_down(player, nil, nil, false)
 211                 update_formspecs(false)
 212         end
 213
 214         if fields.force then
 215                 update_formspecs(is_night_skip_enabled())
 216                 if is_night_skip_enabled() then
 217                         beds.skip_night()
 218                         beds.kick_players()
 219                 end
 220         end
 221 end)