QBasic | 5 CLS 6 SCREEN 12 10 COLOR 3 - Tojimaru - f286e9197

5 CLS
6 SCREEN 12
10 COLOR 3
12 INPUT "Do you want to play a) My Game,b) take a super hero quiz, c) know the time and date , d) do you want to unleash madness, e) Know how old you will be in the year 2021, f) Countdown from a very large number ,or,g) Guess my favorite game system, or type exit if you want to leave "; project$
13 SELECT CASE project$
        CASE "a"
                GOTO 19
        CASE "b"
                GOTO 980
        CASE "c"
                GOTO 1360
        CASE "d"
                GOTO 1390
        CASE "e"
                GOTO 1440
        CASE "f"
                GOTO 1510
        CASE "g"
                GOTO 1570
        CASE "exit"
                GOTO 9800
        CASE ELSE
                PRINT "type a b c d e f g or exit"
                        GOTO 10
       END SELECT
19 CLS
30 PRINT "                         Welcome To John's Game"
31 PLAY "t208 aaa dd ee g e d aage d aag g e d gggagedgedged  a"
32 SLEEP 2
33 PRINT
34 PRINT
35 COLOR 4
36 PRINT "       My name is John and you are about to embark on a mystical and death defying journey to get me my lunch"
37 SLEEP 3
40 INPUT " Are you ready for this Journey? (type yes or no in lower case)"; H$
50 SELECT CASE H$
        CASE "yes"
                PRINT "                 Good, good"
        CASE "no"
                PRINT "                 i don't care! hahahahaha"
        CASE ELSE
                PRINT "                Write yes or no, silly!"
        GOTO 40
60 END SELECT
70 INPUT "By the way, what is your name"; n$
80 PRINT "Go now "; n$; ", and embark on your journey"
100 SLEEP 3
110 CLS
120 SCREEN 12
130 COLOR 6
140 LINE (127, 142)-(127, 400)
145 COLOR 4
150 CIRCLE (127, 100), 40
160 LINE (6000, 7000)-(127, 400)
170 LINE (-6000, 7000)-(127, 400)
180 LINE (270, 272)-(127, 200)
190 LINE (-90, 272)-(127, 200)
200 PRINT " You  come across a stick figure who is not letting you pass through the bridge that leads to the town of DEMONS"
210 SLEEP 10
220 CLS
230 COLOR 9
270 INPUT "   What will you do. Will you run, attack, or talk"; r$
280 SELECT CASE r$
        CASE "run"
                GOTO 290
        CASE "attack"
                GOTO 480
        CASE "talk"
                GOTO 640
        CASE ELSE
                PRINT "write run, attack, talk"
                        GOTO 270
285 END SELECT

290 PRINT "  You run and he tries to catch you but you are to fast for him. You get to town safely."
300 SLEEP 4
310 CLS
315 COLOR 8
320 PRINT "The  town is a smaller than you expected. The towns name is The Town of Demons."
330 SLEEP 2
340 INPUT "You see a food market, a post office, and a arcade. Which one do you go to"; f$
350 SELECT CASE f$
        CASE "food market"
                GOTO 360
        CASE "post office"
                GOTO 450
        CASE "arcade"
                GOTO 810
        CASE ELSE
                PRINT "Type food market, post office, or arcade"
                        GOTO 340
END SELECT
360 PRINT "You walk into the food market and you hear some one call your name."
365 SLEEP 1
370 PRINT "You turn around and you see a merchant who is handing you food."
380 INPUT "Do you take the food"; t$
390 SELECT CASE t$
        CASE "yes"
                PRINT "He hands you the food and says it's for John "
        CASE "no"
                PRINT "He hands you the food anyway and says it's for John."
        CASE ELSE
                PRINT "Write yes or no in lowercase letters!"
        END SELECT
400 PRINT "You take the food to John and he says thank you for getting my lunch"
405 SLEEP 4
410 PRINT " He gives you a dollar and tells you to leave"
411 SLEEP 6
412 CLS
413 LINE (127, 142)-(127, 400)
414 COLOR 4
415 CIRCLE (127, 100), 40
416 LINE (6000, 7000)-(127, 400)
417 LINE (-6000, 7000)-(127, 400)
418 LINE (270, 272)-(127, 200)
419 LINE (-90, 272)-(127, 200)
420 PRINT "                     Congradulations.You have just beaten my game!!"
430 PLAY "t208 aaa dd ee g e d aage d aag g e d gggagedgedgedged  a"
440 END
450 PRINT "You walk into the post office and you see the same guy that you saw before.He gives you John's lunch"
455 SLEEP 3
460 GOTO 400
470 END
480 INPUT "Do you punch, kick or block  (k kicks,p punchs, b blocks) "; attack$
490 SELECT CASE attack$
        CASE "k"
                GOTO 500
        CASE "p"
                GOTO 560
        CASE "b"
                GOTO 600
        CASE ELSE
                PRINT "press k, p, or b"
                GOTO 480
        END SELECT
