home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 77 / 077.d81 / hbh5 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  218 lines
  1. 10 rem **** hbh5 ****
  2. 15 v=53248:poke53281,0:poke53280,0
  3. 20 rem...sprite pointers:
  4. 25 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
  5. 30 fori=1topeek(709):nm$=nm$+chr$(peek(709+i)):next
  6. 80 gosub4324:rem read data
  7. 100 pokep0,230:pokep1,222:pokep2,244:pokep3,245
  8. 105 pokev,200:pokev+2,220:pokev+4,245:pokev+6,245
  9. 110 pokev+1,195:pokev+3,195:pokev+5,174:pokev+7,195
  10. 115 pokev+40,1:pokev+41,7:pokev+42,14:pokev+28,14:pokev+37,10:pokev+38,1
  11. 120 sys51721,1,4:pokev+21,15
  12. 130 gosub5010:print"[159](huggy bear) does anyone live here?":gosub5110
  13. 135 gosub5010:print"[159](girl) i don't think so. some people
  14. 140 [153]"  say it's haunted.":[141]5110:[129]t[178]1[164]3000:[130]:[141]5010
  15. 145 [151]p4,215:[151]p5,216
  16. 150 [151]v[170]21,63:[151]v[170]23,48:[151]v[170]10,245:[151]v[170]43,1:[151]v[170]44,1
  17. 155 [129]y[178]0[164]150:[151]v[170]11,y:[129]t[178]1[164]20:[130]:[130]
  18. 160 [151]p0,235:[151]p1,224:[151]p2,240:[151]p3,243:[129]t[178]1[164]1000:[130]
  19. 165 [151]v[170]23,16:[129]t[178]1[164]2000:[130]:[151]v[170]21,31
  20. 170 [141]5010:[153]"open(boy) did you see that?":[141]5110
  21. 180 [141]5010:[153]"open(huggy bear) it was a ghost!":[141]5110
  22. 185 [151]v[170]8,100:[151]v[170]9,0:[129]y[178]0[164]150:[151]v[170]9,y:[129]t[178]1[164]20:[130]:[130]
  23. 190 [129]t[178]1[164]1000:[130]:[151]v[170]23,0:[129]t[178]1[164]2000:[130]:[151]v[170]21,15
  24. 200 [141]5010:[153]"open(girl) and there's another one!"
  25. 205 [141]4334:[129]t[178]1[164]3000:[130]:[141]5010
  26. 210 [151]p6,212:[143] witch flying right
  27. 215 [151]v[170]45,1:[151]v[170]12,0:[151]v[170]13,60:[151]v[170]29,64:[151]v[170]23,64:[151]v[170]21,79
  28. 220 x[178]0:y[178]60:i[178]0
  29. 225 [129]x[178]0[164]250:[151]v[170]12,x:i[178]i[170]1
  30. 230 [139]i[178]5[167]y[178]y[170]1:[151]v[170]13,y:i[178]0
  31. 235 [130]
  32. 240 [151]p6,214:[143] witch flying left
  33. 245 [129]x[178]250[164]50[169][171]1:[151]v[170]12,x:i[178]i[170]1
  34. 250 [139]i[178]5[167]y[178]y[170]1:[151]v[170]13,y:i[178]0
  35. 255 [130]
  36. 260 [151]p6,212:[143] witch flying right
  37. 280 [129]x[178]50[164]160:[151]v[170]12,x:i[178]i[170]1
  38. 285 [139]i[178]10[167]y[178]y[170]1:[151]v[170]13,y:i[178]0
  39. 290 [130]
  40. 295 [151]p6,213:[151]p2,244:[151]p3,245
  41. 300 [141]5010:[153]"open(witch) won't you children come into
  42. 305 print"my house and have some treats?":gosub5110
  43. 310 gosub5010:print"[159](huggy bear) what kind of treats?":gosub5110
  44. 315 gosub5010:print"[159](witch) i have some good blackbird pie,
  45. 320 [153]" and some bat wing stew.":[141]5110
  46. 330 [141]5010:[153]"open(boy) ugh! they sound terrible!":[141]5110
  47. 335 [141]5010:[153]"open(girl) no thanks. we have to hurry
  48. 340 print"  to get home by 9 o'clock.":gosub5110
  49. 345 gosub5010:print"[159](witch) well, i have to go in now and
  50. 350 [153]"  see what those ghosts are doing.":[129]t[178]1[164]2000:[130]
  51. 355 [129]i[178]13632[164]13695:[151]i,0:[129]t[178]1[164]50:[130]:[130]
  52. 360 [141]5010:[153]"open(girl) let's head for home guys, it's
  53. 365 print"  almost 9 o'clock.":gosub5110
  54. 375 gosub5010:pokep0,230:pokep1,222:pokev+21,15:fort=1to1000:next
  55. 400 ifpeek(710)<1orpeek(710)>26orpeek(711)<1orpeek(711)>26then420
  56. 405 pokep0,254:gosub5010:print"[159](huggy bear) are you still with us,"
  57. 410 print"";nm$"?":gosub5110:pokep0,230
  58. 420 x0=200:x2=220:x4=245:x6=245
  59. 425 x0=x0-4:x2=x2-4:x4=x4-4:x6=x6-4
  60. 430 pokep0,232:pokep1,223:pokep3,239
  61. 435 pokev,x0:pokev+2,x2:pokev+4,x4:pokev+6,x6
  62. 440 fort=1to100:next
  63. 445 pokep0,230:pokep1,222:pokep3,245
  64. 450 ifx0=0thenpokev+21,14:x0=x0+4
  65. 455 ifx2=0thenpokev21,12:x2=x2+4
  66. 460 ifx4=<4thenpokev+21,0:goto480
  67. 465 fort=1to100:next
  68. 470 goto425
  69. 480 gosub5050
  70. 500 print"[147][158]on the way home they were complaining
  71. 505 [153]"because they hadn't gotten any treats
  72. 510 print"tonight. they decided to stop at one
  73. 515 [153]"more house, the one across the street
  74. 520 print"from where they live.
  75. 525 [158]51718,1,"outside":[158]51718,2,"last house"
  76. 530 [151]v,200:[151]v[170]2,226:[151]v[170]4,250:[151]v[170]6,250
  77. 535 [151]v[170]1,160:[151]v[170]3,160:[151]v[170]5,139:[151]v[170]7,160
  78. 540 [143]....outside scene
  79. 545 [151]p4,228:[151]v[170]43,7:[151]v[170]8,190:[151]v[170]9,50:[143] moon
  80. 550 [153]"load":[158]51721,1,1:[151]v[170]21,31
  81. 560 x0[178]210:x2[178]230:x4[178]250:x6[178]250
  82. 565 x0[178]x0[171]4:x2[178]x2[171]4:x4[178]x4[171]4:x6[178]x6[171]4
  83. 570 [151]p0,232:[151]p1,223:[151]p3,239
  84. 575 [151]v,x0:[151]v[170]2,x2:[151]v[170]4,x4:[151]v[170]6,x6
  85. 580 [129]t[178]1[164]100:[130]
  86. 585 [151]p0,230:[151]p1,222:[151]p3,245
  87. 590 [139]x0[178][179]50[167]620
  88. 605 [129]t[178]1[164]100:[130]
  89. 610 [137]565
  90. 620 [151]p0,235:[151]p1,224:[151]p2,240:[151]p3,243
  91. 630 y[178]160:yt[178]139
  92. 635 y[178]y[171]2:yt[178]yt[171]2
  93. 640 [151]p0,236:[151]p1,220:[151]p3,241:[129]t[178]1[164]120:[130]
  94. 645 [151]v[170]1,y:[151]v[170]3,y:[151]v[170]7,y:[151]v[170]5,yt
  95. 650 [151]p0,237:[151]p1,221:[151]p3,242:[129]t[178]1[164]120:[130]
  96. 655 [139]y[179]130[167]670
  97. 660 [137]635
  98. 670 [151]v[170]21,0:[153]"load"
  99. 675 [151]p0,233:[151]p1,226:[151]p2,246:[151]p3,247
  100. 680 [151]v[170]1,158:[151]v[170]3,153:[151]v[170]5,127:[151]v[170]7,148
  101. 685 [151]v,167:[151]v[170]2,180:[151]v[170]4,175:[151]v[170]6,175
  102. 700 [143]....last house scene
  103. 710 [158]51721,1,2:[151]v[170]21,15
  104. 715 [141]5010:[153]"open(all 3) trick or treat!":[141]4402:[129]t[178]1[164]3000:[130]
  105. 720 [141]5010:[153]"open(lady in house) you must be the kids
  106. 725 print"  from across the street!":gosub5110
  107. 730 gosub5010:print"[159](girl) yes ma'am, we are.":gosub5110
  108. 735 gosub5010:print"[159](lady) well i'm sure glad you came by.":gosub5110
  109. 740 print"we have a lot of treats left.":gosub5110
  110. 745 gosub5010:print"[159](lady) not many kids came by, so we
  111. 750 [153]" want you to take it all!":[129]t[178]1[164]2500:[130]
  112. 755 [143]...bag of treats:
  113. 760 [151]p4,211:[151]v[170]43,10:[151]v[170]8,195:[151]v[170]9,137:[151]v[170]21,31
  114. 765 [129]t[178]1[164]2500:[130]
  115. 770 [141]5010:[153]"open(girl) why thank you very much!  we
  116. 775 print" didn't get any treats anywhere else.":gosub5110
  117. 780 gosub5010:print"[159](huggy bear) gee, thank you so much.
  118. 785 [153]"open(boy) yeah, thanks lots!":[141]5110
  119. 790 [151]v[170]21,0:[141]5050
  120. 800 [153]"syswell, thats about the end of our story
  121. 805 print"folks. the kids had some bad luck at
  122. 810 [153]"trick or treating, but the goodies the
  123. 815 print"neighbors gave them more than made up
  124. 820 [153]"for that. they did have some unusual
  125. 825 print"experiences though. kinda makes one
  126. 830 [153]"wonder about all those tales of witches
  127. 835 print"and ghosts and haunted houses. anyway,
  128. 840 [153]"huggy bear and his friends are happy.
  129. 850 print"i hope you enjoyed sharing this story
  130. 855 [153]"with them.
  131. 860 forz9=1to4000:next:gosub5110:gosub5050
  132. 865 pokev+1,148:pokev+3,153:pokev+5,139:pokev+7,158
  133. 870 pokev,70:pokev+2,50:pokev+4,30:pokev+6,30:pokev+21,15
  134. 880 print"[153]"tab(12)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  135. 885 printtab(12)"[194]                       [194]"
  136. 890 printtab(12)"[194]  goodnight everyone   [194]"
  137. 895 printtab(10)"[213][192][179]                       [194]"
  138. 900 printtab(12)"[194] hope to see you soon  [194]"
  139. 905 printtab(12)"[194]                       [194]"
  140. 910 printtab(12)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  141. 912 print""
  142. 915 ifpeek(709)=0then930
  143. 920 printtab(15)"thanks for joining"
  144. 925 print""tab(17)"us, ";nm$"."
  145. 930 print"    [159]do you want to see huggy bear's"
  146. 940 print"         halloween again?  (y[159]/n[159])"
  147. 950 geta$:ifa$<>"y"anda$<>"n"then950
  148. 955 poke53269,0
  149. 960 f$="hello connect":ifa$="y"thenf$="hb halloween"
  150. 965 poke1,231:poke0,47
  151. 970 print"[147][144]loadf$,8"
  152. 980 print"run"
  153. 990 poke631,13:poke632,13:poke198,2:end
  154. 4322 rem....clear text window...
  155. 4324 fori=680to700:reada:pokei,a:next:return
  156. 4326 data162,0,169,32,141,112,7,238,173,2,232,224,120,208,245
  157. 4328 data169,72,141,173,2,96
  158. 4330 :
  159. 4332 rem....sprite data  p,212
  160. 4334 fori=0to191:reada:poke13568+i,a:next
  161. 4336 rem...witch flying right
  162. 4338 data0,16,0,0,56,0,0,124
  163. 4340 data0,0,254,0,7,255,192,1
  164. 4342 data254,0,1,250,0,1,254,16
  165. 4344 data0,252,32,0,121,192,0,127
  166. 4346 data128,0,125,0,0,126,0,0
  167. 4