clever

os.loadAPI("cleverbot")
bot = cleverbot.Cleverbot.new()

c = peripheral.wrap("bottom")
d = peripheral.wrap("top")
response = ""
range = 1000000
lang = "en"
name = "CleverBot"
c.say("Booting...",range,false,name)
d.speak("Booting...",range,lang)
sleep(5)
c.say("Booted",range,false,name)
d.speak("Booted",range,lang)

while true do

 e,player,msg = os.pullEvent("chat")
 i, j = string.find(msg,".")

 if player == "Pepijn" then

  if msg == ".exit" then
   c.say("Shutting Down...",range,false,name)
   d.speak("Shutting Down...",range,lang)
   term.clear()
   term.setCursorPos(1,1)
   return

  elseif msg == ".time" then
   local time = os.time()
   local formattedTime = textutils.formatTime(time, false)
   c.say("It is "..formattedTime,range,false,name)
   d.speak("It is "..formattedTime,range,lang)

  elseif msg == ".weather" then
   weather = redstone.getBundledInput("back")

   if weather % 2 == 1 then
    c.say("It's raining, how depressing :(",range,false,name)
    d.speak("It's raining, how depressing :(",range,lang)

   elseif redstone.testBundledInput("back", 2048) then
    c.say("The sun is shining :)!",range,false,name)
    d.speak("The sun is shining :)!",range,lang)

   else
    c.say("The sky is clear!",range,false,name)
    d.speak("The sky is clear!",range,lang)

   end

  elseif msg == ".lock" then
   redstone.setBundledOutput("back",colors.combine(redstone.getBundledOutput("back"),256))
   c.say("Emergency Lock Activated!",range,false,name)
   d.speak("Emergency Lock Activated!",range,lang)

  elseif msg == ".open" then
   redstone.setBundledOutput("back",colors.subtract(redstone.getBundledOutput("back"),256))
   c.say("Emergency Lock Deactivated",range,false,name)
   d.speak("Emergency Lock Deactivated",range,lang)

  elseif msg == ".played" then
   day = os.day()
   c.say("You have been playing for "..day.." days",range,false,name)
   d.speak("You have been playing for "..day.." days",range,lang)

  elseif string.sub(msg, i, j) == "." then

  elseif msg ~= nil then
   response = bot:send(msg)
   if response ~= nil then
    c.say(response,range,false,name)
    d.speak(response,range,lang)
   end
  end
 end
end