home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 77 / 077.d81 / hbh3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  7.3 KB  |  228 lines
  1. 10 rem **** hbh3 ****
  2. 20 clr:restore:v=53248:poke53281,0:poke53280,0
  3. 30 rem...lo-res sprite pointers:
  4. 35 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
  5. 55 fori=1topeek(709):nm$=nm$+chr$(peek(709+i)):next
  6. 80 rem...load next 4 scenes:
  7. 85 sys51718,1,"night1":sys51718,2,"night2":sys51718,3,"night3"
  8. 90 sys51718,4,"night4"
  9. 100 rem...set up sprites & display priorities hb#0, boy#1, girl#2,3
  10. 105 rem...p0=hb, p1=boy,p2&3=girl
  11. 110 pokev+28,14:pokev+37,10:pokev+38,1:rem multicolors
  12. 113 pokev+39,1:pokev+40,1:pokev+41,7:pokev+42,14:rem sprite colors
  13. 115 pokev,145:pokev+2,175:pokev+4,205:pokev+6,205
  14. 120 pokev+1,190:pokev+3,190:pokev+5,169:pokev+7,190
  15. 125 pokep0,235:pokep1,224:pokep2,244:pokep3,245
  16. 150 sys51721,1,1:pokev+21,15:rem...1st scene
  17. 160 gosub5010:print"[159](girl) shall we try this house first?":gosub5110
  18. 165 gosub4012:rem read in data
  19. 170 gosub5010:print"[159](huggy bear) suits me. let's go.":gosub5110
  20. 175 pokep0,235:fori=190to180step-1:pokev+1,i:next
  21. 180 poke55911,0:poke55917,0
  22. 185 gosub5010:print"[159](huggy bear) they turned their lights
  23. 190 [153]" off when they saw me coming!":[129]t[178]1[164]2000:[130]:[151]p0,233
  24. 195 [141]5110
  25. 200 [141]5010:[153]"open(boy) that's not very nice.":[141]5110
  26. 202 [151]p0,235:[129]t[178]1[164]50:[130]:[151]p0,230
  27. 205 [141]5010:[153]"open(huggy bear) let's try that next house.
  28. 210 x=145
  29. 215 x=x-4
  30. 220 ifx<65then250
  31. 225 pokep0,232:fort=1to50:next
  32. 230 pokev,x
  33. 235 pokep0,230:fort=1to50:next
  34. 240 goto215
  35. 250 pokev+21,0:gosub5050
  36. 255 sys51721,1,2:rem second  scene.
  37. 260 pokev,140:pokev+2,121:pokev+4,105:pokev+6,105
  38. 265 pokev+1,167:pokev+3,175:pokev+5,149:pokev+7,170
  39. 270 pokep0,235:pokep1,224:pokep2,246:pokep3,247
  40. 275 pokev+21,15
  41. 280 gosub5010:print"[159](huggy bear) i pushed the bell button.":gosub5110
  42. 285 sys51721,1,3:fort=1to200:next:sys51721,1,4
  43. 290 gosub5010:print"[159](man, very gruff) what do you want?":gosub5110
  44. 300 gosub5010:print"[159](all) trick or treat!":gosub5110
  45. 305 gosub5010:print"[159](man) we ain't got no treats. go away.":gosub5110
  46. 310 sys51721,1,3:fort=1to200:next:sys51721,1,2
  47. 315 pokep0,230
  48. 320 gosub5010:print"[159](huggy bear) boy what a grouch he is.":gosub5110
  49. 325 gosub5010:print"[159](girl) let's go over to the next street.
  50. 330 [153]"  maybe people are nicer there.":[141]5110
  51. 335 [141]5010:[153]"open(boy) that sounds like a good idea.":[141]5110
  52. 337 [139][194](709)[178]0[167]350
  53. 340 [151]p0,254:[141]5010
  54. 345 [153]"open(huggy bear) i hope you're coming with    us, "nm$".":[141]5110
  55. 350 [151]v[170]21,0:[141]5050
  56. 360 [153]"loadsysour friends decide to go across an"
  57. 365 [153]"  empty lot to get to the next street.
  58. 370 print"  now empty lots are usually not very
  59. 375 [153]"  exciting, right?
  60. 380 rem...3rd scene
  61. 400 pokep4,228:pokep5,218:pokep6,218:pokep7,218:rem moon, 3 pumpkins
  62. 405 pokep0,236:pokep1,220:pokep2,240:pokep3,241:rem hb, boy, girl
  63. 410 pokev+43,7:pokev+44,8:pokev+45,8:pokev+46,8:rem moon & pump. colors
  64. 415 pokev,190:pokev+2,220:pokev+4,250:pokev+6,250:rem hb, boy, girl x pos.
  65. 420 pokev+1,225:pokev+3,225:pokev+5,204:pokev+7,225:rem hb, boy, girl y pos.
  66. 425 rem...setx,y pos. for moon, 3 pumpkins
  67. 430 pokev+8,180:pokev+10,54:pokev+12,146:pokev+16,128:pokev+14,10:rem x
  68. 435 pokev+9,60:pokev+11,165:pokev+13,165:pokev+15,165
  69. 440 pokev+27,224:rem pumpkins behind background
  70. 445 sys51718,1,"empty lot":sys51718,2,"large stones":sys51718,3,"mausoleum"
  71. 450 sys51718,4,"haunted hse":sys51721,1,1:pokev+21,255
  72. 455 y=255:yt=234
  73. 460 y=y-3:yt=yt-3
  74. 465 pokev+1,y:pokev+3,y:pokev+7,y:pokev+5,yt
  75. 470 pokep0,237:pokep1,221:pokep3,242:fort=1to100:next
  76. 475 y=y-3:yt=yt-3
  77. 480 pokev+1,y:pokev+3,y:pokev+7,y:pokev+5,yt
  78. 485 pokep0,236:pokep1,220:pokep3,241:fort=1to100:next
  79. 490 ify<165then500
  80. 495 goto460
  81. 500 print"":poke214,20
  82. 505 print"     [213][192][201] [174] [176] [213][192][201] [174] [176]   [194]
  83. 510 [153]"     peek peek peek peek peek   -tan<   peek
  84. 515 print"     [202][192][203] [202][192][203] [202][192][203] [189] [173]   .
  85. 520 [129]t[178]1[164]3000:[130]
  86. 525 [151]p0,235:[151]p1,224:[151]p3,243
  87. 530 [129]t[178]1[164]400:[130]:[151]p0,233:[151]p2,244:[151]p3,245
  88. 540 [141]5010:[153]"open(all) who said that?
  89. 545 fory=0to22:pokev+15,165-y:fort=1to50:next:next:rem pumpkin rises
  90. 550 gosub5010:print"[159](pumpkin) you stepped on me. why don't
  91. 555 [153]" you look where you're going?
  92. 560 pokep2,240:pokep3,243:fort=1to500:next:pokep2,246:pokep3,247
  93. 565 pokev+4,245:pokev+6,245:gosub5110
  94. 570 gosub5010:print"[159](girl) sorry. i didn't know there were
  95. 575 [153]"  any pumpkins in this field.":[141]5110
  96. 580 [129]y[178]0[164]22:[151]v[170]13,165[171]y:[129]t[178]1[164]50:[130]:[130]:[143] middle pumpkin rises
  97. 585 [141]5010:[153]"open(2nd pumpkin) there are lots of us.":[141]5110
  98. 587 [151]p0,230:[151]p1,222:[151]p2,244:[151]p3,245
  99. 590 [129]y[178]0[164]22:[151]v[170]11,165[171]y:[129]t[178]1[164]50:[130]:[130]:[143] left pumpkin rises
  100. 595 [141]5010:[153]"open(3rd pumpkin) we hide in the bushes"
  101. 600 [153]" so people won't take us away.":[141]5110
  102. 610 [141]5010:[153]"open(2nd pumpkin) tonight we're watching"
  103. 615 [153]" for that great pumpkin in the sky.":[141]5110
  104. 620 [141]5010:[153]"open(3rd pumpkin) he's supposed to come"
  105. 625 [153]" out on halloween.":[141]5110
  106. 630 [151]p4,227:[129]t[178]1[164]1000:[130]:[151]p1,224
  107. 635 [141]5010:[153]"open(boy) i think if you'll look at the"
  108. 640 [153]" moon you'll see him.":[141]5110
  109. 645 [151]p0,235:[129]t[178]1[164]1000:[130]:[151]p2,240:[151]p3,243:[129]t[178]1[164]1000:[130]
  110. 650 [151]p5,228:[151]p6,228:[151]p7,228
  111. 660 [141]5010:[153]"open(girl) let's get on our way, it's"
  112. 665 [153]" getting late.":[141]5110
  113. 670 y[178]159:yt[178]138
  114. 675 y[178]y[171]3:yt[178]yt[171]3
  115. 680 [151]v[170]1,y:[151]v[170]3,y:[151]v[170]7,y:[151]v[170]5,yt
  116. 685 [151]p0,237:[151]p1,221:[151]p3,242:[129]t[178]1[164]100:[130]
  117. 690 y[178]y[171]3:yt[178]yt[171]3
  118. 695 [151]v[170]1,y:[151]v[170]3,y:[151]v[170]7,y:[151]v[170]5,yt
  119. 700 [151]p0,236:[151]p1,220:[151]p3,241:[129]t[178]1[164]100:[130]
  120. 705 [139]y[179]149[167]720
  121. 710 [137]675
  122. 720 [151]v[170]21,0:[141]5050
  123. 750 [153]"load":[151]53280,0
  124. 755 [151]214,15:[153]"printwhew!  let's slow down and rest for a
  125. 760 print"minute. these guys are going too fast!
  126. 765 [153]"besides, whoever heard of pumpkins that
  127. 770 print"can talk, or move around?
  128. 810 [153]"stop"
  129. 820 [153]"new"
  130. 830 [153]"load"[199](34)"0:hbh4"[199](34)",8"
  131. 840 [153]"run"
  132. 850 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
  133. 900 [128]
  134. 4000 :
  135. 4010 [143] **** m/l & sprite data ****
  136. 4012 [143]...boy right, walking p,225
  137. 4014 [129]i[178]0[164]127:[135]a:[151]14400[170]i,a:[130]
  138. 4016 [131]0,60,0,0,255,0,3,243
  139. 4018 [131]0,3,255,192,3,255,192,3
  140. 4020 [131]255,0,0,252,0,0,252,0
  141. 4022 [131]0,252,0,0,252,0,0,252
  142. 4024 [131]0,0,252,0,0,220,0,0
  143. 4026 [131]60,0,0,60,0,0,63,0
  144. 4028 [131]0,255,0,0,255,0,0,195
  145. 4030 [131]0,0,193,0,0,64,0,0
  146. 4032 [143]...boy, right, standing p,226
  147. 4034 [131]0,60,0,0,255,0,3,243
  148. 4036 [131]0,3,255,192,3,255,192,3
  149. 4038 [131]255,0,0,252,0,0,252,0
  150. 4040 [131]0,252,0,0,252,0,0,252
  151. 4042 [131]0,0,252,0,0,220,0,0
  152. 4044 [131]60,0,0,60,0,0,60,0
  153. 4046 [131]0,60,0,0,60,0,0,60
  154. 4048 [131]0,0,60,0,0,20,0,0
  155. 4050 [143]...boy standing, front p,219
  156. 4052 [129]i[178]0[164]63:[135]a:[151]14016[170]i,a:[130]
  157. 4054 [131]0,63,0,0,255,192,0,204
  158. 4056 [131]192,0,255,192,0,243,192,0
  159. 4058 [131]63,0,0,21,0,0,42,0
  160. 4060 [131]0,170,128,0,170,128,0,170
  161. 4062 [131]128,0,170,128,0,127,64,0
  162. 4064 [131]63,0,0,63,0,0,63,0
  163. 4066 [131]0,63,0,0,63,0,0,63
  164. 4068 [131]0,0,51,0,0,17,0,0
  165. 4072 [143]...pumpkin sprites p,218
  166. 4074 [129]i[178]0[164]63:[135]a:[151]13952[170]i,a:[130]
  167. 4076 [131]0,0,0,0,0,0,0,0
  168. 4078 [131]0,1,255,128,7,255,224,15
  169. 4080 [131]255,240,60,126,60,126,255,126
  170. 4082 [131]127,255,254,255,231,255,255,195
  171. 4084 [131]255,255,255,255,255,255,255,126
  172. 4086 [131]255,126,127,0,254,63,255,252
  173. 4088 [131]15,255,240,7,255,224,1,255
  174. 4090 [131]128,0,0,0,0,0,0,0
  175. 4100 :
  176. 4102 [143]...hb,right,standing p,233
  177. 4104 [129]i[178]0[164]63:[135]a:[151]14912[170]i,a:[130]
  178. 4106 [131]0,224,0,1,191,0,1,157
  179. 4108 [131]128,0,255,192,0,255,128,0
  180. 4110 [131]127,0,0,60,0,0,126,0
  181. 4112 [131]0,255,0,0,255,0,0,255
  182. 4114 [131]0,0,255,0,0,254,0,0
  183. 4116 [131]124,0,0,120,0,0,120,0
  184. 4118 [131]0,120,0,0,120,0,0,112
  185. 4120 [131]0,0,124,0,0,62,0,127
  186. 4124 [143]...hb back,rt ft raised p,236
  187. 4126 [129]i[178]0[164]127:[135]a:[151]15104[170]i,a:[130]
  188. 4128 [131]0,60,0,3,126,192,7,255
  189. 4130 [131]224,3,255,192,0,255,0,0
  190. 4132 [131]255,0,0,126,0,3,255,192
  191. 4134 [131]7,255,224,7,255,224,6,255
  192. 4136 [131]96,6,255,96,2,255,32,0
  193. 4138 [131]255,0,0,255,0,0,231,0
  194. 4140 [131]0,231,0,0,231,0,0,239
  195. 4142 [131]128,0,224,0,1,240,0,255
  196. 4146 [143]...hb back,lft ft raised p,237
  197. 4148 [131]0,60,0,3,126,192,7,255
  198. 4150 [131]224,3,255,192,0,255,0,0
  199. 4152 [131]255,0,0,126,0,3,255,192
  200. 4154 [131]7,255,224,7,255,224,6,255
  201. 4156 [131]96,6,255,96,2,255,32,0
  202. 4158 [131]255,0,0,255,0,0,231,0
  203. 4160 [131]0,231,0,0,231,0,1,247
  204. 4162 [131]0,0,7,0,0,15,128,255
  205. 4166 [142]
  206. 5000 :
  207. 5005 [143] **** basic subroutines ****
  208. 5010 [143]...text window clear & pos.
  209. 5015 [158]680:[153]"":[151]214,19:[153]:[142]
  210. 5050 :
  211. 5055 [143] *** wipe screen vertically ***
  212. 5060 c1[178]23:c2[178]19:c3[178]24:c4[178]39:c5[178]59903
  213. 5065 [129]j[178]0[164]c1:c2$[178]c2$[170][199](32)[170][199](157)[170][199](17):[130]:c2$[178]c2$[170][199](145)
  214. 5070 [129]j[178]0[164]c2:[139]j[178]0[167][151]781,c3:[158]c5
  215. 5075 [153]"";[163]j);c2$:[153]""[163]c4[171]j);c2$
  216. 5080 [130]:[153]"load";:c2$[178]""
  217. 5090 [142]
  218. 5100 :
  219. 5105 [143] *** get key ***
  220. 5110 [151]198,0:z9[178]0
  221. 5112 z9[178]z9[170]1:[161]a$:[139]a$[178]""[175]z9[179]200[167]5112
  222. 5114 [142]
  223. 5200 :
  224. 5205 [143] *** print from center ***
  225. 5210 a[178][195](a$):[139]a[173]2[179][177][181](a[173]2)[167]a$[178]a$[170]""
  226. 5215 [129]i[178]1[164]a[173]2:[153]""b$[163]20[171]i);[200](a$,i)[201](a$,i):[153]""
  227. 5220 [129]h[178]1[164]40:[130]:[130]:[142]
  228.