Změna HW

verze = "20.0802.R1"
local ramCesta = "/C/system/RAM/devices/"
local modemy={}
local modemNum=0
local pocitace={}
local pocitaceNum=0
local repro={}
local reproNum=0
local drive={}
local driveNum=0
local monitor={}
local monitorNum=0
local tisk={}
local tiskNum=0

function save(table,name)
    local file = fs.open(ramCesta..""..name,"w")
    file.write(textutils.serialize(table))
    file.close()
end

function evidence()
    if modemNum > 0 then
    save(modemy,"modem.tmp")
    end
        if pocitaceNum > 0 then
        save(pocitace,"computer.tmp")
        end
    if driveNum > 0 then
    save(drive,"drive.tmp")
    end
        if monitorNum > 0 then
        save(monitor,"monitor.tmp")
        end
    if tiskNum > 0 then
    save(tisk,"printer.tmp")
    end
        if reproNum > 0 then
        save(repro,"speaker.tmp")
        end
end

function hodnot()
    if typ_zar == "modem" then
    modemNum = modemNum + 1
    modemy[modemNum] = pozice
    elseif typ_zar == "computer" then
    pocitaceNum = pocitaceNum + 1
    pocitace[pocitaceNum] = pozice
    elseif typ_zar == "drive" then
    driveNum = driveNum + 1
    drive[driveNum] = pozice
    elseif typ_zar == "monitor" then
    monitorNum = monitorNum + 1
    monitor[monitorNum] = pozice
    elseif typ_zar == "printer" then
    tiskNum = tiskNum + 1
    tisk[tiskNum] = pozice
    elseif typ_zar == "speaker" then
    reproNum = reproNum + 1
    repro[tiskNum] = pozice
    end
end

function rozpoznat()
    local q = 0
    repeat
        q = q+1
        hledej = string.sub(device,q,q)
        if (hledej==" ") then
            typ_zar = string.sub(device,1,q-1)
            pozice = string.sub(device,q+1,#device)
            hodnot()
            q = #device
        end
    until q == #device
    cist()
end

function cist()
    device = data.readLine()
    if device == nil then
        evidence()
        data.close()
    else
        rozpoznat()
    end
end

local periList = peripheral.getNames()
local s = fs.open (ramCesta.."All.tmp","w")
    for i = 1, #periList do
    s.writeLine(peripheral.getType(periList[i]).." "..periList[i])
    end
s.close()

data = fs.open (ramCesta.."All.tmp","r")
cist()