prijem

local modem = peripheral.wrap("right")
local mon = peripheral.wrap("top")

modem.open(2)

local kapacitapos = 0
local x=1
while true do
local event, modemSide, senderChannel,replyChannel, message, senderDistance = os.pullEvent("modem_message")
--local kapacita, kapacitapos = tonumber(kapacita), tonumber(kapacitapos)

mon.clear()
mon.setCursorPos(1,1)
celkem = message[2]/1000000
kapacita = message[1]
if kapacitapos == 0 then
kapacitapos = kapacita
end
kapacitaroz = kapacita - kapacitapos
kapacita = kapacita/1000000
kapacitaroz = kapacitaroz/20
proc = celkem/100
kapacitaproc = kapacita/proc
kapacitaproc = math.floor(kapacitaproc)
kapacita = math.floor(kapacita)
kapacitaroz = math.floor(kapacitaroz)
--tik = kapacita - kapacitapos
mon.setCursorPos(1,x)
mon.write("DRACONIC BATTERY 2")
mon.setCursorPos(1,x+1)
mon.write("Kapacita: "..kapacita.." MRf")
mon.setCursorPos(1,x+2)
mon.write("Kapacita: "..kapacitaproc.." %")

if kapacitaroz>0 then
mon.setCursorPos(1,x+3)
mon.setTextColor(colors.lime)
mon.write("RF/tik : "..kapacitaroz.." Rf")
mon.setTextColor(colors.white)
else
mon.setCursorPos(1,x+3)
mon.setTextColor(colors.red)
mon.write("RF/tik : "..kapacitaroz.." Rf")
mon.setTextColor(colors.white)
end

mon.setCursorPos(1,x+5)
mon.write("Celkova kapacita: "..celkem.." MRf")
--print("Vzdalenost vysilace: "..senderDistance)
--print("ZPrava : "..message)
kapacitapos = message[1]
sleep(1)

end