DoctorWhoStoryGen

if not fs.exists(shell.resolve("XMLua")) then
    local h = fs.open("XMLua","w")
    local code = http.get("http://pastebin.com/raw.php?i="..textutils.urlEncode('SDvxiBJc')).readAll()
    h.write(code)
    h.close()
end

function draw(words,col,back)
    col = col or colors.lightGray
    back = back or colors.black
    term.setTextColor(col)
    term.setBackgroundColor(back)
    write(words)
end

shell.run("clr")
draw("doctorwho",colors.lightBlue)
draw(" , ")
draw("starwars",colors.orange)
draw(" , ")
draw("simpsons",colors.yellow)
draw(" , ")
draw("futurama",colors.lime)
draw(" , ")
draw("holygrail",colors.purple)
draw(" , ")
draw("dexter",colors.brown)
draw(" , ")
draw("arresteddevelopment",colors.magenta)
draw(" or ")
draw("loremipsum?\n",colors.pink)
draw("> ",colors.green)
local choice = read()
term.setTextColor(colors.white)

local link = 'http://api.chrisvalleskey.com/fillerama/get.php?count=100&format=xml&show='..textutils.urlEncode(choice)
local server = http.post(link)
local res = server.readAll()
server.close()
local h = fs.open("response",'w')
h.write(res)
h.close()

local mon = peripheral.find("monitor")
if mon then
    term.redirect(mon)
end
shell.run("XMLua response")
shell.run("edit txt2")