home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Strategy Games 2 / rerun-strategygamesII.d64 / mystery (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  10KB  |  362 lines
  1. 2 printchr$(147)"would you like instructions (y/n)?
  2. 4 [161] a$: [139] a$[179][177] "y" [175] a$[179][177]"n" [167] 4
  3. 6 [139] a$[178]"n" [167] 112
  4. 8 [153]"instructions on screen or printer (s/p)?
  5. 10 get b$: if b$<> "s" and b$<>"p" then 10
  6. 12 if b$="s"then  d=3
  7. 14 if b$="p" then d=4
  8. 16 open d,d
  9. 18 print#d,"
  10. 20 [152]d,"mystery of lane manor by jim sanders
  11. 22 print#d,"
  12. 24 [152]d,"run it right: c-64; 1 or 2 joysticks
  13. 26 print#d,"
  14. 28 [152]d,"in mystery of lane manor, an variation
  15. 30 print#d,"of clue, you compete against a person
  16. 32 [152]d,"or the clock to reveal who murdered
  17. 34 print#d,"james lane, where and with what. there
  18. 36 [152]d,"are five suspects, six rooms and five
  19. 38 print#d,"weapons.
  20. 40 [152]d,"
  21. 42 print#d,"as play starts, your token is in home
  22. 44 [152]d,"position in the hallway. to guess, you
  23. 46 print#d,"must move it to the red square in any
  24. 48 [152]d,"room. the "[199](34)"step-generator"[199](34)"
  25. 50 print#d,"pointer skims past a row of numbers;
  26. 52 [152]d,"press fire to stop it at the number of
  27. 54 print#d,"steps you want, then move your token.":if d=4 then 68
  28. 56 print#d,"
  29. 58 [153]"press a key to continue"
  30. 60 [161] dd$:[139] dd$[178]"" [167] 60
  31. 62 [152]d,"
  32. 64 print#d,"
  33. 66 [152]d,"
  34. 68 print#d,"continue for as many turns needed to
  35. 70 [152]d,"land exactly on a red square. (for more
  36. 72 print#d,"challenge, turn off the step-generator
  37. 74 [152]d,"pointer.)
  38. 76 print#d,"
  39. 78 [152]d,"now choose a person, room and weapon by
  40. 80 print#d,"opting from a list of corresponding
  41. 82 [152]d,"numbers. use the joystick (port 2 for
  42. 84 print#d,"one player) to point the arrow at a
  43. 86 [152]d,"number you want, then press fire. after
  44. 88 print#d,"all three choices, you will see how
  45. 90 [152]d,"many were right.
  46. 92 print#d,"
  47. 94 [152]d,"after each guess, your token will start
  48. 96 print#d,"in a new location. make your last guess
  49. 98 [152]d,"in the room where the crime occurred.
  50. 100 print#d,"
  51. 102 [152]d,"during play, black trapdoors will
  52. 104 print#d,"appear. fall through one and your token
  53. 106 [152]d,"goes home. clear the trapdoors by
  54. 108 print#d,"pressing return and both tokens go home.
  55. 110 [152]d,"":[160]d
  56. 112 [153]"press any key to begin the program..."
  57. 114 [161] e$:[139] e$[178]"" [167] 114
  58. 116 [156]
  59. 118 [134]p$(5),r$(6),w$(5):g[178]0
  60. 120 tq1[178]1665:tp2[178]1705:pl[178]1:re[178]0:wn[178]0
  61. 122 [141]314:[141]344
  62. 124 jp[178]56320:cl[178]54272:tk[178]209:pl[178]1:po[178]tq1
  63. 126 [129]m[178]1[164]sp
  64. 128 j1[178][194](jp)
  65. 130 f1[178]ji[175]16
  66. 132 j1[178]15[171](j1[175]15)
  67. 134 [139]j1[178]4[167]144
  68. 136 [139]j1[178]8[167]180
  69. 138 [139]j1[178]1[167]216
  70. 140 [139]j1[178]2[167]248
  71. 142 [137]128
  72. 144 [139][194](po[171]1)[179][177]160[167]128
  73. 146 [139]pl[178]2[167]150
  74. 148 tq1[178]tq1[171]1:[151]tq1,209:[151]tq1[170]1,160:po[178]tq1:[137]152
  75. 150 tp2[178]tp2[171]1:[151]tp2,218:[151]tp2[170]1,160:po[178]tp2
  76. 152 [141]282
  77. 154 [130]m
  78. 156 rt[178][181]([187](0)[172]3)[170]1:[139]rt[178]2[167][141]586
  79. 158 [139]pl[178]2[167]164
  80. 160 [139]tq1[178]1502[176]tq1[178]1507[176]tq1[178]1526[176]tq1[178]1861[176]tq1[178]1788[176]tq1[178]1966[167][141]438
  81. 162 [137]166
  82. 164 [139]tp2[178]1502[176]tp2[178]1507[176]tp2[178]1526[176]tp2[178]1861[176]tp2[178]1788[176]tp2[178]1966[167][141]438
  83. 166 [139]d[178]1[167]172
  84. 168 [139]pl[178]2[167]pl[178]1:[137]172
  85. 170 [139]pl[178]1[167]pl[178]2
  86. 172 [141] 424:[137]532
  87. 174 [139]pl[178]1[167]124
  88. 176 pl[178]2:po[178]tp2:tk[178]218:jp[178]56321
  89. 178 [137]126
  90. 180 [139][194](po[170]1)[179][177]160[167]128
  91. 182 [139]pl[178]2[167]186
  92. 184 tq1[178]tq1[170]1:[151]tq1,209:[151]tq1[171]1,160:po[178]tq1:[141]282:[137]190
  93. 186 tp2[178]tp2[170]1:[151]tp2,218:[151]tp2[171]1,160:po[178]tp2
  94. 188 [141]282
  95. 190 [130]m
  96. 192 rt[178][181]([187](0)[172]3)[170]1:[139]rt[178]2[167][141]586
  97. 194 [139]pl[178]2[167]200
  98. 196 [139]tq1[178]1502[176]tq1[178]1507[176]tq1[178]1526[176]tq1[178]1861[176]tq1[178]1788[176]tq1[178]1966[167][141]438
  99. 198 [137]202
  100. 200 [139]tp2[178]1502[176]tp2[178]1507[176]tp2[178]1526[176]tp2[178]1861[176]tp2[178]1788[176]tp2[178]1966[167][141]438
  101. 202 [139]d[178]1[167]172
  102. 204 [139]pl[178]2[167]pl[178]1:[137]172
  103. 206 [139]pl[178]1[167]pl[178]2
  104. 208 [141] 424:[137]532
  105. 210 [139]pl[178]1[167]124
  106. 212 pl[178]2:po[178]tp2:tk[178]218:jp[178]56321
  107. 214 [137]126
  108. 216 [139][194](po[171]40)[179][177]160 [167]128
  109. 218 [139]pl[178]2[167]222
  110. 220 tq1[178]tq1[171]40:[151]tq1,209:[151]tq1[170]40,160:po[178]tq1:[141]282:[137]190
  111. 222 tp2[178]tp2[171]40:[151]tp2,218:[151]tp2[170]40,160:po[178]tp2
  112. 224 [141]282
  113. 226 [130]m
  114. 228 rt[178][181]([187](0)[172]3)[170]1:[139]rt[178]2[167][141]586
  115. 230 [139]tq1[178]1502[176]tq1[178]1507[176]tq1[178]1526[176]tq1[178]1861[176]tq1[178]1788[176]tq1[178]1966[167][141]438
  116. 232 [139]tp2[178]1502[176]tp2[178]1507[176]tp2[178]1526[176]tp2[178]1861[176]tp2[178]1788[176]tp2[178]1966[167][141]438
  117. 234 [139]d[178]1[167]240
  118. 236 [139]pl[178]2[167]pl[178]1:[137]240
  119. 238 [139]pl[178]1[167]pl[178]2
  120. 240 [141]424:[137]532
  121. 242 [139]pl[178]1[167]122
  122. 244 p[178]2:po[178]tp2:tk[178]208:jp[178]56321
  123. 246 [137]126
  124. 248 [139][194](po[170]40)[179][177]160[167]128
  125. 250 [139]pl[178]2[167]254
  126. 252 tq1[178]tq1[170]40:[151]tq1,209:[151]tq1[171]40,160:po[178]tq1:[141]282:[137]190
  127. 254 tp2[178]tp2[170]40:[151]tp2,218:[151]tp2[171]40,160:po[178]tp1
  128. 256 [141]282
  129. 258 [130]m
  130. 260 rt[178][181]([187](0)[172]3)[170]1:[139]rt[178]2[167][141]586
  131. 262 [139]tq1[178]1502[176]tq1[178]1507[176]tq1[178]1526[176]tq1[178]1861[176]tq1[178]1788[176]tq1[178]1966[167][141]438
  132. 264 [139]tp2[178]1502[176]tp2[178]1507[176]tp2[178]1526[176]tp2[178]1861[176]tp2[178]1788[176]tp2[178]1966[167][141]438
  133. 266 [139]d[178]1[167]272
  134. 268 [139]pl[178]2[167]pl[178]1:[137]272
  135. 270 [139]pl[178]1[167]pl[178]2
  136. 272 [141]424:[137]532
  137. 274 [139]pl[178]1[167]122
  138. 276 pl[178]2:po[178]tp2:tk[178]94:jp[178]56321
  139. 278 [137]126
  140. 280 s[178]54272:[129]e[178]s[164]s[170]28:[151]e,0:[130]
  141. 282 [151]54296,12:[151]54277,85:[151]54278,197
  142. 284 [151]54276,33:[151]54273,1:[151]54272,250
  143. 286 [129]t[178]1[164]100:[130]:[151]54276,128:[129]t[178]1[164]10:[130]
  144. 288 [142]
  145. 290 [129]p[178]1[164]5:[135]p$(p):[130]
  146. 292 [129]r[178]1[164]6:[135]r$(r):[130]
  147. 294 [129]w[178]1[164]5:[135]w$(w):[130]
  148. 296 [131] mrs.lane,stepson,butler,maid,mistress
  149. 298 [131]library,living rm,den,kitchen,lounge,study
  150. 300 [131]hammer,gun,chain,knife,poison
  151. 302 p[178][181]([187](0)[172]5)[170]1
  152. 304 r[178][181]([187](0)[172]6)[170]1
  153. 306 w[178][181]([187](0)[172]5)[170]1
  154. 308 [129]t[178]1[164]100:[130]
  155. 310 [139]re[178]1[167][140]:[129]i[178]1[164]16:[135]dd$:[130]:[137]344
  156. 312 [142]
  157. 314 [153]"load";[199](14):[151]53280,1:[151]53281,1
  158. 316 [153][163]9)"stop(NULL)ystery of (NULL)ane (NULL)anor"
  159. 318 [153][163]12)"peeky mid$im (NULL)anders"
  160. 320 [129]t[178]1[164]1300:[130]:[141]290
  161. 322 [153]"load":[151]53281,7:[151]53280,7
  162. 324 [153][199](142)
  163. 326 [153]"stophow many will work on this case 1 or 2"
  164. 328 [161]d:[139]d[179]1[176]d[177]2[167]328
  165. 330 [153]"please enter names(6 letters max) then  push returnwait"
  166. 332 [133]"detective #1";d1$:[139]d1$[178]""[167]332
  167. 334 [139]d[178]2[167]340
  168. 336 [141]702
  169. 338 [139]d[178]1[167]344
  170. 340 [133]"detective #2";d2$:[139]d2$[178]""[167]340
  171. 342 [141]702
  172. 344 [151]53265,[194](53265)[175]239:[153]"load":[151]53281,0:[151]53280,8
  173. 346 [129]i[178]1024[164]1063:[151]i,99:[130]
  174. 348 [129]i[178]1063[164]1423[169]40:[151]i,106:[130]
  175. 350 [129]i[178]1024[164]1384[169]40:[151]i,116:[130]
  176. 352 [129]i[178]1384[164]1423:[151]i,100:[130]
  177. 354 [129]i[178]1043[164]1323[169]40:[151]i,106:[130]
  178. 356 [129]i[178]1044[164]1324[169]40:[151]i,116:[130]
  179. 358 [153][163]12)"syspush"
  180. 360 [153][163]8)"jwaitstk button"
  181. 362 [153][163]11)"to stop"
  182. 364 [153][163]10)"step-gen."
  183. 366 [153]"";[163]16)"list12345678"
  184. 368 [129]i[178]1425[164]1462:[151]i,100:[130]:[129]i[178]1985[164]2022:[151]i,99:[130]
  185. 370 [129]i[178]1503[164]1983[169]40:[151]i,116:[130]:[129]i[178]1464[164]1944[169]40:[151]i,106:[130]
  186. 372 ti$[178]"000000"
  187. 374 [153]"print#                 stopspc(          stopspc(   stopspc(sys     "
  188. 376 [153]"print#                 stopspc(          stopspc(   stopspc(sys     "
  189. 378 [153]"print#            stopspc(    stopspc(          stopspc(   stopspc(sys     "
  190. 380 [153]"print#            stopspc(    stopspc(          stopspc(   stopspc(sys     "
  191. 382 [153]"stopspc(spc(spc(