REM BY TRAVIS SCHULTZ CLS PRINT "Before we begin: This game was never finished." SLEEP 2 1 CLS 10 DEFINT A-Z 'SparklePause: ' Creates flashing border for intro screen PLAY "MBT160O1L8CDEDCDL4ECC" COLOR 4, 0 DFG$ = "* * * * * * * * * * * * * * * * * " WHILE INKEY$ <> "": WEND 'Clear keyboard buffer WHILE INKEY$ = "" FOR a = 1 TO 5 LOCATE 1, 1 'print horizontal sparkles PRINT MID$(DFG$, a, 80); LOCATE 22, 1 PRINT MID$(DFG$, 6 - a, 80); FOR B = 2 TO 21 'Print Vertical sparkles c = (a + B) MOD 5 IF c = 1 THEN LOCATE B, 18 PRINT " WELCOME TO TRAVIS'S ORIGINAL SHADOW DEMON" LOCATE B, 80 PRINT "*"; LOCATE 23 - B, 1 PRINT "*"; ELSE LOCATE B, 80 PRINT " "; LOCATE 23 - B, 1 PRINT " "; END IF NEXT B NEXT a WEND 19 CLS 20 COLOR 7, 0 21 CLS 30 CLS 31 INPUT "What is your name"; a$ 35 PRINT "Are you sure that is your name Y/N" DO c$ = UCASE$(INKEY$) LOOP UNTIL c$ = "Y" OR c$ = "N" IF c$ = "Y" THEN 40 IF c$ = "N" THEN 30 END 40 CLS 41 PRINT ""; a$; ", hi!" PRINT "You live in the 24th century." 45 SLEEP 3 50 CLS 60 PRINT ""; a$; ", playing this game you can pick to be:" 70 PRINT " 1. Bounty Hunter" 80 PRINT " 2. Outpost Commander" 90 PRINT " 3. Mercenary" 100 PRINT " 4. Starship Captain" 105 PRINT " <1&4 work>" 110 PRINT " " 120 INPUT "What is your choice"; B$ IF B$ = "1" THEN 130 IF B$ = "2" THEN 1 IF B$ = "3" THEN 1 IF B$ = "4" THEN 1130 IF B$ = "!@#$" THEN 1 END 130 CLS PRINT "" DO kbd$ = UCASE$(INKEY$) LOOP UNTIL kbd$ = "Y" OR kbd$ = "P" IF kbd$ = "Y" THEN 140 IF kbd$ = "P" THEN 780 140 CLS 145 PRINT ""; a$; ", you are a bounty hunter." 150 PRINT "You at a outpost at the far side of the universe." 160 PRINT " 1 To the right is a bar" 170 PRINT " 2 To the left is an armory" 180 PRINT " 3 Behind you is the control center" 190 PRINT " 4 In front of you is a warehouse" 200 INPUT " Where do you want to go"; D$ IF D$ = "1" THEN 2500 IF D$ = "2" THEN 3190 IF D$ = "3" THEN 210 IF D$ = "4" THEN 3560 GOTO 130 210 CLS PRINT "You have entered the control center. There are a lot of people working." PRINT "Two guards look at you strangely. The commander turns around and says:" SLEEP 4 211 PRINT ""; a$; " nice to see you!" 212 PRINT "Do you?" 220 PRINT " 1. Say hello" 230 PRINT " 2. Say who are you" 240 PRINT " 3. Pull out a gun and blow him away" 250 PRINT " 4. Say screw you" INPUT ""; D$ IF D$ = "1" THEN 550 IF D$ = "2" THEN 360 IF D$ = "3" THEN 260 IF D$ = "4" THEN 320 GOTO 210 260 CLS 270 PRINT "You pull out a shot gun and shoot him in his chest." 280 PRINT "The 2 guards pull out hand guns and shoot you in the chest." 290 PRINT "This is not the best way to obtain a tatoo. You fall back dead!" 295 SLEEP 4 300 SOUND 45, 15 SLEEP 3 310 CLS 312 INPUT "Choose one: 1. Start over 2.Try again 3.exit"; e$ IF e$ = "1" THEN 1 IF e$ = "2" THEN 210 IF e$ = "3" THEN END GOTO 310 END 320 CLS 330 PRINT "You say screw you. He pulls out a hand gun and fires right into your head." 331 PRINT "You immediately acquire a splitting headache." 340 SOUND 45, 15 SLEEP 4 350 GOTO 310 END 360 CLS 370 PRINT "He does not know me?!?!?! Kill him guards!!" 380 PRINT "The two guards pull out hand guns and fire into your legs." 390 PRINT "You fall on the ground bleeding to death." 400 SLEEP 410 CLS 420 PRINT "Do you:" 430 PRINT " 1. Say help" 440 PRINT " 2. Pull out a gun" 450 PRINT " 3. Lay there and pray" 460 INPUT ""; F$ IF F$ = "1" THEN 470 IF F$ = "2" THEN 485 IF F$ = "3" THEN 530 GOTO 410 END 470 CLS 475 PRINT "They ignore you and you die." 480 SOUND 45, 15 SLEEP 10 GOTO 310 485 CLS 490 PRINT "You pull out your shotgun and fire into the commanders chest," 500 PRINT "propelling him into the computers!" 510 PRINT "The 2 guards fire at you again and you die.... slowly and painfully." 520 GOTO 480 END 530 PRINT "You lay there, pray, and then die." 540 GOTO 480 END 550 CLS 551 PRINT "The commander welcomes you. He says:" 560 INPUT "Would you like info on a contract y/n"; g$ IF g$ = "y" THEN 720 IF g$ = "n" THEN 690 GOTO 550 562 END 563 PRINT "If you lie and say yes you will have to do alt-ctrl-del!!" PRINT "Have you paid .50$ to play Y/N" DO AAA$ = UCASE$(INKEY$) LOOP UNTIL AAA$ = "Y" OR AAA$ = "N" IF AAA$ = "Y" THEN 570 IF AAA$ = "N" THEN 562 END 570 PRINT "What is the password Tommy" 580 DO 590 LOOP UNTIL INKEY$ = CHR$(112) 600 GOTO 30 610 END 620 CLS 625 PRINT ""; a$; ", you now have level select for Bounty Hunter!!" 630 PRINT "Pick one:" 640 PRINT " 1. The Outpost" 650 PRINT " 2. The Job" 660 PRINT " 3. The Trip Home" 670 PRINT " 4. The End" 680 INPUT " What would you like"; WE$ IF WE$ = "1" THEN 140 IF WE$ = "2" THEN 720 IF WE$ = "3" THEN 2330 IF WE$ = "4" THEN 1 END 690 PRINT "He is an imposter!!!" 700 GOTO 380 710 END 720 CLS DEFINT A-Z 'SparklePause: ' Creates flashing border for intro screen PLAY "MBT160O1L8CDEDCDL4ECC" COLOR 4, 0 DFG$ = "* * * * * * * * * * * * * * * * * " WHILE INKEY$ <> "": WEND 'Clear keyboard buffer WHILE INKEY$ = "" FOR a = 1 TO 5 LOCATE 1, 1 'print horizontal sparkles PRINT MID$(DFG$, a, 80); LOCATE 22, 1 PRINT MID$(DFG$, 6 - a, 80); FOR B = 2 TO 21 'Print Vertical sparkles c = (a + B) MOD 5 IF c = 1 THEN LOCATE B, 18 PRINT " WELCOME TO LEVEL 2 `THE JOB' VER. 1.0!" LOCATE B, 80 PRINT "*"; LOCATE 23 - B, 1 PRINT "*"; ELSE LOCATE B, 80 PRINT " "; LOCATE 23 - B, 1 PRINT " "; END IF NEXT B NEXT a WEND 730 CLS 740 COLOR 7, 0 750 CLS 760 PRINT "You have passed level 1. Press space to proceed." DO LOOP UNTIL INKEY$ = CHR$(32) 770 PRINT ""; a$; ", you are in a spaceship." 775 GOTO 810 777 END 780 CLS 781 PRINT "Error press alt-ctrl-del." 790 DO 800 LOOP UNTIL INKEY$ = CHR$(108) DO LOOP UNTIL INKEY$ = CHR$(101) DO LOOP UNTIL INKEY$ = CHR$(118) DO LOOP UNTIL INKEY$ = CHR$(101) DO LOOP UNTIL INKEY$ = CHR$(108) GOTO 620 810 INPUT "What is the name of the bounty you are hunting"; HG$ 820 CLS 830 PRINT "After a while you land on a moon." 840 PRINT "Which way:" 850 PRINT " 1. North" 860 PRINT " 2. South" 870 PRINT " 3. West" 880 INPUT " What is your choice"; H$ IF H$ = "1" THEN 900 IF H$ = "2" THEN 2000 IF H$ = "3" THEN 1 890 GOTO 820 900 CLS 901 PRINT "You come to where the path splits. Pick 1 for right, 2 for left, 3 for back." 910 INPUT "Which way"; I$ IF I$ = "1" THEN 1 IF I$ = "right" THEN 1 IF I$ = "2" THEN 920 IF I$ = "left" THEN 920 IF I$ = "3" THEN 820 IF I$ = "back" THEN 820 GOTO 900 920 CLS 921 INPUT "You come to a bar. It looks sleezy. Do you go in y/n"; J$ IF J$ = "y" THEN 930 IF J$ = "n" THEN 900 GOTO 920 930 CLS 931 PRINT "When you enter the bartender yells:" 940 PRINT "What do you want?" 950 PRINT "Do you:" 960 PRINT " 1. Leave" 970 PRINT " 2. Talk to him" 980 INPUT " What is your choice"; K$ IF K$ = "1" THEN 900 IF K$ = "2" THEN 1000 990 GOTO 930 1000 CLS 1010 PRINT "You go to him and whisper:" 1020 PRINT ""; HG$; ", is what I want." SLEEP 4 1030 PRINT "He says:" 1040 PRINT "I think your name must be "; a$; "." 1050 PRINT ""; HG$; " told me that you are a bounty hunter." 1051 PRINT "I don't like"; HG$; ", so I will tell you where to go." 1060 PRINT ""; HG$; " is at the launch site." SLEEP 4 1070 PRINT "Do you:" 1080 PRINT " 1. Leave" 1090 PRINT " 2. Ask where that is" 1100 INPUT " What is your choice"; L$ IF L$ = "1" THEN 900 IF L$ = "2" THEN 1110 GOTO 1000 1110 CLS 1120 PRINT "Get out of here" GOTO 900 1130 CLS 1140 PRINT ""; a$; ", you are a starship commander." 1150 INPUT "What is the name of your starship"; D$ 1160 INPUT "What is the name of your first commander"; e$ 1170 CLS 1180 PRINT "You are on the bridge and are orbiting a planet." 1190 PRINT ""; a$; ", you are NOT supposed to be here." 1200 SLEEP 10 1210 PRINT "A small fighter comes in from hyper-space and fires at your ship." 1220 PRINT "Do you:" 1230 PRINT " 1. Return fire" 1240 PRINT " 2. Wait" 1250 PRINT " 3. Run like a chicken that saw Kenny Rogers" 1260 PRINT " 4. Try to talk to it" 1270 INPUT " What is your choice"; F$ IF F$ = "1" THEN 1280 IF F$ = "2" THEN 1 IF F$ = "3" THEN 1 IF F$ = "4" THEN 1 GOTO 1170 1280 PRINT "You order return fire. Your ship fires once and destroys the enemy." 1290 SLEEP 10 1300 INPUT "Do you want a status report y/n"; g$ IF g$ = "y" THEN 1310 IF g$ = "n" THEN 1 GOTO 1280 1310 PRINT "Status Report:" 1320 PRINT " 1. 10 lives lost" 1330 PRINT " 2. Minor damage to shields" 1340 SLEEP 10 1350 PRINT END 2000 CLS 2010 PRINT ""; a$; ", you find a Launch site." 2020 PRINT "What do you want to do:" 2030 PRINT " 1. Go in" 2040 PRINT " 2. Leave" 2050 PRINT " 3. Sucide" 2060 INPUT " What is your choice"; qA$ IF qA$ = "1" THEN 2090 IF qA$ = "2" THEN 820 IF qA$ = "3" THEN 2070 GOTO 2000 2070 PRINT "You pull out your shot gun and fire. Your head flys into some rocks!" PRINT "You die quickly." 2080 GOTO 295 2090 CLS 2100 PRINT "You are at the door do you:" 2110 PRINT " 1. Walk in" 2120 PRINT " 2. Sneak in" 2130 PRINT " 3. Walk in like you own the place." 2140 INPUT " What is your choice"; tr$ IF tr$ = "1" THEN 1 IF tr$ = "2" THEN 2150 IF tr$ = "3" THEN 2210 GOTO 2090 2150 CLS 2160 PRINT "You sneak around the back. Then you go in a back door." SLEEP 5 2170 PRINT "When you walk in the alarm goes off and guards come rushing." SLEEP 5 2180 PRINT "You say screw you and fire into the guards!" SLEEP 5 2190 PRINT "The guards fire and shot you all over your chest. You fall back dead." 2200 GOTO 295 2210 CLS 2222 PRINT ""; a$; ", you walk in all cool like!" 2230 PRINT "The guards come up to you and put guns in your face." SLEEP 5 2240 PRINT "You take a hidden machine gun out and kill all of the guards!" 2250 SLEEP 2260 CLS 2270 PRINT "You see "; HG$; ", scared white." 2280 SLEEP 5 2290 PRINT "He says:" 2300 PRINT ""; a$; ", get away from me!" 2310 SLEEP 5 2320 PRINT "You go up to him and hit him with your gun. You drag him away." SLEEP 2330 CLS DEFINT A-Z 'SparklePause: ' Creates flashing border for intro screen PLAY "MBT160O1L8CDEDCDL4ECC" COLOR 4, 0 DFG$ = "* * * * * * * * * * * * * * * * * " WHILE INKEY$ <> "": WEND 'Clear keyboard buffer WHILE INKEY$ = "" FOR a = 1 TO 5 LOCATE 1, 1 'print horizontal sparkles PRINT MID$(DFG$, a, 80); LOCATE 22, 1 PRINT MID$(DFG$, 6 - a, 80); FOR B = 2 TO 21 'Print Vertical sparkles c = (a + B) MOD 5 IF c = 1 THEN LOCATE B, 18 PRINT " WELCOME TO LEVEL 3 `THE TRIP HOME' VER. 1.0!" LOCATE B, 80 PRINT "*"; LOCATE 23 - B, 1 PRINT "*"; ELSE LOCATE B, 80 PRINT " "; LOCATE 23 - B, 1 PRINT " "; END IF NEXT B NEXT a WEND 2340 CLS 2350 COLOR 7, 0 2360 CLS 2370 PRINT "You have passed level 2. Press space to proceed." DO LOOP UNTIL INKEY$ = CHR$(32) 2380 PRINT ""; a$; ", you are in a spaceship again." 2390 PRINT "You are going back to the planet with your bounty!" 2400 CLS END 2500 CLS 2510 PRINT "You go into the bar and the bar tender yells:" 2520 PRINT "What do you want?" 2530 PRINT "You says:" 2540 PRINT "A drink." 2550 PRINT "He says" 2560 PRINT " Hey you are "; a$; ", a bounty hunter." SLEEP 10 2565 CLS 2570 PRINT "Every one looks at you!" 2580 PRINT "What should you do:" 2590 PRINT " 1. Run" 2600 PRINT " 2. Talk with him" 2610 PRINT " 3. Pull out a gun and kill everyone" 2620 INPUT " What is your choice"; ab$ IF ab$ = "1" THEN 2630 IF ab$ = "2" THEN 2750 IF ab$ = "3" THEN 2840 GOTO 2565 2630 CLS 2640 PRINT "You sprint out the door only to run right into some big guy!" SLEEP 4 2650 PRINT "He says:" 2660 PRINT "^#$ @#$%%&^ &*(&*$BHE #$&*(" 2670 PRINT "" SLEEP 4 2680 PRINT "Then he hits you on your head and you die from a smashed scull." 2690 SLEEP 4 2700 SOUND 45, 15 2710 SLEEP 4 2715 CLS 2720 INPUT "Choose 1: 1. Try again 2. Startover 3. End the game like a chicken"; ab$ IF ab$ = "1" THEN 2565 IF ab$ = "2" THEN 1 IF ab$ = "3" THEN 2727 GOTO 2715 2727 CLS 2730 PRINT "Bye chicken!!!!" 2740 SLEEP 5 END 2750 CLS 2755 PRINT "You say that he is mistaken." SLEEP 4 2760 PRINT "Then some big alien comes in and says:" 2770 PRINT "#@%^& %&&^* #@%& &^(&^#$^?" 2780 PRINT "" SLEEP 5 2790 PRINT "The bartender says:" 2800 PRINT "@#% #$^^&* #%^& #$^%^&%!" 2810 PRINT "" 2820 PRINT "The alien comes up to you and hits you over your head." 2830 PRINT "You die from a smashed scull." GOTO 2690 2840 CLS 2850 PRINT "You pull out your handy machine gun and mow down every last thing in there." 2860 SLEEP 4 2870 PRINT "Then a big alien comes in." 2880 PRINT "You fire right into him with no effect." 2890 SLEEP 5 2895 CLS 2900 PRINT "You jump over the bar and find a missile launcher!!!!!" 2910 PRINT "Do you:" 2929 PRINT " 1. Fire at the alien" 2940 PRINT " 2. Mess with the missile" 2950 PRINT " 3. Eat the missile" 2960 PRINT " 4. Sit there and play dead" 2970 INPUT " What is your choice"; ABC$ IF ABC$ = "1" THEN 3140 IF ABC$ = "2" THEN 3030 IF ABC$ = "3" THEN 2980 IF ABC$ = "4" THEN 3070 GOTO 2890 2980 CLS 2990 PRINT ""; a$; ", you are a genuis!! You eat the missile." 3000 SLEEP 4 3010 PRINT "The alien comes to you and hits you in your stomach. BOOOOOOOOMMMM!!!" 3020 GOTO 2690 3030 CLS 3040 PRINT "You screw around with the missile until it explodes in your face." SLEEP 4 3050 PRINT "BOOOOOOOOOMMMM!!!!!" 3060 GOTO 2690 3070 CLS 3080 PRINT "You sit there and play dead." 3090 SLEEP 4 3100 PRINT "The alien comes over and finds the missile launcher!" 3110 SLEEP 4 3120 PRINT "The smart alien eats it and it explodes killing both of you!" 3130 GOTO 2690 3140 CLS 3150 PRINT "You do the smartest thing and fire at the alien!!" 3160 SLEEP 4 3170 PRINT "The alien dies and you leave!" 3180 GOTO 140 3190 CLS 3200 PRINT "You go into some old armory. When you walk in a bullet whizs by your face!" 3210 PRINT "There is a man looking at some nice guns." 3220 PRINT "Do you:" 3230 PRINT " 1. Say hi" 3240 PRINT " 2. Leave" 3250 PRINT " 3. Pull out some guns and kill everyone" 3260 PRINT " 4. Take some guns and leave" 3270 INPUT " What is your choice"; qA$ IF qA$ = "1" THEN 3500 IF qA$ = "2" THEN 140 IF qA$ = "3" THEN 3430 IF qA$ = "4" THEN 3280 GOTO 3190 3280 CLS 3290 PRINT "You take some plasma rifles and start walking out the door." 3300 SLEEP 4 3305 PRINT "The man says:" 3310 PRINT ""; a$; ", stop!!!!!!!" 3315 SLEEP 4 3320 PRINT "You keep walking until he shots you in the back and you fall to the ground." 3330 SLEEP 4 3340 PRINT "You mumble something and then die!" 3350 SLEEP 4 3360 SOUND 45, 15 3370 SLEEP 3 3380 CLS 3390 INPUT "Choose 1: 1. Start over 2. Try again 3. Exit"; qaa$ IF qaa$ = "1" THEN 1 IF qaa$ = "2" THEN 3400 IF qaa$ = "3" THEN END GOTO 3380 3400 CLS 3410 PRINT ".25$ to continue Y/N." DO QAAA$ = UCASE$(INKEY$) LOOP UNTIL QAAA$ = "Y" OR QAAA$ = "N" IF QAAA$ = "Y" THEN 3420 IF QAAA$ = "N" THEN END 3420 PRINT "What is the password for armory level 1 "; a$; "." 3425 PRINT "" DO LOOP UNTIL INKEY$ = CHR$(112) DO LOOP UNTIL INKEY$ = CHR$(105) DO LOOP UNTIL INKEY$ = CHR$(101) GOTO 3190 3430 CLS 3434 PRINT "You take out your machine gun and kill every thing that moved." 3440 SLEEP 4 3450 PRINT "The a cop comes in and says:" 3460 PRINT "Stop you arrest hold still." 3470 SLEEP 4 3480 PRINT "You jump for the door but the cop opens fire and rips your body into pieces." 3490 GOTO 3350 3500 CLS 3510 PRINT "You say hi and then he yells:" 3520 SLEEP 4 3530 PRINT ""; a$; ", leave now!!!" 3540 SLEEP 4 3550 GOTO 140 3560 CLS 3570 PRINT "You go into a small warehouse and look around." 3580 PRINT "You see nothing what do you do:" 3590 PRINT " 1. Leave" 3600 PRINT " 2. Shoot everything" 3610 PRINT " 3. Say I see you." 3615 INPUT " What is your choice"; qaa$ IF qaa$ = "1" THEN 140 IF qaa$ = "2" THEN 3630 IF qaa$ = "3" THEN 3660 3620 GOTO 3560 3630 CLS 3636 PRINT "You shoot eveything and get bored so you leave." 3640 SLEEP 4 3650 GOTO 140 3660 CLS 3670 PRINT "You say I see you and then get bored of waiting and leave." 3680 SLEEP 4 3690 GOTO 140