Bike/Ped Hawk Beacon

local component = require("component");
local traffic = component.traffic_light_card
local os = require("os")
local thread = require("thread")

local sides = require("sides")
local computer = require("computer")

-- Warning this script contains bulbs from a custom edited version of traffic control to use this script fine Left2 and Right2 for yellows and remove the 2 from that and it will work

local colors = require("colors")

local rs = component.redstone


function setBundledOutput(color, state)


    rs.setBundledOutput(sides.back, {[color] = state})



  end


  function getBundledoutput(color)

   return  rs.getBundledInput(sides.back, color);

  end

  setBundledOutput(colors.white, 200)

trafficLight = {}
lightPOS = traffic.listBlockPos()

for i = 1, #lightPOS do
  trafficLight[i] = lightPOS[i]
end



function setLights(id,state,mode,forceClear)
  -- F is the boolean for Flashing, S is the boolean for Steady/On
  local f = false
  local s = false

  --  Clear signal if flag to forceClear isn't set to false
  if forceClear ~= false then
    if (type(id) == "table") then
      for itr = 1, #id do
        traffic.clearStates(trafficLight[id[itr]][1],trafficLight[id[itr]][2],trafficLight[id[itr]][3])
      end
    elseif (type(id) == "string") then
      traffic.clearStates(trafficLight[id][1],trafficLight[id][2],trafficLight[id][3])
    end
  end

  --  Determine mode
  if mode ~= nil then
    --    Flashing
    if string.lower(mode) == "flash" then
      s = true
      f = true
    --   Steady
    elseif string.lower(mode) == "on" then
      s = true
      f = false
      --    Off
    else
      s = false
      f = false
    end
  else
    s = false
    f = false
  end

  --  Apply to signal
  if (type(id) == "table" and state ~= nil) then
    for itr = 1, #id do
      traffic.setState(trafficLight[id[itr]][1],trafficLight[id[itr]][2],trafficLight[id[itr]][3],state,s,f)
    end

  elseif (type(id) == "string" and state ~= nil) then
    traffic.setState(trafficLight[id][1],trafficLight[id][2],trafficLight[id][3],state,s,f)
  end
end
-- key
-- S Stright
-- Y stright bulb
-- T Turn Bulb
-- L Left
-- R Right
-- Middle Frame


-- north 1 LT, 2 YS , 3 YS , 4 RT
-- south 5 LT, 6 YS, 7 YS , 8 RT
-- east 9 L , 10 ML , 11 MR,12 R
-- west 13 L, 14 R


 local hawk = {1,2,3,4,5,6,}
 local ped = {7,8}
 local bike = {9,10}


os.sleep(60)
-- start script

setBundledOutput(colors.cyan, 200)

os.sleep(8)

local loop2 = thread.create(function()

    while true do
     print("BP HAWK Beacon @ Sierra HWY (U.S. 6)")
-- phase 1 sl&ss
setLights(bike, "Red", "on") BIKE
os.sleep(1)
setLights(bike, "red", "off") BIKE
os.sleep(35)
setLights(hawk, "Yellow", "flashing") HAWK
os.sleep(4)
setLights(hawk, "Yellow", "on") HAWK
os.sleep(3)
setLights(hawk, "Red", "on") HAWK
os.sleep(1)
setLights(ped, "Cross", "on") PED
os.sleep(5)
setLights(bike, "Green", "on") BIKE
os.sleep(12)
setLights(ped, "DontCross", "flash")
os.sleep(10)
setLights(bike, "Yellow", "on")
os.sleep(3)
setLights(hawk, "Red", "flashing") HAWK




    end


  end)




      thread.waitForAny({loop2})