Autosmelter Server

mon = peripheral.wrap("right")

for i, side in ipairs(rs.getSides()) do --#Loop for each side on the computer that redstone can be used, these can also be used by modems.
if peripheral.getType(side) == 'modem' then --#Did we find a modem... Or some other peripheral?
    mon.clear()
  --print('Found Modem On Side '..side.."!")
  rednet.open(side)
  wireless = peripheral.wrap(side)
  break --#Opened modem, dont open any others.
end
end

function waitForMessage(displayMessage)
    local sender, message, protocol = rednet.receive()
    if displayMessage then
        mon.clear()
    local w, h = term.getSize()
        mon.setCursorPos(1,1)
        mon.write(message)
    else
        return message
    end
end

while true do
    waitForMessage(true)
end