|
|
BACK TO QBASIC HOME BACK TO HOME PAGE
Red Dwarf Site - Games - QBasic Red Dwarf Game - Source Code
'Red Dwarf Site - The Red Dwarf Game (text)
'
'IMPORTANT - THE RED DWARF GAME IS FREEWARE, IF YOU HAVE PAYED FOR
'THIS GAME THEN PLEASE CONTACT [email protected]
AND TELL US
'WHERE YOU GOT IT FROM AND FOR HOW MUCH, WE WILL THEN CONTACT THEM.
'
'If you are interested in helping us with future
'editions of this game then please scroll to the
'bottom of this source code for information. Thanks
'
'We rate this game PG, Parental Guidance because it has mild
'references to sex as in the Red Dwarf episode...
'"Gunmen of the Apocalypse". For an edited version of this game
'please contact me via email on [email protected]
'or visit our download page at:
' http://ukreddwarfsite.virtualave.net/qbasic_rdg.htm
'
10 CLS
20 REM http://www.reddwarfsite.co.uk
30 REM Presents...
40 REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
50 REM @ The Red Dwarf Game @
60 REM @ @
70 REM @ TEXT ADVENTURE AND QUIZ @
80 REM @ @
90 REM @ By Edward @
99 REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
100 REM Thank you for downloading
110 REM
120 REM Please Visit...
130 REM http://ukreddwarfsite.virtualave.net/qbasic_rdg.htm
140 REM Copyright 2001 Red Dwarf Site
150 REM Please feel free to use this code as long as you mention me, Edward and my website
http://www.reddwarfsite.co.uk,
if you edit the code however you must say that you have edited it too.
160 REM
170 REM (left blank for additional comments)
180 REM " "
190 REM " "
200 CLS
210 PRINT "Welcome to The Red Dwarf Game (text based) for MSDOS"
220 PRINT : PRINT "Please visit our Red Dwarf website at http://www.reddwarfsite.co.uk"
230 PRINT : PRINT
240 INPUT "So that we can personalise this game please tell us your name"; yn$
250 REM
260 REM Name Handler
270 REM
280 PRINT "Thankyou, "; yn$
290 PRINT : PRINT
300 REM
310 REM Age Handler
320 REM
330 INPUT "How old are you, "; age$
340 PRINT "Thankyou, "; yn$; ". Aged "; age$
350 PRINT : PRINT
360 REM
370 INPUT "Cool!, please press RETURN to continue"; n1$
380 IF n1$ = " " THEN GOTO 400 ELSE GOTO 400
390 REM
400 GOTO 410
410 CLS
420 REM
430 REM Main Menu
440 REM
450 PRINT "Welcome to The Red Dwarf Game"
460 PRINT "Please choose an option number from the list below, type it and press enter to continue"
470 PRINT : PRINT
480 PRINT "1 - Start Game"
490 PRINT "2 - About Game"
500 PRINT "3 - Help"
510 PRINT "4 - Quit"
520 REM Space left for extra options
530 REM
540 REM
550 REM
560 REM
570 REM
580 REM
590 REM
600 REM NEXT!
610 REM
620 REM Menu Option Handler
630 REM
640 INPUT me$
650 IF me$ = "1" THEN GOTO 780
660 IF me$ = "2" THEN GOTO 99999 ELSE GOTO 400
666 REM The devils number
670 IF me$ = "3" THEN GOTO 99999 ELSE GOTO 400
680 IF me$ = "4" THEN GOTO 99999 ELSE GOTO 400
690 IF me$ = "5" THEN GOTO 99999 ELSE GOTO 400
700 REM
710 REM
720 REM
730 REM
740 REM strings so far
750 REM age$ = your age
760 REM yn$ = your name
770 REM
780 REM Start Game Handler
790 REM
800 CLS
810 PRINT yn$; " ,welcome to Level 1"
820 PRINT : PRINT
830 PRINT yn$; ", You are LISTER in Level 1"
840 PRINT : PRINT
850 PRINT "You are in a AR (artificial reality) game with a female serial killer"
860 PRINT "What do you do "; yn$; "?"
870 PRINT : PRINT "a.) Try to shoot her"
880 PRINT "b.) Chat her up"
890 PRINT "c.) Say something stupid"
900 INPUT "Please type either a,b or c"; kil$
910 IF kil$ = "a" THEN GOTO 1000
920 IF kil$ = "b" THEN GOTO 1100
930 IF kil$ = "c" THEN GOTO 1200
940 IF kil$ = "A" THEN GOTO 1000
950 IF kil$ = "B" THEN GOTO 1100
960 IF kil$ = "C" THEN GOTO 1200 ELSE GOTO 850
1000 REM Option 1:a
1002 CLS
1004 PRINT "You draw your gun from your belt and point it at her"
1006 PRINT "She screams - Don't shoot me, let's make love instead"
1008 PRINT "Lister can't resist the temptation and you both jump into the nearby car and make love on the back seat"
1010 PRINT "Lister : I'm so glad I didn't shoot you, I don't care if you've killed four men. I still love you."
1012 PRINT "Serial Killer : I've killed five men"
1014 PRINT "Lister : Well anyway it's not your fault it's in your programming"
1016 PRINT "Serial Killer : I know"
1018 PRINT "A FEW MINUTES LATER..."
1020 PRINT "KRYTEN APPEARS FROM NOWHERE"
1022 PRINT "HE TAPS ON THE CAR WINDOW"
1023 PRINT : PRINT "You wind down the car window"
1024 REM Ha! 1024, that's the maximum amount of hard disk cyliners that FAT16 allows you to have
1025 PRINT : PRINT
1026 INPUT "PRESS ENTER TO CONTINUE"; xt$
1028 IF xt$ = " " GOTO 1030 ELSE GOTO 1030
1030 CLS
1040 REM Next page
1042 PRINT "Kryten : I have something very important to tell you Sir"
1044 PRINT "Lister : Wait ten minutes"
1046 PRINT "Kryten : It's really quite important Sir"
1048 PRINT "Lister : Allright, five minutes!!!"
1050 PRINT "Kryten : No, now Sir"
1052 PRINT "YOU OBEY KRYTENS ORDER AND GET OUT THE CAR"
1054 PRINT "THE SERIAL KILLER SEES KRYTEN (WHO IS PLAYING THE PART OF SAMMY THE SQUID IN THE AR GAME"
1056 PRINT "Serial Killer : Make love to me Sammy, it could be like the old days"
1058 PRINT "Lister : Your Trash"
1060 PRINT "Serial Killer : Hey, I'm programmed to be trash"
1070 PRINT "YOU BOTH LEAVE THE AR GAME IN DISGUST"
1075 PRINT : PRINT
1080 INPUT "PRESS ENTER FOR NEXT LEVEL"; xy$
1090 IF xy$ = " " THEN GOTO 1500 ELSE GOTO 1500
1100 REM Option 1:b
1101 REM
1102 REM Chat her up
1103 REM
1104 REM
1105 CLS
1110 PRINT "Lister : How would you like to have sex in that fine automobile"
1112 PRINT "Serial Killer : Sure, this will be fun"
1114 PRINT "Lister : Cool"
1116 PRINT "YOU BOTH GET IN THE CAR"
1117 PRINT : PRINT
1118 INPUT "PRESS RETURN TO CONTINUE"; ona$
1120 IF ona$ = " " THEN GOTO 1010 ELSE GOTO 1010
1130 REM Lots of empty space here!!!
1135 REM
1140 REM
1145 REM
1150 GOTO 1010
1200 REM Option 1:c
1202 REM
1204 REM You had to go and say something stupid
1206 REM
1208 REM
1210 CLS
1212 PRINT "Lister : You're Really, Really Ugly"
1214 PRINT "Serial Killer : I've killed five men and I'm gonna make that six now"
1216 PRINT "Lister : Let's make love instead"
1218 PRINT "Serial Killer : No chance, you just insulted me. I'm hurt"
1220 PRINT "SHE DRAWS HER GUN AND POINTS IT AT YOU"
1222 PRINT "SHE SHOOTS!!!, BANG!!!"
1224 PRINT "Game Over!!!"
1226 PRINT "You are angry because your AR game has finished. You are going to go straight back on it but you see Kryten"
1228 PRINT "Kryten : I have something important to tell you"
1230 PRINT : PRINT
1232 INPUT "PRESS RETURN FOR NEXT LEVEL"; two$
1234 REM 1,2,3,4 Ha!
1236 IF two$ = " " THEN GOTO 1500 ELSE GOTO 1500
1300 REM
1301 REM Dead End, So End
1309 REM
1310 GOTO 99999
1500 REM
1510 REM Level Two
1520 PRINT yn$; " ,welcome to Level 2"
1530 REM
99999 END
'
'DEVELOPERS NOTES
'
'If you can help us improve the (text) Red Dwarf Game in any way
'then please contact [email protected]
'
'All help is wanted including adding graphics to the game and making
'ports of it to other operating systems such as Linux.
'
'Version Info:
'Author(s) - Edward Jacobs
'http://www.reddwarfsite.co.uk
'[email protected]
'The Red Dwarf Game (text)
'Alpha 0.1
'Date Stamp : March 2001