109 lines
3.3 KiB
Lua
109 lines
3.3 KiB
Lua
|
--[[
|
||
|
|
|
||
|
|
TechAge
|
||
|
|
=======
|
||
|
|
|
||
|
|
Copyright (C) 2017-2019 Joachim Stolberg
|
||
|
|
|
||
|
|
GPL v3
|
||
|
|
See LICENSE.txt for more information
|
||
|
|
|
||
|
|
Number programmer
|
||
|
|
|
||
|
|
]]--
|
||
|
|
|
||
|
|
-- for lazy programmers
|
||
|
|
local M = minetest.get_meta
|
||
|
|
local S = techage.S
|
||
|
|
|
||
|
|
local function join_to_string(tbl)
|
||
|
|
local t = {}
|
||
|
|
for key,_ in pairs(tbl) do
|
||
|
|
t[#t + 1] = key
|
||
|
|
end
|
||
|
|
return table.concat(t, " ")
|
||
|
|
end
|
||
|
|
|
||
|
|
local function reset_programmer(itemstack, user, pointed_thing)
|
||
|
|
user:set_attribute("techage_prog_numbers", nil)
|
||
|
|
minetest.chat_send_player(user:get_player_name(), S("[Techage Programmer] programmer reset"))
|
||
|
|
return itemstack
|
||
|
|
end
|
||
|
|
|
||
|
|
local function read_number(itemstack, user, pointed_thing)
|
||
|
|
local pos = pointed_thing.under
|
||
|
|
if pos then
|
||
|
|
local number = techage.get_node_number(pos)
|
||
|
|
if number then
|
||
|
|
local numbers = minetest.deserialize(user:get_attribute("techage_prog_numbers")) or {}
|
||
|
|
numbers[number] = true
|
||
|
|
user:set_attribute("techage_prog_numbers", minetest.serialize(numbers))
|
||
|
|
minetest.chat_send_player(user:get_player_name(), S("[Techage Programmer] number").." "..number.." read")
|
||
|
|
else
|
||
|
|
minetest.chat_send_player(user:get_player_name(), S("[Techage Programmer] Unknown node on").." "..minetest.pos_to_string(pos))
|
||
|
|
end
|
||
|
|
else
|
||
|
|
return reset_programmer(itemstack, user, pointed_thing)
|
||
|
|
end
|
||
|
|
return itemstack
|
||
|
|
end
|
||
|
|
|
||
|
|
local function program_numbers(itemstack, placer, pointed_thing)
|
||
|
|
local pos = pointed_thing.under
|
||
|
|
if pos then
|
||
|
|
local meta = M(pos)
|
||
|
|
local numbers = minetest.deserialize(placer:get_attribute("techage_prog_numbers")) or {}
|
||
|
|
placer:set_attribute("techage_prog_numbers", nil)
|
||
|
|
local player_name = placer:get_player_name()
|
||
|
|
if meta and meta:get_string("owner") ~= player_name then
|
||
|
|
minetest.chat_send_player(player_name, S("[Techage Programmer] foreign or unknown node!"))
|
||
|
|
return itemstack
|
||
|
|
end
|
||
|
|
local text = join_to_string(numbers)
|
||
|
|
local ndef = minetest.registered_nodes[minetest.get_node(pos).name]
|
||
|
|
if ndef and ndef.techage_set_numbers then
|
||
|
|
local res = ndef.techage_set_numbers(pos, text, player_name)
|
||
|
|
if res == true then
|
||
|
|
minetest.chat_send_player(player_name, S("[Techage Programmer] node programmed!"))
|
||
|
|
else
|
||
|
|
minetest.chat_send_player(player_name, S("[Techage Programmer] Error: invalid numbers!"))
|
||
|
|
end
|
||
|
|
else
|
||
|
|
minetest.chat_send_player(player_name, S("[Techage Programmer] Error: programmer not supported!"))
|
||
|
|
end
|
||
|
|
return itemstack
|
||
|
|
else
|
||
|
|
return reset_programmer(itemstack, placer, pointed_thing)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
minetest.register_craftitem("techage:programmer", {
|
||
|
|
description = S("Techage Programmer (right = read number, left = write numbers)"),
|
||
|
|
inventory_image = "techage_programmer.png",
|
||
|
|
stack_max = 1,
|
||
|
|
wield_image = "techage_programmer_wield.png",
|
||
|
|
groups = {cracky=1, book=1},
|
||
|
|
-- left mouse button = program
|
||
|
|
on_use = program_numbers,
|
||
|
|
on_secondary_use = reset_programmer,
|
||
|
|
-- right mouse button = read
|
||
|
|
on_place = read_number,
|
||
|
|
})
|
||
|
|
|
||
|
|
minetest.register_craft({
|
||
|
|
output = "techage:programmer",
|
||
|
|
recipe = {
|
||
|
|
{"", "default:steel_ingot", ""},
|
||
|
|
{"", "techage:wlanchip", ""},
|
||
|
|
{"", "dye:red", ""},
|
||
|
|
},
|
||
|
|
})
|
||
|
|
|
||
|
|
techage.register_entry_page("ta3l", "programmer",
|
||
|
|
S("Techage Programmer"),
|
||
|
|
S("The Programmer is a tool to collect block numbers (right mouse button)@n"..
|
||
|
|
"from machines/nodes to program (left mouse button) the Repeater@n"..
|
||
|
|
"or other nodes. This is especially useful if you want to switch on/off@n"..
|
||
|
|
"many block at the same time."),
|
||
|
|
"techage:programmer")
|