ASCII-World

// Do you dare? Version 0.001b for yaBasic
// E.K.Virtanen, public domain.
// www.ascii-world.com

bulletMin = 1
bulletMax = 6

while(exitPrg = false)

roundNum = 0
exitPrg = false
exitGame = false
// INTRO
clear screen
print color("red", "black") " Do You Dare?"
print " E.K.Virtanen, public domain."
print " Uberneat game for yaBasic ;D"
print
print " You are man with no future. You have nothing to lose."
print " Wife left you, took your dog and childrens with her."
print " You need to sell your house to pay kid's maintenance liability."
print " Doctor told you have a bad brain tumor and you will die in few months."
print
print " So you dont have anything to loose..."
print
print " Green fairy comes to you, you are life 'WTF?!?"
print " Fairy says, that if you take and survive of her challenge..."
print " ...she heals your tumor and gives you a billion dollars of money."
print
print " Fairy has a revolver with a bullet. Point it to your head and pull the trigger."
print " After every pull, bullet chamber is rolled randomly if you survive."
print " If you survive for ten times, you have passed the challenge."
print
print color("red", "black") "PRESS A KEY TO ENTER FOR A CHALLENGE!" : inkey$

// ENTER THE GAME
clear screen
print color("yellow", "black") " Fairy thinks you are a brave man."
print
bulletIs = int(ran(6) + 1)

// THE CHALLENGE
repeat
roundNum = (roundNum + 1)
print
print " This is round number: ", roundNum, "."
print
print " Fairy rolls the bullet wheel";
// BIT DELAY FOR EXCITEMENT
for counter = 1 to 5
pause 0.5
print ".";
next counter
wheelIs = int(ran(bulletMax) + bulletMin)
print
print " ...and gives the revolver to you which you point to your head."
print " Now you only need to pull the trigger and hope for the best."
print
print color("red", "black") " PRESS A KEY TO PULL THE TRIGGER!!!"
inkey$
clear screen
if wheelIs <> bulletIs then
print color("green", "black") " You survived of this round!!!!!!"
print color("green", "black") " There is still hope!!!"
end if
if wheelIs = bulletIs then
print color("red", "black") " You feel shortly how the bullet smashes your brains..."
print color("red", "black") " ...and now, you dont feel anything anymore."
print color("red", "black") " May your body and soul rest in peace."
break
end if
if roundNum = 10 then
exitGame = true
end if
print " Press a key for next round." : inkey$
clear screen
until(exitGame = true)

if roundNum = 10 and exitGame = true then
clear screen
print
print color("green", "black") " YOU HAVE SURVIVED THROUGH IMPOSSIBLE CHALLENGE!!!"
print color("green", "black") " ***************************************************"
print color("green", "black") " You pulled the trigger for TEN TIMES and you are still alive!"
print
print " Fairy cant believe it. But as for fairy of honor, she heals your tumor."
print " She also gives you and briefcase which has a billion dollars."
end if

print
print " Press 'y' to play again. Any other key to quit.";
YesNo$ = inkey$
if upper$(YesNo$) <> "Y" then
exitPrg = true
end if

wend