unsquare

on changeCaseOfText(theText, theCaseToSwitchTo)
	if theCaseToSwitchTo contains "Lowercase" then
		set theComparisonCharacters to "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
		set theSourceCharacters to "abcdefghijklmnopqrstuvwxyz"
	else if theCaseToSwitchTo contains "Uppercase" then
		set theComparisonCharacters to "abcdefghijklmnopqrstuvwxyz"
		set theSourceCharacters to "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	else
		return theText
	end if

unsquare

set theHorror to {"The Exorcist", "The Walking Dead", "Interview With A Vampire", "Frankenstein", "The Babadook", "Poltergeist", "Gremlins", "It", "Rosemary’s Baby", "It Follows", "Hellraiser", "Psycho", "Evil Dead", "The Shining", "Texas Chainsaw Massacre", "The Descent", "The Thing", "Nightmare On Elm Street", "The Ring", "Carrie"}

set theNormal to {"Harry Potter", "House of Cards", "Back to the Future", "The Marvel Universe", "Mad Men", "Scooby Doo", "Scandal", "Planet of the Apes", "Transformers", "Sex and the City", "The Muppets", "Die Hard", "Star Trek", "Pitch Perfect", "50 Shades of Grey", "Fast and the Furious", "The Shawshank Redemption", "Casablanca", "Doctor Who", "The Martian"}

set thePrompt to "It's like " & some item of theHorror & " meets " & some item of theNormal & "!"

display dialog thePrompt