[1Ridav] ComputerCraft. Система датчиков

[Totoro 3 563]

 

Компьютер-пешка:

side = {"top", "right", "bottom", "left"}

host = 1

rednet.open("back")



local function bin(s)

if rs.getInput(s) then return 1 end

return 0

end



while true do

sender, msg = rednet.receive()

if sender == host then

concat = ""

for i = 1, #side do

concat = concat .. bin(side[i])

end

rednet.send(sender, concat)

end

end

Сервер-опросчик:

id = {0, 3, 4}

rednet.open("back")



local function bin(element)

if element == "1" then return "true" end

return "false"

end



local function format(str)

local form = ""

for i = 1, string.len(str) do

form = form .. "#" .. i .. " - " .. bin(string.sub(str, i, i)) .. "\n"

end

return form

end



while true do

sender, msg = rednet.receive()

if msg == "batstat" then

concat = ""

for i = 1, #id do

rednet.send(id[i], "")

thisId, thisIdAnswer = rednet.receive(5)

concat = concat .. thisIdAnswer

end

rednet.send(sender, format(concat))

end

end