vexcazer/vexcazer_gravity/init.lua

446 lines
15 KiB
Lua

local vex_gravity=function(itemstack, user, pointed_thing,input)
local ob={}
local pos=user:get_pos()
if user:get_attach() then return itemstack end
if pointed_thing.type=="object" then
ob=pointed_thing.ref
elseif pointed_thing.type=="node" and minetest.is_protected(pointed_thing.under,user:get_player_name())==false then
ob=vexcazer_gravity_spawn_block(pointed_thing.under)
if ob.notable then
return itemstack
end
else
return itemstack
end
if ob:get_luaentity() and ob:get_luaentity().ggunpower then
local player_name=user:get_player_name()
local target=ob:get_luaentity().target
if ob:get_luaentity().user:get_player_name()==player_name
and not (target:get_luaentity() and target:get_luaentity().block) then
minetest.sound_play("vexcazer_mode", {pos=pos,max_hear_distance = 5, gain = 1})
target:set_detach()
if target:get_luaentity() then
target:set_velocity({x=0, y=-2, z=0})
target:set_acceleration({x=0, y=-8, z=0})
end
return itemstack
elseif target:get_luaentity() and target:get_luaentity().block
and ob:get_luaentity().user:get_player_name()==player_name then
local pos=ob:get_pos()
if minetest.registered_nodes[minetest.get_node(pos).name].walkable==false
and minetest.is_protected(pos,player_name)==false then
if minetest.registered_nodes[target:get_luaentity().drop] then
minetest.set_node(pos,{name=target:get_luaentity().drop})
else
minetest.add_item(pos, target:get_luaentity().drop)
end
target:set_detach()
target:set_hp(1)
target:punch(target, {full_punch_interval=1.0,damage_groups={fleshy=4}}, "default:bronze_pick", nil)
minetest.sound_play("vexcazer_mode", {pos=pos,max_hear_distance = 5, gain = 1})
end
end
if ob:get_luaentity().target:get_luaentity() and ob:get_luaentity().target:get_luaentity().itemstring then
ob:get_luaentity().target:set_velocity({x=0, y=-2, z=0})
ob:get_luaentity().target:set_acceleration({x=0, y=-8, z=0})
minetest.sound_play("vexcazer_mode", {pos=pos,max_hear_distance = 5, gain = 1})
end
return itemstack
end
if (not ob:get_attach()) and not (ob:get_luaentity() and ob:get_luaentity().ggunpower) then
if ob:is_player() and minetest.check_player_privs(input.user_name, {vexcazer=true})==false then
minetest.sound_play("vexcazer_error", {pos = user:get_pos(), gain = 1.0, max_hear_distance = 10,})
minetest.chat_send_player(input.user_name, "<vexcazer> You is unallowed to hold players")
return false
end
vexcazer_gravity_power.item=user:get_wielded_item():get_name():split(":")[2]
vexcazer_gravity_power.user=user
vexcazer_gravity_power.target=ob
local m=minetest.add_entity(ob:get_pos(), "vexcazer_gravity:power")
ob:set_attach(m, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
if user:get_player_control().RMB then m:right_click(user)
else
minetest.sound_play("vexcazer_mode", {pos=pos,max_hear_distance = 5, gain = 1})
end
return itemstack
end
return itemstack
end
vexcazer_gravity_power={}
vexcazer_gravity_item_time=tonumber(minetest.setting_get("item_entity_ttl"))
if not vexcazer_gravity_item_time then
vexcazer_gravity_item_time=880
else
vexcazer_gravity_item_time=vexcazer_gravity_item_time-20
end
minetest.register_entity("vexcazer_gravity:power",{
hp_max = 100,
physical = true,
weight = 0,
collisionbox = {-0.2,-0.2,-0.2, 0.2,0.2,0.2},
visual = "sprite",
visual_size = {x=1, y=1},
textures = {"default_footprint.png"},
spritediv = {x=1, y=1},
is_visible = true,
makes_footstep_sound = false,
automatic_rotate = false,
timer=0,
time=0.2,
timer2=0,
time2=10,
ggunpower=1,
throw=0,
throw_timer=0,
throw_time=4,
dir={},
opos=0,
damage=1,
ignore=0,
on_activate=function(self, staticdata)
if vexcazer_gravity_power.user then
self.target=vexcazer_gravity_power.target
self.user=vexcazer_gravity_power.user
self.item=vexcazer_gravity_power.item
vexcazer_gravity_power={}
local c=self.target:get_properties().collisionbox
if c~=nil then
self.object:set_properties({collisionbox=c})
local a1=c[1]+c[2]+c[3]
local a2=c[4]+c[5]+c[6]
if a1<a2 then a1=a2 end
self.damage=a1*10
end
else
self.object:remove()
end
end,
on_rightclick=function(self, clicker)
if clicker:get_player_name()==self.user:get_player_name() then
local item=self.user:get_wielded_item():get_name()
if item=="vexcazer:mod" or item=="vexcazer:admin" then
local dir=self.user:get_look_dir()
self.dir=dir
if self.target:get_luaentity() and self.target:get_luaentity().itemstring then
self.target:get_luaentity().age=vexcazer_gravity_item_time
end
local pos=self.object:get_pos()
self.time=10
self.object:set_velocity({x=dir.x*45, y=dir.y*45, z=dir.z*45})
self.throw=1
self.time=0
if self.item~="gun3" then
minetest.sound_play("vexcazer_lazer", {pos=pos,max_hear_distance = 7, gain = 1})
end
end
end
end,
on_step= function(self, dtime)
self.timer=self.timer+dtime
if self.timer<self.time then return self end
self.timer=0
if self.throw==0 then
if self.user:get_wielded_item():get_name():find(self.item,8)==nil then
self.target:set_detach()
self.target:set_velocity({x=0, y=-2, z=0})
self.target:set_acceleration({x=0, y=-8, z=0})
end
if self.target==nil or (not self.target:get_attach()) then
self.object:set_hp(0)
self.object:punch(self.object, {full_punch_interval=1.0,damage_groups={fleshy=4}}, "default:bronze_pick", nil)
if self.sound then minetest.sound_stop(self.sound) end
end
local d=4
local pos = self.user:get_pos()
if pos==nil then return self end
if self.user:get_hp()<1 then self.target:set_detach() end
local dir = self.user:get_look_dir()
local npos={x=pos.x+(dir.x*d), y=pos.y+(dir.y*d)+1.6, z=pos.z+(dir.z*d)}
local opos=npos.x+npos.y+npos.z
if opos~=self.opos then
self.opos=opos
self.timer2=0
else
self.timer2=self.timer2+dtime
if self.timer2>self.time2 then self.target:set_detach() end
end
if minetest.registered_nodes[minetest.get_node(npos).name].walkable then
self.object:set_velocity({x=0,y=0,z=0})
return self
end
if self.autoglitchfix then -- becaouse model sizes more then 200kb making it glitch >_<
self.object:move_to(npos)
return self
else
local ta=self.target:get_pos()
if ta==nil then return self end
local v={x = (npos.x - ta.x)*4, y = (npos.y - ta.y)*4, z = (npos.z - ta.z)*4}
if npos.y - ta.y>2 or npos.y - ta.y<-3 then
self.time=0.1
self.autoglitchfix=1
self.object:set_velocity({x=0,y=0,z=0})
return self
end
self.object:set_velocity(v)
end
else
self.throw_timer=self.throw_timer+dtime
local v=self.object:get_velocity()
local pos=self.object:get_pos()
for i, ob in pairs(minetest.get_objects_inside_radius(pos, 1.7)) do
if ((ob:is_player() and ob:get_player_name()~=self.user:get_player_name()) or (ob:get_luaentity() and ob:get_luaentity().ggunpower==nil)) and (not ob:get_attach()) then
local igpos=ob:get_pos()
igpos=math.floor(igpos.x+igpos.y+igpos.z)
if igpos~=self.ignore then
self.ignore=igpos
ob:punch(ob,1,{full_punch_interval=1,damage_groups={fleshy=4}})
ob:set_hp(ob:get_hp()-self.damage)
if (not ob:get_attach()) and (ob:get_hp()>0 or ob:is_player()) then
local c=ob:get_properties().collisionbox
if c~=nil then
local a1=c[1]+c[2]+c[3]
local a2=c[4]+c[5]+c[6]
if a1<a2 then a1=a2 end
if a1<=self.damage then
local objpos=ob:get_pos()
vexcazer_gravity_power.item=self.item
vexcazer_gravity_power.user=self.user
vexcazer_gravity_power.target=ob
local m=minetest.add_entity(objpos, "vexcazer_gravity:power")
ob:set_attach(m, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
local v=self.object:get_velocity()
if minetest.get_node({x=objpos.x,y=objpos.y-1,z=objpos.z}).name~="air" then
m:move_to({x=objpos.x,y=objpos.y+0.2,z=objpos.z})
end
local sv={x=v.x*0.9,y=v.y*0.9,z=v.z*0.9}
self.object:set_velocity(sv)
m:right_click(self.user)
end
end
end
end
end
end
if (v.x>-25 and v.x<25)
and (v.y>-25 and v.y<25)
and (v.z>-25 and v.z<25) then
if self.target:get_luaentity() and self.target:get_luaentity().itemstring then
self.target:get_luaentity().age=vexcazer_gravity_item_time
end
self.target:set_detach()
self.target:set_hp(self.target:get_hp()-self.damage)
self.target:punch(self.target,1,{full_punch_interval=1,damage_groups={fleshy=4}})
self.throw_timer=self.throw_time
end
if self.throw_timer>=self.throw_time then
self.target:set_detach()
if self.target~=nil and self.target:get_luaentity() then
self.target:set_velocity({x=self.dir.x*25, y=self.dir.y*25, z=self.dir.z*25})
self.target:set_acceleration({x=0, y=-8, z=0})
end
self.object:set_hp(0)
self.object:punch(self.object,1,{full_punch_interval=1,damage_groups={fleshy=4}})
end
end
return self
end,
})
function vexcazer_gravity_spawn_block(pos)
local node=minetest.registered_nodes[minetest.get_node(pos).name]
if node==nil then return {notable=true} end
if minetest.get_node_group(node.name, "unbreakable")>0 or (
minetest.get_node_group(node.name, "fleshy")==0 and
minetest.get_node_group(node.name, "choppy")==0 and
minetest.get_node_group(node.name, "bendy")==0 and
minetest.get_node_group(node.name, "cracky")==0 and
minetest.get_node_group(node.name, "crumbly")==0 and
minetest.get_node_group(node.name, "snappy")==0 and
minetest.get_node_group(node.name, "oddly_breakable_by_hand")==0 and
minetest.get_node_group(node.name, "dig_immediate")==0)
then return {notable=true} end
if minetest.get_meta(pos):get_string("infotext")~="" then return {notable=true} end
vexcazer_gravity_power={drop="",new=1}
minetest.set_node(pos, {name = "air"})
if node.drop=="" or node.drop==nil then
vexcazer_gravity_power.drop=node.name
elseif node.drop.items and node.drop.items[1].items then
if minetest.registered_nodes[node.drop.items[2].items[1]] then
vexcazer_gravity_power.drop=node.drop.items[2].items[1]
elseif minetest.registered_nodes[node.drop.items[1].items[1]] then
vexcazer_gravity_power.drop=node.drop
else
vexcazer_gravity_power.drop=node.drop
end
else
vexcazer_gravity_power.drop=node.drop
end
local t=node.tiles
local t1={}
local t2={}
local t3={}
if not t[1] then self.object:remove() t[1]="default_dirt.png" end
local tx={}
t1=t[1]
t2=t[1]
t3=t[1]
if t[2] then t2=t[2] t3=t[2] end
if t[3] and t[3].name then t3=t[3].name
elseif t[3] then t3=t[3]
end
tx[1]=t1
tx[2]=t2
tx[3]=t3
tx[4]=t3
tx[5]=t3
tx[6]=t3
local type=node.drawtype
if type=="nodebox" and node.node_box then
if node.node_box.type=="regular" or
node.node_box.type=="wallmounted" or
node.node_box.type=="fixed" then type="normal" end
end
if type~="plantlike" and type~="signlike" and type~="raillike" and type~="torchlike" and type~="mesh" and type~="fencelike" then type="normal" end
if node.name:find("slab_",1) or node.name:find("_slab",1) or node.name:find("sign",1) or node.name=="default:snow" then type="slab" end
if node.name:find("stair_",1) or node.name:find("_stair",1) then type="stair" end
local m=minetest.add_entity(pos, "vexcazer_gravity:block")
m:set_properties({textures = tx})
if type=="plantlike" or type=="torchlike" then m:set_properties({visual="sprite"}) end
if type=="signlike" or type=="raillike" then m:set_properties({visual="upright_sprite"}) end
if type=="mesh" then
local npos={}
npos.x=node.wield_scale.x*2
npos.y=node.wield_scale.y*2
npos.z=node.wield_scale.z*2
m:set_properties({collisionbox=node.selection_box.fixed})
m:set_properties({visual="mesh"})
m:set_properties({mesh=node.mesh})
m:set_properties({visual_size=npos})
colision=node.selection_box.fixed
end
if type=="fencelike" then
local npos={}
npos.x=node.wield_scale.x*0.3
npos.y=node.wield_scale.y*1
npos.z=node.wield_scale.z*0.3
m:set_properties({visual_size=npos})
end
if type=="stair" then
local npos={}
npos.x=node.wield_scale.x*10
npos.y=node.wield_scale.y*10
npos.z=node.wield_scale.z*10
m:set_properties({visual="mesh"})
m:set_properties({mesh="stairs_stair.obj"})
m:set_properties({visual_size=npos})
end
if type=="slab" then
local npos={}
npos.x=node.wield_scale.x*1
npos.y=node.wield_scale.y*0.4
npos.z=node.wield_scale.z*1
m:set_properties({visual_size=npos})
end
if node.selection_box.wall_side then
m:set_properties({collisionbox=node.selection_box.wall_side})
end
if node.selection_box.fixed then
local colbox=node.selection_box.fixed
if colbox and tonumber(colbox[1])~=nil then -- and colbox[1][1]==nil
m:set_properties({collisionbox={colbox[1],colbox[2],colbox[3],colbox[4],colbox[5]+0.4,colbox[6]}})
elseif colbox and colbox[1]~=nil and colbox[1][1]~=nil then
m:set_properties({collisionbox={colbox[1][1],colbox[1][2],colbox[1][3],colbox[1][4],colbox[1][5]+0.4,colbox[1][6]}})
end
end
return m
end
minetest.register_entity("vexcazer_gravity:block",{
hp_max = 30,
physical = true,
weight = 0,
collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
visual = "cube",
visual_size = {x=1, y=1},
textures = {},
spritediv = {x=1, y=1},
initial_sprite_basepos = {x=0, y=0},
is_visible = true,
makes_footstep_sound = false,
automatic_rotate = false,
on_punch=function(self, puncher, time_from_last_punch, tool_capabilities, dir)
local pos=self.object:get_pos()
if self.object:get_hp()==1 then
self.drop=""
self.timer=1
self.timer2=10
elseif pos~=nil and self.object:get_hp()<=0 and self.drop~="" then
local it=minetest.add_item(pos, self.drop)
it:get_luaentity().age=vexcazer_gravity_item_time
return self
end
end,
on_activate=function(self, staticdata)
if not vexcazer_gravity_power.new then
self.object:remove()
return false
end
self.drop=vexcazer_gravity_power.drop
vexcazer_gravity_power={}
end,
on_step= function(self, dtime)
self.timer=self.timer+dtime
if self.timer<0.5 then return self end
if self.object:get_attach() then return self end
self.timer=0
self.timer2=self.timer2+1
local pos=self.object:get_pos()
if self.timer2>10 then
self.object:set_hp(0)
self.object:punch(self.object,1,{full_punch_interval=1,damage_groups={fleshy=4}})
return self
end
end,
timer=0,
timer2=0,
drop="",
block=1,
})
vexcazer.registry_mode({
name="Gravity control",
info="USE on an object or block = hold\nUSE on a held object = drop, or place if its a block",
info_mod="\nPLACE the object to throw it away",
info_admin="\nPLACE the object to throw it away",
disallow_damage_on_use=true,
wear_on_use=2,
on_place=vex_gravity,
on_use=vex_gravity,
})