home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 2 / rerun-1984-07-12.d64 / manor (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  8KB  |  305 lines
  1. 10 dimp$(5),r$(6),w$(5):g=0
  2. 20 tq1=1665:tp2=1705:pl=1:re=0:wn=0
  3. 30 gosub990:gosub1140
  4. 40 jp=56320:cl=54272:tk=209:pl=1:po=tq1
  5. 50 form=1tosp
  6. 60 j1=peek(jp)
  7. 70 f1=jiand16
  8. 80 j1=15-(j1and15)
  9. 90 ifj1=4then140
  10. 100 ifj1=8then320
  11. 110 ifj1=1then500
  12. 120 ifj1=2then660
  13. 130 goto60
  14. 140 ifpeek(po-1)<>160then60
  15. 150 ifpl=2then170
  16. 160 tq1=tq1-1:poketq1,209:poketq1+1,160:po=tq1:goto180
  17. 170 tp2=tp2-1:poketp2,218:poketp2+1,160:po=tp2
  18. 180 gosub830
  19. 190 nextm
  20. 200 rt=int(rnd(0)*3)+1:ifrt=2thengosub2360
  21. 210 ifpl=2then240
  22. 220 iftq1=1502ortq1=1507ortq1=1526ortq1=1861ortq1=1788ortq1=1966thengosub1610
  23. 230 goto250
  24. 240 iftp2=1502ortp2=1507ortp2=1526ortp2=1861ortp2=1788ortp2=1966thengosub1610
  25. 250 ifd=1then280
  26. 260 ifpl=2thenpl=1:goto280
  27. 270 ifpl=1thenpl=2
  28. 280 gosub 1540:goto2080
  29. 290 ifpl=1then40
  30. 300 pl=2:po=tp2:tk=218:jp=56321
  31. 310 goto50
  32. 320 ifpeek(po+1)<>160then60
  33. 330 ifpl=2then350
  34. 340 tq1=tq1+1:poketq1,209:poketq1-1,160:po=tq1:gosub830:goto370
  35. 350 tp2=tp2+1:poketp2,218:poketp2-1,160:po=tp2
  36. 360 gosub830
  37. 370 nextm
  38. 380 rt=int(rnd(0)*3)+1:ifrt=2thengosub2360
  39. 390 ifpl=2then420
  40. 400 iftq1=1502ortq1=1507ortq1=1526ortq1=1861ortq1=1788ortq1=1966thengosub1610
  41. 410 goto430
  42. 420 iftp2=1502ortp2=1507ortp2=1526ortp2=1861ortp2=1788ortp2=1966thengosub1610
  43. 430 ifd=1then280
  44. 440 ifpl=2thenpl=1:goto280
  45. 450 ifpl=1thenpl=2
  46. 460 gosub 1540:goto2080
  47. 470 ifpl=1then40
  48. 480 pl=2:po=tp2:tk=218:jp=56321
  49. 490 goto50
  50. 500 ifpeek(po-40)<>160 then60
  51. 510 ifpl=2then530
  52. 520 tq1=tq1-40:poketq1,209:poketq1+40,160:po=tq1:gosub830:goto370
  53. 530 tp2=tp2-40:poketp2,218:poketp2+40,160:po=tp2
  54. 540 gosub830
  55. 550 nextm
  56. 560 rt=int(rnd(0)*3)+1:ifrt=2thengosub2360
  57. 570 iftq1=1502ortq1=1507ortq1=1526ortq1=1861ortq1=1788ortq1=1966thengosub1610
  58. 580 iftp2=1502ortp2=1507ortp2=1526ortp2=1861ortp2=1788ortp2=1966thengosub1610
  59. 590 ifd=1then620
  60. 600 ifpl=2thenpl=1:goto620
  61. 610 ifpl=1thenpl=2
  62. 620 gosub1540:goto2080
  63. 630 ifpl=1then30
  64. 640 p=2:po=tp2:tk=208:jp=56321
  65. 650 goto50
  66. 660 ifpeek(po+40)<>160then60
  67. 670 ifpl=2then690
  68. 680 tq1=tq1+40:poketq1,209:poketq1-40,160:po=tq1:gosub830:goto370
  69. 690 tp2=tp2+40:poketp2,218:poketp2-40,160:po=tp1
  70. 700 gosub830
  71. 710 nextm
  72. 720 rt=int(rnd(0)*3)+1:ifrt=2thengosub2360
  73. 730 iftq1=1502ortq1=1507ortq1=1526ortq1=1861ortq1=1788ortq1=1966thengosub1610
  74. 740 iftp2=1502ortp2=1507ortp2=1526ortp2=1861ortp2=1788ortp2=1966thengosub1610
  75. 750 ifd=1then780
  76. 760 ifpl=2thenpl=1:goto780
  77. 770 ifpl=1thenpl=2
  78. 780 gosub1540:goto2080
  79. 790 ifpl=1then30
  80. 800 pl=2:po=tp2:tk=94:jp=56321
  81. 810 goto50
  82. 820 s=54272:fore=stos+28:pokee,0:next
  83. 830 poke54296,12:poke54277,85:poke54278,197
  84. 840 poke54276,33:poke54273,1:poke54272,250
  85. 850 fort=1to100:next:poke54276,128:fort=1to10:next
  86. 860 return
  87. 870 forp=1to5:readp$(p):next
  88. 880 forr=1to6:readr$(r):next
  89. 890 forw=1to5:readw$(w):next
  90. 900 data mrs.lane,stepson,butler,maid,mistress
  91. 910 datalibrary,living rm,den,kitchen,lounge,study
  92. 920 datahammer,gun,chain,knife,poison
  93. 930 p=int(rnd(0)*5)+1
  94. 940 r=int(rnd(0)*6)+1
  95. 950 w=int(rnd(0)*5)+1
  96. 960 fort=1to100:next
  97. 970 ifre=1thenrestore:fori=1to16:readdd$:next:goto1140
  98. 980 return
  99. 990 print"[147]";chr$(14):poke53280,1:poke53281,1
  100. 1000 printtab(9)"[144][205]ystery of [204]ane [205]anor"
  101. 1010 printtab(12)"[194]y [202]im [211]anders"
  102. 1020 fort=1to1300:next:gosub870
  103. 1030 print"[147]":poke53281,7:poke53280,7
  104. 1040 printchr$(142)
  105. 1050 print"[144]how many will work on this case 1 or 2"
  106. 1060 getd:ifd<1ord>2then1060
  107. 1070 print"please enter names(6 letters max) then  push return[146]"
  108. 1080 input"detective #1";d1$:ifd1$=""then1080
  109. 1090 ifd=2then1120
  110. 1100 gosub2940
  111. 1110 ifd=1then1140
  112. 1120 input"detective #2";d2$:ifd2$=""then1120
  113. 1130 gosub2940
  114. 1140 poke53265,peek(53265)and239:print"[147]":poke53281,0:poke53280,8
  115. 1150 fori=1024to1063:pokei,99:next
  116. 1160 fori=1063to1423step40:pokei,106:next
  117. 1170 fori=1024to1384step40:pokei,116:next
  118. 1180 fori=1384to1423:pokei,100:next
  119. 1190 fori=1043to1323step40:pokei,106:next
  120. 1200 fori=1044to1324step40:pokei,116:next
  121. 1210 printtab(12)"[158]push"
  122. 1220 printtab(8)"j[146]stk button"
  123. 1230 printtab(11)"to stop"
  124. 1240 printtab(10)"step-gen."
  125. 1250 print"";tab(16)"[155]12345678"
  126. 1260 fori=1425to1462:pokei,100:next:fori=1985to2022:pokei,99:next
  127. 1270 fori=1503to1983step40:pokei,116:next:fori=1464to1944step40:pokei,106:next
  128. 1280 ti$="000000"
  129. 1290 print"[152]                 [144][166]          [144][166]   [144][166][158]     "
  130. 1300 print"[152]                 [144][166]          [144][166]   [144][166][158]     "
  131. 1310 print"[152]            [144][166]    [144][166]          [144][166]   [144][166][158]     "
  132. 1320 print"[152]            [144][166]    [144][166]          [144][166]   [144][166][158]     "
  133. 1330 print"[144][166][166][166][166][166][166][166][152]   [144][166][166][166]    [144][166][166][166][166][166][166]   [144][166][166][166]   [144][166][166][166][166][158]  "
  134. 1340 print"                                      "
  135. 1350 print"                                      "
  136. 1360 print"[144][166][166][166][166][166][166][166][155]   [144][166]   [144][166][166][166][156]  [144][166][166][166][166][156]  [144][166]   [144][166][166][166][166][166][166][166][166][166]"
  137. 1370 print"[155]          [144][166]   [144][166][156]          [144][166]   [144][166][154]        "
  138. 1380 print"[155]          [144][166]   [144][166][156]          [144][166]   [154]         "
  139. 1390 print"[155]          [144][166]   [144][166][156]          [144][166]   [154]         "
  140. 1400 print"[155]              [144][166][156]          [144][166]   [144][166][154]        "
  141. 1410 print"[155]              [144][166][156]          [144][166]   [144][166][154]        "
  142. 1420 print"library";tab(19)"living rm";tab(34)"den"
  143. 1430 print"kitchen";tab(16)"lounge";tab(31)"study"
  144. 1440 cl=54272:pokecl+1507,2:pokecl+1526,2:pokecl+1502,2
  145. 1450 pokecl+1788,2:pokecl+1966,2:pokecl+1861,2:poke1665,209:poke1705,218
  146. 1460 tq1=1665:tp2=1705
  147. 1470 printchr$(142):poke53265,peek(53265)or16
  148. 1480 gosub1490:gosub1540:gosub2330:goto2080
  149. 1490 print"[155]";tab(10);d1$
  150. 1500 ifd=1thenreturn
  151. 1510 printtab(25)"[145]";d2$
  152. 1520 fort=1to1500:next
  153. 1530 return
  154. 1540 ifpl=2then1580
  155. 1550 print"[155]";tab(10);d1$
  156. 1560 printtab(25)"[145][144]      [155]"
  157. 1570 return
  158. 1580 print"";tab(10)"[144]      [155]"
  159. 1590 printtab(25)"[145][155]";d2$
  160. 1600 return
  161. 1610 gosub2010:ifpl=1thenx=8:ifpl=1theny=1
  162. 1620 ifpl=2thenx=28:ifpl=2theny=21
  163. 1630 print"[155]";tab(x)"1.mrs lane"
  164. 1640 printtab(x)"2.stepson"
  165. 1650 printtab(y)"person:3.butler"
  166. 1660 printtab(x)"4.maid"
  167. 1670 printtab(x)"5.mistress"
  168. 1680 q=5:gosub2560:rem guess stepper
  169. 1690 gosub2010:rem blanks player scrn
  170. 1700 gp=gs
  171. 1710 print"";tab(x)"1.library"
  172. 1720 printtab(x)"2.living rm"
  173. 1730 printtab(x)"3.den"
  174. 1740 printtab(y)"room:  4.kitchen"
  175. 1750 printtab(x)"5.lounge"
  176. 1760 printtab(x)"6.study"
  177. 1770 q=6:gosub2560
  178. 1780 gosub2010
  179. 1790 gr=gs
  180. 1800 print"";tab(x)"1.hammer"
  181. 1810 printtab(x)"2.gun"
  182. 1820 printtab(y)"weapon:3.chain"
  183. 1830 printtab(x)"4.knife"
  184. 1840 printtab(x)"5.poison"
  185. 1850 q=5:gosub2560
  186. 1860 gosub2010
  187. 1870 gw=gs
  188. 1880 print"";tab(y)"person:";p$(gp)
  189. 1890 printtab(y)"room:";r$(gr)
  190. 1900 printtab(y)"weapon:";w$(gw)
  191. 1910 gosub2610:fort=1to2000:next
  192. 1920 ifpl=1thenco=7
  193. 1930 ifpl=2thenco=27
  194. 1940 cb=0
  195. 1950 ifp=gpthencb=cb+1
  196. 1960 ifr=grthencb=cb+1
  197. 1970 ifw=gwthencb=cb+1
  198. 1980 gosub2990:fort=1to1300:next:gosub3030
  199. 1990 gosub2260:return
  200. 2000 print"";tab(co)" "
  201. 2010 print""
  202. 2020 ifpl=2thenb=21
  203. 2030 ifpl=1thenb=1
  204. 2040 fori=1to6
  205. 2050 printtab(b)"                  "
  206. 2060 next
  207. 2070 return
  208. 2080 sp=15                           
  209. 2090 ifsp=23thensp=15                  
  210. 2100 print"          "
  211. 2110 ifxv=1then2130
  212. 2120 print"[144]"
  213. 2130 print"";tab(sp)" ^ "
  214. 2140 printtab(23)"[145] "
  215. 2150 sp=sp+1
  216. 2160 ifpeek(197)=1thenprint"":goto1290
  217. 2170 ifpl=1thenjp=56320
  218. 2180 ifpl=2thenjp=56321
  219. 2190 ifjp=56320thenj0=111
  220. 2200 ifjp=56321thenj0=239
  221. 2210 ifpeek(jp)<>j0then2090
  222. 2220 ifsp=23then2170
  223. 2230 print"";tab(sp)"^ "
  224. 2240 sp=sp-15
  225. 2250 goto290
  226. 2260 ifpl=2then2290
  227. 2270 rj=int(rnd(0)*37)+1665
  228. 2280 goto2310
  229. 2290 rk=int(rnd(0)*37)+1704
  230. 2300 goto2320
  231. 2310 pokerj,209:poketq1,160:tq1=rj:goto2330
  232. 2320 pokerk,218:poketp2,160:tp2=rk:goto2330
  233. 2330 poke