gayalarm.lua

c = peripheral.wrap("left")

while true do

    event, player, msg = os.pullEvent("chat")
    if msg == "I'm gay" then
    rs.setOutput("right", true)
    c.say("Warning:" ..player.. " is Gay! Alert Status: Red")
    sleep(7)
    c.say("Gay levels nominal; Alert Status recinded")
    rs.setOutput("right", false)
    sleep(1)
    end

end