CC_IR_switch_CNS_odjezdy

--[[
Tagger pro automatizaci vyhybek Immersive Railroading pomoci ComputerCraftu, instalace jako autorun: pastebin get aWu7yJmr startup .

Detector (mode Computer) na strane horni (top), u monitoru a triggeru (detector s redstonem) na stranach nezalezi.

Na monitoru je seznam cilu a pravym mysitkem na zamerenem dojde k predvolbe tagu ve stylu LabelComputeru..cil (napr. DepoLoobick).
Vlastni otagovani vlaku/dreziny se provede prejetim triggeru (pak jej vycita CNS client a podle toho nastavuje vyhybky).
--]]

-- Nastaveni Labelu a seznam cilovych stanic
local Tagger = ""
local Cil = {"","Depo","Ferda","Kopri","Loobick","Pepa",}

-- Potrebne komponenty
local detector = peripheral.wrap("top")
local monitor = peripheral.find("monitor")

-- Hlavni telo programu
term.redirect(monitor) -- Presmerovani vsech textu na monitor
-- Pokud neni Label pocitace stejny jako vychozi misto, prejmenujeme ho
if (os.getComputerLabel() ~= (Tagger.."-odjezd")) then os.setComputerLabel(Tagger.."-odjezd") end
-- Nekonecna smycka
while true do
  term.clear()
  term.setCursorPos(1,1)
  print("Kampak?")
  for i,tag in pairs(Cil) do -- Vypis cilu
    print(tag)
  end
  -- Pockame na vyber cile a zachytime touch
  local _, _, _, touch = os.pullEvent("monitor_touch")
  term.clear()
  term.setCursorPos(1,1)
  print("Cil:")
  print(Cil[touch-1])
  print("")
  print("Prejed")
  print("cerveny")
  -- Pockame na prejezd triggeru a otagujeme loko/drezinu
  os.pullEvent("redstone")
  detector.setTag(Tagger..Cil[touch-1])
  term.clear()
  term.setCursorPos(1,1)
  sleep(2)
end