500 PRINT "You kick him but he blocks and he kicks you and you fall down and die"
505 SLEEP 3
510 PRINT "                        you lose"
520 SLEEP 2
530 PRINT "                        Game Over"
540 PLAY "t208 aaa dd ee g e d aage d aag e d ggga a"
550 END
560 PRINT "You punch him in the face and he falls down and he dies"
565 SLEEP 2
570 PRINT "You go to town"
575 SLEEP 2
580 GOTO 320
590 END
600 PRINT "He senses that you are going to block so he blocks and you block and then he gets tired of blocking so he falls down and you go to the town."
610 SLEEP 3
620 GOTO 320
630 END
640 INPUT "What do you say to him, a)Who the heck are you,b) What do you want from me,or c)Hello"; talk$
650 SELECT CASE talk$
        CASE "a"
                 GOTO 660
        CASE "b"
                GOTO 720
        CASE "c"
                GOTO 780
        CASE ELSE
                PRINT "type a, b, or c"
                        GOTO 640
END SELECT
660 PRINT "He says he is an assistant of John's"
670 SLEEP 2
680 PRINT "He is just assuring you a safe journey"
685 SLEEP 2
690 PRINT "So you go to town"
700 GOTO 320
710 END
720 PRINT "He says he is a friend of John"
SLEEP 2
730 INPUT "Do you beileive him"; beleive$
740 SELECT CASE beleive$
        CASE "yes"
                PRINT "Good"
        CASE "no"
                PRINT "He later convinces you to beleive him and you do"
        CASE ELSE
                PRINT "type yes or no in lower case"
                        GOTO 730
END SELECT
750 PRINT "He gives you the food"
760 GOTO 400
770 END
780 COLOR 4
790 PRINT "He says hello too and then says bye bye and kills you with a knife"
791 PRINT "                              GAME OVER ."
792 PRINT "                              Thank You for smoking, err, playing"

800 END
810 PRINT "You go into the arcade and you see games "
820 SLEEP 2
830 PRINT "There are 3 games, a)God of War ,b)Kingdom Hearts 2 ,or,c)Halo 3"
840 SLEEP 3
850 INPUT "Which game do you want to play,but if you don't want to play anything type none"; game$
860 SELECT CASE game$
        CASE "a"
                GOTO 900
        CASE "b"
                GOTO 900
        CASE "c"
                GOTO 900
        CASE "none"
                GOTO 870
        CASE ELSE
                PRINT "type a, b, c, or, none"
                        GOTO 850
        END SELECT
