Popcorn

local tickTime = 0.1
function Melodie()
	m.playNote(4,5)
	m.playNote(2,7)
	m.playNote(0,17)
	sleep(tickTime * 2)
	m.playNote(4,17)
	m.playNote(0,12)
	sleep(tickTime)
	m.playNote(4,12)
	sleep(tickTime)

	m.playNote(4,5)
	m.playNote(2,7)
	m.playNote(0,8)
	sleep(tickTime * 2)
	m.playNote(4,17)
	m.playNote(0,12)
	sleep(tickTime)
	m.playNote(4,12)
	sleep(tickTime)

	m.playNote(4,5)
	m.playNote(2,7)
	m.playNote(0,5)
	sleep(tickTime * 2)
	m.playNote(4,17)
	sleep(tickTime)
	m.playNote(4,12)
	sleep(tickTime)
end
function OhterMelodie()
	m.playNote(4,5)
	m.playNote(2,7)
	m.playNote(0,17)
	sleep(tickTime * 2)
	m.playNote(4,17)
	m.playNote(0,19)
	sleep(tickTime)
	m.playNote(4,12)
	sleep(tickTime)

	m.playNote(4,20)
	m.playNote(2,7)
	m.playNote(0,20)
	sleep(tickTime * 2)
	m.playNote(4,20)
	m.playNote(0,19)
	sleep(tickTime)
	m.playNote(4,20)
	sleep(tickTime)

	m.playNote(4,12)
	m.playNote(2,7)
	m.playNote(0,20)
	sleep(tickTime)
	m.playNote(4,19)
	sleep(tickTime)
	m.playNote(4,20)
	m.playNote(0,17)
	sleep(tickTime)
	m.playNote(4,17)
	sleep(tickTime)

	m.playNote(4,19)
	m.playNote(2,7)
	m.playNote(0,19)
	sleep(tickTime * 2)
	m.playNote(4,19)
	m.playNote(0,17)
	sleep(tickTime)
	m.playNote(4,19)
	sleep(tickTime)
	m.playNote(4,19)
	sleep(tickTime)

	m.playNote(4,10)
	m.playNote(2,7)
	m.playNote(0,19)
	sleep(tickTime)
	m.playNote(4,17)
	sleep(tickTime)
	m.playNote(4,19)
	m.playNote(0,15)
	sleep(tickTime)
	m.playNote(4,15)
	sleep(tickTime)
	--112 Ended
end
mon = peripheral.wrap("top")
m = peripheral.wrap("bottom")

mon.clear()
mon.setTextScale(2)
mon.setCursorPos(15,2)
mon.write("Popcorn")

for i = 0, 3 do
	for i = 0, 2 do
		m.playNote(4,5)
		m.playNote(2,7)
		sleep(tickTime * 2)
		m.playNote(4,17)
		sleep(tickTime)
		m.playNote(4,12)
		sleep(tickTime)
	end
	-- Different
	m.playNote(4,5)
	m.playNote(2,7)
	sleep(tickTime)
	m.playNote(4,9)
	sleep(tickTime)
	m.playNote(4,10)
	sleep(tickTime)
	m.playNote(4,12)
	sleep(tickTime)
end

for i = 0, 3 do
	m.playNote(4,5)
	m.playNote(2,7)
	sleep(tickTime * 2)
	m.playNote(4,17)
	sleep(tickTime)
	m.playNote(4,12)
	sleep(tickTime)
end
--Start melodie
m.playNote(4,5)
m.playNote(2,7)
m.playNote(0,17)
sleep(tickTime)
m.playNote(4,9)
sleep(tickTime)
m.playNote(4,10)
m.playNote(0,15)
sleep(tickTime)
m.playNote(4,12)
sleep(tickTime)

Melodie()

m.playNote(4,5)
m.playNote(2,7)
m.playNote(0,17)
sleep(tickTime * 2)
m.playNote(4,17)
m.playNote(0,15)
sleep(tickTime)
m.playNote(4,12)
sleep(tickTime)

Melodie()