210 lines
3.5 KiB
QBasic
210 lines
3.5 KiB
QBasic
Rem Fortune Teller 1.1
|
|
|
|
Rem This file was originally named FT/1 as a reference to past tech names like OS/2 and CP/M, but Gitlab didn't like it.
|
|
|
|
Rem by John Paul Wohlscheid
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Rem You are free to read this source code, but I would ask that you try the application first.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Rem Like I said, please run the application before you look at the code.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Rem If you attempt to continue scrolling, I will attempt to corrupt your hard drive.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Rem I'll do it. STOP NOW.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
_Title "FT/1"
|
|
|
|
Screen 12
|
|
|
|
weight% = 0
|
|
|
|
Dim fname$
|
|
Dim coconutcreampie$
|
|
Dim binaryquestion$ ' Hold value of key press
|
|
Dim heav%
|
|
|
|
|
|
|
|
heav% = 0
|
|
|
|
Print "Welcome to FT/1"
|
|
Print "The most advanced fortune-telling application available."
|
|
Print
|
|
Print "However, we can't guarantee that the results of the application." ' Intro
|
|
Print "(Disclaimer added due to lawsuit.)"
|
|
Print
|
|
start:
|
|
Cls
|
|
Print
|
|
Print "Before we begin, please answer a few questions."
|
|
Print
|
|
Print
|
|
Print
|
|
Input "What is your first name? ", fname$ 'Store first name for later
|
|
Print
|
|
Print
|
|
Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows?
|
|
|
|
Cls
|
|
Sleep 5
|
|
Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user.
|
|
|
|
Sleep 5
|
|
Print
|
|
Print "Now let's get started."
|
|
Sleep 5
|
|
|
|
Cls
|
|
|
|
Print "But first"
|
|
Print "Would you be interested in donating to the continued"
|
|
Print "development of this application? (Y/N): "; ' Will the user donate?
|
|
|
|
Do
|
|
binaryquestion$ = InKey$
|
|
Loop Until ((LCase$(binaryquestion$) = "y") Or (LCase$(binaryquestion$) = "n"))
|
|
|
|
If binaryquestion$ = "y" Then cls: Print "Thank you for your patronage.": Print "19999999999.99 has been deducted from your bank account as a one time, non-renewing payment.": sleep 8: GoTo paid
|
|
If binaryquestion$ = "n" Then cls: Print "Fine. It's your too bad.": Print "All further communications to the web will be made via unsecured http.": sleep 8: GoTo cheap
|
|
|
|
|
|
cheap:
|
|
Print "I hope your information is safe."
|
|
Sleep 1
|
|
Cls
|
|
Input "What is your age? ", age$
|
|
Print
|
|
Print
|
|
Print "What is your weight? "
|
|
Input weight%
|
|
If weight% > 250 Then heav% = 1
|
|
Cls
|
|
Print
|
|
Print "Transferring data to server"
|
|
Print
|
|
Print
|
|
Sleep 5
|
|
Print "Working"
|
|
Sleep 3
|
|
Print "Working"
|
|
Sleep 2
|
|
Print "Working"
|
|
Sleep 5
|
|
Print "Working"
|
|
Print
|
|
Print
|
|
Print
|
|
Print
|
|
Print "Sometime in the future, you will pay taxes and you will die."
|
|
Sleep 2
|
|
Print "You are also a cheapskate."
|
|
Sleep 2
|
|
If heav% = 1 Then Print "Stay away from the potato chips. Your computer chair will thank you."
|
|
Print
|
|
Print "Thank you for trying our this expieramental Fortune telling program."
|
|
Print "If you found it insightful, share it with your friends and family."
|
|
Print
|
|
Print "To retry, press 1"
|
|
Input restart%
|
|
If restart% = 1 Then GoTo start
|
|
|
|
|
|
paid:
|
|
|
|
Cls
|
|
Input "What is your age? ", age$
|
|
Print
|
|
Print
|
|
Print "What is your weight? "
|
|
Input weight%
|
|
If weight% > 250 Then heav% = 1
|
|
Cls
|
|
Print
|
|
Print "Transferring data to server via https."
|
|
Print
|
|
Print
|
|
Sleep 5
|
|
Print "Working"
|
|
Sleep 3
|
|
Print "Working"
|
|
Sleep 2
|
|
Print "Working"
|
|
Sleep 5
|
|
Print "Working"
|
|
Print
|
|
Print
|
|
Print
|
|
Print
|
|
Print "Sometime in the future, you will pay taxes and you will die."
|
|
Sleep 2
|
|
Print "Thank you for youe contributions."
|
|
Sleep 2
|
|
If heav% = 1 Then Print "Stay away from the potato chips. Your computer chair will thank you."
|
|
Print
|
|
Print "Thank you for trying our this expieramental Fortune telling program."
|
|
Print "If you found it insightful, share it with your friends and family."
|
|
Print
|
|
Print "To retry, press 1 and hit ENTER. Otherwide, please close the window."
|
|
Input restart%
|
|
If restart% = 1 Then GoTo start
|