home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 July / 1985-07.d64 / sleuth_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  95 lines
  1. 15 z=11:z1=36879:z2=104:z3=25:z4=36878:z5=36877:z6=3:s2=36875:s3=3
  2. 20 g1=3:g2=3
  3. 25 print"[147]":dima(5,4):goto80
  4. 30 gosub415
  5. 35 cl=0:forj=0to3:fori=0to4:a(i,j)=0:next:next:pokez1,z3
  6. 40 print"[147]one evening, while on holiday at lord
  7. 45 [153]"crumbly's mansion you hear a shot and
  8. 50 print"find lord crumbly dead"
  9. 55 print"the other people here are"
  10. 60 fori=0to4:printtab(5)a$(i):nexti
  11. 65 print:print"how quickly can you   solve the murder?"
  12. 70 print"who had motive,weapon and opportunity?":poke198,0
  13. 75 print"hit any key";:wait198,1:poke198,0:print"[147]":goto95
  14. 80 print"[147]":a$(0)="maid whiggins[146]":a$(1)="[144]sir chauncy[146]"
  15. 85 a$(2)="[156]madam larue[146]":a$(3)="butler snipe[146]"
  16. 90 a$(4)="professor bard[146]":a$(5)="[159]lord crumbly[146]":goto30
  17. 95 i=int(rnd(1)*5):lr(i)=1:i=int(rnd(1)*5)
  18. 100 forj=0to3:a(i,j)=1:next
  19. 105 forj=0to2:c=0
  20. 110 fori=0to4
  21. 115 ifa(i,3)=1then145
  22. 120 ifc=2then145
  23. 125 ifj=0then135
  24. 130 k=j-1:ifa(i,k)=1then145
  25. 135 ifrnd(1)>.5thena(i,j)=1
  26. 140 ifa(i,j)=1thenc=c+1
  27. 145 nexti
  28. 150 nextj
  29. 155 cl=cl+1:w=int(rnd(1)*5):y=int(rnd(1)*3):uv=int(rnd(1)*3)+1
  30. 160 vv=int(rnd(1)*3)+1:x=int(rnd(1)*5):ifx=wthen160
  31. 165 poke204,1:print"[147]one of the suspects is a compulsive liar[146]"
  32. 170 print:print"during questioning:":print
  33. 175 printa$(w)" says:":print
  34. 180 ony+1goto185,225,265
  35. 185 ifa(x,y)=0then215
  36. 190 iflr(w)=1then220
  37. 195 onuvgoto200,205,210
  38. 200 printa$(5):print"was blackmailing":printa$(x):goto305
  39. 205 printa$(x):print" hated":printa$(5):goto305
  40. 210 printa$(5):print"secretly killed":printa$(x);"'s lover":goto305
  41. 215 iflr(w)=1then195
  42. 220 printa$(x):print"had no motive ":goto305
  43. 225 ifa(x,y)=0then255
  44. 230 iflr(w)=1then260
  45. 235 onuvgoto240,245,250
  46. 240 printa$(x):print"carries a gun":goto305
  47. 245 print"a gun was kept in":printa$(x);"'s room":goto305
  48. 250 printa$(x):print"just bought a gun":goto305
  49. 255 iflr(w)=1then235
  50. 260 printa$(x):print"had no access to a gun":goto305
  51. 265 ifa(x,y)=0then295
  52. 270 iflr(w)=1then300
  53. 275 onvvgoto280,285,290
  54. 280 printa$(x):print"went to bed very early":goto305
  55. 285 printa$(x):print"had not been seen     since dinner":goto305
  56. 290 printa$(x):print" was by":printa$(5);"'s room just before the shot":goto305
  57. 295 iflr(w)=1then275
  58. 300 printa$(x):print"was with someone when the shot was fired":goto305
  59. 305 print"your options are:":print:print"(1)grill suspects"
  60. 310 print"(2)make accusation"
  61. 315 geta$:ifa$="1"then155
  62. 325 ifa$<>"2"then315
  63. 330 print"[147]who did it?":print
  64. 335 fori=0to4:printi"[157]) ";a$(i):print:next:poke198,0
  65. 337 getk$:ifasc(k$+chr$(0))<48orasc(k$+chr$(0))>52then337
  66. 340 k=val(k$):ifa(k,3)=1then380
  67. 345 print"[147]after"cl"clues you":print"have accused the wrong person"
  68. 350 print"before you can correct your mistake, you are framed for the murder"
  69. 355 pokes2+3,15:fori=0to60:pokes2+2,128:next:pokes2+2,0
  70. 360 print:fori=0to4:ifa(i,3)<>1then370
  71. 365 printa$(i):a(i,3)=0
  72. 370 next
  73. 375 print"was the murderer!":goto390
  74. 380 print"[147]"a$(k)" did it!":print"you caught the killer after";cl;"clues."
  75. 385 a(k,3)=0:pokes2+3,15:n=195:forj=1to4:n=n+10
  76. 390 fori=0to4:iflr(i)<>1then400
  77. 395 print:printa$(i):print"was the liar.":lr(i)=0
  78. 400 next
  79. 405 input"another case (y/n)";q$:ifq$="y"then35
  80. 410 end
  81. 415 print"[147][144]"spc(z-6)"s l e u t h":pokez1,z2:pokez4,15:pokez6,0
  82. 420 print""spc(z-10);:forq=1to4:readn,p:pokes2,n:pokes3,p:pokeg1,32:pokeg1,33
  83. 425 fori=1to800:next:next:a$="[213][174][176][196][201][157][157][157][157][157][202][189][173][198][203]"
  84. 430 readn,p:pokes2,n:pokes3,p:pokeg1,32:pokeg1,33:fori=1to1300:next:forq=1to4
  85. 435 readn,p:pokes2,n:pokes3,p:pokeg1,32:pokeg1,33:fori=1to300:next:next:n=185
  86. 440 forj=1to4:readn,p:pokes2,n:pokes3,p:pokeg1,32:pokeg1,33
  87. 445 printa$;:ifj=2thenprint"[145][145][145][145][145][145]";
  88. 450 fork=1to800:next:next
  89. 455 pokes2,0:pokez5,220:pokeg2,128:pokeg2,129:l=16
  90. 460 ifl=0then470
  91. 465 l=l-1:pokez4,l:fori=1to30:next:goto460
  92. 470 pokez5,0:return
  93. 475 data195,0,205,0,215,0,225,0,217,0,215,0,209,0,205,0,201,0
  94. 480 data 195,0,205,0,215,0,225,0
  95.