ShopTerminal.lua

local component = require("component")
local term = require("term")
local event = require("event")
local modem = component.modem
local gpu = component.gpu

local port = 222
local waitTime = 36
--Таблица предметов--
local items = {
    [1] = " Золотой слиток",
    [2] = " Алмаз",
    [3] = " Дилдо",
}
while true do
    local err = false
    term.clear()

    print("--Терминал покупок by Pofigist--")
    print("Что желаете купить?")
    for i = 1, #items do
        term.write(" ")
        term.write(i)
        term.write(")")
        term.write(items[i])
    end

    local sel = io.read()

    modem.open(port)

    modem.broadcast(port, "STerm->SServer", "How", sel)

    local times = waitTime
    while err == false do
        local e = {event.pull()}

        if e[1] == "modem_message" then
            if e[6] == "SServer->STerm" then
                if e[7] == "Price" then
                    print("Стоимость: ", e[8], " монет")
                    break
                end
            end
        end
        if times == 0 then
            print("Сервер не отвечает. Повторите позже.")
            err = true
            break
        end
        times = times - 1
    end
    times = waitTime
    while err == false do
        print("Вложите требуемое количество монет в сундук и введите Y")
        local ok = io.read()
        if (ok == "Y") or (ok == "y") then
            print("Проверка валюты...")
            modem.broadcast(port, "STerm->SServer", "Buying", sel)
        else
            err = true
            print("Вы отказались от оплаты!")
        end
        break
    end
        times = waitTime
        while err == false do
            local e = {event.pull()}

            if e[1] == "modem_message" then
            if e[6] == "SServer->STerm" then
                if e[7] == "Sucsesful" then
                    print("Покупка оплачена. Ожидайте...")
                    break
                end
            end
            if times == 0 then
                print("Сервер не отвечает. Повторите позже.")
                err = true
                break
            end
            times = times - 1
        end
        --TEST
    end
    print("GlErr")
end