home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  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"g