home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf3.pt6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  8.7 KB  |  203 lines
  1. 0 rem *** save"@0:inf3.pt6",8
  2. 1 dv=peek(186):ifdv<8thendv=8
  3. 2 poke53272,29:print"";: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 sys49615:poke781,0:poke782,150:sys49664
  10. 37 vi=53248:pg=64:sa=pg*256:sp=248
  11. 38 ss=49152:pokevi+32,0:pokevi+33,0
  12. 39 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  13. 40 syssa
  14. 41 rem *** poke sprite data
  15. 42 yy=14:fori=0to7
  16. 43 poke2040+i,248+i:rem sprite pointers
  17. 44 pokevi+39+i,i+1:rem sprite colors
  18. 45 pokevi+37,14:pokevi+38,15:next
  19. 46 pokevi+29,255:rem x size
  20. 47 pokevi+23,0:rem y size
  21. 48 pokevi+28,255:rem multicolor on
  22. 49 pokevi+37,5:rem multicolor 1
  23. 50 pokevi+38,13:rem multicolor 2
  24. 51 pokevi+21,0:rem turn sprites on
  25. 52 pokess,7:zz=2:zy=10:zx=zy:gosub800
  26. 53 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  27. 54 pokesa+9,zz:pokesa+10,zy
  28. 56 pokesa+13,zx:pokevi+37,14
  29. 58 pokevi+38,zc:pokevi+39,3
  30. 60 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  31. 61 if zy=40 then zy=10:zx=zx+5
  32. 62 y=y+1:ify<3thenzc=5
  33. 63 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto66
  34. 64 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto70
  35. 65 goto53
  36. 66 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  37. 69 goto64
  38. 70 rem *** turn off sinus
  39. 72 pokevi+21,0:pokevi+32,0:pokevi+33,0
  40. 73 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  41. 74 poke53272,29:goto80
  42. 80 rem *** gamestart
  43. 81 pokesa+6,3:pokevi+38,4:print"on the train down, you focus on what
  44. 82 [153]"nick told you about ray and his visit to
  45. 83 print"luthelcorp.  technically speaking, your
  46. 84 [153]"visit isn't breaking & entering sinceononon":[141]5:[151]vi[170]21,1
  47. 85 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
  48. 86 [153]"ononononluthelcorp has late night delivery.  or
  49. 87 print"it is since you're using someone else's "
  50. 88 print"access code.  what's important is ray  "
  51. 89 print"died the night he went to luthelcorp![145][145][145]":gosub5:pokevi+21,1
  52. 90 fort=1to3000:next:pokevi+21,0:pokevi+38,5
  53. 91 gosub210:print"when you are standing outside of the
  54. 92 [153]"luthelcorp building, you get the strange
  55. 93 print"feeling that you have been here before.[145][145]":gosub5
  56. 94 print"[145][145][145][145]you have to fight a very strong urge to
  57. 95 [153]"flee.  you take a step towards the tantan   "
  58. 96 [153]"a voice cries out print#'clark, don't!list'      onon":[141]5
  59. 97 [151]vi[170]38,4:[141]800:[153]"it is the voice that was speaking when
  60. 98 print"you woke to awareness in your apartment!
  61. 99 [153]"you stare at its owner.ononon":[141]5:[151]vi[170]21,255:[129]t[178]1[164]3000:[130]
  62. 100 [151]vi[170]21,0:[153]"ononyou know this face from another dream tantan
  63. 101 print"the dream where you and lea are being   "
  64. 102 print"chased by a mob with the same face![145][145][145]":gosub5:pokevi+38,5
  65. 103 pokevi+21,255:fort=1to3000:next:pokevi+21,0
  66. 104 gosub960:print"'come with me, mr. clark',
  67. 105 [153]"this familiar stranger re-":[153]"quest.  'it is not safe here
  68. 106 print"for either of us.'  you know":print"for certain that this is the
  69. 107 [153]"face of the mob that killed":[153]"you and that you died!
  70. 108 a$=" tactical retreat to subway   ":b$=" disregard & enter luthelcorp ":x=1
  71. 109 c$=" take strange clone prisoner  ":gosub200:oncgoto110,119,125
  72. 110 pokevi+38,4:gosub870:print"you show the clone your gun and tell him
  73. 111 [153]"not to follow you.  you desperately need
  74. 112 print"time alone to think.[145][145][145]":gosub5:pokevi+21,127:fort=1to3000:next
  75. 113 pokevi+21,0:print"[145][145]on the subway platform, you realize you "
  76. 114 print"panicked and [192][192] a pain rips [192][192] bullet [192][192]
  77. 115 [153]"you fall in front of an incoming train!ononon":[141]5
  78. 116 [151]vi[170]38,5:[151]vi[170]21,127:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  79. 117 [133]"loadclrbad choice listtantan restart section (y/n)clr";g$:[139]g$[178]"y"[167]900
  80. 118 [153]"loadlist   you are being returned to clrloadstarlist.":[141]5:[137]285
  81. 119 [141]210:[153]"you barely make it inside the lobby when
  82. 120 print"you're seized by clones who seem to come
  83. 121 [153]"out of every conceivable hole!ononon":[141]5
  84. 122 [153]"ononthe clone who warned you of this danger "
  85. 123 [153]"tantan but you decided to be a total idiot  "
  86. 124 [153]"tantan leaves you to your fate.   ononon":[141]5:[137]117
  87. 125 [151]vi[170]38,4:[141]870:[153]"the clone insists the two of you go to
  88. 126 print"his hideout to talk since your apartment
  89. 127 [153]"has too many windows.ononon":[141]5:[151]vi[170]21,63:[129]t[178]1[164]3000:[130]
  90. 128 [151]vi[170]21,0:[153]"ononhe tells you he's behind on his kweven
  91. 129 print"treatments and daylight uv is damaging  to the untreated.    [145][145][145]"
  92. 130 gosub5:pokevi+38,5:pokevi+21,63:fort=1to3000:next:pokevi+21,0
  93. 131 gosub960:print"the clone tells you a fantas-
  94. 132 [153]"tic story about an alien fleet":[153]"in exodus from a dying world.
  95. 133 print"the fleet was running low on":print"fuel when it reached earth.
  96. 134 [153]"the military decided to col-":[153]"onize earth instead of contin-
  97. 135 print"uing on.  he objected & went
  98. 136 [153]"renegade.  it is not too late to save   your planet.":[141]5
  99. 137 [153]"loadhe asks that you be his ally. you're not
  100. 138 print"doing anything this weekend, so you say why not?[145][145][145]":gosub5:goto118
  101. 200 rem *** options table
  102. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  103. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  104. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  105. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  106. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  107. 206 gosub5:ifk$=""andx<3thenx=x+1
  108. 207 ifk$="[145]"andx>1thenx=x-1
  109. 208 ifk$=chr$(13)thenc=x:return
  110. 209 goto200
  111. 210 rem *** james clark2
  112. 211 print"[147]            [158]     [164][175][175][164]  [150]     [153]       ";
  113. 212 print"      [155]           [158]   [172][191]   [168][188][146][187] [154] [153]   ";
  114. 213 print"             [154] [155]          [158] [172][185][191]     [146][166]";
  115. 214 print"[187][146][187] [150]      [153]          [155]           [158]  [191]";
  116. 215 print" [191]     [146][166][172][146] [153]                [155]         ";
  117. 216 print" [158]   [191] [191][220][185][220][166]  [166][146] [153]                [155]    ";
  118. 217 print"     [158]   [191] [191][150][162]   [162][158][146][191]  [146]  [153]          ";
  119. 218 print"     [155]         [158]   [158][187] [146][181][150][185][190] [188][146][185][158][182][191][172][146]";
  120. 219 print"   [153]              [155]             [158][188][167][150][166]";
  121. 220 print" [192] [166][158][180][146][190]    [153]               [155]  [150]     ";
  122. 221 print"[150]      [158][188][150][220][175][175][175] [158][146][190]     [153]             ";
  123. 222 print"                [150][205] [192] [206][146]     [158]  [153]    ";
  124. 223 print"                        [150][220][183][183][183][167][146]     ";
  125. 224 print"   [153]                      [185][184][183][183][163][220]   [206][163][183]";
  126. 225 print"[183][184][146][162][175][151]   [153]                    [190]       ";
  127. 226 print"         [188][151][146]   [153]                 [150] [172][188]";
  128. 227 print"                [172][150][146][187][151]   [153]             ";
  129. 228 print"   [150][172]  [146][188]              [172][150][169] [146][187][151]   [153]     ";
  130. 229 print"         [150][172]    [146][187]            [172][150][169]   [146]";
  131. 230 print"[187][151]  [155] [153]            [150][172]    [146][190]         ";
  132. 231 print"     [150][146][188]    [146] [151] [155] [151] [153]      [151]     [150]   ";
  133. 232 print" [146][190] [187]            [172][150][146] [188]   [188][153][146][155]":return
  134. 285 f$="hello connect":goto291
  135. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  136. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  137. 294 poke631,13:poke632,13:poke198,2:end
  138. 800 rem *** cityscape6
  139. 801 print"[147][155]    [156] [158]     [185][185][185][185][185] .         .     ";
  140. 802 print"      .[155] [156] .[156]       [167][154]     [146][180][151]  [155].";
  141. 803 print"              .[155]   . [155] [158]    [156] [155]  .[155] ";
  142. 804 print"[170][154]    [154][180][146]L[175][151] [152]  .       [153].      ";
  143. 805 print"   [155]  [158] [156] [153]. [175][175][175] [155].[167][154]    [154]L  [146][180][159] ";
  144. 806 print".[159] [155]  [155].   [146]  [155].  . [175][175]  [153].[155] [153].[158]  ";
  145. 807 print"[167][154]   [146]L[175][186][154]     [154][180] [146][180]  [155].      [146][175]";
  146. 808 print"[175][175]   [170][154]  [146][180][155]   [158]   [146][186][154] [175][175]     [156][183][183]";
  147. 809 print" [154]L [146]L[175][175][175]      [154]   [146][180] [155].[170][154]  [146]L[175][175][155] ";
  148. 810 print"[175]  [154]    [154][180]    [156]    [154][180]    [146]L[175]     ";
  149. 811 print"[154]  [146]L[175]    [154]L  [146]L[154]   [154][175][175]  [154][180]   [156][183] ";
  150. 812 print" [183] [154]L[156]   [154]        [154]    [146][175]    [154]L[175] [156][183][183]";
  151. 813 print"[183]   [156]    [156][183]      [156]    [154][175][175]    [156]   [154][175]";
  152. 814 print"[175][175]      [154]L[156]     [156]   [183] [156]     [183][183]      ";
  153. 815 print"    [156]        [156][183][183][183]  [156]   [183][183]      [159][146]  [156] ";
  154. 816 print"          [156][183][183][183]   [183][183][183][183][183]            [146]   ";
  155. 817 print" [146]    [146]   [146]   [183][183][183]  [146]         [159][146] [156]  ";
  156. 818 print"     [146]    [146]    [146]       [146]      [146]     ";
  157. 819 print"    [146]  [159]     [156]   [146]            [159]  [156] [146]";
  158. 820 print"               [146]         [146]            ";
  159. 821 print"    [146]               [146]                 ";
  160. 822 print"        [146][155]":return
  161. 870 rem *** cityscape8
  162. 871 print"[147][153]        [153]             [153]        [151][184] [184][153]";
  163. 872 print"[146]    [155].[153] [155]  [153]         [153] [151][223][146]   [155].[153]    ";
  164. 873 print" [155].[153]       [151]  [146][191]  [153][146]     [155]  [153]        ";
  165. 874 print" [155] [151] [223][146]  [169][153][146]     [153]    [155].[153]   [151] [191]   [153][146]";
  166. 875 print"     [155]  [153]  [151][221][155] [153]     [155] [151]  [146]   [146]     ";
  167. 876 print" [151]    [153]  [155].[151]   [146][191] [146] [151]  [187] [155][146]  [153] [151][184] [184]";
  168. 877 print"[153][146]     [155] [151] [191] [188] [146]      [151]  [187][170][146] [155].[151][184] ";
  169. 878 print"[191]   [155][146] [151] [191] [190][155][146]  [151][172]   [187][146]    [155] [151]   [191] ";
  170. 879 print"[146]   [152]  [167][151][172][190][146][191][170][146] [151] [191] [190] [191] [155][146] [151] [190][191] [155][146] ";
  171. 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]";
  172. 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] ";
  173. 882 print"[191]  [188]     [172][188]   [183][183][183]  [191] [163][163][163][155][146] [152][163][163][163][163][163][163][146] [151]";
  174. 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]";
  175. 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] ";
  176. 885 print"[191]  [155][207][183][152][191][190] [191]    [187] [187]  [190][188] [155][207]  [187][190] [183] [187][191] [223][152] [190] ";
  177. 886 print"[155][207][183][208][152]   [155][207]  [152]  [190]  [187] [190]   [155][207][183][183][183][183] [187][191]  [191]    ";
  178. 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] ";
  179. 888 print"    [191]  [146][191] [187][190][188][167][152]  [155][180][146][191][167][152]  [155][180][188]  [163] [172]  [183][183] ";
  180. 889 print"[172] [191]       [191]        [190] [183][183] [188] [208][152][160][155][180][146][191]  [172][191] [172]";
  181. 890 print"[188] [190][191] [172][172] [190] [190]  [188]  [191]   [146][191] [191]  [191] [146][191] [190] [163][188] [191][190]";
  182. 891 print"                                        ";
  183. 892 print"                                        ":return
  184. 900 vi=53248:gosub800:goto80
  185. 960 rem *** friend
  186. 961 print"[147][157][157][157][157][157][157][157][157][150][172][157][157][129][182][190][150][188][146][187] [155] ";
  187. 962 print"[150]               [155]       [158]         [150]   [155] ";
  188. 963 print"[129][172][187][150][172][146]  [155] [150]              [155]       [158]    ";
  189. 964 print"     [150]   [155] [129][188][162][190][146] [150]                [155]    ";
  190. 965 print"   [158]        [150]   [129][172][163][146]  [129][183]  [129][188][150][146]      ";
  191. 966 print"         [155]      [158]        [150]  [155] [129][165] [149][146]   ";
  192. 967 print"  [129] [150][146][180]               [155]     [158]        [150] ";
  193. 968 print"  [129] [221][146]     [181][150][146][181]             [155]       [158] ";
  194. 969 print"       [150]   [129] [146][165]      [150][146][181]             [155]";
  195. 970 print"       [158]       [150]    [129] [150][146]  [185][187][129]  [181][150][146][161]   ";
  196. 971 print"           [155]      [158]        [150]  [129][182][150][167][146] [129] [150]";
  197. 972 print"[187] [146] [129][164][190][150][182][146]                 [155]   [158]      ";
  198. 973 print"    [150][181][182][146] [129] [150][188][129][185][150][175][175][185][146][190]               [155] ";
  199. 974 print"    [158]          [150][180][146][180] [129]   [154]          [150]   ";
  200. 975 print"       [155]    [158]          [129][165][146]  [151][184][146][162][162][162][183][154][146]";
  201. 976 print"          [155]            [158]     [129]    [150] [129][165][150][146][187] [151]  [221]  [155]":return
  202. 10000 d=peek(186):n$="0:inf3.pt6":open15,d,15,"s"+n$:close15:saven$,d:end
  203.