nalc_game/mods/screwdriver/init.lua

211 lines
6.1 KiB
Lua
Raw Normal View History

minetest.register_tool("screwdriver:screwdriver", {
description = "Screwdriver",
inventory_image = "screwdriver.png",
on_use = function(itemstack, user, pointed_thing)
screwdriver_handler(itemstack,user,pointed_thing)
return itemstack
end,
})
for i=1,4,1 do
minetest.register_tool("screwdriver:screwdriver"..i, {
description = "Screwdriver in Mode "..i,
inventory_image = "screwdriver.png^tool_mode"..i..".png",
wield_image = "screwdriver.png",
groups = {not_in_creative_inventory=1},
on_use = function(itemstack, user, pointed_thing)
screwdriver_handler(itemstack,user,pointed_thing)
return itemstack
end,
})
end
faces_table=
{
--look dir +X +Y +Z -Z -Y -X
2 , 0 , 4 , 5 , 1 , 3 , -- rotate around y+ 0 - 3
4 , 0 , 3 , 2 , 1 , 5 ,
3 , 0 , 5 , 4 , 1 , 2 ,
5 , 0 , 2 , 3 , 1 , 4 ,
2 , 5 , 0 , 1 , 4 , 3 , -- rotate around z+ 4 - 7
4 , 2 , 0 , 1 , 3 , 5 ,
3 , 4 , 0 , 1 , 5 , 2 ,
5 , 3 , 0 , 1 , 2 , 4 ,
2 , 4 , 1 , 0 , 5 , 3 , -- rotate around z- 8 - 11
4 , 3 , 1 , 0 , 2 , 5 ,
3 , 5 , 1 , 0 , 4 , 2 ,
5 , 2 , 1 , 0 , 3 , 4 ,
0 , 3 , 4 , 5 , 2 , 1 , -- rotate around x+ 12 - 15
0 , 5 , 3 , 2 , 4 , 1 ,
0 , 2 , 5 , 4 , 3 , 1 ,
0 , 4 , 2 , 3 , 5 , 1 ,
1 , 2 , 4 , 5 , 3 , 0 , -- rotate around x- 16 - 19
1 , 4 , 3 , 2 , 5 , 0 ,
1 , 3 , 5 , 4 , 2 , 0 ,
1 , 5 , 2 , 3 , 4 , 0 ,
3 , 1 , 4 , 5 , 0 , 2 , -- rotate around y- 20 - 23
5 , 1 , 3 , 2 , 0 , 4 ,
2 , 1 , 5 , 4 , 0 , 3 ,
4 , 1 , 2 , 3 , 0 , 5
}
function screwdriver_handler (itemstack,user,pointed_thing)
local keys=user:get_player_control()
local player_name=user:get_player_name()
local item=itemstack:to_table()
if item["metadata"]=="" or keys["sneak"]==true then return screwdriver_setmode(user,itemstack) end
local mode=tonumber((item["metadata"]))
if pointed_thing.type~="node" then return end
local pos=minetest.get_pointed_thing_position(pointed_thing,above)
2013-05-25 00:40:03 +02:00
local node=minetest.get_node(pos)
local node_name=node.name
if minetest.registered_nodes[node_name].paramtype2 == "facedir" then
if minetest.registered_nodes[node_name].drawtype == "nodebox" then
if minetest.registered_nodes[node_name].node_box["type"]~="fixed" then return end
end
if node.param2==nil then return end
-- Get ready to set the param2
local n = node.param2
local axisdir=math.floor(n/4)
local rotation=n-axisdir*4
if mode==1 then
rotation=rotation+1
if rotation>3 then rotation=0 end
n=axisdir*4+rotation
end
if mode==2 then
local ppos=user:getpos()
local pvect=user:get_look_dir()
local face=get_node_face(pos,ppos,pvect)
if face == nil then return end
local index=convertFaceToIndex(face)
local face1=faces_table[n*6+index+1]
local found = 0
while found == 0 do
n=n+1
if n>23 then n=0 end
if faces_table[n*6+index+1]==face1 then found=1 end
end
end
if mode==3 then
axisdir=axisdir+1
if axisdir>5 then axisdir=0 end
n=axisdir*4
end
if mode==4 then
local ppos=user:getpos()
local pvect=user:get_look_dir()
local face=get_node_face(pos,ppos,pvect)
if face == nil then return end
if axisdir == face then
rotation=rotation+1
if rotation>3 then rotation=0 end
n=axisdir*4+rotation
else
n=face*4
end
end
--print (dump(axisdir..", "..rotation))
2013-05-25 00:40:03 +02:00
local meta = minetest.get_meta(pos)
local meta0 = meta:to_table()
node.param2 = n
2013-05-25 00:40:03 +02:00
minetest.set_node(pos,node)
meta = minetest.get_meta(pos)
meta:from_table(meta0)
local item=itemstack:to_table()
local item_wear=tonumber((item["wear"]))
item_wear=item_wear+327
if item_wear>65535 then itemstack:clear() return itemstack end
item["wear"]=tostring(item_wear)
itemstack:replace(item)
return itemstack
end
end
mode_text={
{"Change rotation, Don't change axisdir."},
{"Keep choosen face in front then rotate it."},
{"Change axis dir, Reset rotation."},
{"Bring top in front then rotate it."},
}
function screwdriver_setmode(user,itemstack)
local player_name=user:get_player_name()
local item=itemstack:to_table()
local mode
if item["metadata"]=="" then
minetest.chat_send_player(player_name,"Hold shift and use to change screwdriwer modes.")
mode=0
else mode=tonumber((item["metadata"]))
end
mode=mode+1
if mode==5 then mode=1 end
minetest.chat_send_player(player_name, "Screwdriver mode : "..mode.." - "..mode_text[mode][1] )
item["name"]="screwdriver:screwdriver"..mode
item["metadata"]=tostring(mode)
itemstack:replace(item)
return itemstack
end
minetest.register_craft({
output = "screwdriver:screwdriver",
recipe = {
{"default:steel_ingot"},
{"default:stick"}
}
})
function get_node_face(pos,ppos,pvect)
ppos={x=ppos.x-pos.x,y=ppos.y-pos.y+1.5,z=ppos.z-pos.z}
if pvect.x>0 then
local t=(-0.5-ppos.x)/pvect.x
local y_int=ppos.y+t*pvect.y
local z_int=ppos.z+t*pvect.z
if y_int>-0.4 and y_int<0.4 and z_int>-0.4 and z_int<0.4 then return 4 end
elseif pvect.x<0 then
local t=(0.5-ppos.x)/pvect.x
local y_int=ppos.y+t*pvect.y
local z_int=ppos.z+t*pvect.z
if y_int>-0.4 and y_int<0.4 and z_int>-0.4 and z_int<0.4 then return 3 end
end
if pvect.y>0 then
local t=(-0.5-ppos.y)/pvect.y
local x_int=ppos.x+t*pvect.x
local z_int=ppos.z+t*pvect.z
if x_int>-0.4 and x_int<0.4 and z_int>-0.4 and z_int<0.4 then return 5 end
elseif pvect.y<0 then
local t=(0.5-ppos.y)/pvect.y
local x_int=ppos.x+t*pvect.x
local z_int=ppos.z+t*pvect.z
if x_int>-0.4 and x_int<0.4 and z_int>-0.4 and z_int<0.4 then return 0 end
end
if pvect.z>0 then
local t=(-0.5-ppos.z)/pvect.z
local x_int=ppos.x+t*pvect.x
local y_int=ppos.y+t*pvect.y
if x_int>-0.4 and x_int<0.4 and y_int>-0.4 and y_int<0.4 then return 2 end
elseif pvect.z<0 then
local t=(0.5-ppos.z)/pvect.z
local x_int=ppos.x+t*pvect.x
local y_int=ppos.y+t*pvect.y
if x_int>-0.4 and x_int<0.4 and y_int>-0.4 and y_int<0.4 then return 1 end
end
end
function convertFaceToIndex (face)
if face==0 then return 1 end
if face==1 then return 2 end
if face==2 then return 3 end
if face==3 then return 0 end
if face==4 then return 5 end
if face==5 then return 4 end
end