mods/new_functions/init.lua

   1 local get_group = minetest.get_node_group
   2 local registered_nodes
   3 local get_node = minetest.get_node
   4 --add nodes that hurt the player into the touch hurt table
   5 local hurt_nodes = {}
   6 minetest.register_on_mods_loaded(function()
   7         for _,def in pairs(minetest.registered_nodes) do
   8                 if get_group(def.name, "touch_hurt") > 0 then
   9                         table.insert(hurt_nodes,def.name)
  10                 end
  11         end
  12         registered_nodes = minetest.registered_nodes
  13 end)
  14
  15 --handle nodes around, inside, and above
  16 local player_surroundings_index_table = {}
  17
  18 --add the player to the index table when they join and remove when they leave
  19 minetest.register_on_joinplayer(function(player)
  20         local name = player:get_player_name()
  21         player_surroundings_index_table[name] = {}
  22 end)
  23
  24 minetest.register_on_leaveplayer(function(player)
  25         local name = player:get_player_name()
  26         player_surroundings_index_table[name] = nil
  27 end)
  28 --reset their drowning settings
  29 --minetest.register_on_dieplayer(function(ObjectRef, reason))
  30
  31
  32 --handle touching hurt
  33 local player_pos
  34
  35 local c_pos
  36
  37 local temp_hurt
  38 local x1
  39 local y1
  40 local z1
  41
  42 local xcompare
  43 local ycompare
  44 local zcompare
  45
  46 local c_player
  47
  48 local subval = vector.subtract
  49
  50 local abs_it = math.abs
  51 local floor_it = math.floor
  52
  53 local heart
  54
  55 local function handle_hurt(player)
  56         if player:get_hp() > 0 then
  57                 player_pos = player:get_pos()
  58                 name = player:get_player_name()
  59                 temp_hurt = player_surroundings_index_table[name].hurt
  60                 if temp_hurt then
  61                         c_pos = temp_hurt.pos
  62                         x1 = floor_it(abs_it(player_pos.x-c_pos.x)*100)
  63                         y1 = floor_it(abs_it(player_pos.y-c_pos.y)*100)
  64                         z1 = floor_it(abs_it(player_pos.z-c_pos.z)*100)
  65                         --we will assume the player cbox is equal as x=0.8,y=0.5,z=0.8
  66                         if x1 <= 80 and z1 <= 80 and y1 <= 50 then
  67                                 heart = player:get_hp()
  68                                 player:set_hp(heart - player_surroundings_index_table[name].hurt.hurt_amount)
  69                                 return(true)
  70                         end
  71                 end
  72         end
  73         return(false)
  74 end
  75
  76 --handle inside hurt
  77 local c_player
  78 local heart
  79 local legs
  80 local head
  81 local hurt_more
  82
  83 local function handle_hurt_inside(player)
  84         if player:get_hp() > 0 then
  85                 player_pos = player:get_pos()
  86                 name = player:get_player_name()
  87                 legs = player_surroundings_index_table[name].legs
  88                 head = player_surroundings_index_table[name].head
  89                 if legs and head then
  90                         hurt_more = get_group(legs, "hurt_inside")
  91                         if get_group(head, "hurt_inside") > hurt_more then
  92                                 hurt_more = get_group(head, "hurt_inside")
  93                         end
  94
  95                         heart = player:get_hp()
  96                         player:set_hp(heart - hurt_more)
  97                         return(true)
  98                 end
  99         end
 100         return(false)
 101 end
 102
 103 --handle player suffocating inside solid node
 104 local c_player
 105 local heart
 106 local legs
 107 local head
 108 local hurt_more
 109 local drawy
 110 local legs
 111 local function handle_player_suffocation(player)
 112         if player:get_hp() > 0 then
 113                 player_pos = player:get_pos()
 114                 name = player:get_player_name()
 115                 head = player_surroundings_index_table[name].head
 116
 117                 if head and registered_nodes[head] then
 118
 119                         drawy = registered_nodes[head].drawtype
 120
 121                         if drawy == "normal" then
 122                                 legs = player_surroundings_index_table[name].legs
 123                                 if legs ~= "aether:portal" and legs ~= "nether:portal" then
 124                                         heart = player:get_hp()
 125                                         player:set_hp(heart - 1)
 126                                         return(true)
 127                                 end
 128                         end
 129                 end
 130         end
 131         return(false)
 132 end
 133
 134
 135 --index specific things in area
 136 --declare here for ultra extreme efficiency
 137 local get_node = minetest.get_node
 138 local pos
 139 local node
 140 local name
 141 local damage_pos
 142 local collisionbox
 143 local a_min
 144 local a_max
 145 local v_add = vector.add
 146 local v_sub = vector.subtract
 147 local get_number = table.getn
 148 local hurt_amount
 149 local gotten_node
 150 local function index_players_surroundings()
 151         for _,player in ipairs(minetest.get_connected_players()) do
 152                 if player:get_hp() > 0 then
 153                         --if not dead begin index
 154                         name = player:get_player_name()
 155                         pos = player:get_pos()
 156
 157                         --under player position (useful for walking on hot stuff)
 158                         pos.y = pos.y - 0.1
 159                         player_surroundings_index_table[name].under = get_node(pos).name
 160
 161                         --at legs position (useful for pushing a player up)
 162                         pos.y = pos.y + 0.6
 163                         player_surroundings_index_table[name].legs = get_node(pos).name
 164
 165                         --at camera/head position (useful for drowning/being trapped inside node)
 166
 167                         pos.y = pos.y + 0.940
 168                         player_surroundings_index_table[name].head = get_node(pos).name
 169
 170                         handle_player_suffocation(player)
 171                         handle_hurt_inside(player)
 172
 173                         --used for finding a damage node next to the player (centered at player's waist)
 174                         pos.y = pos.y - 0.74
 175                         a_min = v_sub(pos,1)
 176                         a_max = v_add(pos,1)
 177                         damage_pos = minetest.find_nodes_in_area(a_min, a_max, hurt_nodes)
 178
 179                         if get_number(damage_pos) > 0 then
 180                                 for _,found_location in ipairs(damage_pos) do
 181                                         gotten_node = get_node(found_location).name
 182                                         collisionbox = registered_nodes[gotten_node].collision_box
 183                                         hurt_amount = get_group(gotten_node, "touch_hurt")
 184
 185                                         if not collisionbox then
 186                                                 collisionbox = {-0.5,-0.5,-0.5,0.5,0.5,0.5}
 187                                         end
 188                                         player_surroundings_index_table[name].hurt = {pos=found_location,collisionbox=collisionbox,hurt_amount=hurt_amount}
 189                                         --stop doing damage on player if they got hurt
 190                                         if handle_hurt(player) == true then
 191                                                 break
 192                                         end
 193                                 end
 194                         else
 195                                 collisionbox = nil
 196                                 player_surroundings_index_table[name].hurt = nil
 197                         end
 198
 199                 end
 200         end
 201         --4 times a second server tick
 202         minetest.after(0.25, function()
 203                 index_players_surroundings()
 204         end)
 205 end
 206
 207 index_players_surroundings() --begin
 208
 209
 210 --completely destroy the breath bar
 211 minetest.hud_replace_builtin("breath",{
 212         hud_elem_type = "statbar",
 213         position = {x = 0.5, y = 1},
 214         text = "nothing.png",
 215         number = 50000,
 216         direction = 0,
 217         size = {x = 24, y = 24},
 218         offset = {x = 25, y= -(48 + 24 + 16)},
 219 })
 220
 221 minetest.register_on_joinplayer(function(player)
 222         player:hud_set_flags({breathbar=false})
 223
 224         local meta = player:get_meta()
 225         --give players new breath when they join
 226         meta:set_int("breath", 10)
 227         player:hud_add({
 228                 hud_elem_type = "statbar",
 229                 position = {x = 0.5, y = 1},
 230                 text = "bubble_bg.png",
 231                 number = 20,
 232                 direction = 1,
 233                 size = {x = 24, y = 24},
 234                 offset = {x = 24*10, y= -(48 + 24 + 39)},
 235         })
 236         local bubble_id = player:hud_add({
 237                 hud_elem_type = "statbar",
 238                 position = {x = 0.5, y = 1},
 239                 text = "bubble.png",
 240                 number = 20,
 241                 direction = 1,
 242                 size = {x = 24, y = 24},
 243                 offset = {x = 24*10, y= -(48 + 24 + 39)},
 244         })
 245         meta:set_int("breathbar", bubble_id)
 246 end)
 247
 248 --begin custom breathbar
 249 local name
 250 local indexer
 251 --handle the breath bar
 252 local function fix_breath_hack()
 253         for _,player in ipairs(minetest.get_connected_players()) do
 254                 player:set_breath(50000)
 255                 name = player:get_player_name()
 256                 indexer = player_surroundings_index_table[name].head
 257
 258                 local meta = player:get_meta()
 259                 local ticker = meta:get_int("breath_ticker")
 260
 261                 ticker = ticker + 1
 262                 if ticker > 1 then ticker = 0 end
 263                 meta:set_int("breath_ticker", ticker)
 264
 265                 if indexer == "main:water" or indexer == "main:waterflow" then
 266                         local breath = meta:get_int("breath")
 267                         local breathbar = meta:get_int("breathbar")
 268                         breath = breath - 1
 269
 270                         if breath >= 0 and ticker == 1 then
 271                                 meta:set_int("breath", breath)
 272                                 player:hud_change(breathbar, "number", breath*2)
 273                         end
 274                         if meta:get_int("breath") <= 0 then
 275                                 local hp =  player:get_hp()
 276                                 if hp > 0 then
 277                                         player:set_hp(hp-1)
 278                                 end
 279                         end
 280                 else --reset the bar
 281                         meta:set_int("breath", 10)
 282                         local breathbar = meta:get_int("breathbar")
 283                         player:hud_change(breathbar, "number", 20)
 284                 end
 285         end
 286
 287         minetest.after(0.5, function()
 288                 fix_breath_hack()
 289         end)
 290 end
 291
 292 fix_breath_hack()