Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- подключаем необходимые интерфейсы
- local term = require("term")
- local sides = require("sides")
- local note = require("note")
- local event = require("event")
- local keyboard = require("keyboard")
- local component = require("component")
- -- находим красную плату компьютера
- local rs = component.redstone
- function idea(s)
- local _, _, _, code, _ = event.pull("key_down")
- return code
- end
- function idea2()
- try = ""
- while true do
- local err, f = pcall(idea)
- if not err then
- io.write("\n")
- return err, try
- end
- if f < 60 then
- if keyboard.keys[f] == 'enter'then
- io.write("\n")
- return err, try
- end
- try = try..keyboard.keys[f]
- io.write("*")
- end
- end
- end
- -- объявляем переменные: пароли и переменную для записи ввода
- local password = "test"
- -- отключаем сигнал на переднюю панель компьютера (дверь закрыта)
- rs.setOutput(sides.south, 0)
- -- очищаем терминал
- term.clear()
- while true do
- -- ввод пароля
- io.write("Введите пароль: ")
- err, try = idea2()
- -- если игрок попытался прервать программу
- if not err then
- print("А вот хрен Вам!")
- -- если пароль верный
- elseif try == password then
- -- пускаемсигнал на переднюю сторону компьютера (дверь открыта)
- rs.setOutput(sides.up, 15)
- print("Ок, у Вас есть 3 секунды!")
- -- воспроизводим звуковой сигнал
- note.play(83, 0.3)
- note.play(90, 0.2)
- -- ожидаем две с половиной секунды
- os.sleep(2.5)
- -- закрываем дверь
- rs.setOutput(sides.up, 0)
- print("Закрываю!")
- -- если введенное слово совпало с администраторским паролем
- elseif try == "power" then
- -- прерываем выполнение программы
- break
- -- если была введена команда "cls"
- elseif try == "cls" then
- -- очищаем консоль
- term.clear()
- -- если было введено что-то другое
- else
- -- выводим сообщение, и воспроизводим звук ошибки
- print("Обломитесь!Пытайтесь снова.")
- note.play(70, 0.2)
- end
- term.clear()
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement