home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.main (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  9.3 KB  |  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]  [158] [156] [153]. [175][175][175] [155].[167][154]    [154]L  [146][180][159] ";
  141. 806 print".[159] [155]  [155].   [146]  [155].  . [175][175]  [153].[155] [153].[158]  ";
  142. 807 print"[167][154]   [146]L[175][186][154]     [154][180] [146][180]  [155].      [146][175]";
  143. 808 print"[175][175]   [170][154]  [146][180][155]   [158]   [146][186][154] [175][175]     [156][183][183]";
  144. 809 print" [154]L [146]L[175][175][175]      [154]   [146][180] [155].[170][154]  [146]L[175][175][155] ";
  145. 810 print"[175]  [154]    [154][180]    [156]    [154][180]    [146]L[175]     ";
  146. 811 print"[154]  [146]L[175]    [154]L  [146]L[154]   [154][175][175]  [154][180]   [156][183] ";
  147. 812 print" [183] [154]L[156]   [154]        [154]    [146][175]    [154]L[175] [156][183][183]";
  148. 813 print"[183]   [156]    [156][183]      [156]    [154][175][175]    [156]   [154][175]";
  149. 814 print"[175][175]      [154]L[156]     [156]   [183] [156]     [183][183]      ";
  150. 815 print"    [156]        [156][183][183][183]  [156]   [183][183]      [159][146]  [156] ";
  151. 816 print"          [156][183][183][183]   [183][183][183][183][183]            [146]   ";
  152. 817 print" [146]    [146]   [146]   [183][183][183]  [146]         [159][146] [156]  ";
  153. 818 print"     [146]    [146]    [146]       [146]      [146]     ";
  154. 819 print"    [146]  [159]     [156]   [146]            [159]  [156] [146]";
  155. 820 print"               [146]         [146]            ";
  156. 821 print"    [146]               [146]                 ";
  157. 822 print"        [146][155]":return
  158. 830 rem *** cityscape7
  159. 831 print"[147][155][176][192][192][174][151]        [150]      [151] [154]      [151] [154]    [151] ";
  160. 832 print"   [151]     [150] [155]{$7d}[158][190] [155][173]{$60}{$60}[174][159].[151]   [150] [151] [150]     [154]";
  161. 833 print" [150] [154]             [155].  [151]   [150] [155]{$7d}[158][190] [188] [155] {$7d}";
  162. 834 print"[151]   +[151] [150]   [155].[150]   [154]       [155].[154]   .    [151] ";
  163. 835 print"[175][175][175][150] [155]{$7d}[158][190] [188] [155] {$7d}[151]  [159].[149]            +[149]  [159].";
  164. 836 print"[149]          [151][180][158][172] [151][180][155]{$7d} [158][191][151] [158][188][188][155]{$7d}[151]      ";
  165. 837 print" [150] [149] [155]+[149]        [151]      .[151]   [175][180][158][187] [151]L[155]{$7d}[158]";
  166. 838 print"[190] [188] [188][155]{$7d}[152][163][165][149]   [159].[129]  [149]    [151]         .[151]   ";
  167. 839 print"   [165][158] [172] [150] [155]{$7d}[158][190] [188]  [155]{$7d}[158].[152][165][151] [149] [151]          ";
  168. 840 print"              [165][158]   [150] [155]{$7d}[158] [191][151]  [158][188][155]{$7d}[158].[152][165][151] ";
  169. 841 print"[155].[151]    [159].[151]   [149]   [155][176]{$60}{$60}{$60}{$60}[174][151]   [152][186]OL[151] [165] [158][172] ";
  170. 842 print"[150] [155]{$7d} [158] [188]  [155]{$7d}[158].[152][165].[151]         .[151]  [155]{$7d}[158] :";
  171. 843 print"::[155]{$7d}[151][163][163][165][152][180][158]{$7c}{$7c}[152][180][151][165][158] [187] [150] [155]{$7d}[158][190] [172]  [155]{$7d}[158].[152][165] ";
  172. 844 print"[151]  [152].[151]  [155][164][164][164][164][164][164][164]{$7d}[158]::::[155]{$7d}[158][190][190][151][165][152][165][158]{$7c}{$7c}[152][165][151][165][158] ";
  173. 845 print" [187][150] [155]{$7d} [158][191][146]   [155]{$7d}[151] [152][165][151]     [152][170][158][168]::[152][171][179][158]:[168]";
  174. 846 print"[152][165][158]:: :[155]{$7d}[152] [158][190][151][165][152][165][158] {$7c}[152][165][151][165][158]   [150] [155]{$7d}     [155]";
  175. 847 print"{$7d}[158].[155]O[183][180]O[183][180][152][170][158][168] :[152][171][179][158]:[168][152][165][158]::::[155]{$7d}[152]  [151][165][152][165][158]{$7c}";
  176. 848 print"{$7c}[152][165][151][180][158] [187] [150] [155]{$7d} [158][190]  [158][191][155]{$7d}[158].[155][180][158][190][155][180][165][158] [155][165][152][170]";
  177. 849 print"[158][168]::[152][171][179][158]:[168][152][165][158]: ::[155]{$7d}[158][190] [151][165][152][165][158]{$7c}{$7c}[152][165][151][165] [158]  [150]";
  178. 850 print" [155]{$7d}   [158][191] [155]{$7d} [155][180][158][190][155]L[180][158][190][152][183][183][158][168]  [152][173][189] [158][168]";
  179. 851 print" [158]::::   [151]L[152][165][158]{$7c} [151][183][158]  [187] [150] [155][189] [158][188]   [155][177]";
  180. 852 print"{$60}     [158][190] [158][168]::  [158]:  [158]: [158]::  [158][190]  [158]{$7c}";
  181. 853 print"  [158][172]   [150]   [158][190]  [158][191]   [158][190]  [158][190][190] [158][168]: ";
  182. 854 print"  [158]:[168]  [158]::: [158][190]   [158]{$7c}{$7c}     [150] [191][190][188][146]  ";
  183. 855 print"[190][188][146]  [190][188][146][187]  [191][191][188][146]  [190][191][146][187]  [187] ";
  184. 856 print"[172][162][162]  [162][158]{$7c}{$7c}[191][146][162][185][158][187] [150] [191] [172][188] [146][191] [188][190]  [191][184]";
  185. 857 print"[146][191]   [188][146][191] [146][187] [146][191] [188][146] [188][146][191] [146][191][191] [190][146][191] [146][191]";
  186. 858 print"[191][188][191][188][146][191][191][162][146][191][191][191][191][146][191][188][146][191][190][191][190] [146][191][191][191] [146][191][191][162][146][191]";
  187. 859 print" [191][191][190][191][146][191][191][190] [191][191][190][188]  [146][191][191] [149][187][172][146][190][191] [149][190][146][188][149][188]";
  188. 860 print"[172][190][172][162][149][188][162][146][187][191][172][149][146][161][188][188][172][149][190][146][184][172][149][172][187][191][172][146][191][172][149]";
  189. 861 print"[146][161][191][187][149][190][146][191][172][149][188][146][191] [146][190][149][182][161][150] [149][182][150] [149][188][172][146][190][184][161][188]";
  190. 862 print"[161][161][150][146] [149][187][150][146] [149][188][150][146] [149][188][161][150] [149][188][161][172][161][188][172][161][146][190][162][146][161][172]";
  191. 863 print"[190][155][146] [149][161][188][187][146] [172][146][190][155]":return
  192. 870 rem *** cityscape8
  193. 871 print"[147][153]        [153]             [153]        [151][184] [184][153]";
  194. 872 print"[146]    [155].[153] [155]  [153]         [153] [151][223][146]   [155].[153]    ";
  195. 873 print" [155].[153]       [151]  [146][191]  [153][146]     [155]  [153]        ";
  196. 874 print" [155] [151] [223][146]  [169][153][146]     [153]    [155].[153]   [151] [191]   [153][146]";
  197. 875 print"     [155]  [153]  [151][221][155] [153]     [155] [151]  [146]   [146]     ";
  198. 876 print" [151]    [153]  [155].[151]   [146][191] [146] [151]  [187] [155][146]  [153] [151][184] [184]";
  199. 877 print"[153][146]     [155] [151] [191] [188] [146]      [151]  [187][170][146] [155].[151][184] ";
  200. 878 print"[191]   [155][146] [151] [191] [190][155][146]  [151][172]   [187][146]    [155] [151]   [191] ";
  201. 879 print"[146]   [152]  [167][151][172][190][146][191][170][146] [151] [191] [190] [191] [155][146] [151] [190][191] [155][146] ";
  202. 880 print" [151]     [146]    [152][207][163][163][163][163][163][163][146]   [191][167][151][164][164][164][152][207][183][183][183][208]";
  203. 881 print"[151] [190] [152][207][183][183][208][151] [188] [155][146] [151][164][188][164][190][164][146]  [151][172] [152][180][191]  [146][191] ";
  204. 882 print"[191]  [188]     [172][188]   [183][183][183]  [191] [163][163][163][155][146] [152][163][163][163][163][163][163][146] [151]";
  205. 883 print"[172][191][152][165][190]   [188] [187][172][155][163][163][163][152][187] [190]  [190] [191][190]  [191][190]  [191][190][190] [190] [190][191]";
  206. 884 print" [187][146] [151][164][164][152][180][191][190] [191]  [172][155][207][187][190] [208][152][187][155][207][183][183][223][152][188]  [190]  [172] ";
  207. 885 print"[191]  [155][207][183][152][191][190] [191]    [187] [187]  [190][188] [155][207]  [187][190] [183] [187][191] [223][152] [190] ";
  208. 886 print"[155][207][183][208][152]   [155][207]  [152]  [190]  [187] [190]   [155][207][183][183][183][183] [187][191]  [191]    ";
  209. 887 print"  [223][152][172] [155][180][188][167][152][172][191][155][207] [188] [152] [155][207][183][183][208][152]  [155][207][183][183][183] [172] [146][191] ";
  210. 888 print"    [191]  [146][191] [187][190][188][167][152]  [155][180][146][191][167][152]  [155][180][188]  [163] [172]  [183][183] ";
  211. 889 print"[172] [191]       [191]        [190] [183][183] [188] [208][152][160][155][180][146][191]  [172][191] [172]";
  212. 890 print"[188] [190][191] [172][172] [190] [190]  [188]  [191]   [146][191] [191]  [191] [146][191] [190] [163][188] [191][190]";
  213. 891 print"                                        ";
  214. 892 print"                                        ":return
  215. 10000 d=peek(186):n$="0:inf3.main":open15,d,15,"s"+n$:close15:saven$,d:end
  216.