TheGameCreators - CodeBase - SAW text adventure

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 21st Jan 2007 03:47

Modified: 1st Jan 1970 01:00

Author: hpfan273

Summary

i was bored.... so i made a random game.... all you do is answer riddles and stuff to survive

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

hide mouse

ink rgb(225,0,0),0

Input "Name Please > ";name$

cls

print "Hello ";name$

wait key

cls

Print "I want to play a game."

wait key

cls

Print "If you win, I give you the code to the device strapped around you."

wait key

cls

Print "If you lose, The waist band that you are wearing, will explode."

wait key

cls

Print "If you don't want to play, I will press a red button, and it will explode any way."

wait key

cls

Input "Live or Die? make your choice > ";choice$

if choice$="live"

cls

print "Ok...."

wait key

cls

print "3"

sleep 1000

cls

print "2"

sleep 1000

cls

print "1"

sleep 1000

cls

print "Here we go!!!"

wait key

cls

print "Welcome to the first room."

wait key

cls

print "In here, I will give you a series of puzzles, and to survive, you must get them right."

wait key

cls

print "Puzzle 1"

print " "

print "If a=5 b=5 c=5 d=6 e=7, then what does bad equal?"

input "> ";answer1$

if answer1$="556"

cls

print "congrats"

wait key

cls

print "Puzzle 2"

print " "

print "If a spiddle is a spaddle, and a spaddle is a spoodle, is a spiddle a spoodle?"

input "> ";answer2$

if answer2$="yes"

cls

print "1 left"

wait key

cls

print "Puzzle 3"

print " "

print "What walks first on four legs, then two legs, then three legs?"

input "> ";answer3$

if answer3$="a human"

cls

print "Next room!!!"

wait key

print "The key to the next room is behind your eye."

wait key

cls

print "You see a scalpal on the floor in the middle of the room."

wait key

cls

print "The only way out of this room, is to carve the key out of your eye."

wait key

cls

print "Will you do it?"

input "> ";key1$

if key1$="yes"

cls

Print "You got the key, but now there is another problem..."

wait key

cls

Print "You can barely see."

wait key

cls

Print "T3o t4h2e n5e2x7t5 ro68o987m"

wait key

cls

Print "T5h4e5r5e a8r8e th456r22e3e b6456u45tt6ons55 : o6n45e bl45ue,"

Print "o547ne55 r4ed87, a5n645d o731n1e y7e7l8lo9w."

wait key

cls

Print "T45o6 fi645n7is789h 5m1y g45am2e, y4o2u m1u11s7t ch6o45o21se7"

Print "o45n5e o7f t778he62s1e b752ut2t1o78n5s."

wait key

cls

Print "C456h12o8o52s1e w84i2s1e5ly, y453o123ur 4l45if6e d45ep2e1n54ds 2o2n i2t."

wait key

cls

Print "45Pr456ess 67A i8f9 you4 0p1i3c0k th15e bl786ue on12e"

Print "Pr12e12s7s588 2B0 i0048f y12ou7 p31ic1k t77h2e r4e3d7 o11n2e"

Print "Pr123es12s C i1f y31ou p13ick1 t13he3 1yell13ow 3o3ne"

Input "> ";button$

if button$="c"

print "Y44A53Y!!!! 48TH5E C52O1D88E I2S 5s4d6gg8t7j7rd8rd8hi6o5"

wait key

cls

Print "T21yp04e i4n t212he 53co45d2e: "

Input "> ";code$

if code$="5468778865"

print "A123LL3 D2ON12E!!!!!! Y12OU SUR213VI3V12ED!!!!!!!"

wait key

endif

Download

Please login to download

Comments

No comments yet.

Author Name:	hpfan273
CodeBase Entries:	1

CodeBase - SAW text adventure

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments