Jarvis(WIP)

computer=require("computer")
com=require("component")
event=require("event")
chat=com.chat_box
radar=com.radar
--pim=com.pim
--crystal=com.crystal
--obsidian=com.obsidian
--iron=com.iron
--turret=com.os_energyturret
--turret.powerOn() вообще не вижу смысла в турелях
mfsu=com.afsu
lamp=com.colorful_lamp
red=com.redstone
doorStatus=""
teslaStatus=""
lampStatus=""
windowStatus=""
function HAY()
  chat.say("Лучше не бывает!")
end
function lampOn()
  lamp.setLampColor(32000)
  chat.say("Свет включён!")
  lampStatus="включена"
end
function lampOff()
  lamp.setLampColor(0)
  chat.say("Свет выключён!")
  lampStatus="выключена"
end
function musicOn()
  chat.say("Запуск стримера...")
  os.sleep(1)
  chat.say("Перемотка кассеты...")
  os.execute("tape rewind")
  os.sleep(0.25)
  chat.say("Воспроизводство кассеты...")
  os.execute("tape play")
end
function musicOff()
  chat.say("Выключаю кассету...")
  os.execute("tape stop")
end
function doorOpen()
  red.setOutput(1, 0)
  chat.say("Дверь открыта!")
  doorStatus="открыта"
end
function doorClose()
  red.setOutput(1, 15)
  chat.say("Дверь закрыта!")
  doorStatus="закрыта"
end
function windowOpen()
  red.setOutput(0, 15)
  chat.say("Окна открыты!")
  windowStatus="открыты"
end
function windowClose()
  red.setOutput(0, 0)
  chat.say("Окна закрыты!")
  windowStatus="закрыты"
end
function info()
   chat.say("Энергии в ЭФПХ: "..tostring(mfsu.getStored()).."/"..tostring(mfsu.getCapacity()).." EU")
   chat.say("Дверь "..doorStatus)
   chat.say("Лампа "..lampStatus)
   chat.say("Окна "..windowStatus)
   --chat.say("Катушки Тесла "..teslaStatus)
   chat.say("Компонентов:"..tostring(componentsNum()))
   chat.say("Память:"..tostring(computer.freeMemory()/1024).."/"..tostring(computer.totalMemory()/1024).." кБайт")
   chat.say("Управление Джарвисом: Andronio & Asummonster")
end
function playersNear()
  players=radar.getPlayers()
  for i=1, #players do  chat.say(players[i].name)
  end
end
_G.functions={
  {"Джарвис, как ты?", HAY},
  {"Джарвис, включи свет", lampOn},
  {"Джарвис, выключи свет", lampOff},
  {"Джарвис, музыку", musicOn},
  {"Джарвис, выключи музыку", musicOff},
  {"Джарвис, открой дверь", doorOpen},
  {"Джарвис, закрой дверь", doorClose},
  {"Джарвис, инфа", info},
  {"Джарвис, открой окна", windowOpen},
  {"Джарвис, закрой окна", windowClose},
  {"Джарвис, посетители", playersNear}
}
Users={
"Andronio",
"Asummonster"
}
function split(line)
  local data={}
  for word in line:gmath("%S+") do table.insert(data, word) end
  return data
end
function start(_, _, nick, msg)
  can=false
  for username = 1, #Users do
    if nick==Users[username] then
      can=true
    end
  end
  if can==true then
  for i=1, #functions do
    if msg==functions[i][1] then
      functions[i][2]()
    end
  end
  end
end
event.listen("chat_message", start)
chat.setName("Jarvis")
chat.say("Джарвис запущен!")