ready = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  affinity <- get 
  as p $ do
    pose "b"
    say "AWWWW YEAH!  I HAVE TRANSFORMED INTO A HERSHEY KISS ANGEL!"
    say "TOP THAT, BITCH!"
  as a $ do
    pose "blank_stare"
    say "I am defeated."
  if affinity > 0
    then
      as p $ do
        say "I'm glad you believed in me, judges."
    else
      as p $ do
        say "Don't you wish you trusted me?"
ready = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  affinity <- get 
  as p $ do
    pose "b"
    say "AWWWW YEAH!  I HAVE TRANSFORMED INTO A HERSHEY KISS ANGEL!"
    say "TOP THAT, BITCH!"
  as a $ do
    pose "blank_stare"
    say "I am defeated."
  if affinity > 0
    then
      as p $ do
        say "I'm glad you believed in me, judges."
    else
      as p $ do
        say "Don't you wish you trusted me?"
ready = do
  a <- getCharacter "archibald"
  p <- getCharacter "pemberton"
  affinity <- get 
  as p $ do
    pose "b"
    say "AWWWW YEAH!  I HAVE TRANSFORMED INTO A HERSHEY KISS ANGEL!"
    say "TOP THAT, BITCH!"
  as a $ do
    pose "blank_stare"
    say "I am defeated."
  if affinity > 0
    then
      as p $ do
        say "I'm glad you believed in me, judges."
    else
      as p $ do
        say "Don't you wish you trusted me?"