mcl_throwing = {} -- -- Snowballs and other throwable items -- local GRAVITY = tonumber(minetest.settings:get("movement_gravity")) local entity_mapping = { ["mcl_throwing:snowball"] = "mcl_throwing:snowball_entity", ["mcl_throwing:egg"] = "mcl_throwing:egg_entity", ["mcl_throwing:ender_pearl"] = "mcl_throwing:ender_pearl_entity", } local velocities = { ["mcl_throwing:snowball_entity"] = 22, ["mcl_throwing:egg_entity"] = 22, ["mcl_throwing:ender_pearl_entity"] = 22, } mcl_throwing.throw = function(throw_item, pos, dir, velocity) if velocity == nil then velocity = velocities[throw_item] end if velocity == nil then velocity = 22 end local itemstring = ItemStack(throw_item):get_name() local obj = minetest.add_entity(pos, entity_mapping[itemstring]) obj:set_velocity({x=dir.x*velocity, y=dir.y*velocity, z=dir.z*velocity}) obj:set_acceleration({x=dir.x*-3, y=-GRAVITY, z=dir.z*-3}) return obj end -- Throw item local throw_function = function(entity_name, velocity) local func = function(item, player, pointed_thing) local playerpos = player:get_pos() local dir = player:get_look_dir() local obj = mcl_throwing.throw(item, {x=playerpos.x, y=playerpos.y+1.5, z=playerpos.z}, dir, velocity) obj:get_luaentity()._thrower = player:get_player_name() if not minetest.settings:get_bool("creative_mode") then item:take_item() end return item end return func end local dispense_function = function(stack, dispenserpos, droppos, dropnode, dropdir) -- Launch throwable item local shootpos = vector.add(dispenserpos, vector.multiply(dropdir, 0.51)) mcl_throwing.throw(stack:get_name(), shootpos, dropdir) end -- Staticdata handling because objects may want to be reloaded local get_staticdata = function(self) local data = { _lastpos = self._lastpos, _thrower = self._thrower, } return minetest.serialize(data) end local on_activate = function(self, staticdata, dtime_s) local data = minetest.deserialize(staticdata) if data then self._lastpos = data._lastpos self._thrower = data._thrower end end -- The snowball entity local snowball_ENTITY={ physical = false, timer=0, textures = {"mcl_throwing_snowball.png"}, visual_size = {x=0.5, y=0.5}, collisionbox = {0,0,0,0,0,0}, get_staticdata = get_staticdata, on_activate = on_activate, _lastpos={}, } local egg_ENTITY={ physical = false, timer=0, textures = {"mcl_throwing_egg.png"}, visual_size = {x=0.45, y=0.45}, collisionbox = {0,0,0,0,0,0}, get_staticdata = get_staticdata, on_activate = on_activate, _lastpos={}, } -- Ender pearl entity local pearl_ENTITY={ physical = false, timer=0, textures = {"mcl_throwing_ender_pearl.png"}, visual_size = {x=0.9, y=0.9}, collisionbox = {0,0,0,0,0,0}, get_staticdata = get_staticdata, on_activate = on_activate, _lastpos={}, _thrower = nil, -- Player ObjectRef of the player who threw the ender pearl } -- Snowball on_step()--> called when snowball is moving. local snowball_on_step = function(self, dtime) self.timer=self.timer+dtime local pos = self.object:get_pos() local node = minetest.get_node(pos) local def = minetest.registered_nodes[node.name] -- Destroy when hitting a solid node if self._lastpos.x~=nil then if (def and def.walkable) or not def then self.object:remove() return end end self._lastpos={x=pos.x, y=pos.y, z=pos.z} -- Set _lastpos-->Node will be added at last pos outside the node end -- Movement function of egg local egg_on_step = function(self, dtime) self.timer=self.timer+dtime local pos = self.object:get_pos() local node = minetest.get_node(pos) local def = minetest.registered_nodes[node.name] -- Destroy when hitting a solid node if self._lastpos.x~=nil then if (def and def.walkable) or not def then -- 1/8 chance to spawn a chick -- FIXME: Chicks have a quite good chance to spawn in walls local r = math.random(1,8) -- Turn given object into a child local make_child= function(object) local ent = object:get_luaentity() object:set_properties({ visual_size = { x = ent.base_size.x/2, y = ent.base_size.y/2 }, collisionbox = { ent.base_colbox[1]/2, ent.base_colbox[2]/2, ent.base_colbox[3]/2, ent.base_colbox[4]/2, ent.base_colbox[5]/2, ent.base_colbox[6]/2, } }) ent.child = true end if r == 1 then make_child(minetest.add_entity(self._lastpos, "mobs_mc:chicken")) -- BONUS ROUND: 1/32 chance to spawn 3 additional chicks local r = math.random(1,32) if r == 1 then local offsets = { { x=0.7, y=0, z=0 }, { x=-0.7, y=0, z=-0.7 }, { x=-0.7, y=0, z=0.7 }, } for o=1, 3 do local pos = vector.add(self._lastpos, offsets[o]) make_child(minetest.add_entity(pos, "mobs_mc:chicken")) end end end self.object:remove() return end end self._lastpos={x=pos.x, y=pos.y, z=pos.z} -- Set lastpos-->Node will be added at last pos outside the node end -- Movement function of ender pearl local pearl_on_step = function(self, dtime) self.timer=self.timer+dtime local pos = self.object:get_pos() pos.y = math.floor(pos.y) local node = minetest.get_node(pos) local nn = node.name local def = minetest.registered_nodes[node.name] -- Destroy when hitting a solid node if self._lastpos.x~=nil then local walkable = (def and def.walkable) -- No teleport for hitting ignore for now. Otherwise the player could get stuck. -- FIXME: This also means the player loses an ender pearl for throwing into unloaded areas if node.name == "ignore" then self.object:remove() -- Activate when hitting a solid node or a plant elseif walkable or nn == "mcl_core:vine" or nn == "mcl_core:deadbush" or minetest.get_item_group(nn, "flower") ~= 0 or minetest.get_item_group(nn, "sapling") ~= 0 or minetest.get_item_group(nn, "plant") ~= 0 or minetest.get_item_group(nn, "mushroom") ~= 0 or not def then local player = minetest.get_player_by_name(self._thrower) if player then -- Teleport and hurt player -- First determine good teleport position local dir = {x=0, y=0, z=0} local v = self.object:get_velocity() if walkable then local vc = table.copy(v) -- vector for calculating -- Node is walkable, we have to find a place somewhere outside of that node vc = vector.normalize(vc) -- Zero-out the two axes with a lower absolute value than -- the axis with the strongest force local lv, ld lv, ld = math.abs(vc.y), "y" if math.abs(vc.x) > lv then lv, ld = math.abs(vc.x), "x" end if math.abs(vc.z) > lv then lv, ld = math.abs(vc.z), "z" end if ld ~= "x" then vc.x = 0 end if ld ~= "y" then vc.y = 0 end if ld ~= "z" then vc.z = 0 end -- Final tweaks to the teleporting pos, based on direction -- Impact from the side dir.x = vc.x * -1 dir.z = vc.z * -1 -- Special case: top or bottom of node if vc.y > 0 then -- We need more space when impact is from below dir.y = -2.3 elseif vc.y < 0 then -- Standing on top dir.y = 0.5 end end -- If node was not walkable, no modification to pos is made. -- Final teleportation position local telepos = vector.add(pos, dir) local telenode = minetest.get_node(telepos) --[[ It may be possible that telepos is walkable due to the algorithm. Especially when the ender pearl is faster horizontally than vertical. This applies final fixing, just to be sure we're not in a walkable node ]] if not minetest.registered_nodes[telenode.name] or minetest.registered_nodes[telenode.name].walkable then if v.y < 0 then telepos.y = telepos.y + 0.5 else telepos.y = telepos.y - 2.3 end end local oldpos = player:get_pos() -- Teleport and hurt player player:set_pos(telepos) player:set_hp(player:get_hp() - 5) -- 5% chance to spawn endermite at the player's origin local r = math.random(1,20) if r == 1 then minetest.add_entity(oldpos, "mobs_mc:endermite") end end self.object:remove() return end end self._lastpos={x=pos.x, y=pos.y, z=pos.z} -- Set lastpos-->Node will be added at last pos outside the node end snowball_ENTITY.on_step = snowball_on_step egg_ENTITY.on_step = egg_on_step pearl_ENTITY.on_step = pearl_on_step minetest.register_entity("mcl_throwing:snowball_entity", snowball_ENTITY) minetest.register_entity("mcl_throwing:egg_entity", egg_ENTITY) minetest.register_entity("mcl_throwing:ender_pearl_entity", pearl_ENTITY) local how_to_throw = "Hold it in your and and leftclick to throw." -- Snowball minetest.register_craftitem("mcl_throwing:snowball", { description = "Snowball", _doc_items_longdesc = "Snowballs can be thrown or launched from a dispenser for fun. Hitting something with a snowball does nothing.", _doc_items_usagehelp = how_to_throw, inventory_image = "mcl_throwing_snowball.png", stack_max = 16, groups = { weapon_ranged = 1 }, on_use = throw_function("mcl_throwing:snowball_entity"), _on_dispense = dispense_function, }) -- Egg minetest.register_craftitem("mcl_throwing:egg", { description = "Egg", _doc_items_longdesc = "Eggs can be thrown or launched from a dispenser and breaks on impact. There is a small chance that 1 or even 4 chickens will pop out of the egg when it hits the ground.", _doc_items_usagehelp = how_to_throw, inventory_image = "mcl_throwing_egg.png", stack_max = 16, on_use = throw_function("mcl_throwing:egg_entity"), _on_dispense = dispense_function, groups = { craftitem = 1 }, }) -- Ender Pearl minetest.register_craftitem("mcl_throwing:ender_pearl", { description = "Ender Pearl", _doc_items_longdesc = "An ender pearl is an item which can be used for teleportation at the cost of health. It can be thrown and teleport the thrower to its impact location when it hits a solid block, a plant or vines. Each teleportation hurts the user by 5 hit points.", _doc_items_usagehelp = how_to_throw, wield_image = "mcl_throwing_ender_pearl.png", inventory_image = "mcl_throwing_ender_pearl.png", stack_max = 16, on_use = throw_function("mcl_throwing:ender_pearl_entity"), groups = { transport = 1 }, })