mods/ITEMS/mcl_bows/bow.lua

   1 mcl_bows = {}
   2
   3 local arrows = {
   4         ["mcl_bows:arrow"] = "mcl_bows:arrow_entity",
   5 }
   6
   7 local GRAVITY = 9.81
   8 local BOW_DURABILITY = 385
   9
  10 -- Charging time in microseconds
  11 local BOW_CHARGE_TIME_HALF = 500000 -- bow level 1
  12 local BOW_CHARGE_TIME_FULL = 1000000 -- bow level 2 (full charge)
  13
  14 -- Factor to multiply with player speed while player uses bow
  15 -- This emulates the sneak speed.
  16 local PLAYER_USE_BOW_SPEED = tonumber(minetest.settings:get("movement_speed_crouch")) / tonumber(minetest.settings:get("movement_speed_walk"))
  17
  18 -- TODO: Use Minecraft speed (ca. 53 m/s)
  19 -- Currently nerfed because at full speed the arrow would easily get out of the range of the loaded map.
  20 local BOW_MAX_SPEED = 26
  21
  22 --[[ Store the charging state of each player.
  23 keys: player name
  24 value:
  25 nil = not charging or player not existing
  26 number: currently charging, the number is the time from minetest.get_us_time
  27              in which the charging has started
  28 ]]
  29 local bow_load = {}
  30
  31 -- Another player table, this one stores the wield index of the bow being charged
  32 local bow_index = {}
  33
  34 mcl_bows.shoot_arrow = function(arrow_item, pos, dir, yaw, shooter, power, damage)
  35         local obj = minetest.add_entity({x=pos.x,y=pos.y,z=pos.z}, arrows[arrow_item])
  36         if power == nil then
  37                 power = 19
  38         end
  39         if damage == nil then
  40                 damage = 3
  41         end
  42         obj:set_velocity({x=dir.x*power, y=dir.y*power, z=dir.z*power})
  43         obj:set_acceleration({x=0, y=-GRAVITY, z=0})
  44         obj:setyaw(yaw-math.pi/2)
  45         local le = obj:get_luaentity()
  46         le._shooter = shooter
  47         le._damage = damage
  48         le._startpos = pos
  49         minetest.sound_play("mcl_bows_bow_shoot", {pos=pos})
  50         if shooter ~= nil then
  51                 if obj:get_luaentity().player == "" then
  52                         obj:get_luaentity().player = shooter
  53                 end
  54                 obj:get_luaentity().node = shooter:get_inventory():get_stack("main", 1):get_name()
  55         end
  56         return obj
  57 end
  58
  59 local get_arrow = function(player)
  60         local inv = player:get_inventory()
  61         local arrow_stack, arrow_stack_id
  62         for i=1, inv:get_size("main") do
  63                 local it = inv:get_stack("main", i)
  64                 if not it:is_empty() and minetest.get_item_group(it:get_name(), "ammo_bow") ~= 0 then
  65                         arrow_stack = it
  66                         arrow_stack_id = i
  67                         break
  68                 end
  69         end
  70         return arrow_stack, arrow_stack_id
  71 end
  72
  73 local player_shoot_arrow = function(itemstack, player, power, damage)
  74         local arrow_stack, arrow_stack_id = get_arrow(player)
  75         local arrow_itemstring
  76         if not minetest.settings:get_bool("creative_mode") then
  77                 if not arrow_stack then
  78                         return false
  79                 end
  80                 arrow_itemstring = arrow_stack:get_name()
  81                 arrow_stack:take_item()
  82                 local inv = player:get_inventory()
  83                 inv:set_stack("main", arrow_stack_id, arrow_stack)
  84         end
  85         local playerpos = player:getpos()
  86         local dir = player:get_look_dir()
  87         local yaw = player:get_look_horizontal()
  88
  89         if not arrow_itemstring then
  90                 arrow_itemstring = "mcl_bows:arrow"
  91         end
  92         mcl_bows.shoot_arrow(arrow_itemstring, {x=playerpos.x,y=playerpos.y+1.5,z=playerpos.z}, dir, yaw, player, power, damage)
  93         return true
  94 end
  95
  96 -- Bow item, uncharged state
  97 minetest.register_tool("mcl_bows:bow", {
  98         description = "Bow",
  99         _doc_items_longdesc = [[Bows are ranged weapons to shoot arrows at your foes.
 100 The speed and damage of the arrow increases the longer you charge. The regular damage of the arrow is between 1 and 9. At full charge, there's also a 20% of a critical hit, dealing 10 damage instead.]],
 101         _doc_items_usagehelp = [[To use the bow, you first need to have at least one arrow anywhere in your inventory (unless in Creative Mode). Hold down the right mouse button to charge, release to shoot.]],
 102         _doc_items_durability = BOW_DURABILITY,
 103         inventory_image = "mcl_bows_bow.png",
 104         stack_max = 1,
 105         -- Trick to disable melee damage to entities.
 106         -- Range not set to 0 (unlike the others) so it can be placed into item frames
 107         range = 1,
 108         -- Trick to disable digging as well
 109         on_use = function() end,
 110         groups = {weapon=1,weapon_ranged=1},
 111 })
 112
 113 -- Iterates through player inventory and resets all the bows in "charging" state back to their original stage
 114 local reset_bows = function(player)
 115         local inv = player:get_inventory()
 116         local list = inv:get_list("main")
 117         for place, stack in pairs(list) do
 118                 if stack:get_name()=="mcl_bows:bow_0" or stack:get_name()=="mcl_bows:bow_1" or stack:get_name()=="mcl_bows:bow_2" then
 119                         stack:set_name("mcl_bows:bow")
 120                         list[place] = stack
 121                 end
 122         end
 123         inv:set_list("main", list)
 124 end
 125
 126 -- Resets the bow charging state and player speed. To be used when the player is no longer charging the bow
 127 local reset_bow_state = function(player, also_reset_bows)
 128         bow_load[player:get_player_name()] = nil
 129         bow_index[player:get_player_name()] = nil
 130         if minetest.get_modpath("mcl_playerphysics") then
 131                 mcl_playerphysics.remove_physics_factor(player, "speed", "mcl_bows:use_bow")
 132         end
 133         if also_reset_bows then
 134                 reset_bows(player)
 135         end
 136 end
 137
 138 -- Bow in charging state
 139 for level=0, 2 do
 140         minetest.register_tool("mcl_bows:bow_"..level, {
 141                 description = "Bow",
 142                 _doc_items_create_entry = false,
 143                 inventory_image = "mcl_bows_bow_"..level..".png",
 144                 stack_max = 1,
 145                 range = 0, -- Pointing range to 0 to prevent punching with bow :D
 146                 groups = {not_in_creative_inventory=1, not_in_craft_guide=1},
 147                 on_drop = function(itemstack, dropper, pos)
 148                         reset_bow_state(dropper)
 149                         itemstack:set_name("mcl_bows:bow")
 150                         minetest.item_drop(itemstack, dropper, pos)
 151                         itemstack:take_item()
 152                         return itemstack
 153                 end,
 154                 -- Prevent accidental interaction with itemframes and other nodes
 155                 on_place = function(itemstack)
 156                         return itemstack
 157                 end,
 158         })
 159 end
 160
 161
 162 controls.register_on_release(function(player, key, time)
 163         if key~="RMB" then return end
 164         local inv = minetest.get_inventory({type="player", name=player:get_player_name()})
 165         local wielditem = player:get_wielded_item()
 166         if (wielditem:get_name()=="mcl_bows:bow_0" or wielditem:get_name()=="mcl_bows:bow_1" or wielditem:get_name()=="mcl_bows:bow_2") then
 167                 local has_shot = false
 168
 169                 local speed, damage
 170                 local p_load = bow_load[player:get_player_name()]
 171                 local charge
 172                 -- Type sanity check
 173                 if type(p_load) == "number" then
 174                         charge = minetest.get_us_time() - p_load
 175                 else
 176                         -- In case something goes wrong ...
 177                         -- Just assume minimum charge.
 178                         charge = 0
 179                         minetest.log("warning", "[mcl_bows] Player "..player:get_player_name().." fires arrow with non-numeric bow_load!")
 180                 end
 181                 charge = math.max(math.min(charge, BOW_CHARGE_TIME_FULL), 0)
 182
 183                 local charge_ratio = charge / BOW_CHARGE_TIME_FULL
 184                 charge_ratio = math.max(math.min(charge_ratio, 1), 0)
 185
 186                 -- Calculate damage and speed
 187                 -- Fully charged
 188                 if charge >= BOW_CHARGE_TIME_FULL then
 189                         speed = BOW_MAX_SPEED
 190                         local r = math.random(1,5)
 191                         if r == 1 then
 192                                 -- 20% chance for critical hit
 193                                 damage = 10
 194                         else
 195                                 damage = 9
 196                         end
 197                 -- Partially charged
 198                 else
 199                         -- Linear speed and damage increase
 200                         speed = math.max(4, BOW_MAX_SPEED * charge_ratio)
 201                         damage = math.max(1, math.floor(9 * charge_ratio))
 202                 end
 203
 204                 has_shot = player_shoot_arrow(wielditem, player, speed, damage)
 205
 206                 wielditem:set_name("mcl_bows:bow")
 207                 if has_shot and minetest.settings:get_bool("creative_mode") == false then
 208                         wielditem:add_wear(65535/BOW_DURABILITY)
 209                 end
 210                 player:set_wielded_item(wielditem)
 211                 reset_bow_state(player, true)
 212         end
 213 end)
 214
 215 controls.register_on_hold(function(player, key, time)
 216         if key ~= "RMB" then
 217                 return
 218         end
 219         local name = player:get_player_name()
 220         local inv = minetest.get_inventory({type="player", name=name})
 221         local wielditem = player:get_wielded_item()
 222         if bow_load[name] == nil and wielditem:get_name()=="mcl_bows:bow" and (minetest.settings:get_bool("creative_mode") or inv:contains_item("main", "mcl_bows:arrow")) then
 223                 wielditem:set_name("mcl_bows:bow_0")
 224                 player:set_wielded_item(wielditem)
 225                 if minetest.get_modpath("mcl_playerphysics") then
 226                         -- Slow player down when using bow
 227                         mcl_playerphysics.add_physics_factor(player, "speed", "mcl_bows:use_bow", PLAYER_USE_BOW_SPEED)
 228                 end
 229                 bow_load[name] = minetest.get_us_time()
 230                 bow_index[name] = player:get_wield_index()
 231         else
 232                 if player:get_wield_index() == bow_index[name] then
 233                         if type(bow_load[name]) == "number" then
 234                                 if wielditem:get_name() == "mcl_bows:bow_0" and minetest.get_us_time() - bow_load[name] >= BOW_CHARGE_TIME_HALF then
 235                                         wielditem:set_name("mcl_bows:bow_1")
 236                                 elseif wielditem:get_name() == "mcl_bows:bow_1" and minetest.get_us_time() - bow_load[name] >= BOW_CHARGE_TIME_FULL then
 237                                         wielditem:set_name("mcl_bows:bow_2")
 238                                 end
 239                         else
 240                                 if wielditem:get_name() == "mcl_bows:bow_0" or wielditem:get_name() == "mcl_bows:bow_1" or wielditem:get_name() == "mcl_bows:bow_2" then
 241                                         wielditem:set_name("mcl_bows:bow")
 242                                 end
 243                         end
 244                         player:set_wielded_item(wielditem)
 245                 else
 246                         reset_bow_state(player, true)
 247                 end
 248         end
 249 end)
 250
 251 minetest.register_globalstep(function(dtime)
 252         for _, player in pairs(minetest.get_connected_players()) do
 253                 local name = player:get_player_name()
 254                 local wielditem = player:get_wielded_item()
 255                 local wieldindex = player:get_wield_index()
 256                 local controls = player:get_player_control()
 257                 if type(bow_load[name]) == "number" and ((wielditem:get_name()~="mcl_bows:bow_0" and wielditem:get_name()~="mcl_bows:bow_1" and wielditem:get_name()~="mcl_bows:bow_2") or wieldindex ~= bow_index[name]) then
 258                         reset_bow_state(player, true)
 259                 end
 260         end
 261 end)
 262
 263 minetest.register_on_joinplayer(function(player)
 264         reset_bows(player)
 265 end)
 266
 267 minetest.register_on_leaveplayer(function(player)
 268         reset_bow_state(player, true)
 269 end)
 270
 271 if minetest.get_modpath("mcl_core") and minetest.get_modpath("mcl_mobitems") then
 272         minetest.register_craft({
 273                 output = 'mcl_bows:bow',
 274                 recipe = {
 275                         {'', 'mcl_core:stick', 'mcl_mobitems:string'},
 276                         {'mcl_core:stick', '', 'mcl_mobitems:string'},
 277                         {'', 'mcl_core:stick', 'mcl_mobitems:string'},
 278                 }
 279         })
 280         minetest.register_craft({
 281                 output = 'mcl_bows:bow',
 282                 recipe = {
 283                         {'mcl_mobitems:string', 'mcl_core:stick', ''},
 284                         {'mcl_mobitems:string', '', 'mcl_core:stick'},
 285                         {'mcl_mobitems:string', 'mcl_core:stick', ''},
 286                 }
 287         })
 288 end
 289
 290 minetest.register_craft({
 291         type = "fuel",
 292         recipe = "mcl_bows:bow",
 293         burntime = 15,
 294 })
 295
 296 -- Add entry aliases for the Help
 297 if minetest.get_modpath("doc") then
 298         doc.add_entry_alias("tools", "mcl_bows:bow", "tools", "mcl_bows:bow_0")
 299         doc.add_entry_alias("tools", "mcl_bows:bow", "tools", "mcl_bows:bow_1")
 300         doc.add_entry_alias("tools", "mcl_bows:bow", "tools", "mcl_bows:bow_2")
 301 end
 302
 303