home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  9.1 KB  |  219 lines
  1. 0 rem *** save"@0:inf4.pt3",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186)
  3. 2 goto335
  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. 20 rem *** clone-queen
  11. 21 print"[147][155]                                  [155]     ";
  12. 22 print"                                [168][185]  [155]  ";
  13. 23 print"                                [176][190][150]  [192]";
  14. 24 print"[168] [155]          [150]   [155]                  [192][190] ";
  15. 25 print"[150][175][172][175]  [191][155]          [150]   [155]               ";
  16. 26 print"  [221] [150] [190][185] [185][146][161]  [180][155]         [150]   [155]        ";
  17. 27 print"       [150]  [191][150][146] [170][191]   [172][146] [191][146]  [155]       ";
  18. 28 print" [150]         [155]         [150] [191][146] [150]  [187][192][192][172][146][190]";
  19. 29 print" [191]  [155]      [150]             [155]  [150]      [220] [150] ";
  20. 30 print"  [150][192][192][146] [150] [155]  [191]  [155]                ";
  21. 31 print"         [221] [150]  [169]  [206] [183][146]  [155] [180] [155]      ";
  22. 32 print"                  [150] [191][156]  [150][169][172][190][206][185][165] [146][181]";
  23. 33 print"[155] [182] [155]                           ";
  24. 34 print"[191][156][190][183][187][183][163] [150][181] [146][161] [191] [155]                 ";
  25. 35 print"          [156] [187] [146][187]  [172][150][161] [146][161][155] [191][155][146]":return
  26. 40 rem *** door
  27. 41 print"[147][152][170][155][146]                       [152] [155] [152]      ";
  28. 42 print" [155] [152]      [170][151][146]                       [152] [155]";
  29. 43 print" [152]       [155] [152]      [170][151][146]                  ";
  30. 44 print"   [146]  [155]                [152][170][151][146]   [155] [146] [152] [155]";
  31. 45 print"[146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [151] [146]  [152] ";
  32. 46 print"    [155] [152]      [155] [152]   [151][183][146]   [155] [146][160][152] [155][146]  [152] ";
  33. 47 print"[155][146]  [152] [155][146][160] [152] [155][146]  [152] [155][146]  [151] [146]  [152]     [155] ";
  34. 48 print"[152]  [160]   [155] [152]   [151][183][146]   [155] [146] [152] [155][146]  [152] [155][146]  [152]";
  35. 49 print" [155][146]  [152] [155][146]  [152][160][155][146] [160][151] [146]  [152]     [155] [152]     ";
  36. 50 print" [155] [152]   [151][183][146]   [155] [146] [152] [155][146]  [152] [155][146]  [152] [155][146]  [152]";
  37. 51 print" [155][146]  [152][160][155][146] [160][151] [146]  [152]     [155] [152]      [155] [152]  ";
  38. 52 print" [208][151][146]   [155] [146] [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  ";
  39. 53 print"[152][160][155][146]  [151] [146]  [155]                [152][170][151][146]   [155]";
  40. 54 print" [146] [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [151]";
  41. 55 print" [146]  [152] [155] [152]       [155] [152]      [155][170][151][146]   [155] [146] [152]";
  42. 56 print" [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [152] [155][146]  [151] [146]  [152]";
  43. 57 print" [155] [152]       [155] [152]      [170][151][146]   [155] [146] [152] [155][146]  [152]";
  44. 58 print" [155][146]  [152] [155][146]  [152] [155][146]  [152][160][155][146]  [151] [146]  [152] [155] [152] ";
  45. 59 print"      [155] [152]      [170][151][146]   [155][206] [152] [155]  [152] [155]  [152] [155]  ";
  46. 60 print"[152] [155]  [152] [155] [205][151] [146]  [152] [155] [152]       [155] [152]      [170][151][146]";
  47. 61 print"                     [146]  [155]             ";
  48. 62 print"   [152][170][151][146]                       [152]     [155] [152]";
  49. 63 print"      [155] [152]   [155][170][151][146]                       [152]";
  50. 64 print"     [155] [152]      [155] [152]   [170][151][146]                ";
  51. 65 print"       [152]     [155] [152]      [155] [152]   [151][183][146]        ";
  52. 66 print"              [155] [152]     [155] [152]      [155] [152]   [151][183]";
  53. 67 print"[146]                       [155]              ";
  54. 68 print"  [151][183][146]                       [152] [155] [152]      [155] [152]       [155]":return
  55. 99 stop
  56. 200 rem *** options table
  57. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  58. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  59. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  60. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  61. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  62. 206 gosub5:ifk$=""andx<3thenx=x+1
  63. 207 ifk$="[145]"andx>1thenx=x-1
  64. 208 ifk$=chr$(13)thenc=x:return
  65. 209 goto200
  66. 283 f$="hello connect":goto291
  67. 284 f$="inf4.main":goto291
  68. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  69. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  70. 294 poke631,13:poke632,13:poke198,2:end
  71. 335 sys49615:poke781,0:poke782,150:sys49664
  72. 336 vi=53248:pg=64:sa=pg*256:sp=248
  73. 337 ss=49152:pokevi+32,0:pokevi+33,0
  74. 338 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  75. 339 syssa
  76. 340 rem *** poke sprite data
  77. 341 yy=14:fori=0to7
  78. 342 poke2040+i,248+i:rem sprite pointers
  79. 343 pokevi+39+i,i+1:rem sprite colors
  80. 344 pokevi+37,14:pokevi+38,15:next
  81. 345 pokevi+29,255:rem x size
  82. 346 pokevi+23,0:rem y size
  83. 347 pokevi+28,255:rem multicolor on
  84. 348 pokevi+37,5:rem multicolor 1
  85. 349 pokevi+38,13:rem multicolor 2
  86. 350 pokevi+21,0:rem turn sprites on
  87. 351 pokess,7:zz=2:zy=10:zx=zy:gosub550:yy=23
  88. 352 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  89. 353 pokesa+9,zz:pokesa+10,zy
  90. 354 pokesa+13,zx:pokevi+37,14
  91. 355 pokevi+38,zc:pokevi+39,3
  92. 356 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  93. 357 if zy=40 then zy=10:zx=zx+5
  94. 358 y=y+1:ify<3thenzc=5
  95. 359 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=24thenyy=0:goto362
  96. 360 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto365
  97. 361 goto352
  98. 362 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  99. 363 goto360
  100. 365 rem *** turn off sinus
  101. 366 pokevi+21,0:pokevi+32,0:pokevi+33,0
  102. 367 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  103. 368 poke53272,29
  104. 370 rem *** gamestart
  105. 371 print"it is a quiet night and hanging out in
  106. 372 [153]"hotel lobby buying cherry colas strikes
  107. 373 print"you as a great way to get arrested by
  108. 374 [153]"the local constabulary. you decide toononon":[141]5:[151]vi[170]38,4
  109. 375 [151]vi[170]21,3:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  110. 376 [153]"onononontake a short walk. rising to your feet,
  111. 377 print"you suddenly spot a clone female (yes, "
  112. 378 print"you are sure she is a clone!) walking
  113. 379 [153]"towards an exit.  things are looking up!ononon":[141]5:[151]vi[170]38,5
  114. 380 [151]vi[170]21,3:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]20
  115. 381 [153]"two things to consider":[153]"in playing with decid-"
  116. 382 [153]"edly dangerous aliens:":[153]"(a) what kind of toys
  117. 383 print"(weapons) do they play":print"with & (b) how fast can
  118. 384 [153]"you run from trouble --
  119. 385 a$=" follow the clone female      ":b$=" stay & see what happens next ":x=1
  120. 386 c$=" go upstairs to luthel's room ":gosub200:oncgoto387,416,410
  121. 387 gosub490:print"you make good time to your rental car,
  122. 388 [153]"easily catch up with the girl clone as
  123. 389 print"she drives down the street. she doesn't
  124. 390 [153]"seem to know she is being tailed. you
  125. 391 print"give that a sigh of relief. but driving
  126. 392 [153]"down unfamiliar streets, you sincerelyononon":[141]5:[151]vi[170]38,4
  127. 393 [151]vi[170]21,1:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  128. 394 [153]"ononononononononwish you knew amgoth better. each new "
  129. 395 [153]"street looks decidedly worse than the  "
  130. 396 [153]"last. finally, the clone comes to a stop
  131. 397 print"in a rather industrial section of town.
  132. 398 [153]"you drive round the corner and park. you
  133. 399 print"hope you are not too conspicious.     [145][145][145]":gosub5:pokevi+38,5
  134. 400 pokevi+21,1:fort=1to3000:next:pokevi+21,0
  135. 401 gosub40:print"you see the female clone go through a
  136. 402 [153]"heavy steel door on the side of a dirty
  137. 403 print"gray building. the door won't open![145][145][145]":gosub5
  138. 404 forz=1to5:poke53281,1:fort=1to5:next:poke53281,2:fort=1to10:next:poke53281,0
  139. 405 fort=1to5:next:next:print"[147]you've been zapped by aliens!!!
  140. 406 [153]"hands drag you into the darkness...":[141]5
  141. 407 [153]"load  1cont  start over":[153]"  2cont  loadstar":[141]5
  142. 408 [139]k$[178]"1"[167]284
  143. 409 [137]283
  144. 410 [141]570:[153]"you follow a small crowd onto a waiting
  145. 411 print"elevator. you get off on the 15th floor.
  146. 412 [153]"the corridor is quiet. slipping off yourononon":[141]5
  147. 413 [153]"ononononshoes, you creep up to room 1530, put an
  148. 414 print"ear to the door and listen. there are no
  149. 415 [153]"sound inside & the door isn't locked -- ononon":[141]5:[137]404
  150. 416 [141]570:[153]"yet another clone female goes by, headed
  151. 417 print"straight for the exit. this one you de-
  152. 418 [153]"cide to follow. you won't miss this op-ononon":[141]5
  153. 419 [153]"ononportunity again! the clone sets a brisk "
  154. 420 [153]"pace. she heads down a dark back alley.
  155. 421 print"without hesitation, you follow her --   [145][145][145]":gosub5:goto404
  156. 490 rem *** cityscape11
  157. 491 print"[147][154]                                        ";
  158. 492 print" [154]                                    ";
  159. 493 print"   [155][146] [154]                         [185][185][187]    ";
  160. 494 print"       [155][146] [154]      [172][146][188]               [146][184][190]";
  161. 495 print"[158][172][190] [154]      [146][190]    [155][146] [154]  [162]   [146] [158][190][154][162][187]  ";
  162. 496 print"[146] [158][172][172] [154][162][162]   [146] [158][187][188]  [188][154]   [175][175][162][162][146] [188][190][155]   [158]";
  163. 497 print"[188][154] [158][190] [154]  [146] [158][190][190]   [188]  [188] [190] [154]  [146]  [158][190][154] [158][190][149] ";
  164. 498 print"[154]   [149][146] [158]  [191][146]  [155] [158][188][155]  [158] [188][154]   [172][146] [158][188][154]  [158]";
  165. 499 print"[190][154] [158][190][154] [158][191][154]    [187] [146] [158][190][154]   [158][191][154][146]   [146] [158][188][154] ";
  166. 500 print"   [158][191][155]   [158][191][154] [158][188][154]  [146]   [158][188][154]    [158][190][154]  [158][190][154]  ";
  167. 501 print"  [146]   [158][190][154]   [187] [146]   [158][188][154]   [155]    [154]   [172][146] ";
  168. 502 print" [158][188][154] [158][188][154] [158][191][154]    [158][191][154] [158][190][154]  [146]  [158][191][154]  [158][190][154]  ";
  169. 503 print" [146] [158][190][154] [158][191][154][146]  [158][188][154]    [158][188][154]  [181]   [158][188][154]      [158]";
  170. 504 print"[190][154]  [158][191][154]  [146]    [158][190][154]   [172][146]     [158][190][154] [158][191][154]   [158]";
  171. 505 print"[191][188][154] [181] [158][188][154]   [158][188][154]  [158][191][154]  [158][191][154][146]    [146]  [158][190][154]  ";
  172. 506 print"[158][191][154]     [158][190][190] [154]         [181]  [158][191][154][146]   [158][191][154]    ";
  173. 507 print" [158][190][154]   [146] [158][191][154][146] [158][191][154]      [158][191][154][146]    [158][190][155]":return
  174. 550 rem *** cityscape14
  175. 551 print"[147]                                      ";
  176. 552 print"   .     .           .           .      ";
  177. 553 print"              .           .             ";
  178. 554 print"     .  [146]    [146][223]     [146]            ";
  179. 555 print"[146]                 [146]     [146] [223]  [146][169] ";
  180. 556 print"[146][188] [191]  .    [146]         .      [221]  [146] [190] ";
  181. 557 print"  [146]  [151]    [146]       [151]   [146]  [151]   ";
  182. 558 print"          [146]    [146]  [188]  [146] [191] [190] [151]   ";
  183. 559 print"     [151] [191] [146]  [151] [172][146][184][183][163][155]   [151]   [155] [172] [190]   ";
  184. 560 print"[191]   [146]   [191] [151] [191] [190]   [187]   [164][175][162][155][146]         ";
  185. 561 print"  [151]    [146]     [151]   [152]  [176]    [151] [188]   [190][146][190][155]  ";
  186. 562 print"            [151] [188] [190]      [152][183][183] [176] [176][176]  [151] [152] [176] ";
  187. 563 print" [155][146]                [151]     [152] [187][187][187][170] [176]  [176]  [176]";
  188. 564 print" [151] [152] [176] [146][184][155]                [152]   [170][151] [152] [190][190][190][170]";
  189. 565 print" [176] [176] [176]     [146][183][155]                  [152][191] [188][170][151] ";
  190. 566 print"[152]    [170]  [176] [176]  [185][185][146][183][183][155]                   [152]";
  191. 567 print"         [170] [176]  [175][162][146]              [155]        ";
  192. 568 print"  [152]       [164][164][186][162][146][184][163][155]  [152][155]":return
  193. 570 rem *** cityscape15
  194. 571 print"[147][151] [154] [151]       [152] [154] .   [151]  [154].[151]  [152] [155]   [154] ";
  195. 572 print"[155]   [154].[155]      [154].[155]   [154]       [154] [151]  [154].[151]   ";
  196. 573 print"  [154] [151]     [154].[151] [154] [151]     [154].  [151]   [152] [155]    [154]";
  197. 574 print" . [151] [154]  [151] [154] [151]     [154]  [151]   [154]       [152] ";
  198. 575 print"  [146]  [152]  [146] [155] [154] [155]  [154].[155]  [151]     [154]   [151] ";
  199. 576 print" [154] .       [154].    [154].[152][161]  [182][161]  [182][155][146]       ";
  200. 577 print"  [152]   [146] [154].      [152]   [146]  [154]   [154]    ";
  201. 578 print"[152][161]  [182][161]  [182][154][146].[155]  [154] [155]  [154], [152]    [146] [152]  [152] ";
  202. 579 print" [146]  [154] [152]   [158][146]   [154].  [154]  [152][172][190]      [182][155][146]";
  203. 580 print"   [154]. [155]  [152]      [151][146] [152]   [146]  [151][169]  [152] [146] [154]";
  204. 581 print" . [154] [151]  [152]    [151]    [152]   [146]  [154]   [155] [152]   ";
  205. 582 print"        [151][169]   [152]  [146] [151] [154] [151]  [152]    [151]     [152] ";
  206. 583 print" [151]   [155][146]  [152]    [151]    [152]    [151]      [152]  [151][146]  ";
  207. 584 print"[152]    [151]        [152] [151]   [146] [151]  [152]  [151]      [152] ";
  208. 585 print"[151]        [152]        [151]            [152][146] [151]  [152] ";
  209. 586 print" [151]  [155]   [151]  [155]   [151]     [152] [151]     [152]  [151]       ";
  210. 587 print" [160]      [152]  [151]  [155]   [151]  [155]     [151]   [152] [151] [155]   [151]";
  211. 588 print"  [152] [151]   [155]    [151]            [155]   [151]  [155]      ";
  212. 589 print"[151]   [155]     [151]     [155]     [151]  [155]   [151]      [155]   ";
  213. 590 print"[151]  [155]      [151]   [155]      [151]   [155]      [151] [155]     ";
  214. 591 print"[151]    [155]              [151] [155]      [151]  [155]       ";
  215. 592 print"       [151]   [155]              [151] [155]      [151]  [155] ";
  216. 593 print"             [151] [155]                                        ":return
  217. 900 gosub550:vi=53248:goto370
  218. 10000 d=peek(186):n$="0:inf4.pt3":open15,d,15,"s"+n$:close15:saven$,d:end
  219.