home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  9.4 KB  |  224 lines
  1. 0 rem *** save"@0:inf4.pt5",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0
  3. 2 goto740
  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. 200 rem *** options table
  27. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  28. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  29. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  30. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  31. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  32. 206 gosub5:ifk$=""andx<3thenx=x+1
  33. 207 ifk$="[145]"andx>1thenx=x-1
  34. 208 ifk$=chr$(13)thenc=x:return
  35. 209 goto200
  36. 283 f$="hello connect":goto291
  37. 284 f$="inf4.main":goto291
  38. 285 f$="inf4.pt7":goto291
  39. 286 f$="inf4.pt6":goto291
  40. 291 syssa+3:poke53281,0:poke53280,0:sys49935
  41. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  42. 294 poke631,13:poke632,13:poke198,2:end
  43. 490 rem *** cityscape11
  44. 491 print"[147][154]                                        ";
  45. 492 print" [154]                                    ";
  46. 493 print"   [155][146] [154]                         [185][185][187]    ";
  47. 494 print"       [155][146] [154]      [172][146][188]               [146][184][190]";
  48. 495 print"[158][172][190] [154]      [146][190]    [155][146] [154]  [162]   [146] [158][190][154][162][187]  ";
  49. 496 print"[146] [158][172][172] [154][162][162]   [146] [158][187][188]  [188][154]   [175][175][162][162][146] [188][190][155]   [158]";
  50. 497 print"[188][154] [158][190] [154]  [146] [158][190][190]   [188]  [188] [190] [154]  [146]  [158][190][154] [158][190][149] ";
  51. 498 print"[154]   [149][146] [158]  [191][146]  [155] [158][188][155]  [158] [188][154]   [172][146] [158][188][154]  [158]";
  52. 499 print"[190][154] [158][190][154] [158][191][154]    [187] [146] [158][190][154]   [158][191][154][146]   [146] [158][188][154] ";
  53. 500 print"   [158][191][155]   [158][191][154] [158][188][154]  [146]   [158][188][154]    [158][190][154]  [158][190][154]  ";
  54. 501 print"  [146]   [158][190][154]   [187] [146]   [158][188][154]   [155]    [154]   [172][146] ";
  55. 502 print" [158][188][154] [158][188][154] [158][191][154]    [158][191][154] [158][190][154]  [146]  [158][191][154]  [158][190][154]  ";
  56. 503 print" [146] [158][190][154] [158][191][154][146]  [158][188][154]    [158][188][154]  [181]   [158][188][154]      [158]";
  57. 504 print"[190][154]  [158][191][154]  [146]    [158][190][154]   [172][146]     [158][190][154] [158][191][154]   [158]";
  58. 505 print"[191][188][154] [181] [158][188][154]   [158][188][154]  [158][191][154]  [158][191][154][146]    [146]  [158][190][154]  ";
  59. 506 print"[158][191][154]     [158][190][190] [154]         [181]  [158][191][154][146]   [158][191][154]    ";
  60. 507 print" [158][190][154]   [146] [158][191][154][146] [158][191][154]      [158][191][154][146]    [158][190][155]":return
  61. 530 rem *** cityscape13
  62. 531 print"[147]                                        ";
  63. 532 print"                                        ";
  64. 533 print"                 +           [146]  [182]      ";
  65. 534 print"+       +                 [146]    [146][190]   [187] ";
  66. 535 print"                              [146]    [146]   ";
  67. 536 print"                               + [154][146]   ";
  68. 537 print" [146] [154]        [146]    [161]           +     [146]";
  69. 538 print"    [172][146]   [154]   [154]   [154]    [146]   [155] [161][146]  ";
  70. 539 print"               [146]            [154]     [146][190][155] ";
  71. 540 print"   [161][151][146]  [154]              [146][161]     [151]   ";
  72. 541 print"  [154]  [154]  [154]   [146]    [155]  [151]    +    [146][184][184]";
  73. 542 print"     [146][161]    [151]             [146]  [155]    [152]  [154]";
  74. 543 print"      [146]   [154]     [146][161]    [151]         [154] ";
  75. 544 print"      [155]         [146][190]      [146]   [146][161]      ";
  76. 545 print"    [154] [155]         [154] [151] [155]   [154]    [146]     ";
  77. 546 print"[154] [146]   [154] [146]  [154]              [155]     [154]";
  78. 547 print" [151]   [160][154]  [146]           [154] [146][155]":return
  79. 570 rem *** cityscape15
  80. 571 print"[147][151] [154] [151]       [152] [154] .   [151]  [154].[151]  [152] [155]   [154] ";
  81. 572 print"[155]   [154].[155]      [154].[155]   [154]       [154] [151]  [154].[151]   ";
  82. 573 print"  [154] [151]     [154].[151] [154] [151]     [154].  [151]   [152] [155]    [154]";
  83. 574 print" . [151] [154]  [151] [154] [151]     [154]  [151]   [154]       [152] ";
  84. 575 print"  [146]  [152]  [146] [155] [154] [155]  [154].[155]  [151]     [154]   [151] ";
  85. 576 print" [154] .       [154].    [154].[152][161]  [182][161]  [182][155][146]       ";
  86. 577 print"  [152]   [146] [154].      [152]   [146]  [154]   [154]    ";
  87. 578 print"[152][161]  [182][161]  [182][154][146].[155]  [154] [155]  [154], [152]    [146] [152]  [152] ";
  88. 579 print" [146]  [154] [152]   [158][146]   [154].  [154]  [152][172][190]      [182][155][146]";
  89. 580 print"   [154]. [155]  [152]      [151][146] [152]   [146]  [151][169]  [152] [146] [154]";
  90. 581 print" . [154] [151]  [152]    [151]    [152]   [146]  [154]   [155] [152]   ";
  91. 582 print"        [151][169]   [152]  [146] [151] [154] [151]  [152]    [151]     [152] ";
  92. 583 print" [151]   [155][146]  [152]    [151]    [152]    [151]      [152]  [151][146]  ";
  93. 584 print"[152]    [151]        [152] [151]   [146] [151]  [152]  [151]      [152] ";
  94. 585 print"[151]        [152]        [151]            [152][146] [151]  [152] ";
  95. 586 print" [151]  [155]   [151]  [155]   [151]     [152] [151]     [152]  [151]       ";
  96. 587 print" [160]      [152]  [151]  [155]   [151]  [155]     [151]   [152] [151] [155]   [151]";
  97. 588 print"  [152] [151]   [155]    [151]            [155]   [151]  [155]      ";
  98. 589 print"[151]   [155]     [151]     [155]     [151]  [155]   [151]      [155]   ";
  99. 590 print"[151]  [155]      [151]   [155]      [151]   [155]      [151] [155]     ";
  100. 591 print"[151]    [155]              [151] [155]      [151]  [155]       ";
  101. 592 print"       [151]   [155]              [151] [155]      [151]  [155] ";
  102. 593 print"             [151] [155]                                        ":return
  103. 690 rem *** lea lison2
  104. 691 print"[147][155]       [182]       [129]   [162][162][185][175]  [155]      [161]     ";
  105. 692 print"           [161]      [129]   [190] [183][184][190][188][146][187][155]      [182] ";
  106. 693 print"               [182]      [129]  [190][172][164][146][190][150][184][146][187][129][172][172]";
  107. 694 print"[146][187][155]     [161]                [161]     [150] [129]  [191][170][150]";
  108. 695 print"[146][162] [146][162][167][129][165][161] [155][146]     [182]                [182]   ";
  109. 696 print"  [150] [129]  [181][170][150] [175] [146][161][129][187][191][188][155][146]     [161]           ";
  110. 697 print"     [161]      [129] [172][190][188][150][187] [172][129][190][190][182][146][161][187][155]    [182]     ";
  111. 698 print"           [182]      [129]  [191] [146][187][150][184][146][187][129][165][146][191][188][146][190]";
  112. 699 print"[172][155][146]    [161]                [161] [150] [155]   [129]  [150][169][129]";
  113. 700 print"[190][146][172][150][190]  [163][146][187][150][223][129] [146][190][155]    [182]              ";
  114. 701 print"  [182]  [150] [155]  [129] [150][167] [181] [208][150][187] [207] [150][181][129][146][172][190][155]    [161]  ";
  115. 702 print"              [161]   [150] [155] [129] [150][182] [146][223]  [146][190]  [146]";
  116. 703 print"[169][150][190][146] [155]     [182]                [182]    [150] [155] [150][182]";
  117. 704 print" [129][146] [207][184][184][184][208][146][150][170] [155][146]      [161]":return
  118. 740 sys49615:poke781,0:poke782,150:sys49664
  119. 741 vi=53248:pg=64:sa=pg*256:sp=248
  120. 742 ss=49152:pokevi+32,0:pokevi+33,0
  121. 743 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  122. 744 syssa
  123. 745 rem *** poke sprite data
  124. 746 yy=14:fori=0to7
  125. 747 poke2040+i,248+i:rem sprite pointers
  126. 748 pokevi+39+i,i+1:rem sprite colors
  127. 749 pokevi+37,14:pokevi+38,15:next
  128. 750 pokevi+29,255:rem x size
  129. 751 pokevi+23,0:rem y size
  130. 752 pokevi+28,255:rem multicolor on
  131. 753 pokevi+37,5:rem multicolor 1
  132. 754 pokevi+38,13:rem multicolor 2
  133. 755 pokevi+21,0:rem turn sprites on
  134. 756 pokess,7:zz=2:zy=10:zx=zy:gosub570
  135. 757 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  136. 758 pokesa+9,zz:pokesa+10,zy
  137. 759 pokesa+13,zx:pokevi+37,14
  138. 760 pokevi+38,zc:pokevi+39,3
  139. 761 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  140. 762 if zy=40 then zy=10:zx=zx+5
  141. 763 y=y+1:ify<3thenzc=5
  142. 764 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto767
  143. 765 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto770
  144. 766 goto757
  145. 767 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  146. 768 goto765
  147. 770 rem *** turn off sinus
  148. 772 pokevi+21,0:pokevi+32,0:pokevi+33,0
  149. 773 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  150. 774 poke53272,29
  151. 775 rem *** gamestart
  152. 776 print"you go to the midnight safari club where
  153. 777 [153]"the evening is already off to a wild
  154. 778 print"start. (it's amateur night!) talking to[145][145][145]":gosub5:pokevi+38,4
  155. 779 pokevi+21,127:fort=1to3000:next:pokevi+21,0
  156. 780 print"[145][145]the bartender about your 'cousins', you "
  157. 781 print"spot a female clone speaking to a seedy
  158. 782 [153]"individual. she heads for an exit --   ononon":[141]5:[151]vi[170]38,5
  159. 783 [151]vi[170]21,127:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  160. 784 a$[178]" follow the female clone      ":b$[178]" stay at midnight safari club ":x[178]1
  161. 785 c$[178]" keep tabs on mister seedy    ":[141]690:[141]200:[145]c[137]815,799,786
  162. 786 [141]530:[153]"mister seedy makes his own exit and you
  163. 787 print"follow. soon you are moving into more
  164. 788 [153]"honky tonk neighborhoods. things pick up
  165. 789 print"briefly when your target goes into a
  166. 790 [153]"porno store and comes out with a thin,ononon":[141]5:[151]vi[170]38,4
  167. 791 [151]vi[170]21,63:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  168. 792 [153]"ononononononflat, brown paper bag. but when he per-
  169. 793 print"uses the contents, it winds up being a
  170. 794 [153]"girlie magazine! you feel like you are  "
  171. 795 [153]"wasting your time but you stick with it.
  172. 796 print"you follow him into a dark alley and --[145][145][145]":gosub5:pokevi+38,5
  173. 797 pokevi+21,63:fort=1to3000:next:pokevi+21,0
  174. 798 print"[147]     suddenly, he's gone!":gosub5:goto824
  175. 799 gosub490:print"as the hour passes, you begin to regret
  176. 800 [153]"your decision to stay put. especially
  177. 801 print"when mister seedy leaves. but your pa-
  178. 802 [153]"tience is rewarded when rex luthel (or
  179. 803 print"one of his clones)[160]appears! you see him
  180. 804 [153]"talk to several people then slip towardsononon":[141]5:[151]vi[170]38,4
  181. 805 [151]vi[170]21,31:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  182. 806 [153]"ononononononononona side exit. you drop some money on the
  183. 807 print"counter to pay for your drinks then move
  184. 808 [153]"quickly to catch up with luthel. but you
  185. 809 print"find an empty back alley! you hear a  "
  186. 810 print"rustling sound behind you. you whirl -- "
  187. 811 print"and find luthel pointing a rod at you --[145][145][145]":gosub5:pokevi+38,5
  188. 812 pokevi+21,31:fort=1to3000:next:pokevi+21,0:forz=1to5:poke53281,1
  189. 813 fort=1to10:next:poke53281,2:fort=1to10:next:poke53281,0:next
  190. 814 print"[147]you've fallen captive to hostile aliens!":gosub5:goto846
  191. 815 gosub20:print"you follow the female":print"clone on foot. she is
  192. 816 [153]"moving at a fast clip":[153]"but you keep up with
  193. 817 print"ease. she leaves the":print"seedy night club area
  194. 818 [153]"& enters an industrial":[153]"zone. she's tiring but wherever she's
  195. 819 print"headed must be pretty close. (otherwise,
  196. 820 [153]"you would be following her by car.) she
  197. 821 print"goes down a dark back alley. you hesi-
  198. 822 [153]"tate then run to catch up -- she's gone!ononon":[141]5
  199. 824 a$[178]" go back to the stripper club ":b$[178]" check doors in the back alley":x[178]2
  200. 825 c$[178]" go down open manhole ladder  ":[141]690:[141]200:[145]c[137]839,827,826
  201. 826 [151]vi[170]21,0:[129]z[178]1[164]5:[151]53281,1:[137]813
  202. 827 [141]570:[153]"you find a door slighty ajar. it is very
  203. 828 print"dark inside! you take a step & suddenly
  204. 829 [153]"hear some high pitch whistles. frowningononon":[141]5:[151]vi[170]38,4
  205. 830 [151]vi[170]21,15:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  206. 831 [153]"ononat it, you suddenly realize you tripped "
  207. 832 [153]"some sort of alarm. you hear feet coming
  208. 833 print"towards you -- you run -- hear the loud[145][145][145]":gosub5:pokevi+38,5
  209. 834 pokevi+21,15:fort=1to3000:next:pokevi+21,0
  210. 835 gosub690:print"screech of tires -- it's martha kent!
  211. 836 [153]"'get in!', she yells and you jump into
  212. 837 print"her car. 'where to?', she asks.
  213. 838 [153]"'chemical plant! i have an entry code!'ononon":[141]5:[137]285
  214. 839 [141]530:[153]"you're walking along when a car drives
  215. 840 print"up. 'need a lift?', martha kent asks.
  216. 841 [153]"you smile and jump into her car. 'want
  217. 842 print"to have some fun? the luthelcorp chemi-
  218. 843 [153]"cal plant if you're game for it?'ononon":[141]5:[137]285
  219. 846 [153]"load  1cont  start over":[153]"  2cont  loadstar":[141]5
  220. 847 [139]k$[178]"1"[167]284
  221. 848 [137]283
  222. 900 [141]570:vi[178]53248:[137]775
  223. 10000 d[178][194](186):n$[178]"0:inf4.pt5":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  224.