twiml-simpsons-game.rb

require 'rubygems'
require 'sinatra'
require 'twilio-ruby'

get '/' do
  send_file File.join(settings.public_folder, 'index.html')
end

points = 0

q1_pool = [
  { mp3: "english", name: "Homer Simpson", answer: "466" },
  { mp3: "neddoodle", name: "Ned Flanders", answer: "633"},
  { mp3: "exports", name: "Bart Simpson", answer: "227"},
  { mp3: "whuptushie", name: "Marge Simpson", answer: "627"},
  { mp3: "phrases", name: "Lisa Simpson", answer: "547"},
]
q1 =""

q2_pool = [
  { mp3: "surgery", name: "Doctor Nick Riviera", answer: "642" },
  { mp3: "alcohol", name: "Mayor Joe Quimby", answer: "563" },
  { mp3: "nelsonhero", name: "Milhouse Van Houten", answer: "645" },
  { mp3: "aspirin", name: "Apu Nahasapeemapetilon", answer: "278" },
  { mp3: "olive", name: "Moe Szyslak", answer: "663" },
]
q2 = ""

q3_pool = [
  { mp3: "roof", name: "Cletus Spuckler", answer: "253" },
  { mp3: "game", name: "Chief Clancy Wiggum", answer: "252" },
  { mp3: "titpecker", name: "Principal Seymore Skinner", answer: "739" },
  { mp3: "lemonball", name: "Professor John Nerdelbaum Frink, Junior", answer: "564" },
  { mp3: "17stab", name: "Waylon Smithers", answer: "929" },
]
q3 = ""

caller_name = ""

get '/hello' do
  people = {
    '+14047180928' => 'Corinne Skott',
    '+14043755575' => 'Mike Skott',
    '+16786405495' => 'Myron Skott',
    '+14042757666' => 'Doctor Richard Smiley',
    '+18182926583' => 'Chunk Daddy',
    '+16784882915' => 'Ben Skott',
  }
  caller_name = people[params['From']] || 'Simpsons fan'
  Twilio::TwiML::Response.new do |r|
    r.Say "Ahoy hoy #{caller_name}, Welcome to", voice: 'alice'
    r.Say "Mike Skott's"
    r.Say "Simpson's audio game", voice: 'alice'
    r.Gather :numDigits => '1', :action => '/hello/simps', :method => 'get' do |g|
      r.Play '/sounds/simpsons_intro.mp3'
      r.Say 'Get ready to play the Simpsons audio game!', voice: 'alice'
      r.Play '/sounds/hacker.mp3'
      g.Say 'Press 1 to play.', voice: 'alice'
      g.Say 'Press any other key to start over.', voice: 'alice'
    end
  end.text
end

get '/hello/simps' do
  redirect '/hello' unless ['1'].include?(params['Digits'])
  points = 0
  q1 = q1_pool.sample
  q2 = q2_pool.sample
  q3 = q3_pool.sample
  Twilio::TwiML::Response.new do |r|
    r.Gather :numDigits => '1', :action => '/hello/simps/1', :method => 'get' do |g|
      g.Say 'To skip these instructions and get straight to the game, press 1 at any time. Press any other number to repeat these instructions.', voice: 'alice'
      g.Say 'In a moment, you will hear an audio clip from the Simpsons. You must try to determine the name of the character that you hear in the clip.', voice: 'alice'
      g.Say 'If you hear more than one character, please respond with the first character you hear in the clip.', voice: 'alice'
      g.Say 'You will enter your response by dialing the first three letters of the characters first name.', voice: 'alice'
      g.Say 'There will be three audio quotes in each game. Good luck!', voice: 'alice'
      g.Say 'Press 1 to begin the game, or any other number to repeat these instructions.', voice: 'alice'
    end
  end.text
end

get '/hello/simps/1' do
  redirect '/hello/simps?Digits=1' unless ['1'].include?(params['Digits'])
  Twilio::TwiML::Response.new do |r|
    r.Play '/sounds/02-coin.mp3'
    r.Say 'This first question is worth 10 points. Here we go.', voice: 'alice'
    r.Gather :numDigits => '3', :action => '/hello/simps/2', :method => 'get' do |g|
      g.Play "/sounds/#{q1[:mp3]}.mp3"
      g.Pause(length: 2)
      g.Say 'Dial the first three letters of the characters first name.', voice: 'alice'
    end
  end.text
end

