YardMaster

--###############YardMaster
--variables;
Lane = {hasTrain=false,ready=false,timer = 5,port=0}

function Lane.new(baseClass,hasTrain,ready,timer,port)
    self = {}
    self["hasTrain"]= hasTrain
    self["ready"]= ready
    self["timer"]= timer
    self["port"]=port
    setmetatable(self,{__index=Lane})
    return self
end

setmetatable (Lane, {__call=Lane.new})

function Lane:print()
    print(self.hasTrain,", ",self.ready,", ",self.timer,", ",self.port)
end

local s = Lane(true,true,3,0)
s.print()

local timeOnStation = 5
local laneAmount =  3
local timeBetweenTrains = 5

local modem = peripheral.wrap("right")
--Open all modem ports;
local lanes = {}
for i = 0,laneAmount do
    modem.open(i)
    lanes[i] = Lane(false,false,i,0)
end

local event,port,message = os.pullEvent("modem_message")

//peripheral.call("left","write",message)

local screen = peripheral.wrap(left)

while true do
 screen.clear()
 screen.setCursorPos(1, 1)
 for i = 0,laneAmount do
    screen.write("Lane: ",i,"       ")
 end
end