home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 77
/
077.d81
/
hbh3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
228 lines
10 rem **** hbh3 ****
20 clr:restore:v=53248:poke53281,0:poke53280,0
30 rem...lo-res sprite pointers:
35 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
55 fori=1topeek(709):nm$=nm$+chr$(peek(709+i)):next
80 rem...load next 4 scenes:
85 sys51718,1,"night1":sys51718,2,"night2":sys51718,3,"night3"
90 sys51718,4,"night4"
100 rem...set up sprites & display priorities hb#0, boy#1, girl#2,3
105 rem...p0=hb, p1=boy,p2&3=girl
110 pokev+28,14:pokev+37,10:pokev+38,1:rem multicolors
113 pokev+39,1:pokev+40,1:pokev+41,7:pokev+42,14:rem sprite colors
115 pokev,145:pokev+2,175:pokev+4,205:pokev+6,205
120 pokev+1,190:pokev+3,190:pokev+5,169:pokev+7,190
125 pokep0,235:pokep1,224:pokep2,244:pokep3,245
150 sys51721,1,1:pokev+21,15:rem...1st scene
160 gosub5010:print"[159](girl) shall we try this house first?":gosub5110
165 gosub4012:rem read in data
170 gosub5010:print"[159](huggy bear) suits me. let's go.":gosub5110
175 pokep0,235:fori=190to180step-1:pokev+1,i:next
180 poke55911,0:poke55917,0
185 gosub5010:print"[159](huggy bear) they turned their lights
190 [153]" off when they saw me coming!":[129]t[178]1[164]2000:[130]:[151]p0,233
195 [141]5110
200 [141]5010:[153]"open(boy) that's not very nice.":[141]5110
202 [151]p0,235:[129]t[178]1[164]50:[130]:[151]p0,230
205 [141]5010:[153]"open(huggy bear) let's try that next house.
210 x=145
215 x=x-4
220 ifx<65then250
225 pokep0,232:fort=1to50:next
230 pokev,x
235 pokep0,230:fort=1to50:next
240 goto215
250 pokev+21,0:gosub5050
255 sys51721,1,2:rem second scene.
260 pokev,140:pokev+2,121:pokev+4,105:pokev+6,105
265 pokev+1,167:pokev+3,175:pokev+5,149:pokev+7,170
270 pokep0,235:pokep1,224:pokep2,246:pokep3,247
275 pokev+21,15
280 gosub5010:print"[159](huggy bear) i pushed the bell button.":gosub5110
285 sys51721,1,3:fort=1to200:next:sys51721,1,4
290 gosub5010:print"[159](man, very gruff) what do you want?":gosub5110
300 gosub5010:print"[159](all) trick or treat!":gosub5110
305 gosub5010:print"[159](man) we ain't got no treats. go away.":gosub5110
310 sys51721,1,3:fort=1to200:next:sys51721,1,2
315 pokep0,230
320 gosub5010:print"[159](huggy bear) boy what a grouch he is.":gosub5110
325 gosub5010:print"[159](girl) let's go over to the next street.
330 [153]" maybe people are nicer there.":[141]5110
335 [141]5010:[153]"open(boy) that sounds like a good idea.":[141]5110
337 [139][194](709)[178]0[167]350
340 [151]p0,254:[141]5010
345 [153]"open(huggy bear) i hope you're coming with us, "nm$".":[141]5110
350 [151]v[170]21,0:[141]5050
360 [153]"loadsysour friends decide to go across an"
365 [153]" empty lot to get to the next street.
370 print" now empty lots are usually not very
375 [153]" exciting, right?
380 rem...3rd scene
400 pokep4,228:pokep5,218:pokep6,218:pokep7,218:rem moon, 3 pumpkins
405 pokep0,236:pokep1,220:pokep2,240:pokep3,241:rem hb, boy, girl
410 pokev+43,7:pokev+44,8:pokev+45,8:pokev+46,8:rem moon & pump. colors
415 pokev,190:pokev+2,220:pokev+4,250:pokev+6,250:rem hb, boy, girl x pos.
420 pokev+1,225:pokev+3,225:pokev+5,204:pokev+7,225:rem hb, boy, girl y pos.
425 rem...setx,y pos. for moon, 3 pumpkins
430 pokev+8,180:pokev+10,54:pokev+12,146:pokev+16,128:pokev+14,10:rem x
435 pokev+9,60:pokev+11,165:pokev+13,165:pokev+15,165
440 pokev+27,224:rem pumpkins behind background
445 sys51718,1,"empty lot":sys51718,2,"large stones":sys51718,3,"mausoleum"
450 sys51718,4,"haunted hse":sys51721,1,1:pokev+21,255
455 y=255:yt=234
460 y=y-3:yt=yt-3
465 pokev+1,y:pokev+3,y:pokev+7,y:pokev+5,yt
470 pokep0,237:pokep1,221:pokep3,242:fort=1to100:next
475 y=y-3:yt=yt-3
480 pokev+1,y:pokev+3,y:pokev+7,y:pokev+5,yt
485 pokep0,236:pokep1,220:pokep3,241:fort=1to100:next
490 ify<165then500
495 goto460
500 print"":poke214,20
505 print" [213][192][201] [174] [176] [213][192][201] [174] [176] [194]
510 [153]" peek peek peek peek peek -tan< peek
515 print" [202][192][203] [202][192][203] [202][192][203] [189] [173] .
520 [129]t[178]1[164]3000:[130]
525 [151]p0,235:[151]p1,224:[151]p3,243
530 [129]t[178]1[164]400:[130]:[151]p0,233:[151]p2,244:[151]p3,245
540 [141]5010:[153]"open(all) who said that?
545 fory=0to22:pokev+15,165-y:fort=1to50:next:next:rem pumpkin rises
550 gosub5010:print"[159](pumpkin) you stepped on me. why don't
555 [153]" you look where you're going?
560 pokep2,240:pokep3,243:fort=1to500:next:pokep2,246:pokep3,247
565 pokev+4,245:pokev+6,245:gosub5110
570 gosub5010:print"[159](girl) sorry. i didn't know there were
575 [153]" any pumpkins in this field.":[141]5110
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
585 [141]5010:[153]"open(2nd pumpkin) there are lots of us.":[141]5110
587 [151]p0,230:[151]p1,222:[151]p2,244:[151]p3,245
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
595 [141]5010:[153]"open(3rd pumpkin) we hide in the bushes"
600 [153]" so people won't take us away.":[141]5110
610 [141]5010:[153]"open(2nd pumpkin) tonight we're watching"
615 [153]" for that great pumpkin in the sky.":[141]5110
620 [141]5010:[153]"open(3rd pumpkin) he's supposed to come"
625 [153]" out on halloween.":[141]5110
630 [151]p4,227:[129]t[178]1[164]1000:[130]:[151]p1,224
635 [141]5010:[153]"open(boy) i think if you'll look at the"
640 [153]" moon you'll see him.":[141]5110
645 [151]p0,235:[129]t[178]1[164]1000:[130]:[151]p2,240:[151]p3,243:[129]t[178]1[164]1000:[130]
650 [151]p5,228:[151]p6,228:[151]p7,228
660 [141]5010:[153]"open(girl) let's get on our way, it's"
665 [153]" getting late.":[141]5110
670 y[178]159:yt[178]138
675 y[178]y[171]3:yt[178]yt[171]3
680 [151]v[170]1,y:[151]v[170]3,y:[151]v[170]7,y:[151]v[170]5,yt
685 [151]p0,237:[151]p1,221:[151]p3,242:[129]t[178]1[164]100:[130]
690 y[178]y[171]3:yt[178]yt[171]3
695 [151]v[170]1,y:[151]v[170]3,y:[151]v[170]7,y:[151]v[170]5,yt
700 [151]p0,236:[151]p1,220:[151]p3,241:[129]t[178]1[164]100:[130]
705 [139]y[179]149[167]720
710 [137]675
720 [151]v[170]21,0:[141]5050
750 [153]"load":[151]53280,0
755 [151]214,15:[153]"printwhew! let's slow down and rest for a
760 print"minute. these guys are going too fast!
765 [153]"besides, whoever heard of pumpkins that
770 print"can talk, or move around?
810 [153]"stop"
820 [153]"new"
830 [153]"load"[199](34)"0:hbh4"[199](34)",8"
840 [153]"run"
850 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
900 [128]
4000 :
4010 [143] **** m/l & sprite data ****
4012 [143]...boy right, walking p,225
4014 [129]i[178]0[164]127:[135]a:[151]14400[170]i,a:[130]
4016 [131]0,60,0,0,255,0,3,243
4018 [131]0,3,255,192,3,255,192,3
4020 [131]255,0,0,252,0,0,252,0
4022 [131]0,252,0,0,252,0,0,252
4024 [131]0,0,252,0,0,220,0,0
4026 [131]60,0,0,60,0,0,63,0
4028 [131]0,255,0,0,255,0,0,195
4030 [131]0,0,193,0,0,64,0,0
4032 [143]...boy, right, standing p,226
4034 [131]0,60,0,0,255,0,3,243
4036 [131]0,3,255,192,3,255,192,3
4038 [131]255,0,0,252,0,0,252,0
4040 [131]0,252,0,0,252,0,0,252
4042 [131]0,0,252,0,0,220,0,0
4044 [131]60,0,0,60,0,0,60,0
4046 [131]0,60,0,0,60,0,0,60
4048 [131]0,0,60,0,0,20,0,0
4050 [143]...boy standing, front p,219
4052 [129]i[178]0[164]63:[135]a:[151]14016[170]i,a:[130]
4054 [131]0,63,0,0,255,192,0,204
4056 [131]192,0,255,192,0,243,192,0
4058 [131]63,0,0,21,0,0,42,0
4060 [131]0,170,128,0,170,128,0,170
4062 [131]128,0,170,128,0,127,64,0
4064 [131]63,0,0,63,0,0,63,0
4066 [131]0,63,0,0,63,0,0,63
4068 [131]0,0,51,0,0,17,0,0
4072 [143]...pumpkin sprites p,218
4074 [129]i[178]0[164]63:[135]a:[151]13952[170]i,a:[130]
4076 [131]0,0,0,0,0,0,0,0
4078 [131]0,1,255,128,7,255,224,15
4080 [131]255,240,60,126,60,126,255,126
4082 [131]127,255,254,255,231,255,255,195
4084 [131]255,255,255,255,255,255,255,126
4086 [131]255,126,127,0,254,63,255,252
4088 [131]15,255,240,7,255,224,1,255
4090 [131]128,0,0,0,0,0,0,0
4100 :
4102 [143]...hb,right,standing p,233
4104 [129]i[178]0[164]63:[135]a:[151]14912[170]i,a:[130]
4106 [131]0,224,0,1,191,0,1,157
4108 [131]128,0,255,192,0,255,128,0
4110 [131]127,0,0,60,0,0,126,0
4112 [131]0,255,0,0,255,0,0,255
4114 [131]0,0,255,0,0,254,0,0
4116 [131]124,0,0,120,0,0,120,0
4118 [131]0