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 -- Modifications by SpaghettiToastBook
  49 -- 2018-12-29
  50 -- Physics overrides use player_monoids mod if available
  51
  52
  53
  54 local HUD_Overlay = true --show glider struts as overlay on HUD
  55 local debug = false --show debug info in top-center of hud
  56 local moveModelUp = false
  57 if tonumber(string.sub(minetest.get_version().string, 1, 1)) and tonumber(string.sub(minetest.get_version().string, 1, 1)) > 4 then
  58         moveModelUp = true
  59 end
  60 hangglider = {} --Make this global, so other mods can tell if hangglider exists.
  61 hangglider.use = {}
  62 if HUD_Overlay then
  63 hangglider.id = {}  -- hud id for displaying overlay with struts
  64 end
  65 if debug then  hangglider.debug = {} end -- hud id for debug data
  66 --hangglider.airbreak = {}  -- true if falling fast when equip
  67 --[[
  68 minetest.register_entity("hangglider:airstopper", { --A one-instant entity that catches the player and stops them.
  69         is_visible = false,
  70         physical = false,
  71         immortal = true,
  72         attach = nil,
  73         on_step = function(self, _)
  74                 local canExist = false
  75                 if self.attach then
  76                         local player = self.attach
  77                         if player:is_player() then
  78                                 local pname = player:get_player_name()
  79                                 canExist = true
  80                                 if player:get_player_velocity().y < 0.5 and player:get_player_velocity().y > -0.5 then
  81                                         --Let go when the player actually stops, as that's the whole point.
  82                                         if hangglider.use[pname] then
  83                                                 if moveModelUp then
  84                                                         minetest.add_entity(player:get_pos(), "hangglider:glider"):set_attach(player, "", {x=0,y=10,z=0}, {x=0,y=0,z=0})
  85                                                 else
  86                                                         minetest.add_entity(player:get_pos(), "hangglider:glider"):set_attach(player, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
  87                                                 end
  88                                         end
  89                                         canExist = false
  90                                 end
  91                         end
  92                         if not canExist then
  93                                 player:set_detach()
  94                         end
  95                 end
  96                 if not canExist then
  97                         self.object:remove()
  98                 end
  99         end
 100 })]]
 101
 102 if core.global_exists("areas") then
 103         hangglider.flak = true
 104         -- chat command definition essentially copied from areas mod.
 105         minetest.register_chatcommand("area_flak",{
 106                 params = "<ID>",
 107                 description = "Toggle airspace restrictions for area <ID>",
 108                 func = function(name, param)
 109                         local id = tonumber(param)
 110                         if not id then
 111                                 return false, "Invalid usage, see /help area_flak."
 112                         end
 113
 114                         if not areas:isAreaOwner(id, name) then
 115                                 return false, "Area "..id.." does not exist"
 116                                         .." or is not owned by you."
 117                         end
 118                         local open = not areas.areas[id].flak
 119                         -- Save false as nil to avoid inflating the DB.
 120                         areas.areas[id].flak = open or nil
 121                         areas:save()
 122                         return true, ("Area's airspace %s."):format(open and "closed" or "opened")
 123                 end
 124         })
 125 end
 126
 127 if core.global_exists("minetestd") and minetestd.services.physicsctl.enabled then
 128 minetestd.physicsctl.register_physics_effect("hangglider",
 129         function(player) -- check
 130                 return hangglider.use[player:get_player_name()]
 131         end,
 132         function(phys, player) -- blend
 133                 local vel_y = player:get_player_velocity().y
 134                 if debug then player:hud_change(hangglider.debug[pname].id, "text", vel_y..', '..player:get_physics_override().gravity..', '..tostring(hangglider.airbreak[pname])) end
 135                 phys.gravity = phys.gravity*((vel_y + 3)/20)
 136                 if vel_y < 0 and vel_y > -3 then
 137                         phys.speed = (math.abs(vel_y/2) + 0.75)
 138                 elseif vel_y <= -3 then --Cap our gliding movement speed.
 139                         phys.speed = 2.25
 140                 end
 141                 phys.jump = 0
 142         end,
 143         7 -- effect order
 144 )
 145 end
 146
 147 hangglider.can_fly = function (pname, pos)
 148         -- Checks if the player will get shot down at the position
 149         if wardzones then
 150                 local zone = wardzones.getZone(pos)
 151                 if zone then
 152                         return (minetest.check_player_privs(pname, {protection_bypass=true}) or wardzones.checkPlayerZoneAccess(pname, zone) or not zone["data"]["no_fly"])
 153                 end
 154         end
 155         if areas and minetest.is_protected(vector.round(pos), pname) then
 156                 if hangglider.flak then
 157                         for id, area in pairs(areas:getAreasAtPos(pos)) do
 158                                 if area.flak then
 159                                         return false
 160                                 end
 161                         end
 162                 end
 163         end
 164         return true
 165 end
 166
 167 hangglider.shot_sound = function (pos)
 168         minetest.sound_play("hangglider_flak_shot", {
 169                 pos = pos,
 170                 max_hear_distance = 30,
 171                 gain = 10.0,
 172         })
 173 end
 174
 175 local function set_fast(name, value)
 176         local privs = minetest.get_player_privs(name)
 177         privs.fast = value
 178         minetest.set_player_privs(name, privs)
 179 end
 180
 181 local physics_attrs = {"jump", "speed", "gravity"}
 182 local function apply_physics_override(player, overrides)
 183         if player_monoids then
 184                 for _, attr in pairs(physics_attrs) do
 185                         if overrides[attr] then
 186                                 player_monoids[attr]:add_change(player, overrides[attr], "hangglider:glider")
 187                         end
 188                 end
 189         else
 190                 player:set_physics_override(overrides)
 191         end
 192         if minetest.settings:get_bool("hangglider_no_fast") then
 193                 set_fast(player:get_player_name(), nil)
 194         end
 195 end
 196
 197 local function remove_physics_override(player, overrides)
 198         for _, attr in pairs(physics_attrs) do
 199                 if overrides[attr] then
 200                         if core.global_exists("player_monoids") then
 201                                 player_monoids[attr]:del_change(player, "hangglider:glider")
 202                         else
 203                                 player:set_physics_override({[attr] = 1})
 204                         end
 205                 end
 206         end
 207         set_fast(player:get_player_name(), true)
 208 end
 209
 210 local step_v
 211 minetest.register_entity("hangglider:glider", {
 212         visual = "mesh",
 213         visual_size = {x = 12, y = 12},
 214         collisionbox = {0,0,0,0,0,0},
 215         mesh = "glider.obj",
 216         immortal = true,
 217         static_save = false,
 218         textures = {"wool_white.png","default_wood.png"},
 219         on_step = function(self, dtime)
 220                 local canExist = false
 221                 if self.object:get_attach() then
 222                         local player = self.object:get_attach("parent")
 223                         if player then
 224                                 local pos = player:getpos()
 225                                 local pname = player:get_player_name()
 226                                 if hangglider.use[pname] then
 227                                         local mrn_name = minetest.registered_nodes[minetest.get_node(vector.new(pos.x, pos.y-0.5, pos.z)).name]
 228                                         if mrn_name then
 229                                                 if not (mrn_name.walkable or mrn_name.liquidtype ~= "none") then
 230                                                         canExist = true
 231
 232                                                         if not minetestd then
 233                                                                 step_v = player:get_player_velocity().y
 234                                                                 if step_v < 0 and step_v > -3 then
 235                                                                         apply_physics_override(player, {speed=math.abs(step_v/2) + 0.75})
 236                                                                 elseif step_v <= -3 then --Cap our gliding movement speed.
 237                                                                         apply_physics_override(player, {speed=2.25})
 238                                                                 else
 239                                                                         remove_physics_override(player, {speed=1})
 240                                                                 end
 241                                                                 if debug then player:hud_change(hangglider.debug[pname].id, "text", step_v..', '..player:get_physics_override().gravity..', '..tostring(hangglider.airbreak[pname])) end
 242                                                                 apply_physics_override(player, {gravity=((step_v + 3)/20)})
 243                                                         end
 244                                                         --[[local vel = player:get_player_velocity()
 245                                                         if debug then player:hud_change(hangglider.debug[pname].id, "text", vel.y..', '..grav..', '..tostring(hangglider.airbreak[pname])) end
 246
 247                                                         player:set_physics_override({gravity = (vel.y + 2.0)/20})
 248                                                 ]]end
 249                                         end
 250                                 end
 251                                 if not hangglider.can_fly(pname,pos) then
 252                                         if not self.warned then -- warning shot
 253                                                 self.warned = 0
 254                                                 hangglider.shot_sound(pos)
 255                                                 minetest.chat_send_player(pname, "Protected area! You will be shot down in two seconds by anti-aircraft guns!")
 256                                         end
 257                                         self.warned = self.warned + dtime
 258                                         if self.warned > 2 then -- shoot down
 259                                                 player:set_hp(1)
 260                                                 player:get_inventory():remove_item("main", ItemStack("hangglider:hangglider"))
 261                                                 hangglider.shot_sound(pos)
 262                                                 canExist = false
 263                                         end
 264                                 end
 265                                 if not canExist then
 266
 267                                         if not minetestd then
 268                                                 remove_physics_override(player, {
 269                                                 gravity=1,
 270                                                 jump = 1,
 271                                                 speed = 1,})
 272                                         end
 273                                         hangglider.use[pname] = false
 274                                         if HUD_Overlay then
 275                                         player:hud_change(hangglider.id[pname], "text", "blank.png")
 276                                         end
 277                                         --hangglider.airbreak[pname] = false
 278                                 end
 279                         end
 280                 end
 281                 if not canExist then
 282                         self.object:set_detach()
 283                         self.object:remove()
 284                 end
 285         end
 286 })
 287
 288 minetest.register_on_dieplayer(function(player)
 289         remove_physics_override(player, {
 290                 gravity = 1,
 291                 jump = 1,
 292         })
 293         hangglider.use[player:get_player_name()] = false
 294 end)
 295
 296
 297 minetest.register_on_joinplayer(function(player)
 298         local pname = player:get_player_name()
 299         remove_physics_override(player, {
 300                 gravity = 1,
 301                 jump = 1,
 302         })
 303         hangglider.use[pname] = false
 304         if HUD_Overlay then
 305         hangglider.id[pname] = player:hud_add({
 306                 hud_elem_type = "image",
 307                 text = "blank.png",
 308                 position = {x=0, y=0},
 309                 scale = {x=-100, y=-100},
 310                 alignment = {x=1, y=1},
 311                 offset = {x=0, y=0}
 312         }) end
 313         if debug then
 314                 hangglider.debug[pname] = {id = player:hud_add({hud_elem_type = "text",
 315                         position = {x=0.5, y=0.1},
 316                         text = "-",
 317                         number = 0xFF0000}),  -- red text
 318                         -- ht = {50,50,50},
 319                 }
 320         end
 321         --hangglider.airbreak[pname] = false
 322 end)
 323
 324 minetest.register_on_leaveplayer(function(player)
 325         local pname = player:get_player_name()
 326         hangglider.use[pname] = nil
 327         if HUD_Overlay then hangglider.id[pname] = nil end
 328         if debug then hangglider.debug[pname] = nil end
 329         --hangglider.airbreak[pname] = nil
 330 end)
 331
 332 minetest.register_tool("hangglider:hangglider", {
 333         description = "Glider",
 334         inventory_image = "glider_item.png",
 335         stack_max=1,
 336         on_use = function(itemstack, player, pointed_thing)
 337                 if not player then
 338                         return
 339                 end
 340                 local pos = player:get_pos()
 341                 local pname = player:get_player_name()
 342                 if not hangglider.use[pname] then --Equip
 343                         minetest.sound_play("bedsheet", {pos=pos, max_hear_distance = 8, gain = 1.0})
 344                         if HUD_Overlay then player:hud_change(hangglider.id[pname], "text", "glider_struts.png") end
 345                         local airbreak = false
 346                         local vel = player:get_player_velocity().y
 347                         --[[if vel < -1.5 then  -- engage mid-air, falling fast, so stop but ramp velocity more quickly
 348                                 --hangglider.airbreak[pname] = true
 349                                 airbreak = true
 350                                 local stopper = minetest.add_entity(pos, "hangglider:airstopper")
 351                                 minetest.after(0, function(stopper, player) --"Extreme Measures"
 352                                         stopper:set_pos(player:get_pos())
 353                                         stopper:get_luaentity().attach = player
 354                                         player:set_attach( stopper, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
 355                                 end, stopper, player)
 356                         end]]
 357                         if not airbreak then
 358                                 if moveModelUp then
 359                                         minetest.add_entity(pos, "hangglider:glider"):set_attach(player, "", {x=0,y=10,z=0}, {x=0,y=0,z=0})
 360                                 else
 361                                         minetest.add_entity(pos, "hangglider:glider"):set_attach(player, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
 362                                 end
 363                         end
 364                         hangglider.use[pname] = true
 365                         apply_physics_override(player, {jump = 0})
 366                         -- if minetest 0.4.x use this:
 367
 368                         -- if minetest 5.x use this:
 369                         -- minetest.add_entity(player:get_pos(), "hangglider:glider"):set_attach(player, "", {x=0,y=10,z=0}, {x=0,y=0,z=0})
 370                         itemstack:set_wear(itemstack:get_wear() + 255)
 371                         return itemstack
 372                 elseif hangglider.use[pname] then --Unequip
 373                         if HUD_Overlay then player:hud_change(hangglider.id[pname], "text", "default_wood.png^[colorize:#0000:255") end
 374                         hangglider.use[pname] = false
 375                 end
 376         end,
 377         sound = {breaks = "default_tool_breaks"},
 378 })
 379
 380 minetest.register_craft({
 381         type = "shapeless",
 382         output = "hangglider:hangglider",
 383         recipe = {"default:paper", "default:paper", "default:paper", "default:paper", "hangglider:hangglider", "default:paper", "default:paper", "default:paper", "default:paper"},
 384 })
 385
 386 minetest.register_craft({
 387         output = "hangglider:hangglider",
 388         recipe = {
 389                 {"wool:white", "wool:white", "wool:white"},
 390                 {"default:stick", "", "default:stick"},
 391                 {"", "default:stick", ""},
 392         }
 393 })