Angel Player Computercraft

-- Angel Player by SteamPunkCherub

-- Variable Declare
input = ""
dtime = 0
loop = false
dtimer = 0
playing = false
ddisk = "bottom"
diskname = disk.getAudioTitle(ddisk)
event = ""

-- Function Creation
local function getInput()
  event, key = os.pullEvent()
  if event == "char" then
    key = string.upper(key)
    if key == "P" or key == "S" then
      input = key
    end
  elseif event == "timer" and key == dtimer then
    loop = true
    key = 0
  end
end

local function display()
  term.clear()
  term.setCursorPos(1,1)
  print("Welcome to Angel Player!")
  print("Insert a Music disk into the tray below")
  print("and hit P to play")
  print("hit S to stop.")
  print("")
  if disk.hasAudio(ddisk) and playing then
    print("Now Playing: ", diskname)
  elseif disk.hasAudio(ddisk) and playing == false then
    print(diskname, " is currently paused.")
  else
    print("No music disk currently detected.")
  end
end

local function getDiskInfo()
  diskname = disk.getAudioTitle(ddisk)
  if diskname == "C418 - 13" then
    dtime = 178
  elseif diskname == "C418 - cat" then
    dtime = 185
  elseif diskname == "C418 - blocks" then
    dtime = 345
  elseif diskname == "C418 - chirp" then
    dtime = 185
  elseif diskname == "C418 - far" then
    dtime = 174
  elseif diskname == "C418 - mall" then
    dtime = 197
  elseif diskname == "C418 - mellohi" then
    dtime = 96
  elseif diskname == "C418 - stral" then
    dtime = 150
  elseif diskname == "C418 - strad" then
    dtime = 188
  elseif diskname == "C418 - ward" then
    dtime = 251
  elseif diskname == "C418 - 11" then
    dtime = 71
  elseif diskname == "C418 - wait" then
    dtime = 236
  elseif diskname == "portalgun:radioloop" then
    dtime = 21
  elseif diskname == "portalgun:wantyougone" then
    dtime = 141
  elseif diskname == "portalgun:stillalive" then
    dtime = 176
  elseif diskname == "Tim Rurkowski - wanderer" then
    dtime = 289
  elseif diskname == "???" then
    dtime = 183
  elseif diskname == "Lena Raine - Pigstep" then
    dtime = 148
  end
end

--Main Loop
while true do
  getDiskInfo()
  display()
  getInput()
  if disk.hasAudio(ddisk) then
    if input == "P" or loop then
      dtimer = os.startTimer(dtime)
      playing = true
      disk.playAudio(ddisk)
      loop = false
      input = ""
    elseif input == "S"then
      dtimer = 0
      dtime = 0
      playing = false
      disk.stopAudio(ddisk)
      input = ""
    end
  end
end