click to join group
Here is episode 1 of my so far unfinished game based on my comic strip EARWIGO. Save code as .bas document and open with qbasic.
SCREEN 8
CIRCLE (320, 100), 200
CIRCLE STEP(0, 0), 100
music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D "
PLAY music$
FOR i% = 8 TO 8
COLOR i%
NEXT i%
PRINT
PRINT "----------------------------------------------------------------------"
PRINT "||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| "
PRINT "@@@@@@@@ @@@@@@@@@ @@@@@@ @@ @@ @@
@@@@@@ @@@@@@@ "
PRINT "@@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@
"
PRINT "@@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ "
PRINT "@@@@@@@@ @@@@@@@@@ @@@@@@@ @@ @@ @@ @@ @@
@@@@ @@ @@ "
PRINT "@@ @@ @@ @@ @@ @@ @@@@ @@ @@ @@ @@ @@
@@ "
PRINT "@@ @@ @@ @@ @@ @@@@ @@@@@ @@ @@ @@ @@
@@ "
PRINT "@@@@@@@@ @@ @@ @@ @@ @@ @@ @@ @@@@@@
@@@@@@@ "
PRINT
"+=+=+=+=+=++===++++=+++++===++++===+++++==++====++=++=====+++====++=+=+
= "
FOR i% = 4 TO 4
COLOR i%
NEXT i%
music$ = "MLT150o2P2P8L8ap8ap8egap4>c 5: WEND
PRINT " VIRTUAL TOUR INSIDE THE SPACESHIP!"
PRINT
PRINT " Earwigo game by Mike Rule-2002"
PRINT " A short orientation game, based on the comic strip by Mike Rule"
PRINT
FOR i% = 12 TO 12
COLOR i%
NEXT i%
PRINT "(press return)"
INPUT "", i$
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
SCREEN 2
PRINT "Hello, I am Professor Amgrammed, and I will be your guide of the"
PRINT "alien space ship. This virtual tour will require you to navigate"
PRINT "around the craft and choose what you would like to do."
PRINT
PRINT "(press return)"
PRINT
INPUT "", R$
10 PRINT
PRINT " ....The ship that we will tour is the very same "
PRINT "spaceship Joner, Hippy, Slothy and Sniffy bump into on the moon. The game"
PRINT "starts at their original space-craft, the Bonzermobile."
PRINT
PRINT "(press return)"
INPUT "", R$
PRINT
PRINT
INPUT " So where did the the earwigs go in their spaceship?", R$
PRINT
IF R$ = "the moon" OR R$ = "moon" THEN
PRINT
PRINT "thats right"
ELSEIF R$ = "in space" OR R$ = "space" THEN
PRINT
PRINT "close enough, they are on the moon."
ELSE
PRINT
PRINT "no you must try again. Read the introduction again."
PRINT
PRINT
GOTO 100
END IF
PRINT
PRINT
PRINT
INPUT "are you ready for the second question? (type answer now)", R$
PRINT
IF R$ = "yes" OR R$ = "OK" OR R$ = "okay" OR R$ = "i am" OR R$ = "i am ready" OR R$ =
"ready" THEN
PRINT "okay here it is...."
PRINT
PRINT
ELSEIF R$ = "no" OR R$ = "not really" OR R$ = "nope" OR R$ = "nah" THEN
PRINT "...i dont like your attiude sonny!"
GOTO 100
PRINT
PRINT
ELSE PRINT " you dont sound so sure?"
GOTO 10
END IF
PRINT
PRINT
INPUT "What is the name of the comic that this game is based on?(type answer now) ", R$
IF R$ = "earwigo" OR R$ = "earwig comics" OR R$ = "earwig comix" OR R$ = "earwig" THEN
PRINT
PRINT
PRINT "you are correct!...(visit http:geocites.com/mikerule2002)"
GOTO 120
PRINT
ELSEIF R$ = "Phantom" OR R$ = "the phantom" THEN
PRINT "you have Phaled this test"
GOTO 100
PRINT
ELSE PRINT " I am sorry, that is incorrect"
GOTO 110
END IF
100 PRINT
PRINT
INPUT "try again?", R$
PRINT
PRINT
IF R$ = "yes" THEN
GOTO 10
PRINT
PRINT
ELSEIF R$ = "no" THEN GOTO 110
ELSE PRINT "I think I had better ask you again.....";
GOTO 100
PRINT
PRINT
END IF
110 PRINT
PRINT
PRINT "thank you for playing"
'Play scale in 7 different octaves
scale$ = "CDEFGAB"
PLAY "L16"
FOR i% = 0 TO 6
PLAY "O" + STR$(i%)
PLAY "X" + VARPTR$(scale$)
NEXT i%
GOTO 1000
120 PRINT
PRINT
PRINT
PRINT "...okay lets start, remember to type an answer,"
PRINT "if I ask you a question."
PRINT
121 INPUT "...ready?", R$
IF R$ = "yes" OR R$ = "ready" OR R$ = "lets go" THEN
PRINT
PRINT
PRINT "as you say..."
GOTO 200
ELSEIF R$ = "no" OR R$ = "not yet" THEN
PRINT "well, mabey you should quit?"
GOTO 100
ELSE PRINT "what do you mean by that answer?"
GOTO 121
PRINT
PRINT
PRINT
PRINT
END IF
200 PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "this is the Bonzer Mobile. This is where your adventure starts..."
PRINT
PRINT
PRINT
PRINT
CIRCLE (220, 100), 30
CIRCLE STEP(200, 0), 30
LINE (250, 100)-(390, 100)
LINE (450, 100)-(500, 100)
LINE (500, 85)-(500, 100)
LINE (500, 85)-(480, 75)
LINE (480, 75)-(320, 75)
LINE (320, 75)-(320, 60)
LINE (320, 60)-(280, 75)
LINE (280, 75)-(170, 85)
LINE (170, 85)-(170, 100)
LINE (170, 100)-(190, 100)
PRINT
PRINT
INPUT "Do you want to take a closer look?", i$
IF i$ = "yes okay" OR i$ = "okay" OR i$ = "yes" THEN
GOTO 250
ELSEIF i$ = "no" OR i$ = "not really" OR i$ = "no thanks" THEN
GOTO 300
ELSE
PRINT "whats that you say?"
GOTO 200
END IF
250 PRINT
SCREEN 8
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
FOR i% = 9 TO 9
COLOR i%
NEXT i%
CIRCLE (220, 100), 30
CIRCLE STEP(200, 0), 30
FOR i% = 0 TO 6
COLOR i%
PRINT i%
NEXT i%
LINE (250, 100)-(390, 100)
LINE (450, 100)-(500, 100)
LINE (500, 85)-(500, 100)
LINE (500, 85)-(480, 75)
LINE (480, 75)-(320, 75)
LINE (320, 75)-(320, 60)
LINE (320, 60)-(280, 75)
LINE (280, 75)-(170, 85)
LINE (170, 85)-(170, 100)
LINE (170, 100)-(190, 100)
FOR i% = 11 TO 11
COLOR i%
PRINT i%
NEXT i%
CIRCLE STEP(190, 200), 400
FOR i% = 7 TO 7
COLOR i%
PRINT i%
NEXT i%
CIRCLE (90, 20), 60
'Play scale in 7 different octaves
scale$ = "CDEFGAB"
PLAY "L16"
FOR i% = 0 TO 6
PLAY "O" + STR$(i%)
PLAY "X" + VARPTR$(scale$)
NEXT i%
251 INPUT "how about that!...this is a piture of the Bonzermobile in action!!..okay?", i$
IF i$ = "yes" OR i$ = "okay" OR i$ = "enough" THEN
PRINT "okay"
GOTO 300
ELSEIF i$ = "no" OR i$ = "not yet" OR i$ = "wait" THEN
PRINT "okay, take your time..."
GOTO 251
ELSE PRINT "just look at the sleek lines"
END IF
252 SCREEN 8
INPUT "....are you ready to play?", i$
IF i$ = "yes" OR i$ = "okay" OR i$ = "enough" THEN
PRINT "okay"
GOTO 300
ELSEIF i$ = "no" OR i$ = "not yet" OR i$ = "wait" THEN
PRINT "okay, take your time..."
GOTO 251
ELSE
SCREEN 2
PRINT "..uh oh better hurry up, moon rays take their toll!"
PRINT
FOR i% = 0 TO 3: a%(i%) = i%: NEXT i%
DO
FOR i% = 0 TO 3
a%(i%) = (a%(i%) + 1) MOD 16
NEXT i%
PALETTE USING a%(0)
LOOP WHILE INKEY$ = ""
GOTO 252
END IF
300 PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "You are now ready to approach the space-ship"
SCREEN 8
music$ = "MlT180o2P2P8L8aap6aeeggap6aa>cc 5: WEND
PRINT
PRINT
PRINT " You and Professor Amgrammed turn from the Bonzer Mobile and make your "
PRINT "way towards the space craft. It is a large spherical ship with tripod legs "
PRINT "supporting it. A domed cannopy is just visable above the ship and below"
PRINT "is an open hatch with stairs leading down to the surface of the moon."
PRINT
PRINT
498 PRINT " You walk the short distance to the ship alongside Professor Amgrammed."
PRINT "A few meters away from the staircase, he turns to you and asks;"
PRINT
PRINT
INPUT " Any questions?", i$
IF i$ = "yes" OR i$ = "nod" THEN
PRINT "well, what is it?"
GOTO 499
ELSEIF i$ = "no" OR i$ = "nope" OR i$ = "lets go" OR i$ = "i'm fine" THEN
PRINT "...good lets go!"
GOTO 500
ELSE
PRINT " (cringe)...please reprase that.."
GOTO 499
END IF
499 PRINT
INPUT "....and your quesion is?", i$
IF i$ = "who goes first?" THEN
PRINT "...you do!"
GOTO 500
ELSEIF i$ = "are these stairs?" THEN
PRINT "...yes!"
GOTO 500
ELSE PRINT "..im alittle deaf.."
END IF
INPUT "what was that again?", i$
IF i$ = "are we on the moon?" THEN
PRINT "...yes we are!"
GOTO 500
ELSEIF i$ = "where are we?" THEN
PRINT "...space travel makes things possible...we are on the moon!"
GOTO 500
ELSE PRINT "Ah an excellent question....but sorry, there isn't time"
END IF
500 INPUT "are you ready to board the ship?", i$
IF i$ = "yes" OR i$ = "okay" THEN
PRINT
PRINT "well lets go!"
GOTO 600
ELSEIF i$ = "no" OR i$ = "not yet" OR i$ = "i'm scared" THEN
PRINT
PRINT "so do you want to go back to the Bonzermobile?"
GOTO 599
ELSE PRINT "yes or no please..."
GOTO 500
END IF
599 INPUT "shall we go back?", i$
IF i$ = "yes" THEN
PRINT "...back we go then"
PRINT "..humdy hody"
GOTO 200
ELSEIF i$ = "no" THEN
PRINT "...even space men can change their minds"
GOTO 600
ELSE PRINT "You seem to be confused...."
GOTO 498
END IF
600
1000 PRINT "to be continued"