SezamLite

component = require("component")
chat = component.chat_box
event = require("event")
rs = component.redstone

chatName = "Сезам"
chat.setName(chatName)
list = {"Chacaroon"}
checkName = false

function checkName(name)
 for _, val in ipairs(list) do
  if name == val then
   return true
  end
 end
 chat.say("Тест не пройден")
 return false
end

function checkMsg()
 _, _, name, msg = event.pull("chat_message")
 if msg == "Сезам, откройся!" then
  if checkName(name) == true then
   open(name)
  end
 elseif msg == "Сезам, закройся!" then
  if checkName(name) == true then
   close()
  end
 elseif msg == "Сезам, у нас пополнение!" then
  if checkName(name) == true then
   addUser()
  end
 elseif msg == "Сезам, у нас предатель!" then
  if checkName(name) == true then
   rmUser()
  end
 end
end

function addUser()
 add = false
 chat.say("Назови имя гостя")
 while add == false do
  _, _, name, msg = event.pull("chat_message")
  for _, val in ipairs(list) do
   if name == val then
    table.insert(list, msg)
    chat.say(msg .. ", заходи в любое время")
    add = true
   end
  end
 end
end

function rmUser()
 chat.say("Назови имя предателя")
 rm = false
 while rm == false do
  _, _, name, msg = event.pull("chat_message")
  for _, val in ipairs(list) do
   if name == val then
    for i1, val1 in ipairs(list) do
     if val1 == msg then
      table.remove(list, i1)
      chat.say(msg .. " не пройдёт!")
      rm = true
     end
    end
   end
  end
 end
end

function open(name)
 rs.setOutput(3, 15)
 chat.say("Проходи, " .. name)
end

function close()
 rs.setOutput(3, 0)
 chat.say("Слушаюсь и повинуюсь")
end

while true do
 checkMsg()
end