minetest-soccer/init.lua

125 lines
3.7 KiB
Lua
Executable File

local function reg_ball(color)
local ball_item_name = "soccer:ball_" .. color .. "_item"
local ball_ent_name = "soccer:ball_" .. color .. "_entity"
minetest.register_entity(ball_ent_name, {
physical = true,
hp_max = 32767,
collide_with_objects = false,
visual = "mesh",
visual_size = {x = 1.125, y = 1.125, z = 1.125},
mesh = "soccer_ball.x",
groups = {immortal = true},
textures = {"soccer_ball_" .. color .. ".png"},
collisionbox = { -0.25, -0.25, -0.25, 0.25, 0.25, 0.25},
timer = 0,
on_step = function(self, dtime)
self.timer = self.timer + dtime
if self.timer >= 0.2 then
self.object:setacceleration({x = 0, y = -14.5, z = 0})
self.timer = 0
local vel = self.object:getvelocity()
local p = self.object:getpos();
p.y = p.y - 0.5
if minetest.registered_nodes[minetest.env:get_node(p).name].walkable then
vel.x = vel.x * 0.9
if vel.y < 0 then vel.y = vel.y * -0.6 end
vel.z = vel.z * 0.9
end
if (math.abs(vel.x) <= 0.1) and (math.abs(vel.z) <= 0.1) then
vel.x = 0
vel.z = 0
end
self.object:setvelocity(vel)
local pos = self.object:getpos()
local objs = minetest.env:get_objects_inside_radius(pos, 1)
local player_count = 0
local final_dir = {x = 0, y = 0, z = 0}
for _,obj in ipairs(objs) do
if obj:is_player() then
local objdir = obj:get_look_dir()
local mul = 1
if (obj:get_player_control().sneak) then mul = 2 end
final_dir.x = final_dir.x + (objdir.x * mul)
final_dir.y = final_dir.y + (objdir.y * mul)
final_dir.z = final_dir.z + (objdir.z * mul)
player_count = player_count + 1
end
end
if final_dir.x ~= 0 or final_dir.y ~= 0 or final_dir.z ~= 0 then
final_dir.x = (final_dir.x * 7.2) / player_count
final_dir.y = (final_dir.y * 9.6) / player_count
final_dir.z = (final_dir.z * 7.2) / player_count
self.object:setvelocity(final_dir)
minetest.sound_play("default_dig_oddly_breakable_by_hand", {object = self.object, gain = 0.5})
end
end
end,
on_punch = function(self, puncher)
if puncher and puncher:is_player() then
local inv = puncher:get_inventory()
inv:add_item("main", ItemStack(ball_item_name))
self.object:remove()
end
end,
is_moving = function(self)
local v = self.object:getvelocity()
if (math.abs(v.x) <= 0.1) and (math.abs(v.z) <= 0.1) then
v.x = 0
v.z = 0
self.object:setvelocity(v)
return false
end
return true
end,
})
minetest.register_craftitem(ball_item_name, {
description = "Soccer Ball ("..color..")",
inventory_image = "soccer_ball_"..color.."_inv.png",
wield_scale = {x = 0.75, y = 0.75, z = 4.5},
on_place = function(itemstack, placer, pointed_thing)
local pos = pointed_thing.above
-- pos = { x =pos.x + 0.5, y = pos.y, z = pos.z + 0.5 }
local ent = minetest.env:add_entity(pos, ball_ent_name)
minetest.log("action", placer:get_player_name() .. " placed a ball at " .. minetest.pos_to_string(pointed_thing.above) .. ".")
ent:setvelocity({x = 0, y = -14.5, z = 0})
if not minetest.setting_getbool("creative_mode") then
itemstack:take_item()
end
return itemstack
end,
})
if color == "purple" then
color = "pink"
end
minetest.register_craft({
output = ball_item_name,
recipe = {
{ "", "wool:white", "" },
{ "wool:white", "wool:" .. color, "wool:white" },
{ "", "wool:white", "" },
},
})
end
colors = {
"black", "red", "green", "blue", "yellow", "purple",
}
for _,color in ipairs(colors) do
reg_ball(color)
end
minetest.register_alias("ball", "soccer:ball_black_item") -- For quickly using the /give command.
if minetest.setting_getbool("log_mods") then
minetest.log("action", "Carbone: [soccer] loaded.")
end