tele

c = require("component")
local term = require("term")
local component = require("component")
event = require("event")
os = require("os")
event = require("event")
computer = require("computer")
local sides = require("sides")
serialization = require("serialization")
local gpu = component.gpu -- get primary gpu component
local w, h = gpu.getResolution()
gpu.fill(1, 1, w, h, " ") -- clears the screen
tun = component.tunnel
red = component.redstone
local port = -1
local asd = 1
print("IO computer")
print("--------------------------------------------------------------------------------------------------------------------------------------------------------------")
print()

repeat
    term.clear(false)
    print("Listening for incoming messages")
    print()

    local _, _, _, _, _, raw, address_raw = event.pull(nil, "modem_message")
    print("Message recieved.")
    os.sleep(0.5)

    if raw == "Teleport" then
        print("teleporting")
        red.setOutput(sides.right, 1)
        os.sleep(1)
        red.setOutput(sides.right, 0)
    elseif raw == "BaseToAlpha2" then
        print("Recieiving message from Base")

        os.sleep(1)
    elseif raw == "prepare" then
        print("preparing alpha base")





    end
until asd == 2