The Legend of Honeydew

color 13:PRINT "Do you...?"
PRINT"  A: hit with " ;: color 11:PRINT "diamond sword?"
PRINT"  B: Push out door, then close door?"
color 13:PRINT "Select A or B."

do
  dim as string key = ucase(inkey()) 'im storing the result of it because we will compare it multiple times
  if key = "A" then
    color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "sizzles."
    color 13:print "Do you...?"
    PRINT"  A: hit again?"
    PRINT"  B: leave it there?"
    color 13:PRINT "Select A or B."
    do
        dim as string key = ucase(inkey()) 'im storing the result of it because we will compare it multiple times
        if key = "A" then
            color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "dies! Collect " ;: color 6:PRINT"1 " ;: color 2:PRINT"gunpowder."
            exit do
            goto creeper_win
        elseif key = "B" then
            color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "explodes! Luckily, your house is bedrock."
            goto creeper_win
    exit do
  end if
  sleep 100, 1

loop
  elseif key = "B" then
    color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "stares at you through the iron door."
    exit do
  end if
  sleep 100, 1

loop
sleep 1000
creeper_win: color 13:PRINT "You defeated the " ;: color 10:PRINT "Creeper" ;: color 13:PRINT "!"