870 PRINT "No game? ok"
880 GOTO 340
890 END
900 PRINT "Nice choice, or should I say the best(i love that game :p)"
910 SLEEP 2
920 PRINT "Your character dies in the game and you get bored of playing so you stop"
930 SLEEP 3
940 PRINT "You see a man walk up to you and hand you John's food"
950 SLEEP 2
960 GOTO 400
970 END
980 COLOR 17
985 PRINT "                        Welcome to John's Quiz"
990 COLOR 4
1000 CLS
1010 C = 0: Q = 0
1040 DATA IS there such a Superhero named Peanut, yes
1041 DATA What IS Batman's name, Bruce Wayne
1042 DATA What city does Batman live in, Gotham
1043 DATA Does Robin have an allowance, yes
1044 DATA Does Merlin the Magician have its own Demon TO summon, yes
1045 DATA Has Batman ever been in tight situations, yes
1046 DATA What IS the rich kids cats NAME in Batman who has magical powers, Teegle
1047 DATA Can Teegle change form, yes
1048 DATA When was the new but NOT so new Batman show copywrighted, 1998
1049 DATA Al Jordan IS the real NAME of which superhero, Green Lantern
1051 DATA What planet IS superman from, Krypton
1052 DATA Who IS the person who says he IS also from Krypton like superman, Brainiac
1053 DATA Who IS Superman's main enemy, Lex Luthor
1054 DATA Where did Superman once live with his parents that found him, Smallville
1055 DATA What was Brainiac programed TO DO TO all the planets that he has been TO, destroy all of them
1056 DATA What IS Superman's REAL name, Kal El
1057 DATA What does Superman save from when he was ON the ship with Brainiac, a memory orb of his planet
1058 DATA IS the Green Lantern a super hero, yes
1059 DATA What did the old version of Superman used TO say when he was about TO fly, up up AND away
1061 DATA The superhero Flash has what super power, super speed
1062 DATA Where DO all the Justice League characters live at, the watchtower
1063 DATA In the show Superman what planet have they been TO that we havn't, Mars
1064 DATA What IS STATIC Shock's sidekick's name, Gear
1065 DATA What superpower does STATIC Shock have, electricity
1066 DATA IS STATIC Shock in the Justice League, yes
1067 DATA IS Captain America dead, no
1068 DATA IS Brainiac in the show STATIC Shock, yes
1069 DATA IS Lex Luthor in the show STATIC Shock, no
1070 DATA What color hair does Superman have, black
1071 DATA What color hair does Batman have, black
1072 DATA What city does Superman go TO when he becomes Superman, Metropolis
1073 DATA What color suit does Flash wear, red AND yellow
1074 DATA What color suit does Superman wear, red AND blue
1075 DATA What color suit does Batman wear, black AND gray
1076 DATA What color suit does Robin wear, red black yellow
1077 DATA What color suit does Captain America wear, red white AND blue
1078 DATA What color suit does the Green Lantern wear, green AND black
1079 DATA What color suit does STATIC Shock wear, purple white yellow
1080 DATA What IS Batman's main enemy, Joker
1081 DATA How many of the main characters are in the Teen Titans, 5
1082 DATA What super power does Beast Boy have, morphing
1083 DATA What superpower does Starfire have, shoots green bolts of fire
1084 DATA What superpower does Raven have, telekenisis telepathy AND flight
1085 DATA Who IS Cyborg, a robot
1086 DATA What IS the main badguy in Teen Titans, Slade
1087 DATA What superhero IS an Alien that IS in the Justise League, J'onn J'onz
1088 DATA Who IS Wonder Woman, Diana
1089 DATA Does Robin GET homework, yes
1090 DATA Does Robin have a sense of humor, yes
1091 DATA Does Robin go TO College, yes
1092 DATA Who IS Alfred, Batman's Butler
1093 DATA Billy Marin IS really who in the show Batman, Tony Zucco
1094 DATA Where did Robin live before he was with Batman, at a circus
1095 DATA Tony IS whose nephew, Arney Stromwell
1096 DATA Robin's first name is what, Dick
1097 DATA Morgan Edge owns what, a huge island
1098 DATA IS Killafrost a boy OR girl, girl
1099 DATA IS Clayface only in Batman, no
1100 DATA Who captures Clayface, Edge
1280 DATA END, END
1290 READ Q$, a$: IF Q$ = "end" THEN PRINT "You answered"; C; "of the"; Q; "questions correctly": PRINT "Your score is"; C / Q * 100; "%": PRINT "I hope you enjoyed the quiz": END
1300 PRINT Q$;
1310 Q = Q + 1
1320 INPUT "??"; H$
1330 IF H$ = a$ THEN PRINT " correct": C = C + 1: GOTO 1290
1340 PRINT " No, the answer is: "; a$: GOTO 1290
1350 END
1360 CLS
1370 PRINT DATE$, TIME$
1380 END
1390 CLS
1400 DO
1410 PRINT "MADNESS!!!!!"
1420 LOOP
1430 END
1440 CLS
1450 PRINT "I can predict how old you will be in the year 2021!"
1460 PRINT
1470 INPUT "In what year were you born"; y
1480 PRINT
1490 PRINT "In the year 2021,you'll turn"; 2021 - y; "years old, yay for you"
1500 END
1510 CLS
1520 FOR i = 2700 TO 1 STEP -1
1530 PRINT i
1535 SLEEP 1
1540 NEXT
1550 PRINT "It's About Time"
1560 END
1570 CLS
1580 DO
1590 PRINT "You havn't guessed my favorite game console yet"
1600 INPUT "What's my favorite game console"; game$
1610 LOOP UNTIL game$ = "PS3"
1620 PRINT "That's my favorite console! Good job."
1630 END
9800 CLS
9810 PRINT "Leaving so soon? mwahahahahahahaahahahaahha"
9815 SLEEP 2
9820 PRINT "SYSTEM DESTRUCTION INITIATED"
9825 SLEEP 1
9830 FOR i = 60 TO 1 STEP -1
9840 PRINT i
9850 SLEEP 1
9860 NEXT
9870 PRINT "Gotcha :p"
9999 END