home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  216 lines
  1. 0 rem *** save"@0:inf3.main",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186):print"";
  3. 2 goto10
  4. 5 poke198,0
  5. 6 getk$:ifk$=""then6
  6. 7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
  7. 8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
  8. 9 return
  9. 10 dv=peek(186):ifdv<8thendv=8
  10. 12 sys57812"inf3.sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  11. 14 sys57812"holst.mus",dv,0:poke780,0:poke781,0:poke782,150:sys65493
  12. 18 sys57812"inf3.font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  13. 20 print"[147]":poke53272,29:gosub800
  14. 22 poke214,19:print:print"         alien infiltration iii
  15. 24 [153]"         by cheryl de boissiere
  16. 33 sys57812"alien.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
  17. 34 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  18. 35 sys57812"d.lsdemo",dv,0:poke780,0:poke781,6:poke782,64:sys65493
  19. 36 sys49615:poke781,0:poke782,150:sys49664
  20. 37 vi=53248:pg=64:sa=pg*256:sp=248
  21. 38 ss=49152:pokevi+32,0:pokevi+33,0
  22. 39 rem *** setup sinus interrupt
  23. 40 syssa
  24. 41 rem *** poke sprite data
  25. 42 yy=14:fori=0to7
  26. 43 poke2040+i,248+i:rem sprite pointers
  27. 44 pokevi+39+i,i+1:rem sprite colors
  28. 45 pokevi+37,14:pokevi+38,15:next
  29. 46 pokevi+29,255:rem x size
  30. 47 pokevi+23,0:rem y size
  31. 48 pokevi+28,255:rem multicolor on
  32. 49 pokevi+37,5:rem multicolor 1
  33. 50 pokevi+38,13:rem multicolor 2
  34. 51 pokevi+21,0:rem turn sprites on
  35. 52 pokess,7:zz=2:zy=10:zx=zy:gosub800
  36. 53 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  37. 54 pokesa+9,zz:pokesa+10,zy
  38. 56 pokesa+13,zx:pokevi+37,14
  39. 58 pokevi+38,zc:pokevi+39,3
  40. 60 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  41. 61 if zy=40 then zy=10:zx=zx+5
  42. 62 y=y+1:ify<3thenzc=5
  43. 63 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto66
  44. 64 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto70
  45. 65 goto53
  46. 66 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  47. 69 goto64
  48. 70 rem *** turn off sinus
  49. 72 pokevi+21,0:pokevi+32,0:pokevi+33,0
  50. 73 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  51. 74 poke53272,29:goto80
  52. 75 rem *** replay
  53. 76 ifpeek(49152)=0thenreturn
  54. 77 ifpeek(49152)=7thenreturn
  55. 80 rem *** gamestart
  56. 81 print""spc(20)"you are james clark,":printspc(20)"[145]                   "
  57. 82 printspc(20)"homicide detective.":printspc(20)"[145]                   "
  58. 83 printspc(20)"you awake abruptly, ":printspc(20)"[145]                   "
  59. 84 printspc(20)"feeling something is":printspc(20)"[145]                    "
  60. 85 printspc(20)"[145][145]terribly wrong  [192][192]  ":printspc(20)"[145]                    "
  61. 86 printspc(20)"[145][145]fragments of a weird":printspc(20)"[145]                    "
  62. 87 printspc(20)"[145][145]dream linger:  you  ":printspc(20)"[145]                    "
  63. 88 printspc(20)"[145][145]are wet and sticky. ":printspc(20)"              "
  64. 89 printspc(20)"[145]someone hands you a ":printspc(20)"towel and ask your
  65. 90 [153][166]20)"name.  you're given":[153][166]20)"clothes.  you dressononon
  66. 91 gosub5:pokesa+6,3:pokevi+38,4:pokevi+21,255:fort=1to3000:next:pokevi+21,0
  67. 92 print""spc(20)"quickly.  soon, you ":printspc(20)"are moving through  "
  68. 93 printspc(20)"strange corridors.  ":printspc(20)"and then, through a  "
  69. 94 printspc(20)"long series of dark":printspc(20)"and smelly tunnels. "
  70. 95 printspc(20)"[152]'you died, clark.  i":printspc(20)"cannot give you back"
  71. 96 printspc(20)"your life.  but i've":printspc(20)"given you a second  "
  72. 97 printspc(20)"chance [192][192] a new body":printspc(20)"with old memories!' [155][145][145][145]"
  73. 98 gosub5:pokevi+38,5:pokevi+21,255:fort=1to3000:next:pokevi+21,0
  74. 99 gosub210:print"you shake off the dream and stumble into
  75. 100 [153]"the bathroom.  a stranger looks back at you from the mirror!":[141]5
  76. 101 [153]"onononononno stranger tantan it is your younger self  "
  77. 102 [153]"you see reflected.  the dream was real! you sit down to get your ";
  78. 103 [153]"bearings.":[141]5:a$[178]" call wencube (your partner)  "
  79. 104 b$[178]" call division headquarters   ":c$[178]" drop by startower cyber cafe ":x[178]1
  80. 105 [141]800:[141]200:[145]c[137]106,112,290
  81. 106 [141]830:[153]"onyou call ray's home.  a woman answers
  82. 107 print"the phone.  she tells you the funeral[145][145][145]":gosub5:pokevi+38,4
  83. 108 pokevi+21,127:fort=1to3000:next:pokevi+21,0:pokevi+38,5
  84. 109 print"[145]was this morning.  she ask you who you  are.  you hang up quickly";
  85. 110 print".           [145][145][145]":gosub5:pokevi+21,127:fort=1to3000:next:pokevi+21,0
  86. 111 a$=" drop in on your fave labtech ":gosub210:gosub200:oncgoto289,112,290
  87. 112 gosub870:print"you call the station and ask for ray's
  88. 113 [153]"location.  an irate person tells you raywencube's funeral was ";
  89. 114 [153]"today!ononon":[141]5:[151]vi[170]38,4:[151]vi[170]21,63:[129]t[178]1[164]3000:[130]
  90. 115 [151]vi[170]21,0:[153]"ononyou apologize and say you've been away.
  91. 116 print"you ask for yourself and are told that  "
  92. 117 print"you died a month back!      [145][145][145]":gosub5:pokevi+38,5:pokevi+21,63
  93. 118 fort=1to3000:next:pokevi+21,0:a$=" call wencube (your partner)  "
  94. 119 b$=" drop in on your fave labtech ":gosub210:gosub200:oncgoto106,289,290
  95. 200 rem *** options table
  96. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  97. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  98. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  99. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  100. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  101. 206 gosub5:ifk$=""andx<3thenx=x+1
  102. 207 ifk$="[145]"andx>1thenx=x-1
  103. 208 ifk$=chr$(13)thenc=x:return
  104. 209 goto200
  105. 210 rem *** james clark2
  106. 211 print"[147]            [158]     [164][175][175][164]  [150]     [153]       ";
  107. 212 print"      [155]           [158]   [172][191]   [168][188][146][187] [154] [153]   ";
  108. 213 print"             [154] [155]          [158] [172][185][191]     [146][166]";
  109. 214 print"[187][146][187] [150]      [153]          [155]           [158]  [191]";
  110. 215 print" [191]     [146][166][172][146] [153]                [155]         ";
  111. 216 print" [158]   [191] [191][220][185][220][166]  [166][146] [153]                [155]    ";
  112. 217 print"     [158]   [191] [191][150][162]   [162][158][146][191]  [146]  [153]          ";
  113. 218 print"     [155]         [158]   [158][187] [146][181][150][185][190] [188][146][185][158][182][191][172][146]";
  114. 219 print"   [153]              [155]             [158][188][167][150][166]";
  115. 220 print" [192] [166][158][180][146][190]    [153]               [155]  [150]     ";
  116. 221 print"[150]      [158][188][150][220][175][175][175] [158][146][190]     [153]             ";
  117. 222 print"                [150][205] [192] [206][146]     [158]  [153]    ";
  118. 223 print"                        [150][220][183][183][183][167][146]     ";
  119. 224 print"   [153]                      [185][184][183][183][163][220]   [206][163][183]";
  120. 225 print"[183][184][146][162][175][151]   [153]                    [190]       ";
  121. 226 print"         [188][151][146]   [153]                 [150] [172][188]";
  122. 227 print"                [172][150][146][187][151]   [153]             ";
  123. 228 print"   [150][172]  [146][188]              [172][150][169] [146][187][151]   [153]     ";
  124. 229 print"         [150][172]    [146][187]            [172][150][169]   [146]";
  125. 230 print"[187][151]  [155] [153]            [150][172]    [146][190]         ";
  126. 231 print"     [150][146][188]    [146] [151] [155] [151] [153]      [151]     [150]   ";
  127. 232 print" [146][190] [187]            [172][150][146] [188]   [188][153][146][155]":return
  128. 235 rem *** clear text
  129. 236 fori=hto24:poke781,i:sys59903:next:poke214,j:return
  130. 289 f$="inf3.pt3":goto291
  131. 290 f$="inf3.pt2"
  132. 291 syssa+3:poke53281,0:poke53280,0:sys49935
  133. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  134. 294 poke631,13:poke632,13:poke198,2:end
  135. 800 rem *** cityscape6
  136. 801 print"[147][155]    [156] [158]     [185][185][185][185][185] .         .     ";
  137. 802 print"      .[155] [156] .[156]       [167][154]     [146][180][151]  [155].";
  138. 803 print"              .[155]   . [155] [158]    [156] [155]  .[155] ";
  139. 804 print"[170][154]    [154][180][146]L[175][151] [152]  .       [153].      ";
  140. 805 print"   [155]  [