Rem Project: First game
Rem Created: 1/8/2003 9:25:13 PM
Rem ***** Main Source File *****
rem small text game with multiple endings
rem Players input saved as variables
INPUT "What is your name? ",name$
Input "How old are you? ",age$
Input "Are you GOOD person or EVIL? ",type$
Input "Would you give all you money to dogs?.....YES or NO ",money$
Input "Name your lucky number? ",l_n
rem the first two i can just say print
print "Your name is ",name$
print "You are ",age$
rem I set the multiple endings by IF statments
rem good or evil
a=0:b=0:c=0
SELECT upper$(type$)
CASE "EVIL"
print " YOU'RE EVIL!!! "
a=1
ENDCASE
CASE "GOOD"
print " NICE GUY....WHY. "
a=2
ENDCASE
CASE DEFAULT
type$="NONE"
a=0
ENDCASE
ENDSELECT
rem money to dogs
SELECT upper$(money$)
CASE "YES"
print " GOOD FOR YOU "
b=3
ENDCASE
CASE "NO"
print " WHATS WRONG WITH DOGS "
b=4
ENDCASE
CASE DEFAULT
type$="NONE"
ENDCASE
ENDSELECT
rem lucky number
print "So your lucky number is ",l_n
IF l_n>10 then print " WHY THAT LUCKY NUMBER? ":c=5
IF l_n<=10 then print " HA.....WITH THAT! You must be a realy unlucky person? ":c=6
rem ======================================================================
rem OKay so its all set all i got to do is make is so the var do something
rem =======================================================================
Print "YOUR ENDING ",name$
If a=1 and b=3 and c=5
print "Your EVIL and I like it, you need a new number though"
wait key
end
endif
If a=1 and b=4 and c=6
print "Your EVIL and you need to respect dogs more numbers fine though"
wait key
end
endif
If a=2 and b=3 and c=5
print "Your GOOD and I like it, you need a new number though"
wait key
end
endif
If a=2 and b=4 and c=6
print "Your GOOD and you need to respect dogs more numbers fine though"
wait key
end
endif
print "You either answered a question wrong, or there is no ending for this permutation"
wait key
end
If we could strike, I guarantee you there would be martial law.
