startup

for a, b in pairs(rs.getSides()) do
    if peripheral.getType(b) == "manipulator" then
        chat = peripheral.wrap(b)
        break
    end
end

for a, b in pairs(rs.getSides()) do
    if peripheral.getType(b) == "modem" then
        rednet.open(b)
        break
    end
end

client = 75
day = "SET_TO_DAY"
night = "SET_TO_NIGHT"
clear = "SET_TO_CLEAR"
rain = "SET_TO_RAIN"
storm = "SET_TO_STORM"

function send(command)
    rednet.send(client, command)
    return "Command Sent: \""..command.."\""
end


while true do
    local _, player, message, uuid = os.pullEvent("chat_message")
    if rs.getAnalogInput("left") >= 4 then
        canMakeDay = true
        canMakeNight = false
    else
        canMakeNight = true
        canMakeDay = false
    end
    if rs.getInput("back") then
        canClear = true
        canRain = false
        canStorm = false
    else
        canClear = false
        canRain = true
        canStorm = true
    end



    if message:find("[?!`~][Dd]ay") and canMakeDay then
        print(send(day))
        chat.say("Setting time to day...")
    elseif message:find("[?!`~][Nn]ight") and canMakeNight then
        print(send(night))
        chat.say("Setting time to night...")
    elseif message:find("[?!`~][Cc]lear") and canClear then
        print(send(clear))
        chat.say("Clearing the weather...")
    elseif message:find("[?!`~][Rr]ain") and canRain then
        print(send(rain))
        chat.say("Makin' it rain ;)")
    elseif message:find("[?!`~][Rr]ain") and canRain == false then
        chat.say("If it is currently storming and you want it to rain without lightning, please set it to clear, and then try again.")
    elseif message:find("[?!`~][Ss]torm") and canStorm then
        print(send(storm))
        chat.say("Creating a storm...")
    elseif message:find("[?!`~][Ss]torm") and canStorm == false then
        chat.say("If it is currently raining and you want a storm, please set it to clear, and then run the command.")
    elseif message:find("[?!`~][Pp]rint_sides") then
        print(send("PRINT_SIDES"))
        id, message = rednet.receive()
        chat.say(message)
        rednet.send(id, "")
        id, message = rednet.receive()
        chat.say(message)
        rednet.send(id, "")
        id, message = rednet.receive()
        chat.say(message)
        rednet.send(id, "")
        id, message = rednet.receive()
        chat.say(message)
        rednet.send(id, "")
        id, message = rednet.receive()
        chat.say(message)
    elseif message:find("[?!`~][Ss]ource") then

    end

    --id, message = rednet.receive()
    --print(message)
end