home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt4 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  216 lines
  1. 0 rem *** save"@0:inf4.pt4",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186)
  3. 2 goto425
  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. 70 rem *** room
  11. 71 print"[147][152]    [181]   [167][207][196][192][198][185][187]                   [180]   ";
  12. 72 print"      [181][146][176][192][192][174][180][160][160][160][160][181]                   [180] ";
  13. 73 print"        [181][146][221]  [161][180]    [181]                   ";
  14. 74 print"[180]         [181][146][221]  [161][180]    [181]                 ";
  15. 75 print"  [180]         [181][146][221]  [161][180]    [181]               ";
  16. 76 print"    [180]         [181][146][221]  [161][180][187]   [181]             ";
  17. 77 print"      [180]         [181][146][221]  [161][180][181]   [181]           ";
  18. 78 print"        [180]         [181][146][221]  [161][180][161]   [181]         ";
  19. 79 print"          [180]         [181][146][221]  [161][180][181]   [181]       ";
  20. 80 print"            [180]         [181][146][221]  [161][180][190]   [181]     ";
  21. 81 print"              [180]         [181][146][221]  [161][180]    [181]   ";
  22. 82 print"                [180]         [181][146][221]  [161][180]    [181] ";
  23. 83 print"                  [180]         [181][146][221][164][164][152][161][180]  ";
  24. 84 print"  [181]                   [180]         [181][146][221]  [152]";
  25. 85 print"[161][180]    [181]                   [180]         [181][146][221]";
  26. 86 print"  [152][161][180]    [181]                   [180]         ";
  27. 87 print"[181][146][221]  [152][161][165]    [181]                   [180]     ";
  28. 88 print"   [146][169][169]   [152][146][188][185][162][146][184][183][163][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  29. 89 print"[162][187][152][223]       [146][169][169]                       ";
  30. 90 print"       [223][152][146][223]     [146][169][169]                  ";
  31. 91 print"              [223][152][146][223]   [146][155]":return
  32. 200 rem *** options table
  33. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  34. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  35. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  36. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  37. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  38. 206 gosub5:ifk$=""andx<3thenx=x+1
  39. 207 ifk$="[145]"andx>1thenx=x-1
  40. 208 ifk$=chr$(13)thenc=x:return
  41. 209 goto200
  42. 285 f$="inf4.pt7":goto291
  43. 286 f$="inf4.pt6":goto291
  44. 287 f$="inf4.pt5":goto291
  45. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  46. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  47. 294 poke631,13:poke632,13:poke198,2:end
  48. 425 sys49615:poke781,0:poke782,150:sys49664
  49. 426 vi=53248:pg=64:sa=pg*256:sp=248
  50. 427 ss=49152:pokevi+32,0:pokevi+33,0
  51. 428 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  52. 429 syssa
  53. 430 rem *** poke sprite data
  54. 431 yy=14:fori=0to7
  55. 432 poke2040+i,248+i:rem sprite pointers
  56. 433 pokevi+39+i,i+1:rem sprite colors
  57. 434 pokevi+37,14:pokevi+38,15:next
  58. 435 pokevi+29,255:rem x size
  59. 436 pokevi+23,0:rem y size
  60. 437 pokevi+28,255:rem multicolor on
  61. 438 pokevi+37,5:rem multicolor 1
  62. 439 pokevi+38,13:rem multicolor 2
  63. 440 pokevi+21,0:rem turn sprites on
  64. 441 pokess,7:zz=2:zy=10:zx=zy:gosub510:yy=21
  65. 442 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  66. 443 pokesa+9,zz:pokesa+10,zy
  67. 444 pokesa+13,zx:pokevi+37,14
  68. 445 pokevi+38,zc:pokevi+39,3
  69. 446 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  70. 447 if zy=40 then zy=10:zx=zx+5
  71. 448 y=y+1:ify<3thenzc=5
  72. 449 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=22thenyy=0:goto452
  73. 450 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto455
  74. 451 goto442
  75. 452 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  76. 453 goto450
  77. 455 rem *** turn off sinus
  78. 456 pokevi+21,0:pokevi+32,0:pokevi+33,0
  79. 457 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  80. 458 poke53272,29
  81. 460 rem *** gamestart
  82. 461 print"martha drives you to hotel calhoon where
  83. 462 [153]"a mild convention has gone into after
  84. 463 print"hours and has become quite wild. you
  85. 464 [153]"avoid the crowd and take a ride to the
  86. 465 print"seventh floor. a group of people are
  87. 466 [153]"playing computer games & writing demosononon":[141]5
  88. 467 [153]"ononononononononin room 768 while others are dropping   "
  89. 468 [153]"water balloons out the window. martha
  90. 469 print"gives it a sigh and asks a bearded man
  91. 470 [153]"wearing sandals if he has seen haljor.
  92. 471 print"alfred jackson shrugs and says 'down the
  93. 472 [153]"hall.' you follow martha down the hall.ononon":[141]5
  94. 473 [141]970:[153]""[166]22)"dan haljor reco-":[153][166]22)"nizes you instant-
  95. 474 printspc(22)"ly. 'lea lison!',":printspc(22)"he exclaims, dis-
  96. 475 [153][166]22)"missing the person":[153][166]22)"he was talking to
  97. 476 printspc(22)"with a wave of his":printspc(22)"hand. 'i thought i
  98. 477 [153][166]22)"was going to have":[153][166]22)"to look you up!'
  99. 478 printspc(22)"you're taken aback
  100. 479 [153]"-- does he know about the sewage plant?ononon":[141]5
  101. 480 a$[178]" talk to dan haljor privately ":b$[178]" leave - this was a mistake!  ":x[178]1
  102. 481 c$[178]" include martha in this chat  ":[141]490:[141]200
  103. 482 [141]70:[153]"before you can say another word, halhor
  104. 483 print"says 'you're hunting down luthel as the
  105. 484 [153]"source of the clones. dangerous hobby!'ononon":[141]5
  106. 485 [145]c[137]713,710,486
  107. 486 [153]"onon'i saw the alien spaceship', you reply.
  108. 487 print"'this is nuts!', martha says, stares at
  109. 488 [153]"you, shakes her head, and leaves.      ononon":[141]5:[137]716
  110. 490 [143] *** cityscape11
  111. 491 [153]"loadcont                                        ";
  112. 492 [153]" cont                                    ";
  113. 493 [153]"   listwait cont                         posposrnd    ";
  114. 494 [153]"       listwait cont      *waitlog               waitfrecos";
  115. 495 [153]"sys*cos cont      waitcos    listwait cont  new   wait syscoscontnewrnd  ";
  116. 496 [153]"wait sys** contnewnew   wait sysrndlog  logcont   andandnewnewwait logcoslist   sys";
  117. 497 [153]"logcont syscos cont  wait syscoscos   log  log cos cont  wait  syscoscont syscosverify ";
  118. 498 [153]"cont   verifywait sys  sinwait  list sysloglist  sys logcont   *wait syslogcont  sys";
  119. 499 [153]"coscont syscoscont syssincont    rnd wait syscoscont   syssincontwait   wait syslogcont ";
  120. 500 [153]"   syssinlist   syssincont syslogcont  wait   syslogcont    syscoscont  syscoscont  ";
  121. 501 [153]"  wait   syscoscont   rnd wait   syslogcont   list    cont   *wait ";
  122. 502 [153]" syslogcont syslogcont syssincont    syssincont syscoscont  wait  syssincont  syscoscont  ";
  123. 503 [153]" wait syscoscont syssincontwait  syslogcont    syslogcont  int   syslogcont      sys";
  124. 504 [153]"coscont  syssincont  wait    syscoscont   *wait     syscoscont syssincont   sys";
  125. 505 [153]"sinlogcont int syslogcont   syslogcont  syssincont  syssincontwait    wait  syscoscont  ";
  126. 506 [153]"syssincont     syscoscos cont         int  syssincontwait   syssincont    ";
  127. 507 [153]" syscoscont   wait syssincontwait syssincont      syssincontwait    syscoslist":[142]
  128. 510 [143] *** cityscape12
  129. 511 [153]"loadclr                                        ";
  130. 512 [153]"                                        ";
  131. 513 [153]"                                        ";
  132. 514 [153]"                                        ";
  133. 515 [153]"             openwait  clr  newrnd         *newrndpos    ";
  134. 516 [153]" newrnd          wait  rnd wait   newwait   wait      newrnd";
  135. 517 [153]"wait       toandopenwait clr  andpos   wait fre cos   *wait      ";
  136. 518 [153]" wait    *wait       rnd  wait  open     clrnew waitcos   ";
  137. 519 [153]"         open  clr wait    int          wait       ";
  138. 520 [153]"               open  clr wait    int          wait     ";
  139. 521 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanlist":[142]
  140. 550 [143] *** cityscape14
  141. 551 [153]"load                                      ";
  142. 552 [153]"   .     .           .