home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 77 / 077.d81 / hbh2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  7.7 KB  |  291 lines
  1. 10 rem **** hbh2 ****
  2. 30 rem...lo-res sprite pointers:
  3. 35 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
  4. 40 sys51718,1,"living room":sys51718,2,"outside"
  5. 50 gosub4010:gosub4110
  6. 55 fori=1topeek(709):nm$=nm$+chr$(peek(709+i)):next
  7. 100 :
  8. 105 rem **** living room scene ****
  9. 110 print"[147]":sys51721,1,1
  10. 115 poke53280,0:poke53281,0
  11. 120 pokep0,246:pokep1,247:pokep2,248:pokep3,249:pokep4,224:pokep5,229
  12. 125 v=53248
  13. 130 pokev+37,10:pokev+38,1:pokev+28,31
  14. 135 pokev+39,7:pokev+40,14:pokev+41,10:pokev+42,10:pokev+43,1:pokev+44,1
  15. 140 pokev,140:pokev+2,140:pokev+4,255:pokev+6,255:pokev+8,210:pokev+10,179
  16. 150 pokev+1,130:pokev+3,151:pokev+5,120:pokev+7,141:pokev+9,155:pokev+11,129
  17. 160 pokev+21,63
  18. 200 :
  19. 205 gosub4180:gosub4204:poke214,20
  20. 210 print"[159](mother) if you kids are going trick ortreating you must be careful.
  21. 215 [141]4322:[141]5110
  22. 220 [141]5010:[153]"open(all)yes, mother."
  23. 225 [141]4332:[141]5110
  24. 230 [141]5010
  25. 235 [153]"open(mother)  please stay on the lighted     streets, close to home."
  26. 240 [141]5110
  27. 245 [141]5010:[153]"open(all)yes, mother.":[141]5110
  28. 255 [141]5010
  29. 260 [153]"open(mother)  and don't eat any candy       closeuntil you get home."
  30. 265 [141]5110
  31. 275 [141]5010
  32. 280 [153]"open(huggy bear)  that's because it might     have bad things in it!"
  33. 285 [141]5110
  34. 290 [141]5010
  35. 295 [153]"open(girl)  i couldn't find a costume i      liked so i'll go without.
  36. 300 gosub5110
  37. 305 gosub5010
  38. 310 print"[159](boy)  i have this real neat ghost        costume."
  39. 315 gosub5110
  40. 320 gosub5010
  41. 325 print"[159](huggy bear)  and i'm going disguised    as a white polar bear!
  42. 330 [141]5110
  43. 335 [141]5010
  44. 340 [153]"open(mother)  well you'd better be going     then. be back by 9 o'clock.
  45. 345 gosub5110:gosub4600
  46. 350 pokev+21,0:gosub5050
  47. 355 print"[147][158]"tab(9)"the two kids"
  48. 360 print""tab(13)"and huggy bear"
  49. 365 print""tab(21)"go outside."
  50. 380 sys51721,1,2
  51. 400 :
  52. 405 rem **** scene outside house ****
  53. 410 pokep0,246:pokep1,247:pokep2,224:pokep3,230:pokep4,228
  54. 415 pokev+41,1:pokev+42,1:pokev+28,7:pokev+43,7
  55. 420 pokev,170:pokev+2,170:pokev+4,220:pokev+6,250:pokev+8,190
  56. 425 pokev+1,135:pokev+3,156:pokev+5,170:pokev+7,156:pokev+9,50
  57. 430 pokev+21,31
  58. 450 poke214,20:print"[159](girl) isn't this a beautiful night!
  59. 455 [141]5110
  60. 460 [141]5010:[153]"open(huggy bear) look at that big moon!"
  61. 465 [141]5110
  62. 470 [151]p4,227
  63. 475 [141]5010:[153]"open(boy) yes, it looks like a               jack-o-lantern!
  64. 480 gosub5110
  65. 485 pokep4,228:pokep3,235:pokep0,240:pokep1,243
  66. 490 gosub5010:print"[159](girl) i don't see a face!":print"[159](huggy bear) i don't either!
  67. 495 [141]5110
  68. 500 [151]p0,246:[151]p1,247:[151]p3,230:[151]p4,227
  69. 505 [141]5010:[153]"open(boy) there it is again!
  70. 510 gosub5110
  71. 515 pokep4,228:pokep3,235:pokep0,240:pokep1,243
  72. 520 gosub5010:print"[159](girl) there's no face on the moon.
  73. 525 [153]"open(huggy bear) you're seeing things!
  74. 530 pokep0,246:pokep1,247:pokep3,230
  75. 535 gosub5110:gosub5010:print"[159](girl) which way shall we go?":gosub5110
  76. 540 gosub5010:print"[159](huggy bear) let's start that way.":pokep3,231
  77. 545 gosub5110:pokep3,230
  78. 547 gosub5010
  79. 550 fort=1to2000:next
  80. 555 pokep0,240:pokep1,243:fort=1to200:next
  81. 560 rem...girl walks left
  82. 565 pokep0,244:pokep1,245
  83. 570 x=170
  84. 575 x=x-6
  85. 580 ifx<0thenx=0:goto610
  86. 585 pokep1,239:fort=1to100:next
  87. 590 pokev,x:pokev+2,x
  88. 595 pokep1,245:fort=1to100:next
  89. 600 goto575
  90. 610 rem...boy moves up
  91. 615 y=170
  92. 620 y=y-2
  93. 625 pokep2,221:fort=1to100:next
  94. 630 pokev+5,y
  95. 635 pokep2,220:fort=1to100:next
  96. 640 ify<160then650
  97. 645 goto620
  98. 650 pokep2,224:fort=1to200:next
  99. 655 pokep2,222
  100. 660 rem...boy walks left
  101. 665 x=220
  102. 670 x=x-6
  103. 675 ifx<0thenx=0:goto700
  104. 680 pokep2,223:fort=1to50:next
  105. 685 pokev+4,x
  106. 690 pokep2,222:fort=1to50:next
  107. 695 goto670
  108. 700 ifpeek(709)=0then745
  109. 710 pokep3,254:rem
  110. 720 gosub5010:print"[159](huggy bear) come along with us,":print"   ";nm$"."
  111. 730 gosub5110:gosub5010:pokep3,230
  112. 740 rem
  113. 745 x=250
  114. 750 x=x-6
  115. 755 ifx<0thenx=0:goto780
  116. 760 pokep3,232:fort=1to50:next
  117. 765 pokev+6,x
  118. 770 pokep3,230:fort=1to50:next
  119. 775 goto750
  120. 780 pokev+21,0:gosub5050
  121. 782 print"[147]"
  122. 785 poke214,13:print"[158]   our friends go down the street to
  123. 790 [153]"spend a quiet evening trick-or-treating.
  124. 795 print"  little do they know what lies ahead!
  125. 800 [153]"stop"
  126. 810 [153]"new"
  127. 820 [153]"load"[199](34)"0:hbh3"[199](34)",8"
  128. 830 [153]"run"
  129. 840 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
  130. 900 [128]
  131. 4000 :
  132. 4005 [143] **** sprite & m/l data ****
  133. 4010 [129]i[178]0[164]191:[135]a:[151]14208[170]i,a:[130]
  134. 4030 [143] *** boy left, standing p,222
  135. 4032 [131]0,60,0,0,255,0,0,207
  136. 4034 [131]192,2,255,192,3,255,192,0
  137. 4036 [131]254,128,0,63,0,0,43,0
  138. 4038 [131]0,43,0,0,43,0,0,43
  139. 4040 [131]0,0,42,0,0,54,0,0
  140. 4042 [131]56,0,0,56,0,0,56,0
  141. 4044 [131]0,56,0,0,56,0,0,56
  142. 4046 [131]0,0,56,0,0,20,0,0
  143. 4048 [143] *** boy left, walking p,223
  144. 4050 [131]0,60,0,0,255,0,0,207
  145. 4052 [131]192,2,255,192,3,255,192,0
  146. 4054 [131]254,128,0,63,0,0,43,0
  147. 4056 [131]0,43,0,0,43,0,0,43
  148. 4058 [131]0,0,42,0,0,54,0,0
  149. 4060 [131]56,0,0,56,0,0,248,0
  150. 4062 [131]0,251,0,0,255,0,0,195
  151. 4064 [131]0,0,67,0,0,1,0,0
  152. 4066 :
  153. 4068 [143]...boy rear view, p,224
  154. 4070 [131]0,63,0,0,255,192,0,255
  155. 4072 [131]192,0,255,192,0,63,0,0
  156. 4074 [131]21,0,0,42,0,0,170,128
  157. 4078 [131]0,170,128,0,170,128,0,170
  158. 4080 [131]128,0,170,128,0,127,64,0
  159. 4082 [131]63,0,0,63,0,0,63,0
  160. 4084 [131]0,63,0,0,63,0,0,63
  161. 4086 [131]0,0,51,0,0,21,0,249
  162. 4088 [142]
  163. 4100 :
  164. 4105 [143]...hb sitting, front  p,229
  165. 4110 [129]i[178]0[164]255:[135]a:[151]14656[170]i,a:[130]:[142]
  166. 4112 [131]0,126,0,1,255,128,15,255,240,23,153,232,19,255,200,15
  167. 4114 [131]231,240,1,255,128,7,219,224,15,231,240,31,255,248,29,255
  168. 4116 [131]184,29,255,184,29,255,184,13,255,176,5,255,160,1,255,128
  169. 4118 [131]6,255,96,7,255,224,7,231,224,3,231,192,1,195,128,0
  170. 4120 [143] *** hb standing,left p,230
  171. 4124 [131]0,7,0,0,253,128,1,185
  172. 4126 [131]128,3,255,0,1,255,0,0
  173. 4128 [131]254,0,0,60,0,0,126,0
  174. 4130 [131]0,255,0,0,255,0,0,255
  175. 4132 [131]0,0,255,0,0,127,0,0
  176. 4134 [131]63,0,0,30,0,0,30,0
  177. 4136 [131]0,30,0,0,30,0,0,14
  178. 4138 [131]0,0,62,0,0,124,0,127
  179. 4140 :
  180. 4142 [143] *** hb left/hand extend p,231
  181. 4144 [131]0,7,0,0,253,128,1,185
  182. 4146 [131]128,3,255,0,1,255,0,0
  183. 4148 [131]254,0,24,60,0,15,254,0
  184. 4150 [131]3,255,0,0,63,0,0,127
  185. 4152 [131]0,0,127,0,0,127,0,0
  186. 4154 [131]63,0,0,30,0,0,30,0
  187. 4156 [131]0,30,0,0,30,0,0,14
  188. 4158 [131]0,0,62,0,0,124,0,127
  189. 4160 :
  190. 4162 [143] *** hb walking left p,232
  191. 4164 [131]0,7,0,0,253,128,1,185
  192. 4166 [131]128,3,255,0,1,255,0,0
  193. 4168 [131]254,0,0,60,0,0,126,0
  194. 4170 [131]0,255,0,0,255,0,0,255
  195. 4172 [131]0,0,255,0,0,127,0,0
  196. 4174 [131]62,0,0,62,0,0,127,0
  197. 4176 [131]0,119,0,0,227,128,0,195
  198. 4178 [131]128,3,193,192,0,3,192,127
  199. 4180 [129]i[178]0[164]63:[135]a:[151]15040[170]i,a:[130]
  200. 4182 [143] *** hb back, standing p,235
  201. 4184 [131]0,60,0,3,126,192,7,255
  202. 4186 [131]224,3,255,192,0,255,0,0
  203. 4188 [131]255,0,0,126,0,3,255,192
  204. 4190 [131]7,255,224,7,255,224,6,255
  205. 4192 [131]96,6,255,96,2,255,32,0
  206. 4194 [131]255,0,0,255,0,0,231,0
  207. 4196 [131]0,231,0,0,231,0,0,231
  208. 4198 [131]0,0,231,0,1,255,128,255
  209. 4200 [142]
  210. 4202 :
  211. 4204 [143] *** hb front, standing p,254
  212. 4206 [129]i[178]0[164]63:[135]a:[151]16256[170]i,a:[130]
  213. 4208 [131]0,60,0,6,255,96,15,153
  214. 4210 [131]240,11,255,208,7,231,224,1
  215. 4212 [131]255,128,0,102,0,1,255,128
  216. 4214 [131]3,255,192,7,255,224,6,255
  217. 4216 [131]96,6,255,96,6,255,96,6
  218. 4218 [131]255,96,4,255,32,0,231,0
  219. 4220 [131]0,231,0,0,231,0,0,231
  220. 4222 [131]0,0,231,0,1,255,128,255
  221. 4224 [142]
  222. 4300 :
  223. 4322 [143]....clear text window...
  224. 4324 [129]i[178]680[164]700:[135]a:[151]i,a:[130]:[142]
  225. 4326 [131]162,0,169,32,141,72,7,238,173,2,232,224,120,208,245
  226. 4328 [131]169,72,141,173,2,96
  227. 4330 :
  228. 4332 [143] *** full moon  p,228
  229. 4334 [129]i[178]0[164]63:[135]a:[151]14592[170]i,a:[130]
  230. 4336 [131]0,0,0,0,255,0,7,255
  231. 4338 [131]224,31,255,248,63,255,252,127
  232. 4340 [131]255,254,127,255,254,255,255,255
  233. 4342 [131]255,255,255,255,255,255,255,255
  234. 4344 [131]255,255,255,255,255,255,255,255
  235. 4346 [131]255,255,127,255,254,127,255,254
  236. 4348 [131]63,255,252,31,255,248,7,255
  237. 4350 [131]224,0,255,0,0,0,0,0
  238. 4352 :
  239. 4354 [143] *** moon with face  p,227
  240. 4356 [129]i[178]0[164]63:[135]a:[151]14528[170]i,a:[130]
  241. 4358 [131]0,0,0,0,255,0,7,255
  242. 4360 [131]224,31,255,248,63,255,252,112
  243. 4362 [131]60,14,123,126,222,252,255,63
  244. 4364 [131]255,255,255,255,231,255,255,195
  245. 4366 [131]255,255,129,255,255,255,255,255
  246. 4368 [131]255,255,124,34,30,127,0,126
  247. 4370 [131]63,201,252,31,255,248,7,255
  248. 4372 [131]224,0,255,0,0,0,0,0
  249. 4374 [142]
  250. 4600 :
  251. 4605 [143] *** boy sprites ***
  252. 4610 [129]i[178]0[164]127:[135]a:[151]14080[170]i,a:[130]
  253. 4630 [143] *** boy,back,lft foot up p,220
  254. 4634 [131]0,63,0,0,255,192,0,255
  255. 4636 [131]192,0,255,192,0,255,192,0
  256. 4638 [131]63,0,0,21,0,0,42,0
  257. 4640 [131]0,170,128,0,170,128,0,170
  258. 4642 [131]128,0,170,128,0,127,64,0
  259. 4644 [131]63,0,0,63,0,0,63,0
  260. 4646 [131]0,63,0,0,63,0,0,31
  261. 4648 [131]0,0,3,0,0,1,0,0
  262. 4650 [143] *** boy,back,rt foot up p,221
  263. 4654 [131]0,63,0,0,255,192,0,255
  264. 4656 [131]192,0,255,192,0,255,192,0
  265. 4658 [131]63,0,0,21,0,0,42,0
  266. 4660 [131]0,170,128,0,170,128,0,170
  267. 4662 [131]128,0,170,128,0,127,64,0
  268. 4664 [131]63,0,0,63,0,0,63,0
  269. 4666 [131]0,63,0,0,63,0,0,61
  270. 4668 [131]0,0,48,0,0,16,0,0
  271. 4676 [131]192,2,255,192,3,255,192,0
  272. 4708 [131]0,0,67,0,0,1,0,0
  273. 4710 [142]
  274. 5000 :
  275. 5005 [143] **** basic subroutines ****
  276. 5010 [143]...text window clear & pos.
  277. 5015 [158]680:[153]"":[151]214,19:[153]:[142]
  278. 5050 :
  279. 5055 [143] *** wipe screen vertically ***
  280. 5060 c1[178]23:c2[178]19:c3[178]24:c4[178]39:c5[178]59903
  281. 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)
  282. 5070 [129]j[178]0[164]c2:[139]j[178]0[167][151]781,c3:[158]c5
  283. 5075 [153]"";[163]j);c2$:[153]""[163]c4[171]j);c2$
  284. 5080 [130]:[153]"load";:c2$[178]"":[151]781,0
  285. 5090 [142]
  286. 5100 :
  287. 5105 [143] *** wait for keypress ***
  288. 5110 [151]198,0:z9[178]0
  289. 5120 z9[178]z9[170]1:[161]a$:[139]a$[178]""[175]z9[179]200[167]5120
  290. 5130 [142]
  291.