home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38a.dsk / JUNE.1990 / WHODUNIT.bas < prev   
BASIC Source File  |  2023-02-26  |  9KB  |  168 lines

  1. 10  REM  **************************
  2. 20  REM  * WHODUNIT               *
  3. 30  REM  * BY CONSTANCE FAIRBANKS *
  4. 40  REM  * COPYRIGHT (C) 1990     *
  5. 50  REM  * MINDCRAFT PUBL. CORP.  *
  6. 60  REM  * CONCORD, MA 01742      *
  7. 70  REM  **************************
  8. 80  REM 
  9. 90  PRINT  CHR$(21): HGR2 
  10. 100  HCOLOR= 7
  11. 110  HPLOT 25,30 TO 35,70 TO 45,40 TO 55,70 TO 65,30
  12. 120  HPLOT 75,30 TO 75,70: HPLOT 75,50 TO 95,50: HPLOT 95,30 TO 95,70
  13. 130  HPLOT 105,40 TO 115,30 TO 125,40 TO 125,60 TO 115,70 TO 105,60 TO 105,40
  14. 140  HPLOT 135,30 TO 145,30 TO 155,40 TO 155,60 TO 145,70 TO 135,70 TO 135,30
  15. 150  HPLOT 165,30 TO 165,70 TO 185,70 TO 185,30
  16. 160  HPLOT 195,70 TO 195,30 TO 215,70 TO 215,30
  17. 170  HPLOT 225,30 TO 225,70
  18. 180  HPLOT 235,30 TO 255,30: HPLOT 245,30 TO 245,70
  19. 190  HPLOT 125,90 TO 135,80 TO 145,80 TO 155,90 TO 155,100 TO 139,110 TO 139,130
  20. 200  HPLOT 139,136 TO 141,138 TO 139,140 TO 137,138 TO 139,136
  21. 210  FOR P = 1 TO 2000: NEXT P
  22. 220  TEXT : HOME 
  23. 230  HTAB 10: PRINT "A CRIME SOLVING GAME"
  24. 240  PRINT : PRINT  TAB( 11)"BY CONNIE FAIRBANKS"
  25. 250  HTAB 4: PRINT "(C) 1990 MINDCRAFT PUBL. CORP."
  26. 260  REM  ? SETTING ?
  27. 270  PRINT 
  28. 280  PRINT "HERE IS YOUR CHANCE TO DISPLAY YOUR     PROWESS AS AN AMATEUR DETECTIVE.  WHILE YOU ARE VISITING ON THE COUNTRY ESTATE": REM  5 AND 2 SPACES     
  29. 290  PRINT "OF LORD WILLIAM KINGSLY A CRIME WILL BE COMMITTED.  THE LOCAL POLICE TURN TO YOUFOR YOUR GUESSES AS TO THE CRIMINAL, THEWEAPON, AND THE SITE OF THE CRIME."
  30. 300  PRINT : PRINT "INCLUDING LORD KINGSLY THERE ARE SIX    POSSIBLE SUSPECTS.  LADY KINGSLY, A MOSTGRACIOUS HOSTESS, IS OBVIOUSLY": REM  4 SPACES
  31. 310  PRINT "DISSATISFIED WITH HER MARRIAGE AND IN   LOVE WITH SYLVESTER SIDEBOTTOM, A       WEEKEND HOUSEGUEST.": REM  3 AND 7 SPACES
  32. 320  PRINT : PRINT "PRESS RETURN"
  33. 330  GET K$: HOME 
  34. 340  PRINT : PRINT "THE MAID'S NAME IS EMMA ELLSWORTH.  YOU HAVE NOTICED HER SNEAKING OUT OF A GUESTROOM LATE AT NIGHT."
  35. 350  PRINT 
  36. 360  PRINT "SEBASTION, THE BUTLER, HAS JUST ANSWEREDTHE DOOR AND ADMITTED A STRANGER DRESSEDIN A HOODED PURPLE CAPE."
  37. 370  PRINT "DON'T OVERLOOK THE VICTIM AS A SUSPECT. IT MIGHT HAVE BEEN SUICIDE.": PRINT 
  38. 380  REM  ? GENERATING CRIME ?
  39. 390 M =  INT(6 * RND(1)) +1
  40. 400 W =  INT(6 * RND(1)) +1
  41. 410 L =  INT(6 * RND(1)) +1
  42. 420  PRINT "DID YOU HEAR THAT SCREAM?  THE BODY OF  SYLVESTER SIDEBOTTOM HAS BEEN DISCOVEREDAND NOW YOUR WORK BEGINS."
  43. 430  PRINT 
  44. 440  REM  ? CLUE TIME ?
  45. 450  PRINT : PRINT "PUSH RETURN TO GET AN IMPORTANT CLUE.   READ IT CAREFULLY FOR THIS IS THE ONLY  TIME YOU WILL SEE IT."
  46. 460  PRINT 
  47. 470  GET C$
  48. 480  SPEED= 50
  49. 490  IF M <4  THEN  PRINT "THE MURDERER LEFT HIS "
  50. 500  IF M >3  THEN  PRINT "THE MURDERER LEFT HER "
  51. 510  IF W <4  THEN  PRINT "FINGERPRINTS IN THE BLOODY "
  52. 520  IF W >3  THEN  PRINT "FINGERPRINTS IN THE "
  53. 530  IF L <3  THEN  PRINT "GROUND FLOOR ROOM."
  54. 540  IF L >2  THEN  PRINT "UPSTAIRS ROOM."
  55. 550  SPEED= 255: HOME 
  56. 560  REM  ? INSTRUCTIONS ?
  57. 570 G = 0
  58. 580  PRINT "ANSWER THE POLICEMAN'S QUESTIONS WITH   THE FIRST LETTER OF YOUR GUESS AND PRESSTHE RETURN KEY."
  59. 590  PRINT 
  60. 600  PRINT "NOW PRESS RETURN TO REVEAL POSSIBLE     SUSPECTS, WEAPONS, AND SITES.": REM  4 SPACES
  61. 610  GET K$: HOME 
  62. 620  REM  ? CHOICES ?
  63. 630  HOME 
  64. 640  INVERSE 
  65. 650  PRINT "SUSPECTS    WEAPONS    LOCATIONS": REM 
  66. 660  NORMAL 
  67. 670  PRINT 
  68. 680  PRINT "BUTLER      KNIFE      BEDROOM": REM  6 AND 6 SPACES
  69. 690  PRINT "KINGSLY     SPEAR      KITCHEN": REM  5 AND 6 SPACES
  70. 700  PRINT "VICTIM      POISON     LIBRARY": REM  6 AND 5 SPACES
  71. 710  PRINT "MAID        ROPE       DINING ROOM": REM  8 AND 7 SPACES
  72. 720  PRINT "LADY K.     DAGGER     PARLOR": REM  5 AND 5 SPACES
  73. 730  PRINT "STRANGER    GUN        GUN ROOM": PRINT : REM  4 AND 8 SPACES
  74. 740  VTAB 10: INPUT "WHO COMMITTED THE CRIME? ";S$
  75. 750  IF S$ = "B"  THEN S = 1
  76. 760  IF S$ = "K"  THEN S = 2
  77. 770  IF S$ = "V"  THEN S = 3
  78. 780  IF S$ = "M"  THEN S = 4
  79. 790  IF S$ = "L"  THEN S = 5
  80. 800  IF S$ = "S"  THEN S = 6
  81. 810  IF S >0  AND S <7  THEN  GOTO 830
  82. 820  GOTO 740
  83. 830  VTAB 12: INPUT "WITH WHICH WEAPON? ";A$
  84. 840  IF A$ = "K"  THEN A = 1
  85. 850  IF A$ = "S"  THEN A = 2
  86. 860  IF A$ = "P"  THEN A = 3
  87. 870  IF A$ = "R"  THEN A = 4
  88. 880  IF A$ = "D"  THEN A = 5
  89. 890  IF A$ = "G"  THEN A = 6
  90. 900  IF A >0  AND A <7  THEN  GOTO 920
  91. 910  GOTO 830
  92. 920  VTAB 14: INPUT "WHERE? ";R$
  93. 930  IF R$ = "B"  THEN R = 1
  94. 940  IF R$ = "K"  THEN R = 2
  95. 950  IF R$ = "L"  THEN R = 3
  96. 960  IF R$ = "D"  THEN R = 4
  97. 970  IF R$ = "P"  THEN R = 5
  98. 980  IF R$ = "G"  THEN R = 6
  99. 990  IF R >0  AND R <7  THEN  GOTO 1010
  100. 1000  GOTO 920
  101. 1010  PRINT : IF S = 1  THEN  PRINT "THE BUTLER "
  102. 1020  IF S = 2  THEN  PRINT "LORD KINGSLY "
  103. 1030  IF S = 3  THEN  PRINT "SYLVESTER"
  104. 1040  IF S = 4  THEN  PRINT "EMMA, THE MAID, "
  105. 1050  IF S = 5  THEN  PRINT "LADY KINGSLY "
  106. 1060  IF S = 6  THEN  PRINT "THE STRANGER "
  107. 1070  PRINT "DID IT WITH "
  108. 1080  IF A = 1  THEN  PRINT "THE KNIFE IN THE"
  109. 1090  IF A = 2  THEN  PRINT "THE SPEAR IN THE"
  110. 1100  IF A = 3  THEN  PRINT "THE POISON IN THE"
  111. 1110  IF A = 4  THEN  PRINT "THE ROPE IN THE"
  112. 1120  IF A = 5  THEN  PRINT "THE DAGGER IN THE"
  113. 1130  IF A = 6  THEN  PRINT "THE GUN IN THE"
  114. 1140  IF R = 1  THEN  PRINT "BEDROOM."
  115. 1150  IF R = 2  THEN  PRINT "KITCHEN."
  116. 1160  IF R = 3  THEN  PRINT "LIBRARY."
  117. 1170  IF R = 4  THEN  PRINT "DINING ROOM."
  118. 1180  IF R = 5  THEN  PRINT "PARLOR."
  119. 1190  IF R = 6  THEN  PRINT "GUN ROOM."
  120. 1200  PRINT : INPUT "IS THIS YOUR GUESS? ";A$
  121. 1210  IF A$ < >"Y"  THEN 620
  122. 1220 G = G +1
  123. 1230  REM  ? ANALYZE GUESS ?
  124. 1240 X = 0
  125. 1250  IF S = M  THEN X = X +1
  126. 1260  IF A = W  THEN X = X +1
  127. 1270  IF R = L  THEN X = X +1
  128. 1280  IF X = 0  THEN 1320
  129. 1290  IF X = 1  THEN 1340
  130. 1300  IF X = 2  THEN 1360
  131. 1310  IF X = 3  THEN 1380
  132. 1320  PRINT : PRINT "SORRY, ALL THREE PARTS OF YOUR GUESS    WERE WRONG.  PRESS RETURN TO TRY AGAIN.": REM  4 SPACES
  133. 1330  GET Z$: GOTO 620
  134. 1340  PRINT : PRINT "ONE THIRD OF YOUR GUESS IS RIGHT.       PRESS RETURN TO TRY AGAIN."
  135. 1350  GET Z$: GOTO 620
  136. 1360  PRINT : PRINT "TWO THIRDS OF YOUR GUESS IS RIGHT.      PRESS RETURN TO TRY AGAIN."
  137. 1370  GET Z$: GOTO 620
  138. 1380  REM  ? WINNING ROUTINE ?
  139. 1390  HOME 
  140. 1400  PRINT "CONGRATULATIONS! YOU SOLVED THE MYSTERY."
  141. 1410  REM  ? SOLUTION ?
  142. 1420  IF M = 1  THEN  PRINT "THE BUTLER DID IT.  HE USED THE"
  143. 1430  IF M = 2  THEN  PRINT "LORD KINGSLY IS THE MURDERER USING THE"
  144. 1440  IF M = 3  THEN  PRINT "SYLVESTER COMMITTED SUICIDE USING THE"
  145. 1450  IF M = 4  THEN  PRINT "EMMA ELLSWORTH IS THE CULPRIT COMMITTINGTHE DASTARDLY DEED WITH THE"
  146. 1460  IF M = 5  THEN  PRINT "LADY KINGSLY KILLED HER LOVER AFTER SHE HAD SPIED HIM IN A PASSIONATE EMBRACE   WITH EMMA.  SHE SHREWDLY USED THE"
  147. 1470  IF M = 6  THEN  PRINT "REMOVAL OF THE STRANGER'S PURPLE CAPE   REVEALED THE SHAPELY FIGURE OF BUBBLES  O'TOOLE, SYLVESTER'S EX-WIFE WHO EKES   OUT A BARE LIVING AS A STRIPPER.  SHE   GOT HER REVENGE AT LAST WITH THE"
  148. 1480  IF W = 1  THEN  PRINT "KNIFE.  IT WAS FOUND IN THE GARDEN BELOWTHE WINDOW ON THE EAST SIDE OF THE"
  149. 1490  IF W = 2  THEN  PRINT "SPEAR.  THE MURDERER HAD REMOVED IT FROMITS RACK AND PLUNGED IT IN SYLVESTER'S  BACK AS HE STOOD IN THE"
  150. 1500  IF W = 3  THEN  PRINT "POISONED CHAMPAGNE.  AFTER THE KILLER   DRANK A TOAST TO THE VICTIM THE GLASSES WERE SMASHED AND THE MURDERER'S HAND    WAS CUT.  BLOOD WAS ALL OVER THE"
  151. 1510  IF W = 4  THEN  PRINT "ROPE.  SYLVESTER WAS FOUND HANGING FROM THE CHANDELIER IN THE"
  152. 1520  IF W = 5  THEN  PRINT "DAGGER.  THERE WERE NO BLOODY WOUNDS AS IT WAS THE HEAVY HANDLE THAT GOT        SYLVESTER IN THE TEMPLE.  HE LAY ON THE FLOOR OF THE": REM  8 SPACES
  153. 1530  IF W = 6  THEN  PRINT "GUN.  THE POLICE FOUND A BULLET HOLE IN SYLVESTER AND 13 IN THE WALLS OF THE"
  154. 1540  IF L = 1  THEN  PRINT "COOK'S BEDROOM.  BEING ON THE GROUND    FLOOR MAKES IT CONVENIENT TO GET TO THE KITCHEN.": REM 5 SPACES
  155. 1550  IF L = 2  THEN  PRINT "KITCHEN, A SUNNY AND USUALLY HAPPY ROOM."
  156. 1560  IF L = 3  THEN  PRINT "LIBRARY.  A COPY OF 'CRIME & PUNISHMENT'LAY OPEN AT SYLVESTER'S FEET."
  157. 1570  IF L = 4  THEN  PRINT "DINING ROOM.  THE COOK HAD HEARD        STRANGE NOISES THROUGH THE OPEN DUMB    WAITER.": REM  8 AND 4 SPACES
  158. 1580  IF L = 5  THEN  PRINT "PARLOR.  THE ROOM IS A MESS AND MUST BE CLEANED FOR PEOPLE ARE SURE TO DROP BY  AFTER THE FUNERAL."
  159. 1590  IF L = 6  THEN  PRINT "GUN ROOM.  QUITE APPROPRIATE, DON'T YOU THINK?"
  160. 1600  PRINT 
  161. 1610  IF G = 1  THEN  PRINT "YOU ACTUALLY SOLVED THE CRIME WITH YOUR FIRST GUESS!  WE ARE RECOMMENDING YOU   FOR THE JOB OF HEAD OF THE F.B.I."
  162. 1620  IF G >1  AND G <6  THEN  PRINT "YOU SOLVED THE CRIME IN "G" GUESSES.": PRINT "YOU ARE BEING PROMOTED TO CHIEF": PRINT "DETECTIVE."
  163. 1630  IF G >5  THEN  PRINT "YOU TOOK "G" GUESSES TO SOLVE THIS CRIME.     ";: HTAB 1: PRINT "SOME SLEUTH!  SEE IF YOU CAN DO BETTER  THIS TIME."
  164. 1640  PRINT 
  165. 1650  INPUT "DO YOU WANT TO PLAY AGAIN?";B$
  166. 1660  IF B$ = "Y"  THEN 220
  167. 1670  PRINT 
  168. 1680  PRINT "COME BACK WHEN YOU WANT TO PLAY         DETECTIVE AGAIN.": REM  9 SPACES