portal

--Set parames
monitorSide = "top"
redstoneSide = "front"
transmitterSide = "back"

m = peripheral.wrap(monitorSide)
t = peripheral.wrap(transmitterSide)
m.setBackgroundColor(colors.black)
m.clear()
redstone.setOutput(redstoneSide, false)
t.setFreq(0)

function send(number)
    t.setFreq(number)
    redstone.setOutput(transmitterSide, true)
    redstone.setOutput(redstoneSide, true)
    sleep(10)
    redstone.setOutput(transmitterSide, false)
    redstone.setOutput(redstoneSide, false)
    t.setFreq(0)
end

function main()
    xPos, yPos = 0, 0
    _, side, xPos, yPos = os.pullEvent("monitor_touch")
    if 2 <= xPos and xPos <= 8 and yPos == 2 then
        send(1301)
    end
end

m.setCursorPos(2,2)
m.setBackgroundColor(colors.purple)
m.write("Witch")

while true do
    main()
    sleep(1)
end