init.lua

   1 -- Hangglider mod for Minetest
   2 -- Original code by Piezo_ (orderofthefourthwall@gmail.com)
   3 -- 2018-11-14
   4
   5 -- Modifications by David G (kestral246@gmail.com)
   6 -- 2018-11-24
   7 -- For Minetest 5.x, glider's set_attach needs to be offset by 1 node
   8 --     Switch to alternate commented line below with correct offset.
   9 -- Additional tuning of parameters.
  10 -- Commented out debug hud display code, prefixed with "--debug:".
  11
  12 -- 2018-11-22
  13 -- Give visual indication that hangglider is equiped.
  14 --     Display simple overlay with blurred struts when equiped.
  15 --     Issue: don't know how to disable overlay in third person view.
  16 -- Also Unequip hangglider when landing on water.
  17 -- Attempt to linearize parabolic flight path.
  18 --     Start gravity stronger, but gradually reduce it as descent velocity increases.
  19 --     Don't use airstopper when equipped from the ground (descent velocity is low).
  20 --     Slightly increase flight speed to 1.25.
  21 -- Unequip/equip cycling mid-flight should not fly farther than continuous flight.
  22 --     When equipping mid-air (descent velocity higher), use airstopper but increase descent slope afterwards.
  23 --     Create airbreak flag so all equips mid-flight use faster descent.
  24 --     Reset airbreak flag only when land (canExist goes false).
  25 --     Issue: it wouldn't reset if land in water, use fly, and launch from air, before I added test for water,
  26 --            not sure if there are other such cases.
  27 -- Temporarily add hud debug display to show descent velocity, gravity override, and airbreak flag.
  28 --     Still in process of tuning all the parameters.
  29
  30
  31 -- Modifications by Piezo_
  32 -- 2018-11-25
  33 -- hud overlay and debug can be enabled/disabled
  34 -- Added blender-rendered overlay for struts using the actual model.
  35 -- Reduced airbreak penalty severity
  36 -- gave glider limited durability.
  37 -- Improved gravity adjustment function.
  38 -- Changed airbreaking process
  39 -- Removed airbreak penalty, as any 'advantage' seems minimal after new adjustments
  40 -- Removed airbreak until minetest devs are smart enough to implement better serverside players.
  41 -- Simplified liquid check.
  42
  43 -- Modifications by gpcf
  44 -- 2018-12-09
  45 -- get shot down while flying over protected areas marked as no-fly-zones (flak, from German Flugabwehrkanone)
  46 --  set these areas with the /area_flak command
  47
  48
  49
  50 local HUD_Overlay = true --show glider struts as overlay on HUD
  51 local debug = false --show debug info in top-center of hud
  52 local moveModelUp = false
  53 if tonumber(string.sub(minetest.get_version().string, 1, 1)) and tonumber(string.sub(minetest.get_version().string, 1, 1)) > 4 then
  54         moveModelUp = true
  55 end
  56 hangglider = {} --Make this global, so other mods can tell if hangglider exists.
  57 hangglider.use = {}
  58 if HUD_Overlay then
  59 hangglider.id = {}  -- hud id for displaying overlay with struts
  60 end
  61 if debug then  hangglider.debug = {} end -- hud id for debug data
  62 --hangglider.airbreak = {}  -- true if falling fast when equip
  63 --[[
  64 minetest.register_entity("hangglider:airstopper", { --A one-instant entity that catches the player and stops them.
  65         is_visible = false,
  66         physical = false,
  67         immortal = true,
  68         attach = nil,
  69         on_step = function(self, _)
  70                 local canExist = false
  71                 if self.attach then
  72                         local player = self.attach
  73                         if player:is_player() then
  74                                 local pname = player:get_player_name()
  75                                 canExist = true
  76                                 if player:get_player_velocity().y < 0.5 and player:get_player_velocity().y > -0.5 then
  77                                         --Let go when the player actually stops, as that's the whole point.
  78                                         if hangglider.use[pname] then
  79                                                 if moveModelUp then
  80                                                         minetest.add_entity(player:get_pos(), "hangglider:glider"):set_attach(player, "", {x=0,y=10,z=0}, {x=0,y=0,z=0})
  81                                                 else
  82                                                         minetest.add_entity(player:get_pos(), "hangglider:glider"):set_attach(player, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
  83                                                 end
  84                                         end
  85                                         canExist = false
  86                                 end
  87                         end
  88                         if not canExist then
  89                                 player:set_detach()
  90                         end
  91                 end
  92                 if not canExist then
  93                         self.object:remove()
  94                 end
  95         end
  96 })]]
  97
  98 if areas then
  99         hangglider.flak = true
 100         -- chat command definition essentially copied from areas mod.
 101         minetest.register_chatcommand("area_flak",{
 102                 params = "<ID>",
 103                 description = "Toggle airspace restrictions for area <ID>",
 104                 func = function(name, param)
 105                         local id = tonumber(param)
 106                         if not id then
 107                                 return false, "Invalid usage, see /help area_flak."
 108                         end
 109
 110                         if not areas:isAreaOwner(id, name) then
 111                                 return false, "Area "..id.." does not exist"
 112                                         .." or is not owned by you."
 113                         end
 114                         local open = not areas.areas[id].flak
 115                         -- Save false as nil to avoid inflating the DB.
 116                         areas.areas[id].flak = open or nil
 117                         areas:save()
 118                         return true, ("Area's airspace %s."):format(open and "closed" or "opened")
 119                 end
 120         })
 121 end
 122
 123 if minetestd and minetestd.services.gravityctl.enabled then
 124 minetestd.gravityctl.register_gravity_effect("hangglider",
 125         function(player)
 126                 return hangglider.use[player:get_player_name()]
 127         end,
 128         function(gravity, player)
 129                 local vel = player:get_player_velocity()
 130                 if debug then player:hud_change(hangglider.debug[pname].id, "text", vel.y..', '..player:get_physics_override().gravity..', '..tostring(hangglider.airbreak[pname])) end
 131                 return ((vel.y + 3)/20)
 132         end,
 133         7,
 134         1000
 135 )
 136 end
 137
 138 hangglider.can_fly = function (pname, pos)
 139         -- Checks if the player will get shot down at the position
 140         if minetest.is_protected(vector.round(pos), pname) then
 141                 if hangglider.flak then
 142                         for id, area in pairs(areas:getAreasAtPos(pos)) do
 143                                 if area.flak then
 144                                         return false
 145                                 end
 146                         end
 147                 end
 148         end
 149         return true
 150 end
 151
 152 hangglider.shot_sound = function (pos)
 153         minetest.sound_play("hangglider_flak_shot", {
 154                                                         pos = pos,
 155                                                         max_hear_distance = 30,
 156                                                         gain = 10.0,
 157         })
 158 end
 159
 160 local step_v
 161 minetest.register_entity("hangglider:glider", {
 162         visual = "mesh",
 163         visual_size = {x = 12, y = 12},
 164         mesh = "glider.obj",
 165         immortal = true,
 166         static_save = false,
 167         textures = {"wool_white.png","default_wood.png"},
 168         on_step = function(self, dtime)
 169                 local canExist = false
 170                 if self.object:get_attach() then
 171                         local player = self.object:get_attach("parent")
 172                         if player then
 173                                 local pos = player:getpos()
 174                                 local pname = player:get_player_name()
 175                                 if hangglider.use[pname] then
 176                                         local mrn_name = minetest.registered_nodes[minetest.get_node(vector.new(pos.x, pos.y-0.5, pos.z)).name]
 177                                         if mrn_name then
 178                                                 if not (mrn_name.walkable or mrn_name.liquidtype ~= "none") then
 179                                                         canExist = true
 180                                                         step_v = player:get_player_velocity().y
 181                                                         if step_v < 0 and step_v > -3 then
 182                                                                 player:set_physics_override({speed=math.abs(step_v/2) + 0.75})
 183                                                         elseif step_v <= -3 then --Cap our gliding movement speed.
 184                                                                 player:set_physics_override({speed=2.25})
 185                                                         else
 186                                                                 player:set_physics_override({speed=1})
 187                                                         end
 188                                                         if not minetestd then
 189                                                                 if debug then player:hud_change(hangglider.debug[pname].id, "text", step_v..', '..player:get_physics_override().gravity..', '..tostring(hangglider.airbreak[pname])) end
 190                                                                 player:set_physics_override({gravity=((step_v + 3)/20)})
 191                                                         end
 192                                                         --[[local vel = player:get_player_velocity()
 193                                                         if debug then player:hud_change(hangglider.debug[pname].id, "text", vel.y..', '..grav..', '..tostring(hangglider.airbreak[pname])) end
 194
 195                                                         player:set_physics_override({gravity = (vel.y + 2.0)/20})
 196                                                 ]]end
 197                                         end
 198                                 end
 199                                 if not hangglider.can_fly(pname,pos) then
 200                                     if not self.warned then -- warning shot
 201                                                 self.warned = 0
 202                                                 hangglider.shot_sound(pos)
 203                                                 minetest.chat_send_player(pname, "Protected area! You will be shot down in two seconds by anti-aircraft guns!")
 204                                     end
 205                                     self.warned = self.warned + dtime
 206                                     if self.warned > 2 then -- shoot down
 207                                                 player:set_hp(1)
 208                                                 player:get_inventory():remove_item("main", ItemStack("hangglider:hangglider"))
 209                                                 hangglider.shot_sound(pos)
 210                                                 canExist = false
 211                                     end
 212                                 end
 213                                 if not canExist then
 214                                         player:set_physics_override({
 215                                                 jump = 1,
 216                                                 speed = 1,
 217                                         })
 218                                         if not minetestd then
 219                                                 player:set_physics_override({gravity=1})
 220                                         end
 221                                         hangglider.use[pname] = false
 222                                         if HUD_Overlay then
 223                                         player:hud_change(hangglider.id[pname], "text", "blank.png")
 224                                         end
 225                                         --hangglider.airbreak[pname] = false
 226                                 end
 227                         end
 228                 end
 229                 if not canExist then
 230                         self.object:set_detach()
 231                         self.object:remove()
 232                 end
 233         end
 234 })
 235
 236 minetest.register_on_dieplayer(function(player)
 237         player:set_physics_override({
 238                 gravity = 1,
 239                 jump = 1,
 240         })
 241         hangglider.use[player:get_player_name()] = false
 242 end)
 243
 244
 245 minetest.register_on_joinplayer(function(player)
 246         local pname = player:get_player_name()
 247         player:set_physics_override({
 248                 gravity = 1,
 249                 jump = 1,
 250         })
 251         hangglider.use[pname] = false
 252         if HUD_Overlay then
 253         hangglider.id[pname] = player:hud_add({
 254                 hud_elem_type = "image",
 255                 text = "blank.png",
 256                 position = {x=0, y=0},
 257                 scale = {x=-100, y=-100},
 258                 alignment = {x=1, y=1},
 259                 offset = {x=0, y=0}
 260         }) end
 261         if debug then
 262                 hangglider.debug[pname] = {id = player:hud_add({hud_elem_type = "text",
 263                         position = {x=0.5, y=0.1},
 264                         text = "-",
 265                         number = 0xFF0000}),  -- red text
 266                         -- ht = {50,50,50},
 267                 }
 268         end
 269         --hangglider.airbreak[pname] = false
 270 end)
 271
 272 minetest.register_on_leaveplayer(function(player)
 273         local pname = player:get_player_name()
 274         hangglider.use[pname] = nil
 275         if HUD_Overlay then hangglider.id[pname] = nil end
 276         if debug then hangglider.debug[pname] = nil end
 277         --hangglider.airbreak[pname] = nil
 278 end)
 279
 280 minetest.register_tool("hangglider:hangglider", {
 281         description = "Glider",
 282         inventory_image = "glider_item.png",
 283         stack_max=1,
 284         on_use = function(itemstack, player, pointed_thing)
 285                 if not player then
 286                         return
 287                 end
 288                 local pos = player:get_pos()
 289                 local pname = player:get_player_name()
 290                 if minetest.get_node(pos).name == "air" and not hangglider.use[pname] then --Equip
 291                         minetest.sound_play("bedsheet", {pos=pos, max_hear_distance = 8, gain = 1.0})
 292                         if HUD_Overlay then player:hud_change(hangglider.id[pname], "text", "glider_struts.png") end
 293                         local airbreak = false
 294                         local vel = player:get_player_velocity().y
 295                         --[[if vel < -1.5 then  -- engage mid-air, falling fast, so stop but ramp velocity more quickly
 296                                 --hangglider.airbreak[pname] = true
 297                                 airbreak = true
 298                                 local stopper = minetest.add_entity(pos, "hangglider:airstopper")
 299                                 minetest.after(0, function(stopper, player) --"Extreme Measures"
 300                                         stopper:set_pos(player:get_pos())
 301                                         stopper:get_luaentity().attach = player
 302                                         player:set_attach( stopper, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
 303                                 end, stopper, player)
 304                         end]]
 305                         if not airbreak then
 306                                 if moveModelUp then
 307                                         minetest.add_entity(pos, "hangglider:glider"):set_attach(player, "", {x=0,y=10,z=0}, {x=0,y=0,z=0})
 308                                 else
 309                                         minetest.add_entity(pos, "hangglider:glider"):set_attach(player, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
 310                                 end
 311                         end
 312                         hangglider.use[pname] = true
 313                         player:set_physics_override({jump = 0})
 314                         -- if minetest 0.4.x use this:
 315
 316                         -- if minetest 5.x use this:
 317                         -- minetest.add_entity(player:get_pos(), "hangglider:glider"):set_attach(player, "", {x=0,y=10,z=0}, {x=0,y=0,z=0})
 318                         itemstack:set_wear(itemstack:get_wear() + 255)
 319                         return itemstack
 320                 elseif hangglider.use[pname] then --Unequip
 321                         if HUD_Overlay then player:hud_change(hangglider.id[pname], "text", "default_wood.png^[colorize:#0000:255") end
 322                         hangglider.use[pname] = false
 323                 end
 324         end,
 325         sound = {breaks = "default_tool_breaks"},
 326 })
 327
 328 minetest.register_craft({
 329         type = "shapeless",
 330         output = "hangglider:hangglider",
 331         recipe = {"default:paper", "default:paper", "default:paper", "default:paper", "hangglider:hangglider", "default:paper", "default:paper", "default:paper", "default:paper"},
 332 })
 333
 334 minetest.register_craft({
 335         output = "hangglider:hangglider",
 336         recipe = {
 337                 {"wool:white", "wool:white", "wool:white"},
 338                 {"default:stick", "", "default:stick"},
 339                 {"", "default:stick", ""},
 340         }
 341 })