get '/hello/simps/2' do
  if params['Digits'] == q1[:answer]
    points += 10
    response = Twilio::TwiML::Response.new do |r|
      r.Play '/sounds/woohoo.mp3'
      r.Say "#{q1[:name]} is correct for 10 points!", voice: 'alice'
      r.Play '/sounds/44-coin-2.mp3'
      r.Say 'This next question is worth 20 points. Ready?', voice: 'alice'
      r.Gather :numDigits => '3', :action => '/hello/simps/3', :method => 'get' do |g|
        g.Play "/sounds/#{q2[:mp3]}.mp3"
        g.Pause(length: 2)
        g.Say 'Dial the first three letters of the characters first name.', voice: 'alice'
      end
    end
  else
    response = Twilio::TwiML::Response.new do |r|
      r.Play '/sounds/doh.mp3'
      r.Say "That is incorrect. The correct answer was #{q1[:name]} or #{q1[:answer].split('').join(', ')}.", voice: 'alice'
      r.Say 'You have no points... May god have mercy upon your soul.', voice: 'alice'
      r.Play '/sounds/44-coin-2.mp3'
      r.Say 'This next question is worth 20 points. Ready?', voice: 'alice'
      r.Gather :numDigits => '3', :action => '/hello/simps/3', :method => 'get' do |g|
        g.Play "/sounds/#{q2[:mp3]}.mp3"
        g.Pause(length: 2)
        g.Say 'Dial the first three letters of the characters first name.', voice: 'alice'
      end
    end
  end
  response.text
end

get '/hello/simps/3' do
  if params['Digits'] == q2[:answer]
    points += 20
    response = Twilio::TwiML::Response.new do |r|
      r.Play '/sounds/woohoo.mp3'
      r.Say "#{q2[:name]} is correct for 20 points, giving you #{points} total points!", voice: 'alice'
      r.Play '/sounds/45-coin-3.mp3'
      r.Say 'This next question is worth 30 points. Ready?', voice: 'alice'
      r.Gather :numDigits => '3', :action => '/hello/simps/end', :method => 'get' do |g|
        g.Play "/sounds/#{q3[:mp3]}.mp3"
        g.Pause(length: 2)
        g.Say 'Dial the first three letters of the characters first name.', voice: 'alice'
      end
    end
  else
    response = Twilio::TwiML::Response.new do |r|
      r.Play '/sounds/doh.mp3'
      r.Say "That is incorrect. The correct answer was #{q2[:name]} or #{q2[:answer].split('').join(', ')}.", voice: 'alice'
      r.Say "You now have a total of #{points} points.", voice: 'alice'
      r.Play '/sounds/45-coin-3.mp3'
      r.Say 'This next question is worth 30 points. Ready?', voice: 'alice'
      r.Gather :numDigits => '3', :action => '/hello/simps/end', :method => 'get' do |g|
        g.Play "/sounds/#{q3[:mp3]}.mp3"
        g.Pause(length: 2)
        g.Say 'Dial the first three letters of the characters first name.', voice: 'alice'
      end
    end
  end
  response.text
end

get '/hello/simps/end' do
  if params['Digits'] == q3[:answer]
    points += 30
    response = Twilio::TwiML::Response.new do |r|
      r.Play '/sounds/woohoo.mp3'
      r.Say "#{q3[:name]} is correct for 30 points!", voice: 'alice'
      r.Say "Congratulations #{caller_name}! You finished the game with a total of #{points} points.", voice: 'alice'
      r.Play '/sounds/43-game-over.mp3'
      r.Gather :numDigits => '1', :action => '/hello/simps/end-menu', :method => 'get' do |g|
        g.Say 'To play again, press 1 now.', voice: 'alice'
        g.Say 'Press any other key to disconnect.', voice: 'alice'
      end
    end
  else
    response = Twilio::TwiML::Response.new do |r|
      r.Play '/sounds/doh.mp3'
      r.Say "That is incorrect. The correct answer was #{q3[:name]} or #{q3[:answer].split('').join(', ')}.", voice: 'alice'
      r.Say "Congratulations #{caller_name}! You finished the game with a total of #{points} points.", voice: 'alice'
      r.Play '/sounds/43-game-over.mp3'
      r.Gather :numDigits => '1', :action => '/hello/simps/end-menu', :method => 'get' do |g|
        g.Say 'To play again, press 1 now.', voice: 'alice'
        g.Say 'Press any other key to disconnect.', voice: 'alice'
      end
    end
  end
  response.text
end

get '/hello/simps/end-menu' do
  if params['Digits'] == '1'
    redirect '/hello/simps?Digits=1'
  else
    Twilio::TwiML::Response.new do |r|
      r.Say 'Goodbye.', voice: 'alice'
      r.Play '/sounds/beep15.mp3'
    end.text
  end
end