home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 77 / 077.d81 / hbh5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  6.9 KB  |  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. 4348 data254,0,1,254,0,0,20,0
  168. 4350 data0,60,0,1,224,0,7,224
  169. 4352 data0,7,192,0,1,192,0,0
  170. 4354 rem...witch standing  p,213
  171. 4356 data0,16,0,0,56,0,0,124
  172. 4358 data0,0,254,0,7,255,192,1
  173. 4360 data255,0,1,147,0,1,255,0
  174. 4362 data0,238,0,0,124,0,1,255
  175. 4364 data0,3,125,128,6,124,192,6
  176. 4366 data254,192,4,254,64,1,255,0
  177. 4368 data1,255,0,3,255,128,3,255
  178. 4370 data128,0,68,0,1,199,0,0
  179. 4372 rem...witch flying left
  180. 4374 data0,8,0,0,28,0,0,62
  181. 4376 data0,0,127,0,3,255,224,0
  182. 4378 data127,128,0,95,128,8,127,128
  183. 4380 data4,63,0,3,158,0,1,254
  184. 4382 data0,0,190,0,0,126,0,0
  185. 4384 data127,0,0,127,128,0,40,0
  186. 4386 data0,60,0,0,7,128,0,7
  187. 4388 data224,0,3,224,0,3,128,0
  188. 4390 return
  189. 4400 :
  190. 4402 rem *** paper bag  p,211
  191. 4404 fori=0to63:reada:poke13504+i,a:next
  192. 4406 data255,252,0,191,124,0,183,124
  193. 4408 data0,183,124,0,183,220,0,183
  194. 4410 data220,0,191,220,0,255,220,0
  195. 4412 data253,220,0,221,220,0,221,220
  196. 4414 data0,221,252,0,253,252,0,127
  197. 4416 data248,0,63,240,0,0,0,0
  198. 4418 data0,0,0,0,0,0,0,0
  199. 4420 data0,0,0,0,0,0,0,240
  200. 4422 return
  201. 5000 :
  202. 5005 rem **** basic subroutines ****
  203. 5010 rem...text window clear & pos.
  204. 5015 sys680:print"":poke214,19:print:return
  205. 5050 :
  206. 5055 rem *** wipe screen vertically ***
  207. 5060 c1=23:c2=19:c3=24:c4=39:c5=59903
  208. 5065 forj=0toc1:c2$=c2$+chr$(32)+chr$(157)+chr$(17):next:c2$=c2$+chr$(145)
  209. 5070 forj=0toc2:ifj=0thenpoke781,c3:sysc5
  210. 5075 print"";tab(j);c2$:print""tab(c4-j);c2$
  211. 5080 next:print"[147]";:c2$=""
  212. 5090 return
  213. 5100 :
  214. 5105 rem *** 5 sec time delay ***
  215. 5110 poke198,0:z9=0
  216. 5112 z9=z9+1:geta$:ifa$=""andz9<200then5112
  217. 5114 return
  218.