przeg

-- nietypowe id wieksze niz 999
local is = 4
-- dynamiczny plik
local h = io.open("dynpage", "w")
-- nadajnik
local bts = 6
-- program uruchamiajacy
local prog = "przeg"
local menu = "true"
local prog2 = "przegs"
-- reszta kodu
local round = 1
local ln = 1
shell.run("clear")
term.write("Szukaj:")
term.setCursorPos(1, 2)
term.write("--------------------------------------------------")
rednet.open("top")
term.setCursorPos(8, 1)
local idloc = os.getComputerID()
local input = read()
inputS = input
local input2 = "ip=".. idloc.. input
rednet.send(bts, input2)
term.setCursorPos(1, 3)
while true do
  local event, id, txt, dis = os.pullEvent()
   if event == "rednet_message" then
    if txt == input2 then
     else
      if txt:find("ip=1") then
      ln = ln + 1
      txt2 = txt:sub(is+1)
      h.write(ln, txt2)
     end
    end
    round = round + 1
    if ln == 15 then
     h.close()
     shell.run(prog2)
     local event1, key = os.pullEvent("key")
     if key == 19 then
      shell.run(prog)
     end
    if key == 16 and menu == "true" then
     shell.run("Krzak")
    end
    if key == 208 then
      box = box + 1
   end
  end
 end
end