Ekdohibs/forth_computer
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add floppy disks, + a few bugfixes.

Browse Source
This commit is contained in:
Novatux 2013-08-16 21:32:28 +02:00
parent 6fa06d5aee
commit ba2ee9d9f9
1 changed files with 68 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
init.lua
View File

@ -353,7 +353,7 @@ end)
for i, v in pairs(ITABLE_RAW) do
ITABLE[i] = loadstring(v)
ITABLE[i] = loadstring(v) -- Parse everything at the beginning, way faster
end
local wpath = minetest.get_worldpath()
@ -400,8 +400,8 @@ minetest.register_node("forth_computer:computer",{
})
local on_screen_digiline_receive = function (pos, node, channel, msg)
if channel == "screen" then
local meta = minetest.get_meta(pos)
local meta = minetest.get_meta(pos)
if channel == meta:get_string("channel") then
local ntext = add_text(meta:get_string("text"), msg)
meta:set_string("text",ntext)
screens[hashpos(pos)].fmodif = true
@ -422,13 +422,20 @@ minetest.register_node("forth_computer:screen",{
local meta=minetest.get_meta(pos)
meta:set_string("text","\n\n\n\n\n\n\n\n\n\n")
screens[hashpos(pos)] = {pos=pos, fmodif=false}
meta:set_string("formspec", "field[channel;Channel;${channel}]")
end,
on_receive_fields = function(pos, formname, fields, sender)
local meta = minetest.get_meta(pos)
fields.channel = fields.channel or ""
meta:set_string("channel", fields.channel)
meta:set_string("formspec", "")
end,
on_destruct = function(pos)
screens[hashpos(pos)] = nil
end,
on_rightclick = function(pos, node, clicker)
local meta = minetest.get_meta(pos)
local name = clicker:get_player_name()
local meta = minetest.get_meta(pos)
if screens[hashpos(pos)] == nil then
screens[hashpos(pos)] = {pos=pos, fmodif=false}
end
@ -441,6 +448,62 @@ minetest.register_node("forth_computer:screen",{
end,
})
local on_disk_digiline_receive = function (pos, node, channel, msg)
local meta = minetest.get_meta(pos)
if channel == meta:get_string("channel") then
local page = string.byte(msg, 1)
if page==nil then return end
local inv = meta:get_inventory()
local stack = inv:get_stack("floppy", 1):to_table()
if stack.name ~= "forth_computer:floppy" then return end
if stack.metadata == "" then stack.metadata = string.rep(string.char(0), 16384) end
msg = string.sub(msg, 2, -1)
if string.len(msg) == 0 then -- read
local ret = string.sub(stack.metadata, page*64+1, page*64+64)
print(ret)
digiline:receptor_send(pos, digiline.rules.default, channel, ret)
else -- write
if string.len(msg) ~= 64 then return end
stack.metadata = string.sub(stack.metadata, 1, page*64)..msg..string.sub(stack.metadata, page*64+65, -1)
end
end
end
minetest.register_node("forth_computer:disk",{
description = "Disk drive",
tiles = {"disk.png"},
groups = {cracky=3},
sounds = default.node_sound_stone_defaults(),
digiline =
{
receptor = {},
effector = {action = on_disk_digiline_receive},
},
on_construct = function(pos)
local meta=minetest.get_meta(pos)
local inv = meta:get_inventory()
inv:set_size("floppy", 1)
meta:set_string("formspec", "size[9,5.5;]"..
"field[0,0.5;7,1;channel;Channel:;${channel}]"..
"list[current_name;floppy;8,0;1,1;]"..
"list[current_player;main;0,1.5;8,4;]")
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if stack:get_name() == "forth_computer:floppy" then return 1 end
return 0
end,
on_receive_fields = function(pos, formname, fields, sender)
local meta = minetest.get_meta(pos)
fields.channel = fields.channel or ""
meta:set_string("channel", fields.channel)
end,
})
minetest.register_craftitem("forth_computer:floppy",{
description = "Floppy disk",
inventory_image = "floppy.png",
})
minetest.register_globalstep(function(dtime)
for _,i in pairs(cptrs) do
@ -466,16 +529,12 @@ minetest.register_on_shutdown(function()
write_file(wpath.."/screens",screens)
end)
function escape(x)
return string.gsub(string.gsub(string.gsub(x,";","\\;"), "%]", "\\]"), "%[", "\\[")
end
function create_formspec(text)
local f = lines(text)
s = "size[5,4.5;"
i = -0.25
for _,x in ipairs(f) do
s = s.."]label[0,"..tostring(i)..";"..escape(x)--minetest.formspec_escape(x)
s = s.."]label[0,"..tostring(i)..";"..minetest.formspec_escape(x)
i = i+0.3
end
s = s.."]field[0.3,"..tostring(i+0.4)..";4.4,1;f;;]"