8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search

/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / MURDER (.txt) < prev next >

Wrap

Commodore BASIC | 2019-04-13 | 10.0 KB | 413 lines

1 PRINT"ô MURDER IN THE MANSION":PRINT" BY JACK PAGE" 2 DIM M(18):DIM L(20) 3 BB=1:HH=RND(-TI):KK=RND(-TI):LL=RND(-TI):MM=RND(-TI) 4 X=RND(-TI):Y=RND(-TI):Z=RND(-TI):C=RND(-TI):JCK=RND(-TI) 5 DIM KK(18):DIM LL(18) 6 DIM HH(18):DIM MM(18) 7 DIM II(18):DIM RR(18) 8 DIM JJ(18):FOR JACK=1 TO1200:NEXT JACK 10 REM CLUES 15 K=1 20 PRINT"ô":IF I$="2" THEN GOTO 580 30 PRINT"HOW MANY PLAYERS (1-4)?":INPUT A:PRINT"ô" 35 IF A<1 THEN GOTO 30 37 IF A>4 THEN GOTO 30 38 PRINT" PLEASE WAIT":GOTO 10040 40 GOSUB 3200 50 J=1 70 PRINT"ô" 80 PRINT"HELLLO,I AM THE BUTLER.MY EMPLOYER HAS" 90 PRINT"MET WITH FOUL PLAY.YOU MUST DETERMINE" 100 PRINT"THE CULPRIT,IN WHICH ROOM THE CRIME WAS" 110 PRINT"COMMITED AND WHAT WAS THE WEAPON.HERE" 120 PRINT"IS A LIST OF SUSPECTS,ROOMS,AND WEAPONS." 125 PRINT"PLEASE WRITE LISTS ON A SHEET OF PAPER." 130 INPUT "PUSH RETURN TO CONTINUE";A$ 140 PRINT"ô" 150 A1$="THE WIFE" 160 B1$="THE MAID" 170 C1$="THE GARDENER" 180 D1$="THE CHAUFFEUR-MECHANIC" 190 E1$="THE SECRETARY" 200 F1$="THE CHEF" 210 A2$="LIVINGROOM" 220 B2$="GARAGE" 230 C2$="BEDROOM" 240 D2$="ROSE GARDEN" 250 E2$="OFFICE" 260 F2$="KITCHEN" 270 A3$="REVOLVER" 280 B3$="CARVING KNIFE" 290 C3$="MECHANIC'S WRENCH" 300 D3$="SHOVEL" 310 E3$="LETTER OPENER" 320 F3$="POISON" 330 PRINT" LIST OF SUSPECTS " 340 PRINT" "A1$ 350 PRINT" "B1$ 360 PRINT" "C1$ 370 PRINT" "D1$ 380 PRINT" "E1$ 390 PRINT" "F1$ 400 INPUT"PRESS RETURN TO CONTINUE";A$ 410 PRINT"ô" 420 PRINT" LIST OF ROOMS " 430 PRINT" "A2$ 440 PRINT" "B2$ 450 PRINT" "C2$ 460 PRINT" "D2$ 470 PRINT" "E2$ 480 PRINT" "F2$ 490 INPUT"PRESS RETURN TO CONTINUE";A$ 495 PRINT"ô" 500 PRINT" LIST OF WEAPONS " 510 PRINT" "A3$ 520 PRINT" "B3$ 530 PRINT" "C3$ 540 PRINT" "D3$ 550 PRINT" "E3$ 560 PRINT" "F3$ 570 INPUT"PRESS RETURN TO CONTINUE";A$ 580 X=INT(6*RND(1))+1 590 ON X GOSUB 3000,3010,3020,3030,3040,3050 600 Y=INT(12*RND(1))+1 601 IF Y<7 THEN 600 602 IF Y>12 THEN 600 605 NN=Y:NN=NN-6 610 ON NN GOSUB 3060,3070,3080,3090,3100,3110 620 Z=INT(18*RND(1))+1:IF Z<13 THEN 620 622 IF Z<13 THEN 620 624 IF Z>18 THEN 620 625 OO=Z:OO=OO-12 630 ON OO GOSUB 3120,3130,3140,3150,3160,3170 640 PRINT"ô" 645 GOSUB 8000 650 FOR B=1 TO A 660 ON B GOSUB 3270,3280,3290,3295 665 IF J=2 THEN 675 670 PRINT" ROUND NO.";K 672 PRINT"GOOD EVENING "E$:GOTO 680 675 PRINT" ROUND NO.";K 677 PRINT"ALRIGHT, "E$:GOTO 685 680 PRINT"WHICH SUSPECT DO YOU WISH TO SEE FIRST?":GOTO 690 685 PRINT"WHICH PERSON DO YOU SUSPECT NOW?" 690 PRINT" 1. "A1$ 700 PRINT" 2. "B1$ 710 PRINT" 3. "C1$ 720 PRINT" 4. "D1$ 730 PRINT" 5. "E1$ 740 PRINT" 6. "F1$ 750 INPUT"ENTER NO. OF SUSPECT(1-6)";F 760 IF F<1 THEN 750: 765 IF F>6 THEN 750 770 PRINT"ô" 780 ON F GOSUB 3300,3310,3320,3330,3340,3350 790 PRINT"SO,YOU SUSPECT "F$ 800 PRINT"IN WHICH ROOM DO YOU THINK THE" 810 PRINT"MURDER TOOK PLACE?" 820 PRINT" 7. "A2$ 830 PRINT" 8. "B2$ 840 PRINT" 9. "C2$ 850 PRINT" 10. "D2$ 860 PRINT" 11. "E2$ 870 PRINT" 12. "F2$ 880 INPUT"ENTER NO. OF ROOM(7-12)";G 890 IF G<7 THEN 880 895 IF G>12 THEN 880:G7=G-6 896 G7=G-6 900 ON G7 GOSUB 3360,3370,3380,3390,3400,3410 910 PRINT"ô" 920 PRINT"WE ARE NOW IN THE "G$ 930 PRINT"AND "F$" HAS ENTERED." 940 PRINT"WHICH WAS THE MURDER WEAPON?" 950 PRINT" 13. "A3$ 960 PRINT" 14. "B3$ 970 PRINT" 15. "C3$ 980 PRINT" 16. "D3$ 990 PRINT" 17. "E3$ 1000 PRINT" 18. "F3$ 1010 INPUT"ENTER NO. OF WEAPON(13-18)";H 1020 IF H<13 THEN 1010 1025 IF H>18 THEN 1010:H7=H-12 1026 H7=H-12 1030 ON H7 GOSUB 3420,3430,3440,3450,3460,3470 1040 PRINT"ô" 1050 PRINT" SUSPECT:"F$ 1060 PRINT" ROOM:"G$ 1070 PRINT" WEAPON:"H$ 1075 PRINT"" 1080 FOR C=1 TO 800:NEXT C 1090 IF F<>X THEN 1120 1100 IF G<>Y THEN 1120 1110 IF H=Z THEN 1250 1120 C=INT(3*RND(1))+1 1130 ON C GOTO 1140,1150,1160 1140 IF F<>X THEN 1170 1145 GOTO 1120 1150 IF G<>Y THEN 1180 1155 GOTO 1120 1160 IF H<>Z THEN 1190 1165 GOTO 1120 1170 IF B=1 THEN PRINT HH(F)"IS INCORRECT.":GOTO 1200 1172 IF B=2 THEN PRINT KK(F)"IS INCORRECT.":GOTO 1200 1174 IF B=3 THEN PRINT LL(F)"IS INCORRECT.":GOTO 1200 1176 IF B=4 THEN PRINT MM(F)"IS INCORRECT.":GOTO 1200 1180 IF B=1 THEN PRINT HH(G)" IS INCORRECT.":GOTO 1200 1182 IF B=2 THEN PRINT KK(G)" IS INCORRECT.":GOTO 1200 1184 IF B=3 THEN PRINT LL(G)" IS INCORRECT.":GOTO 1200 1186 IF B=4 THEN PRINT MM(G)" IS INCORRECT.":GOTO 1200 1190 IF B=1 THEN PRINT HH(H)" IS INCORRECT.":GOTO 1200 1192 IF B=2 THEN PRINT KK(H)" IS INCORRECT.":GOTO 1200 1194 IF B=3 THEN PRINT LL(H)" IS INCORRECT.":GOTO 1200 1196 IF B=4 THEN PRINT MM(H)" IS INCORRECT.":GOTO 1200 1200 INPUT"PRESS RETURN TO CONTINUE";A$ 1205 PRINT"ô" 1210 IF B=A THEN GOTO 10000 1220 NEXT B 1250 PRINT"ô" 1260 PRINT" OKAY SCREAMS ";F$ 1270 PRINT"I DID IT.I KILLED HIM IN THE ";G$ 1280 PRINT"WITH THE ";H$ 1290 PRINT"AND I'M GLAD BECAUSE "; 1300 ON X GOSUB 10820,10830,10840,10850,10860,10870 1310 INPUT"DO YA WANNA PLAY AGAIN(Y/N)?";I$ 1320 IF I$<>"Y" THEN GOTO 1340 1325 INPUT"SAME PLAYERS & CODE NOS.(Y/N)";I$ 1326 IF I$="Y"THEN I$="2" 1327 GOTO 10 1330 PRINT"ô" 1340 PRINT"GOOD.I THOUGHT YOU WERE CHEATING ANYWAY!" 2990 STOP 3000 X$=A1$:RETURN 3010 X$=B1$:RETURN 3020 X$=C1$:RETURN 3030 X$=D1$:RETURN 3040 X$=E1$:RETURN 3050 X$=F1$:RETURN 3060 Y$=A2$:RETURN 3070 Y$=B2$:RETURN 3080 Y$=C2$:RETURN 3090 Y$=D2$:RETURN 3100 Y$=E2$:RETURN 3110 Y$=F2$:RETURN 3120 Z$=A3$:RETURN 3130 Z$=B3$:RETURN 3140 Z$=C3$:RETURN 3150 Z$=D3$:RETURN 3160 Z$=E3$:RETURN 3170 Z$=F3$:RETURN 3200 PRINT"ô" 3210 INPUT"NAME OF PLAYER NO. 1";B$ 3220 IF A<2 THEN 3260 3230 INPUT"NAME OF PLAYER NO. 2";C$ 3240 IF A<3 THEN 3260 3250 INPUT"NAME OF PLAYER NO. 3";D$ 3252 IF A<4 THEN 3260 3254 INPUT"NAME OF PLAYER NO. 4";J$ 3260 RETURN 3270 E$=B$:RETURN 3280 E$=C$:RETURN 3290 E$=D$:RETURN 3295 E$=J$:RETURN 3300 F$=A1$:RETURN 3310 F$=B1$:RETURN 3320 F$=C1$:RETURN 3330 F$=D1$:RETURN 3340 F$=E1$:RETURN 3350 F$=F1$:RETURN 3360 G$=A2$:RETURN 3370 G$=B2$:RETURN 3380 G$=C2$:RETURN 3390 G$=D2$:RETURN 3400 G$=E2$:RETURN 3410 G$=F2$:RETURN 3420 H$=A3$:RETURN 3430 H$=B3$:RETURN 3440 H$=C3$:RETURN 3450 H$=D3$:RETURN 3460 H$=E3$:RETURN 3470 H$=F3$:RETURN 8000 PRINT"EACH PLAYER WILL NOW RECEIVE 5 NAMES" 8010 PRINT"OF SUSPECTS,ROOMS,& WEAPONS THAT WERE" 8020 PRINT"NOT INVOLVED IN THE CRIME" 8030 PRINT"YOU MAY ELIMINATE THEM AS SUSPECTS." 8040 INPUT"PRESS RETURN TO CONTINUE";A$ 8050 PRINT"ô" 8060 FOR B=1 TO A 8070 ON B GOSUB 3270,3280,3290,3295 8080 PRINT"THIS LIST IS FOR ";E$ 8090 PRINT"NO LOOKING BY OTHER PLAYERS" 8100 INPUT"PRESS RETURN TO CONTINUE";A$ 8120 FOR REP=BB TO 15 8130 L(REP)=INT(18*RND(1))+1 8150 IF L(REP)<>X THEN 8160 8155 GOTO 8130 8160 IF L(REP)<>Y THEN 8170 8165 GOTO 8130 8170 IF L(REP)<>Z THEN 8180 8175 GOTO 8130 8180 FOR CHK=1 TO 18 8190 IF L(REP)=M(CHK)THEN 8130 8195 IF L(REP)=M(CHK)THEN 8130 8200 NEXT CHK 8210 CHK=REP 8220 M(CHK)=L(REP) 8230 IF L(REP)=1 THEN PRINT " "A1$ 8240 IF L(REP)=2 THEN PRINT " "B1$ 8250 IF L(REP)=3 THEN PRINT " "C1$ 8260 IF L(REP)=4 THEN PRINT " "D1$ 8270 IF L(REP)=5 THEN PRINT " "E1$ 8280 IF L(REP)=6 THEN PRINT " "F1$ 8290 IF L(REP)=7 THEN PRINT " "A2$ 8300 IF L(REP)=8 THEN PRINT " "B2$ 8310 IF L(REP)=9 THEN PRINT " "C2$ 8320 IF L(REP)=10 THEN PRINT " "D2$ 8330 IF L(REP)=11 THEN PRINT " "E2$ 8340 IF L(REP)=12 THEN PRINT " "F2$ 8350 IF L(REP)=13 THEN PRINT " "A3$ 8360 IF L(REP)=14 THEN PRINT " "B3$ 8370 IF L(REP)=15 THEN PRINT " "C3$ 8380 IF L(REP)=16 THEN PRINT " "D3$ 8390 IF L(REP)=17 THEN PRINT " "E3$ 8400 IF L(REP)=18 THEN PRINT " "F3$ 8410 IF REP<>5 THEN 8420 8415 BB=6:GOTO 8500 8420 IF REP<>10 THEN 8430 8425 BB=11:GOTO 8500 8430 IF REP<15 THEN 8440 8435 GOTO 8490 8440 NEXT REP 8490 GOTO 8600 8500 INPUT"PRESS RETURN TO CONTINUE";A$ 8505 PRINT"ô":GOTO 8680 8510 NEXT B 8520 K=1 8525 PRINT"ô" 8530 RETURN 8550 PRINT"ô" 8600 FOR REP=1 TO 18 8610 L(REP)=0 8620 NEXT REP 8630 FOR CHK=1 TO 15 8640 M(CHK)=0 8650 NEXT CHK 8660 BB=1 8670 GOTO 8500 8680 PRINT"ô" 8690 PP=B 8700 IF I$="2"THEN 8775 8702 FOR GG=1 TO 18:QQ=GG 8710 IF PP=1 THEN RR(GG)=HH(GG) 8720 IF PP=2 THEN RR(GG)=KK(GG) 8730 IF PP=3 THEN RR(GG)=LL(GG) 8740 IF PP=4 THEN RR(GG)=MM(GG) 8750 GOSUB 10400 8765 NEXT GG 8770 INPUT " PRESS RETURN TO CONTINUE";A$ 8775 PRINT"ô":GOSUB 9000 8780 INPUT"PRESS RETURN TO CONTINUE";A$ 8790 PRINT"ô":GOTO 8510 9000 PRINT"ô" 9010 PRINT" UPON CLOSE EXAMINATION OF THE AREA YOU FIND "; 9020 JCK=INT(3*RND(1))+1 9021 IF JCK=PAG THEN 9020 9022 PAG=JCK 9025 IF JCK=3 THEN 9070 9030 IF JCK=2 THEN 9090 9050 JCK=X 9060 ON JCK GOTO 9110,9120,9130,9140,9150,9160 9070 JCK=NN 9080 ON JCK GOTO 9230,9240,9250,9260,9270,9280 9090 JCK=OO 9100 ON JCK GOTO 9170,9180,9190,9200,9210,9220 9110 PRINT"A SMALL GOLD RING IN HIS HAND":RETURN 9120 PRINT"A FEATHER DUSTER UNDER THE CORPSE":RETURN 9130 PRINT"MUDDY FOOTPRINTS ON THE CARPET UNDER THE BODY":RETURN 9140 PRINT"A GREASY RAG UNDER THE CORPSE":RETURN 9150 PRINT"A WRITING TABLET UNDER THE BODY":RETURN 9160 PRINT"A WHITE PASTEY FOOTPRINT UNDER THE BODY OF THE DECEASED":RETURN 9170 PRINT"POWDER BURNS ON HIS CLOTHING":RETURN 9180 PRINT"A STAB WOUND ABOUT 4 INCHES LONG":RETURN 9190 PRINT"A SKULL WOUND WITH AUTOMOBILE GREASE AROUND IT":RETURN 9200 PRINT"A SKULL WOUND WITH DIRT IN IT":RETURN 9210 PRINT"A SMALL STAB WOUND BETWEEN THE RIBS":RETURN 9220 PRINT"A BRUISED ARM CAUSED BY AN INJECTION":RETURN 9230 PRINT" THE LARGE COUCH YOU WANTED,BUT COULDN'T AFFORD." 9235 RETURN 9240 PRINT"THAT NEW ROLLS MUST HAVE COST A SMALL FORTUNE":RETURN 9250 PRINT"HE HAD MONEY ALL RIGHT.HE HAD A SAUNA IN HIS PRIVATE BATH.":RETURN 9260 PRINT"IT IS A VERY CLEAR NIGHT AS YOU LOOK UP AT THE STARS.":RETURN 9270 PRINT"HE MUST HAVE BEEN READING THE STOCK QUOTES WHEN IT HAPPENED" 9275 RETURN 9280 PRINT"áHIS CAT EATING HIS SUPPER IN THE CORNER AS IF NOTHING HAD HAPPENED" 9290 RETURN 9900 GOTO 9900 10000 PRINT"ô" 10010 J=2:B=1:K=K+1:GOTO 650 10020 PRINT"ô" 10030 PRINT"FOR ",B$ 10040 FOR GG=1TO 18 10050 HH(GG)=INT(18*RND(1))+1 10055 FOR JJ=1 TO GG 10060 IF HH(GG)=II(JJ)THEN 10050 10070 NEXT JJ 10080 JJ=GG:II(JJ)=HH(GG) 10090 NEXT GG:IF A=1 THEN GOTO 40 10100 FOR GG=1TO 18 10110 KK(GG)=INT(18*RND(1))+1 10120 FOR JJ=1 TO GG 10130 IF KK(GG)=II(JJ)THEN 10110 10140 NEXT JJ 10150 JJ=GG:II(JJ)=KK(GG) 10160 NEXT GG:IF A=2 THEN GOTO 40 10170 FOR GG=1TO 18 10180 LL(GG)=INT(18*RND(1))+1 10190 FOR JJ=1 TO GG 10200 IF LL(GG)=II(JJ)THEN 10180 10210 NEXT JJ 10220 JJ=GG:II(JJ)=LL(GG) 10230 NEXT GG:IF A=3 THEN GOTO 40 10240 FOR GG=1TO 18 10250 MM(GG)=INT(18*RND(1))+1 10260 FOR JJ=1 TO GG 10270 IF MM(GG)=II(JJ)THEN 10250 10280 NEXT JJ 10290 JJ=GG:II(JJ)=MM(GG) 10310 NEXT GG 10315 PRINT"ô" 10320 GOTO 10 10400 IF GG>12 THEN 10430 10410 IF GG>6 THEN 10440 10420 ON GG GOTO 10450,10460,10470,10480,10490,10500 10430 YY=GG-12:ON YY GOTO 10570,10580,10590,10600,10610,10620 10440 YY=GG-6:ON YY GOTO 10510,10520,10530,10540,10550,10560 10450 PRINT"á "RR(GG)" = "A1$:RETURN 10460 PRINT"á "RR(GG)" = "B1$:RETURN 10470 PRINT"á "RR(GG)" = "C1$:RETURN 10480 PRINT"á "RR(GG)" = "D1$:RETURN 10490 PRINT"á "RR(GG)" = "E1$:RETURN 10500 PRINT"á "RR(GG)" = "F1$:GOTO 10800 10510 PRINT"á "RR(GG)" = "A2$:RETURN 10520 PRINT"á "RR(GG)" = "B2$:RETURN 10530 PRINT"á "RR(GG)" = "C2$:RETURN 10540 PRINT"á "RR(GG)" = "D2$:RETURN 10550 PRINT"á "RR(GG)" = "E2$:RETURN 10560 PRINT"á "RR(GG)" = "F2$:GOTO 10800 10570 PRINT"á "RR(GG)" = "A3$:RETURN 10580 PRINT"á "RR(GG)" = "B3$:RETURN 8253 "D3$:Ä 10590 PRINT"á "RR(GG)" = "C3$:RETURN 10600 PRINT" "RR(GG)" = "D3$:RETURN 10610 PRINT"á "RR(GG)" = "E3$:RETURN 10620 PRINT"á "RR(GG)" = "F3$:RETURN 10800 PRINT"THESE ARE YOUR PERSONAL CODE NOS.WRITE THEM NEXT TO THE"; 10805 PRINT" NAME LISTED OR YOU ARE IN BIG TROUBLE" 10810 INPUT"PRESS RETURN TO CONTINUE";A$:PRINT"ô":RETURN 10820 PRINT"HE USED ALL THE FREE TIME ON Q-LINK,AND LEFT NONE FOR ME":RETURN 10830 PRINT"HE WAS GOING TO FIRE ME BECAUSE OF THE DUST BUNNIES" 10835 PRINT"UNDER THE BED":RETURN 10840 PRINT"HE BLAMED ME FOR THE DEATH OF HIS PRIZED PETUNIAS":RETURN 10850 PRINT"HE WAS GOING TO FIRE ME AND RIDE THE BUS":RETURN 10860 PRINT"HE WAS GOING TO REPLACE ME WITH A COMMODORE COMPUTER":RETURN 10870 PRINT"I WAS GOING TO BE REPLACED BY A MICROWAVE OVEN":RETURN