home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 77
/
077.d81
/
hbh2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
291 lines
10 rem **** hbh2 ****
30 rem...lo-res sprite pointers:
35 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
40 sys51718,1,"living room":sys51718,2,"outside"
50 gosub4010:gosub4110
55 fori=1topeek(709):nm$=nm$+chr$(peek(709+i)):next
100 :
105 rem **** living room scene ****
110 print"[147]":sys51721,1,1
115 poke53280,0:poke53281,0
120 pokep0,246:pokep1,247:pokep2,248:pokep3,249:pokep4,224:pokep5,229
125 v=53248
130 pokev+37,10:pokev+38,1:pokev+28,31
135 pokev+39,7:pokev+40,14:pokev+41,10:pokev+42,10:pokev+43,1:pokev+44,1
140 pokev,140:pokev+2,140:pokev+4,255:pokev+6,255:pokev+8,210:pokev+10,179
150 pokev+1,130:pokev+3,151:pokev+5,120:pokev+7,141:pokev+9,155:pokev+11,129
160 pokev+21,63
200 :
205 gosub4180:gosub4204:poke214,20
210 print"[159](mother) if you kids are going trick ortreating you must be careful.
215 [141]4322:[141]5110
220 [141]5010:[153]"open(all)yes, mother."
225 [141]4332:[141]5110
230 [141]5010
235 [153]"open(mother) please stay on the lighted streets, close to home."
240 [141]5110
245 [141]5010:[153]"open(all)yes, mother.":[141]5110
255 [141]5010
260 [153]"open(mother) and don't eat any candy closeuntil you get home."
265 [141]5110
275 [141]5010
280 [153]"open(huggy bear) that's because it might have bad things in it!"
285 [141]5110
290 [141]5010
295 [153]"open(girl) i couldn't find a costume i liked so i'll go without.
300 gosub5110
305 gosub5010
310 print"[159](boy) i have this real neat ghost costume."
315 gosub5110
320 gosub5010
325 print"[159](huggy bear) and i'm going disguised as a white polar bear!
330 [141]5110
335 [141]5010
340 [153]"open(mother) well you'd better be going then. be back by 9 o'clock.
345 gosub5110:gosub4600
350 pokev+21,0:gosub5050
355 print"[147][158]"tab(9)"the two kids"
360 print""tab(13)"and huggy bear"
365 print""tab(21)"go outside."
380 sys51721,1,2
400 :
405 rem **** scene outside house ****
410 pokep0,246:pokep1,247:pokep2,224:pokep3,230:pokep4,228
415 pokev+41,1:pokev+42,1:pokev+28,7:pokev+43,7
420 pokev,170:pokev+2,170:pokev+4,220:pokev+6,250:pokev+8,190
425 pokev+1,135:pokev+3,156:pokev+5,170:pokev+7,156:pokev+9,50
430 pokev+21,31
450 poke214,20:print"[159](girl) isn't this a beautiful night!
455 [141]5110
460 [141]5010:[153]"open(huggy bear) look at that big moon!"
465 [141]5110
470 [151]p4,227
475 [141]5010:[153]"open(boy) yes, it looks like a jack-o-lantern!
480 gosub5110
485 pokep4,228:pokep3,235:pokep0,240:pokep1,243
490 gosub5010:print"[159](girl) i don't see a face!":print"[159](huggy bear) i don't either!
495 [141]5110
500 [151]p0,246:[151]p1,247:[151]p3,230:[151]p4,227
505 [141]5010:[153]"open(boy) there it is again!
510 gosub5110
515 pokep4,228:pokep3,235:pokep0,240:pokep1,243
520 gosub5010:print"[159](girl) there's no face on the moon.
525 [153]"open(huggy bear) you're seeing things!
530 pokep0,246:pokep1,247:pokep3,230
535 gosub5110:gosub5010:print"[159](girl) which way shall we go?":gosub5110
540 gosub5010:print"[159](huggy bear) let's start that way.":pokep3,231
545 gosub5110:pokep3,230
547 gosub5010
550 fort=1to2000:next
555 pokep0,240:pokep1,243:fort=1to200:next
560 rem...girl walks left
565 pokep0,244:pokep1,245
570 x=170
575 x=x-6
580 ifx<0thenx=0:goto610
585 pokep1,239:fort=1to100:next
590 pokev,x:pokev+2,x
595 pokep1,245:fort=1to100:next
600 goto575
610 rem...boy moves up
615 y=170
620 y=y-2
625 pokep2,221:fort=1to100:next
630 pokev+5,y
635 pokep2,220:fort=1to100:next
640 ify<160then650
645 goto620
650 pokep2,224:fort=1to200:next
655 pokep2,222
660 rem...boy walks left
665 x=220
670 x=x-6
675 ifx<0thenx=0:goto700
680 pokep2,223:fort=1to50:next
685 pokev+4,x
690 pokep2,222:fort=1to50:next
695 goto670
700 ifpeek(709)=0then745
710 pokep3,254:rem
720 gosub5010:print"[159](huggy bear) come along with us,":print" ";nm$"."
730 gosub5110:gosub5010:pokep3,230
740 rem
745 x=250
750 x=x-6
755 ifx<0thenx=0:goto780
760 pokep3,232:fort=1to50:next
765 pokev+6,x
770 pokep3,230:fort=1to50:next
775 goto750
780 pokev+21,0:gosub5050
782 print"[147]"
785 poke214,13:print"[158] our friends go down the street to
790 [153]"spend a quiet evening trick-or-treating.
795 print" little do they know what lies ahead!
800 [153]"stop"
810 [153]"new"
820 [153]"load"[199](34)"0:hbh3"[199](34)",8"
830 [153]"run"
840 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
900 [128]
4000 :
4005 [143] **** sprite & m/l data ****
4010 [129]i[178]0[164]191:[135]a:[151]14208[170]i,a:[130]
4030 [143] *** boy left, standing p,222
4032 [131]0,60,0,0,255,0,0,207
4034 [131]192,2,255,192,3,255,192,0
4036 [131]254,128,0,63,0,0,43,0
4038 [131]0,43,0,0,43,0,0,43
4040 [131]0,0,42,0,0,54,0,0
4042 [131]56,0,0,56,0,0,56,0
4044 [131]0,56,0,0,56,0,0,56
4046 [131]0,0,56,0,0,20,0,0
4048 [143] *** boy left, walking p,223
4050 [131]0,60,0,0,255,0,0,207
4052 [131]192,2,255,192,3,255,192,0
4054 [131]254,128,0,63,0,0,43,0
4056 [131]0,43,0,0,43,0,0,43
4058 [131]0,0,42,0,0,54,0,0
4060 [131]56,0,0,56,0,0,248,0
4062 [131]0,251,0,0,255,0,0,195
4064 [131]0,0,67,0,0,1,0,0
4066 :
4068 [143]...boy rear view, p,224
4070 [131]0,63,0,0,255,192,0,255
4072 [131]192,0,255,192,0,63,0,0
4074 [131]21,0,0,42,0,0,170,128
4078 [131]0,170,128,0,170,128,0,170
4080 [131]128,0,170,128,0,127,64,0
4082 [131]63,0,0,63,0,0,63,0
4084 [131]0,63,0,0,63,0,0,63
4086 [131]0,0,51,0,0,21,0,249
4088 [142]
4100 :
4105 [143]...hb sitting, front p,229
4110 [129]i[178]0[164]255:[135]a:[151]14656[170]i,a:[130]:[142]
4112 [131]0,126,0,1,255,128,15,255,240,23,153,232,19,255,200,15
4114 [131]231,240,1,255,128,7,219,224,15,231,240,31,255,248,29,255
4116 [131]184,29,255,184,29,255,184,13,255,176,5,255,160,1,255,128
4118 [131]6,255,96,7,255,224,7,231,224,3,231,192,1,195,128,0
4120 [143] *** hb standing,left p,230
4124 [131]0,7,0,0,253,128,1,185
4126 [131]128,3,255,0,1,255,0,0
4128 [131]254,0,0,60,0,0,126,0
4130 [131]0,255,0,0,255,0,0,255
4132 [131]0,0,255,0,0,127,0,0
4134 [131]63,0,0,30,0,0,30,0
4136 [131]0,30,0,0,30,0,0,14
4138 [131]0,0,62,0,0,124,0,127
4140 :
4142 [143] *** hb left/hand extend p,231
4144 [131]0,7,0,0,253,128,1,185
4146 [131]128,3,255,0,1,255,0,0
4148 [131]254,0,24,60,0,15,254,0
4150 [131]3,255,0,0,63,0,0,127
4152 [131]0,0,127,0,0,127,0,0
4154 [131]63,0,0,30,0,0,30,0
4156 [131]0,30,0,0,30,0,0,14
4158 [131]0,0,62,0,0,124,0,127
4160 :
4162 [143] *** hb walking left p,232
4164 [131]0,7,0,0,253,128,1,185
4166 [131]128,3,255,0,1,255,0,0
4168 [131]254,0,0,60,0,0,126,0
4170 [131]0,255,0,0,255,0,0,255
4172 [131]0,0,255,0,0,127,0,0
4174 [131]62,0,0,62,0,0,127,0
4176 [131]0,119,0,0,227,128,0,195
4178 [131]128,3,193,192,0,3,192,127
4180 [129]i[178]0[164]63:[135]a:[151]15040[170]i,a:[130]
4182 [143] *** hb back, standing p,235
4184 [131]0,60,0,3,126,192,7,255
4186 [131]224,3,255,192,0,255,0,0
4188 [131]255,0,0,126,0,3,255,192
4190 [131]7,255,224,7,255,224,6,255
4192 [131]96,6,255,96,2,255,32,0
4194 [131]255,0,0,255,0,0,231,0
4196 [131]0,231,0,0,231,0,0,231
4198 [131]0,0,231,0,1,255,128,255
4200 [142]
4202 :
4204 [143] *** hb front, standing p,254
4206 [129]i[178]0[164]63:[135]a:[151]16256[170]i,a:[130]
4208 [131]0,60,0,6,255,96,15,153
4210 [131]240,11,255,208,7,231,224,1
4212 [131]255,128,0,102,0,1,255,128
4214 [131]3,255,192,7,255,224,6,255
4216 [131]96,6,255,96,6,255,96,6
4218 [131]255,96,4,255,32,0,231,0
4220 [131]0,231,0,0,231,0,0,231
4222 [131]0,0,231,0,1,255,128,255
4224 [142]
4300 :
4322 [143]....clear text window...
4324 [129]i[178]680[164]700:[135]a:[151]i,a:[130]:[142]
4326 [131]162,0,169,32,141,72,7,238,173,2,232,224,120,208,245
4328 [131]169,72,141,173,2,96
4330 :
4332 [143] *** full moon p,228
4334 [129]i[178]0[164]63:[135]a:[151]14592[170]i,a:[130]
4336 [131]0,0,0,0,255,0,7,255
4338 [131]224,31,255,248,63,255,252,127
4340 [131]255,254,127,255,254,255,255,255
4342 [131]255,255,255,255,255,255,255,255
4344 [131]255,255,255,255,255,255,255,255
4346 [131]255,255,127,255,254,127,255,254
4348 [131]63,255,252,31,255,248,7,255
4350 [131]224,0,255,0,0,0,0,0
4352 :
4354 [143] *** moon with face p,227
4356 [129]i[178]0[164]63:[135]a:[151]14528[170]i,a:[130]
4358 [131]0,0,0,0,255,0,7,255
4360 [131]224,31,255