VoxeLibre/mods/ITEMS/mcl_potions/splash.lua

local S = minetest.get_translator("mcl_potions")

local splash_image = function(colorstring, opacity)
	if not opacity then
		opacity = 127
	end
	return "mcl_potions_splash_overlay.png^[colorize:"..colorstring..":"..tostring(opacity).."^mcl_potions_splash_bottle.png"
end


function mcl_potions.register_splash(name, descr, color, def)

    local id = "mcl_potions:"..name.."_splash"
    local longdesc = def.longdesc
    if not def.no_effect then
        longdesc = S("A throwable potion that will shatter on impact, where it gives all nearby players and mobs a status effect.")
        if def.longdesc then
            longdesc = longdesc .. "\n" .. def.longdesc
        end
    end
    minetest.register_craftitem(id, {
        description = descr,
		_tt_help = def.tt,
        _doc_items_longdesc = longdesc,
        _doc_items_usagehelp = S("Use the “Punch” key to throw it."),
        inventory_image = splash_image(color),
		groups = {brewitem=1, not_in_creative_inventory=0},
        on_use = function(item, placer, pointed_thing)
            local velocity = 10
            local dir = placer:get_look_dir();
            local pos = placer:get_pos();
            local obj = minetest.add_entity({x=pos.x+dir.x,y=pos.y+2+dir.y,z=pos.z+dir.z}, id.."_flying")
            obj:set_velocity({x=dir.x*velocity,y=dir.y*velocity,z=dir.z*velocity})
            obj:set_acceleration({x=dir.x*-3, y=-9.8, z=dir.z*-3})
			obj:get_luaentity()._thrower = placer:get_player_name()
			if not minetest.is_creative_enabled(placer:get_player_name()) then
				item:take_item()
			end
            return item
        end,
		stack_max = 1,
		_on_dispense = function(stack, dispenserpos, droppos, dropnode, dropdir)
			local s_pos = vector.add(dispenserpos, vector.multiply(dropdir, 0.51))
			local obj = minetest.add_entity({x=s_pos.x+dropdir.x,y=s_pos.y+dropdir.y,z=s_pos.z+dropdir.z}, id.."_flying")
			local velocity = 22
			obj:set_velocity({x=dropdir.x*velocity,y=dropdir.y*velocity,z=dropdir.z*velocity})
			obj:set_acceleration({x=dropdir.x*-3, y=-9.8, z=dropdir.z*-3})
		end
    })

    local w = 0.7

    minetest.register_entity(id.."_flying",{
        textures = {splash_image(color)},
		hp_max = 1,
		visual_size = {x=w/2,y=w/2},
		collisionbox = {0,0,0,0,0,0},
        on_step = function(self, dtime)
          local pos = self.object:getpos()
          local node = minetest.get_node(pos)
          local n = node.name
					local d = 2
					local redux_map = {7/8,0.5,0.25}
          			if n ~= "air" and n ~= "mcl_portals:portal" and n ~= "mcl_portals:portal_end" or mcl_potions.is_obj_hit(self, pos) then
						minetest.sound_play("mcl_potions_breaking_glass", {pos = pos, max_hear_distance = 16, gain = 1})
						minetest.add_particlespawner({
																				amount = 50,
																				time = 2,
																				minpos = {x=pos.x-d, y=pos.y+0.5, z=pos.z-d},
																				maxpos = {x=pos.x+d, y=pos.y+d, z=pos.z+d},
																				minvel = {x=-1, y=0, z=-1},
																				maxvel = {x=1, y=0.5, z=1},
																				minacc = {x=-0.5, y=0, z=-0.5},
																				maxacc = {x=0.5, y=.2, z=0.5},
																				minexptime = 1,
																				maxexptime = 3,
																				minsize = 2,
																				maxsize = 4,
																				collisiondetection = true,
																				vertical = false,
																				texture = "mcl_potions_sprite.png^[colorize:"..color..":127",
																			})
            			self.object:remove()
						for _,obj in pairs(minetest.get_objects_inside_radius(pos, 4)) do

							local entity = obj:get_luaentity()
							if obj:is_player() or entity._cmi_is_mob then

								local pos2 = obj:get_pos()
								local rad = math.floor(math.sqrt((pos2.x-pos.x)^2 + (pos2.y-pos.y)^2 + (pos2.z-pos.z)^2))
								if rad > 0 then def.potion_fun(obj, redux_map[rad]) else def.potion_fun(obj, 1) end

							end
						end

					end
        end,
    })
end

local function time_string(dur)
	return math.floor(dur/60)..string.format(":%02d",math.floor(dur % 60))
end

local splash_DUR = mcl_potions.DURATION*mcl_potions.SPLASH_FACTOR
local splash_DUR_2 = mcl_potions.DURATION_2*mcl_potions.SPLASH_FACTOR
local splash_DUR_pl = mcl_potions.DURATION_PLUS*mcl_potions.SPLASH_FACTOR



-- register_splash("weakness", S("Weakness Splash Potion"), "#6600AA", {
-- 	potion_fun = function(player, redx) mcl_potions.weakness_func(player, -4, splash_DUR*mcl_potions.INV_FACTOR*redx) end,
-- 	-- TODO: Fix tooltip
-- 	tt = time_string(splash_DUR*mcl_potions.INV_FACTOR)
-- })
--
-- register_splash("weakness_plus", S("Weakness Splash Potion +"), "#7700BB", {
-- 	potion_fun = function(player, redx) mcl_potions.weakness_func(player, -4, splash_DUR_pl*mcl_potions.INV_FACTOR*redx) end,
-- 	-- TODO: Fix tooltip
-- 	tt = time_string(splash_DUR_pl*mcl_potions.INV_FACTOR)
-- })
--
-- register_splash("strength", S("Strength Splash Potion"), "#D444D4", {
-- 	potion_fun = function(player, redx) mcl_potions.strength_func(player, 3, splash_DUR*redx) end,
-- 	-- TODO: Fix tooltip
-- 	tt = time_string(splash_DUR)
-- })
--
-- register_splash("strength_2", S("Strength Splash Potion II"), "#D444F4", {
-- 	potion_fun = function(player, redx) mcl_potions.strength_func(player, 6, splash_DUR_2*redx) end,
-- 	-- TODO: Fix tooltip
-- 	tt = time_string(splash_DUR_2)
-- })
--
-- register_splash("strength_plus", S("Strength Splash Potion +"), "#D444E4", {
-- 	potion_fun = function(player, redx) mcl_potions.strength_func(player, 3, splash_DUR_pl*redx) end,
-- 	-- TODO: Fix tooltip
-- 	tt = time_string(splash_DUR_pl)
-- })