startup.lua

modem = peripheral.find("modem")
modem.open(1442)
modem.open(1993)
local inbetween = "https://www.dropbox.com/s/i96biowdqdntbkg/You%20are%20listening%20to.dfpwm?dl=1"
local music =
{
"https://www.dropbox.com/s/kvs3png3z9ddmrv/Rick%20Springfield%20-%20Jessies%20Girl.dfpwm?dl=1",
"https://www.dropbox.com/s/xfr3px40jefavgf/House%20of%20the%20rising%20sun.dfpwma?dl=1",
"https://www.dropbox.com/s/d2m3mfmdkazopex/Creedence%20Clearwater%20Revival%20-%20Fortunate%20Son%20%28Lyric%20Video%29.dfpwm?dl=1",
"https://www.dropbox.com/s/0u7ppmfr0c11417/Asia%20-%20Heat%20of%20the%20Moment.dfpwm?dl=1",
"https://www.dropbox.com/s/h4z9h3vs748klhu/John%20Lennon%20-%20Imagine.dfpwm?dl=1",
"https://www.dropbox.com/s/y2lcdw45fonzqbr/Queen%20-%20Dont%20Stop%20Me%20Now%20%28Official%20Video%29.dfpwm?dl=1",
"https://www.dropbox.com/s/cvtmqklsdhbt7pq/Things%20We%20Lost%20In%20The%20Fire%20by%20Bastille%20Audio.dfpwm?dl=1",
"https://www.dropbox.com/s/f03cpl0iwtdcn4h/SIAMS%20-%20The%20Wolf%20Official%20Video.dfpwm?dl=1",
"https://www.dropbox.com/s/eww6tddw0b1dbr7/Kodaline%20-%20Ready%20%28Lyrics%29.dfpwm?dl=1",
}
print(music[1])
modem.transmit(1442, 1993, music[math.random(1,5)])
function doit()
sleep(0.1)
print("hi")
inbt = true
end

function two()
while true do
input = read()
rannum = tonumber(input)
end
end

function one()
while true do
event, modemSide, senderChannel, replyChannel, message, senderDistance = os.pullEvent("modem_message")
rannum = math.random(1,9)
if senderChannel == 1993 and message == "done" then
modem.transmit(1442, 1992, "stop")
sleep(1)
if rannum and inbt ~= true then
print(rannum)
modem.transmit(1442, 1993, music[rannum])
inbt = true
elseif inbt == true then
modem.transmit(1442, 1993, inbetween)
print("inbtwd")
inbt = false
end
end
end
end
parallel.waitForAny(one, two)
--music1 == "Jessies Girl"
--music2 house of the rising sun
--music3 Fortunate son
--music4 heat of the moment
--music5 john lennon imagine
--music6 queen dont stop me now
--music7 bastille things we lost in the fire
--music8 Siams the wolf
--music9 Kodaline ready