Home » Archimedes archive » Archimedes World » AW-1996-02-Disc1.adf » !ElfKing_Elf » !ElfKing/ONE/elfking1
!ElfKing/ONE/elfking1
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1996-02-Disc1.adf » !ElfKing_Elf |
Filename: | !ElfKing/ONE/elfking1 |
Read OK: | ✔ |
File size: | 881E bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10 20LIBRARY "<ElfK$chaindir>.elflib" 30PROClib_initialise 40PROCinitialise 50 60IFL%=1010 THEN:PROCbookworm:L%=1020 70IFL%=1020:PROCloadvalley:PROCvalleyintro:PROCvalleyexplore:PROCincast:L%=1030 80IFL%=1030:PROCloadelf:PROCinbedroom:L%=1040 90 100W%=(mx%<<16)ORmy% 110 120CHAIN "<ElfK$chaindir>.ONE.LINK" 130 140END 150 160DEFPROCbookworm 170LOCAL j%,k%,l%,ok% 180PROCloadunsquash(sparea%,spareasiz%,"ONE.spfiles.bookworm") 190masksp%()=12:masksp$(0)="book":masksp$(1)="bigworm":masksp$(2)="bwtail0":masksp$(3)="bwtail1":masksp$(4)="bwtail2":PROCmasksprite(sparea%,5) 200SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1279;958; 210FORj%=756TO156STEP-200 220 SYS"OS_SpriteOp",&134,sparea%,"shelf",0,j%,8,scale%,0 230 l%=-(4*RND(5)) 240 REPEAT 250 REPEAT:k%=RND(30)-1:UNTIL ((k%MOD10)<>(ok%MOD10))AND((INT(k%/5))<>(INT(ok%/5))) 260 ok%=k% 270 IFk%<10:SYS"OS_SpriteOp",&134,sparea%,"book0"+STR$(k%),l%,j%+20,8,scale%,0:ELSE:SYS"OS_SpriteOp",&134,sparea%,"book"+STR$(k%),l%,j%+20,8,scale%,0 280 IF(k%>=0)AND(k%<=9):l%+=64 290 IF(k%>=10)AND(k%<=19):l%+=80 300 IF(k%>=20)AND(k%<=29):l%+=48 310 UNTIL l%>=1280 320NEXT 330SYS"OS_SpriteOp",&134,sparea%,"bigworm",400,280,8,scale%,0 340PROCsavebgrd(666,356,66,104,"tailbg") 350SYS"OS_SpriteOp",&134,sparea%,"bwtail0",666,356,8,scale%,0 360SYS"OS_SpriteOp",&134,sparea%,"book",140,156,8,scale%,0 370SYS"OS_SpriteOp",&134,sparea%,"desk",0,0,8,scale%,0 380PROCmergescr21(10) 390PROCwait(300) 400SYS "OS_Byte",112,2 410PROCspeechbox(600,536,660,280,1,0,580,-1) 420PROCwords(640,700,-1,3,0,0,"Hello, I am a bookworm.") 430PROCwords(640,596,-1,3,0,0,"Click on .") 440PROCmergescr21(10):PROCinitanim89 450mboxle%=832:mboxlo%=564:mboxri%=1002:mboxhi%=652 460PROCbookgoon(830,560,&301,0,-1):PROCinitmouse 470SYS "OS_Byte",112,2:PROCspeechbox(600,536,660,332,1,0,580,-1) 480SYS"OS_SpriteOp",&134,butarea%,"reader",660,692,8,scale%,0 490PROCwords(874,712,-1,3,0,0,"This is Lak.") 500PROCwords(690,604,-1,3,0,0,"He is an elf.") 510PROCmergescr21(2):PROCinitanim89 520mboxle%=1000:mboxlo%=520:mboxri%=1260:mboxhi%=700 530PROCbookgoon(1040,560,&301,0,-1):PROCinitmouse 540SYS "OS_Byte",112,2 550PROCwords(600,760,-1,3,-1,660,"Lak has put a spell") 560PROCwords(600,680,-1,3,-1,660,"on some words .") 570PROCmergescr21(2):PROCinitanim89 580PROCbookgoon(1040,560,&301,-1,0) 590sayx%=926:sayy%=640:bluewords%=1:blwords%(0)=2 600see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 610PROCcachesound("fxjing3",1) 620FORl%=0TO20 630 PROCclspeech 640 PROCwords(600,760,-1,3,-1,660,"Lak has put a spell") 650 IFl%<11:PROCwords(600,680,-1,3,-1,660,"on some words ."):ELSE:PROCwords(600,680,-1,3,-1,660,"on some "+on$+"words"+off$+" .") 660 PROCplotstars 670 PROCwait(10) 680 IFl%=3:SOUND 1,&17F,1,1 690 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 700NEXT 710PROCscrcopy(see%,do%):PROCwait(100) 720see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 730PROCwords(600,600,-1,3,-1,660,"Click on ' "+on$+"words"+off$+" ' .") 740PROCmergescr21(2):see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 750PROCwords_read(2,"00,01"):doneablue%=0:loopexit%=1:PROCbuttonloop(0,-1) 760see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 770SYS"OS_SpriteOp",&134,sparea%,"desk",0,0,8,scale%,0 780PROCclspeech:PROCmergescr21(4) 790see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 800PROCwords(716,760,-1,3,0,0,"Lak will tell you the") 810IFFNreadsysvar("ElfK$wordcol")="5":PROCwords(716,680,-1,3,0,0,on$+"blue words "+off$+"if you"):PROCwords_read(2,"02,03") 820IFFNreadsysvar("ElfK$wordcol")="7":PROCwords(716,680,-1,3,0,0,on$+"orange words "+off$+"if you"):PROCwords_read(2,"04,09") 830IFFNreadsysvar("ElfK$wordcol")="13":PROCwords(716,680,-1,3,0,0,on$+"green words "+off$+"if you"):PROCwords_read(2,"05,10") 840PROCwords(716,600,-1,3,0,0,"click on them.") 850PROCmergescr21(2):PROCinitanim89:PROCbookgoon(1040,560,&301,0,-1) 860SYS "OS_Byte",112,2:PROCwords_read(1,"06") 870PROCwords(600,732,-1,3,-1,660,"Let me tell you a "+on$+"story"+off$+".") 880PROCmergescr21(2):PROCinitanim89 890PROCbookgoon(1020,560,&301,0,-1) 900ENDPROC 910 920DEFPROCloopexit 930CASE loopexit% OF 940 WHEN 1:IFdoneablue%:animend%=-1 950 WHEN 2:IF(mx%>=340)AND(mx%<=936)AND(my%>=208)AND(my%<=800)AND(mbut%=4):animend%=-1 960ENDCASE 970ENDPROC 980 990DEFPROCinitanim89 1000animpause%(8)=4:animpause%(9)=10:bl%=0:ta%=0 1010ENDPROC 1020 1030DEFPROCbwblink 1040bl%+=1 1050IFbl%=4:bl%=0:animpause%(8)=200+(50*RND(6)):ELSE:animpause%(8)=4 1060SYS"OS_SpriteOp",&134,sparea%,"bweye"+STR$(bl%),422,436,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"bweye"+STR$(bl%),508,436,8,scale%,0 1070achange%=-1:donechange%(8)=-1:animtime%(8)=-1 1080ENDPROC 1090 1100DEFPROCbwcopyblink 1110PROCscrcopyblockpix(422,436,30,36,see%,do%,-1):PROCscrcopyblockpix(508,436,30,36,see%,do%,-1) 1120ENDPROC 1130 1140DEFPROCbwtail 1150SYS"OS_SpriteOp",&122,sparea%,"tailbg",666,356,8 1160ta%+=1 1170IFta%=4:ta%=0:animpause%(9)=200+(50*RND(6)):ELSE:animpause%(9)=10 1180IFta%=3:SYS"OS_SpriteOp",&134,sparea%,"bwtail1",666,356,8,scale%,0:ELSE:SYS"OS_SpriteOp",&134,sparea%,"bwtail"+STR$(ta%),666,356,8,scale%,0 1190achange%=-1:donechange%(9)=-1:animtime%(9)=-1 1200ENDPROC 1210 1220DEFPROCbwcopytail 1230PROCscrcopyblockpix(666,356,66,104,see%,do%,-1) 1240ENDPROC 1250 1260DEFPROCloadvalley 1270!sparea%=spareasiz%-(66*1024):sparea%!8=16 1280SYS "OS_SpriteOp",&109,sparea% 1290PROCloadunsquash(sparea%,spareasiz%-(66*1024),"ONE.spfiles.valley") 1300masksp%()=12:masksp$(0)="mag0"::masksp$(1)="mag1":masksp$(2)="maghandl":PROCmasksprite(sparea%,3) 1310SYS "OS_Byte",112,2 1320SYS"OS_SpriteOp",&134,sparea%,"valley",0,0,8,scale%,0 1330ENDPROC 1340 1350DEFPROCvalleyintro 1360PROCwaterfall21(20) 1370PROCwait(150) 1380PROCcachesound("fxbird2",1):SOUND 1,&17F,1,1:birdtime%=TIME+200+(50*RND(6)) 1390PROCwait(100) 1400SYS "OS_Byte",112,2 1410SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0 1420PROCspeechbox(240,8,820,108,1,-1,48,-1) 1430PROCwords_read(2,"07,08"):PROCwords_say(on$+"Elves live"+off$+" here.","") 1440PROCmergescr21(10) 1450ENDPROC 1460 1470DEFPROCexplorewords 1480PROCspeechbox(240,8,820,108,1,-1,48,-1) 1490PROCwords_read(0,"00"):PROCwords_say("What is here? Move the .","") 1500SYS"OS_SpriteOp",&134,sparea%,"mouse",888,28,8,scale%,0 1510ENDPROC 1520 1530DEFPROCvalleyexplore 1540LOCAL j% 1550sparea3%=sparea%+spareasiz%-(66*1024):!sparea3%=66*1024:sparea3%!8=16 1560SYS "OS_SpriteOp",&109,sparea3% 1570PROCloadunsquash(sparea3%,66*1024,"ONE.spfiles.map0") 1580SYS "OS_SpriteOp",&119,sparea3%,"qhead" 1590masksp%()=4:masksp$(0)="map0":PROCmasksprite(sparea3%,1) 1600PROCbookgoon(1080,12,&01,-1,-1) 1610SYS"OS_Byte",112,2:PROCexplorewords:PROCmergescr21(4) 1620choiceno%=0 1630REPEAT 1640 PROCmagloop 1650 SYS"OS_SpriteOp",&134,sparea3%,"map0",32,212,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"maghandl",574,116,8,scale%,0 1660 PROCwords_read(2,"11,12"):PROCwords_say("The elf king and "+on$+"queen live "+off$+"here.",""):PROCfademag 1670 PROCgoin 1680 IFchosen%<>1:PROCplotvalley:PROCexplorewords:PROCwaterfall21(20) 1690UNTIL chosen%=1 1700ENDPROC 1710 1720DEFPROCmaskincast 1730RESTORE +0 1740DATA pond,fount3,pour3,pour4,pour5,pour6,waf3,waf4,spout,drip3,statue,mag0,mag1 1750masksp%()=12:k%=0 1760FORj%=0TO2:masksp$(k%)="fount"+STR$(j%):k%+=1:masksp$(k%)="pour"+STR$(j%):k%+=1:masksp$(k%)="waf"+STR$(j%):k%+=1:masksp$(k%)="drip"+STR$(j%):k%+=1:masksp$(k%)="bmag"+STR$(j%):k%+=1:NEXT 1770FORj%=k%TOk%+12:READ masksp$(j%):NEXT:PROCmasksprite(sparea%,28) 1780ENDPROC 1790 1800DEFPROCelf(x%,y%,type%) 1810SYS"OS_SpriteOp",&134,sparea3%,"elfside",x%+ew%(type%,0)+24,y%+ew%(type%,1),8,scale%,0 1820SYS"OS_SpriteOp",&134,sparea3%,"ew"+STR$(type%),x%+ew%(type%,0),y%,8,scale%,0 1830ENDPROC 1840 1850DEFPROCincast 1860LOCAL j%,k% 1870PROCloadelf 1880!sparea%=spareasiz%-(11*1024):sparea%!8=16 1890SYS "OS_SpriteOp",&109,sparea% 1900PROCloadthrone:SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958; 1910SYS"OS_SpriteOp",&134,sparea%,"throneroom",6,200,8,scale%,0 1920PROCfade(0,960,0,2,40,"fade"):lasttime%=TIME-40 1930PROCsavebgrd(-192,388,182,316,"elfbg1"):PROCsavebgrd(-192,388,182,316,"elfbg2"):x%()=-192:y%()=388 1940see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:k%=-1 1950PROCcachesound("fxstep",1) 1960FORj%=-192TO68STEP26 1970 k%=(k%+1)MOD4 1980 VDU24,6;0;1278;958; 1990 SYS"OS_SpriteOp",&122,sparea%,"elfbg"+STR$(do%),x%(do%-1),y%(do%-1),8 2000 x%(do%-1)=j%:y%(do%-1)=388:PROCsavebgrd(x%(do%-1),y%(do%-1),182,316,"elfbg"+STR$(do%)) 2010 PROCelf(j%,388,k%) 2020 REPEAT:UNTIL TIME>lasttime%+30 2030 IFk%=1:SOUND 1,&17F,1,1 2040 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 2050NEXT 2060VDU26:PROCscrcopy(see%,do%):PROCwait(50):SYS "OS_Byte",112,2 2070SYS"OS_SpriteOp",&134,sparea%,"throneroom",6,200,8,scale%,0 2080SYS"OS_SpriteOp",&134,sparea%,"elfst0",128,388,8,scale%,0:SYS"OS_SpriteOp",&134,butarea%,"elfhead0",116,588,8,scale%,0 2090PROCmergescr21(4):PROCwait(50):SYS "OS_Byte",112,2 2100usualpos%=0:PROCwords_box(0,"00","","Hello, I am Jek.","",180,724,2,0,260) 2110PROCmergescr21(4):eyes%(0,0)=170:eyes%(0,1)=652:eeyes%=-1:PROCbookgoon(1080,12,&20001,-1,0) 2120SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&122,sparea%,"boxbg",180,724,8:SYS"OS_SpriteOp",&122,sparea%,"arrbg",260,628,8 2130PROCmergescr21(4):SYS "OS_Byte",112,2:PROCwords_box(1,"13","","I am looking for the king and "+on$+"queen"+off$+".","",180,724,2,0,260) 2140PROCmergescr21(4):eeyes%=-1:PROCbookgoon(1080,12,&20001,-1,0):usualpos%=-1 2150SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&134,sparea%,"throneroom",6,200,8,scale%,0 2160PROCelf(94,388,3) 2170PROCmergescr21(4):PROCwait(100):see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 2180VDU24,6;0;1278;958; 2190PROCcachesound("fxstep",1) 2200FORj%=1TO33 2210 SYS"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*j%),200,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"doors",1232-(26*j%),200,8,scale%,0 2220 PROCelf(94,388,(j%-1)MOD4) 2230 REPEAT:UNTIL TIME>lasttime%+30 2240 IF((j%-1)MOD4)=1:SOUND 1,&17F,1,1 2250 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 2260NEXT 2270SYS"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*33),200,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"doors",1232-(26*33),200,8,scale%,0 2280PROCelf(94,388,3) 2290REPEAT:UNTIL TIME>lasttime%+40 2300see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 2310VDU26:PROCscrcopy(see%,do%):PROCwait(50):SYS "OS_Byte",112,2 2320SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 2330PROCwords_read(2,"14,15"):PROCwords_say("Click to "+on$+"knock "+off$+"on a "+on$+"door"+off$+".","") 2340PROCmergescr21(4):dr%=-1 2350REPEAT 2360 PROCknockondoor 2370UNTILdr%=I% 2380ENDPROC 2390 2400DEFPROCinbedroom 2410PROCbedroom 2420REPEAT 2430 !sparea%=spareasiz%-(11*1024):sparea%!8=16 2440 SYS "OS_SpriteOp",&109,sparea% 2450 PROCloadthrone:SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958; 2460 SYS"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*33),200,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"doors",1232-(26*33),200,8,scale%,0 2470 PROCfade(0,960,0,2,40,"fade") 2480 SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 2490 usualpos%=-1:PROCwords_read(1,"36"):PROCwords_say("Click on a "+on$+"door"+off$+".","") 2500 PROCmergescr21(4):PROCpointtodoor 2510UNTILdr%=(1-I%) 2520PROCloadcupboard 2530SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakecupboard(-1) 2540PROCmergescr21(10):SYS "OS_Byte",112,2 2550SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 2560usualpos%=-1:PROCwords_read(0,"00"):PROCwords_say("Click on the map.","") 2570PROCmergescr21(4) 2580PROCpointtomap 2590PROCcastlego 2600ENDPROC 2610 2620DEFPROCcastlego 2630LOCAL j%,k% 2640PROCloadcastlego 2650SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958; 2660SYS"OS_SpriteOp",&134,sparea%,"portcull",490,332,8,scale%,0 2670SYS"OS_SpriteOp",&134,sparea%,"q0",548,344,8,scale%,0 2680FORj%=0TO2:SYS"OS_SpriteOp",&134,sparea%,"e"+STR$(j%)+"0",600+(40*j%)+(20*INT(j%/2)),436,8,scale%,0:NEXT 2690PROCmergescr21(4) 2700SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 2710usualpos%=-1:PROCwords_read(1,"37"):PROCwords_say("You "+on$+"leave "+off$+"to look for the king.","") 2720PROCmergescr21(4):bl%=-1:PROCbookgoon(1080,12,&401,-1,0) 2730ENDPROC 2740 2750DEFPROCmakebedroom(photo%,safe%,curtain%) 2760LOCAL j% 2770SYS"OS_SpriteOp",&134,sparea4%,"bedroom",26,180,8,scale%,0:FORj%=0TO1:SYS"OS_SpriteOp",&134,sparea%,"photo"+STR$(j%),44+(962*j%),photo%,8,scale%,0:NEXT 2780!scale%=curtain%:scale%!4=15*(K%!&F0):scale%!8=15:scale%!12=15 2790SYS"OS_SpriteOp",&134,sparea%,"curtain",340,208,8,scale%,0:PROCflip(sparea%,"y","curtain"):SYS"OS_SpriteOp",&134,sparea%,"curtain",638+(20*(15-curtain%)),208,8,scale%,0:PROCflip(sparea%,"y","curtain") 2800!scale%=16:scale%!4=16*(K%!&F0):scale%!8=16:scale%!12=16 2810IFcurtain%<>15 THEN 2820 VDU18,0,3:VDU25,4,340;208;:VDU25,101,340;800; 2830 VDU25,4,340+(20*curtain%)-2;208;:VDU25,101,340+(20*curtain%)-2;800; 2840 VDU25,4,638+(20*(15-curtain%));208;:VDU25,101,638+(20*(15-curtain%));800; 2850 VDU25,4,938;208;:VDU25,101,938;800; 2860ENDIF 2870SYS"OS_SpriteOp",&134,sparea%,"curttop",278,792,8,scale%,0 2880IFsafe%:SYS"OS_SpriteOp",&134,sparea%,"safe",32,612,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"safe",994,612,8,scale%,0 2890ENDPROC 2900 2910DEFPROCbedroom 2920LOCAL j% 2930PROCloadbedroom 2940SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakebedroom(604,0,15) 2950PROCmergescr21(10):lasttime%=TIME-40 2960PROCsavebgrd(-192,188,182,316,"elfbg1"):PROCsavebgrd(-192,188,182,316,"elfbg2"):x%()=-192:y%()=188 2970see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:k%=-1 2980PROCcachesound("fxstep",1) 2990FORj%=-192TO94STEP26 3000 k%=(k%+1)MOD4 3010 VDU24,26;0;1250;958; 3020 SYS"OS_SpriteOp",&122,sparea%,"elfbg"+STR$(do%),x%(do%-1),y%(do%-1),8 3030 x%(do%-1)=j%:y%(do%-1)=188:PROCsavebgrd(x%(do%-1),y%(do%-1),182,316,"elfbg"+STR$(do%)) 3040 PROCelf(j%,188,k%) 3050 REPEAT:UNTIL TIME>lasttime%+30 3060 IFk%=1:SOUND 1,&17F,1,1 3070 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 3080NEXT 3090SYS"OS_SpriteOp",&122,sparea%,"elfbg"+STR$(do%),x%(do%-1),y%(do%-1),8 3100PROCelf(94,188,3) 3110see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 3120VDU26:PROCscrcopy(see%,do%):SYS "OS_Byte",112,2 3130SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 3140usualpos%=-1:PROCwords_read(1,"19"):PROCwords_say("Click on the "+on$+"curtains"+off$+".","") 3150PROCmergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:anim%=&100000:loopexit%=2:PROCbuttonloop(anim%,-1) 3160SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;178;:PROCmergescr21(4) 3170see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 3180VDU24,340;208;940;958;:lasttime%=TIME-40 3190PROCcachesound("fxswish",1) 3200FORj%=14TO2STEP-1 3210 PROCmakebedroom(604,0,j%):REPEAT:UNTIL TIME>lasttime%+40 3220 IFj%=14:SOUND 1,&17F,1,1 3230 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 3240NEXT 3250VDU26:PROCscrcopy(see%,do%):SYS "OS_Byte",112,2 3260usualpos%=0 3270PROCwords_box(1,"20","","The king is "+on$+"missing"+off$+".","",440,740,2,0,712) 3280PROCmergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:qbl%=-1:PROCbookgoon(1080,12,&102001,-1,0) 3290SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&122,sparea%,"boxbg",440,740,8:SYS"OS_SpriteOp",&122,sparea%,"arrbg",712,632,8 3300PROCmergescr21(4):SYS "OS_Byte",112,2:PROCwords_box(1,"21","","I "+on$+"found "+off$+"this letter.","",440,740,2,0,712) 3310PROCmergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:qbl%=-1:PROCbookgoon(1080,12,&102001,-1,0) 3320SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&122,sparea%,"boxbg",440,740,8:SYS"OS_SpriteOp",&122,sparea%,"arrbg",712,632,8 3330PROCmergescr21(4) 3340SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:SYS"OS_SpriteOp",&134,sparea%,"paper",336,180,8,scale%,0 3350PROCwords_read(5,"22,23,24,25,26") 3360PROCwords(336,732,-1,3,-1,600,"We have the king") 3370PROCwords(336,632,-1,3,-1,600,"in our "+on$+"dungeon"+off$+".") 3380PROCwords(336,532,-1,3,-1,600,"We will "+on$+"swap "+off$+"him") 3390PROCwords(336,432,-1,3,-1,600,"for all the "+on$+"crowns"+off$+".") 3400PROCwords(336,332,-1,3,-1,600,"From") 3410PROCwords(336,232,-1,3,-1,600,"The "+on$+"Hairy Gang"+off$+".") 3420PROCmergescr21(4):whitebg%=0:PROCbookgoon(1080,12,&01,-1,0):whitebg%=-1 3430SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakebedroom(604,0,2) 3440SYS"OS_SpriteOp",&134,sparea%,"elfst0",80,188,8,scale%,0:SYS"OS_SpriteOp",&134,butarea%,"elfhead0",68,388,8,scale%,0 3450REPEAT 3460 SYS "OS_Byte",112,2:usualpos%=0 3470REM NB bluewords% = 2 to cover both boxes 3480 PROCwords_box(2,"27,29","","The king must be "+on$+"found"+off$+".","",440,740,2,0,712) 3490 PROCwords_box(2,"27,29","",on$+"Please "+off$+"will you help us?","",350,316,1,-1,356) 3500 PROCmergescr21(4):eyes%(0,0)=122:eyes%(0,1)=452:eeyes%=-1:qbl%=-1:PROCbmyn(1080,12,&22008,-1,0) 3510 SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakebedroom(604,0,2) 3520 SYS"OS_SpriteOp",&134,sparea%,"elfst0",80,188,8,scale%,0:SYS"OS_SpriteOp",&134,butarea%,"elfhead0",68,388,8,scale%,0 3530 PROCmergescr21(4) 3540 IFchosen%=0THEN 3550 SYS "OS_Byte",112,2 3560 PROCwords_box(2,"28,30","",on$+"Please "+off$+"will you help us?","",440,740,2,0,712) 3570 PROCwords_box(2,"28,30","","We must "+on$+"rescue "+off$+"the king.","",350,316,1,-1,356) 3580 PROCmergescr21(4):eyes%(0,0)=122:eyes%(0,1)=452:eeyes%=-1:qbl%=-1:PROCbmyn(1080,12,&22008,-1,0) 3590 SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakebedroom(604,0,2) 3600 SYS"OS_SpriteOp",&134,sparea%,"elfst0",80,188,8,scale%,0:SYS"OS_SpriteOp",&134,butarea%,"elfhead0",68,388,8,scale%,0 3610 PROCmergescr21(4) 3620 ENDIF 3630UNTIL chosen%<>0 3640REM NB bluewords% = 2 to cover both boxes 3650SYS "OS_Byte",112,2:PROCwords_box(2,"31,32","",on$+"Thank you"+off$+".","",520,740,2,0,712) 3660PROCwords_box(2,"31,32","",on$+"Thank you"+off$+".","",350,316,1,-1,356) 3670PROCmergescr21(4):eyes%(0,0)=122:eyes%(0,1)=452:eeyes%=-1:qbl%=-1:PROCbookgoon(1080,12,&22001,-1,0) 3680SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakebedroom(604,0,2) 3690PROCelf(94,188,3):SYS"OS_SpriteOp",&134,sparea%,"point",262,316,8,scale%,0 3700PROCmergescr21(4):PROCwait(150):PROCmagicusers 3710SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 3720usualpos%=-1:PROCwords_read(1,"33"):PROCwords_say("Here you are in the "+on$+"story"+off$+".","") 3730PROCmergescr21(4) 3740eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:eyes%(1,0)=810:eyes%(1,1)=504:beyes%=-1:eyes%(2,0)=392:eyes%(2,1)=496:geyes%=-1:qbl%=-1 3750PROCbookgoon(1080,12,&1C1001,-1,0) 3760SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;176; 3770usualpos%=0:PROCwords_box(2,"34,35","","If the king is in a "+on$+"dungeon"+off$+",","he must be in a "+on$+"castle"+off$+".",350,286,1,-1,356) 3780PROCmergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:qbl%=-1:PROCbookgoon(1080,12,&1C1001,-1,0) 3790SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&122,sparea%,"boxbg",350,286,8:SYS"OS_SpriteOp",&122,sparea%,"arrbg",282,356,8 3800PROCmergescr21(4) 3810SYS "OS_Byte",112,2:usualpos%=0:PROCwords_box(0,"00","","We need a map.","",350,316,1,-1,356) 3820PROCmergescr21(4) 3830eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:eyes%(1,0)=810:eyes%(1,1)=504:beyes%=-1:eyes%(2,0)=392:eyes%(2,1)=496:geyes%=-1:qbl%=-1 3840PROCbookgoon(1080,12,&1C1001,-1,0) 3850SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&122,sparea%,"boxbg",350,316,8:SYS"OS_SpriteOp",&122,sparea%,"arrbg",282,356,8 3860PROCmergescr21(4) 3870ENDPROC 3880 3890DEFPROCpointbed 3900LOCAL j% 3910PROCloadbedroom 3920SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakebedroom(604,0,2) 3930PROCmergescr21(4):SYS "OS_Byte",112,2:usualpos%=0:PROCwords_box(0,"00","","You need a map.","",440,740,2,0,712) 3940PROCmergescr21(4):qbl%=-1:PROCbookgoon(1080,12,&1001,-1,0) 3950ENDPROC 3960 3970DEFPROCpointtodoor 3980see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 3990PROCsavebgrd(1100-8,220-104,118,112,"h0bg1"):PROCsavebgrd(1100-8,220-104,118,112,"h0bg2"):x%()=(1100-8):y%()=(220-104) 4000SYS"OS_Byte",21,9:MOUSE RECTANGLE 0,0,1200,958:MOUSE TO 1100,220 4010*FX15 4020REPEAT 4030 PROCcheckkeyevent 4040 SYS"OS_Byte",21,9:MOUSE mx%,my%,mbut% 4050 IF(mbut%=4)AND(bluewords%>0):PROCelffade(FNonblue) 4060 SYS"OS_SpriteOp",&122,sparea%,"h0bg"+STR$(do%),x%(do%-1),y%(do%-1),8 4070 x%(do%-1)=mx%-8:y%(do%-1)=my%-104:PROCsavebgrd(x%(do%-1),y%(do%-1),118,112,"h0bg"+STR$(do%)) 4080 SYS"OS_SpriteOp",&134,butarea%,"h0",x%(do%-1),y%(do%-1),8,scale%,0 4090 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 4100 IFmbut%=4:dr%=FNonadoor2:ELSE:dr%=-1 4110UNTILdr%>=0 4120PROCscrcopy(see%,do%):SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;196;:PROCmergescr21(4) 4130SYS"OS_SpriteOp",&119,sparea%,"h0bg"+STR$(do%):SYS"OS_SpriteOp",&11B,sparea%,"h0bg"+STR$(see%),"h0bg"+STR$(do%) 4140x%(do%-1)=x%(see%-1):y%(do%-1)=y%(see%-1) 4150IFdr%=I%:PROCpointbed 4160ENDPROC 4170 4180DEFPROCpointtomap 4190see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 4200PROCsavebgrd(1100,220,118,112,"h0bg1"):PROCsavebgrd(1100,220,118,112,"h0bg2"):x%()=1100:y%()=220 4210SYS"OS_Byte",21,9:MOUSE RECTANGLE 0,140,1200,760:MOUSE TO 1100,220 4220*FX15 4230PROCcachesound("fxboing",1) 4240REPEAT 4250 PROCcheckkeyevent 4260 SYS"OS_Byte",21,9:MOUSE mx%,my%,mbut% 4270 SYS"OS_SpriteOp",&122,sparea%,"h0bg"+STR$(do%),x%(do%-1),y%(do%-1),8 4280 x%(do%-1)=mx%:y%(do%-1)=my%:PROCsavebgrd(x%(do%-1),y%(do%-1),118,112,"h0bg"+STR$(do%)) 4290 SYS"OS_SpriteOp",&134,butarea%,"h0",x%(do%-1),y%(do%-1),8,scale%,0 4300 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 4310 IFmbut%=4:dr%=FNonmap:ELSE:dr%=0 4320UNTILdr% 4330PROCscrcopy(see%,do%):SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958; 4340PROCmakecupboard(0) 4350SYS"OS_SpriteOp",&134,butarea%,"elfhead0",20,56,8,scale%,0:PROCspeechbox(240,8,820,172,1,-1,48,-1) 4360usualpos%=-1:PROCwords(240,108,-1,3,-1,820,"Good."):SYS"OS_SpriteOp",&134,sparea%,"scroll",480,16,8,scale%,0 4370SOUND 1,&17F,1,1 4380PROCmergescr21(4):PROCbookgoon(1080,12,&01,-1,0) 4390ENDPROC 4400 4410DEFPROCknockondoor 4420see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 4430PROCsavebgrd(1100-84,220-56,118,112,"h0bg1"):PROCsavebgrd(1100-84,220-56,118,112,"h0bg2"):x%()=(1100-84):y%()=(220-56) 4440SYS"OS_Byte",21,9:MOUSE RECTANGLE 0,0,1200,958:MOUSE TO 1100,220 4450*FX15 4460REPEAT 4470 PROCcheckkeyevent 4480 SYS"OS_Byte",21,9:MOUSE mx%,my%,mbut% 4490 IF(mbut%=4)AND(bluewords%>0):PROCelffade(FNonblue) 4500 SYS"OS_SpriteOp",&122,sparea%,"h0bg"+STR$(do%),x%(do%-1),y%(do%-1),8 4510 x%(do%-1)=mx%-84:y%(do%-1)=my%-56:PROCsavebgrd(x%(do%-1),y%(do%-1),118,112,"h0bg"+STR$(do%)) 4520 SYS"OS_SpriteOp",&134,sparea%,"fist0",x%(do%-1),y%(do%-1),8,scale%,0 4530 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 4540 IFmbut%=4:dr%=FNonadoor:ELSE:dr%=-1 4550UNTILdr%>=0 4560PROCscrcopy(see%,do%):SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;196;:PROCmergescr21(4) 4570SYS"OS_SpriteOp",&119,sparea%,"h0bg"+STR$(do%):SYS"OS_SpriteOp",&11B,sparea%,"h0bg"+STR$(see%),"h0bg"+STR$(do%) 4580x%(do%-1)=x%(see%-1):y%(do%-1)=y%(see%-1) 4590IFdr%=I%:PROCknockbed:ELSE:PROCknockcup 4600ENDPROC 4610 4620DEFFNonadoor 4630LOCAL j% 4640mx%-=84:my%-=56 4650FORj%=0TO1 4660 IF(mx%>=442+(416*j%))AND(mx%<=630+(416*j%)) THEN 4670 IF(my%>=416)AND(my%<=652)THEN:mx%+=84:my%+=56:=j% 4680 IF(my%>=652)AND(my%<=748)THEN 4690 IF(mx%<=536+(416*j%)) THEN 4700 IF(my%-652)<=(mx%-442-(416*j%)) THEN:mx%+=84:my%+=56:=j% 4710 ELSE 4720 IF(my%-652)<=(630+(416*j%)-mx%) THEN:mx%+=84:my%+=56:=j% 4730 ENDIF 4740 ENDIF 4750 ENDIF 4760NEXT 4770mx%+=84:my%+=56 4780=-1 4790 4800DEFFNonadoor2 4810LOCAL j% 4820my%-=104 4830FORj%=0TO1 4840 IF(mx%>=466+(416*j%))AND(mx%<=702+(416*j%))AND(my%>=360)AND(my%<=732)THEN:my%+=104:=j% 4850NEXT 4860my%+=104 4870=-1 4880 4890DEFFNonmap 4900IF(mx%>=572)AND(mx%<=900)AND(my%>=424)AND(my%<=492)THEN:=-1 4910=0 4920 4930DEFPROCknock 4940LOCAL j% 4950see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 4960lasttime%=TIME 4970PROCcachesound("fxknock",1) 4980FORj%=1TO6 4990 SYS"OS_SpriteOp",&122,sparea%,"h0bg"+STR$(do%),x%(do%-1),y%(do%-1),8 5000 SYS"OS_SpriteOp",&134,sparea%,"fist"+STR$(j%MOD2),x%(do%-1),y%(do%-1),8,scale%,0 5010 REPEAT:UNTIL TIME>lasttime%+60 5020 IF(j%MOD2)=0:SOUND 1,&17F,1,1 5030 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 5040NEXT 5050SYS"OS_SpriteOp",&122,sparea%,"h0bg"+STR$(do%),x%(do%-1),y%(do%-1),8 5060REPEAT:UNTIL TIME>lasttime%+60 5070see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 5080PROCscrcopy(see%,do%) 5090ENDPROC 5100 5110DEFPROCknockbed 5120PROCknock:PROCcachesound("fxcomein",1) 5130PROCwait(50):SOUND 1,&17F,1,1 5140ENDPROC 5150 5160DEFPROCmakecupboard(scroll%) 5170SYS"OS_SpriteOp",&134,sparea%,"cupboard",336,220,8,scale%,0:IFscroll%:SYS"OS_SpriteOp",&134,sparea%,"scroll",578,528,8,scale%,0 5180SYS"OS_SpriteOp",&134,sparea%,"spade",830,220,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"fork",758,220,8,scale%,0 5190ENDPROC 5200 5210DEFPROCloadcupboard 5220PROCloadunsquash(sparea%,spareasiz%-(11*1024),"ONE.spfiles.cupboard") 5230masksp%()=4:masksp$(0)="scroll":masksp$(1)="fork":masksp$(2)="spade":PROCmasksprite(sparea%,3) 5240ENDPROC 5250 5260DEFPROCloadthrone 5270PROCloadunsquash(sparea%,spareasiz%-(11*1024),"ONE.spfiles.throneroom") 5280masksp%()=12:FORj%=0TO1:masksp$(j%)="fist"+STR$(j%):NEXT:masksp$(2)="elfst0":PROCmasksprite(sparea%,3) 5290ENDPROC 5300 5310DEFPROCloadcastlego 5320LOCAL j%,k% 5330PROCloadunsquash(sparea%,spareasiz%-(11*1024),"ONE.spfiles.castlego") 5340masksp%()=12:FORj%=0TO2:FORk%=0TO1:masksp$(j%+(3*k%))="e"+STR$(j%)+STR$(k%):NEXT:NEXT:masksp$(6)="q0":masksp$(7)="q1":PROCmasksprite(sparea%,8) 5350ENDPROC 5360 5370DEFPROCloadbedroom 5380sparea4%=sparea%+spareasiz%-(11*1024)-(52*1024):!sparea4%=52*1024:sparea4%!8=16 5390SYS "OS_SpriteOp",&109,sparea4% 5400PROCloadunsquash(sparea4%,52*1024,"ONE.spfiles.bedroom") 5410!sparea%=spareasiz%-(11*1024)-(52*1024):sparea%!8=16 5420SYS "OS_SpriteOp",&109,sparea% 5430PROCloadunsquash(sparea%,spareasiz%-(11*1024)-(52*1024),"ONE.spfiles.bedrest") 5440SYS "OS_SpriteOp",&119,sparea%,"keyes0":SYS "OS_SpriteOp",&119,sparea%,"keyes1" 5450masksp%()=10:masksp%(9)=4:masksp%(10)=4:masksp%(11)=12 5460RESTORE +0 5470DATA curttop,curtain,photo0,photo1,safe,gbod0,bbod0,elfst0,point 5480FORj%=0TO3:masksp$(j%)="crown"+STR$(j%):NEXT:FORj%=4TO12:READ masksp$(j%):NEXT:PROCmasksprite(sparea%,13) 5490ENDPROC 5500 5510DEFPROCloadelf 5520sparea3%=sparea%+spareasiz%-(11*1024):!sparea3%=11*1024:sparea3%!8=16 5530SYS "OS_SpriteOp",&109,sparea3% 5540PROCloadunsquash(sparea3%,11*1024,"ONE.spfiles.elf") 5550masksp%()=12:masksp$(0)="elfside":FORj%=0TO3:masksp$(j%+1)="ew"+STR$(j%):NEXT:PROCmasksprite(sparea3%,5) 5560ENDPROC 5570 5580DEFPROCknockcup 5590PROCknock:SYS "OS_Byte",112,2 5600usualpos%=0:PROCwords_box(2,"16,17","","No "+on$+"answer"+off$+". "+on$+"Shall "+off$+"I go in?","",180,724,2,0,260) 5610PROCmergescr21(4):eyes%(0,0)=220:eyes%(0,1)=640:eeyes%=-1:PROCbmyn(1080,12,&100008,-1,0) 5620SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&122,sparea%,"boxbg",180,724,8:SYS"OS_SpriteOp",&122,sparea%,"arrbg",260,628,8 5630PROCmergescr21(4) 5640IFchosen%<>0 THEN 5650 PROCloadcupboard 5660 SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakecupboard(-1) 5670 PROCmergescr21(10):SYS "OS_Byte",112,2 5680 SYS"OS_SpriteOp",&134,butarea%,"elfhead0",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 5690 usualpos%=-1:PROCwords_read(1,"18"):PROCwords_say("It is a "+on$+"cupboard"+off$+".","") 5700 PROCmergescr21(4):eyes%(0,0)=220:eyes%(0,1)=640:eeyes%=-1:PROCbookgoon(1080,12,&01,-1,0) 5710 PROCloadthrone:SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958; 5720 SYS"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*33),200,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"doors",1232-(26*33),200,8,scale%,0 5730 PROCelf(94,388,3):PROCfade(0,960,0,2,40,"fade") 5740ENDIF 5750SYS "OS_Byte",112,2:SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:PROCspeechbox(240,8,820,108,1,-1,48,-1) 5760PROCwords_read(2,"14,15"):usualpos%=-1:PROCwords_say("Click to "+on$+"knock "+off$+"on a "+on$+"door"+off$+".","") 5770PROCmergescr21(4) 5780ENDPROC 5790 5800DEFPROCreloadvalley 5810PROCloadvalley 5820sparea3%=sparea%+spareasiz%-(132*1024):!sparea3%=132*1024:sparea3%!8=16 5830SYS "OS_SpriteOp",&109,sparea3% 5840PROCloadunsquash(sparea3%,132*1024,"ONE.spfiles.cascavcot") 5850ENDPROC 5860 5870DEFPROCwaves 5880bl%+=1:IFbl%=2:bl%=0:animpause%(10)=80 5890SYS"OS_SpriteOp",&134,sparea%,"portcull",490,332,8,scale%,0 5900SYS"OS_SpriteOp",&134,sparea%,"q"+STR$(bl%),548,344,8,scale%,0 5910FORj%=0TO2:SYS"OS_SpriteOp",&134,sparea%,"e"+STR$(j%)+STR$(bl%),600+(40*j%)+(10*INT(j%/2)),436,8,scale%,0:NEXT 5920achange%=-1:donechange%(10)=-1:animtime%(10)=-1 5930ENDPROC 5940 5950DEFPROCcopywaves 5960PROCscrcopyblockpix(548,344,48,72,see%,do%,-1) 5970PROCscrcopyblockpix(600,436,136,72,see%,do%,-1) 5980ENDPROC 5990 6000DEFPROCqueenblink 6010qbl%+=1:IFqbl%=2:qbl%=0:animpause%(12)=200+(50*RND(6)):ELSE:animpause%(12)=10 6020SYS"OS_SpriteOp",&134,sparea%,"qeyes"+STR$(qbl%),602,652,8,scale%,0 6030achange%=-1:donechange%(12)=-1:animtime%(12)=-1 6040ENDPROC 6050 6060DEFPROCcopyqueenbl 6070PROCscrcopyblockpix(602,652,74,28,see%,do%,-1) 6080ENDPROC 6090 6100DEFPROCqtear 6110qbl%+=1 6120IFqbl%=8THEN 6130 qbl%=0:animpause%(13)=200+(50*RND(6)) 6140ELSE 6150 IFqbl%=1:animpause%(13)=200:ELSE:animpause%(13)=10 6160ENDIF 6170IFqbl%=1THEN 6180 SYS"OS_SpriteOp",&134,sparea%,"qeyes2",602,652,8,scale%,0 6190ELSE 6200 IFqbl%=2:SYS"OS_SpriteOp",&134,sparea%,"qeyes1",602,652,8,scale%,0:ELSE:SYS"OS_SpriteOp",&134,sparea%,"qeyes0",602,652,8,scale%,0 6210ENDIF 6220IFqbl%<=1THEN 6230 SYS"OS_SpriteOp",&134,sparea%,"qtear",620,476,8,scale%,0 6240ELSE 6250 IFqbl%>1:SYS"OS_SpriteOp",&134,sparea%,"qtear"+STR$(qbl%-2),620,476,8,scale%,0 6260ENDIF 6270achange%=-1:donechange%(13)=-1:animtime%(13)=-1 6280ENDPROC 6290 6300DEFPROCcopyqtear 6310PROCscrcopyblockpix(602,476,74,204,see%,do%,-1) 6320ENDPROC 6330 6340DEFPROCmagicusers 6350LOCAL j%,k% 6360PROCsavebgrd(320,196,220,420,"userbg0"):PROCsavebgrd(736,196,220,420,"userbg1"):see%=1:do%=2:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME-100 6370PROCcachesound("fxjing3",1) 6380FORl%=0TO20 6390 SYS "OS_SpriteOp",&122,sparea%,"userbg0",320,196,8:SYS "OS_SpriteOp",&122,sparea%,"userbg1",736,196,8 6400 IFl%>=10THEN 6410 SYS"OS_SpriteOp",&134,sparea%,"gbod0",352,204,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"bbod0",770,204,8,scale%,0 6420 ENDIF 6430 FORsayx%=336TO752STEP416 6440 FORsayy%=204TO460STEP128 6450 PROCplotstars 6460 IF(sayx%<>752)OR(sayy%<>460) THEN 6470 FORj%=0TO31 6480 IFst%(j%,3)THEN 6490 IFst%(j%,4)>0:st%(j%,4)-=1:ELSE:st%(j%,4)=8 6500 ENDIF 6510 NEXT 6520 ENDIF 6530 NEXT 6540 NEXT 6550 REPEAT:UNTIL TIME>=lasttime%+10 6560 IF FNnosound AND (l%<14):SOUND 1,&17F,1,1 6570 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do%:lasttime%=TIME 6580NEXT 6590PROCscrcopy(see%,do%) 6600SYS "OS_Byte",112,2:VDU18,0,3:VDU25,4,0;0;:VDU25,101,1278;958;:PROCmakebedroom(604,0,2) 6610PROCelf(94,188,3) 6620SYS"OS_SpriteOp",&134,sparea%,"gbod0",352,204,8,scale%,0:SYS"OS_SpriteOp",&134,sparea%,"bbod0",770,204,8,scale%,0 6630PROCmergescr21(4) 6640ENDPROC 6650 6660DEFPROCgblink 6670geyes%+=1 6680IFgeyes%=2:geyes%=0:animpause%(19)=200+(50*RND(6)):ELSE:animpause%(19)=10 6690SYS"OS_SpriteOp",&134,sparea%,"geyes"+STR$(geyes%),eyes%(2,0),eyes%(2,1),8,scale%,0 6700achange%=-1:donechange%(19)=-1:animtime%(19)=-1 6710ENDPROC 6720 6730DEFPROCcopygblink 6740PROCscrcopyblockpix(eyes%(2,0),eyes%(2,1),74,28,see%,do%,-1) 6750ENDPROC 6760 6770DEFPROCbblink 6780beyes%+=1 6790IFbeyes%=2:beyes%=0:animpause%(18)=200+(50*RND(6)):ELSE:animpause%(18)=10 6800SYS"OS_SpriteOp",&134,sparea%,"beyes"+STR$(beyes%),eyes%(1,0),eyes%(1,1),8,scale%,0 6810achange%=-1:donechange%(18)=-1:animtime%(18)=-1 6820ENDPROC 6830 6840DEFPROCcopybblink 6850PROCscrcopyblockpix(eyes%(1,0),eyes%(1,1),74,20,see%,do%,-1) 6860ENDPROC 6870 6880DEFPROCelfblink 6890eeyes%+=1 6900IFeeyes%=2:eeyes%=0:animpause%(17)=200+(50*RND(6)):ELSE:animpause%(17)=10 6910SYS"OS_SpriteOp",&134,sparea%,"elfeyes"+STR$(eeyes%),eyes%(0,0),eyes%(0,1),8,scale%,0 6920achange%=-1:donechange%(17)=-1:animtime%(17)=-1 6930ENDPROC 6940 6950DEFPROCcopyelfblink 6960PROCscrcopyblockpix(eyes%(0,0),eyes%(0,1),74,16,see%,do%,-1) 6970ENDPROC 6980 6990DEFPROCelfblink2 7000eeyes%+=1 7010IFeeyes%=2:eeyes%=0:animpause%(20)=200+(50*RND(6)):ELSE:animpause%(20)=10 7020SYS"OS_SpriteOp",&134,sparea3%,"jeye"+STR$(eeyes%),eyes%(0,0),eyes%(0,1),8,scale%,0 7030achange%=-1:donechange%(20)=-1:animtime%(20)=-1 7040ENDPROC 7050 7060DEFPROCcopyelfblink2 7070PROCscrcopyblockpix(eyes%(0,0),eyes%(0,1),18,20,see%,do%,-1) 7080ENDPROC 7090 7100 7110DEFPROCfademag 7120PROCfade(0,960,0,2,40,"fade"):PROCbookgoon(1080,12,&01,-1,-1):SYS "OS_Byte",112,2 7130ENDPROC 7140 7150DEFPROCgoin 7160SYS "OS_Byte",112,2:PROCwords(240,40,-1,3,-1,820,"Do you want to go in?") 7170PROCmergescr21(2):PROCbmyn(1080,12,%1000,0,-1) 7180ENDPROC 7190 7200DEFPROCplotvalley 7210SYS "OS_Byte",112,2 7220SYS"OS_SpriteOp",&134,sparea%,"valley",0,0,8,scale%,0 7230SYS"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0 7240ENDPROC 7250 7260DEFPROCmagloop 7270chosen%=-1:see%=1:do%=2:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 7280PROCsavebgrd(600,500,62,60,"magbg1"):PROCsavebgrd(600,500,62,60,"magbg2"):x%()=600:y%()=500:mag%=0 7290SYS"OS_Byte",21,9:MOUSE RECTANGLE 0,168,1218,732:MOUSE TO 600,500 7300*FX15 7310birdtime%=TIME+200:firsttime%=TIME 7320REPEAT 7330 PROCcheckkeyevent 7340 MOUSE mx%,my%,mbut% 7350 SYS"OS_SpriteOp",&122,sparea%,"magbg"+STR$(do%),x%(do%-1),y%(do%-1),8 7360 x%(do%-1)=mx%:y%(do%-1)=my%:PROCsavebgrd(x%(do%-1),y%(do%-1),62,60,"magbg"+STR$(do%)) 7370 ccc%=FNoncastle 7380 IF(ccc%>0)AND(TIME>(firsttime%+200)) THEN 7390 mag%=1:PROCcachesound("fxboing",1):SOUND 1,&17F,1,1 7400 ELSE 7410 mag%=0 7420 ENDIF 7430 SYS"OS_SpriteOp",&134,sparea%,"mag"+STR$(mag%),mx%,my%,8,scale%,0 7440 see%=%100>>>see%:do%=%100>>>do%:WAIT:SYS "OS_Byte",113,see%:SYS "OS_Byte",112,do% 7450 IFTIME>birdtime% THEN:bi%=RND(2):PROCcachesound("fxbird"+STR$(bi%),1):SOUND 1,&17F-(&10*(bi%MOD2)),1,1:birdtime%=TIME+500+(100*RND(6)) 7460 IFmag%=1:chosen%=0 7470UNTILchosen%=0 7480PROCscrcopy(see%,do%):PROCplotvalley 7490SYS"OS_SpriteOp",&134,sparea%,"mag"+STR$(mag%),mx%,my%,8,scale%,0 7500magx%=mx%:magy%=my% 7510PROCspeechbox(240,8,820,108,1,-1,48,-1):PROCmousefull 7520ENDPROC 7530 7540 7550DEFFNoncastle 7560REM castle=1,cave=2,cottage=3 7570IF(mx%<=(c%(X%,0)+200))AND(mx%>=c%(X%,0))AND(my%<=(c%(X%,1)+200))AND(my%>=c%(X%,1))THEN:=1 7580=0 7590 7600DEFFNreadsysvar(a$) 7610LOCAL p% 7620SYS "OS_ReadVarVal",a$,blk%,80,0,0 TO ,,a%:a$="":FORp%=0TOa%-1:a$+=CHR$(blk%?p%):NEXT 7630=a$ 7640 7650DEFPROCspecificcopy(j%) 7660CASE j% OF 7670 WHEN 8:PROCbwcopyblink 7680 WHEN 9:IFL%=1010:PROCbwcopytail:ELSE:PROCcopybook 7690 WHEN 10:PROCcopywaves 7700 WHEN 12:PROCcopyqueenbl 7710 WHEN 13:PROCcopyqtear 7720 WHEN 17:PROCcopyelfblink 7730 WHEN 18:PROCcopybblink 7740 WHEN 19:PROCcopygblink 7750 WHEN 20:PROCcopyelfblink2 7760ENDCASE 7770ENDPROC 7780 7790DEFPROCspecificanim(j%) 7800CASE j% OF 7810 WHEN 8: PROCbwblink 7820 WHEN 9: PROCbwtail 7830 WHEN 10:PROCwaves 7840 WHEN 12:PROCqueenblink 7850 WHEN 13:PROCqtear 7860 WHEN 17:PROCelfblink 7870 WHEN 18:PROCbblink 7880 WHEN 19:PROCgblink 7890 WHEN 20:PROCelfblink2 7900ENDCASE 7910ENDPROC 7920 7930DEFPROCinitialise 7940SYS &46181,R%,"<ElfK$chaindir>.ONE.SPackFile",32 7950Z%=VAL(FNreadsysvar("ElfK$task1")) 7960DIM c%(8,1),eyes%(2,1),ew%(3,1),bw%(7),bh%(7,1) 7970DIM sppalet% 128 7980RESTORE +0 7990DATA 1020,576,928,592,802,620,608,600,484,620,394,640,210,600,28,572,204,580 8000FORj%=0TO8:FORk%=0TO1:READ c%(j%,k%):NEXT:NEXT 8010RESTORE +0 8020DATA 0,52,6,48,2,52,0,56 8030FORj%=0TO3:FORk%=0TO1:READ ew%(j%,k%):NEXT:NEXT 8040RESTORE +0 8050DATA 0,-26,-26,-10,0,-24,-22,-8 8060FORj%=0TO7:READ bw%(j%):NEXT 8070RESTORE +0 8080DATA -14,244,18,240,12,244,0,248,-14,244,18,240,12,244,0,248 8090FORj%=0TO7:FORk%=0TO1:READ bh%(j%,k%):NEXT:NEXT 8100REM say blue words 8110RESTORE +0 8120REM 0 8130DATA words,words,"16,520" 8140DATA blue,blue,"28,50" 8150DATA orange,orange,"16,120" 8160DATA green,green,"22,40" 8170DATA story,story,"26,240" 8180DATA Elves,elves,"18,120" 8190DATA live,live,"18,40" 8200DATA queen,queen,"16,540" 8210DATA knock,knock,"34,20" 8220DATA door,door,"20,20" 8230REM 10 8240DATA answer,answer,"24,120" 8250DATA Shall,shall,"24,10" 8260DATA cupboard,cupboard,"16,2320" 8270DATA curtains,curtains,"20,240" 8280DATA missing,missing,"16,3240" 8290DATA found,found,"14,1520" 8300DATA dungeon,dungeon,"22,120" 8310DATA swap,swap,"12,52320" 8320DATA crowns,crowns,"16,1520" 8330DATA Hairy,hairy,"20,140" 8340REM 20 8350DATA Gang,gang,"34,10" 8360DATA Please,please,"24,40" 8370DATA rescue,rescue,"30,250" 8380DATA "Thank you",thankyou,"30,150" 8390DATA castle,castle,"20,120" 8400DATA leave,leave,"30,40" 8410FORj%=0TO25 8420 FORk%=0TO2:READ say$(j%,k%):NEXT 8430NEXT 8440RESTORE +0 8450REM 0 8460DATA 946,680,0 8470DATA 952,600,0 8480DATA 816,680,0 8490DATA 714,680,1 8500DATA 716,680,2 8510REM 5 8520DATA 716,680,3 8530DATA 1054,732,4 8540DATA 486,40,5 8550DATA 614,40,6 8560DATA 876,680,0 8570REM 10 8580DATA 848,680,0 8590DATA 654,40,7 8600DATA 796,40,6 8610DATA 870,756,7 8620DATA 554,40,8 8630REM 15 8640DATA 804,40,9 8650DATA 316,752,10 8660DATA 496,756,11 8670DATA 602,40,12 8680DATA 686,40,13 8690REM 20 8700DATA 736,772,14 8710DATA 526,772,15 8720DATA 604,632,16 8730DATA 616,532,17 8740DATA 656,432,18 8750REM 25 8760DATA 552,232,19 8770DATA 682,232,20 8780DATA 876,772,15 8790DATA 498,772,21 8800DATA 410,348,21 8810REM 30 8820DATA 612,348,22 8830DATA 580,772,23 8840DATA 410,348,23 8850DATA 798,40,4 8860DATA 774,372,16 8870REM 35 8880DATA 788,312,24 8890DATA 702,40,9 8900DATA 424,40,25 8910 8920FORj%=0TO37 8930 FORk%=0TO1:READ say%(j%,k%):NEXT:READ say%(j%,4) 8940NEXT 8950FORj%=0TO37 8960 say%(j%,1)-=16:say%(j%,2)=say%(j%,0)+2+FNstringsize(say$(say%(j%,4),0)):say%(j%,3)=say%(j%,1)+16+52 8970NEXT 8980RESTORE +0 8990DATA &FFFFFF00,&FFFFFF00,&AAAAAA00,&AAAAAA00,&77777700,&77777700,&0,&0,&AA00,&AA00,&66FF00,&66FF00,&CCFF00,&CCFF00,&FF880000,&FF880000 9000DATA &EE000000,&EE000000,&FFFF0000,&FFFF0000,&99550000,&99550000,&FFCC9900,&FFCC9900,&881100,&881100,&BB0000,&BB0000,&EE2200,&EE2200,&BB770000,&BB770000 9010FORk%=0TO31 9020READ a% 9030sppalet%!(4*k%)=a% 9040NEXT 9050 9060firstexplore%=-1:firetime%=TIME 9070ENDPROC 9080 9090 9100
ț "<ElfK$chaindir>.elflib" �lib_initialise (�initialise 2 < �L%=1010 �:�bookworm:L%=1020 FD�L%=1020:�loadvalley:�valleyintro:�valleyexplore:�incast:L%=1030 P(�L%=1030:�loadelf:�inbedroom:L%=1040 Z dW%=(mx%<<16)�my% n x � "<ElfK$chaindir>.ONE.LINK" � �� � ���bookworm �� j%,k%,l%,ok% �<�loadunsquash(sparea%,spareasiz%,"ONE.spfiles.bookworm") ��masksp%()=12:masksp$(0)="book":masksp$(1)="bigworm":masksp$(2)="bwtail0":masksp$(3)="bwtail1":masksp$(4)="bwtail2":�masksprite(sparea%,5) �;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1279;958; ��j%=756�156�-200 �9 ș"OS_SpriteOp",&134,sparea%,"shelf",0,j%,8,scale%,0 � l%=-(4*�(5)) � � �@ �:k%=�(30)-1:� ((k%�10)<>(ok%�10))�((�(k%/5))<>(�(ok%/5))) ok%=k% � �k%<10:ș"OS_SpriteOp",&134,sparea%,"book0"+�(k%),l%,j%+20,8,scale%,0:�:ș"OS_SpriteOp",&134,sparea%,"book"+�(k%),l%,j%+20,8,scale%,0 �(k%>=0)�(k%<=9):l%+=64 " �(k%>=10)�(k%<=19):l%+=80 , �(k%>=20)�(k%<=29):l%+=48 6 � l%>=1280 @� J=ș"OS_SpriteOp",&134,sparea%,"bigworm",400,280,8,scale%,0 T&�savebgrd(666,356,66,104,"tailbg") ^=ș"OS_SpriteOp",&134,sparea%,"bwtail0",666,356,8,scale%,0 h:ș"OS_SpriteOp",&134,sparea%,"book",140,156,8,scale%,0 r6ș"OS_SpriteOp",&134,sparea%,"desk",0,0,8,scale%,0 |�mergescr21(10) ��wait(300) �ș "OS_Byte",112,2 �*�speechbox(600,536,660,280,1,0,580,-1) �6�words(640,700,-1,3,0,0,"Hello, I am a bookworm.") �:�words(640,596,-1,3,0,0,"Click on .") ��mergescr21(10):�initanim89 �4mboxle%=832:mboxlo%=564:mboxri%=1002:mboxhi%=652 �+�bookgoon(830,560,&301,0,-1):�initmouse �=ș "OS_Byte",112,2:�speechbox(600,536,660,332,1,0,580,-1) �=ș"OS_SpriteOp",&134,butarea%,"reader",660,692,8,scale%,0 �+�words(874,712,-1,3,0,0,"This is Lak.") �,�words(690,604,-1,3,0,0,"He is an elf.") ��mergescr21(2):�initanim89 5mboxle%=1000:mboxlo%=520:mboxri%=1260:mboxhi%=700 ,�bookgoon(1040,560,&301,0,-1):�initmouse ș "OS_Byte",112,2 &5�words(600,760,-1,3,-1,660,"Lak has put a spell") 01�words(600,680,-1,3,-1,660,"on some words .") :�mergescr21(2):�initanim89 D!�bookgoon(1040,560,&301,-1,0) N2sayx%=926:sayy%=640:bluewords%=1:blwords%(0)=2 X;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% b�cachesound("fxjing3",1) l�l%=0�20 v �clspeech �6 �words(600,760,-1,3,-1,660,"Lak has put a spell") �x �l%<11:�words(600,680,-1,3,-1,660,"on some words ."):�:�words(600,680,-1,3,-1,660,"on some "+on$+"words"+off$+" .") � �plotstars � �wait(10) � �l%=3:� 1,&17F,1,1 �R see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% �� �!�scrcopy(see%,do%):�wait(100) �;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% �G�words(600,600,-1,3,-1,660,"Click on ' "+on$+"words"+off$+" ' .") �J�mergescr21(2):see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% �E�words_read(2,"00,01"):doneablue%=0:loopexit%=1:�buttonloop(0,-1) �;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% 6ș"OS_SpriteOp",&134,sparea%,"desk",0,0,8,scale%,0 �clspeech:�mergescr21(4) ;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% 4�words(716,760,-1,3,0,0,"Lak will tell you the") *t�readsysvar("ElfK$wordcol")="5":�words(716,680,-1,3,0,0,on$+"blue words "+off$+"if you"):�words_read(2,"02,03") 4v�readsysvar("ElfK$wordcol")="7":�words(716,680,-1,3,0,0,on$+"orange words "+off$+"if you"):�words_read(2,"04,09") >v�readsysvar("ElfK$wordcol")="13":�words(716,680,-1,3,0,0,on$+"green words "+off$+"if you"):�words_read(2,"05,10") H-�words(716,600,-1,3,0,0,"click on them.") R<�mergescr21(2):�initanim89:�bookgoon(1040,560,&301,0,-1) \*ș "OS_Byte",112,2:�words_read(1,"06") fI�words(600,732,-1,3,-1,660,"Let me tell you a "+on$+"story"+off$+".") p�mergescr21(2):�initanim89 z!�bookgoon(1020,560,&301,0,-1) �� � ���loopexit �Ȏ loopexit% � � � 1:�doneablue%:animend%=-1 �K � 2:�(mx%>=340)�(mx%<=936)�(my%>=208)�(my%<=800)�(mbut%=4):animend%=-1 �� �� � ���initanim89 �0animpause%(8)=4:animpause%(9)=10:bl%=0:ta%=0 �� � ��bwblink bl%+=1 >�bl%=4:bl%=0:animpause%(8)=200+(50*�(6)):�:animpause%(8)=4 $�ș"OS_SpriteOp",&134,sparea%,"bweye"+�(bl%),422,436,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"bweye"+�(bl%),508,436,8,scale%,0 .1achange%=-1:donechange%(8)=-1:animtime%(8)=-1 8� B L��bwcopyblink V[�scrcopyblockpix(422,436,30,36,see%,do%,-1):�scrcopyblockpix(508,436,30,36,see%,do%,-1) `� j t��bwtail ~3ș"OS_SpriteOp",&122,sparea%,"tailbg",666,356,8 � ta%+=1 �?�ta%=4:ta%=0:animpause%(9)=200+(50*�(6)):�:animpause%(9)=10 ���ta%=3:ș"OS_SpriteOp",&134,sparea%,"bwtail1",666,356,8,scale%,0:�:ș"OS_SpriteOp",&134,sparea%,"bwtail"+�(ta%),666,356,8,scale%,0 �1achange%=-1:donechange%(9)=-1:animtime%(9)=-1 �� � ���bwcopytail �0�scrcopyblockpix(666,356,66,104,see%,do%,-1) �� � ���loadvalley �.!sparea%=spareasiz%-(66*1024):sparea%!8=16 !ș "OS_SpriteOp",&109,sparea% D�loadunsquash(sparea%,spareasiz%-(66*1024),"ONE.spfiles.valley") bmasksp%()=12:masksp$(0)="mag0"::masksp$(1)="mag1":masksp$(2)="maghandl":�masksprite(sparea%,3) ș "OS_Byte",112,2 (8ș"OS_SpriteOp",&134,sparea%,"valley",0,0,8,scale%,0 2� < F��valleyintro P�waterfall21(20) Z�wait(150) dC�cachesound("fxbird2",1):� 1,&17F,1,1:birdtime%=�+200+(50*�(6)) n�wait(100) xș "OS_Byte",112,2 �9ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0 �(�speechbox(240,8,820,108,1,-1,48,-1) �H�words_read(2,"07,08"):�words_say(on$+"Elves live"+off$+" here.","") ��mergescr21(10) �� � ���explorewords �(�speechbox(240,8,820,108,1,-1,48,-1) �F�words_read(0,"00"):�words_say("What is here? Move the .","") �:ș"OS_SpriteOp",&134,sparea%,"mouse",888,28,8,scale%,0 �� � ���valleyexplore � j% Isparea3%=sparea%+spareasiz%-(66*1024):!sparea3%=66*1024:sparea3%!8=16 "ș "OS_SpriteOp",&109,sparea3% "6�loadunsquash(sparea3%,66*1024,"ONE.spfiles.map0") ,*ș "OS_SpriteOp",&119,sparea3%,"qhead" 69masksp%()=4:masksp$(0)="map0":�masksprite(sparea3%,1) @ �bookgoon(1080,12,&01,-1,-1) J2ș"OS_Byte",112,2:�explorewords:�mergescr21(4) Tchoiceno%=0 ^� h �magloop rv ș"OS_SpriteOp",&134,sparea3%,"map0",32,212,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"maghandl",574,116,8,scale%,0 |f �words_read(2,"11,12"):�words_say("The elf king and "+on$+"queen live "+off$+"here.",""):�fademag � �goin �; �chosen%<>1:�plotvalley:�explorewords:�waterfall21(20) �� chosen%=1 �� � ���maskincast �� +0 �P� pond,fount3,pour3,pour4,pour5,pour6,waf3,waf4,spout,drip3,statue,mag0,mag1 �masksp%()=12:k%=0 ��j%=0�2:masksp$(k%)="fount"+�(j%):k%+=1:masksp$(k%)="pour"+�(j%):k%+=1:masksp$(k%)="waf"+�(j%):k%+=1:masksp$(k%)="drip"+�(j%):k%+=1:masksp$(k%)="bmag"+�(j%):k%+=1:� �8�j%=k%�k%+12:� masksp$(j%):�:�masksprite(sparea%,28) �� � ��elf(x%,y%,type%) Yș"OS_SpriteOp",&134,sparea3%,"elfside",x%+ew%(type%,0)+24,y%+ew%(type%,1),8,scale%,0 Mș"OS_SpriteOp",&134,sparea3%,"ew"+�(type%),x%+ew%(type%,0),y%,8,scale%,0 &� 0 :��incast D� j%,k% N�loadelf X.!sparea%=spareasiz%-(11*1024):sparea%!8=16 b!ș "OS_SpriteOp",&109,sparea% lG�loadthrone:ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958; v>ș"OS_SpriteOp",&134,sparea%,"throneroom",6,200,8,scale%,0 �-�fade(0,960,0,2,40,"fade"):lasttime%=�-40 �`�savebgrd(-192,388,182,316,"elfbg1"):�savebgrd(-192,388,182,316,"elfbg2"):x%()=-192:y%()=388 �Asee%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:k%=-1 ��cachesound("fxstep",1) ��j%=-192�68�26 � k%=(k%+1)�4 � �24,6;0;1278;958; �F ș"OS_SpriteOp",&122,sparea%,"elfbg"+�(do%),x%(do%-1),y%(do%-1),8 �U x%(do%-1)=j%:y%(do%-1)=388:�savebgrd(x%(do%-1),y%(do%-1),182,316,"elfbg"+�(do%)) � �elf(j%,388,k%) � �:� �>lasttime%+30 � �k%=1:� 1,&17F,1,1 �^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� � 7�26:�scrcopy(see%,do%):�wait(50):ș "OS_Byte",112,2 >ș"OS_SpriteOp",&134,sparea%,"throneroom",6,200,8,scale%,0 xș"OS_SpriteOp",&134,sparea%,"elfst0",128,388,8,scale%,0:ș"OS_SpriteOp",&134,butarea%,"elfhead0",116,588,8,scale%,0 */�mergescr21(4):�wait(50):ș "OS_Byte",112,2 4Kusualpos%=0:�words_box(0,"00","","Hello, I am Jek.","",180,724,2,0,260) >Y�mergescr21(4):eyes%(0,0)=170:eyes%(0,1)=652:eeyes%=-1:�bookgoon(1080,12,&20001,-1,0) Htș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",180,724,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",260,628,8 R��mergescr21(4):ș "OS_Byte",112,2:�words_box(1,"13","","I am looking for the king and "+on$+"queen"+off$+".","",180,724,2,0,260) \H�mergescr21(4):eeyes%=-1:�bookgoon(1080,12,&20001,-1,0):usualpos%=-1 fQș "OS_Byte",112,2:ș"OS_SpriteOp",&134,sparea%,"throneroom",6,200,8,scale%,0 p�elf(94,388,3) zU�mergescr21(4):�wait(100):see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% ��24,6;0;1278;958; ��cachesound("fxstep",1) ��j%=1�33 �� ș"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*j%),200,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"doors",1232-(26*j%),200,8,scale%,0 � �elf(94,388,(j%-1)�4) � �:� �>lasttime%+30 � �((j%-1)�4)=1:� 1,&17F,1,1 �^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� �� އș"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*33),200,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"doors",1232-(26*33),200,8,scale%,0 ��elf(94,388,3) ��:� �>lasttime%+40 �]see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� 7�26:�scrcopy(see%,do%):�wait(50):ș "OS_Byte",112,2 ^ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) c�words_read(2,"14,15"):�words_say("Click to "+on$+"knock "+off$+"on a "+on$+"door"+off$+".","") $�mergescr21(4):dr%=-1 .� 8 �knockondoor B�dr%=I% L� V `��inbedroom j�bedroom t� ~/ !sparea%=spareasiz%-(11*1024):sparea%!8=16 �" ș "OS_SpriteOp",&109,sparea% �H �loadthrone:ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958; �� ș"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*33),200,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"doors",1232-(26*33),200,8,scale%,0 � �fade(0,960,0,2,40,"fade") �r ș "OS_Byte",112,2:ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) �V usualpos%=-1:�words_read(1,"36"):�words_say("Click on a "+on$+"door"+off$+".","") � �mergescr21(4):�pointtodoor ��dr%=(1-I%) ��loadcupboard �Mș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makecupboard(-1) �&�mergescr21(10):ș "OS_Byte",112,2 �^ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) Gusualpos%=-1:�words_read(0,"00"):�words_say("Click on the map.","") �mergescr21(4) �pointtomap �castlego (� 2 <��castlego F� j%,k% P�loadcastlego Z;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958; d>ș"OS_SpriteOp",&134,sparea%,"portcull",490,332,8,scale%,0 n8ș"OS_SpriteOp",&134,sparea%,"q0",548,344,8,scale%,0 x`�j%=0�2:ș"OS_SpriteOp",&134,sparea%,"e"+�(j%)+"0",600+(40*j%)+(20*�(j%/2)),436,8,scale%,0:� ��mergescr21(4) �qș "OS_Byte",112,2:ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) �dusualpos%=-1:�words_read(1,"37"):�words_say("You "+on$+"leave "+off$+"to look for the king.","") �6�mergescr21(4):bl%=-1:�bookgoon(1080,12,&401,-1,0) �� � �(��makebedroom(photo%,safe%,curtain%) �� j% Ґș"OS_SpriteOp",&134,sparea4%,"bedroom",26,180,8,scale%,0:�j%=0�1:ș"OS_SpriteOp",&134,sparea%,"photo"+�(j%),44+(962*j%),photo%,8,scale%,0:� �B!scale%=curtain%:scale%!4=15*(K%!&F0):scale%!8=15:scale%!12=15 ��ș"OS_SpriteOp",&134,sparea%,"curtain",340,208,8,scale%,0:�flip(sparea%,"y","curtain"):ș"OS_SpriteOp",&134,sparea%,"curtain",638+(20*(15-curtain%)),208,8,scale%,0:�flip(sparea%,"y","curtain") �<!scale%=16:scale%!4=16*(K%!&F0):scale%!8=16:scale%!12=16 ��curtain%<>15 � , �18,0,3:�25,4,340;208;:�25,101,340;800; D �25,4,340+(20*curtain%)-2;208;:�25,101,340+(20*curtain%)-2;800; J �25,4,638+(20*(15-curtain%));208;:�25,101,638+(20*(15-curtain%));800; "$ �25,4,938;208;:�25,101,938;800; ,� 6=ș"OS_SpriteOp",&134,sparea%,"curttop",278,792,8,scale%,0 @w�safe%:ș"OS_SpriteOp",&134,sparea%,"safe",32,612,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"safe",994,612,8,scale%,0 J� T ^ ��bedroom h� j% r�loadbedroom |Rș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makebedroom(604,0,15) �"�mergescr21(10):lasttime%=�-40 �`�savebgrd(-192,188,182,316,"elfbg1"):�savebgrd(-192,188,182,316,"elfbg2"):x%()=-192:y%()=188 �Asee%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:k%=-1 ��cachesound("fxstep",1) ��j%=-192�94�26 � k%=(k%+1)�4 � �24,26;0;1250;958; �F ș"OS_SpriteOp",&122,sparea%,"elfbg"+�(do%),x%(do%-1),y%(do%-1),8 �U x%(do%-1)=j%:y%(do%-1)=188:�savebgrd(x%(do%-1),y%(do%-1),182,316,"elfbg"+�(do%)) � �elf(j%,188,k%) � �:� �>lasttime%+30 � �k%=1:� 1,&17F,1,1 �^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� � Eș"OS_SpriteOp",&122,sparea%,"elfbg"+�(do%),x%(do%-1),y%(do%-1),8 �elf(94,188,3) &]see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� 0-�26:�scrcopy(see%,do%):ș "OS_Byte",112,2 :^ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) D[usualpos%=-1:�words_read(1,"19"):�words_say("Click on the "+on$+"curtains"+off$+".","") Nj�mergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:anim%=&100000:loopexit%=2:�buttonloop(anim%,-1) XJș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;178;:�mergescr21(4) b;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% l'�24,340;208;940;958;:lasttime%=�-40 v�cachesound("fxswish",1) ��j%=14�2�-1 �. �makebedroom(604,0,j%):�:� �>lasttime%+40 � �j%=14:� 1,&17F,1,1 �R see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% �� �-�26:�scrcopy(see%,do%):ș "OS_Byte",112,2 �usualpos%=0 �R�words_box(1,"20","","The king is "+on$+"missing"+off$+".","",440,740,2,0,712) �b�mergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:qbl%=-1:�bookgoon(1080,12,&102001,-1,0) �tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",440,740,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",712,632,8 �t�mergescr21(4):ș "OS_Byte",112,2:�words_box(1,"21","","I "+on$+"found "+off$+"this letter.","",440,740,2,0,712) �b�mergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:qbl%=-1:�bookgoon(1080,12,&102001,-1,0) �tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",440,740,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",712,632,8 �mergescr21(4) sș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:ș"OS_SpriteOp",&134,sparea%,"paper",336,180,8,scale%,0 #�words_read(5,"22,23,24,25,26") 2�words(336,732,-1,3,-1,600,"We have the king") *@�words(336,632,-1,3,-1,600,"in our "+on$+"dungeon"+off$+".") 4A�words(336,532,-1,3,-1,600,"We will "+on$+"swap "+off$+"him") >D�words(336,432,-1,3,-1,600,"for all the "+on$+"crowns"+off$+".") H&�words(336,332,-1,3,-1,600,"From") R@�words(336,232,-1,3,-1,600,"The "+on$+"Hairy Gang"+off$+".") \E�mergescr21(4):whitebg%=0:�bookgoon(1080,12,&01,-1,0):whitebg%=-1 fQș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makebedroom(604,0,2) pvș"OS_SpriteOp",&134,sparea%,"elfst0",80,188,8,scale%,0:ș"OS_SpriteOp",&134,butarea%,"elfhead0",68,388,8,scale%,0 z� �# ș "OS_Byte",112,2:usualpos%=0 �+� NB bluewords% = 2 to cover both boxes �Y �words_box(2,"27,29","","The king must be "+on$+"found"+off$+".","",440,740,2,0,712) �X �words_box(2,"27,29","",on$+"Please "+off$+"will you help us?","",350,316,1,-1,356) �^ �mergescr21(4):eyes%(0,0)=122:eyes%(0,1)=452:eeyes%=-1:qbl%=-1:�bmyn(1080,12,&22008,-1,0) �R ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makebedroom(604,0,2) �w ș"OS_SpriteOp",&134,sparea%,"elfst0",80,188,8,scale%,0:ș"OS_SpriteOp",&134,butarea%,"elfhead0",68,388,8,scale%,0 � �mergescr21(4) � �chosen%=0� � ș "OS_Byte",112,2 �X �words_box(2,"28,30","",on$+"Please "+off$+"will you help us?","",440,740,2,0,712) �\ �words_box(2,"28,30","","We must "+on$+"rescue "+off$+"the king.","",350,316,1,-1,356) �_ �mergescr21(4):eyes%(0,0)=122:eyes%(0,1)=452:eeyes%=-1:qbl%=-1:�bmyn(1080,12,&22008,-1,0) S ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makebedroom(604,0,2) x ș"OS_SpriteOp",&134,sparea%,"elfst0",80,188,8,scale%,0:ș"OS_SpriteOp",&134,butarea%,"elfhead0",68,388,8,scale%,0 �mergescr21(4) $ � .� chosen%<>0 8+� NB bluewords% = 2 to cover both boxes B[ș "OS_Byte",112,2:�words_box(2,"31,32","",on$+"Thank you"+off$+".","",520,740,2,0,712) LI�words_box(2,"31,32","",on$+"Thank you"+off$+".","",350,316,1,-1,356) Va�mergescr21(4):eyes%(0,0)=122:eyes%(0,1)=452:eeyes%=-1:qbl%=-1:�bookgoon(1080,12,&22001,-1,0) `Qș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makebedroom(604,0,2) jJ�elf(94,188,3):ș"OS_SpriteOp",&134,sparea%,"point",262,316,8,scale%,0 t)�mergescr21(4):�wait(150):�magicusers ~qș "OS_Byte",112,2:ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) �_usualpos%=-1:�words_read(1,"33"):�words_say("Here you are in the "+on$+"story"+off$+".","") ��mergescr21(4) ��eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:eyes%(1,0)=810:eyes%(1,1)=504:beyes%=-1:eyes%(2,0)=392:eyes%(2,1)=496:geyes%=-1:qbl%=-1 �#�bookgoon(1080,12,&1C1001,-1,0) �;ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;176; ��usualpos%=0:�words_box(2,"34,35","","If the king is in a "+on$+"dungeon"+off$+",","he must be in a "+on$+"castle"+off$+".",350,286,1,-1,356) �b�mergescr21(4):eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:qbl%=-1:�bookgoon(1080,12,&1C1001,-1,0) �tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",350,286,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",282,356,8 ��mergescr21(4) �]ș "OS_Byte",112,2:usualpos%=0:�words_box(0,"00","","We need a map.","",350,316,1,-1,356) ��mergescr21(4) ��eyes%(0,0)=220:eyes%(0,1)=440:eeyes%=-1:eyes%(1,0)=810:eyes%(1,1)=504:beyes%=-1:eyes%(2,0)=392:eyes%(2,1)=496:geyes%=-1:qbl%=-1 #�bookgoon(1080,12,&1C1001,-1,0) tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",350,316,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",282,356,8 �mergescr21(4) � ( 2��pointbed <� j% F�loadbedroom PQș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makebedroom(604,0,2) Zl�mergescr21(4):ș "OS_Byte",112,2:usualpos%=0:�words_box(0,"00","","You need a map.","",440,740,2,0,712) d8�mergescr21(4):qbl%=-1:�bookgoon(1080,12,&1001,-1,0) n� x ���pointtodoor �;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% �t�savebgrd(1100-8,220-104,118,112,"h0bg1"):�savebgrd(1100-8,220-104,118,112,"h0bg2"):x%()=(1100-8):y%()=(220-104) �5ș"OS_Byte",21,9:ȗ ȓ 0,0,1200,958:ȗ � 1100,220 � *FX15 �� � �checkkeyevent �& ș"OS_Byte",21,9:ȗ mx%,my%,mbut% �0 �(mbut%=4)�(bluewords%>0):�elffade(�onblue) �E ș"OS_SpriteOp",&122,sparea%,"h0bg"+�(do%),x%(do%-1),y%(do%-1),8 �[ x%(do%-1)=mx%-8:y%(do%-1)=my%-104:�savebgrd(x%(do%-1),y%(do%-1),118,112,"h0bg"+�(do%)) �F ș"OS_SpriteOp",&134,butarea%,"h0",x%(do%-1),y%(do%-1),8,scale%,0 �R see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% $ �mbut%=4:dr%=�onadoor2:�:dr%=-1 �dr%>=0 ]�scrcopy(see%,do%):ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;196;:�mergescr21(4) "hș"OS_SpriteOp",&119,sparea%,"h0bg"+�(do%):ș"OS_SpriteOp",&11B,sparea%,"h0bg"+�(see%),"h0bg"+�(do%) ,-x%(do%-1)=x%(see%-1):y%(do%-1)=y%(see%-1) 6�dr%=I%:�pointbed @� J T��pointtomap ^;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% h^�savebgrd(1100,220,118,112,"h0bg1"):�savebgrd(1100,220,118,112,"h0bg2"):x%()=1100:y%()=220 r7ș"OS_Byte",21,9:ȗ ȓ 0,140,1200,760:ȗ � 1100,220 | *FX15 ��cachesound("fxboing",1) �� � �checkkeyevent �& ș"OS_Byte",21,9:ȗ mx%,my%,mbut% �E ș"OS_SpriteOp",&122,sparea%,"h0bg"+�(do%),x%(do%-1),y%(do%-1),8 �U x%(do%-1)=mx%:y%(do%-1)=my%:�savebgrd(x%(do%-1),y%(do%-1),118,112,"h0bg"+�(do%)) �F ș"OS_SpriteOp",&134,butarea%,"h0",x%(do%-1),y%(do%-1),8,scale%,0 �R see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% � �mbut%=4:dr%=�onmap:�:dr%=0 ��dr% �N�scrcopy(see%,do%):ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958; ��makecupboard(0) �bș"OS_SpriteOp",&134,butarea%,"elfhead0",20,56,8,scale%,0:�speechbox(240,8,820,172,1,-1,48,-1) lusualpos%=-1:�words(240,108,-1,3,-1,820,"Good."):ș"OS_SpriteOp",&134,sparea%,"scroll",480,16,8,scale%,0 � 1,&17F,1,1 .�mergescr21(4):�bookgoon(1080,12,&01,-1,0) &� 0 :��knockondoor D;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% Nt�savebgrd(1100-84,220-56,118,112,"h0bg1"):�savebgrd(1100-84,220-56,118,112,"h0bg2"):x%()=(1100-84):y%()=(220-56) X5ș"OS_Byte",21,9:ȗ ȓ 0,0,1200,958:ȗ � 1100,220 b *FX15 l� v �checkkeyevent �& ș"OS_Byte",21,9:ȗ mx%,my%,mbut% �0 �(mbut%=4)�(bluewords%>0):�elffade(�onblue) �E ș"OS_SpriteOp",&122,sparea%,"h0bg"+�(do%),x%(do%-1),y%(do%-1),8 �[ x%(do%-1)=mx%-84:y%(do%-1)=my%-56:�savebgrd(x%(do%-1),y%(do%-1),118,112,"h0bg"+�(do%)) �H ș"OS_SpriteOp",&134,sparea%,"fist0",x%(do%-1),y%(do%-1),8,scale%,0 �R see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% �# �mbut%=4:dr%=�onadoor:�:dr%=-1 ��dr%>=0 �]�scrcopy(see%,do%):ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;196;:�mergescr21(4) �hș"OS_SpriteOp",&119,sparea%,"h0bg"+�(do%):ș"OS_SpriteOp",&11B,sparea%,"h0bg"+�(see%),"h0bg"+�(do%) �-x%(do%-1)=x%(see%-1):y%(do%-1)=y%(see%-1) �!�dr%=I%:�knockbed:�:�knockcup �� ݤonadoor � j% mx%-=84:my%-=56 *�j%=0�1 4/ �(mx%>=442+(416*j%))�(mx%<=630+(416*j%)) � >1 �(my%>=416)�(my%<=652)�:mx%+=84:my%+=56:=j% H �(my%>=652)�(my%<=748)� R �(mx%<=536+(416*j%)) � \< �(my%-652)<=(mx%-442-(416*j%)) �:mx%+=84:my%+=56:=j% f � p< �(my%-652)<=(630+(416*j%)-mx%) �:mx%+=84:my%+=56:=j% z � � � � � �� �mx%+=84:my%+=56 �=-1 � �ݤonadoor2 �� j% �my%-=104 ��j%=0�1 �Q �(mx%>=466+(416*j%))�(mx%<=702+(416*j%))�(my%>=360)�(my%<=732)�:my%+=104:=j% �� �my%+=104 =-1 ݤonmap $5�(mx%>=572)�(mx%<=900)�(my%>=424)�(my%<=492)�:=-1 .=0 8 B��knock L� j% V;see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% `lasttime%=� j�cachesound("fxknock",1) t�j%=1�6 ~E ș"OS_SpriteOp",&122,sparea%,"h0bg"+�(do%),x%(do%-1),y%(do%-1),8 �O ș"OS_SpriteOp",&134,sparea%,"fist"+�(j%�2),x%(do%-1),y%(do%-1),8,scale%,0 � �:� �>lasttime%+60 � �(j%�2)=0:� 1,&17F,1,1 �^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� �� �Dș"OS_SpriteOp",&122,sparea%,"h0bg"+�(do%),x%(do%-1),y%(do%-1),8 ��:� �>lasttime%+60 �]see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� ��scrcopy(see%,do%) �� � ���knockbed $�knock:�cachesound("fxcomein",1) �wait(50):� 1,&17F,1,1 � (��makecupboard(scroll%) 2�ș"OS_SpriteOp",&134,sparea%,"cupboard",336,220,8,scale%,0:�scroll%:ș"OS_SpriteOp",&134,sparea%,"scroll",578,528,8,scale%,0 <rș"OS_SpriteOp",&134,sparea%,"spade",830,220,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"fork",758,220,8,scale%,0 F� P Z��loadcupboard dF�loadunsquash(sparea%,spareasiz%-(11*1024),"ONE.spfiles.cupboard") n_masksp%()=4:masksp$(0)="scroll":masksp$(1)="fork":masksp$(2)="spade":�masksprite(sparea%,3) x� � ���loadthrone �H�loadunsquash(sparea%,spareasiz%-(11*1024),"ONE.spfiles.throneroom") �^masksp%()=12:�j%=0�1:masksp$(j%)="fist"+�(j%):�:masksp$(2)="elfst0":�masksprite(sparea%,3) �� � ���loadcastlego �� j%,k% �F�loadunsquash(sparea%,spareasiz%-(11*1024),"ONE.spfiles.castlego") �~masksp%()=12:�j%=0�2:�k%=0�1:masksp$(j%+(3*k%))="e"+�(j%)+�(k%):�:�:masksp$(6)="q0":masksp$(7)="q1":�masksprite(sparea%,8) �� � ���loadbedroom Ssparea4%=sparea%+spareasiz%-(11*1024)-(52*1024):!sparea4%=52*1024:sparea4%!8=16 "ș "OS_SpriteOp",&109,sparea4% 9�loadunsquash(sparea4%,52*1024,"ONE.spfiles.bedroom") "8!sparea%=spareasiz%-(11*1024)-(52*1024):sparea%!8=16 ,!ș "OS_SpriteOp",&109,sparea% 6O�loadunsquash(sparea%,spareasiz%-(11*1024)-(52*1024),"ONE.spfiles.bedrest") @Qș "OS_SpriteOp",&119,sparea%,"keyes0":ș "OS_SpriteOp",&119,sparea%,"keyes1" J:masksp%()=10:masksp%(9)=4:masksp%(10)=4:masksp%(11)=12 T� +0 ^A� curttop,curtain,photo0,photo1,safe,gbod0,bbod0,elfst0,point hX�j%=0�3:masksp$(j%)="crown"+�(j%):�:�j%=4�12:� masksp$(j%):�:�masksprite(sparea%,13) r� | � ��loadelf �Isparea3%=sparea%+spareasiz%-(11*1024):!sparea3%=11*1024:sparea3%!8=16 �"ș "OS_SpriteOp",&109,sparea3% �5�loadunsquash(sparea3%,11*1024,"ONE.spfiles.elf") �`masksp%()=12:masksp$(0)="elfside":�j%=0�3:masksp$(j%+1)="ew"+�(j%):�:�masksprite(sparea3%,5) �� � ���knockcup ��knock:ș "OS_Byte",112,2 �uusualpos%=0:�words_box(2,"16,17","","No "+on$+"answer"+off$+". "+on$+"Shall "+off$+"I go in?","",180,724,2,0,260) �V�mergescr21(4):eyes%(0,0)=220:eyes%(0,1)=640:eeyes%=-1:�bmyn(1080,12,&100008,-1,0) �tș "OS_Byte",112,2:ș"OS_SpriteOp",&122,sparea%,"boxbg",180,724,8:ș"OS_SpriteOp",&122,sparea%,"arrbg",260,628,8 ��mergescr21(4) �chosen%<>0 � �loadcupboard N ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makecupboard(-1) &' �mergescr21(10):ș "OS_Byte",112,2 0c ș"OS_SpriteOp",&134,butarea%,"elfhead0",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) :W usualpos%=-1:�words_read(1,"18"):�words_say("It is a "+on$+"cupboard"+off$+".","") DW �mergescr21(4):eyes%(0,0)=220:eyes%(0,1)=640:eeyes%=-1:�bookgoon(1080,12,&01,-1,0) NH �loadthrone:ș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958; X� ș"OS_SpriteOp",&134,sparea%,"throneroom",6-(26*33),200,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"doors",1232-(26*33),200,8,scale%,0 b. �elf(94,388,3):�fade(0,960,0,2,40,"fade") l� vqș "OS_Byte",112,2:ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0:�speechbox(240,8,820,108,1,-1,48,-1) �p�words_read(2,"14,15"):usualpos%=-1:�words_say("Click to "+on$+"knock "+off$+"on a "+on$+"door"+off$+".","") ��mergescr21(4) �� � ���reloadvalley ��loadvalley �Ksparea3%=sparea%+spareasiz%-(132*1024):!sparea3%=132*1024:sparea3%!8=16 �"ș "OS_SpriteOp",&109,sparea3% �<�loadunsquash(sparea3%,132*1024,"ONE.spfiles.cascavcot") �� � ���waves �)bl%+=1:�bl%=2:bl%=0:animpause%(10)=80 >ș"OS_SpriteOp",&134,sparea%,"portcull",490,332,8,scale%,0 >ș"OS_SpriteOp",&134,sparea%,"q"+�(bl%),548,344,8,scale%,0 c�j%=0�2:ș"OS_SpriteOp",&134,sparea%,"e"+�(j%)+�(bl%),600+(40*j%)+(10*�(j%/2)),436,8,scale%,0:� 3achange%=-1:donechange%(10)=-1:animtime%(10)=-1 *� 4 >��copywaves H/�scrcopyblockpix(548,344,48,72,see%,do%,-1) R0�scrcopyblockpix(600,436,136,72,see%,do%,-1) \� f p��queenblink zKqbl%+=1:�qbl%=2:qbl%=0:animpause%(12)=200+(50*�(6)):�:animpause%(12)=10 �Cș"OS_SpriteOp",&134,sparea%,"qeyes"+�(qbl%),602,652,8,scale%,0 �3achange%=-1:donechange%(12)=-1:animtime%(12)=-1 �� � ���copyqueenbl �/�scrcopyblockpix(602,652,74,28,see%,do%,-1) �� � ���qtear �qbl%+=1 ��qbl%=8� �( qbl%=0:animpause%(13)=200+(50*�(6)) �� 3 �qbl%=1:animpause%(13)=200:�:animpause%(13)=10 � �qbl%=1� $= ș"OS_SpriteOp",&134,sparea%,"qeyes2",602,652,8,scale%,0 .� 8� �qbl%=2:ș"OS_SpriteOp",&134,sparea%,"qeyes1",602,652,8,scale%,0:�:ș"OS_SpriteOp",&134,sparea%,"qeyes0",602,652,8,scale%,0 B� L �qbl%<=1� V< ș"OS_SpriteOp",&134,sparea%,"qtear",620,476,8,scale%,0 `� jN �qbl%>1:ș"OS_SpriteOp",&134,sparea%,"qtear"+�(qbl%-2),620,476,8,scale%,0 t� ~3achange%=-1:donechange%(13)=-1:animtime%(13)=-1 �� � ���copyqtear �0�scrcopyblockpix(602,476,74,204,see%,do%,-1) �� � ���magicusers �� j%,k% ؘ�savebgrd(320,196,220,420,"userbg0"):�savebgrd(736,196,220,420,"userbg1"):see%=1:do%=2:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=�-100 ��cachesound("fxjing3",1) ��l%=0�20 �h ș "OS_SpriteOp",&122,sparea%,"userbg0",320,196,8:ș "OS_SpriteOp",&122,sparea%,"userbg1",736,196,8 �l%>=10� u ș"OS_SpriteOp",&134,sparea%,"gbod0",352,204,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"bbod0",770,204,8,scale%,0 � �sayx%=336�752�416 ( �sayy%=204�460�128 2 �plotstars <# �(sayx%<>752)�(sayy%<>460) � F �j%=0�31 P �st%(j%,3)� Z1 �st%(j%,4)>0:st%(j%,4)-=1:�:st%(j%,4)=8 d � n � x � � � � � � �:� �>=lasttime%+10 �& � �nosound � (l%<14):� 1,&17F,1,1 �^ see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do%:lasttime%=� �� ��scrcopy(see%,do%) �Qș "OS_Byte",112,2:�18,0,3:�25,4,0;0;:�25,101,1278;958;:�makebedroom(604,0,2) ��elf(94,188,3) �sș"OS_SpriteOp",&134,sparea%,"gbod0",352,204,8,scale%,0:ș"OS_SpriteOp",&134,sparea%,"bbod0",770,204,8,scale%,0 ��mergescr21(4) �� � ��gblink geyes%+=1 G�geyes%=2:geyes%=0:animpause%(19)=200+(50*�(6)):�:animpause%(19)=10 "Sș"OS_SpriteOp",&134,sparea%,"geyes"+�(geyes%),eyes%(2,0),eyes%(2,1),8,scale%,0 ,3achange%=-1:donechange%(19)=-1:animtime%(19)=-1 6� @ J��copygblink T=�scrcopyblockpix(eyes%(2,0),eyes%(2,1),74,28,see%,do%,-1) ^� h r��bblink | beyes%+=1 �G�beyes%=2:beyes%=0:animpause%(18)=200+(50*�(6)):�:animpause%(18)=10 �Sș"OS_SpriteOp",&134,sparea%,"beyes"+�(beyes%),eyes%(1,0),eyes%(1,1),8,scale%,0 �3achange%=-1:donechange%(18)=-1:animtime%(18)=-1 �� � ���copybblink �=�scrcopyblockpix(eyes%(1,0),eyes%(1,1),74,20,see%,do%,-1) �� � ���elfblink � eeyes%+=1 �G�eeyes%=2:eeyes%=0:animpause%(17)=200+(50*�(6)):�:animpause%(17)=10 �Uș"OS_SpriteOp",&134,sparea%,"elfeyes"+�(eeyes%),eyes%(0,0),eyes%(0,1),8,scale%,0 3achange%=-1:donechange%(17)=-1:animtime%(17)=-1 � &��copyelfblink 0=�scrcopyblockpix(eyes%(0,0),eyes%(0,1),74,16,see%,do%,-1) :� D N��elfblink2 X eeyes%+=1 bG�eeyes%=2:eeyes%=0:animpause%(20)=200+(50*�(6)):�:animpause%(20)=10 lSș"OS_SpriteOp",&134,sparea3%,"jeye"+�(eeyes%),eyes%(0,0),eyes%(0,1),8,scale%,0 v3achange%=-1:donechange%(20)=-1:animtime%(20)=-1 �� � ���copyelfblink2 �=�scrcopyblockpix(eyes%(0,0),eyes%(0,1),18,20,see%,do%,-1) �� � � � ��fademag �N�fade(0,960,0,2,40,"fade"):�bookgoon(1080,12,&01,-1,-1):ș "OS_Byte",112,2 �� � � ��goin �Iș "OS_Byte",112,2:�words(240,40,-1,3,-1,820,"Do you want to go in?") ,�mergescr21(2):�bmyn(1080,12,%1000,0,-1) � ��plotvalley *ș "OS_Byte",112,2 48ș"OS_SpriteOp",&134,sparea%,"valley",0,0,8,scale%,0 >9ș"OS_SpriteOp",&134,butarea%,"worm",20,56,8,scale%,0 H� R \ ��magloop fFchosen%=-1:see%=1:do%=2:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% p`�savebgrd(600,500,62,60,"magbg1"):�savebgrd(600,500,62,60,"magbg2"):x%()=600:y%()=500:mag%=0 z6ș"OS_Byte",21,9:ȗ ȓ 0,168,1218,732:ȗ � 600,500 � *FX15 � birdtime%=�+200:firsttime%=� �� � �checkkeyevent � ȗ mx%,my%,mbut% �F ș"OS_SpriteOp",&122,sparea%,"magbg"+�(do%),x%(do%-1),y%(do%-1),8 �T x%(do%-1)=mx%:y%(do%-1)=my%:�savebgrd(x%(do%-1),y%(do%-1),62,60,"magbg"+�(do%)) � ccc%=�oncastle �% �(ccc%>0)�(�>(firsttime%+200)) � �2 mag%=1:�cachesound("fxboing",1):� 1,&17F,1,1 � � � mag%=0 � � B ș"OS_SpriteOp",&134,sparea%,"mag"+�(mag%),mx%,my%,8,scale%,0 R see%=%100>>>see%:do%=%100>>>do%:Ȗ:ș "OS_Byte",113,see%:ș "OS_Byte",112,do% q �>birdtime% �:bi%=�(2):�cachesound("fxbird"+�(bi%),1):� 1,&17F-(&10*(bi%�2)),1,1:birdtime%=�+500+(100*�(6)) $ �mag%=1:chosen%=0 .�chosen%=0 8"�scrcopy(see%,do%):�plotvalley BAș"OS_SpriteOp",&134,sparea%,"mag"+�(mag%),mx%,my%,8,scale%,0 Lmagx%=mx%:magy%=my% V3�speechbox(240,8,820,108,1,-1,48,-1):�mousefull `� j t ~ݤoncastle �� castle=1,cave=2,cottage=3 �T�(mx%<=(c%(X%,0)+200))�(mx%>=c%(X%,0))�(my%<=(c%(X%,1)+200))�(my%>=c%(X%,1))�:=1 �=0 � �ݤreadsysvar(a$) �� p% �Nș "OS_ReadVarVal",a$,blk%,80,0,0 � ,,a%:a$="":�p%=0�a%-1:a$+=�(blk%?p%):� �=a$ � ���specificcopy(j%) �Ȏ j% � � � 8:�bwcopyblink ) � 9:�L%=1010:�bwcopytail:�:�copybook � 10:�copywaves � 12:�copyqueenbl � 13:�copyqtear ( � 17:�copyelfblink 2 � 18:�copybblink < � 19:�copygblink F � 20:�copyelfblink2 P� Z� d n��specificanim(j%) xȎ j% � � � 8: �bwblink � � 9: �bwtail � � 10:�waves � � 12:�queenblink � � 13:�qtear � � 17:�elfblink � � 18:�bblink � � 19:�gblink � � 20:�elfblink2 �� �� � ���initialise 3ș &46181,R%,"<ElfK$chaindir>.ONE.SPackFile",32 #Z%=�(�readsysvar("ElfK$task1")) 1� c%(8,1),eyes%(2,1),ew%(3,1),bw%(7),bh%(7,1) "� sppalet% 128 ,� +0 6M� 1020,576,928,592,802,620,608,600,484,620,394,640,210,600,28,572,204,580 @#�j%=0�8:�k%=0�1:� c%(j%,k%):�:� J� +0 T� 0,52,6,48,2,52,0,56 ^$�j%=0�3:�k%=0�1:� ew%(j%,k%):�:� h� +0 r � 0,-26,-26,-10,0,-24,-22,-8 |�j%=0�7:� bw%(j%):� �� +0 �=� -14,244,18,240,12,244,0,248,-14,244,18,240,12,244,0,248 �$�j%=0�7:�k%=0�1:� bh%(j%,k%):�:� �� say blue words �� +0 �� 0 �� words,words,"16,520" �� blue,blue,"28,50" �� orange,orange,"16,120" �� green,green,"22,40" �� story,story,"26,240" �� Elves,elves,"18,120" �� live,live,"18,40" � queen,queen,"16,540" � knock,knock,"34,20" � door,door,"20,20" &� 10 0� answer,answer,"24,120" :� Shall,shall,"24,10" D!� cupboard,cupboard,"16,2320" N � curtains,curtains,"20,240" X� missing,missing,"16,3240" b� found,found,"14,1520" l� dungeon,dungeon,"22,120" v� swap,swap,"12,52320" �� crowns,crowns,"16,1520" �� Hairy,hairy,"20,140" �� 20 �� Gang,gang,"34,10" �� Please,please,"24,40" �� rescue,rescue,"30,250" �#� "Thank you",thankyou,"30,150" �� castle,castle,"20,120" �� leave,leave,"30,40" ��j%=0�25 � �k%=0�2:� say$(j%,k%):� �� �� +0 !� 0 !� 946,680,0 !� 952,600,0 ! � 816,680,0 !*� 714,680,1 !4� 716,680,2 !>� 5 !H� 716,680,3 !R� 1054,732,4 !\� 486,40,5 !f� 614,40,6 !p� 876,680,0 !z� 10 !�� 848,680,0 !�� 654,40,7 !�� 796,40,6 !�� 870,756,7 !�� 554,40,8 !�� 15 !�� 804,40,9 !�� 316,752,10 !�� 496,756,11 !�� 602,40,12 !�� 686,40,13 !�� 20 !�� 736,772,14 "� 526,772,15 "� 604,632,16 "� 616,532,17 "$� 656,432,18 ".� 25 "8� 552,232,19 "B� 682,232,20 "L� 876,772,15 "V� 498,772,21 "`� 410,348,21 "j� 30 "t� 612,348,22 "~� 580,772,23 "�� 410,348,23 "�� 798,40,4 "�� 774,372,16 "�� 35 "�� 788,312,24 "�� 702,40,9 "�� 424,40,25 "� "��j%=0�37 "�) �k%=0�1:� say%(j%,k%):�:� say%(j%,4) "�� "��j%=0�37 #g say%(j%,1)-=16:say%(j%,2)=say%(j%,0)+2+�stringsize(say$(say%(j%,4),0)):say%(j%,3)=say%(j%,1)+16+52 # � #� +0 #�� &FFFFFF00,&FFFFFF00,&AAAAAA00,&AAAAAA00,&77777700,&77777700,&0,&0,&AA00,&AA00,&66FF00,&66FF00,&CCFF00,&CCFF00,&FF880000,&FF880000 #(�� &EE000000,&EE000000,&FFFF0000,&FFFF0000,&99550000,&99550000,&FFCC9900,&FFCC9900,&881100,&881100,&BB0000,&BB0000,&EE2200,&EE2200,&BB770000,&BB770000 #2�k%=0�31 #<� a% #Fsppalet%!(4*k%)=a% #P� #Z #d firstexplore%=-1:firetime%=� #n� #x #� #� �
00000000 0d 00 0a 04 0d 00 14 1f c8 9b 20 22 3c 45 6c 66 |.......... "<Elf| 00000010 4b 24 63 68 61 69 6e 64 69 72 3e 2e 65 6c 66 6c |K$chaindir>.elfl| 00000020 69 62 22 0d 00 1e 13 f2 6c 69 62 5f 69 6e 69 74 |ib".....lib_init| 00000030 69 61 6c 69 73 65 0d 00 28 0f f2 69 6e 69 74 69 |ialise..(..initi| 00000040 61 6c 69 73 65 0d 00 32 04 0d 00 3c 20 e7 4c 25 |alise..2...< .L%| 00000050 3d 31 30 31 30 20 8c 3a f2 62 6f 6f 6b 77 6f 72 |=1010 .:.bookwor| 00000060 6d 3a 4c 25 3d 31 30 32 30 0d 00 46 44 e7 4c 25 |m:L%=1020..FD.L%| 00000070 3d 31 30 32 30 3a f2 6c 6f 61 64 76 61 6c 6c 65 |=1020:.loadvalle| 00000080 79 3a f2 76 61 6c 6c 65 79 69 6e 74 72 6f 3a f2 |y:.valleyintro:.| 00000090 76 61 6c 6c 65 79 65 78 70 6c 6f 72 65 3a f2 69 |valleyexplore:.i| 000000a0 6e 63 61 73 74 3a 4c 25 3d 31 30 33 30 0d 00 50 |ncast:L%=1030..P| 000000b0 28 e7 4c 25 3d 31 30 33 30 3a f2 6c 6f 61 64 65 |(.L%=1030:.loade| 000000c0 6c 66 3a f2 69 6e 62 65 64 72 6f 6f 6d 3a 4c 25 |lf:.inbedroom:L%| 000000d0 3d 31 30 34 30 0d 00 5a 04 0d 00 64 14 57 25 3d |=1040..Z...d.W%=| 000000e0 28 6d 78 25 3c 3c 31 36 29 84 6d 79 25 0d 00 6e |(mx%<<16).my%..n| 000000f0 04 0d 00 78 20 d7 20 22 3c 45 6c 66 4b 24 63 68 |...x . "<ElfK$ch| 00000100 61 69 6e 64 69 72 3e 2e 4f 4e 45 2e 4c 49 4e 4b |aindir>.ONE.LINK| 00000110 22 0d 00 82 04 0d 00 8c 05 e0 0d 00 96 04 0d 00 |"...............| 00000120 a0 0e dd f2 62 6f 6f 6b 77 6f 72 6d 0d 00 aa 12 |....bookworm....| 00000130 ea 20 6a 25 2c 6b 25 2c 6c 25 2c 6f 6b 25 0d 00 |. j%,k%,l%,ok%..| 00000140 b4 3c f2 6c 6f 61 64 75 6e 73 71 75 61 73 68 28 |.<.loadunsquash(| 00000150 73 70 61 72 65 61 25 2c 73 70 61 72 65 61 73 69 |sparea%,spareasi| 00000160 7a 25 2c 22 4f 4e 45 2e 73 70 66 69 6c 65 73 2e |z%,"ONE.spfiles.| 00000170 62 6f 6f 6b 77 6f 72 6d 22 29 0d 00 be 8d 6d 61 |bookworm")....ma| 00000180 73 6b 73 70 25 28 29 3d 31 32 3a 6d 61 73 6b 73 |sksp%()=12:masks| 00000190 70 24 28 30 29 3d 22 62 6f 6f 6b 22 3a 6d 61 73 |p$(0)="book":mas| 000001a0 6b 73 70 24 28 31 29 3d 22 62 69 67 77 6f 72 6d |ksp$(1)="bigworm| 000001b0 22 3a 6d 61 73 6b 73 70 24 28 32 29 3d 22 62 77 |":masksp$(2)="bw| 000001c0 74 61 69 6c 30 22 3a 6d 61 73 6b 73 70 24 28 33 |tail0":masksp$(3| 000001d0 29 3d 22 62 77 74 61 69 6c 31 22 3a 6d 61 73 6b |)="bwtail1":mask| 000001e0 73 70 24 28 34 29 3d 22 62 77 74 61 69 6c 32 22 |sp$(4)="bwtail2"| 000001f0 3a f2 6d 61 73 6b 73 70 72 69 74 65 28 73 70 61 |:.masksprite(spa| 00000200 72 65 61 25 2c 35 29 0d 00 c8 3b c8 99 20 22 4f |rea%,5)...;.. "O| 00000210 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a ef 31 |S_Byte",112,2:.1| 00000220 38 2c 30 2c 33 3a ef 32 35 2c 34 2c 30 3b 30 3b |8,0,3:.25,4,0;0;| 00000230 3a ef 32 35 2c 31 30 31 2c 31 32 37 39 3b 39 35 |:.25,101,1279;95| 00000240 38 3b 0d 00 d2 14 e3 6a 25 3d 37 35 36 b8 31 35 |8;.....j%=756.15| 00000250 36 88 2d 32 30 30 0d 00 dc 39 20 c8 99 22 4f 53 |6.-200...9 .."OS| 00000260 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 00000270 73 70 61 72 65 61 25 2c 22 73 68 65 6c 66 22 2c |sparea%,"shelf",| 00000280 30 2c 6a 25 2c 38 2c 73 63 61 6c 65 25 2c 30 0d |0,j%,8,scale%,0.| 00000290 00 e6 11 20 6c 25 3d 2d 28 34 2a b3 28 35 29 29 |... l%=-(4*.(5))| 000002a0 0d 00 f0 06 20 f5 0d 00 fa 40 20 20 f5 3a 6b 25 |.... ....@ .:k%| 000002b0 3d b3 28 33 30 29 2d 31 3a fd 20 28 28 6b 25 83 |=.(30)-1:. ((k%.| 000002c0 31 30 29 3c 3e 28 6f 6b 25 83 31 30 29 29 80 28 |10)<>(ok%.10)).(| 000002d0 28 a8 28 6b 25 2f 35 29 29 3c 3e 28 a8 28 6f 6b |(.(k%/5))<>(.(ok| 000002e0 25 2f 35 29 29 29 0d 01 04 0c 20 20 6f 6b 25 3d |%/5))).... ok%=| 000002f0 6b 25 0d 01 0e 8b 20 20 e7 6b 25 3c 31 30 3a c8 |k%.... .k%<10:.| 00000300 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&| 00000310 31 33 34 2c 73 70 61 72 65 61 25 2c 22 62 6f 6f |134,sparea%,"boo| 00000320 6b 30 22 2b c3 28 6b 25 29 2c 6c 25 2c 6a 25 2b |k0"+.(k%),l%,j%+| 00000330 32 30 2c 38 2c 73 63 61 6c 65 25 2c 30 3a 8b 3a |20,8,scale%,0:.:| 00000340 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00000350 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 62 6f |&134,sparea%,"bo| 00000360 6f 6b 22 2b c3 28 6b 25 29 2c 6c 25 2c 6a 25 2b |ok"+.(k%),l%,j%+| 00000370 32 30 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 01 18 |20,8,scale%,0...| 00000380 1d 20 20 e7 28 6b 25 3e 3d 30 29 80 28 6b 25 3c |. .(k%>=0).(k%<| 00000390 3d 39 29 3a 6c 25 2b 3d 36 34 0d 01 22 1f 20 20 |=9):l%+=64..". | 000003a0 e7 28 6b 25 3e 3d 31 30 29 80 28 6b 25 3c 3d 31 |.(k%>=10).(k%<=1| 000003b0 39 29 3a 6c 25 2b 3d 38 30 0d 01 2c 1f 20 20 e7 |9):l%+=80..,. .| 000003c0 28 6b 25 3e 3d 32 30 29 80 28 6b 25 3c 3d 32 39 |(k%>=20).(k%<=29| 000003d0 29 3a 6c 25 2b 3d 34 38 0d 01 36 0f 20 fd 20 6c |):l%+=48..6. . l| 000003e0 25 3e 3d 31 32 38 30 0d 01 40 05 ed 0d 01 4a 3d |%>=1280..@....J=| 000003f0 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00000400 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 62 69 |&134,sparea%,"bi| 00000410 67 77 6f 72 6d 22 2c 34 30 30 2c 32 38 30 2c 38 |gworm",400,280,8| 00000420 2c 73 63 61 6c 65 25 2c 30 0d 01 54 26 f2 73 61 |,scale%,0..T&.sa| 00000430 76 65 62 67 72 64 28 36 36 36 2c 33 35 36 2c 36 |vebgrd(666,356,6| 00000440 36 2c 31 30 34 2c 22 74 61 69 6c 62 67 22 29 0d |6,104,"tailbg").| 00000450 01 5e 3d c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |.^=.."OS_SpriteO| 00000460 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00000470 22 62 77 74 61 69 6c 30 22 2c 36 36 36 2c 33 35 |"bwtail0",666,35| 00000480 36 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 01 68 3a |6,8,scale%,0..h:| 00000490 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 000004a0 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 62 6f |&134,sparea%,"bo| 000004b0 6f 6b 22 2c 31 34 30 2c 31 35 36 2c 38 2c 73 63 |ok",140,156,8,sc| 000004c0 61 6c 65 25 2c 30 0d 01 72 36 c8 99 22 4f 53 5f |ale%,0..r6.."OS_| 000004d0 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 000004e0 70 61 72 65 61 25 2c 22 64 65 73 6b 22 2c 30 2c |parea%,"desk",0,| 000004f0 30 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 01 7c 13 |0,8,scale%,0..|.| 00000500 f2 6d 65 72 67 65 73 63 72 32 31 28 31 30 29 0d |.mergescr21(10).| 00000510 01 86 0e f2 77 61 69 74 28 33 30 30 29 0d 01 90 |....wait(300)...| 00000520 16 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 |... "OS_Byte",11| 00000530 32 2c 32 0d 01 9a 2a f2 73 70 65 65 63 68 62 6f |2,2...*.speechbo| 00000540 78 28 36 30 30 2c 35 33 36 2c 36 36 30 2c 32 38 |x(600,536,660,28| 00000550 30 2c 31 2c 30 2c 35 38 30 2c 2d 31 29 0d 01 a4 |0,1,0,580,-1)...| 00000560 36 f2 77 6f 72 64 73 28 36 34 30 2c 37 30 30 2c |6.words(640,700,| 00000570 2d 31 2c 33 2c 30 2c 30 2c 22 48 65 6c 6c 6f 2c |-1,3,0,0,"Hello,| 00000580 20 49 20 61 6d 20 61 20 62 6f 6f 6b 77 6f 72 6d | I am a bookworm| 00000590 2e 22 29 0d 01 ae 3a f2 77 6f 72 64 73 28 36 34 |.")...:.words(64| 000005a0 30 2c 35 39 36 2c 2d 31 2c 33 2c 30 2c 30 2c 22 |0,596,-1,3,0,0,"| 000005b0 43 6c 69 63 6b 20 6f 6e 20 20 20 20 20 20 20 20 |Click on | 000005c0 20 20 20 20 20 20 20 20 20 20 2e 22 29 0d 01 b8 | .")...| 000005d0 1f f2 6d 65 72 67 65 73 63 72 32 31 28 31 30 29 |..mergescr21(10)| 000005e0 3a f2 69 6e 69 74 61 6e 69 6d 38 39 0d 01 c2 34 |:.initanim89...4| 000005f0 6d 62 6f 78 6c 65 25 3d 38 33 32 3a 6d 62 6f 78 |mboxle%=832:mbox| 00000600 6c 6f 25 3d 35 36 34 3a 6d 62 6f 78 72 69 25 3d |lo%=564:mboxri%=| 00000610 31 30 30 32 3a 6d 62 6f 78 68 69 25 3d 36 35 32 |1002:mboxhi%=652| 00000620 0d 01 cc 2b f2 62 6f 6f 6b 67 6f 6f 6e 28 38 33 |...+.bookgoon(83| 00000630 30 2c 35 36 30 2c 26 33 30 31 2c 30 2c 2d 31 29 |0,560,&301,0,-1)| 00000640 3a f2 69 6e 69 74 6d 6f 75 73 65 0d 01 d6 3d c8 |:.initmouse...=.| 00000650 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 00000660 32 3a f2 73 70 65 65 63 68 62 6f 78 28 36 30 30 |2:.speechbox(600| 00000670 2c 35 33 36 2c 36 36 30 2c 33 33 32 2c 31 2c 30 |,536,660,332,1,0| 00000680 2c 35 38 30 2c 2d 31 29 0d 01 e0 3d c8 99 22 4f |,580,-1)...=.."O| 00000690 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 000006a0 2c 62 75 74 61 72 65 61 25 2c 22 72 65 61 64 65 |,butarea%,"reade| 000006b0 72 22 2c 36 36 30 2c 36 39 32 2c 38 2c 73 63 61 |r",660,692,8,sca| 000006c0 6c 65 25 2c 30 0d 01 ea 2b f2 77 6f 72 64 73 28 |le%,0...+.words(| 000006d0 38 37 34 2c 37 31 32 2c 2d 31 2c 33 2c 30 2c 30 |874,712,-1,3,0,0| 000006e0 2c 22 54 68 69 73 20 69 73 20 4c 61 6b 2e 22 29 |,"This is Lak.")| 000006f0 0d 01 f4 2c f2 77 6f 72 64 73 28 36 39 30 2c 36 |...,.words(690,6| 00000700 30 34 2c 2d 31 2c 33 2c 30 2c 30 2c 22 48 65 20 |04,-1,3,0,0,"He | 00000710 69 73 20 61 6e 20 65 6c 66 2e 22 29 0d 01 fe 1e |is an elf.")....| 00000720 f2 6d 65 72 67 65 73 63 72 32 31 28 32 29 3a f2 |.mergescr21(2):.| 00000730 69 6e 69 74 61 6e 69 6d 38 39 0d 02 08 35 6d 62 |initanim89...5mb| 00000740 6f 78 6c 65 25 3d 31 30 30 30 3a 6d 62 6f 78 6c |oxle%=1000:mboxl| 00000750 6f 25 3d 35 32 30 3a 6d 62 6f 78 72 69 25 3d 31 |o%=520:mboxri%=1| 00000760 32 36 30 3a 6d 62 6f 78 68 69 25 3d 37 30 30 0d |260:mboxhi%=700.| 00000770 02 12 2c f2 62 6f 6f 6b 67 6f 6f 6e 28 31 30 34 |..,.bookgoon(104| 00000780 30 2c 35 36 30 2c 26 33 30 31 2c 30 2c 2d 31 29 |0,560,&301,0,-1)| 00000790 3a f2 69 6e 69 74 6d 6f 75 73 65 0d 02 1c 16 c8 |:.initmouse.....| 000007a0 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 000007b0 32 0d 02 26 35 f2 77 6f 72 64 73 28 36 30 30 2c |2..&5.words(600,| 000007c0 37 36 30 2c 2d 31 2c 33 2c 2d 31 2c 36 36 30 2c |760,-1,3,-1,660,| 000007d0 22 4c 61 6b 20 68 61 73 20 70 75 74 20 61 20 73 |"Lak has put a s| 000007e0 70 65 6c 6c 22 29 0d 02 30 31 f2 77 6f 72 64 73 |pell")..01.words| 000007f0 28 36 30 30 2c 36 38 30 2c 2d 31 2c 33 2c 2d 31 |(600,680,-1,3,-1| 00000800 2c 36 36 30 2c 22 6f 6e 20 73 6f 6d 65 20 77 6f |,660,"on some wo| 00000810 72 64 73 20 2e 22 29 0d 02 3a 1e f2 6d 65 72 67 |rds .")..:..merg| 00000820 65 73 63 72 32 31 28 32 29 3a f2 69 6e 69 74 61 |escr21(2):.inita| 00000830 6e 69 6d 38 39 0d 02 44 21 f2 62 6f 6f 6b 67 6f |nim89..D!.bookgo| 00000840 6f 6e 28 31 30 34 30 2c 35 36 30 2c 26 33 30 31 |on(1040,560,&301| 00000850 2c 2d 31 2c 30 29 0d 02 4e 32 73 61 79 78 25 3d |,-1,0)..N2sayx%=| 00000860 39 32 36 3a 73 61 79 79 25 3d 36 34 30 3a 62 6c |926:sayy%=640:bl| 00000870 75 65 77 6f 72 64 73 25 3d 31 3a 62 6c 77 6f 72 |uewords%=1:blwor| 00000880 64 73 25 28 30 29 3d 32 0d 02 58 3b 73 65 65 25 |ds%(0)=2..X;see%| 00000890 3d 31 3a 64 6f 25 3d 32 3a c8 99 20 22 4f 53 5f |=1:do%=2:.. "OS_| 000008a0 42 79 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 |Byte",113,see%:.| 000008b0 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 000008c0 64 6f 25 0d 02 62 1c f2 63 61 63 68 65 73 6f 75 |do%..b..cachesou| 000008d0 6e 64 28 22 66 78 6a 69 6e 67 33 22 2c 31 29 0d |nd("fxjing3",1).| 000008e0 02 6c 0c e3 6c 25 3d 30 b8 32 30 0d 02 76 0e 20 |.l..l%=0.20..v. | 000008f0 f2 63 6c 73 70 65 65 63 68 0d 02 80 36 20 f2 77 |.clspeech...6 .w| 00000900 6f 72 64 73 28 36 30 30 2c 37 36 30 2c 2d 31 2c |ords(600,760,-1,| 00000910 33 2c 2d 31 2c 36 36 30 2c 22 4c 61 6b 20 68 61 |3,-1,660,"Lak ha| 00000920 73 20 70 75 74 20 61 20 73 70 65 6c 6c 22 29 0d |s put a spell").| 00000930 02 8a 78 20 e7 6c 25 3c 31 31 3a f2 77 6f 72 64 |..x .l%<11:.word| 00000940 73 28 36 30 30 2c 36 38 30 2c 2d 31 2c 33 2c 2d |s(600,680,-1,3,-| 00000950 31 2c 36 36 30 2c 22 6f 6e 20 73 6f 6d 65 20 77 |1,660,"on some w| 00000960 6f 72 64 73 20 2e 22 29 3a 8b 3a f2 77 6f 72 64 |ords ."):.:.word| 00000970 73 28 36 30 30 2c 36 38 30 2c 2d 31 2c 33 2c 2d |s(600,680,-1,3,-| 00000980 31 2c 36 36 30 2c 22 6f 6e 20 73 6f 6d 65 20 22 |1,660,"on some "| 00000990 2b 6f 6e 24 2b 22 77 6f 72 64 73 22 2b 6f 66 66 |+on$+"words"+off| 000009a0 24 2b 22 20 2e 22 29 0d 02 94 0f 20 f2 70 6c 6f |$+" .").... .plo| 000009b0 74 73 74 61 72 73 0d 02 9e 0e 20 f2 77 61 69 74 |tstars.... .wait| 000009c0 28 31 30 29 0d 02 a8 17 20 e7 6c 25 3d 33 3a d4 |(10).... .l%=3:.| 000009d0 20 31 2c 26 31 37 46 2c 31 2c 31 0d 02 b2 52 20 | 1,&17F,1,1...R | 000009e0 73 65 65 25 3d 25 31 30 30 3e 3e 3e 73 65 65 25 |see%=%100>>>see%| 000009f0 3a 64 6f 25 3d 25 31 30 30 3e 3e 3e 64 6f 25 3a |:do%=%100>>>do%:| 00000a00 c8 96 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |..:.. "OS_Byte",| 00000a10 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f 53 5f |113,see%:.. "OS_| 00000a20 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d 02 bc |Byte",112,do%...| 00000a30 05 ed 0d 02 c6 21 f2 73 63 72 63 6f 70 79 28 73 |.....!.scrcopy(s| 00000a40 65 65 25 2c 64 6f 25 29 3a f2 77 61 69 74 28 31 |ee%,do%):.wait(1| 00000a50 30 30 29 0d 02 d0 3b 73 65 65 25 3d 31 3a 64 6f |00)...;see%=1:do| 00000a60 25 3d 32 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 |%=2:.. "OS_Byte"| 00000a70 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f 53 |,113,see%:.. "OS| 00000a80 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d 02 |_Byte",112,do%..| 00000a90 da 47 f2 77 6f 72 64 73 28 36 30 30 2c 36 30 30 |.G.words(600,600| 00000aa0 2c 2d 31 2c 33 2c 2d 31 2c 36 36 30 2c 22 43 6c |,-1,3,-1,660,"Cl| 00000ab0 69 63 6b 20 6f 6e 20 20 20 27 20 22 2b 6f 6e 24 |ick on ' "+on$| 00000ac0 2b 22 77 6f 72 64 73 22 2b 6f 66 66 24 2b 22 20 |+"words"+off$+" | 00000ad0 27 20 2e 22 29 0d 02 e4 4a f2 6d 65 72 67 65 73 |' .")...J.merges| 00000ae0 63 72 32 31 28 32 29 3a 73 65 65 25 3d 31 3a 64 |cr21(2):see%=1:d| 00000af0 6f 25 3d 32 3a c8 99 20 22 4f 53 5f 42 79 74 65 |o%=2:.. "OS_Byte| 00000b00 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f |",113,see%:.. "O| 00000b10 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d |S_Byte",112,do%.| 00000b20 02 ee 45 f2 77 6f 72 64 73 5f 72 65 61 64 28 32 |..E.words_read(2| 00000b30 2c 22 30 30 2c 30 31 22 29 3a 64 6f 6e 65 61 62 |,"00,01"):doneab| 00000b40 6c 75 65 25 3d 30 3a 6c 6f 6f 70 65 78 69 74 25 |lue%=0:loopexit%| 00000b50 3d 31 3a f2 62 75 74 74 6f 6e 6c 6f 6f 70 28 30 |=1:.buttonloop(0| 00000b60 2c 2d 31 29 0d 02 f8 3b 73 65 65 25 3d 31 3a 64 |,-1)...;see%=1:d| 00000b70 6f 25 3d 32 3a c8 99 20 22 4f 53 5f 42 79 74 65 |o%=2:.. "OS_Byte| 00000b80 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f |",113,see%:.. "O| 00000b90 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d |S_Byte",112,do%.| 00000ba0 03 02 36 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |..6.."OS_SpriteO| 00000bb0 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00000bc0 22 64 65 73 6b 22 2c 30 2c 30 2c 38 2c 73 63 61 |"desk",0,0,8,sca| 00000bd0 6c 65 25 2c 30 0d 03 0c 1c f2 63 6c 73 70 65 65 |le%,0.....clspee| 00000be0 63 68 3a f2 6d 65 72 67 65 73 63 72 32 31 28 34 |ch:.mergescr21(4| 00000bf0 29 0d 03 16 3b 73 65 65 25 3d 31 3a 64 6f 25 3d |)...;see%=1:do%=| 00000c00 32 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 |2:.. "OS_Byte",1| 00000c10 31 33 2c 73 65 65 25 3a c8 99 20 22 4f 53 5f 42 |13,see%:.. "OS_B| 00000c20 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d 03 20 34 |yte",112,do%.. 4| 00000c30 f2 77 6f 72 64 73 28 37 31 36 2c 37 36 30 2c 2d |.words(716,760,-| 00000c40 31 2c 33 2c 30 2c 30 2c 22 4c 61 6b 20 77 69 6c |1,3,0,0,"Lak wil| 00000c50 6c 20 74 65 6c 6c 20 79 6f 75 20 74 68 65 22 29 |l tell you the")| 00000c60 0d 03 2a 74 e7 a4 72 65 61 64 73 79 73 76 61 72 |..*t..readsysvar| 00000c70 28 22 45 6c 66 4b 24 77 6f 72 64 63 6f 6c 22 29 |("ElfK$wordcol")| 00000c80 3d 22 35 22 3a f2 77 6f 72 64 73 28 37 31 36 2c |="5":.words(716,| 00000c90 36 38 30 2c 2d 31 2c 33 2c 30 2c 30 2c 6f 6e 24 |680,-1,3,0,0,on$| 00000ca0 2b 22 62 6c 75 65 20 77 6f 72 64 73 20 22 2b 6f |+"blue words "+o| 00000cb0 66 66 24 2b 22 69 66 20 79 6f 75 22 29 3a f2 77 |ff$+"if you"):.w| 00000cc0 6f 72 64 73 5f 72 65 61 64 28 32 2c 22 30 32 2c |ords_read(2,"02,| 00000cd0 30 33 22 29 0d 03 34 76 e7 a4 72 65 61 64 73 79 |03")..4v..readsy| 00000ce0 73 76 61 72 28 22 45 6c 66 4b 24 77 6f 72 64 63 |svar("ElfK$wordc| 00000cf0 6f 6c 22 29 3d 22 37 22 3a f2 77 6f 72 64 73 28 |ol")="7":.words(| 00000d00 37 31 36 2c 36 38 30 2c 2d 31 2c 33 2c 30 2c 30 |716,680,-1,3,0,0| 00000d10 2c 6f 6e 24 2b 22 6f 72 61 6e 67 65 20 77 6f 72 |,on$+"orange wor| 00000d20 64 73 20 22 2b 6f 66 66 24 2b 22 69 66 20 79 6f |ds "+off$+"if yo| 00000d30 75 22 29 3a f2 77 6f 72 64 73 5f 72 65 61 64 28 |u"):.words_read(| 00000d40 32 2c 22 30 34 2c 30 39 22 29 0d 03 3e 76 e7 a4 |2,"04,09")..>v..| 00000d50 72 65 61 64 73 79 73 76 61 72 28 22 45 6c 66 4b |readsysvar("ElfK| 00000d60 24 77 6f 72 64 63 6f 6c 22 29 3d 22 31 33 22 3a |$wordcol")="13":| 00000d70 f2 77 6f 72 64 73 28 37 31 36 2c 36 38 30 2c 2d |.words(716,680,-| 00000d80 31 2c 33 2c 30 2c 30 2c 6f 6e 24 2b 22 67 72 65 |1,3,0,0,on$+"gre| 00000d90 65 6e 20 77 6f 72 64 73 20 22 2b 6f 66 66 24 2b |en words "+off$+| 00000da0 22 69 66 20 79 6f 75 22 29 3a f2 77 6f 72 64 73 |"if you"):.words| 00000db0 5f 72 65 61 64 28 32 2c 22 30 35 2c 31 30 22 29 |_read(2,"05,10")| 00000dc0 0d 03 48 2d f2 77 6f 72 64 73 28 37 31 36 2c 36 |..H-.words(716,6| 00000dd0 30 30 2c 2d 31 2c 33 2c 30 2c 30 2c 22 63 6c 69 |00,-1,3,0,0,"cli| 00000de0 63 6b 20 6f 6e 20 74 68 65 6d 2e 22 29 0d 03 52 |ck on them.")..R| 00000df0 3c f2 6d 65 72 67 65 73 63 72 32 31 28 32 29 3a |<.mergescr21(2):| 00000e00 f2 69 6e 69 74 61 6e 69 6d 38 39 3a f2 62 6f 6f |.initanim89:.boo| 00000e10 6b 67 6f 6f 6e 28 31 30 34 30 2c 35 36 30 2c 26 |kgoon(1040,560,&| 00000e20 33 30 31 2c 30 2c 2d 31 29 0d 03 5c 2a c8 99 20 |301,0,-1)..\*.. | 00000e30 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a |"OS_Byte",112,2:| 00000e40 f2 77 6f 72 64 73 5f 72 65 61 64 28 31 2c 22 30 |.words_read(1,"0| 00000e50 36 22 29 0d 03 66 49 f2 77 6f 72 64 73 28 36 30 |6")..fI.words(60| 00000e60 30 2c 37 33 32 2c 2d 31 2c 33 2c 2d 31 2c 36 36 |0,732,-1,3,-1,66| 00000e70 30 2c 22 4c 65 74 20 6d 65 20 74 65 6c 6c 20 79 |0,"Let me tell y| 00000e80 6f 75 20 61 20 22 2b 6f 6e 24 2b 22 73 74 6f 72 |ou a "+on$+"stor| 00000e90 79 22 2b 6f 66 66 24 2b 22 2e 22 29 0d 03 70 1e |y"+off$+".")..p.| 00000ea0 f2 6d 65 72 67 65 73 63 72 32 31 28 32 29 3a f2 |.mergescr21(2):.| 00000eb0 69 6e 69 74 61 6e 69 6d 38 39 0d 03 7a 21 f2 62 |initanim89..z!.b| 00000ec0 6f 6f 6b 67 6f 6f 6e 28 31 30 32 30 2c 35 36 30 |ookgoon(1020,560| 00000ed0 2c 26 33 30 31 2c 30 2c 2d 31 29 0d 03 84 05 e1 |,&301,0,-1).....| 00000ee0 0d 03 8e 04 0d 03 98 0e dd f2 6c 6f 6f 70 65 78 |..........loopex| 00000ef0 69 74 0d 03 a2 12 c8 8e 20 6c 6f 6f 70 65 78 69 |it...... loopexi| 00000f00 74 25 20 ca 0d 03 ac 20 20 c9 20 31 3a e7 64 6f |t% .... . 1:.do| 00000f10 6e 65 61 62 6c 75 65 25 3a 61 6e 69 6d 65 6e 64 |neablue%:animend| 00000f20 25 3d 2d 31 0d 03 b6 4b 20 c9 20 32 3a e7 28 6d |%=-1...K . 2:.(m| 00000f30 78 25 3e 3d 33 34 30 29 80 28 6d 78 25 3c 3d 39 |x%>=340).(mx%<=9| 00000f40 33 36 29 80 28 6d 79 25 3e 3d 32 30 38 29 80 28 |36).(my%>=208).(| 00000f50 6d 79 25 3c 3d 38 30 30 29 80 28 6d 62 75 74 25 |my%<=800).(mbut%| 00000f60 3d 34 29 3a 61 6e 69 6d 65 6e 64 25 3d 2d 31 0d |=4):animend%=-1.| 00000f70 03 c0 05 cb 0d 03 ca 05 e1 0d 03 d4 04 0d 03 de |................| 00000f80 10 dd f2 69 6e 69 74 61 6e 69 6d 38 39 0d 03 e8 |...initanim89...| 00000f90 30 61 6e 69 6d 70 61 75 73 65 25 28 38 29 3d 34 |0animpause%(8)=4| 00000fa0 3a 61 6e 69 6d 70 61 75 73 65 25 28 39 29 3d 31 |:animpause%(9)=1| 00000fb0 30 3a 62 6c 25 3d 30 3a 74 61 25 3d 30 0d 03 f2 |0:bl%=0:ta%=0...| 00000fc0 05 e1 0d 03 fc 04 0d 04 06 0d dd f2 62 77 62 6c |............bwbl| 00000fd0 69 6e 6b 0d 04 10 0a 62 6c 25 2b 3d 31 0d 04 1a |ink....bl%+=1...| 00000fe0 3e e7 62 6c 25 3d 34 3a 62 6c 25 3d 30 3a 61 6e |>.bl%=4:bl%=0:an| 00000ff0 69 6d 70 61 75 73 65 25 28 38 29 3d 32 30 30 2b |impause%(8)=200+| 00001000 28 35 30 2a b3 28 36 29 29 3a 8b 3a 61 6e 69 6d |(50*.(6)):.:anim| 00001010 70 61 75 73 65 25 28 38 29 3d 34 0d 04 24 81 c8 |pause%(8)=4..$..| 00001020 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&| 00001030 31 33 34 2c 73 70 61 72 65 61 25 2c 22 62 77 65 |134,sparea%,"bwe| 00001040 79 65 22 2b c3 28 62 6c 25 29 2c 34 32 32 2c 34 |ye"+.(bl%),422,4| 00001050 33 36 2c 38 2c 73 63 61 6c 65 25 2c 30 3a c8 99 |36,8,scale%,0:..| 00001060 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00001070 33 34 2c 73 70 61 72 65 61 25 2c 22 62 77 65 79 |34,sparea%,"bwey| 00001080 65 22 2b c3 28 62 6c 25 29 2c 35 30 38 2c 34 33 |e"+.(bl%),508,43| 00001090 36 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 04 2e 31 |6,8,scale%,0...1| 000010a0 61 63 68 61 6e 67 65 25 3d 2d 31 3a 64 6f 6e 65 |achange%=-1:done| 000010b0 63 68 61 6e 67 65 25 28 38 29 3d 2d 31 3a 61 6e |change%(8)=-1:an| 000010c0 69 6d 74 69 6d 65 25 28 38 29 3d 2d 31 0d 04 38 |imtime%(8)=-1..8| 000010d0 05 e1 0d 04 42 04 0d 04 4c 11 dd f2 62 77 63 6f |....B...L...bwco| 000010e0 70 79 62 6c 69 6e 6b 0d 04 56 5b f2 73 63 72 63 |pyblink..V[.scrc| 000010f0 6f 70 79 62 6c 6f 63 6b 70 69 78 28 34 32 32 2c |opyblockpix(422,| 00001100 34 33 36 2c 33 30 2c 33 36 2c 73 65 65 25 2c 64 |436,30,36,see%,d| 00001110 6f 25 2c 2d 31 29 3a f2 73 63 72 63 6f 70 79 62 |o%,-1):.scrcopyb| 00001120 6c 6f 63 6b 70 69 78 28 35 30 38 2c 34 33 36 2c |lockpix(508,436,| 00001130 33 30 2c 33 36 2c 73 65 65 25 2c 64 6f 25 2c 2d |30,36,see%,do%,-| 00001140 31 29 0d 04 60 05 e1 0d 04 6a 04 0d 04 74 0c dd |1)..`....j...t..| 00001150 f2 62 77 74 61 69 6c 0d 04 7e 33 c8 99 22 4f 53 |.bwtail..~3.."OS| 00001160 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c |_SpriteOp",&122,| 00001170 73 70 61 72 65 61 25 2c 22 74 61 69 6c 62 67 22 |sparea%,"tailbg"| 00001180 2c 36 36 36 2c 33 35 36 2c 38 0d 04 88 0a 74 61 |,666,356,8....ta| 00001190 25 2b 3d 31 0d 04 92 3f e7 74 61 25 3d 34 3a 74 |%+=1...?.ta%=4:t| 000011a0 61 25 3d 30 3a 61 6e 69 6d 70 61 75 73 65 25 28 |a%=0:animpause%(| 000011b0 39 29 3d 32 30 30 2b 28 35 30 2a b3 28 36 29 29 |9)=200+(50*.(6))| 000011c0 3a 8b 3a 61 6e 69 6d 70 61 75 73 65 25 28 39 29 |:.:animpause%(9)| 000011d0 3d 31 30 0d 04 9c 86 e7 74 61 25 3d 33 3a c8 99 |=10.....ta%=3:..| 000011e0 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 000011f0 33 34 2c 73 70 61 72 65 61 25 2c 22 62 77 74 61 |34,sparea%,"bwta| 00001200 69 6c 31 22 2c 36 36 36 2c 33 35 36 2c 38 2c 73 |il1",666,356,8,s| 00001210 63 61 6c 65 25 2c 30 3a 8b 3a c8 99 22 4f 53 5f |cale%,0:.:.."OS_| 00001220 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 00001230 70 61 72 65 61 25 2c 22 62 77 74 61 69 6c 22 2b |parea%,"bwtail"+| 00001240 c3 28 74 61 25 29 2c 36 36 36 2c 33 35 36 2c 38 |.(ta%),666,356,8| 00001250 2c 73 63 61 6c 65 25 2c 30 0d 04 a6 31 61 63 68 |,scale%,0...1ach| 00001260 61 6e 67 65 25 3d 2d 31 3a 64 6f 6e 65 63 68 61 |ange%=-1:donecha| 00001270 6e 67 65 25 28 39 29 3d 2d 31 3a 61 6e 69 6d 74 |nge%(9)=-1:animt| 00001280 69 6d 65 25 28 39 29 3d 2d 31 0d 04 b0 05 e1 0d |ime%(9)=-1......| 00001290 04 ba 04 0d 04 c4 10 dd f2 62 77 63 6f 70 79 74 |.........bwcopyt| 000012a0 61 69 6c 0d 04 ce 30 f2 73 63 72 63 6f 70 79 62 |ail...0.scrcopyb| 000012b0 6c 6f 63 6b 70 69 78 28 36 36 36 2c 33 35 36 2c |lockpix(666,356,| 000012c0 36 36 2c 31 30 34 2c 73 65 65 25 2c 64 6f 25 2c |66,104,see%,do%,| 000012d0 2d 31 29 0d 04 d8 05 e1 0d 04 e2 04 0d 04 ec 10 |-1).............| 000012e0 dd f2 6c 6f 61 64 76 61 6c 6c 65 79 0d 04 f6 2e |..loadvalley....| 000012f0 21 73 70 61 72 65 61 25 3d 73 70 61 72 65 61 73 |!sparea%=spareas| 00001300 69 7a 25 2d 28 36 36 2a 31 30 32 34 29 3a 73 70 |iz%-(66*1024):sp| 00001310 61 72 65 61 25 21 38 3d 31 36 0d 05 00 21 c8 99 |area%!8=16...!..| 00001320 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 | "OS_SpriteOp",&| 00001330 31 30 39 2c 73 70 61 72 65 61 25 0d 05 0a 44 f2 |109,sparea%...D.| 00001340 6c 6f 61 64 75 6e 73 71 75 61 73 68 28 73 70 61 |loadunsquash(spa| 00001350 72 65 61 25 2c 73 70 61 72 65 61 73 69 7a 25 2d |rea%,spareasiz%-| 00001360 28 36 36 2a 31 30 32 34 29 2c 22 4f 4e 45 2e 73 |(66*1024),"ONE.s| 00001370 70 66 69 6c 65 73 2e 76 61 6c 6c 65 79 22 29 0d |pfiles.valley").| 00001380 05 14 62 6d 61 73 6b 73 70 25 28 29 3d 31 32 3a |..bmasksp%()=12:| 00001390 6d 61 73 6b 73 70 24 28 30 29 3d 22 6d 61 67 30 |masksp$(0)="mag0| 000013a0 22 3a 3a 6d 61 73 6b 73 70 24 28 31 29 3d 22 6d |"::masksp$(1)="m| 000013b0 61 67 31 22 3a 6d 61 73 6b 73 70 24 28 32 29 3d |ag1":masksp$(2)=| 000013c0 22 6d 61 67 68 61 6e 64 6c 22 3a f2 6d 61 73 6b |"maghandl":.mask| 000013d0 73 70 72 69 74 65 28 73 70 61 72 65 61 25 2c 33 |sprite(sparea%,3| 000013e0 29 0d 05 1e 16 c8 99 20 22 4f 53 5f 42 79 74 65 |)...... "OS_Byte| 000013f0 22 2c 31 31 32 2c 32 0d 05 28 38 c8 99 22 4f 53 |",112,2..(8.."OS| 00001400 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 00001410 73 70 61 72 65 61 25 2c 22 76 61 6c 6c 65 79 22 |sparea%,"valley"| 00001420 2c 30 2c 30 2c 38 2c 73 63 61 6c 65 25 2c 30 0d |,0,0,8,scale%,0.| 00001430 05 32 05 e1 0d 05 3c 04 0d 05 46 11 dd f2 76 61 |.2....<...F...va| 00001440 6c 6c 65 79 69 6e 74 72 6f 0d 05 50 14 f2 77 61 |lleyintro..P..wa| 00001450 74 65 72 66 61 6c 6c 32 31 28 32 30 29 0d 05 5a |terfall21(20)..Z| 00001460 0e f2 77 61 69 74 28 31 35 30 29 0d 05 64 43 f2 |..wait(150)..dC.| 00001470 63 61 63 68 65 73 6f 75 6e 64 28 22 66 78 62 69 |cachesound("fxbi| 00001480 72 64 32 22 2c 31 29 3a d4 20 31 2c 26 31 37 46 |rd2",1):. 1,&17F| 00001490 2c 31 2c 31 3a 62 69 72 64 74 69 6d 65 25 3d 91 |,1,1:birdtime%=.| 000014a0 2b 32 30 30 2b 28 35 30 2a b3 28 36 29 29 0d 05 |+200+(50*.(6))..| 000014b0 6e 0e f2 77 61 69 74 28 31 30 30 29 0d 05 78 16 |n..wait(100)..x.| 000014c0 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 |.. "OS_Byte",112| 000014d0 2c 32 0d 05 82 39 c8 99 22 4f 53 5f 53 70 72 69 |,2...9.."OS_Spri| 000014e0 74 65 4f 70 22 2c 26 31 33 34 2c 62 75 74 61 72 |teOp",&134,butar| 000014f0 65 61 25 2c 22 77 6f 72 6d 22 2c 32 30 2c 35 36 |ea%,"worm",20,56| 00001500 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 05 8c 28 f2 |,8,scale%,0...(.| 00001510 73 70 65 65 63 68 62 6f 78 28 32 34 30 2c 38 2c |speechbox(240,8,| 00001520 38 32 30 2c 31 30 38 2c 31 2c 2d 31 2c 34 38 2c |820,108,1,-1,48,| 00001530 2d 31 29 0d 05 96 48 f2 77 6f 72 64 73 5f 72 65 |-1)...H.words_re| 00001540 61 64 28 32 2c 22 30 37 2c 30 38 22 29 3a f2 77 |ad(2,"07,08"):.w| 00001550 6f 72 64 73 5f 73 61 79 28 6f 6e 24 2b 22 45 6c |ords_say(on$+"El| 00001560 76 65 73 20 6c 69 76 65 22 2b 6f 66 66 24 2b 22 |ves live"+off$+"| 00001570 20 68 65 72 65 2e 22 2c 22 22 29 0d 05 a0 13 f2 | here.","").....| 00001580 6d 65 72 67 65 73 63 72 32 31 28 31 30 29 0d 05 |mergescr21(10)..| 00001590 aa 05 e1 0d 05 b4 04 0d 05 be 12 dd f2 65 78 70 |.............exp| 000015a0 6c 6f 72 65 77 6f 72 64 73 0d 05 c8 28 f2 73 70 |lorewords...(.sp| 000015b0 65 65 63 68 62 6f 78 28 32 34 30 2c 38 2c 38 32 |eechbox(240,8,82| 000015c0 30 2c 31 30 38 2c 31 2c 2d 31 2c 34 38 2c 2d 31 |0,108,1,-1,48,-1| 000015d0 29 0d 05 d2 46 f2 77 6f 72 64 73 5f 72 65 61 64 |)...F.words_read| 000015e0 28 30 2c 22 30 30 22 29 3a f2 77 6f 72 64 73 5f |(0,"00"):.words_| 000015f0 73 61 79 28 22 57 68 61 74 20 69 73 20 68 65 72 |say("What is her| 00001600 65 3f 20 4d 6f 76 65 20 74 68 65 20 20 20 20 20 |e? Move the | 00001610 20 2e 22 2c 22 22 29 0d 05 dc 3a c8 99 22 4f 53 | .","")...:.."OS| 00001620 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 00001630 73 70 61 72 65 61 25 2c 22 6d 6f 75 73 65 22 2c |sparea%,"mouse",| 00001640 38 38 38 2c 32 38 2c 38 2c 73 63 61 6c 65 25 2c |888,28,8,scale%,| 00001650 30 0d 05 e6 05 e1 0d 05 f0 04 0d 05 fa 13 dd f2 |0...............| 00001660 76 61 6c 6c 65 79 65 78 70 6c 6f 72 65 0d 06 04 |valleyexplore...| 00001670 08 ea 20 6a 25 0d 06 0e 49 73 70 61 72 65 61 33 |.. j%...Isparea3| 00001680 25 3d 73 70 61 72 65 61 25 2b 73 70 61 72 65 61 |%=sparea%+sparea| 00001690 73 69 7a 25 2d 28 36 36 2a 31 30 32 34 29 3a 21 |siz%-(66*1024):!| 000016a0 73 70 61 72 65 61 33 25 3d 36 36 2a 31 30 32 34 |sparea3%=66*1024| 000016b0 3a 73 70 61 72 65 61 33 25 21 38 3d 31 36 0d 06 |:sparea3%!8=16..| 000016c0 18 22 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |.".. "OS_SpriteO| 000016d0 70 22 2c 26 31 30 39 2c 73 70 61 72 65 61 33 25 |p",&109,sparea3%| 000016e0 0d 06 22 36 f2 6c 6f 61 64 75 6e 73 71 75 61 73 |.."6.loadunsquas| 000016f0 68 28 73 70 61 72 65 61 33 25 2c 36 36 2a 31 30 |h(sparea3%,66*10| 00001700 32 34 2c 22 4f 4e 45 2e 73 70 66 69 6c 65 73 2e |24,"ONE.spfiles.| 00001710 6d 61 70 30 22 29 0d 06 2c 2a c8 99 20 22 4f 53 |map0")..,*.. "OS| 00001720 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 31 39 2c |_SpriteOp",&119,| 00001730 73 70 61 72 65 61 33 25 2c 22 71 68 65 61 64 22 |sparea3%,"qhead"| 00001740 0d 06 36 39 6d 61 73 6b 73 70 25 28 29 3d 34 3a |..69masksp%()=4:| 00001750 6d 61 73 6b 73 70 24 28 30 29 3d 22 6d 61 70 30 |masksp$(0)="map0| 00001760 22 3a f2 6d 61 73 6b 73 70 72 69 74 65 28 73 70 |":.masksprite(sp| 00001770 61 72 65 61 33 25 2c 31 29 0d 06 40 20 f2 62 6f |area3%,1)..@ .bo| 00001780 6f 6b 67 6f 6f 6e 28 31 30 38 30 2c 31 32 2c 26 |okgoon(1080,12,&| 00001790 30 31 2c 2d 31 2c 2d 31 29 0d 06 4a 32 c8 99 22 |01,-1,-1)..J2.."| 000017a0 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a f2 |OS_Byte",112,2:.| 000017b0 65 78 70 6c 6f 72 65 77 6f 72 64 73 3a f2 6d 65 |explorewords:.me| 000017c0 72 67 65 73 63 72 32 31 28 34 29 0d 06 54 0f 63 |rgescr21(4)..T.c| 000017d0 68 6f 69 63 65 6e 6f 25 3d 30 0d 06 5e 05 f5 0d |hoiceno%=0..^...| 000017e0 06 68 0d 20 f2 6d 61 67 6c 6f 6f 70 0d 06 72 76 |.h. .magloop..rv| 000017f0 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 | .."OS_SpriteOp"| 00001800 2c 26 31 33 34 2c 73 70 61 72 65 61 33 25 2c 22 |,&134,sparea3%,"| 00001810 6d 61 70 30 22 2c 33 32 2c 32 31 32 2c 38 2c 73 |map0",32,212,8,s| 00001820 63 61 6c 65 25 2c 30 3a c8 99 22 4f 53 5f 53 70 |cale%,0:.."OS_Sp| 00001830 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 70 61 |riteOp",&134,spa| 00001840 72 65 61 25 2c 22 6d 61 67 68 61 6e 64 6c 22 2c |rea%,"maghandl",| 00001850 35 37 34 2c 31 31 36 2c 38 2c 73 63 61 6c 65 25 |574,116,8,scale%| 00001860 2c 30 0d 06 7c 66 20 f2 77 6f 72 64 73 5f 72 65 |,0..|f .words_re| 00001870 61 64 28 32 2c 22 31 31 2c 31 32 22 29 3a f2 77 |ad(2,"11,12"):.w| 00001880 6f 72 64 73 5f 73 61 79 28 22 54 68 65 20 65 6c |ords_say("The el| 00001890 66 20 6b 69 6e 67 20 61 6e 64 20 22 2b 6f 6e 24 |f king and "+on$| 000018a0 2b 22 71 75 65 65 6e 20 6c 69 76 65 20 22 2b 6f |+"queen live "+o| 000018b0 66 66 24 2b 22 68 65 72 65 2e 22 2c 22 22 29 3a |ff$+"here.",""):| 000018c0 f2 66 61 64 65 6d 61 67 0d 06 86 0a 20 f2 67 6f |.fademag.... .go| 000018d0 69 6e 0d 06 90 3b 20 e7 63 68 6f 73 65 6e 25 3c |in...; .chosen%<| 000018e0 3e 31 3a f2 70 6c 6f 74 76 61 6c 6c 65 79 3a f2 |>1:.plotvalley:.| 000018f0 65 78 70 6c 6f 72 65 77 6f 72 64 73 3a f2 77 61 |explorewords:.wa| 00001900 74 65 72 66 61 6c 6c 32 31 28 32 30 29 0d 06 9a |terfall21(20)...| 00001910 0f fd 20 63 68 6f 73 65 6e 25 3d 31 0d 06 a4 05 |.. chosen%=1....| 00001920 e1 0d 06 ae 04 0d 06 b8 10 dd f2 6d 61 73 6b 69 |...........maski| 00001930 6e 63 61 73 74 0d 06 c2 08 f7 20 2b 30 0d 06 cc |ncast..... +0...| 00001940 50 dc 20 70 6f 6e 64 2c 66 6f 75 6e 74 33 2c 70 |P. pond,fount3,p| 00001950 6f 75 72 33 2c 70 6f 75 72 34 2c 70 6f 75 72 35 |our3,pour4,pour5| 00001960 2c 70 6f 75 72 36 2c 77 61 66 33 2c 77 61 66 34 |,pour6,waf3,waf4| 00001970 2c 73 70 6f 75 74 2c 64 72 69 70 33 2c 73 74 61 |,spout,drip3,sta| 00001980 74 75 65 2c 6d 61 67 30 2c 6d 61 67 31 0d 06 d6 |tue,mag0,mag1...| 00001990 15 6d 61 73 6b 73 70 25 28 29 3d 31 32 3a 6b 25 |.masksp%()=12:k%| 000019a0 3d 30 0d 06 e0 a8 e3 6a 25 3d 30 b8 32 3a 6d 61 |=0.....j%=0.2:ma| 000019b0 73 6b 73 70 24 28 6b 25 29 3d 22 66 6f 75 6e 74 |sksp$(k%)="fount| 000019c0 22 2b c3 28 6a 25 29 3a 6b 25 2b 3d 31 3a 6d 61 |"+.(j%):k%+=1:ma| 000019d0 73 6b 73 70 24 28 6b 25 29 3d 22 70 6f 75 72 22 |sksp$(k%)="pour"| 000019e0 2b c3 28 6a 25 29 3a 6b 25 2b 3d 31 3a 6d 61 73 |+.(j%):k%+=1:mas| 000019f0 6b 73 70 24 28 6b 25 29 3d 22 77 61 66 22 2b c3 |ksp$(k%)="waf"+.| 00001a00 28 6a 25 29 3a 6b 25 2b 3d 31 3a 6d 61 73 6b 73 |(j%):k%+=1:masks| 00001a10 70 24 28 6b 25 29 3d 22 64 72 69 70 22 2b c3 28 |p$(k%)="drip"+.(| 00001a20 6a 25 29 3a 6b 25 2b 3d 31 3a 6d 61 73 6b 73 70 |j%):k%+=1:masksp| 00001a30 24 28 6b 25 29 3d 22 62 6d 61 67 22 2b c3 28 6a |$(k%)="bmag"+.(j| 00001a40 25 29 3a 6b 25 2b 3d 31 3a ed 0d 06 ea 38 e3 6a |%):k%+=1:....8.j| 00001a50 25 3d 6b 25 b8 6b 25 2b 31 32 3a f3 20 6d 61 73 |%=k%.k%+12:. mas| 00001a60 6b 73 70 24 28 6a 25 29 3a ed 3a f2 6d 61 73 6b |ksp$(j%):.:.mask| 00001a70 73 70 72 69 74 65 28 73 70 61 72 65 61 25 2c 32 |sprite(sparea%,2| 00001a80 38 29 0d 06 f4 05 e1 0d 06 fe 04 0d 07 08 16 dd |8)..............| 00001a90 f2 65 6c 66 28 78 25 2c 79 25 2c 74 79 70 65 25 |.elf(x%,y%,type%| 00001aa0 29 0d 07 12 59 c8 99 22 4f 53 5f 53 70 72 69 74 |)...Y.."OS_Sprit| 00001ab0 65 4f 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 |eOp",&134,sparea| 00001ac0 33 25 2c 22 65 6c 66 73 69 64 65 22 2c 78 25 2b |3%,"elfside",x%+| 00001ad0 65 77 25 28 74 79 70 65 25 2c 30 29 2b 32 34 2c |ew%(type%,0)+24,| 00001ae0 79 25 2b 65 77 25 28 74 79 70 65 25 2c 31 29 2c |y%+ew%(type%,1),| 00001af0 38 2c 73 63 61 6c 65 25 2c 30 0d 07 1c 4d c8 99 |8,scale%,0...M..| 00001b00 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00001b10 33 34 2c 73 70 61 72 65 61 33 25 2c 22 65 77 22 |34,sparea3%,"ew"| 00001b20 2b c3 28 74 79 70 65 25 29 2c 78 25 2b 65 77 25 |+.(type%),x%+ew%| 00001b30 28 74 79 70 65 25 2c 30 29 2c 79 25 2c 38 2c 73 |(type%,0),y%,8,s| 00001b40 63 61 6c 65 25 2c 30 0d 07 26 05 e1 0d 07 30 04 |cale%,0..&....0.| 00001b50 0d 07 3a 0c dd f2 69 6e 63 61 73 74 0d 07 44 0b |..:...incast..D.| 00001b60 ea 20 6a 25 2c 6b 25 0d 07 4e 0c f2 6c 6f 61 64 |. j%,k%..N..load| 00001b70 65 6c 66 0d 07 58 2e 21 73 70 61 72 65 61 25 3d |elf..X.!sparea%=| 00001b80 73 70 61 72 65 61 73 69 7a 25 2d 28 31 31 2a 31 |spareasiz%-(11*1| 00001b90 30 32 34 29 3a 73 70 61 72 65 61 25 21 38 3d 31 |024):sparea%!8=1| 00001ba0 36 0d 07 62 21 c8 99 20 22 4f 53 5f 53 70 72 69 |6..b!.. "OS_Spri| 00001bb0 74 65 4f 70 22 2c 26 31 30 39 2c 73 70 61 72 65 |teOp",&109,spare| 00001bc0 61 25 0d 07 6c 47 f2 6c 6f 61 64 74 68 72 6f 6e |a%..lG.loadthron| 00001bd0 65 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 |e:.. "OS_Byte",1| 00001be0 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef 32 35 |12,2:.18,0,3:.25| 00001bf0 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 31 2c |,4,0;0;:.25,101,| 00001c00 31 32 37 38 3b 39 35 38 3b 0d 07 76 3e c8 99 22 |1278;958;..v>.."| 00001c10 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13| 00001c20 34 2c 73 70 61 72 65 61 25 2c 22 74 68 72 6f 6e |4,sparea%,"thron| 00001c30 65 72 6f 6f 6d 22 2c 36 2c 32 30 30 2c 38 2c 73 |eroom",6,200,8,s| 00001c40 63 61 6c 65 25 2c 30 0d 07 80 2d f2 66 61 64 65 |cale%,0...-.fade| 00001c50 28 30 2c 39 36 30 2c 30 2c 32 2c 34 30 2c 22 66 |(0,960,0,2,40,"f| 00001c60 61 64 65 22 29 3a 6c 61 73 74 74 69 6d 65 25 3d |ade"):lasttime%=| 00001c70 91 2d 34 30 0d 07 8a 60 f2 73 61 76 65 62 67 72 |.-40...`.savebgr| 00001c80 64 28 2d 31 39 32 2c 33 38 38 2c 31 38 32 2c 33 |d(-192,388,182,3| 00001c90 31 36 2c 22 65 6c 66 62 67 31 22 29 3a f2 73 61 |16,"elfbg1"):.sa| 00001ca0 76 65 62 67 72 64 28 2d 31 39 32 2c 33 38 38 2c |vebgrd(-192,388,| 00001cb0 31 38 32 2c 33 31 36 2c 22 65 6c 66 62 67 32 22 |182,316,"elfbg2"| 00001cc0 29 3a 78 25 28 29 3d 2d 31 39 32 3a 79 25 28 29 |):x%()=-192:y%()| 00001cd0 3d 33 38 38 0d 07 94 41 73 65 65 25 3d 31 3a 64 |=388...Asee%=1:d| 00001ce0 6f 25 3d 32 3a c8 99 20 22 4f 53 5f 42 79 74 65 |o%=2:.. "OS_Byte| 00001cf0 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f |",113,see%:.. "O| 00001d00 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 3a |S_Byte",112,do%:| 00001d10 6b 25 3d 2d 31 0d 07 9e 1b f2 63 61 63 68 65 73 |k%=-1.....caches| 00001d20 6f 75 6e 64 28 22 66 78 73 74 65 70 22 2c 31 29 |ound("fxstep",1)| 00001d30 0d 07 a8 12 e3 6a 25 3d 2d 31 39 32 b8 36 38 88 |.....j%=-192.68.| 00001d40 32 36 0d 07 b2 10 20 6b 25 3d 28 6b 25 2b 31 29 |26.... k%=(k%+1)| 00001d50 83 34 0d 07 bc 16 20 ef 32 34 2c 36 3b 30 3b 31 |.4.... .24,6;0;1| 00001d60 32 37 38 3b 39 35 38 3b 0d 07 c6 46 20 c8 99 22 |278;958;...F .."| 00001d70 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12| 00001d80 32 2c 73 70 61 72 65 61 25 2c 22 65 6c 66 62 67 |2,sparea%,"elfbg| 00001d90 22 2b c3 28 64 6f 25 29 2c 78 25 28 64 6f 25 2d |"+.(do%),x%(do%-| 00001da0 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 38 0d 07 |1),y%(do%-1),8..| 00001db0 d0 55 20 78 25 28 64 6f 25 2d 31 29 3d 6a 25 3a |.U x%(do%-1)=j%:| 00001dc0 79 25 28 64 6f 25 2d 31 29 3d 33 38 38 3a f2 73 |y%(do%-1)=388:.s| 00001dd0 61 76 65 62 67 72 64 28 78 25 28 64 6f 25 2d 31 |avebgrd(x%(do%-1| 00001de0 29 2c 79 25 28 64 6f 25 2d 31 29 2c 31 38 32 2c |),y%(do%-1),182,| 00001df0 33 31 36 2c 22 65 6c 66 62 67 22 2b c3 28 64 6f |316,"elfbg"+.(do| 00001e00 25 29 29 0d 07 da 14 20 f2 65 6c 66 28 6a 25 2c |%)).... .elf(j%,| 00001e10 33 38 38 2c 6b 25 29 0d 07 e4 17 20 f5 3a fd 20 |388,k%).... .:. | 00001e20 91 3e 6c 61 73 74 74 69 6d 65 25 2b 33 30 0d 07 |.>lasttime%+30..| 00001e30 ee 17 20 e7 6b 25 3d 31 3a d4 20 31 2c 26 31 37 |.. .k%=1:. 1,&17| 00001e40 46 2c 31 2c 31 0d 07 f8 5e 20 73 65 65 25 3d 25 |F,1,1...^ see%=%| 00001e50 31 30 30 3e 3e 3e 73 65 65 25 3a 64 6f 25 3d 25 |100>>>see%:do%=%| 00001e60 31 30 30 3e 3e 3e 64 6f 25 3a c8 96 3a c8 99 20 |100>>>do%:..:.. | 00001e70 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 73 65 |"OS_Byte",113,se| 00001e80 65 25 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |e%:.. "OS_Byte",| 00001e90 31 31 32 2c 64 6f 25 3a 6c 61 73 74 74 69 6d 65 |112,do%:lasttime| 00001ea0 25 3d 91 0d 08 02 05 ed 0d 08 0c 37 ef 32 36 3a |%=.........7.26:| 00001eb0 f2 73 63 72 63 6f 70 79 28 73 65 65 25 2c 64 6f |.scrcopy(see%,do| 00001ec0 25 29 3a f2 77 61 69 74 28 35 30 29 3a c8 99 20 |%):.wait(50):.. | 00001ed0 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 0d |"OS_Byte",112,2.| 00001ee0 08 16 3e c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |..>.."OS_SpriteO| 00001ef0 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00001f00 22 74 68 72 6f 6e 65 72 6f 6f 6d 22 2c 36 2c 32 |"throneroom",6,2| 00001f10 30 30 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 08 20 |00,8,scale%,0.. | 00001f20 78 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |x.."OS_SpriteOp"| 00001f30 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 65 |,&134,sparea%,"e| 00001f40 6c 66 73 74 30 22 2c 31 32 38 2c 33 38 38 2c 38 |lfst0",128,388,8| 00001f50 2c 73 63 61 6c 65 25 2c 30 3a c8 99 22 4f 53 5f |,scale%,0:.."OS_| 00001f60 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 62 |SpriteOp",&134,b| 00001f70 75 74 61 72 65 61 25 2c 22 65 6c 66 68 65 61 64 |utarea%,"elfhead| 00001f80 30 22 2c 31 31 36 2c 35 38 38 2c 38 2c 73 63 61 |0",116,588,8,sca| 00001f90 6c 65 25 2c 30 0d 08 2a 2f f2 6d 65 72 67 65 73 |le%,0..*/.merges| 00001fa0 63 72 32 31 28 34 29 3a f2 77 61 69 74 28 35 30 |cr21(4):.wait(50| 00001fb0 29 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 |):.. "OS_Byte",1| 00001fc0 31 32 2c 32 0d 08 34 4b 75 73 75 61 6c 70 6f 73 |12,2..4Kusualpos| 00001fd0 25 3d 30 3a f2 77 6f 72 64 73 5f 62 6f 78 28 30 |%=0:.words_box(0| 00001fe0 2c 22 30 30 22 2c 22 22 2c 22 48 65 6c 6c 6f 2c |,"00","","Hello,| 00001ff0 20 49 20 61 6d 20 4a 65 6b 2e 22 2c 22 22 2c 31 | I am Jek.","",1| 00002000 38 30 2c 37 32 34 2c 32 2c 30 2c 32 36 30 29 0d |80,724,2,0,260).| 00002010 08 3e 59 f2 6d 65 72 67 65 73 63 72 32 31 28 34 |.>Y.mergescr21(4| 00002020 29 3a 65 79 65 73 25 28 30 2c 30 29 3d 31 37 30 |):eyes%(0,0)=170| 00002030 3a 65 79 65 73 25 28 30 2c 31 29 3d 36 35 32 3a |:eyes%(0,1)=652:| 00002040 65 65 79 65 73 25 3d 2d 31 3a f2 62 6f 6f 6b 67 |eeyes%=-1:.bookg| 00002050 6f 6f 6e 28 31 30 38 30 2c 31 32 2c 26 32 30 30 |oon(1080,12,&200| 00002060 30 31 2c 2d 31 2c 30 29 0d 08 48 74 c8 99 20 22 |01,-1,0)..Ht.. "| 00002070 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a c8 |OS_Byte",112,2:.| 00002080 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&| 00002090 31 32 32 2c 73 70 61 72 65 61 25 2c 22 62 6f 78 |122,sparea%,"box| 000020a0 62 67 22 2c 31 38 30 2c 37 32 34 2c 38 3a c8 99 |bg",180,724,8:..| 000020b0 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 000020c0 32 32 2c 73 70 61 72 65 61 25 2c 22 61 72 72 62 |22,sparea%,"arrb| 000020d0 67 22 2c 32 36 30 2c 36 32 38 2c 38 0d 08 52 84 |g",260,628,8..R.| 000020e0 f2 6d 65 72 67 65 73 63 72 32 31 28 34 29 3a c8 |.mergescr21(4):.| 000020f0 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 00002100 32 3a f2 77 6f 72 64 73 5f 62 6f 78 28 31 2c 22 |2:.words_box(1,"| 00002110 31 33 22 2c 22 22 2c 22 49 20 61 6d 20 6c 6f 6f |13","","I am loo| 00002120 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 6b 69 6e |king for the kin| 00002130 67 20 61 6e 64 20 22 2b 6f 6e 24 2b 22 71 75 65 |g and "+on$+"que| 00002140 65 6e 22 2b 6f 66 66 24 2b 22 2e 22 2c 22 22 2c |en"+off$+".","",| 00002150 31 38 30 2c 37 32 34 2c 32 2c 30 2c 32 36 30 29 |180,724,2,0,260)| 00002160 0d 08 5c 48 f2 6d 65 72 67 65 73 63 72 32 31 28 |..\H.mergescr21(| 00002170 34 29 3a 65 65 79 65 73 25 3d 2d 31 3a f2 62 6f |4):eeyes%=-1:.bo| 00002180 6f 6b 67 6f 6f 6e 28 31 30 38 30 2c 31 32 2c 26 |okgoon(1080,12,&| 00002190 32 30 30 30 31 2c 2d 31 2c 30 29 3a 75 73 75 61 |20001,-1,0):usua| 000021a0 6c 70 6f 73 25 3d 2d 31 0d 08 66 51 c8 99 20 22 |lpos%=-1..fQ.. "| 000021b0 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a c8 |OS_Byte",112,2:.| 000021c0 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&| 000021d0 31 33 34 2c 73 70 61 72 65 61 25 2c 22 74 68 72 |134,sparea%,"thr| 000021e0 6f 6e 65 72 6f 6f 6d 22 2c 36 2c 32 30 30 2c 38 |oneroom",6,200,8| 000021f0 2c 73 63 61 6c 65 25 2c 30 0d 08 70 12 f2 65 6c |,scale%,0..p..el| 00002200 66 28 39 34 2c 33 38 38 2c 33 29 0d 08 7a 55 f2 |f(94,388,3)..zU.| 00002210 6d 65 72 67 65 73 63 72 32 31 28 34 29 3a f2 77 |mergescr21(4):.w| 00002220 61 69 74 28 31 30 30 29 3a 73 65 65 25 3d 31 3a |ait(100):see%=1:| 00002230 64 6f 25 3d 32 3a c8 99 20 22 4f 53 5f 42 79 74 |do%=2:.. "OS_Byt| 00002240 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 |e",113,see%:.. "| 00002250 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 |OS_Byte",112,do%| 00002260 0d 08 84 15 ef 32 34 2c 36 3b 30 3b 31 32 37 38 |.....24,6;0;1278| 00002270 3b 39 35 38 3b 0d 08 8e 1b f2 63 61 63 68 65 73 |;958;.....caches| 00002280 6f 75 6e 64 28 22 66 78 73 74 65 70 22 2c 31 29 |ound("fxstep",1)| 00002290 0d 08 98 0c e3 6a 25 3d 31 b8 33 33 0d 08 a2 88 |.....j%=1.33....| 000022a0 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 | .."OS_SpriteOp"| 000022b0 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 74 |,&134,sparea%,"t| 000022c0 68 72 6f 6e 65 72 6f 6f 6d 22 2c 36 2d 28 32 36 |hroneroom",6-(26| 000022d0 2a 6a 25 29 2c 32 30 30 2c 38 2c 73 63 61 6c 65 |*j%),200,8,scale| 000022e0 25 2c 30 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |%,0:.."OS_Sprite| 000022f0 4f 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 |Op",&134,sparea%| 00002300 2c 22 64 6f 6f 72 73 22 2c 31 32 33 32 2d 28 32 |,"doors",1232-(2| 00002310 36 2a 6a 25 29 2c 32 30 30 2c 38 2c 73 63 61 6c |6*j%),200,8,scal| 00002320 65 25 2c 30 0d 08 ac 1a 20 f2 65 6c 66 28 39 34 |e%,0.... .elf(94| 00002330 2c 33 38 38 2c 28 6a 25 2d 31 29 83 34 29 0d 08 |,388,(j%-1).4)..| 00002340 b6 17 20 f5 3a fd 20 91 3e 6c 61 73 74 74 69 6d |.. .:. .>lasttim| 00002350 65 25 2b 33 30 0d 08 c0 1f 20 e7 28 28 6a 25 2d |e%+30.... .((j%-| 00002360 31 29 83 34 29 3d 31 3a d4 20 31 2c 26 31 37 46 |1).4)=1:. 1,&17F| 00002370 2c 31 2c 31 0d 08 ca 5e 20 73 65 65 25 3d 25 31 |,1,1...^ see%=%1| 00002380 30 30 3e 3e 3e 73 65 65 25 3a 64 6f 25 3d 25 31 |00>>>see%:do%=%1| 00002390 30 30 3e 3e 3e 64 6f 25 3a c8 96 3a c8 99 20 22 |00>>>do%:..:.. "| 000023a0 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 73 65 65 |OS_Byte",113,see| 000023b0 25 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 |%:.. "OS_Byte",1| 000023c0 31 32 2c 64 6f 25 3a 6c 61 73 74 74 69 6d 65 25 |12,do%:lasttime%| 000023d0 3d 91 0d 08 d4 05 ed 0d 08 de 87 c8 99 22 4f 53 |=............"OS| 000023e0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 000023f0 73 70 61 72 65 61 25 2c 22 74 68 72 6f 6e 65 72 |sparea%,"throner| 00002400 6f 6f 6d 22 2c 36 2d 28 32 36 2a 33 33 29 2c 32 |oom",6-(26*33),2| 00002410 30 30 2c 38 2c 73 63 61 6c 65 25 2c 30 3a c8 99 |00,8,scale%,0:..| 00002420 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00002430 33 34 2c 73 70 61 72 65 61 25 2c 22 64 6f 6f 72 |34,sparea%,"door| 00002440 73 22 2c 31 32 33 32 2d 28 32 36 2a 33 33 29 2c |s",1232-(26*33),| 00002450 32 30 30 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 08 |200,8,scale%,0..| 00002460 e8 12 f2 65 6c 66 28 39 34 2c 33 38 38 2c 33 29 |...elf(94,388,3)| 00002470 0d 08 f2 16 f5 3a fd 20 91 3e 6c 61 73 74 74 69 |.....:. .>lastti| 00002480 6d 65 25 2b 34 30 0d 08 fc 5d 73 65 65 25 3d 25 |me%+40...]see%=%| 00002490 31 30 30 3e 3e 3e 73 65 65 25 3a 64 6f 25 3d 25 |100>>>see%:do%=%| 000024a0 31 30 30 3e 3e 3e 64 6f 25 3a c8 96 3a c8 99 20 |100>>>do%:..:.. | 000024b0 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 73 65 |"OS_Byte",113,se| 000024c0 65 25 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |e%:.. "OS_Byte",| 000024d0 31 31 32 2c 64 6f 25 3a 6c 61 73 74 74 69 6d 65 |112,do%:lasttime| 000024e0 25 3d 91 0d 09 06 37 ef 32 36 3a f2 73 63 72 63 |%=....7.26:.scrc| 000024f0 6f 70 79 28 73 65 65 25 2c 64 6f 25 29 3a f2 77 |opy(see%,do%):.w| 00002500 61 69 74 28 35 30 29 3a c8 99 20 22 4f 53 5f 42 |ait(50):.. "OS_B| 00002510 79 74 65 22 2c 31 31 32 2c 32 0d 09 10 5e c8 99 |yte",112,2...^..| 00002520 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00002530 33 34 2c 62 75 74 61 72 65 61 25 2c 22 77 6f 72 |34,butarea%,"wor| 00002540 6d 22 2c 32 30 2c 35 36 2c 38 2c 73 63 61 6c 65 |m",20,56,8,scale| 00002550 25 2c 30 3a f2 73 70 65 65 63 68 62 6f 78 28 32 |%,0:.speechbox(2| 00002560 34 30 2c 38 2c 38 32 30 2c 31 30 38 2c 31 2c 2d |40,8,820,108,1,-| 00002570 31 2c 34 38 2c 2d 31 29 0d 09 1a 63 f2 77 6f 72 |1,48,-1)...c.wor| 00002580 64 73 5f 72 65 61 64 28 32 2c 22 31 34 2c 31 35 |ds_read(2,"14,15| 00002590 22 29 3a f2 77 6f 72 64 73 5f 73 61 79 28 22 43 |"):.words_say("C| 000025a0 6c 69 63 6b 20 74 6f 20 22 2b 6f 6e 24 2b 22 6b |lick to "+on$+"k| 000025b0 6e 6f 63 6b 20 22 2b 6f 66 66 24 2b 22 6f 6e 20 |nock "+off$+"on | 000025c0 61 20 22 2b 6f 6e 24 2b 22 64 6f 6f 72 22 2b 6f |a "+on$+"door"+o| 000025d0 66 66 24 2b 22 2e 22 2c 22 22 29 0d 09 24 19 f2 |ff$+".","")..$..| 000025e0 6d 65 72 67 65 73 63 72 32 31 28 34 29 3a 64 72 |mergescr21(4):dr| 000025f0 25 3d 2d 31 0d 09 2e 05 f5 0d 09 38 11 20 f2 6b |%=-1.......8. .k| 00002600 6e 6f 63 6b 6f 6e 64 6f 6f 72 0d 09 42 0b fd 64 |nockondoor..B..d| 00002610 72 25 3d 49 25 0d 09 4c 05 e1 0d 09 56 04 0d 09 |r%=I%..L....V...| 00002620 60 0f dd f2 69 6e 62 65 64 72 6f 6f 6d 0d 09 6a |`...inbedroom..j| 00002630 0c f2 62 65 64 72 6f 6f 6d 0d 09 74 05 f5 0d 09 |..bedroom..t....| 00002640 7e 2f 20 21 73 70 61 72 65 61 25 3d 73 70 61 72 |~/ !sparea%=spar| 00002650 65 61 73 69 7a 25 2d 28 31 31 2a 31 30 32 34 29 |easiz%-(11*1024)| 00002660 3a 73 70 61 72 65 61 25 21 38 3d 31 36 0d 09 88 |:sparea%!8=16...| 00002670 22 20 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |" .. "OS_SpriteO| 00002680 70 22 2c 26 31 30 39 2c 73 70 61 72 65 61 25 0d |p",&109,sparea%.| 00002690 09 92 48 20 f2 6c 6f 61 64 74 68 72 6f 6e 65 3a |..H .loadthrone:| 000026a0 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 |.. "OS_Byte",112| 000026b0 2c 32 3a ef 31 38 2c 30 2c 33 3a ef 32 35 2c 34 |,2:.18,0,3:.25,4| 000026c0 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 31 2c 31 32 |,0;0;:.25,101,12| 000026d0 37 38 3b 39 35 38 3b 0d 09 9c 88 20 c8 99 22 4f |78;958;.... .."O| 000026e0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 000026f0 2c 73 70 61 72 65 61 25 2c 22 74 68 72 6f 6e 65 |,sparea%,"throne| 00002700 72 6f 6f 6d 22 2c 36 2d 28 32 36 2a 33 33 29 2c |room",6-(26*33),| 00002710 32 30 30 2c 38 2c 73 63 61 6c 65 25 2c 30 3a c8 |200,8,scale%,0:.| 00002720 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&| 00002730 31 33 34 2c 73 70 61 72 65 61 25 2c 22 64 6f 6f |134,sparea%,"doo| 00002740 72 73 22 2c 31 32 33 32 2d 28 32 36 2a 33 33 29 |rs",1232-(26*33)| 00002750 2c 32 30 30 2c 38 2c 73 63 61 6c 65 25 2c 30 0d |,200,8,scale%,0.| 00002760 09 a6 1f 20 f2 66 61 64 65 28 30 2c 39 36 30 2c |... .fade(0,960,| 00002770 30 2c 32 2c 34 30 2c 22 66 61 64 65 22 29 0d 09 |0,2,40,"fade")..| 00002780 b0 72 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |.r .. "OS_Byte",| 00002790 31 31 32 2c 32 3a c8 99 22 4f 53 5f 53 70 72 69 |112,2:.."OS_Spri| 000027a0 74 65 4f 70 22 2c 26 31 33 34 2c 62 75 74 61 72 |teOp",&134,butar| 000027b0 65 61 25 2c 22 77 6f 72 6d 22 2c 32 30 2c 35 36 |ea%,"worm",20,56| 000027c0 2c 38 2c 73 63 61 6c 65 25 2c 30 3a f2 73 70 65 |,8,scale%,0:.spe| 000027d0 65 63 68 62 6f 78 28 32 34 30 2c 38 2c 38 32 30 |echbox(240,8,820| 000027e0 2c 31 30 38 2c 31 2c 2d 31 2c 34 38 2c 2d 31 29 |,108,1,-1,48,-1)| 000027f0 0d 09 ba 56 20 75 73 75 61 6c 70 6f 73 25 3d 2d |...V usualpos%=-| 00002800 31 3a f2 77 6f 72 64 73 5f 72 65 61 64 28 31 2c |1:.words_read(1,| 00002810 22 33 36 22 29 3a f2 77 6f 72 64 73 5f 73 61 79 |"36"):.words_say| 00002820 28 22 43 6c 69 63 6b 20 6f 6e 20 61 20 22 2b 6f |("Click on a "+o| 00002830 6e 24 2b 22 64 6f 6f 72 22 2b 6f 66 66 24 2b 22 |n$+"door"+off$+"| 00002840 2e 22 2c 22 22 29 0d 09 c4 20 20 f2 6d 65 72 67 |.","")... .merg| 00002850 65 73 63 72 32 31 28 34 29 3a f2 70 6f 69 6e 74 |escr21(4):.point| 00002860 74 6f 64 6f 6f 72 0d 09 ce 0f fd 64 72 25 3d 28 |todoor.....dr%=(| 00002870 31 2d 49 25 29 0d 09 d8 11 f2 6c 6f 61 64 63 75 |1-I%).....loadcu| 00002880 70 62 6f 61 72 64 0d 09 e2 4d c8 99 20 22 4f 53 |pboard...M.. "OS| 00002890 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a ef 31 38 |_Byte",112,2:.18| 000028a0 2c 30 2c 33 3a ef 32 35 2c 34 2c 30 3b 30 3b 3a |,0,3:.25,4,0;0;:| 000028b0 ef 32 35 2c 31 30 31 2c 31 32 37 38 3b 39 35 38 |.25,101,1278;958| 000028c0 3b 3a f2 6d 61 6b 65 63 75 70 62 6f 61 72 64 28 |;:.makecupboard(| 000028d0 2d 31 29 0d 09 ec 26 f2 6d 65 72 67 65 73 63 72 |-1)...&.mergescr| 000028e0 32 31 28 31 30 29 3a c8 99 20 22 4f 53 5f 42 79 |21(10):.. "OS_By| 000028f0 74 65 22 2c 31 31 32 2c 32 0d 09 f6 5e c8 99 22 |te",112,2...^.."| 00002900 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13| 00002910 34 2c 62 75 74 61 72 65 61 25 2c 22 77 6f 72 6d |4,butarea%,"worm| 00002920 22 2c 32 30 2c 35 36 2c 38 2c 73 63 61 6c 65 25 |",20,56,8,scale%| 00002930 2c 30 3a f2 73 70 65 65 63 68 62 6f 78 28 32 34 |,0:.speechbox(24| 00002940 30 2c 38 2c 38 32 30 2c 31 30 38 2c 31 2c 2d 31 |0,8,820,108,1,-1| 00002950 2c 34 38 2c 2d 31 29 0d 0a 00 47 75 73 75 61 6c |,48,-1)...Gusual| 00002960 70 6f 73 25 3d 2d 31 3a f2 77 6f 72 64 73 5f 72 |pos%=-1:.words_r| 00002970 65 61 64 28 30 2c 22 30 30 22 29 3a f2 77 6f 72 |ead(0,"00"):.wor| 00002980 64 73 5f 73 61 79 28 22 43 6c 69 63 6b 20 6f 6e |ds_say("Click on| 00002990 20 74 68 65 20 6d 61 70 2e 22 2c 22 22 29 0d 0a | the map.","")..| 000029a0 0a 12 f2 6d 65 72 67 65 73 63 72 32 31 28 34 29 |...mergescr21(4)| 000029b0 0d 0a 14 0f f2 70 6f 69 6e 74 74 6f 6d 61 70 0d |.....pointtomap.| 000029c0 0a 1e 0d f2 63 61 73 74 6c 65 67 6f 0d 0a 28 05 |....castlego..(.| 000029d0 e1 0d 0a 32 04 0d 0a 3c 0e dd f2 63 61 73 74 6c |...2...<...castl| 000029e0 65 67 6f 0d 0a 46 0b ea 20 6a 25 2c 6b 25 0d 0a |ego..F.. j%,k%..| 000029f0 50 11 f2 6c 6f 61 64 63 61 73 74 6c 65 67 6f 0d |P..loadcastlego.| 00002a00 0a 5a 3b c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |.Z;.. "OS_Byte",| 00002a10 31 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef 32 |112,2:.18,0,3:.2| 00002a20 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 31 |5,4,0;0;:.25,101| 00002a30 2c 31 32 37 38 3b 39 35 38 3b 0d 0a 64 3e c8 99 |,1278;958;..d>..| 00002a40 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00002a50 33 34 2c 73 70 61 72 65 61 25 2c 22 70 6f 72 74 |34,sparea%,"port| 00002a60 63 75 6c 6c 22 2c 34 39 30 2c 33 33 32 2c 38 2c |cull",490,332,8,| 00002a70 73 63 61 6c 65 25 2c 30 0d 0a 6e 38 c8 99 22 4f |scale%,0..n8.."O| 00002a80 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 00002a90 2c 73 70 61 72 65 61 25 2c 22 71 30 22 2c 35 34 |,sparea%,"q0",54| 00002aa0 38 2c 33 34 34 2c 38 2c 73 63 61 6c 65 25 2c 30 |8,344,8,scale%,0| 00002ab0 0d 0a 78 60 e3 6a 25 3d 30 b8 32 3a c8 99 22 4f |..x`.j%=0.2:.."O| 00002ac0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 00002ad0 2c 73 70 61 72 65 61 25 2c 22 65 22 2b c3 28 6a |,sparea%,"e"+.(j| 00002ae0 25 29 2b 22 30 22 2c 36 30 30 2b 28 34 30 2a 6a |%)+"0",600+(40*j| 00002af0 25 29 2b 28 32 30 2a a8 28 6a 25 2f 32 29 29 2c |%)+(20*.(j%/2)),| 00002b00 34 33 36 2c 38 2c 73 63 61 6c 65 25 2c 30 3a ed |436,8,scale%,0:.| 00002b10 0d 0a 82 12 f2 6d 65 72 67 65 73 63 72 32 31 28 |.....mergescr21(| 00002b20 34 29 0d 0a 8c 71 c8 99 20 22 4f 53 5f 42 79 74 |4)...q.. "OS_Byt| 00002b30 65 22 2c 31 31 32 2c 32 3a c8 99 22 4f 53 5f 53 |e",112,2:.."OS_S| 00002b40 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 62 75 |priteOp",&134,bu| 00002b50 74 61 72 65 61 25 2c 22 77 6f 72 6d 22 2c 32 30 |tarea%,"worm",20| 00002b60 2c 35 36 2c 38 2c 73 63 61 6c 65 25 2c 30 3a f2 |,56,8,scale%,0:.| 00002b70 73 70 65 65 63 68 62 6f 78 28 32 34 30 2c 38 2c |speechbox(240,8,| 00002b80 38 32 30 2c 31 30 38 2c 31 2c 2d 31 2c 34 38 2c |820,108,1,-1,48,| 00002b90 2d 31 29 0d 0a 96 64 75 73 75 61 6c 70 6f 73 25 |-1)...dusualpos%| 00002ba0 3d 2d 31 3a f2 77 6f 72 64 73 5f 72 65 61 64 28 |=-1:.words_read(| 00002bb0 31 2c 22 33 37 22 29 3a f2 77 6f 72 64 73 5f 73 |1,"37"):.words_s| 00002bc0 61 79 28 22 59 6f 75 20 22 2b 6f 6e 24 2b 22 6c |ay("You "+on$+"l| 00002bd0 65 61 76 65 20 22 2b 6f 66 66 24 2b 22 74 6f 20 |eave "+off$+"to | 00002be0 6c 6f 6f 6b 20 66 6f 72 20 74 68 65 20 6b 69 6e |look for the kin| 00002bf0 67 2e 22 2c 22 22 29 0d 0a a0 36 f2 6d 65 72 67 |g.","")...6.merg| 00002c00 65 73 63 72 32 31 28 34 29 3a 62 6c 25 3d 2d 31 |escr21(4):bl%=-1| 00002c10 3a f2 62 6f 6f 6b 67 6f 6f 6e 28 31 30 38 30 2c |:.bookgoon(1080,| 00002c20 31 32 2c 26 34 30 31 2c 2d 31 2c 30 29 0d 0a aa |12,&401,-1,0)...| 00002c30 05 e1 0d 0a b4 04 0d 0a be 28 dd f2 6d 61 6b 65 |.........(..make| 00002c40 62 65 64 72 6f 6f 6d 28 70 68 6f 74 6f 25 2c 73 |bedroom(photo%,s| 00002c50 61 66 65 25 2c 63 75 72 74 61 69 6e 25 29 0d 0a |afe%,curtain%)..| 00002c60 c8 08 ea 20 6a 25 0d 0a d2 90 c8 99 22 4f 53 5f |... j%......"OS_| 00002c70 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 00002c80 70 61 72 65 61 34 25 2c 22 62 65 64 72 6f 6f 6d |parea4%,"bedroom| 00002c90 22 2c 32 36 2c 31 38 30 2c 38 2c 73 63 61 6c 65 |",26,180,8,scale| 00002ca0 25 2c 30 3a e3 6a 25 3d 30 b8 31 3a c8 99 22 4f |%,0:.j%=0.1:.."O| 00002cb0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 00002cc0 2c 73 70 61 72 65 61 25 2c 22 70 68 6f 74 6f 22 |,sparea%,"photo"| 00002cd0 2b c3 28 6a 25 29 2c 34 34 2b 28 39 36 32 2a 6a |+.(j%),44+(962*j| 00002ce0 25 29 2c 70 68 6f 74 6f 25 2c 38 2c 73 63 61 6c |%),photo%,8,scal| 00002cf0 65 25 2c 30 3a ed 0d 0a dc 42 21 73 63 61 6c 65 |e%,0:....B!scale| 00002d00 25 3d 63 75 72 74 61 69 6e 25 3a 73 63 61 6c 65 |%=curtain%:scale| 00002d10 25 21 34 3d 31 35 2a 28 4b 25 21 26 46 30 29 3a |%!4=15*(K%!&F0):| 00002d20 73 63 61 6c 65 25 21 38 3d 31 35 3a 73 63 61 6c |scale%!8=15:scal| 00002d30 65 25 21 31 32 3d 31 35 0d 0a e6 c4 c8 99 22 4f |e%!12=15......"O| 00002d40 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 00002d50 2c 73 70 61 72 65 61 25 2c 22 63 75 72 74 61 69 |,sparea%,"curtai| 00002d60 6e 22 2c 33 34 30 2c 32 30 38 2c 38 2c 73 63 61 |n",340,208,8,sca| 00002d70 6c 65 25 2c 30 3a f2 66 6c 69 70 28 73 70 61 72 |le%,0:.flip(spar| 00002d80 65 61 25 2c 22 79 22 2c 22 63 75 72 74 61 69 6e |ea%,"y","curtain| 00002d90 22 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |"):.."OS_SpriteO| 00002da0 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00002db0 22 63 75 72 74 61 69 6e 22 2c 36 33 38 2b 28 32 |"curtain",638+(2| 00002dc0 30 2a 28 31 35 2d 63 75 72 74 61 69 6e 25 29 29 |0*(15-curtain%))| 00002dd0 2c 32 30 38 2c 38 2c 73 63 61 6c 65 25 2c 30 3a |,208,8,scale%,0:| 00002de0 f2 66 6c 69 70 28 73 70 61 72 65 61 25 2c 22 79 |.flip(sparea%,"y| 00002df0 22 2c 22 63 75 72 74 61 69 6e 22 29 0d 0a f0 3c |","curtain")...<| 00002e00 21 73 63 61 6c 65 25 3d 31 36 3a 73 63 61 6c 65 |!scale%=16:scale| 00002e10 25 21 34 3d 31 36 2a 28 4b 25 21 26 46 30 29 3a |%!4=16*(K%!&F0):| 00002e20 73 63 61 6c 65 25 21 38 3d 31 36 3a 73 63 61 6c |scale%!8=16:scal| 00002e30 65 25 21 31 32 3d 31 36 0d 0a fa 13 e7 63 75 72 |e%!12=16.....cur| 00002e40 74 61 69 6e 25 3c 3e 31 35 20 8c 0d 0b 04 2c 20 |tain%<>15 ...., | 00002e50 ef 31 38 2c 30 2c 33 3a ef 32 35 2c 34 2c 33 34 |.18,0,3:.25,4,34| 00002e60 30 3b 32 30 38 3b 3a ef 32 35 2c 31 30 31 2c 33 |0;208;:.25,101,3| 00002e70 34 30 3b 38 30 30 3b 0d 0b 0e 44 20 ef 32 35 2c |40;800;...D .25,| 00002e80 34 2c 33 34 30 2b 28 32 30 2a 63 75 72 74 61 69 |4,340+(20*curtai| 00002e90 6e 25 29 2d 32 3b 32 30 38 3b 3a ef 32 35 2c 31 |n%)-2;208;:.25,1| 00002ea0 30 31 2c 33 34 30 2b 28 32 30 2a 63 75 72 74 61 |01,340+(20*curta| 00002eb0 69 6e 25 29 2d 32 3b 38 30 30 3b 0d 0b 18 4a 20 |in%)-2;800;...J | 00002ec0 ef 32 35 2c 34 2c 36 33 38 2b 28 32 30 2a 28 31 |.25,4,638+(20*(1| 00002ed0 35 2d 63 75 72 74 61 69 6e 25 29 29 3b 32 30 38 |5-curtain%));208| 00002ee0 3b 3a ef 32 35 2c 31 30 31 2c 36 33 38 2b 28 32 |;:.25,101,638+(2| 00002ef0 30 2a 28 31 35 2d 63 75 72 74 61 69 6e 25 29 29 |0*(15-curtain%))| 00002f00 3b 38 30 30 3b 0d 0b 22 24 20 ef 32 35 2c 34 2c |;800;.."$ .25,4,| 00002f10 39 33 38 3b 32 30 38 3b 3a ef 32 35 2c 31 30 31 |938;208;:.25,101| 00002f20 2c 39 33 38 3b 38 30 30 3b 0d 0b 2c 05 cd 0d 0b |,938;800;..,....| 00002f30 36 3d c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |6=.."OS_SpriteOp| 00002f40 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 |",&134,sparea%,"| 00002f50 63 75 72 74 74 6f 70 22 2c 32 37 38 2c 37 39 32 |curttop",278,792| 00002f60 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 0b 40 77 e7 |,8,scale%,0..@w.| 00002f70 73 61 66 65 25 3a c8 99 22 4f 53 5f 53 70 72 69 |safe%:.."OS_Spri| 00002f80 74 65 4f 70 22 2c 26 31 33 34 2c 73 70 61 72 65 |teOp",&134,spare| 00002f90 61 25 2c 22 73 61 66 65 22 2c 33 32 2c 36 31 32 |a%,"safe",32,612| 00002fa0 2c 38 2c 73 63 61 6c 65 25 2c 30 3a c8 99 22 4f |,8,scale%,0:.."O| 00002fb0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 00002fc0 2c 73 70 61 72 65 61 25 2c 22 73 61 66 65 22 2c |,sparea%,"safe",| 00002fd0 39 39 34 2c 36 31 32 2c 38 2c 73 63 61 6c 65 25 |994,612,8,scale%| 00002fe0 2c 30 0d 0b 4a 05 e1 0d 0b 54 04 0d 0b 5e 0d dd |,0..J....T...^..| 00002ff0 f2 62 65 64 72 6f 6f 6d 0d 0b 68 08 ea 20 6a 25 |.bedroom..h.. j%| 00003000 0d 0b 72 10 f2 6c 6f 61 64 62 65 64 72 6f 6f 6d |..r..loadbedroom| 00003010 0d 0b 7c 52 c8 99 20 22 4f 53 5f 42 79 74 65 22 |..|R.. "OS_Byte"| 00003020 2c 31 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef |,112,2:.18,0,3:.| 00003030 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 |25,4,0;0;:.25,10| 00003040 31 2c 31 32 37 38 3b 39 35 38 3b 3a f2 6d 61 6b |1,1278;958;:.mak| 00003050 65 62 65 64 72 6f 6f 6d 28 36 30 34 2c 30 2c 31 |ebedroom(604,0,1| 00003060 35 29 0d 0b 86 22 f2 6d 65 72 67 65 73 63 72 32 |5)...".mergescr2| 00003070 31 28 31 30 29 3a 6c 61 73 74 74 69 6d 65 25 3d |1(10):lasttime%=| 00003080 91 2d 34 30 0d 0b 90 60 f2 73 61 76 65 62 67 72 |.-40...`.savebgr| 00003090 64 28 2d 31 39 32 2c 31 38 38 2c 31 38 32 2c 33 |d(-192,188,182,3| 000030a0 31 36 2c 22 65 6c 66 62 67 31 22 29 3a f2 73 61 |16,"elfbg1"):.sa| 000030b0 76 65 62 67 72 64 28 2d 31 39 32 2c 31 38 38 2c |vebgrd(-192,188,| 000030c0 31 38 32 2c 33 31 36 2c 22 65 6c 66 62 67 32 22 |182,316,"elfbg2"| 000030d0 29 3a 78 25 28 29 3d 2d 31 39 32 3a 79 25 28 29 |):x%()=-192:y%()| 000030e0 3d 31 38 38 0d 0b 9a 41 73 65 65 25 3d 31 3a 64 |=188...Asee%=1:d| 000030f0 6f 25 3d 32 3a c8 99 20 22 4f 53 5f 42 79 74 65 |o%=2:.. "OS_Byte| 00003100 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f |",113,see%:.. "O| 00003110 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 3a |S_Byte",112,do%:| 00003120 6b 25 3d 2d 31 0d 0b a4 1b f2 63 61 63 68 65 73 |k%=-1.....caches| 00003130 6f 75 6e 64 28 22 66 78 73 74 65 70 22 2c 31 29 |ound("fxstep",1)| 00003140 0d 0b ae 12 e3 6a 25 3d 2d 31 39 32 b8 39 34 88 |.....j%=-192.94.| 00003150 32 36 0d 0b b8 10 20 6b 25 3d 28 6b 25 2b 31 29 |26.... k%=(k%+1)| 00003160 83 34 0d 0b c2 17 20 ef 32 34 2c 32 36 3b 30 3b |.4.... .24,26;0;| 00003170 31 32 35 30 3b 39 35 38 3b 0d 0b cc 46 20 c8 99 |1250;958;...F ..| 00003180 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00003190 32 32 2c 73 70 61 72 65 61 25 2c 22 65 6c 66 62 |22,sparea%,"elfb| 000031a0 67 22 2b c3 28 64 6f 25 29 2c 78 25 28 64 6f 25 |g"+.(do%),x%(do%| 000031b0 2d 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 38 0d |-1),y%(do%-1),8.| 000031c0 0b d6 55 20 78 25 28 64 6f 25 2d 31 29 3d 6a 25 |..U x%(do%-1)=j%| 000031d0 3a 79 25 28 64 6f 25 2d 31 29 3d 31 38 38 3a f2 |:y%(do%-1)=188:.| 000031e0 73 61 76 65 62 67 72 64 28 78 25 28 64 6f 25 2d |savebgrd(x%(do%-| 000031f0 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 31 38 32 |1),y%(do%-1),182| 00003200 2c 33 31 36 2c 22 65 6c 66 62 67 22 2b c3 28 64 |,316,"elfbg"+.(d| 00003210 6f 25 29 29 0d 0b e0 14 20 f2 65 6c 66 28 6a 25 |o%)).... .elf(j%| 00003220 2c 31 38 38 2c 6b 25 29 0d 0b ea 17 20 f5 3a fd |,188,k%).... .:.| 00003230 20 91 3e 6c 61 73 74 74 69 6d 65 25 2b 33 30 0d | .>lasttime%+30.| 00003240 0b f4 17 20 e7 6b 25 3d 31 3a d4 20 31 2c 26 31 |... .k%=1:. 1,&1| 00003250 37 46 2c 31 2c 31 0d 0b fe 5e 20 73 65 65 25 3d |7F,1,1...^ see%=| 00003260 25 31 30 30 3e 3e 3e 73 65 65 25 3a 64 6f 25 3d |%100>>>see%:do%=| 00003270 25 31 30 30 3e 3e 3e 64 6f 25 3a c8 96 3a c8 99 |%100>>>do%:..:..| 00003280 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 73 | "OS_Byte",113,s| 00003290 65 65 25 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 |ee%:.. "OS_Byte"| 000032a0 2c 31 31 32 2c 64 6f 25 3a 6c 61 73 74 74 69 6d |,112,do%:lasttim| 000032b0 65 25 3d 91 0d 0c 08 05 ed 0d 0c 12 45 c8 99 22 |e%=.........E.."| 000032c0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12| 000032d0 32 2c 73 70 61 72 65 61 25 2c 22 65 6c 66 62 67 |2,sparea%,"elfbg| 000032e0 22 2b c3 28 64 6f 25 29 2c 78 25 28 64 6f 25 2d |"+.(do%),x%(do%-| 000032f0 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 38 0d 0c |1),y%(do%-1),8..| 00003300 1c 12 f2 65 6c 66 28 39 34 2c 31 38 38 2c 33 29 |...elf(94,188,3)| 00003310 0d 0c 26 5d 73 65 65 25 3d 25 31 30 30 3e 3e 3e |..&]see%=%100>>>| 00003320 73 65 65 25 3a 64 6f 25 3d 25 31 30 30 3e 3e 3e |see%:do%=%100>>>| 00003330 64 6f 25 3a c8 96 3a c8 99 20 22 4f 53 5f 42 79 |do%:..:.. "OS_By| 00003340 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 |te",113,see%:.. | 00003350 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f |"OS_Byte",112,do| 00003360 25 3a 6c 61 73 74 74 69 6d 65 25 3d 91 0d 0c 30 |%:lasttime%=...0| 00003370 2d ef 32 36 3a f2 73 63 72 63 6f 70 79 28 73 65 |-.26:.scrcopy(se| 00003380 65 25 2c 64 6f 25 29 3a c8 99 20 22 4f 53 5f 42 |e%,do%):.. "OS_B| 00003390 79 74 65 22 2c 31 31 32 2c 32 0d 0c 3a 5e c8 99 |yte",112,2..:^..| 000033a0 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 000033b0 33 34 2c 62 75 74 61 72 65 61 25 2c 22 77 6f 72 |34,butarea%,"wor| 000033c0 6d 22 2c 32 30 2c 35 36 2c 38 2c 73 63 61 6c 65 |m",20,56,8,scale| 000033d0 25 2c 30 3a f2 73 70 65 65 63 68 62 6f 78 28 32 |%,0:.speechbox(2| 000033e0 34 30 2c 38 2c 38 32 30 2c 31 30 38 2c 31 2c 2d |40,8,820,108,1,-| 000033f0 31 2c 34 38 2c 2d 31 29 0d 0c 44 5b 75 73 75 61 |1,48,-1)..D[usua| 00003400 6c 70 6f 73 25 3d 2d 31 3a f2 77 6f 72 64 73 5f |lpos%=-1:.words_| 00003410 72 65 61 64 28 31 2c 22 31 39 22 29 3a f2 77 6f |read(1,"19"):.wo| 00003420 72 64 73 5f 73 61 79 28 22 43 6c 69 63 6b 20 6f |rds_say("Click o| 00003430 6e 20 74 68 65 20 22 2b 6f 6e 24 2b 22 63 75 72 |n the "+on$+"cur| 00003440 74 61 69 6e 73 22 2b 6f 66 66 24 2b 22 2e 22 2c |tains"+off$+".",| 00003450 22 22 29 0d 0c 4e 6a f2 6d 65 72 67 65 73 63 72 |"")..Nj.mergescr| 00003460 32 31 28 34 29 3a 65 79 65 73 25 28 30 2c 30 29 |21(4):eyes%(0,0)| 00003470 3d 32 32 30 3a 65 79 65 73 25 28 30 2c 31 29 3d |=220:eyes%(0,1)=| 00003480 34 34 30 3a 65 65 79 65 73 25 3d 2d 31 3a 61 6e |440:eeyes%=-1:an| 00003490 69 6d 25 3d 26 31 30 30 30 30 30 3a 6c 6f 6f 70 |im%=&100000:loop| 000034a0 65 78 69 74 25 3d 32 3a f2 62 75 74 74 6f 6e 6c |exit%=2:.buttonl| 000034b0 6f 6f 70 28 61 6e 69 6d 25 2c 2d 31 29 0d 0c 58 |oop(anim%,-1)..X| 000034c0 4a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 |J.. "OS_Byte",11| 000034d0 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef 32 35 2c |2,2:.18,0,3:.25,| 000034e0 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 31 2c 31 |4,0;0;:.25,101,1| 000034f0 32 37 38 3b 31 37 38 3b 3a f2 6d 65 72 67 65 73 |278;178;:.merges| 00003500 63 72 32 31 28 34 29 0d 0c 62 3b 73 65 65 25 3d |cr21(4)..b;see%=| 00003510 31 3a 64 6f 25 3d 32 3a c8 99 20 22 4f 53 5f 42 |1:do%=2:.. "OS_B| 00003520 79 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 |yte",113,see%:..| 00003530 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 | "OS_Byte",112,d| 00003540 6f 25 0d 0c 6c 27 ef 32 34 2c 33 34 30 3b 32 30 |o%..l'.24,340;20| 00003550 38 3b 39 34 30 3b 39 35 38 3b 3a 6c 61 73 74 74 |8;940;958;:lastt| 00003560 69 6d 65 25 3d 91 2d 34 30 0d 0c 76 1c f2 63 61 |ime%=.-40..v..ca| 00003570 63 68 65 73 6f 75 6e 64 28 22 66 78 73 77 69 73 |chesound("fxswis| 00003580 68 22 2c 31 29 0d 0c 80 0f e3 6a 25 3d 31 34 b8 |h",1).....j%=14.| 00003590 32 88 2d 31 0d 0c 8a 2e 20 f2 6d 61 6b 65 62 65 |2.-1.... .makebe| 000035a0 64 72 6f 6f 6d 28 36 30 34 2c 30 2c 6a 25 29 3a |droom(604,0,j%):| 000035b0 f5 3a fd 20 91 3e 6c 61 73 74 74 69 6d 65 25 2b |.:. .>lasttime%+| 000035c0 34 30 0d 0c 94 18 20 e7 6a 25 3d 31 34 3a d4 20 |40.... .j%=14:. | 000035d0 31 2c 26 31 37 46 2c 31 2c 31 0d 0c 9e 52 20 73 |1,&17F,1,1...R s| 000035e0 65 65 25 3d 25 31 30 30 3e 3e 3e 73 65 65 25 3a |ee%=%100>>>see%:| 000035f0 64 6f 25 3d 25 31 30 30 3e 3e 3e 64 6f 25 3a c8 |do%=%100>>>do%:.| 00003600 96 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 |.:.. "OS_Byte",1| 00003610 31 33 2c 73 65 65 25 3a c8 99 20 22 4f 53 5f 42 |13,see%:.. "OS_B| 00003620 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d 0c a8 05 |yte",112,do%....| 00003630 ed 0d 0c b2 2d ef 32 36 3a f2 73 63 72 63 6f 70 |....-.26:.scrcop| 00003640 79 28 73 65 65 25 2c 64 6f 25 29 3a c8 99 20 22 |y(see%,do%):.. "| 00003650 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 0d 0c |OS_Byte",112,2..| 00003660 bc 0f 75 73 75 61 6c 70 6f 73 25 3d 30 0d 0c c6 |..usualpos%=0...| 00003670 52 f2 77 6f 72 64 73 5f 62 6f 78 28 31 2c 22 32 |R.words_box(1,"2| 00003680 30 22 2c 22 22 2c 22 54 68 65 20 6b 69 6e 67 20 |0","","The king | 00003690 69 73 20 22 2b 6f 6e 24 2b 22 6d 69 73 73 69 6e |is "+on$+"missin| 000036a0 67 22 2b 6f 66 66 24 2b 22 2e 22 2c 22 22 2c 34 |g"+off$+".","",4| 000036b0 34 30 2c 37 34 30 2c 32 2c 30 2c 37 31 32 29 0d |40,740,2,0,712).| 000036c0 0c d0 62 f2 6d 65 72 67 65 73 63 72 32 31 28 34 |..b.mergescr21(4| 000036d0 29 3a 65 79 65 73 25 28 30 2c 30 29 3d 32 32 30 |):eyes%(0,0)=220| 000036e0 3a 65 79 65 73 25 28 30 2c 31 29 3d 34 34 30 3a |:eyes%(0,1)=440:| 000036f0 65 65 79 65 73 25 3d 2d 31 3a 71 62 6c 25 3d 2d |eeyes%=-1:qbl%=-| 00003700 31 3a f2 62 6f 6f 6b 67 6f 6f 6e 28 31 30 38 30 |1:.bookgoon(1080| 00003710 2c 31 32 2c 26 31 30 32 30 30 31 2c 2d 31 2c 30 |,12,&102001,-1,0| 00003720 29 0d 0c da 74 c8 99 20 22 4f 53 5f 42 79 74 65 |)...t.. "OS_Byte| 00003730 22 2c 31 31 32 2c 32 3a c8 99 22 4f 53 5f 53 70 |",112,2:.."OS_Sp| 00003740 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 73 70 61 |riteOp",&122,spa| 00003750 72 65 61 25 2c 22 62 6f 78 62 67 22 2c 34 34 30 |rea%,"boxbg",440| 00003760 2c 37 34 30 2c 38 3a c8 99 22 4f 53 5f 53 70 72 |,740,8:.."OS_Spr| 00003770 69 74 65 4f 70 22 2c 26 31 32 32 2c 73 70 61 72 |iteOp",&122,spar| 00003780 65 61 25 2c 22 61 72 72 62 67 22 2c 37 31 32 2c |ea%,"arrbg",712,| 00003790 36 33 32 2c 38 0d 0c e4 74 f2 6d 65 72 67 65 73 |632,8...t.merges| 000037a0 63 72 32 31 28 34 29 3a c8 99 20 22 4f 53 5f 42 |cr21(4):.. "OS_B| 000037b0 79 74 65 22 2c 31 31 32 2c 32 3a f2 77 6f 72 64 |yte",112,2:.word| 000037c0 73 5f 62 6f 78 28 31 2c 22 32 31 22 2c 22 22 2c |s_box(1,"21","",| 000037d0 22 49 20 22 2b 6f 6e 24 2b 22 66 6f 75 6e 64 20 |"I "+on$+"found | 000037e0 22 2b 6f 66 66 24 2b 22 74 68 69 73 20 6c 65 74 |"+off$+"this let| 000037f0 74 65 72 2e 22 2c 22 22 2c 34 34 30 2c 37 34 30 |ter.","",440,740| 00003800 2c 32 2c 30 2c 37 31 32 29 0d 0c ee 62 f2 6d 65 |,2,0,712)...b.me| 00003810 72 67 65 73 63 72 32 31 28 34 29 3a 65 79 65 73 |rgescr21(4):eyes| 00003820 25 28 30 2c 30 29 3d 32 32 30 3a 65 79 65 73 25 |%(0,0)=220:eyes%| 00003830 28 30 2c 31 29 3d 34 34 30 3a 65 65 79 65 73 25 |(0,1)=440:eeyes%| 00003840 3d 2d 31 3a 71 62 6c 25 3d 2d 31 3a f2 62 6f 6f |=-1:qbl%=-1:.boo| 00003850 6b 67 6f 6f 6e 28 31 30 38 30 2c 31 32 2c 26 31 |kgoon(1080,12,&1| 00003860 30 32 30 30 31 2c 2d 31 2c 30 29 0d 0c f8 74 c8 |02001,-1,0)...t.| 00003870 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 00003880 32 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |2:.."OS_SpriteOp| 00003890 22 2c 26 31 32 32 2c 73 70 61 72 65 61 25 2c 22 |",&122,sparea%,"| 000038a0 62 6f 78 62 67 22 2c 34 34 30 2c 37 34 30 2c 38 |boxbg",440,740,8| 000038b0 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"| 000038c0 2c 26 31 32 32 2c 73 70 61 72 65 61 25 2c 22 61 |,&122,sparea%,"a| 000038d0 72 72 62 67 22 2c 37 31 32 2c 36 33 32 2c 38 0d |rrbg",712,632,8.| 000038e0 0d 02 12 f2 6d 65 72 67 65 73 63 72 32 31 28 34 |....mergescr21(4| 000038f0 29 0d 0d 0c 73 c8 99 20 22 4f 53 5f 42 79 74 65 |)...s.. "OS_Byte| 00003900 22 2c 31 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a |",112,2:.18,0,3:| 00003910 ef 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 |.25,4,0;0;:.25,1| 00003920 30 31 2c 31 32 37 38 3b 39 35 38 3b 3a c8 99 22 |01,1278;958;:.."| 00003930 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13| 00003940 34 2c 73 70 61 72 65 61 25 2c 22 70 61 70 65 72 |4,sparea%,"paper| 00003950 22 2c 33 33 36 2c 31 38 30 2c 38 2c 73 63 61 6c |",336,180,8,scal| 00003960 65 25 2c 30 0d 0d 16 23 f2 77 6f 72 64 73 5f 72 |e%,0...#.words_r| 00003970 65 61 64 28 35 2c 22 32 32 2c 32 33 2c 32 34 2c |ead(5,"22,23,24,| 00003980 32 35 2c 32 36 22 29 0d 0d 20 32 f2 77 6f 72 64 |25,26").. 2.word| 00003990 73 28 33 33 36 2c 37 33 32 2c 2d 31 2c 33 2c 2d |s(336,732,-1,3,-| 000039a0 31 2c 36 30 30 2c 22 57 65 20 68 61 76 65 20 74 |1,600,"We have t| 000039b0 68 65 20 6b 69 6e 67 22 29 0d 0d 2a 40 f2 77 6f |he king")..*@.wo| 000039c0 72 64 73 28 33 33 36 2c 36 33 32 2c 2d 31 2c 33 |rds(336,632,-1,3| 000039d0 2c 2d 31 2c 36 30 30 2c 22 69 6e 20 6f 75 72 20 |,-1,600,"in our | 000039e0 22 2b 6f 6e 24 2b 22 64 75 6e 67 65 6f 6e 22 2b |"+on$+"dungeon"+| 000039f0 6f 66 66 24 2b 22 2e 22 29 0d 0d 34 41 f2 77 6f |off$+".")..4A.wo| 00003a00 72 64 73 28 33 33 36 2c 35 33 32 2c 2d 31 2c 33 |rds(336,532,-1,3| 00003a10 2c 2d 31 2c 36 30 30 2c 22 57 65 20 77 69 6c 6c |,-1,600,"We will| 00003a20 20 22 2b 6f 6e 24 2b 22 73 77 61 70 20 22 2b 6f | "+on$+"swap "+o| 00003a30 66 66 24 2b 22 68 69 6d 22 29 0d 0d 3e 44 f2 77 |ff$+"him")..>D.w| 00003a40 6f 72 64 73 28 33 33 36 2c 34 33 32 2c 2d 31 2c |ords(336,432,-1,| 00003a50 33 2c 2d 31 2c 36 30 30 2c 22 66 6f 72 20 61 6c |3,-1,600,"for al| 00003a60 6c 20 74 68 65 20 22 2b 6f 6e 24 2b 22 63 72 6f |l the "+on$+"cro| 00003a70 77 6e 73 22 2b 6f 66 66 24 2b 22 2e 22 29 0d 0d |wns"+off$+".")..| 00003a80 48 26 f2 77 6f 72 64 73 28 33 33 36 2c 33 33 32 |H&.words(336,332| 00003a90 2c 2d 31 2c 33 2c 2d 31 2c 36 30 30 2c 22 46 72 |,-1,3,-1,600,"Fr| 00003aa0 6f 6d 22 29 0d 0d 52 40 f2 77 6f 72 64 73 28 33 |om")..R@.words(3| 00003ab0 33 36 2c 32 33 32 2c 2d 31 2c 33 2c 2d 31 2c 36 |36,232,-1,3,-1,6| 00003ac0 30 30 2c 22 54 68 65 20 22 2b 6f 6e 24 2b 22 48 |00,"The "+on$+"H| 00003ad0 61 69 72 79 20 47 61 6e 67 22 2b 6f 66 66 24 2b |airy Gang"+off$+| 00003ae0 22 2e 22 29 0d 0d 5c 45 f2 6d 65 72 67 65 73 63 |".")..\E.mergesc| 00003af0 72 32 31 28 34 29 3a 77 68 69 74 65 62 67 25 3d |r21(4):whitebg%=| 00003b00 30 3a f2 62 6f 6f 6b 67 6f 6f 6e 28 31 30 38 30 |0:.bookgoon(1080| 00003b10 2c 31 32 2c 26 30 31 2c 2d 31 2c 30 29 3a 77 68 |,12,&01,-1,0):wh| 00003b20 69 74 65 62 67 25 3d 2d 31 0d 0d 66 51 c8 99 20 |itebg%=-1..fQ.. | 00003b30 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a |"OS_Byte",112,2:| 00003b40 ef 31 38 2c 30 2c 33 3a ef 32 35 2c 34 2c 30 3b |.18,0,3:.25,4,0;| 00003b50 30 3b 3a ef 32 35 2c 31 30 31 2c 31 32 37 38 3b |0;:.25,101,1278;| 00003b60 39 35 38 3b 3a f2 6d 61 6b 65 62 65 64 72 6f 6f |958;:.makebedroo| 00003b70 6d 28 36 30 34 2c 30 2c 32 29 0d 0d 70 76 c8 99 |m(604,0,2)..pv..| 00003b80 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00003b90 33 34 2c 73 70 61 72 65 61 25 2c 22 65 6c 66 73 |34,sparea%,"elfs| 00003ba0 74 30 22 2c 38 30 2c 31 38 38 2c 38 2c 73 63 61 |t0",80,188,8,sca| 00003bb0 6c 65 25 2c 30 3a c8 99 22 4f 53 5f 53 70 72 69 |le%,0:.."OS_Spri| 00003bc0 74 65 4f 70 22 2c 26 31 33 34 2c 62 75 74 61 72 |teOp",&134,butar| 00003bd0 65 61 25 2c 22 65 6c 66 68 65 61 64 30 22 2c 36 |ea%,"elfhead0",6| 00003be0 38 2c 33 38 38 2c 38 2c 73 63 61 6c 65 25 2c 30 |8,388,8,scale%,0| 00003bf0 0d 0d 7a 05 f5 0d 0d 84 23 20 c8 99 20 22 4f 53 |..z.....# .. "OS| 00003c00 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a 75 73 75 |_Byte",112,2:usu| 00003c10 61 6c 70 6f 73 25 3d 30 0d 0d 8e 2b f4 20 4e 42 |alpos%=0...+. NB| 00003c20 20 62 6c 75 65 77 6f 72 64 73 25 20 3d 20 32 20 | bluewords% = 2 | 00003c30 74 6f 20 63 6f 76 65 72 20 62 6f 74 68 20 62 6f |to cover both bo| 00003c40 78 65 73 0d 0d 98 59 20 f2 77 6f 72 64 73 5f 62 |xes...Y .words_b| 00003c50 6f 78 28 32 2c 22 32 37 2c 32 39 22 2c 22 22 2c |ox(2,"27,29","",| 00003c60 22 54 68 65 20 6b 69 6e 67 20 6d 75 73 74 20 62 |"The king must b| 00003c70 65 20 22 2b 6f 6e 24 2b 22 66 6f 75 6e 64 22 2b |e "+on$+"found"+| 00003c80 6f 66 66 24 2b 22 2e 22 2c 22 22 2c 34 34 30 2c |off$+".","",440,| 00003c90 37 34 30 2c 32 2c 30 2c 37 31 32 29 0d 0d a2 58 |740,2,0,712)...X| 00003ca0 20 f2 77 6f 72 64 73 5f 62 6f 78 28 32 2c 22 32 | .words_box(2,"2| 00003cb0 37 2c 32 39 22 2c 22 22 2c 6f 6e 24 2b 22 50 6c |7,29","",on$+"Pl| 00003cc0 65 61 73 65 20 22 2b 6f 66 66 24 2b 22 77 69 6c |ease "+off$+"wil| 00003cd0 6c 20 79 6f 75 20 68 65 6c 70 20 75 73 3f 22 2c |l you help us?",| 00003ce0 22 22 2c 33 35 30 2c 33 31 36 2c 31 2c 2d 31 2c |"",350,316,1,-1,| 00003cf0 33 35 36 29 0d 0d ac 5e 20 f2 6d 65 72 67 65 73 |356)...^ .merges| 00003d00 63 72 32 31 28 34 29 3a 65 79 65 73 25 28 30 2c |cr21(4):eyes%(0,| 00003d10 30 29 3d 31 32 32 3a 65 79 65 73 25 28 30 2c 31 |0)=122:eyes%(0,1| 00003d20 29 3d 34 35 32 3a 65 65 79 65 73 25 3d 2d 31 3a |)=452:eeyes%=-1:| 00003d30 71 62 6c 25 3d 2d 31 3a f2 62 6d 79 6e 28 31 30 |qbl%=-1:.bmyn(10| 00003d40 38 30 2c 31 32 2c 26 32 32 30 30 38 2c 2d 31 2c |80,12,&22008,-1,| 00003d50 30 29 0d 0d b6 52 20 c8 99 20 22 4f 53 5f 42 79 |0)...R .. "OS_By| 00003d60 74 65 22 2c 31 31 32 2c 32 3a ef 31 38 2c 30 2c |te",112,2:.18,0,| 00003d70 33 3a ef 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 |3:.25,4,0;0;:.25| 00003d80 2c 31 30 31 2c 31 32 37 38 3b 39 35 38 3b 3a f2 |,101,1278;958;:.| 00003d90 6d 61 6b 65 62 65 64 72 6f 6f 6d 28 36 30 34 2c |makebedroom(604,| 00003da0 30 2c 32 29 0d 0d c0 77 20 c8 99 22 4f 53 5f 53 |0,2)...w .."OS_S| 00003db0 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 70 |priteOp",&134,sp| 00003dc0 61 72 65 61 25 2c 22 65 6c 66 73 74 30 22 2c 38 |area%,"elfst0",8| 00003dd0 30 2c 31 38 38 2c 38 2c 73 63 61 6c 65 25 2c 30 |0,188,8,scale%,0| 00003de0 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"| 00003df0 2c 26 31 33 34 2c 62 75 74 61 72 65 61 25 2c 22 |,&134,butarea%,"| 00003e00 65 6c 66 68 65 61 64 30 22 2c 36 38 2c 33 38 38 |elfhead0",68,388| 00003e10 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 0d ca 13 20 |,8,scale%,0.... | 00003e20 f2 6d 65 72 67 65 73 63 72 32 31 28 34 29 0d 0d |.mergescr21(4)..| 00003e30 d4 10 20 e7 63 68 6f 73 65 6e 25 3d 30 8c 0d 0d |.. .chosen%=0...| 00003e40 de 18 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 |.. .. "OS_Byte"| 00003e50 2c 31 31 32 2c 32 0d 0d e8 58 20 20 f2 77 6f 72 |,112,2...X .wor| 00003e60 64 73 5f 62 6f 78 28 32 2c 22 32 38 2c 33 30 22 |ds_box(2,"28,30"| 00003e70 2c 22 22 2c 6f 6e 24 2b 22 50 6c 65 61 73 65 20 |,"",on$+"Please | 00003e80 22 2b 6f 66 66 24 2b 22 77 69 6c 6c 20 79 6f 75 |"+off$+"will you| 00003e90 20 68 65 6c 70 20 75 73 3f 22 2c 22 22 2c 34 34 | help us?","",44| 00003ea0 30 2c 37 34 30 2c 32 2c 30 2c 37 31 32 29 0d 0d |0,740,2,0,712)..| 00003eb0 f2 5c 20 20 f2 77 6f 72 64 73 5f 62 6f 78 28 32 |.\ .words_box(2| 00003ec0 2c 22 32 38 2c 33 30 22 2c 22 22 2c 22 57 65 20 |,"28,30","","We | 00003ed0 6d 75 73 74 20 22 2b 6f 6e 24 2b 22 72 65 73 63 |must "+on$+"resc| 00003ee0 75 65 20 22 2b 6f 66 66 24 2b 22 74 68 65 20 6b |ue "+off$+"the k| 00003ef0 69 6e 67 2e 22 2c 22 22 2c 33 35 30 2c 33 31 36 |ing.","",350,316| 00003f00 2c 31 2c 2d 31 2c 33 35 36 29 0d 0d fc 5f 20 20 |,1,-1,356)..._ | 00003f10 f2 6d 65 72 67 65 73 63 72 32 31 28 34 29 3a 65 |.mergescr21(4):e| 00003f20 79 65 73 25 28 30 2c 30 29 3d 31 32 32 3a 65 79 |yes%(0,0)=122:ey| 00003f30 65 73 25 28 30 2c 31 29 3d 34 35 32 3a 65 65 79 |es%(0,1)=452:eey| 00003f40 65 73 25 3d 2d 31 3a 71 62 6c 25 3d 2d 31 3a f2 |es%=-1:qbl%=-1:.| 00003f50 62 6d 79 6e 28 31 30 38 30 2c 31 32 2c 26 32 32 |bmyn(1080,12,&22| 00003f60 30 30 38 2c 2d 31 2c 30 29 0d 0e 06 53 20 20 c8 |008,-1,0)...S .| 00003f70 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 00003f80 32 3a ef 31 38 2c 30 2c 33 3a ef 32 35 2c 34 2c |2:.18,0,3:.25,4,| 00003f90 30 3b 30 3b 3a ef 32 35 2c 31 30 31 2c 31 32 37 |0;0;:.25,101,127| 00003fa0 38 3b 39 35 38 3b 3a f2 6d 61 6b 65 62 65 64 72 |8;958;:.makebedr| 00003fb0 6f 6f 6d 28 36 30 34 2c 30 2c 32 29 0d 0e 10 78 |oom(604,0,2)...x| 00003fc0 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 | .."OS_SpriteOp| 00003fd0 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 |",&134,sparea%,"| 00003fe0 65 6c 66 73 74 30 22 2c 38 30 2c 31 38 38 2c 38 |elfst0",80,188,8| 00003ff0 2c 73 63 61 6c 65 25 2c 30 3a c8 99 22 4f 53 5f |,scale%,0:.."OS_| 00004000 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 62 |SpriteOp",&134,b| 00004010 75 74 61 72 65 61 25 2c 22 65 6c 66 68 65 61 64 |utarea%,"elfhead| 00004020 30 22 2c 36 38 2c 33 38 38 2c 38 2c 73 63 61 6c |0",68,388,8,scal| 00004030 65 25 2c 30 0d 0e 1a 14 20 20 f2 6d 65 72 67 65 |e%,0.... .merge| 00004040 73 63 72 32 31 28 34 29 0d 0e 24 06 20 cd 0d 0e |scr21(4)..$. ...| 00004050 2e 10 fd 20 63 68 6f 73 65 6e 25 3c 3e 30 0d 0e |... chosen%<>0..| 00004060 38 2b f4 20 4e 42 20 62 6c 75 65 77 6f 72 64 73 |8+. NB bluewords| 00004070 25 20 3d 20 32 20 74 6f 20 63 6f 76 65 72 20 62 |% = 2 to cover b| 00004080 6f 74 68 20 62 6f 78 65 73 0d 0e 42 5b c8 99 20 |oth boxes..B[.. | 00004090 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a |"OS_Byte",112,2:| 000040a0 f2 77 6f 72 64 73 5f 62 6f 78 28 32 2c 22 33 31 |.words_box(2,"31| 000040b0 2c 33 32 22 2c 22 22 2c 6f 6e 24 2b 22 54 68 61 |,32","",on$+"Tha| 000040c0 6e 6b 20 79 6f 75 22 2b 6f 66 66 24 2b 22 2e 22 |nk you"+off$+"."| 000040d0 2c 22 22 2c 35 32 30 2c 37 34 30 2c 32 2c 30 2c |,"",520,740,2,0,| 000040e0 37 31 32 29 0d 0e 4c 49 f2 77 6f 72 64 73 5f 62 |712)..LI.words_b| 000040f0 6f 78 28 32 2c 22 33 31 2c 33 32 22 2c 22 22 2c |ox(2,"31,32","",| 00004100 6f 6e 24 2b 22 54 68 61 6e 6b 20 79 6f 75 22 2b |on$+"Thank you"+| 00004110 6f 66 66 24 2b 22 2e 22 2c 22 22 2c 33 35 30 2c |off$+".","",350,| 00004120 33 31 36 2c 31 2c 2d 31 2c 33 35 36 29 0d 0e 56 |316,1,-1,356)..V| 00004130 61 f2 6d 65 72 67 65 73 63 72 32 31 28 34 29 3a |a.mergescr21(4):| 00004140 65 79 65 73 25 28 30 2c 30 29 3d 31 32 32 3a 65 |eyes%(0,0)=122:e| 00004150 79 65 73 25 28 30 2c 31 29 3d 34 35 32 3a 65 65 |yes%(0,1)=452:ee| 00004160 79 65 73 25 3d 2d 31 3a 71 62 6c 25 3d 2d 31 3a |yes%=-1:qbl%=-1:| 00004170 f2 62 6f 6f 6b 67 6f 6f 6e 28 31 30 38 30 2c 31 |.bookgoon(1080,1| 00004180 32 2c 26 32 32 30 30 31 2c 2d 31 2c 30 29 0d 0e |2,&22001,-1,0)..| 00004190 60 51 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 |`Q.. "OS_Byte",1| 000041a0 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef 32 35 |12,2:.18,0,3:.25| 000041b0 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 31 2c |,4,0;0;:.25,101,| 000041c0 31 32 37 38 3b 39 35 38 3b 3a f2 6d 61 6b 65 62 |1278;958;:.makeb| 000041d0 65 64 72 6f 6f 6d 28 36 30 34 2c 30 2c 32 29 0d |edroom(604,0,2).| 000041e0 0e 6a 4a f2 65 6c 66 28 39 34 2c 31 38 38 2c 33 |.jJ.elf(94,188,3| 000041f0 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |):.."OS_SpriteOp| 00004200 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 |",&134,sparea%,"| 00004210 70 6f 69 6e 74 22 2c 32 36 32 2c 33 31 36 2c 38 |point",262,316,8| 00004220 2c 73 63 61 6c 65 25 2c 30 0d 0e 74 29 f2 6d 65 |,scale%,0..t).me| 00004230 72 67 65 73 63 72 32 31 28 34 29 3a f2 77 61 69 |rgescr21(4):.wai| 00004240 74 28 31 35 30 29 3a f2 6d 61 67 69 63 75 73 65 |t(150):.magicuse| 00004250 72 73 0d 0e 7e 71 c8 99 20 22 4f 53 5f 42 79 74 |rs..~q.. "OS_Byt| 00004260 65 22 2c 31 31 32 2c 32 3a c8 99 22 4f 53 5f 53 |e",112,2:.."OS_S| 00004270 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 62 75 |priteOp",&134,bu| 00004280 74 61 72 65 61 25 2c 22 77 6f 72 6d 22 2c 32 30 |tarea%,"worm",20| 00004290 2c 35 36 2c 38 2c 73 63 61 6c 65 25 2c 30 3a f2 |,56,8,scale%,0:.| 000042a0 73 70 65 65 63 68 62 6f 78 28 32 34 30 2c 38 2c |speechbox(240,8,| 000042b0 38 32 30 2c 31 30 38 2c 31 2c 2d 31 2c 34 38 2c |820,108,1,-1,48,| 000042c0 2d 31 29 0d 0e 88 5f 75 73 75 61 6c 70 6f 73 25 |-1)..._usualpos%| 000042d0 3d 2d 31 3a f2 77 6f 72 64 73 5f 72 65 61 64 28 |=-1:.words_read(| 000042e0 31 2c 22 33 33 22 29 3a f2 77 6f 72 64 73 5f 73 |1,"33"):.words_s| 000042f0 61 79 28 22 48 65 72 65 20 79 6f 75 20 61 72 65 |ay("Here you are| 00004300 20 69 6e 20 74 68 65 20 22 2b 6f 6e 24 2b 22 73 | in the "+on$+"s| 00004310 74 6f 72 79 22 2b 6f 66 66 24 2b 22 2e 22 2c 22 |tory"+off$+".","| 00004320 22 29 0d 0e 92 12 f2 6d 65 72 67 65 73 63 72 32 |").....mergescr2| 00004330 31 28 34 29 0d 0e 9c 83 65 79 65 73 25 28 30 2c |1(4)....eyes%(0,| 00004340 30 29 3d 32 32 30 3a 65 79 65 73 25 28 30 2c 31 |0)=220:eyes%(0,1| 00004350 29 3d 34 34 30 3a 65 65 79 65 73 25 3d 2d 31 3a |)=440:eeyes%=-1:| 00004360 65 79 65 73 25 28 31 2c 30 29 3d 38 31 30 3a 65 |eyes%(1,0)=810:e| 00004370 79 65 73 25 28 31 2c 31 29 3d 35 30 34 3a 62 65 |yes%(1,1)=504:be| 00004380 79 65 73 25 3d 2d 31 3a 65 79 65 73 25 28 32 2c |yes%=-1:eyes%(2,| 00004390 30 29 3d 33 39 32 3a 65 79 65 73 25 28 32 2c 31 |0)=392:eyes%(2,1| 000043a0 29 3d 34 39 36 3a 67 65 79 65 73 25 3d 2d 31 3a |)=496:geyes%=-1:| 000043b0 71 62 6c 25 3d 2d 31 0d 0e a6 23 f2 62 6f 6f 6b |qbl%=-1...#.book| 000043c0 67 6f 6f 6e 28 31 30 38 30 2c 31 32 2c 26 31 43 |goon(1080,12,&1C| 000043d0 31 30 30 31 2c 2d 31 2c 30 29 0d 0e b0 3b c8 99 |1001,-1,0)...;..| 000043e0 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 | "OS_Byte",112,2| 000043f0 3a ef 31 38 2c 30 2c 33 3a ef 32 35 2c 34 2c 30 |:.18,0,3:.25,4,0| 00004400 3b 30 3b 3a ef 32 35 2c 31 30 31 2c 31 32 37 38 |;0;:.25,101,1278| 00004410 3b 31 37 36 3b 0d 0e ba 90 75 73 75 61 6c 70 6f |;176;....usualpo| 00004420 73 25 3d 30 3a f2 77 6f 72 64 73 5f 62 6f 78 28 |s%=0:.words_box(| 00004430 32 2c 22 33 34 2c 33 35 22 2c 22 22 2c 22 49 66 |2,"34,35","","If| 00004440 20 74 68 65 20 6b 69 6e 67 20 69 73 20 69 6e 20 | the king is in | 00004450 61 20 22 2b 6f 6e 24 2b 22 64 75 6e 67 65 6f 6e |a "+on$+"dungeon| 00004460 22 2b 6f 66 66 24 2b 22 2c 22 2c 22 68 65 20 6d |"+off$+",","he m| 00004470 75 73 74 20 62 65 20 69 6e 20 61 20 22 2b 6f 6e |ust be in a "+on| 00004480 24 2b 22 63 61 73 74 6c 65 22 2b 6f 66 66 24 2b |$+"castle"+off$+| 00004490 22 2e 22 2c 33 35 30 2c 32 38 36 2c 31 2c 2d 31 |".",350,286,1,-1| 000044a0 2c 33 35 36 29 0d 0e c4 62 f2 6d 65 72 67 65 73 |,356)...b.merges| 000044b0 63 72 32 31 28 34 29 3a 65 79 65 73 25 28 30 2c |cr21(4):eyes%(0,| 000044c0 30 29 3d 32 32 30 3a 65 79 65 73 25 28 30 2c 31 |0)=220:eyes%(0,1| 000044d0 29 3d 34 34 30 3a 65 65 79 65 73 25 3d 2d 31 3a |)=440:eeyes%=-1:| 000044e0 71 62 6c 25 3d 2d 31 3a f2 62 6f 6f 6b 67 6f 6f |qbl%=-1:.bookgoo| 000044f0 6e 28 31 30 38 30 2c 31 32 2c 26 31 43 31 30 30 |n(1080,12,&1C100| 00004500 31 2c 2d 31 2c 30 29 0d 0e ce 74 c8 99 20 22 4f |1,-1,0)...t.. "O| 00004510 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a c8 99 |S_Byte",112,2:..| 00004520 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00004530 32 32 2c 73 70 61 72 65 61 25 2c 22 62 6f 78 62 |22,sparea%,"boxb| 00004540 67 22 2c 33 35 30 2c 32 38 36 2c 38 3a c8 99 22 |g",350,286,8:.."| 00004550 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12| 00004560 32 2c 73 70 61 72 65 61 25 2c 22 61 72 72 62 67 |2,sparea%,"arrbg| 00004570 22 2c 32 38 32 2c 33 35 36 2c 38 0d 0e d8 12 f2 |",282,356,8.....| 00004580 6d 65 72 67 65 73 63 72 32 31 28 34 29 0d 0e e2 |mergescr21(4)...| 00004590 5d c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 |].. "OS_Byte",11| 000045a0 32 2c 32 3a 75 73 75 61 6c 70 6f 73 25 3d 30 3a |2,2:usualpos%=0:| 000045b0 f2 77 6f 72 64 73 5f 62 6f 78 28 30 2c 22 30 30 |.words_box(0,"00| 000045c0 22 2c 22 22 2c 22 57 65 20 6e 65 65 64 20 61 20 |","","We need a | 000045d0 6d 61 70 2e 22 2c 22 22 2c 33 35 30 2c 33 31 36 |map.","",350,316| 000045e0 2c 31 2c 2d 31 2c 33 35 36 29 0d 0e ec 12 f2 6d |,1,-1,356).....m| 000045f0 65 72 67 65 73 63 72 32 31 28 34 29 0d 0e f6 83 |ergescr21(4)....| 00004600 65 79 65 73 25 28 30 2c 30 29 3d 32 32 30 3a 65 |eyes%(0,0)=220:e| 00004610 79 65 73 25 28 30 2c 31 29 3d 34 34 30 3a 65 65 |yes%(0,1)=440:ee| 00004620 79 65 73 25 3d 2d 31 3a 65 79 65 73 25 28 31 2c |yes%=-1:eyes%(1,| 00004630 30 29 3d 38 31 30 3a 65 79 65 73 25 28 31 2c 31 |0)=810:eyes%(1,1| 00004640 29 3d 35 30 34 3a 62 65 79 65 73 25 3d 2d 31 3a |)=504:beyes%=-1:| 00004650 65 79 65 73 25 28 32 2c 30 29 3d 33 39 32 3a 65 |eyes%(2,0)=392:e| 00004660 79 65 73 25 28 32 2c 31 29 3d 34 39 36 3a 67 65 |yes%(2,1)=496:ge| 00004670 79 65 73 25 3d 2d 31 3a 71 62 6c 25 3d 2d 31 0d |yes%=-1:qbl%=-1.| 00004680 0f 00 23 f2 62 6f 6f 6b 67 6f 6f 6e 28 31 30 38 |..#.bookgoon(108| 00004690 30 2c 31 32 2c 26 31 43 31 30 30 31 2c 2d 31 2c |0,12,&1C1001,-1,| 000046a0 30 29 0d 0f 0a 74 c8 99 20 22 4f 53 5f 42 79 74 |0)...t.. "OS_Byt| 000046b0 65 22 2c 31 31 32 2c 32 3a c8 99 22 4f 53 5f 53 |e",112,2:.."OS_S| 000046c0 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 73 70 |priteOp",&122,sp| 000046d0 61 72 65 61 25 2c 22 62 6f 78 62 67 22 2c 33 35 |area%,"boxbg",35| 000046e0 30 2c 33 31 36 2c 38 3a c8 99 22 4f 53 5f 53 70 |0,316,8:.."OS_Sp| 000046f0 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 73 70 61 |riteOp",&122,spa| 00004700 72 65 61 25 2c 22 61 72 72 62 67 22 2c 32 38 32 |rea%,"arrbg",282| 00004710 2c 33 35 36 2c 38 0d 0f 14 12 f2 6d 65 72 67 65 |,356,8.....merge| 00004720 73 63 72 32 31 28 34 29 0d 0f 1e 05 e1 0d 0f 28 |scr21(4).......(| 00004730 04 0d 0f 32 0e dd f2 70 6f 69 6e 74 62 65 64 0d |...2...pointbed.| 00004740 0f 3c 08 ea 20 6a 25 0d 0f 46 10 f2 6c 6f 61 64 |.<.. j%..F..load| 00004750 62 65 64 72 6f 6f 6d 0d 0f 50 51 c8 99 20 22 4f |bedroom..PQ.. "O| 00004760 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a ef 31 |S_Byte",112,2:.1| 00004770 38 2c 30 2c 33 3a ef 32 35 2c 34 2c 30 3b 30 3b |8,0,3:.25,4,0;0;| 00004780 3a ef 32 35 2c 31 30 31 2c 31 32 37 38 3b 39 35 |:.25,101,1278;95| 00004790 38 3b 3a f2 6d 61 6b 65 62 65 64 72 6f 6f 6d 28 |8;:.makebedroom(| 000047a0 36 30 34 2c 30 2c 32 29 0d 0f 5a 6c f2 6d 65 72 |604,0,2)..Zl.mer| 000047b0 67 65 73 63 72 32 31 28 34 29 3a c8 99 20 22 4f |gescr21(4):.. "O| 000047c0 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a 75 73 |S_Byte",112,2:us| 000047d0 75 61 6c 70 6f 73 25 3d 30 3a f2 77 6f 72 64 73 |ualpos%=0:.words| 000047e0 5f 62 6f 78 28 30 2c 22 30 30 22 2c 22 22 2c 22 |_box(0,"00","","| 000047f0 59 6f 75 20 6e 65 65 64 20 61 20 6d 61 70 2e 22 |You need a map."| 00004800 2c 22 22 2c 34 34 30 2c 37 34 30 2c 32 2c 30 2c |,"",440,740,2,0,| 00004810 37 31 32 29 0d 0f 64 38 f2 6d 65 72 67 65 73 63 |712)..d8.mergesc| 00004820 72 32 31 28 34 29 3a 71 62 6c 25 3d 2d 31 3a f2 |r21(4):qbl%=-1:.| 00004830 62 6f 6f 6b 67 6f 6f 6e 28 31 30 38 30 2c 31 32 |bookgoon(1080,12| 00004840 2c 26 31 30 30 31 2c 2d 31 2c 30 29 0d 0f 6e 05 |,&1001,-1,0)..n.| 00004850 e1 0d 0f 78 04 0d 0f 82 11 dd f2 70 6f 69 6e 74 |...x.......point| 00004860 74 6f 64 6f 6f 72 0d 0f 8c 3b 73 65 65 25 3d 31 |todoor...;see%=1| 00004870 3a 64 6f 25 3d 32 3a c8 99 20 22 4f 53 5f 42 79 |:do%=2:.. "OS_By| 00004880 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 |te",113,see%:.. | 00004890 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f |"OS_Byte",112,do| 000048a0 25 0d 0f 96 74 f2 73 61 76 65 62 67 72 64 28 31 |%...t.savebgrd(1| 000048b0 31 30 30 2d 38 2c 32 32 30 2d 31 30 34 2c 31 31 |100-8,220-104,11| 000048c0 38 2c 31 31 32 2c 22 68 30 62 67 31 22 29 3a f2 |8,112,"h0bg1"):.| 000048d0 73 61 76 65 62 67 72 64 28 31 31 30 30 2d 38 2c |savebgrd(1100-8,| 000048e0 32 32 30 2d 31 30 34 2c 31 31 38 2c 31 31 32 2c |220-104,118,112,| 000048f0 22 68 30 62 67 32 22 29 3a 78 25 28 29 3d 28 31 |"h0bg2"):x%()=(1| 00004900 31 30 30 2d 38 29 3a 79 25 28 29 3d 28 32 32 30 |100-8):y%()=(220| 00004910 2d 31 30 34 29 0d 0f a0 35 c8 99 22 4f 53 5f 42 |-104)...5.."OS_B| 00004920 79 74 65 22 2c 32 31 2c 39 3a c8 97 20 c8 93 20 |yte",21,9:.. .. | 00004930 30 2c 30 2c 31 32 30 30 2c 39 35 38 3a c8 97 20 |0,0,1200,958:.. | 00004940 b8 20 31 31 30 30 2c 32 32 30 0d 0f aa 09 2a 46 |. 1100,220....*F| 00004950 58 31 35 0d 0f b4 05 f5 0d 0f be 13 20 f2 63 68 |X15......... .ch| 00004960 65 63 6b 6b 65 79 65 76 65 6e 74 0d 0f c8 26 20 |eckkeyevent...& | 00004970 c8 99 22 4f 53 5f 42 79 74 65 22 2c 32 31 2c 39 |.."OS_Byte",21,9| 00004980 3a c8 97 20 6d 78 25 2c 6d 79 25 2c 6d 62 75 74 |:.. mx%,my%,mbut| 00004990 25 0d 0f d2 30 20 e7 28 6d 62 75 74 25 3d 34 29 |%...0 .(mbut%=4)| 000049a0 80 28 62 6c 75 65 77 6f 72 64 73 25 3e 30 29 3a |.(bluewords%>0):| 000049b0 f2 65 6c 66 66 61 64 65 28 a4 6f 6e 62 6c 75 65 |.elffade(.onblue| 000049c0 29 0d 0f dc 45 20 c8 99 22 4f 53 5f 53 70 72 69 |)...E .."OS_Spri| 000049d0 74 65 4f 70 22 2c 26 31 32 32 2c 73 70 61 72 65 |teOp",&122,spare| 000049e0 61 25 2c 22 68 30 62 67 22 2b c3 28 64 6f 25 29 |a%,"h0bg"+.(do%)| 000049f0 2c 78 25 28 64 6f 25 2d 31 29 2c 79 25 28 64 6f |,x%(do%-1),y%(do| 00004a00 25 2d 31 29 2c 38 0d 0f e6 5b 20 78 25 28 64 6f |%-1),8...[ x%(do| 00004a10 25 2d 31 29 3d 6d 78 25 2d 38 3a 79 25 28 64 6f |%-1)=mx%-8:y%(do| 00004a20 25 2d 31 29 3d 6d 79 25 2d 31 30 34 3a f2 73 61 |%-1)=my%-104:.sa| 00004a30 76 65 62 67 72 64 28 78 25 28 64 6f 25 2d 31 29 |vebgrd(x%(do%-1)| 00004a40 2c 79 25 28 64 6f 25 2d 31 29 2c 31 31 38 2c 31 |,y%(do%-1),118,1| 00004a50 31 32 2c 22 68 30 62 67 22 2b c3 28 64 6f 25 29 |12,"h0bg"+.(do%)| 00004a60 29 0d 0f f0 46 20 c8 99 22 4f 53 5f 53 70 72 69 |)...F .."OS_Spri| 00004a70 74 65 4f 70 22 2c 26 31 33 34 2c 62 75 74 61 72 |teOp",&134,butar| 00004a80 65 61 25 2c 22 68 30 22 2c 78 25 28 64 6f 25 2d |ea%,"h0",x%(do%-| 00004a90 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 38 2c 73 |1),y%(do%-1),8,s| 00004aa0 63 61 6c 65 25 2c 30 0d 0f fa 52 20 73 65 65 25 |cale%,0...R see%| 00004ab0 3d 25 31 30 30 3e 3e 3e 73 65 65 25 3a 64 6f 25 |=%100>>>see%:do%| 00004ac0 3d 25 31 30 30 3e 3e 3e 64 6f 25 3a c8 96 3a c8 |=%100>>>do%:..:.| 00004ad0 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c |. "OS_Byte",113,| 00004ae0 73 65 65 25 3a c8 99 20 22 4f 53 5f 42 79 74 65 |see%:.. "OS_Byte| 00004af0 22 2c 31 31 32 2c 64 6f 25 0d 10 04 24 20 e7 6d |",112,do%...$ .m| 00004b00 62 75 74 25 3d 34 3a 64 72 25 3d a4 6f 6e 61 64 |but%=4:dr%=.onad| 00004b10 6f 6f 72 32 3a 8b 3a 64 72 25 3d 2d 31 0d 10 0e |oor2:.:dr%=-1...| 00004b20 0b fd 64 72 25 3e 3d 30 0d 10 18 5d f2 73 63 72 |..dr%>=0...].scr| 00004b30 63 6f 70 79 28 73 65 65 25 2c 64 6f 25 29 3a c8 |copy(see%,do%):.| 00004b40 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 00004b50 32 3a ef 31 38 2c 30 2c 33 3a ef 32 35 2c 34 2c |2:.18,0,3:.25,4,| 00004b60 30 3b 30 3b 3a ef 32 35 2c 31 30 31 2c 31 32 37 |0;0;:.25,101,127| 00004b70 38 3b 31 39 36 3b 3a f2 6d 65 72 67 65 73 63 72 |8;196;:.mergescr| 00004b80 32 31 28 34 29 0d 10 22 68 c8 99 22 4f 53 5f 53 |21(4).."h.."OS_S| 00004b90 70 72 69 74 65 4f 70 22 2c 26 31 31 39 2c 73 70 |priteOp",&119,sp| 00004ba0 61 72 65 61 25 2c 22 68 30 62 67 22 2b c3 28 64 |area%,"h0bg"+.(d| 00004bb0 6f 25 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |o%):.."OS_Sprite| 00004bc0 4f 70 22 2c 26 31 31 42 2c 73 70 61 72 65 61 25 |Op",&11B,sparea%| 00004bd0 2c 22 68 30 62 67 22 2b c3 28 73 65 65 25 29 2c |,"h0bg"+.(see%),| 00004be0 22 68 30 62 67 22 2b c3 28 64 6f 25 29 0d 10 2c |"h0bg"+.(do%)..,| 00004bf0 2d 78 25 28 64 6f 25 2d 31 29 3d 78 25 28 73 65 |-x%(do%-1)=x%(se| 00004c00 65 25 2d 31 29 3a 79 25 28 64 6f 25 2d 31 29 3d |e%-1):y%(do%-1)=| 00004c10 79 25 28 73 65 65 25 2d 31 29 0d 10 36 15 e7 64 |y%(see%-1)..6..d| 00004c20 72 25 3d 49 25 3a f2 70 6f 69 6e 74 62 65 64 0d |r%=I%:.pointbed.| 00004c30 10 40 05 e1 0d 10 4a 04 0d 10 54 10 dd f2 70 6f |.@....J...T...po| 00004c40 69 6e 74 74 6f 6d 61 70 0d 10 5e 3b 73 65 65 25 |inttomap..^;see%| 00004c50 3d 31 3a 64 6f 25 3d 32 3a c8 99 20 22 4f 53 5f |=1:do%=2:.. "OS_| 00004c60 42 79 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 |Byte",113,see%:.| 00004c70 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 00004c80 64 6f 25 0d 10 68 5e f2 73 61 76 65 62 67 72 64 |do%..h^.savebgrd| 00004c90 28 31 31 30 30 2c 32 32 30 2c 31 31 38 2c 31 31 |(1100,220,118,11| 00004ca0 32 2c 22 68 30 62 67 31 22 29 3a f2 73 61 76 65 |2,"h0bg1"):.save| 00004cb0 62 67 72 64 28 31 31 30 30 2c 32 32 30 2c 31 31 |bgrd(1100,220,11| 00004cc0 38 2c 31 31 32 2c 22 68 30 62 67 32 22 29 3a 78 |8,112,"h0bg2"):x| 00004cd0 25 28 29 3d 31 31 30 30 3a 79 25 28 29 3d 32 32 |%()=1100:y%()=22| 00004ce0 30 0d 10 72 37 c8 99 22 4f 53 5f 42 79 74 65 22 |0..r7.."OS_Byte"| 00004cf0 2c 32 31 2c 39 3a c8 97 20 c8 93 20 30 2c 31 34 |,21,9:.. .. 0,14| 00004d00 30 2c 31 32 30 30 2c 37 36 30 3a c8 97 20 b8 20 |0,1200,760:.. . | 00004d10 31 31 30 30 2c 32 32 30 0d 10 7c 09 2a 46 58 31 |1100,220..|.*FX1| 00004d20 35 0d 10 86 1c f2 63 61 63 68 65 73 6f 75 6e 64 |5.....cachesound| 00004d30 28 22 66 78 62 6f 69 6e 67 22 2c 31 29 0d 10 90 |("fxboing",1)...| 00004d40 05 f5 0d 10 9a 13 20 f2 63 68 65 63 6b 6b 65 79 |...... .checkkey| 00004d50 65 76 65 6e 74 0d 10 a4 26 20 c8 99 22 4f 53 5f |event...& .."OS_| 00004d60 42 79 74 65 22 2c 32 31 2c 39 3a c8 97 20 6d 78 |Byte",21,9:.. mx| 00004d70 25 2c 6d 79 25 2c 6d 62 75 74 25 0d 10 ae 45 20 |%,my%,mbut%...E | 00004d80 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00004d90 26 31 32 32 2c 73 70 61 72 65 61 25 2c 22 68 30 |&122,sparea%,"h0| 00004da0 62 67 22 2b c3 28 64 6f 25 29 2c 78 25 28 64 6f |bg"+.(do%),x%(do| 00004db0 25 2d 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 38 |%-1),y%(do%-1),8| 00004dc0 0d 10 b8 55 20 78 25 28 64 6f 25 2d 31 29 3d 6d |...U x%(do%-1)=m| 00004dd0 78 25 3a 79 25 28 64 6f 25 2d 31 29 3d 6d 79 25 |x%:y%(do%-1)=my%| 00004de0 3a f2 73 61 76 65 62 67 72 64 28 78 25 28 64 6f |:.savebgrd(x%(do| 00004df0 25 2d 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 31 |%-1),y%(do%-1),1| 00004e00 31 38 2c 31 31 32 2c 22 68 30 62 67 22 2b c3 28 |18,112,"h0bg"+.(| 00004e10 64 6f 25 29 29 0d 10 c2 46 20 c8 99 22 4f 53 5f |do%))...F .."OS_| 00004e20 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 62 |SpriteOp",&134,b| 00004e30 75 74 61 72 65 61 25 2c 22 68 30 22 2c 78 25 28 |utarea%,"h0",x%(| 00004e40 64 6f 25 2d 31 29 2c 79 25 28 64 6f 25 2d 31 29 |do%-1),y%(do%-1)| 00004e50 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 10 cc 52 20 |,8,scale%,0...R | 00004e60 73 65 65 25 3d 25 31 30 30 3e 3e 3e 73 65 65 25 |see%=%100>>>see%| 00004e70 3a 64 6f 25 3d 25 31 30 30 3e 3e 3e 64 6f 25 3a |:do%=%100>>>do%:| 00004e80 c8 96 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |..:.. "OS_Byte",| 00004e90 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f 53 5f |113,see%:.. "OS_| 00004ea0 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d 10 d6 |Byte",112,do%...| 00004eb0 20 20 e7 6d 62 75 74 25 3d 34 3a 64 72 25 3d a4 | .mbut%=4:dr%=.| 00004ec0 6f 6e 6d 61 70 3a 8b 3a 64 72 25 3d 30 0d 10 e0 |onmap:.:dr%=0...| 00004ed0 08 fd 64 72 25 0d 10 ea 4e f2 73 63 72 63 6f 70 |..dr%...N.scrcop| 00004ee0 79 28 73 65 65 25 2c 64 6f 25 29 3a c8 99 20 22 |y(see%,do%):.. "| 00004ef0 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a ef |OS_Byte",112,2:.| 00004f00 31 38 2c 30 2c 33 3a ef 32 35 2c 34 2c 30 3b 30 |18,0,3:.25,4,0;0| 00004f10 3b 3a ef 32 35 2c 31 30 31 2c 31 32 37 38 3b 39 |;:.25,101,1278;9| 00004f20 35 38 3b 0d 10 f4 14 f2 6d 61 6b 65 63 75 70 62 |58;.....makecupb| 00004f30 6f 61 72 64 28 30 29 0d 10 fe 62 c8 99 22 4f 53 |oard(0)...b.."OS| 00004f40 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 00004f50 62 75 74 61 72 65 61 25 2c 22 65 6c 66 68 65 61 |butarea%,"elfhea| 00004f60 64 30 22 2c 32 30 2c 35 36 2c 38 2c 73 63 61 6c |d0",20,56,8,scal| 00004f70 65 25 2c 30 3a f2 73 70 65 65 63 68 62 6f 78 28 |e%,0:.speechbox(| 00004f80 32 34 30 2c 38 2c 38 32 30 2c 31 37 32 2c 31 2c |240,8,820,172,1,| 00004f90 2d 31 2c 34 38 2c 2d 31 29 0d 11 08 6c 75 73 75 |-1,48,-1)...lusu| 00004fa0 61 6c 70 6f 73 25 3d 2d 31 3a f2 77 6f 72 64 73 |alpos%=-1:.words| 00004fb0 28 32 34 30 2c 31 30 38 2c 2d 31 2c 33 2c 2d 31 |(240,108,-1,3,-1| 00004fc0 2c 38 32 30 2c 22 47 6f 6f 64 2e 22 29 3a c8 99 |,820,"Good."):..| 00004fd0 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00004fe0 33 34 2c 73 70 61 72 65 61 25 2c 22 73 63 72 6f |34,sparea%,"scro| 00004ff0 6c 6c 22 2c 34 38 30 2c 31 36 2c 38 2c 73 63 61 |ll",480,16,8,sca| 00005000 6c 65 25 2c 30 0d 11 12 10 d4 20 31 2c 26 31 37 |le%,0..... 1,&17| 00005010 46 2c 31 2c 31 0d 11 1c 2e f2 6d 65 72 67 65 73 |F,1,1.....merges| 00005020 63 72 32 31 28 34 29 3a f2 62 6f 6f 6b 67 6f 6f |cr21(4):.bookgoo| 00005030 6e 28 31 30 38 30 2c 31 32 2c 26 30 31 2c 2d 31 |n(1080,12,&01,-1| 00005040 2c 30 29 0d 11 26 05 e1 0d 11 30 04 0d 11 3a 11 |,0)..&....0...:.| 00005050 dd f2 6b 6e 6f 63 6b 6f 6e 64 6f 6f 72 0d 11 44 |..knockondoor..D| 00005060 3b 73 65 65 25 3d 31 3a 64 6f 25 3d 32 3a c8 99 |;see%=1:do%=2:..| 00005070 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 73 | "OS_Byte",113,s| 00005080 65 65 25 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 |ee%:.. "OS_Byte"| 00005090 2c 31 31 32 2c 64 6f 25 0d 11 4e 74 f2 73 61 76 |,112,do%..Nt.sav| 000050a0 65 62 67 72 64 28 31 31 30 30 2d 38 34 2c 32 32 |ebgrd(1100-84,22| 000050b0 30 2d 35 36 2c 31 31 38 2c 31 31 32 2c 22 68 30 |0-56,118,112,"h0| 000050c0 62 67 31 22 29 3a f2 73 61 76 65 62 67 72 64 28 |bg1"):.savebgrd(| 000050d0 31 31 30 30 2d 38 34 2c 32 32 30 2d 35 36 2c 31 |1100-84,220-56,1| 000050e0 31 38 2c 31 31 32 2c 22 68 30 62 67 32 22 29 3a |18,112,"h0bg2"):| 000050f0 78 25 28 29 3d 28 31 31 30 30 2d 38 34 29 3a 79 |x%()=(1100-84):y| 00005100 25 28 29 3d 28 32 32 30 2d 35 36 29 0d 11 58 35 |%()=(220-56)..X5| 00005110 c8 99 22 4f 53 5f 42 79 74 65 22 2c 32 31 2c 39 |.."OS_Byte",21,9| 00005120 3a c8 97 20 c8 93 20 30 2c 30 2c 31 32 30 30 2c |:.. .. 0,0,1200,| 00005130 39 35 38 3a c8 97 20 b8 20 31 31 30 30 2c 32 32 |958:.. . 1100,22| 00005140 30 0d 11 62 09 2a 46 58 31 35 0d 11 6c 05 f5 0d |0..b.*FX15..l...| 00005150 11 76 13 20 f2 63 68 65 63 6b 6b 65 79 65 76 65 |.v. .checkkeyeve| 00005160 6e 74 0d 11 80 26 20 c8 99 22 4f 53 5f 42 79 74 |nt...& .."OS_Byt| 00005170 65 22 2c 32 31 2c 39 3a c8 97 20 6d 78 25 2c 6d |e",21,9:.. mx%,m| 00005180 79 25 2c 6d 62 75 74 25 0d 11 8a 30 20 e7 28 6d |y%,mbut%...0 .(m| 00005190 62 75 74 25 3d 34 29 80 28 62 6c 75 65 77 6f 72 |but%=4).(bluewor| 000051a0 64 73 25 3e 30 29 3a f2 65 6c 66 66 61 64 65 28 |ds%>0):.elffade(| 000051b0 a4 6f 6e 62 6c 75 65 29 0d 11 94 45 20 c8 99 22 |.onblue)...E .."| 000051c0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12| 000051d0 32 2c 73 70 61 72 65 61 25 2c 22 68 30 62 67 22 |2,sparea%,"h0bg"| 000051e0 2b c3 28 64 6f 25 29 2c 78 25 28 64 6f 25 2d 31 |+.(do%),x%(do%-1| 000051f0 29 2c 79 25 28 64 6f 25 2d 31 29 2c 38 0d 11 9e |),y%(do%-1),8...| 00005200 5b 20 78 25 28 64 6f 25 2d 31 29 3d 6d 78 25 2d |[ x%(do%-1)=mx%-| 00005210 38 34 3a 79 25 28 64 6f 25 2d 31 29 3d 6d 79 25 |84:y%(do%-1)=my%| 00005220 2d 35 36 3a f2 73 61 76 65 62 67 72 64 28 78 25 |-56:.savebgrd(x%| 00005230 28 64 6f 25 2d 31 29 2c 79 25 28 64 6f 25 2d 31 |(do%-1),y%(do%-1| 00005240 29 2c 31 31 38 2c 31 31 32 2c 22 68 30 62 67 22 |),118,112,"h0bg"| 00005250 2b c3 28 64 6f 25 29 29 0d 11 a8 48 20 c8 99 22 |+.(do%))...H .."| 00005260 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13| 00005270 34 2c 73 70 61 72 65 61 25 2c 22 66 69 73 74 30 |4,sparea%,"fist0| 00005280 22 2c 78 25 28 64 6f 25 2d 31 29 2c 79 25 28 64 |",x%(do%-1),y%(d| 00005290 6f 25 2d 31 29 2c 38 2c 73 63 61 6c 65 25 2c 30 |o%-1),8,scale%,0| 000052a0 0d 11 b2 52 20 73 65 65 25 3d 25 31 30 30 3e 3e |...R see%=%100>>| 000052b0 3e 73 65 65 25 3a 64 6f 25 3d 25 31 30 30 3e 3e |>see%:do%=%100>>| 000052c0 3e 64 6f 25 3a c8 96 3a c8 99 20 22 4f 53 5f 42 |>do%:..:.. "OS_B| 000052d0 79 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 |yte",113,see%:..| 000052e0 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 | "OS_Byte",112,d| 000052f0 6f 25 0d 11 bc 23 20 e7 6d 62 75 74 25 3d 34 3a |o%...# .mbut%=4:| 00005300 64 72 25 3d a4 6f 6e 61 64 6f 6f 72 3a 8b 3a 64 |dr%=.onadoor:.:d| 00005310 72 25 3d 2d 31 0d 11 c6 0b fd 64 72 25 3e 3d 30 |r%=-1.....dr%>=0| 00005320 0d 11 d0 5d f2 73 63 72 63 6f 70 79 28 73 65 65 |...].scrcopy(see| 00005330 25 2c 64 6f 25 29 3a c8 99 20 22 4f 53 5f 42 79 |%,do%):.. "OS_By| 00005340 74 65 22 2c 31 31 32 2c 32 3a ef 31 38 2c 30 2c |te",112,2:.18,0,| 00005350 33 3a ef 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 |3:.25,4,0;0;:.25| 00005360 2c 31 30 31 2c 31 32 37 38 3b 31 39 36 3b 3a f2 |,101,1278;196;:.| 00005370 6d 65 72 67 65 73 63 72 32 31 28 34 29 0d 11 da |mergescr21(4)...| 00005380 68 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |h.."OS_SpriteOp"| 00005390 2c 26 31 31 39 2c 73 70 61 72 65 61 25 2c 22 68 |,&119,sparea%,"h| 000053a0 30 62 67 22 2b c3 28 64 6f 25 29 3a c8 99 22 4f |0bg"+.(do%):.."O| 000053b0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 31 42 |S_SpriteOp",&11B| 000053c0 2c 73 70 61 72 65 61 25 2c 22 68 30 62 67 22 2b |,sparea%,"h0bg"+| 000053d0 c3 28 73 65 65 25 29 2c 22 68 30 62 67 22 2b c3 |.(see%),"h0bg"+.| 000053e0 28 64 6f 25 29 0d 11 e4 2d 78 25 28 64 6f 25 2d |(do%)...-x%(do%-| 000053f0 31 29 3d 78 25 28 73 65 65 25 2d 31 29 3a 79 25 |1)=x%(see%-1):y%| 00005400 28 64 6f 25 2d 31 29 3d 79 25 28 73 65 65 25 2d |(do%-1)=y%(see%-| 00005410 31 29 0d 11 ee 21 e7 64 72 25 3d 49 25 3a f2 6b |1)...!.dr%=I%:.k| 00005420 6e 6f 63 6b 62 65 64 3a 8b 3a f2 6b 6e 6f 63 6b |nockbed:.:.knock| 00005430 63 75 70 0d 11 f8 05 e1 0d 12 02 04 0d 12 0c 0d |cup.............| 00005440 dd a4 6f 6e 61 64 6f 6f 72 0d 12 16 08 ea 20 6a |..onadoor..... j| 00005450 25 0d 12 20 13 6d 78 25 2d 3d 38 34 3a 6d 79 25 |%.. .mx%-=84:my%| 00005460 2d 3d 35 36 0d 12 2a 0b e3 6a 25 3d 30 b8 31 0d |-=56..*..j%=0.1.| 00005470 12 34 2f 20 e7 28 6d 78 25 3e 3d 34 34 32 2b 28 |.4/ .(mx%>=442+(| 00005480 34 31 36 2a 6a 25 29 29 80 28 6d 78 25 3c 3d 36 |416*j%)).(mx%<=6| 00005490 33 30 2b 28 34 31 36 2a 6a 25 29 29 20 8c 0d 12 |30+(416*j%)) ...| 000054a0 3e 31 20 20 e7 28 6d 79 25 3e 3d 34 31 36 29 80 |>1 .(my%>=416).| 000054b0 28 6d 79 25 3c 3d 36 35 32 29 8c 3a 6d 78 25 2b |(my%<=652).:mx%+| 000054c0 3d 38 34 3a 6d 79 25 2b 3d 35 36 3a 3d 6a 25 0d |=84:my%+=56:=j%.| 000054d0 12 48 1d 20 20 e7 28 6d 79 25 3e 3d 36 35 32 29 |.H. .(my%>=652)| 000054e0 80 28 6d 79 25 3c 3d 37 34 38 29 8c 0d 12 52 1d |.(my%<=748)...R.| 000054f0 20 20 20 e7 28 6d 78 25 3c 3d 35 33 36 2b 28 34 | .(mx%<=536+(4| 00005500 31 36 2a 6a 25 29 29 20 8c 0d 12 5c 3c 20 20 20 |16*j%)) ...\< | 00005510 20 e7 28 6d 79 25 2d 36 35 32 29 3c 3d 28 6d 78 | .(my%-652)<=(mx| 00005520 25 2d 34 34 32 2d 28 34 31 36 2a 6a 25 29 29 20 |%-442-(416*j%)) | 00005530 8c 3a 6d 78 25 2b 3d 38 34 3a 6d 79 25 2b 3d 35 |.:mx%+=84:my%+=5| 00005540 36 3a 3d 6a 25 0d 12 66 08 20 20 20 cc 0d 12 70 |6:=j%..f. ...p| 00005550 3c 20 20 20 20 e7 28 6d 79 25 2d 36 35 32 29 3c |< .(my%-652)<| 00005560 3d 28 36 33 30 2b 28 34 31 36 2a 6a 25 29 2d 6d |=(630+(416*j%)-m| 00005570 78 25 29 20 8c 3a 6d 78 25 2b 3d 38 34 3a 6d 79 |x%) .:mx%+=84:my| 00005580 25 2b 3d 35 36 3a 3d 6a 25 0d 12 7a 08 20 20 20 |%+=56:=j%..z. | 00005590 cd 0d 12 84 07 20 20 cd 0d 12 8e 06 20 cd 0d 12 |..... ..... ...| 000055a0 98 05 ed 0d 12 a2 13 6d 78 25 2b 3d 38 34 3a 6d |.......mx%+=84:m| 000055b0 79 25 2b 3d 35 36 0d 12 ac 07 3d 2d 31 0d 12 b6 |y%+=56....=-1...| 000055c0 04 0d 12 c0 0e dd a4 6f 6e 61 64 6f 6f 72 32 0d |.......onadoor2.| 000055d0 12 ca 08 ea 20 6a 25 0d 12 d4 0c 6d 79 25 2d 3d |.... j%....my%-=| 000055e0 31 30 34 0d 12 de 0b e3 6a 25 3d 30 b8 31 0d 12 |104.....j%=0.1..| 000055f0 e8 51 20 e7 28 6d 78 25 3e 3d 34 36 36 2b 28 34 |.Q .(mx%>=466+(4| 00005600 31 36 2a 6a 25 29 29 80 28 6d 78 25 3c 3d 37 30 |16*j%)).(mx%<=70| 00005610 32 2b 28 34 31 36 2a 6a 25 29 29 80 28 6d 79 25 |2+(416*j%)).(my%| 00005620 3e 3d 33 36 30 29 80 28 6d 79 25 3c 3d 37 33 32 |>=360).(my%<=732| 00005630 29 8c 3a 6d 79 25 2b 3d 31 30 34 3a 3d 6a 25 0d |).:my%+=104:=j%.| 00005640 12 f2 05 ed 0d 12 fc 0c 6d 79 25 2b 3d 31 30 34 |........my%+=104| 00005650 0d 13 06 07 3d 2d 31 0d 13 10 04 0d 13 1a 0b dd |....=-1.........| 00005660 a4 6f 6e 6d 61 70 0d 13 24 35 e7 28 6d 78 25 3e |.onmap..$5.(mx%>| 00005670 3d 35 37 32 29 80 28 6d 78 25 3c 3d 39 30 30 29 |=572).(mx%<=900)| 00005680 80 28 6d 79 25 3e 3d 34 32 34 29 80 28 6d 79 25 |.(my%>=424).(my%| 00005690 3c 3d 34 39 32 29 8c 3a 3d 2d 31 0d 13 2e 06 3d |<=492).:=-1....=| 000056a0 30 0d 13 38 04 0d 13 42 0b dd f2 6b 6e 6f 63 6b |0..8...B...knock| 000056b0 0d 13 4c 08 ea 20 6a 25 0d 13 56 3b 73 65 65 25 |..L.. j%..V;see%| 000056c0 3d 31 3a 64 6f 25 3d 32 3a c8 99 20 22 4f 53 5f |=1:do%=2:.. "OS_| 000056d0 42 79 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 |Byte",113,see%:.| 000056e0 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 000056f0 64 6f 25 0d 13 60 0f 6c 61 73 74 74 69 6d 65 25 |do%..`.lasttime%| 00005700 3d 91 0d 13 6a 1c f2 63 61 63 68 65 73 6f 75 6e |=...j..cachesoun| 00005710 64 28 22 66 78 6b 6e 6f 63 6b 22 2c 31 29 0d 13 |d("fxknock",1)..| 00005720 74 0b e3 6a 25 3d 31 b8 36 0d 13 7e 45 20 c8 99 |t..j%=1.6..~E ..| 00005730 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00005740 32 32 2c 73 70 61 72 65 61 25 2c 22 68 30 62 67 |22,sparea%,"h0bg| 00005750 22 2b c3 28 64 6f 25 29 2c 78 25 28 64 6f 25 2d |"+.(do%),x%(do%-| 00005760 31 29 2c 79 25 28 64 6f 25 2d 31 29 2c 38 0d 13 |1),y%(do%-1),8..| 00005770 88 4f 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |.O .."OS_SpriteO| 00005780 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00005790 22 66 69 73 74 22 2b c3 28 6a 25 83 32 29 2c 78 |"fist"+.(j%.2),x| 000057a0 25 28 64 6f 25 2d 31 29 2c 79 25 28 64 6f 25 2d |%(do%-1),y%(do%-| 000057b0 31 29 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 13 92 |1),8,scale%,0...| 000057c0 17 20 f5 3a fd 20 91 3e 6c 61 73 74 74 69 6d 65 |. .:. .>lasttime| 000057d0 25 2b 36 30 0d 13 9c 1b 20 e7 28 6a 25 83 32 29 |%+60.... .(j%.2)| 000057e0 3d 30 3a d4 20 31 2c 26 31 37 46 2c 31 2c 31 0d |=0:. 1,&17F,1,1.| 000057f0 13 a6 5e 20 73 65 65 25 3d 25 31 30 30 3e 3e 3e |..^ see%=%100>>>| 00005800 73 65 65 25 3a 64 6f 25 3d 25 31 30 30 3e 3e 3e |see%:do%=%100>>>| 00005810 64 6f 25 3a c8 96 3a c8 99 20 22 4f 53 5f 42 79 |do%:..:.. "OS_By| 00005820 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 |te",113,see%:.. | 00005830 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f |"OS_Byte",112,do| 00005840 25 3a 6c 61 73 74 74 69 6d 65 25 3d 91 0d 13 b0 |%:lasttime%=....| 00005850 05 ed 0d 13 ba 44 c8 99 22 4f 53 5f 53 70 72 69 |.....D.."OS_Spri| 00005860 74 65 4f 70 22 2c 26 31 32 32 2c 73 70 61 72 65 |teOp",&122,spare| 00005870 61 25 2c 22 68 30 62 67 22 2b c3 28 64 6f 25 29 |a%,"h0bg"+.(do%)| 00005880 2c 78 25 28 64 6f 25 2d 31 29 2c 79 25 28 64 6f |,x%(do%-1),y%(do| 00005890 25 2d 31 29 2c 38 0d 13 c4 16 f5 3a fd 20 91 3e |%-1),8.....:. .>| 000058a0 6c 61 73 74 74 69 6d 65 25 2b 36 30 0d 13 ce 5d |lasttime%+60...]| 000058b0 73 65 65 25 3d 25 31 30 30 3e 3e 3e 73 65 65 25 |see%=%100>>>see%| 000058c0 3a 64 6f 25 3d 25 31 30 30 3e 3e 3e 64 6f 25 3a |:do%=%100>>>do%:| 000058d0 c8 96 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |..:.. "OS_Byte",| 000058e0 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f 53 5f |113,see%:.. "OS_| 000058f0 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 3a 6c 61 |Byte",112,do%:la| 00005900 73 74 74 69 6d 65 25 3d 91 0d 13 d8 16 f2 73 63 |sttime%=......sc| 00005910 72 63 6f 70 79 28 73 65 65 25 2c 64 6f 25 29 0d |rcopy(see%,do%).| 00005920 13 e2 05 e1 0d 13 ec 04 0d 13 f6 0e dd f2 6b 6e |..............kn| 00005930 6f 63 6b 62 65 64 0d 14 00 24 f2 6b 6e 6f 63 6b |ockbed...$.knock| 00005940 3a f2 63 61 63 68 65 73 6f 75 6e 64 28 22 66 78 |:.cachesound("fx| 00005950 63 6f 6d 65 69 6e 22 2c 31 29 0d 14 0a 1a f2 77 |comein",1).....w| 00005960 61 69 74 28 35 30 29 3a d4 20 31 2c 26 31 37 46 |ait(50):. 1,&17F| 00005970 2c 31 2c 31 0d 14 14 05 e1 0d 14 1e 04 0d 14 28 |,1,1...........(| 00005980 1b dd f2 6d 61 6b 65 63 75 70 62 6f 61 72 64 28 |...makecupboard(| 00005990 73 63 72 6f 6c 6c 25 29 0d 14 32 80 c8 99 22 4f |scroll%)..2..."O| 000059a0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 000059b0 2c 73 70 61 72 65 61 25 2c 22 63 75 70 62 6f 61 |,sparea%,"cupboa| 000059c0 72 64 22 2c 33 33 36 2c 32 32 30 2c 38 2c 73 63 |rd",336,220,8,sc| 000059d0 61 6c 65 25 2c 30 3a e7 73 63 72 6f 6c 6c 25 3a |ale%,0:.scroll%:| 000059e0 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 000059f0 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 73 63 |&134,sparea%,"sc| 00005a00 72 6f 6c 6c 22 2c 35 37 38 2c 35 32 38 2c 38 2c |roll",578,528,8,| 00005a10 73 63 61 6c 65 25 2c 30 0d 14 3c 72 c8 99 22 4f |scale%,0..<r.."O| 00005a20 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 00005a30 2c 73 70 61 72 65 61 25 2c 22 73 70 61 64 65 22 |,sparea%,"spade"| 00005a40 2c 38 33 30 2c 32 32 30 2c 38 2c 73 63 61 6c 65 |,830,220,8,scale| 00005a50 25 2c 30 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |%,0:.."OS_Sprite| 00005a60 4f 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 |Op",&134,sparea%| 00005a70 2c 22 66 6f 72 6b 22 2c 37 35 38 2c 32 32 30 2c |,"fork",758,220,| 00005a80 38 2c 73 63 61 6c 65 25 2c 30 0d 14 46 05 e1 0d |8,scale%,0..F...| 00005a90 14 50 04 0d 14 5a 12 dd f2 6c 6f 61 64 63 75 70 |.P...Z...loadcup| 00005aa0 62 6f 61 72 64 0d 14 64 46 f2 6c 6f 61 64 75 6e |board..dF.loadun| 00005ab0 73 71 75 61 73 68 28 73 70 61 72 65 61 25 2c 73 |squash(sparea%,s| 00005ac0 70 61 72 65 61 73 69 7a 25 2d 28 31 31 2a 31 30 |pareasiz%-(11*10| 00005ad0 32 34 29 2c 22 4f 4e 45 2e 73 70 66 69 6c 65 73 |24),"ONE.spfiles| 00005ae0 2e 63 75 70 62 6f 61 72 64 22 29 0d 14 6e 5f 6d |.cupboard")..n_m| 00005af0 61 73 6b 73 70 25 28 29 3d 34 3a 6d 61 73 6b 73 |asksp%()=4:masks| 00005b00 70 24 28 30 29 3d 22 73 63 72 6f 6c 6c 22 3a 6d |p$(0)="scroll":m| 00005b10 61 73 6b 73 70 24 28 31 29 3d 22 66 6f 72 6b 22 |asksp$(1)="fork"| 00005b20 3a 6d 61 73 6b 73 70 24 28 32 29 3d 22 73 70 61 |:masksp$(2)="spa| 00005b30 64 65 22 3a f2 6d 61 73 6b 73 70 72 69 74 65 28 |de":.masksprite(| 00005b40 73 70 61 72 65 61 25 2c 33 29 0d 14 78 05 e1 0d |sparea%,3)..x...| 00005b50 14 82 04 0d 14 8c 10 dd f2 6c 6f 61 64 74 68 72 |.........loadthr| 00005b60 6f 6e 65 0d 14 96 48 f2 6c 6f 61 64 75 6e 73 71 |one...H.loadunsq| 00005b70 75 61 73 68 28 73 70 61 72 65 61 25 2c 73 70 61 |uash(sparea%,spa| 00005b80 72 65 61 73 69 7a 25 2d 28 31 31 2a 31 30 32 34 |reasiz%-(11*1024| 00005b90 29 2c 22 4f 4e 45 2e 73 70 66 69 6c 65 73 2e 74 |),"ONE.spfiles.t| 00005ba0 68 72 6f 6e 65 72 6f 6f 6d 22 29 0d 14 a0 5e 6d |hroneroom")...^m| 00005bb0 61 73 6b 73 70 25 28 29 3d 31 32 3a e3 6a 25 3d |asksp%()=12:.j%=| 00005bc0 30 b8 31 3a 6d 61 73 6b 73 70 24 28 6a 25 29 3d |0.1:masksp$(j%)=| 00005bd0 22 66 69 73 74 22 2b c3 28 6a 25 29 3a ed 3a 6d |"fist"+.(j%):.:m| 00005be0 61 73 6b 73 70 24 28 32 29 3d 22 65 6c 66 73 74 |asksp$(2)="elfst| 00005bf0 30 22 3a f2 6d 61 73 6b 73 70 72 69 74 65 28 73 |0":.masksprite(s| 00005c00 70 61 72 65 61 25 2c 33 29 0d 14 aa 05 e1 0d 14 |parea%,3).......| 00005c10 b4 04 0d 14 be 12 dd f2 6c 6f 61 64 63 61 73 74 |........loadcast| 00005c20 6c 65 67 6f 0d 14 c8 0b ea 20 6a 25 2c 6b 25 0d |lego..... j%,k%.| 00005c30 14 d2 46 f2 6c 6f 61 64 75 6e 73 71 75 61 73 68 |..F.loadunsquash| 00005c40 28 73 70 61 72 65 61 25 2c 73 70 61 72 65 61 73 |(sparea%,spareas| 00005c50 69 7a 25 2d 28 31 31 2a 31 30 32 34 29 2c 22 4f |iz%-(11*1024),"O| 00005c60 4e 45 2e 73 70 66 69 6c 65 73 2e 63 61 73 74 6c |NE.spfiles.castl| 00005c70 65 67 6f 22 29 0d 14 dc 7e 6d 61 73 6b 73 70 25 |ego")...~masksp%| 00005c80 28 29 3d 31 32 3a e3 6a 25 3d 30 b8 32 3a e3 6b |()=12:.j%=0.2:.k| 00005c90 25 3d 30 b8 31 3a 6d 61 73 6b 73 70 24 28 6a 25 |%=0.1:masksp$(j%| 00005ca0 2b 28 33 2a 6b 25 29 29 3d 22 65 22 2b c3 28 6a |+(3*k%))="e"+.(j| 00005cb0 25 29 2b c3 28 6b 25 29 3a ed 3a ed 3a 6d 61 73 |%)+.(k%):.:.:mas| 00005cc0 6b 73 70 24 28 36 29 3d 22 71 30 22 3a 6d 61 73 |ksp$(6)="q0":mas| 00005cd0 6b 73 70 24 28 37 29 3d 22 71 31 22 3a f2 6d 61 |ksp$(7)="q1":.ma| 00005ce0 73 6b 73 70 72 69 74 65 28 73 70 61 72 65 61 25 |sksprite(sparea%| 00005cf0 2c 38 29 0d 14 e6 05 e1 0d 14 f0 04 0d 14 fa 11 |,8).............| 00005d00 dd f2 6c 6f 61 64 62 65 64 72 6f 6f 6d 0d 15 04 |..loadbedroom...| 00005d10 53 73 70 61 72 65 61 34 25 3d 73 70 61 72 65 61 |Ssparea4%=sparea| 00005d20 25 2b 73 70 61 72 65 61 73 69 7a 25 2d 28 31 31 |%+spareasiz%-(11| 00005d30 2a 31 30 32 34 29 2d 28 35 32 2a 31 30 32 34 29 |*1024)-(52*1024)| 00005d40 3a 21 73 70 61 72 65 61 34 25 3d 35 32 2a 31 30 |:!sparea4%=52*10| 00005d50 32 34 3a 73 70 61 72 65 61 34 25 21 38 3d 31 36 |24:sparea4%!8=16| 00005d60 0d 15 0e 22 c8 99 20 22 4f 53 5f 53 70 72 69 74 |...".. "OS_Sprit| 00005d70 65 4f 70 22 2c 26 31 30 39 2c 73 70 61 72 65 61 |eOp",&109,sparea| 00005d80 34 25 0d 15 18 39 f2 6c 6f 61 64 75 6e 73 71 75 |4%...9.loadunsqu| 00005d90 61 73 68 28 73 70 61 72 65 61 34 25 2c 35 32 2a |ash(sparea4%,52*| 00005da0 31 30 32 34 2c 22 4f 4e 45 2e 73 70 66 69 6c 65 |1024,"ONE.spfile| 00005db0 73 2e 62 65 64 72 6f 6f 6d 22 29 0d 15 22 38 21 |s.bedroom").."8!| 00005dc0 73 70 61 72 65 61 25 3d 73 70 61 72 65 61 73 69 |sparea%=spareasi| 00005dd0 7a 25 2d 28 31 31 2a 31 30 32 34 29 2d 28 35 32 |z%-(11*1024)-(52| 00005de0 2a 31 30 32 34 29 3a 73 70 61 72 65 61 25 21 38 |*1024):sparea%!8| 00005df0 3d 31 36 0d 15 2c 21 c8 99 20 22 4f 53 5f 53 70 |=16..,!.. "OS_Sp| 00005e00 72 69 74 65 4f 70 22 2c 26 31 30 39 2c 73 70 61 |riteOp",&109,spa| 00005e10 72 65 61 25 0d 15 36 4f f2 6c 6f 61 64 75 6e 73 |rea%..6O.loaduns| 00005e20 71 75 61 73 68 28 73 70 61 72 65 61 25 2c 73 70 |quash(sparea%,sp| 00005e30 61 72 65 61 73 69 7a 25 2d 28 31 31 2a 31 30 32 |areasiz%-(11*102| 00005e40 34 29 2d 28 35 32 2a 31 30 32 34 29 2c 22 4f 4e |4)-(52*1024),"ON| 00005e50 45 2e 73 70 66 69 6c 65 73 2e 62 65 64 72 65 73 |E.spfiles.bedres| 00005e60 74 22 29 0d 15 40 51 c8 99 20 22 4f 53 5f 53 70 |t")..@Q.. "OS_Sp| 00005e70 72 69 74 65 4f 70 22 2c 26 31 31 39 2c 73 70 61 |riteOp",&119,spa| 00005e80 72 65 61 25 2c 22 6b 65 79 65 73 30 22 3a c8 99 |rea%,"keyes0":..| 00005e90 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 | "OS_SpriteOp",&| 00005ea0 31 31 39 2c 73 70 61 72 65 61 25 2c 22 6b 65 79 |119,sparea%,"key| 00005eb0 65 73 31 22 0d 15 4a 3a 6d 61 73 6b 73 70 25 28 |es1"..J:masksp%(| 00005ec0 29 3d 31 30 3a 6d 61 73 6b 73 70 25 28 39 29 3d |)=10:masksp%(9)=| 00005ed0 34 3a 6d 61 73 6b 73 70 25 28 31 30 29 3d 34 3a |4:masksp%(10)=4:| 00005ee0 6d 61 73 6b 73 70 25 28 31 31 29 3d 31 32 0d 15 |masksp%(11)=12..| 00005ef0 54 08 f7 20 2b 30 0d 15 5e 41 dc 20 63 75 72 74 |T.. +0..^A. curt| 00005f00 74 6f 70 2c 63 75 72 74 61 69 6e 2c 70 68 6f 74 |top,curtain,phot| 00005f10 6f 30 2c 70 68 6f 74 6f 31 2c 73 61 66 65 2c 67 |o0,photo1,safe,g| 00005f20 62 6f 64 30 2c 62 62 6f 64 30 2c 65 6c 66 73 74 |bod0,bbod0,elfst| 00005f30 30 2c 70 6f 69 6e 74 0d 15 68 58 e3 6a 25 3d 30 |0,point..hX.j%=0| 00005f40 b8 33 3a 6d 61 73 6b 73 70 24 28 6a 25 29 3d 22 |.3:masksp$(j%)="| 00005f50 63 72 6f 77 6e 22 2b c3 28 6a 25 29 3a ed 3a e3 |crown"+.(j%):.:.| 00005f60 6a 25 3d 34 b8 31 32 3a f3 20 6d 61 73 6b 73 70 |j%=4.12:. masksp| 00005f70 24 28 6a 25 29 3a ed 3a f2 6d 61 73 6b 73 70 72 |$(j%):.:.maskspr| 00005f80 69 74 65 28 73 70 61 72 65 61 25 2c 31 33 29 0d |ite(sparea%,13).| 00005f90 15 72 05 e1 0d 15 7c 04 0d 15 86 0d dd f2 6c 6f |.r....|.......lo| 00005fa0 61 64 65 6c 66 0d 15 90 49 73 70 61 72 65 61 33 |adelf...Isparea3| 00005fb0 25 3d 73 70 61 72 65 61 25 2b 73 70 61 72 65 61 |%=sparea%+sparea| 00005fc0 73 69 7a 25 2d 28 31 31 2a 31 30 32 34 29 3a 21 |siz%-(11*1024):!| 00005fd0 73 70 61 72 65 61 33 25 3d 31 31 2a 31 30 32 34 |sparea3%=11*1024| 00005fe0 3a 73 70 61 72 65 61 33 25 21 38 3d 31 36 0d 15 |:sparea3%!8=16..| 00005ff0 9a 22 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |.".. "OS_SpriteO| 00006000 70 22 2c 26 31 30 39 2c 73 70 61 72 65 61 33 25 |p",&109,sparea3%| 00006010 0d 15 a4 35 f2 6c 6f 61 64 75 6e 73 71 75 61 73 |...5.loadunsquas| 00006020 68 28 73 70 61 72 65 61 33 25 2c 31 31 2a 31 30 |h(sparea3%,11*10| 00006030 32 34 2c 22 4f 4e 45 2e 73 70 66 69 6c 65 73 2e |24,"ONE.spfiles.| 00006040 65 6c 66 22 29 0d 15 ae 60 6d 61 73 6b 73 70 25 |elf")...`masksp%| 00006050 28 29 3d 31 32 3a 6d 61 73 6b 73 70 24 28 30 29 |()=12:masksp$(0)| 00006060 3d 22 65 6c 66 73 69 64 65 22 3a e3 6a 25 3d 30 |="elfside":.j%=0| 00006070 b8 33 3a 6d 61 73 6b 73 70 24 28 6a 25 2b 31 29 |.3:masksp$(j%+1)| 00006080 3d 22 65 77 22 2b c3 28 6a 25 29 3a ed 3a f2 6d |="ew"+.(j%):.:.m| 00006090 61 73 6b 73 70 72 69 74 65 28 73 70 61 72 65 61 |asksprite(sparea| 000060a0 33 25 2c 35 29 0d 15 b8 05 e1 0d 15 c2 04 0d 15 |3%,5)...........| 000060b0 cc 0e dd f2 6b 6e 6f 63 6b 63 75 70 0d 15 d6 1d |....knockcup....| 000060c0 f2 6b 6e 6f 63 6b 3a c8 99 20 22 4f 53 5f 42 79 |.knock:.. "OS_By| 000060d0 74 65 22 2c 31 31 32 2c 32 0d 15 e0 75 75 73 75 |te",112,2...uusu| 000060e0 61 6c 70 6f 73 25 3d 30 3a f2 77 6f 72 64 73 5f |alpos%=0:.words_| 000060f0 62 6f 78 28 32 2c 22 31 36 2c 31 37 22 2c 22 22 |box(2,"16,17",""| 00006100 2c 22 4e 6f 20 22 2b 6f 6e 24 2b 22 61 6e 73 77 |,"No "+on$+"answ| 00006110 65 72 22 2b 6f 66 66 24 2b 22 2e 20 22 2b 6f 6e |er"+off$+". "+on| 00006120 24 2b 22 53 68 61 6c 6c 20 22 2b 6f 66 66 24 2b |$+"Shall "+off$+| 00006130 22 49 20 67 6f 20 69 6e 3f 22 2c 22 22 2c 31 38 |"I go in?","",18| 00006140 30 2c 37 32 34 2c 32 2c 30 2c 32 36 30 29 0d 15 |0,724,2,0,260)..| 00006150 ea 56 f2 6d 65 72 67 65 73 63 72 32 31 28 34 29 |.V.mergescr21(4)| 00006160 3a 65 79 65 73 25 28 30 2c 30 29 3d 32 32 30 3a |:eyes%(0,0)=220:| 00006170 65 79 65 73 25 28 30 2c 31 29 3d 36 34 30 3a 65 |eyes%(0,1)=640:e| 00006180 65 79 65 73 25 3d 2d 31 3a f2 62 6d 79 6e 28 31 |eyes%=-1:.bmyn(1| 00006190 30 38 30 2c 31 32 2c 26 31 30 30 30 30 38 2c 2d |080,12,&100008,-| 000061a0 31 2c 30 29 0d 15 f4 74 c8 99 20 22 4f 53 5f 42 |1,0)...t.. "OS_B| 000061b0 79 74 65 22 2c 31 31 32 2c 32 3a c8 99 22 4f 53 |yte",112,2:.."OS| 000061c0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c |_SpriteOp",&122,| 000061d0 73 70 61 72 65 61 25 2c 22 62 6f 78 62 67 22 2c |sparea%,"boxbg",| 000061e0 31 38 30 2c 37 32 34 2c 38 3a c8 99 22 4f 53 5f |180,724,8:.."OS_| 000061f0 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 73 |SpriteOp",&122,s| 00006200 70 61 72 65 61 25 2c 22 61 72 72 62 67 22 2c 32 |parea%,"arrbg",2| 00006210 36 30 2c 36 32 38 2c 38 0d 15 fe 12 f2 6d 65 72 |60,628,8.....mer| 00006220 67 65 73 63 72 32 31 28 34 29 0d 16 08 11 e7 63 |gescr21(4).....c| 00006230 68 6f 73 65 6e 25 3c 3e 30 20 8c 0d 16 12 12 20 |hosen%<>0 ..... | 00006240 f2 6c 6f 61 64 63 75 70 62 6f 61 72 64 0d 16 1c |.loadcupboard...| 00006250 4e 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 |N .. "OS_Byte",1| 00006260 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef 32 35 |12,2:.18,0,3:.25| 00006270 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 31 2c |,4,0;0;:.25,101,| 00006280 31 32 37 38 3b 39 35 38 3b 3a f2 6d 61 6b 65 63 |1278;958;:.makec| 00006290 75 70 62 6f 61 72 64 28 2d 31 29 0d 16 26 27 20 |upboard(-1)..&' | 000062a0 f2 6d 65 72 67 65 73 63 72 32 31 28 31 30 29 3a |.mergescr21(10):| 000062b0 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 |.. "OS_Byte",112| 000062c0 2c 32 0d 16 30 63 20 c8 99 22 4f 53 5f 53 70 72 |,2..0c .."OS_Spr| 000062d0 69 74 65 4f 70 22 2c 26 31 33 34 2c 62 75 74 61 |iteOp",&134,buta| 000062e0 72 65 61 25 2c 22 65 6c 66 68 65 61 64 30 22 2c |rea%,"elfhead0",| 000062f0 32 30 2c 35 36 2c 38 2c 73 63 61 6c 65 25 2c 30 |20,56,8,scale%,0| 00006300 3a f2 73 70 65 65 63 68 62 6f 78 28 32 34 30 2c |:.speechbox(240,| 00006310 38 2c 38 32 30 2c 31 30 38 2c 31 2c 2d 31 2c 34 |8,820,108,1,-1,4| 00006320 38 2c 2d 31 29 0d 16 3a 57 20 75 73 75 61 6c 70 |8,-1)..:W usualp| 00006330 6f 73 25 3d 2d 31 3a f2 77 6f 72 64 73 5f 72 65 |os%=-1:.words_re| 00006340 61 64 28 31 2c 22 31 38 22 29 3a f2 77 6f 72 64 |ad(1,"18"):.word| 00006350 73 5f 73 61 79 28 22 49 74 20 69 73 20 61 20 22 |s_say("It is a "| 00006360 2b 6f 6e 24 2b 22 63 75 70 62 6f 61 72 64 22 2b |+on$+"cupboard"+| 00006370 6f 66 66 24 2b 22 2e 22 2c 22 22 29 0d 16 44 57 |off$+".","")..DW| 00006380 20 f2 6d 65 72 67 65 73 63 72 32 31 28 34 29 3a | .mergescr21(4):| 00006390 65 79 65 73 25 28 30 2c 30 29 3d 32 32 30 3a 65 |eyes%(0,0)=220:e| 000063a0 79 65 73 25 28 30 2c 31 29 3d 36 34 30 3a 65 65 |yes%(0,1)=640:ee| 000063b0 79 65 73 25 3d 2d 31 3a f2 62 6f 6f 6b 67 6f 6f |yes%=-1:.bookgoo| 000063c0 6e 28 31 30 38 30 2c 31 32 2c 26 30 31 2c 2d 31 |n(1080,12,&01,-1| 000063d0 2c 30 29 0d 16 4e 48 20 f2 6c 6f 61 64 74 68 72 |,0)..NH .loadthr| 000063e0 6f 6e 65 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 |one:.. "OS_Byte"| 000063f0 2c 31 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef |,112,2:.18,0,3:.| 00006400 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 |25,4,0;0;:.25,10| 00006410 31 2c 31 32 37 38 3b 39 35 38 3b 0d 16 58 88 20 |1,1278;958;..X. | 00006420 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00006430 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 74 68 |&134,sparea%,"th| 00006440 72 6f 6e 65 72 6f 6f 6d 22 2c 36 2d 28 32 36 2a |roneroom",6-(26*| 00006450 33 33 29 2c 32 30 30 2c 38 2c 73 63 61 6c 65 25 |33),200,8,scale%| 00006460 2c 30 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |,0:.."OS_SpriteO| 00006470 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00006480 22 64 6f 6f 72 73 22 2c 31 32 33 32 2d 28 32 36 |"doors",1232-(26| 00006490 2a 33 33 29 2c 32 30 30 2c 38 2c 73 63 61 6c 65 |*33),200,8,scale| 000064a0 25 2c 30 0d 16 62 2e 20 f2 65 6c 66 28 39 34 2c |%,0..b. .elf(94,| 000064b0 33 38 38 2c 33 29 3a f2 66 61 64 65 28 30 2c 39 |388,3):.fade(0,9| 000064c0 36 30 2c 30 2c 32 2c 34 30 2c 22 66 61 64 65 22 |60,0,2,40,"fade"| 000064d0 29 0d 16 6c 05 cd 0d 16 76 71 c8 99 20 22 4f 53 |)..l....vq.. "OS| 000064e0 5f 42 79 74 65 22 2c 31 31 32 2c 32 3a c8 99 22 |_Byte",112,2:.."| 000064f0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13| 00006500 34 2c 62 75 74 61 72 65 61 25 2c 22 77 6f 72 6d |4,butarea%,"worm| 00006510 22 2c 32 30 2c 35 36 2c 38 2c 73 63 61 6c 65 25 |",20,56,8,scale%| 00006520 2c 30 3a f2 73 70 65 65 63 68 62 6f 78 28 32 34 |,0:.speechbox(24| 00006530 30 2c 38 2c 38 32 30 2c 31 30 38 2c 31 2c 2d 31 |0,8,820,108,1,-1| 00006540 2c 34 38 2c 2d 31 29 0d 16 80 70 f2 77 6f 72 64 |,48,-1)...p.word| 00006550 73 5f 72 65 61 64 28 32 2c 22 31 34 2c 31 35 22 |s_read(2,"14,15"| 00006560 29 3a 75 73 75 61 6c 70 6f 73 25 3d 2d 31 3a f2 |):usualpos%=-1:.| 00006570 77 6f 72 64 73 5f 73 61 79 28 22 43 6c 69 63 6b |words_say("Click| 00006580 20 74 6f 20 22 2b 6f 6e 24 2b 22 6b 6e 6f 63 6b | to "+on$+"knock| 00006590 20 22 2b 6f 66 66 24 2b 22 6f 6e 20 61 20 22 2b | "+off$+"on a "+| 000065a0 6f 6e 24 2b 22 64 6f 6f 72 22 2b 6f 66 66 24 2b |on$+"door"+off$+| 000065b0 22 2e 22 2c 22 22 29 0d 16 8a 12 f2 6d 65 72 67 |".","").....merg| 000065c0 65 73 63 72 32 31 28 34 29 0d 16 94 05 e1 0d 16 |escr21(4).......| 000065d0 9e 04 0d 16 a8 12 dd f2 72 65 6c 6f 61 64 76 61 |........reloadva| 000065e0 6c 6c 65 79 0d 16 b2 0f f2 6c 6f 61 64 76 61 6c |lley.....loadval| 000065f0 6c 65 79 0d 16 bc 4b 73 70 61 72 65 61 33 25 3d |ley...Ksparea3%=| 00006600 73 70 61 72 65 61 25 2b 73 70 61 72 65 61 73 69 |sparea%+spareasi| 00006610 7a 25 2d 28 31 33 32 2a 31 30 32 34 29 3a 21 73 |z%-(132*1024):!s| 00006620 70 61 72 65 61 33 25 3d 31 33 32 2a 31 30 32 34 |parea3%=132*1024| 00006630 3a 73 70 61 72 65 61 33 25 21 38 3d 31 36 0d 16 |:sparea3%!8=16..| 00006640 c6 22 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |.".. "OS_SpriteO| 00006650 70 22 2c 26 31 30 39 2c 73 70 61 72 65 61 33 25 |p",&109,sparea3%| 00006660 0d 16 d0 3c f2 6c 6f 61 64 75 6e 73 71 75 61 73 |...<.loadunsquas| 00006670 68 28 73 70 61 72 65 61 33 25 2c 31 33 32 2a 31 |h(sparea3%,132*1| 00006680 30 32 34 2c 22 4f 4e 45 2e 73 70 66 69 6c 65 73 |024,"ONE.spfiles| 00006690 2e 63 61 73 63 61 76 63 6f 74 22 29 0d 16 da 05 |.cascavcot")....| 000066a0 e1 0d 16 e4 04 0d 16 ee 0b dd f2 77 61 76 65 73 |...........waves| 000066b0 0d 16 f8 29 62 6c 25 2b 3d 31 3a e7 62 6c 25 3d |...)bl%+=1:.bl%=| 000066c0 32 3a 62 6c 25 3d 30 3a 61 6e 69 6d 70 61 75 73 |2:bl%=0:animpaus| 000066d0 65 25 28 31 30 29 3d 38 30 0d 17 02 3e c8 99 22 |e%(10)=80...>.."| 000066e0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13| 000066f0 34 2c 73 70 61 72 65 61 25 2c 22 70 6f 72 74 63 |4,sparea%,"portc| 00006700 75 6c 6c 22 2c 34 39 30 2c 33 33 32 2c 38 2c 73 |ull",490,332,8,s| 00006710 63 61 6c 65 25 2c 30 0d 17 0c 3e c8 99 22 4f 53 |cale%,0...>.."OS| 00006720 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 00006730 73 70 61 72 65 61 25 2c 22 71 22 2b c3 28 62 6c |sparea%,"q"+.(bl| 00006740 25 29 2c 35 34 38 2c 33 34 34 2c 38 2c 73 63 61 |%),548,344,8,sca| 00006750 6c 65 25 2c 30 0d 17 16 63 e3 6a 25 3d 30 b8 32 |le%,0...c.j%=0.2| 00006760 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"| 00006770 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 65 |,&134,sparea%,"e| 00006780 22 2b c3 28 6a 25 29 2b c3 28 62 6c 25 29 2c 36 |"+.(j%)+.(bl%),6| 00006790 30 30 2b 28 34 30 2a 6a 25 29 2b 28 31 30 2a a8 |00+(40*j%)+(10*.| 000067a0 28 6a 25 2f 32 29 29 2c 34 33 36 2c 38 2c 73 63 |(j%/2)),436,8,sc| 000067b0 61 6c 65 25 2c 30 3a ed 0d 17 20 33 61 63 68 61 |ale%,0:... 3acha| 000067c0 6e 67 65 25 3d 2d 31 3a 64 6f 6e 65 63 68 61 6e |nge%=-1:donechan| 000067d0 67 65 25 28 31 30 29 3d 2d 31 3a 61 6e 69 6d 74 |ge%(10)=-1:animt| 000067e0 69 6d 65 25 28 31 30 29 3d 2d 31 0d 17 2a 05 e1 |ime%(10)=-1..*..| 000067f0 0d 17 34 04 0d 17 3e 0f dd f2 63 6f 70 79 77 61 |..4...>...copywa| 00006800 76 65 73 0d 17 48 2f f2 73 63 72 63 6f 70 79 62 |ves..H/.scrcopyb| 00006810 6c 6f 63 6b 70 69 78 28 35 34 38 2c 33 34 34 2c |lockpix(548,344,| 00006820 34 38 2c 37 32 2c 73 65 65 25 2c 64 6f 25 2c 2d |48,72,see%,do%,-| 00006830 31 29 0d 17 52 30 f2 73 63 72 63 6f 70 79 62 6c |1)..R0.scrcopybl| 00006840 6f 63 6b 70 69 78 28 36 30 30 2c 34 33 36 2c 31 |ockpix(600,436,1| 00006850 33 36 2c 37 32 2c 73 65 65 25 2c 64 6f 25 2c 2d |36,72,see%,do%,-| 00006860 31 29 0d 17 5c 05 e1 0d 17 66 04 0d 17 70 10 dd |1)..\....f...p..| 00006870 f2 71 75 65 65 6e 62 6c 69 6e 6b 0d 17 7a 4b 71 |.queenblink..zKq| 00006880 62 6c 25 2b 3d 31 3a e7 71 62 6c 25 3d 32 3a 71 |bl%+=1:.qbl%=2:q| 00006890 62 6c 25 3d 30 3a 61 6e 69 6d 70 61 75 73 65 25 |bl%=0:animpause%| 000068a0 28 31 32 29 3d 32 30 30 2b 28 35 30 2a b3 28 36 |(12)=200+(50*.(6| 000068b0 29 29 3a 8b 3a 61 6e 69 6d 70 61 75 73 65 25 28 |)):.:animpause%(| 000068c0 31 32 29 3d 31 30 0d 17 84 43 c8 99 22 4f 53 5f |12)=10...C.."OS_| 000068d0 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 000068e0 70 61 72 65 61 25 2c 22 71 65 79 65 73 22 2b c3 |parea%,"qeyes"+.| 000068f0 28 71 62 6c 25 29 2c 36 30 32 2c 36 35 32 2c 38 |(qbl%),602,652,8| 00006900 2c 73 63 61 6c 65 25 2c 30 0d 17 8e 33 61 63 68 |,scale%,0...3ach| 00006910 61 6e 67 65 25 3d 2d 31 3a 64 6f 6e 65 63 68 61 |ange%=-1:donecha| 00006920 6e 67 65 25 28 31 32 29 3d 2d 31 3a 61 6e 69 6d |nge%(12)=-1:anim| 00006930 74 69 6d 65 25 28 31 32 29 3d 2d 31 0d 17 98 05 |time%(12)=-1....| 00006940 e1 0d 17 a2 04 0d 17 ac 11 dd f2 63 6f 70 79 71 |...........copyq| 00006950 75 65 65 6e 62 6c 0d 17 b6 2f f2 73 63 72 63 6f |ueenbl.../.scrco| 00006960 70 79 62 6c 6f 63 6b 70 69 78 28 36 30 32 2c 36 |pyblockpix(602,6| 00006970 35 32 2c 37 34 2c 32 38 2c 73 65 65 25 2c 64 6f |52,74,28,see%,do| 00006980 25 2c 2d 31 29 0d 17 c0 05 e1 0d 17 ca 04 0d 17 |%,-1)...........| 00006990 d4 0b dd f2 71 74 65 61 72 0d 17 de 0b 71 62 6c |....qtear....qbl| 000069a0 25 2b 3d 31 0d 17 e8 0c e7 71 62 6c 25 3d 38 8c |%+=1.....qbl%=8.| 000069b0 0d 17 f2 28 20 71 62 6c 25 3d 30 3a 61 6e 69 6d |...( qbl%=0:anim| 000069c0 70 61 75 73 65 25 28 31 33 29 3d 32 30 30 2b 28 |pause%(13)=200+(| 000069d0 35 30 2a b3 28 36 29 29 0d 17 fc 05 cc 0d 18 06 |50*.(6))........| 000069e0 33 20 e7 71 62 6c 25 3d 31 3a 61 6e 69 6d 70 61 |3 .qbl%=1:animpa| 000069f0 75 73 65 25 28 31 33 29 3d 32 30 30 3a 8b 3a 61 |use%(13)=200:.:a| 00006a00 6e 69 6d 70 61 75 73 65 25 28 31 33 29 3d 31 30 |nimpause%(13)=10| 00006a10 0d 18 10 05 cd 0d 18 1a 0c e7 71 62 6c 25 3d 31 |..........qbl%=1| 00006a20 8c 0d 18 24 3d 20 c8 99 22 4f 53 5f 53 70 72 69 |...$= .."OS_Spri| 00006a30 74 65 4f 70 22 2c 26 31 33 34 2c 73 70 61 72 65 |teOp",&134,spare| 00006a40 61 25 2c 22 71 65 79 65 73 32 22 2c 36 30 32 2c |a%,"qeyes2",602,| 00006a50 36 35 32 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 18 |652,8,scale%,0..| 00006a60 2e 05 cc 0d 18 38 80 20 e7 71 62 6c 25 3d 32 3a |.....8. .qbl%=2:| 00006a70 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00006a80 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 71 65 |&134,sparea%,"qe| 00006a90 79 65 73 31 22 2c 36 30 32 2c 36 35 32 2c 38 2c |yes1",602,652,8,| 00006aa0 73 63 61 6c 65 25 2c 30 3a 8b 3a c8 99 22 4f 53 |scale%,0:.:.."OS| 00006ab0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 00006ac0 73 70 61 72 65 61 25 2c 22 71 65 79 65 73 30 22 |sparea%,"qeyes0"| 00006ad0 2c 36 30 32 2c 36 35 32 2c 38 2c 73 63 61 6c 65 |,602,652,8,scale| 00006ae0 25 2c 30 0d 18 42 05 cd 0d 18 4c 0d e7 71 62 6c |%,0..B....L..qbl| 00006af0 25 3c 3d 31 8c 0d 18 56 3c 20 c8 99 22 4f 53 5f |%<=1...V< .."OS_| 00006b00 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 00006b10 70 61 72 65 61 25 2c 22 71 74 65 61 72 22 2c 36 |parea%,"qtear",6| 00006b20 32 30 2c 34 37 36 2c 38 2c 73 63 61 6c 65 25 2c |20,476,8,scale%,| 00006b30 30 0d 18 60 05 cc 0d 18 6a 4e 20 e7 71 62 6c 25 |0..`....jN .qbl%| 00006b40 3e 31 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |>1:.."OS_SpriteO| 00006b50 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00006b60 22 71 74 65 61 72 22 2b c3 28 71 62 6c 25 2d 32 |"qtear"+.(qbl%-2| 00006b70 29 2c 36 32 30 2c 34 37 36 2c 38 2c 73 63 61 6c |),620,476,8,scal| 00006b80 65 25 2c 30 0d 18 74 05 cd 0d 18 7e 33 61 63 68 |e%,0..t....~3ach| 00006b90 61 6e 67 65 25 3d 2d 31 3a 64 6f 6e 65 63 68 61 |ange%=-1:donecha| 00006ba0 6e 67 65 25 28 31 33 29 3d 2d 31 3a 61 6e 69 6d |nge%(13)=-1:anim| 00006bb0 74 69 6d 65 25 28 31 33 29 3d 2d 31 0d 18 88 05 |time%(13)=-1....| 00006bc0 e1 0d 18 92 04 0d 18 9c 0f dd f2 63 6f 70 79 71 |...........copyq| 00006bd0 74 65 61 72 0d 18 a6 30 f2 73 63 72 63 6f 70 79 |tear...0.scrcopy| 00006be0 62 6c 6f 63 6b 70 69 78 28 36 30 32 2c 34 37 36 |blockpix(602,476| 00006bf0 2c 37 34 2c 32 30 34 2c 73 65 65 25 2c 64 6f 25 |,74,204,see%,do%| 00006c00 2c 2d 31 29 0d 18 b0 05 e1 0d 18 ba 04 0d 18 c4 |,-1)............| 00006c10 10 dd f2 6d 61 67 69 63 75 73 65 72 73 0d 18 ce |...magicusers...| 00006c20 0b ea 20 6a 25 2c 6b 25 0d 18 d8 98 f2 73 61 76 |.. j%,k%.....sav| 00006c30 65 62 67 72 64 28 33 32 30 2c 31 39 36 2c 32 32 |ebgrd(320,196,22| 00006c40 30 2c 34 32 30 2c 22 75 73 65 72 62 67 30 22 29 |0,420,"userbg0")| 00006c50 3a f2 73 61 76 65 62 67 72 64 28 37 33 36 2c 31 |:.savebgrd(736,1| 00006c60 39 36 2c 32 32 30 2c 34 32 30 2c 22 75 73 65 72 |96,220,420,"user| 00006c70 62 67 31 22 29 3a 73 65 65 25 3d 31 3a 64 6f 25 |bg1"):see%=1:do%| 00006c80 3d 32 3a c8 96 3a c8 99 20 22 4f 53 5f 42 79 74 |=2:..:.. "OS_Byt| 00006c90 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 |e",113,see%:.. "| 00006ca0 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 |OS_Byte",112,do%| 00006cb0 3a 6c 61 73 74 74 69 6d 65 25 3d 91 2d 31 30 30 |:lasttime%=.-100| 00006cc0 0d 18 e2 1c f2 63 61 63 68 65 73 6f 75 6e 64 28 |.....cachesound(| 00006cd0 22 66 78 6a 69 6e 67 33 22 2c 31 29 0d 18 ec 0c |"fxjing3",1)....| 00006ce0 e3 6c 25 3d 30 b8 32 30 0d 18 f6 68 20 c8 99 20 |.l%=0.20...h .. | 00006cf0 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00006d00 32 32 2c 73 70 61 72 65 61 25 2c 22 75 73 65 72 |22,sparea%,"user| 00006d10 62 67 30 22 2c 33 32 30 2c 31 39 36 2c 38 3a c8 |bg0",320,196,8:.| 00006d20 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",| 00006d30 26 31 32 32 2c 73 70 61 72 65 61 25 2c 22 75 73 |&122,sparea%,"us| 00006d40 65 72 62 67 31 22 2c 37 33 36 2c 31 39 36 2c 38 |erbg1",736,196,8| 00006d50 0d 19 00 0d 20 e7 6c 25 3e 3d 31 30 8c 0d 19 0a |.... .l%>=10....| 00006d60 75 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |u .."OS_SpriteO| 00006d70 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 2c |p",&134,sparea%,| 00006d80 22 67 62 6f 64 30 22 2c 33 35 32 2c 32 30 34 2c |"gbod0",352,204,| 00006d90 38 2c 73 63 61 6c 65 25 2c 30 3a c8 99 22 4f 53 |8,scale%,0:.."OS| 00006da0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c |_SpriteOp",&134,| 00006db0 73 70 61 72 65 61 25 2c 22 62 62 6f 64 30 22 2c |sparea%,"bbod0",| 00006dc0 37 37 30 2c 32 30 34 2c 38 2c 73 63 61 6c 65 25 |770,204,8,scale%| 00006dd0 2c 30 0d 19 14 06 20 cd 0d 19 1e 17 20 e3 73 61 |,0.... ..... .sa| 00006de0 79 78 25 3d 33 33 36 b8 37 35 32 88 34 31 36 0d |yx%=336.752.416.| 00006df0 19 28 18 20 20 e3 73 61 79 79 25 3d 32 30 34 b8 |.(. .sayy%=204.| 00006e00 34 36 30 88 31 32 38 0d 19 32 11 20 20 20 f2 70 |460.128..2. .p| 00006e10 6c 6f 74 73 74 61 72 73 0d 19 3c 23 20 20 20 e7 |lotstars..<# .| 00006e20 28 73 61 79 78 25 3c 3e 37 35 32 29 84 28 73 61 |(sayx%<>752).(sa| 00006e30 79 79 25 3c 3e 34 36 30 29 20 8c 0d 19 46 10 20 |yy%<>460) ...F. | 00006e40 20 20 20 e3 6a 25 3d 30 b8 33 31 0d 19 50 14 20 | .j%=0.31..P. | 00006e50 20 20 20 20 e7 73 74 25 28 6a 25 2c 33 29 8c 0d | .st%(j%,3)..| 00006e60 19 5a 31 20 20 20 20 20 20 e7 73 74 25 28 6a 25 |.Z1 .st%(j%| 00006e70 2c 34 29 3e 30 3a 73 74 25 28 6a 25 2c 34 29 2d |,4)>0:st%(j%,4)-| 00006e80 3d 31 3a 8b 3a 73 74 25 28 6a 25 2c 34 29 3d 38 |=1:.:st%(j%,4)=8| 00006e90 0d 19 64 0a 20 20 20 20 20 cd 0d 19 6e 09 20 20 |..d. ...n. | 00006ea0 20 20 ed 0d 19 78 08 20 20 20 cd 0d 19 82 07 20 | ...x. ..... | 00006eb0 20 ed 0d 19 8c 06 20 ed 0d 19 96 18 20 f5 3a fd | ..... ..... .:.| 00006ec0 20 91 3e 3d 6c 61 73 74 74 69 6d 65 25 2b 31 30 | .>=lasttime%+10| 00006ed0 0d 19 a0 26 20 e7 20 a4 6e 6f 73 6f 75 6e 64 20 |...& . .nosound | 00006ee0 80 20 28 6c 25 3c 31 34 29 3a d4 20 31 2c 26 31 |. (l%<14):. 1,&1| 00006ef0 37 46 2c 31 2c 31 0d 19 aa 5e 20 73 65 65 25 3d |7F,1,1...^ see%=| 00006f00 25 31 30 30 3e 3e 3e 73 65 65 25 3a 64 6f 25 3d |%100>>>see%:do%=| 00006f10 25 31 30 30 3e 3e 3e 64 6f 25 3a c8 96 3a c8 99 |%100>>>do%:..:..| 00006f20 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 73 | "OS_Byte",113,s| 00006f30 65 65 25 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 |ee%:.. "OS_Byte"| 00006f40 2c 31 31 32 2c 64 6f 25 3a 6c 61 73 74 74 69 6d |,112,do%:lasttim| 00006f50 65 25 3d 91 0d 19 b4 05 ed 0d 19 be 16 f2 73 63 |e%=...........sc| 00006f60 72 63 6f 70 79 28 73 65 65 25 2c 64 6f 25 29 0d |rcopy(see%,do%).| 00006f70 19 c8 51 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |..Q.. "OS_Byte",| 00006f80 31 31 32 2c 32 3a ef 31 38 2c 30 2c 33 3a ef 32 |112,2:.18,0,3:.2| 00006f90 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 31 |5,4,0;0;:.25,101| 00006fa0 2c 31 32 37 38 3b 39 35 38 3b 3a f2 6d 61 6b 65 |,1278;958;:.make| 00006fb0 62 65 64 72 6f 6f 6d 28 36 30 34 2c 30 2c 32 29 |bedroom(604,0,2)| 00006fc0 0d 19 d2 12 f2 65 6c 66 28 39 34 2c 31 38 38 2c |.....elf(94,188,| 00006fd0 33 29 0d 19 dc 73 c8 99 22 4f 53 5f 53 70 72 69 |3)...s.."OS_Spri| 00006fe0 74 65 4f 70 22 2c 26 31 33 34 2c 73 70 61 72 65 |teOp",&134,spare| 00006ff0 61 25 2c 22 67 62 6f 64 30 22 2c 33 35 32 2c 32 |a%,"gbod0",352,2| 00007000 30 34 2c 38 2c 73 63 61 6c 65 25 2c 30 3a c8 99 |04,8,scale%,0:..| 00007010 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1| 00007020 33 34 2c 73 70 61 72 65 61 25 2c 22 62 62 6f 64 |34,sparea%,"bbod| 00007030 30 22 2c 37 37 30 2c 32 30 34 2c 38 2c 73 63 61 |0",770,204,8,sca| 00007040 6c 65 25 2c 30 0d 19 e6 12 f2 6d 65 72 67 65 73 |le%,0.....merges| 00007050 63 72 32 31 28 34 29 0d 19 f0 05 e1 0d 19 fa 04 |cr21(4).........| 00007060 0d 1a 04 0c dd f2 67 62 6c 69 6e 6b 0d 1a 0e 0d |......gblink....| 00007070 67 65 79 65 73 25 2b 3d 31 0d 1a 18 47 e7 67 65 |geyes%+=1...G.ge| 00007080 79 65 73 25 3d 32 3a 67 65 79 65 73 25 3d 30 3a |yes%=2:geyes%=0:| 00007090 61 6e 69 6d 70 61 75 73 65 25 28 31 39 29 3d 32 |animpause%(19)=2| 000070a0 30 30 2b 28 35 30 2a b3 28 36 29 29 3a 8b 3a 61 |00+(50*.(6)):.:a| 000070b0 6e 69 6d 70 61 75 73 65 25 28 31 39 29 3d 31 30 |nimpause%(19)=10| 000070c0 0d 1a 22 53 c8 99 22 4f 53 5f 53 70 72 69 74 65 |.."S.."OS_Sprite| 000070d0 4f 70 22 2c 26 31 33 34 2c 73 70 61 72 65 61 25 |Op",&134,sparea%| 000070e0 2c 22 67 65 79 65 73 22 2b c3 28 67 65 79 65 73 |,"geyes"+.(geyes| 000070f0 25 29 2c 65 79 65 73 25 28 32 2c 30 29 2c 65 79 |%),eyes%(2,0),ey| 00007100 65 73 25 28 32 2c 31 29 2c 38 2c 73 63 61 6c 65 |es%(2,1),8,scale| 00007110 25 2c 30 0d 1a 2c 33 61 63 68 61 6e 67 65 25 3d |%,0..,3achange%=| 00007120 2d 31 3a 64 6f 6e 65 63 68 61 6e 67 65 25 28 31 |-1:donechange%(1| 00007130 39 29 3d 2d 31 3a 61 6e 69 6d 74 69 6d 65 25 28 |9)=-1:animtime%(| 00007140 31 39 29 3d 2d 31 0d 1a 36 05 e1 0d 1a 40 04 0d |19)=-1..6....@..| 00007150 1a 4a 10 dd f2 63 6f 70 79 67 62 6c 69 6e 6b 0d |.J...copygblink.| 00007160 1a 54 3d f2 73 63 72 63 6f 70 79 62 6c 6f 63 6b |.T=.scrcopyblock| 00007170 70 69 78 28 65 79 65 73 25 28 32 2c 30 29 2c 65 |pix(eyes%(2,0),e| 00007180 79 65 73 25 28 32 2c 31 29 2c 37 34 2c 32 38 2c |yes%(2,1),74,28,| 00007190 73 65 65 25 2c 64 6f 25 2c 2d 31 29 0d 1a 5e 05 |see%,do%,-1)..^.| 000071a0 e1 0d 1a 68 04 0d 1a 72 0c dd f2 62 62 6c 69 6e |...h...r...bblin| 000071b0 6b 0d 1a 7c 0d 62 65 79 65 73 25 2b 3d 31 0d 1a |k..|.beyes%+=1..| 000071c0 86 47 e7 62 65 79 65 73 25 3d 32 3a 62 65 79 65 |.G.beyes%=2:beye| 000071d0 73 25 3d 30 3a 61 6e 69 6d 70 61 75 73 65 25 28 |s%=0:animpause%(| 000071e0 31 38 29 3d 32 30 30 2b 28 35 30 2a b3 28 36 29 |18)=200+(50*.(6)| 000071f0 29 3a 8b 3a 61 6e 69 6d 70 61 75 73 65 25 28 31 |):.:animpause%(1| 00007200 38 29 3d 31 30 0d 1a 90 53 c8 99 22 4f 53 5f 53 |8)=10...S.."OS_S| 00007210 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 70 |priteOp",&134,sp| 00007220 61 72 65 61 25 2c 22 62 65 79 65 73 22 2b c3 28 |area%,"beyes"+.(| 00007230 62 65 79 65 73 25 29 2c 65 79 65 73 25 28 31 2c |beyes%),eyes%(1,| 00007240 30 29 2c 65 79 65 73 25 28 31 2c 31 29 2c 38 2c |0),eyes%(1,1),8,| 00007250 73 63 61 6c 65 25 2c 30 0d 1a 9a 33 61 63 68 61 |scale%,0...3acha| 00007260 6e 67 65 25 3d 2d 31 3a 64 6f 6e 65 63 68 61 6e |nge%=-1:donechan| 00007270 67 65 25 28 31 38 29 3d 2d 31 3a 61 6e 69 6d 74 |ge%(18)=-1:animt| 00007280 69 6d 65 25 28 31 38 29 3d 2d 31 0d 1a a4 05 e1 |ime%(18)=-1.....| 00007290 0d 1a ae 04 0d 1a b8 10 dd f2 63 6f 70 79 62 62 |..........copybb| 000072a0 6c 69 6e 6b 0d 1a c2 3d f2 73 63 72 63 6f 70 79 |link...=.scrcopy| 000072b0 62 6c 6f 63 6b 70 69 78 28 65 79 65 73 25 28 31 |blockpix(eyes%(1| 000072c0 2c 30 29 2c 65 79 65 73 25 28 31 2c 31 29 2c 37 |,0),eyes%(1,1),7| 000072d0 34 2c 32 30 2c 73 65 65 25 2c 64 6f 25 2c 2d 31 |4,20,see%,do%,-1| 000072e0 29 0d 1a cc 05 e1 0d 1a d6 04 0d 1a e0 0e dd f2 |)...............| 000072f0 65 6c 66 62 6c 69 6e 6b 0d 1a ea 0d 65 65 79 65 |elfblink....eeye| 00007300 73 25 2b 3d 31 0d 1a f4 47 e7 65 65 79 65 73 25 |s%+=1...G.eeyes%| 00007310 3d 32 3a 65 65 79 65 73 25 3d 30 3a 61 6e 69 6d |=2:eeyes%=0:anim| 00007320 70 61 75 73 65 25 28 31 37 29 3d 32 30 30 2b 28 |pause%(17)=200+(| 00007330 35 30 2a b3 28 36 29 29 3a 8b 3a 61 6e 69 6d 70 |50*.(6)):.:animp| 00007340 61 75 73 65 25 28 31 37 29 3d 31 30 0d 1a fe 55 |ause%(17)=10...U| 00007350 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00007360 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 65 6c |&134,sparea%,"el| 00007370 66 65 79 65 73 22 2b c3 28 65 65 79 65 73 25 29 |feyes"+.(eeyes%)| 00007380 2c 65 79 65 73 25 28 30 2c 30 29 2c 65 79 65 73 |,eyes%(0,0),eyes| 00007390 25 28 30 2c 31 29 2c 38 2c 73 63 61 6c 65 25 2c |%(0,1),8,scale%,| 000073a0 30 0d 1b 08 33 61 63 68 61 6e 67 65 25 3d 2d 31 |0...3achange%=-1| 000073b0 3a 64 6f 6e 65 63 68 61 6e 67 65 25 28 31 37 29 |:donechange%(17)| 000073c0 3d 2d 31 3a 61 6e 69 6d 74 69 6d 65 25 28 31 37 |=-1:animtime%(17| 000073d0 29 3d 2d 31 0d 1b 12 05 e1 0d 1b 1c 04 0d 1b 26 |)=-1...........&| 000073e0 12 dd f2 63 6f 70 79 65 6c 66 62 6c 69 6e 6b 0d |...copyelfblink.| 000073f0 1b 30 3d f2 73 63 72 63 6f 70 79 62 6c 6f 63 6b |.0=.scrcopyblock| 00007400 70 69 78 28 65 79 65 73 25 28 30 2c 30 29 2c 65 |pix(eyes%(0,0),e| 00007410 79 65 73 25 28 30 2c 31 29 2c 37 34 2c 31 36 2c |yes%(0,1),74,16,| 00007420 73 65 65 25 2c 64 6f 25 2c 2d 31 29 0d 1b 3a 05 |see%,do%,-1)..:.| 00007430 e1 0d 1b 44 04 0d 1b 4e 0f dd f2 65 6c 66 62 6c |...D...N...elfbl| 00007440 69 6e 6b 32 0d 1b 58 0d 65 65 79 65 73 25 2b 3d |ink2..X.eeyes%+=| 00007450 31 0d 1b 62 47 e7 65 65 79 65 73 25 3d 32 3a 65 |1..bG.eeyes%=2:e| 00007460 65 79 65 73 25 3d 30 3a 61 6e 69 6d 70 61 75 73 |eyes%=0:animpaus| 00007470 65 25 28 32 30 29 3d 32 30 30 2b 28 35 30 2a b3 |e%(20)=200+(50*.| 00007480 28 36 29 29 3a 8b 3a 61 6e 69 6d 70 61 75 73 65 |(6)):.:animpause| 00007490 25 28 32 30 29 3d 31 30 0d 1b 6c 53 c8 99 22 4f |%(20)=10..lS.."O| 000074a0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 |S_SpriteOp",&134| 000074b0 2c 73 70 61 72 65 61 33 25 2c 22 6a 65 79 65 22 |,sparea3%,"jeye"| 000074c0 2b c3 28 65 65 79 65 73 25 29 2c 65 79 65 73 25 |+.(eeyes%),eyes%| 000074d0 28 30 2c 30 29 2c 65 79 65 73 25 28 30 2c 31 29 |(0,0),eyes%(0,1)| 000074e0 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 1b 76 33 61 |,8,scale%,0..v3a| 000074f0 63 68 61 6e 67 65 25 3d 2d 31 3a 64 6f 6e 65 63 |change%=-1:donec| 00007500 68 61 6e 67 65 25 28 32 30 29 3d 2d 31 3a 61 6e |hange%(20)=-1:an| 00007510 69 6d 74 69 6d 65 25 28 32 30 29 3d 2d 31 0d 1b |imtime%(20)=-1..| 00007520 80 05 e1 0d 1b 8a 04 0d 1b 94 13 dd f2 63 6f 70 |.............cop| 00007530 79 65 6c 66 62 6c 69 6e 6b 32 0d 1b 9e 3d f2 73 |yelfblink2...=.s| 00007540 63 72 63 6f 70 79 62 6c 6f 63 6b 70 69 78 28 65 |crcopyblockpix(e| 00007550 79 65 73 25 28 30 2c 30 29 2c 65 79 65 73 25 28 |yes%(0,0),eyes%(| 00007560 30 2c 31 29 2c 31 38 2c 32 30 2c 73 65 65 25 2c |0,1),18,20,see%,| 00007570 64 6f 25 2c 2d 31 29 0d 1b a8 05 e1 0d 1b b2 04 |do%,-1).........| 00007580 0d 1b bc 04 0d 1b c6 0d dd f2 66 61 64 65 6d 61 |..........fadema| 00007590 67 0d 1b d0 4e f2 66 61 64 65 28 30 2c 39 36 30 |g...N.fade(0,960| 000075a0 2c 30 2c 32 2c 34 30 2c 22 66 61 64 65 22 29 3a |,0,2,40,"fade"):| 000075b0 f2 62 6f 6f 6b 67 6f 6f 6e 28 31 30 38 30 2c 31 |.bookgoon(1080,1| 000075c0 32 2c 26 30 31 2c 2d 31 2c 2d 31 29 3a c8 99 20 |2,&01,-1,-1):.. | 000075d0 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 0d |"OS_Byte",112,2.| 000075e0 1b da 05 e1 0d 1b e4 04 0d 1b ee 0a dd f2 67 6f |..............go| 000075f0 69 6e 0d 1b f8 49 c8 99 20 22 4f 53 5f 42 79 74 |in...I.. "OS_Byt| 00007600 65 22 2c 31 31 32 2c 32 3a f2 77 6f 72 64 73 28 |e",112,2:.words(| 00007610 32 34 30 2c 34 30 2c 2d 31 2c 33 2c 2d 31 2c 38 |240,40,-1,3,-1,8| 00007620 32 30 2c 22 44 6f 20 79 6f 75 20 77 61 6e 74 20 |20,"Do you want | 00007630 74 6f 20 67 6f 20 69 6e 3f 22 29 0d 1c 02 2c f2 |to go in?")...,.| 00007640 6d 65 72 67 65 73 63 72 32 31 28 32 29 3a f2 62 |mergescr21(2):.b| 00007650 6d 79 6e 28 31 30 38 30 2c 31 32 2c 25 31 30 30 |myn(1080,12,%100| 00007660 30 2c 30 2c 2d 31 29 0d 1c 0c 05 e1 0d 1c 16 04 |0,0,-1).........| 00007670 0d 1c 20 10 dd f2 70 6c 6f 74 76 61 6c 6c 65 79 |.. ...plotvalley| 00007680 0d 1c 2a 16 c8 99 20 22 4f 53 5f 42 79 74 65 22 |..*... "OS_Byte"| 00007690 2c 31 31 32 2c 32 0d 1c 34 38 c8 99 22 4f 53 5f |,112,2..48.."OS_| 000076a0 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 000076b0 70 61 72 65 61 25 2c 22 76 61 6c 6c 65 79 22 2c |parea%,"valley",| 000076c0 30 2c 30 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 1c |0,0,8,scale%,0..| 000076d0 3e 39 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |>9.."OS_SpriteOp| 000076e0 22 2c 26 31 33 34 2c 62 75 74 61 72 65 61 25 2c |",&134,butarea%,| 000076f0 22 77 6f 72 6d 22 2c 32 30 2c 35 36 2c 38 2c 73 |"worm",20,56,8,s| 00007700 63 61 6c 65 25 2c 30 0d 1c 48 05 e1 0d 1c 52 04 |cale%,0..H....R.| 00007710 0d 1c 5c 0d dd f2 6d 61 67 6c 6f 6f 70 0d 1c 66 |..\...magloop..f| 00007720 46 63 68 6f 73 65 6e 25 3d 2d 31 3a 73 65 65 25 |Fchosen%=-1:see%| 00007730 3d 31 3a 64 6f 25 3d 32 3a c8 99 20 22 4f 53 5f |=1:do%=2:.. "OS_| 00007740 42 79 74 65 22 2c 31 31 33 2c 73 65 65 25 3a c8 |Byte",113,see%:.| 00007750 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |. "OS_Byte",112,| 00007760 64 6f 25 0d 1c 70 60 f2 73 61 76 65 62 67 72 64 |do%..p`.savebgrd| 00007770 28 36 30 30 2c 35 30 30 2c 36 32 2c 36 30 2c 22 |(600,500,62,60,"| 00007780 6d 61 67 62 67 31 22 29 3a f2 73 61 76 65 62 67 |magbg1"):.savebg| 00007790 72 64 28 36 30 30 2c 35 30 30 2c 36 32 2c 36 30 |rd(600,500,62,60| 000077a0 2c 22 6d 61 67 62 67 32 22 29 3a 78 25 28 29 3d |,"magbg2"):x%()=| 000077b0 36 30 30 3a 79 25 28 29 3d 35 30 30 3a 6d 61 67 |600:y%()=500:mag| 000077c0 25 3d 30 0d 1c 7a 36 c8 99 22 4f 53 5f 42 79 74 |%=0..z6.."OS_Byt| 000077d0 65 22 2c 32 31 2c 39 3a c8 97 20 c8 93 20 30 2c |e",21,9:.. .. 0,| 000077e0 31 36 38 2c 31 32 31 38 2c 37 33 32 3a c8 97 20 |168,1218,732:.. | 000077f0 b8 20 36 30 30 2c 35 30 30 0d 1c 84 09 2a 46 58 |. 600,500....*FX| 00007800 31 35 0d 1c 8e 20 62 69 72 64 74 69 6d 65 25 3d |15... birdtime%=| 00007810 91 2b 32 30 30 3a 66 69 72 73 74 74 69 6d 65 25 |.+200:firsttime%| 00007820 3d 91 0d 1c 98 05 f5 0d 1c a2 13 20 f2 63 68 65 |=.......... .che| 00007830 63 6b 6b 65 79 65 76 65 6e 74 0d 1c ac 15 20 c8 |ckkeyevent.... .| 00007840 97 20 6d 78 25 2c 6d 79 25 2c 6d 62 75 74 25 0d |. mx%,my%,mbut%.| 00007850 1c b6 46 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 |..F .."OS_Sprite| 00007860 4f 70 22 2c 26 31 32 32 2c 73 70 61 72 65 61 25 |Op",&122,sparea%| 00007870 2c 22 6d 61 67 62 67 22 2b c3 28 64 6f 25 29 2c |,"magbg"+.(do%),| 00007880 78 25 28 64 6f 25 2d 31 29 2c 79 25 28 64 6f 25 |x%(do%-1),y%(do%| 00007890 2d 31 29 2c 38 0d 1c c0 54 20 78 25 28 64 6f 25 |-1),8...T x%(do%| 000078a0 2d 31 29 3d 6d 78 25 3a 79 25 28 64 6f 25 2d 31 |-1)=mx%:y%(do%-1| 000078b0 29 3d 6d 79 25 3a f2 73 61 76 65 62 67 72 64 28 |)=my%:.savebgrd(| 000078c0 78 25 28 64 6f 25 2d 31 29 2c 79 25 28 64 6f 25 |x%(do%-1),y%(do%| 000078d0 2d 31 29 2c 36 32 2c 36 30 2c 22 6d 61 67 62 67 |-1),62,60,"magbg| 000078e0 22 2b c3 28 64 6f 25 29 29 0d 1c ca 13 20 63 63 |"+.(do%)).... cc| 000078f0 63 25 3d a4 6f 6e 63 61 73 74 6c 65 0d 1c d4 25 |c%=.oncastle...%| 00007900 20 e7 28 63 63 63 25 3e 30 29 80 28 91 3e 28 66 | .(ccc%>0).(.>(f| 00007910 69 72 73 74 74 69 6d 65 25 2b 32 30 30 29 29 20 |irsttime%+200)) | 00007920 8c 0d 1c de 32 20 20 6d 61 67 25 3d 31 3a f2 63 |....2 mag%=1:.c| 00007930 61 63 68 65 73 6f 75 6e 64 28 22 66 78 62 6f 69 |achesound("fxboi| 00007940 6e 67 22 2c 31 29 3a d4 20 31 2c 26 31 37 46 2c |ng",1):. 1,&17F,| 00007950 31 2c 31 0d 1c e8 06 20 cc 0d 1c f2 0c 20 20 6d |1,1.... ..... m| 00007960 61 67 25 3d 30 0d 1c fc 06 20 cd 0d 1d 06 42 20 |ag%=0.... ....B | 00007970 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00007980 26 31 33 34 2c 73 70 61 72 65 61 25 2c 22 6d 61 |&134,sparea%,"ma| 00007990 67 22 2b c3 28 6d 61 67 25 29 2c 6d 78 25 2c 6d |g"+.(mag%),mx%,m| 000079a0 79 25 2c 38 2c 73 63 61 6c 65 25 2c 30 0d 1d 10 |y%,8,scale%,0...| 000079b0 52 20 73 65 65 25 3d 25 31 30 30 3e 3e 3e 73 65 |R see%=%100>>>se| 000079c0 65 25 3a 64 6f 25 3d 25 31 30 30 3e 3e 3e 64 6f |e%:do%=%100>>>do| 000079d0 25 3a c8 96 3a c8 99 20 22 4f 53 5f 42 79 74 65 |%:..:.. "OS_Byte| 000079e0 22 2c 31 31 33 2c 73 65 65 25 3a c8 99 20 22 4f |",113,see%:.. "O| 000079f0 53 5f 42 79 74 65 22 2c 31 31 32 2c 64 6f 25 0d |S_Byte",112,do%.| 00007a00 1d 1a 71 20 e7 91 3e 62 69 72 64 74 69 6d 65 25 |..q ..>birdtime%| 00007a10 20 8c 3a 62 69 25 3d b3 28 32 29 3a f2 63 61 63 | .:bi%=.(2):.cac| 00007a20 68 65 73 6f 75 6e 64 28 22 66 78 62 69 72 64 22 |hesound("fxbird"| 00007a30 2b c3 28 62 69 25 29 2c 31 29 3a d4 20 31 2c 26 |+.(bi%),1):. 1,&| 00007a40 31 37 46 2d 28 26 31 30 2a 28 62 69 25 83 32 29 |17F-(&10*(bi%.2)| 00007a50 29 2c 31 2c 31 3a 62 69 72 64 74 69 6d 65 25 3d |),1,1:birdtime%=| 00007a60 91 2b 35 30 30 2b 28 31 30 30 2a b3 28 36 29 29 |.+500+(100*.(6))| 00007a70 0d 1d 24 16 20 e7 6d 61 67 25 3d 31 3a 63 68 6f |..$. .mag%=1:cho| 00007a80 73 65 6e 25 3d 30 0d 1d 2e 0e fd 63 68 6f 73 65 |sen%=0.....chose| 00007a90 6e 25 3d 30 0d 1d 38 22 f2 73 63 72 63 6f 70 79 |n%=0..8".scrcopy| 00007aa0 28 73 65 65 25 2c 64 6f 25 29 3a f2 70 6c 6f 74 |(see%,do%):.plot| 00007ab0 76 61 6c 6c 65 79 0d 1d 42 41 c8 99 22 4f 53 5f |valley..BA.."OS_| 00007ac0 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 00007ad0 70 61 72 65 61 25 2c 22 6d 61 67 22 2b c3 28 6d |parea%,"mag"+.(m| 00007ae0 61 67 25 29 2c 6d 78 25 2c 6d 79 25 2c 38 2c 73 |ag%),mx%,my%,8,s| 00007af0 63 61 6c 65 25 2c 30 0d 1d 4c 17 6d 61 67 78 25 |cale%,0..L.magx%| 00007b00 3d 6d 78 25 3a 6d 61 67 79 25 3d 6d 79 25 0d 1d |=mx%:magy%=my%..| 00007b10 56 33 f2 73 70 65 65 63 68 62 6f 78 28 32 34 30 |V3.speechbox(240| 00007b20 2c 38 2c 38 32 30 2c 31 30 38 2c 31 2c 2d 31 2c |,8,820,108,1,-1,| 00007b30 34 38 2c 2d 31 29 3a f2 6d 6f 75 73 65 66 75 6c |48,-1):.mouseful| 00007b40 6c 0d 1d 60 05 e1 0d 1d 6a 04 0d 1d 74 04 0d 1d |l..`....j...t...| 00007b50 7e 0e dd a4 6f 6e 63 61 73 74 6c 65 0d 1d 88 1f |~...oncastle....| 00007b60 f4 20 63 61 73 74 6c 65 3d 31 2c 63 61 76 65 3d |. castle=1,cave=| 00007b70 32 2c 63 6f 74 74 61 67 65 3d 33 0d 1d 92 54 e7 |2,cottage=3...T.| 00007b80 28 6d 78 25 3c 3d 28 63 25 28 58 25 2c 30 29 2b |(mx%<=(c%(X%,0)+| 00007b90 32 30 30 29 29 80 28 6d 78 25 3e 3d 63 25 28 58 |200)).(mx%>=c%(X| 00007ba0 25 2c 30 29 29 80 28 6d 79 25 3c 3d 28 63 25 28 |%,0)).(my%<=(c%(| 00007bb0 58 25 2c 31 29 2b 32 30 30 29 29 80 28 6d 79 25 |X%,1)+200)).(my%| 00007bc0 3e 3d 63 25 28 58 25 2c 31 29 29 8c 3a 3d 31 0d |>=c%(X%,1)).:=1.| 00007bd0 1d 9c 06 3d 30 0d 1d a6 04 0d 1d b0 14 dd a4 72 |...=0..........r| 00007be0 65 61 64 73 79 73 76 61 72 28 61 24 29 0d 1d ba |eadsysvar(a$)...| 00007bf0 08 ea 20 70 25 0d 1d c4 4e c8 99 20 22 4f 53 5f |.. p%...N.. "OS_| 00007c00 52 65 61 64 56 61 72 56 61 6c 22 2c 61 24 2c 62 |ReadVarVal",a$,b| 00007c10 6c 6b 25 2c 38 30 2c 30 2c 30 20 b8 20 2c 2c 61 |lk%,80,0,0 . ,,a| 00007c20 25 3a 61 24 3d 22 22 3a e3 70 25 3d 30 b8 61 25 |%:a$="":.p%=0.a%| 00007c30 2d 31 3a 61 24 2b 3d bd 28 62 6c 6b 25 3f 70 25 |-1:a$+=.(blk%?p%| 00007c40 29 3a ed 0d 1d ce 07 3d 61 24 0d 1d d8 04 0d 1d |):.....=a$......| 00007c50 e2 16 dd f2 73 70 65 63 69 66 69 63 63 6f 70 79 |....specificcopy| 00007c60 28 6a 25 29 0d 1d ec 0b c8 8e 20 6a 25 20 ca 0d |(j%)...... j% ..| 00007c70 1d f6 15 20 c9 20 38 3a f2 62 77 63 6f 70 79 62 |... . 8:.bwcopyb| 00007c80 6c 69 6e 6b 0d 1e 00 29 20 c9 20 39 3a e7 4c 25 |link...) . 9:.L%| 00007c90 3d 31 30 31 30 3a f2 62 77 63 6f 70 79 74 61 69 |=1010:.bwcopytai| 00007ca0 6c 3a 8b 3a f2 63 6f 70 79 62 6f 6f 6b 0d 1e 0a |l:.:.copybook...| 00007cb0 14 20 c9 20 31 30 3a f2 63 6f 70 79 77 61 76 65 |. . 10:.copywave| 00007cc0 73 0d 1e 14 16 20 c9 20 31 32 3a f2 63 6f 70 79 |s.... . 12:.copy| 00007cd0 71 75 65 65 6e 62 6c 0d 1e 1e 14 20 c9 20 31 33 |queenbl.... . 13| 00007ce0 3a f2 63 6f 70 79 71 74 65 61 72 0d 1e 28 17 20 |:.copyqtear..(. | 00007cf0 c9 20 31 37 3a f2 63 6f 70 79 65 6c 66 62 6c 69 |. 17:.copyelfbli| 00007d00 6e 6b 0d 1e 32 15 20 c9 20 31 38 3a f2 63 6f 70 |nk..2. . 18:.cop| 00007d10 79 62 62 6c 69 6e 6b 0d 1e 3c 15 20 c9 20 31 39 |ybblink..<. . 19| 00007d20 3a f2 63 6f 70 79 67 62 6c 69 6e 6b 0d 1e 46 18 |:.copygblink..F.| 00007d30 20 c9 20 32 30 3a f2 63 6f 70 79 65 6c 66 62 6c | . 20:.copyelfbl| 00007d40 69 6e 6b 32 0d 1e 50 05 cb 0d 1e 5a 05 e1 0d 1e |ink2..P....Z....| 00007d50 64 04 0d 1e 6e 16 dd f2 73 70 65 63 69 66 69 63 |d...n...specific| 00007d60 61 6e 69 6d 28 6a 25 29 0d 1e 78 0b c8 8e 20 6a |anim(j%)..x... j| 00007d70 25 20 ca 0d 1e 82 12 20 c9 20 38 3a 20 f2 62 77 |% ..... . 8: .bw| 00007d80 62 6c 69 6e 6b 0d 1e 8c 11 20 c9 20 39 3a 20 f2 |blink.... . 9: .| 00007d90 62 77 74 61 69 6c 0d 1e 96 10 20 c9 20 31 30 3a |bwtail.... . 10:| 00007da0 f2 77 61 76 65 73 0d 1e a0 15 20 c9 20 31 32 3a |.waves.... . 12:| 00007db0 f2 71 75 65 65 6e 62 6c 69 6e 6b 0d 1e aa 10 20 |.queenblink.... | 00007dc0 c9 20 31 33 3a f2 71 74 65 61 72 0d 1e b4 13 20 |. 13:.qtear.... | 00007dd0 c9 20 31 37 3a f2 65 6c 66 62 6c 69 6e 6b 0d 1e |. 17:.elfblink..| 00007de0 be 11 20 c9 20 31 38 3a f2 62 62 6c 69 6e 6b 0d |.. . 18:.bblink.| 00007df0 1e c8 11 20 c9 20 31 39 3a f2 67 62 6c 69 6e 6b |... . 19:.gblink| 00007e00 0d 1e d2 14 20 c9 20 32 30 3a f2 65 6c 66 62 6c |.... . 20:.elfbl| 00007e10 69 6e 6b 32 0d 1e dc 05 cb 0d 1e e6 05 e1 0d 1e |ink2............| 00007e20 f0 04 0d 1e fa 10 dd f2 69 6e 69 74 69 61 6c 69 |........initiali| 00007e30 73 65 0d 1f 04 33 c8 99 20 26 34 36 31 38 31 2c |se...3.. &46181,| 00007e40 52 25 2c 22 3c 45 6c 66 4b 24 63 68 61 69 6e 64 |R%,"<ElfK$chaind| 00007e50 69 72 3e 2e 4f 4e 45 2e 53 50 61 63 6b 46 69 6c |ir>.ONE.SPackFil| 00007e60 65 22 2c 33 32 0d 1f 0e 23 5a 25 3d bb 28 a4 72 |e",32...#Z%=.(.r| 00007e70 65 61 64 73 79 73 76 61 72 28 22 45 6c 66 4b 24 |eadsysvar("ElfK$| 00007e80 74 61 73 6b 31 22 29 29 0d 1f 18 31 de 20 63 25 |task1"))...1. c%| 00007e90 28 38 2c 31 29 2c 65 79 65 73 25 28 32 2c 31 29 |(8,1),eyes%(2,1)| 00007ea0 2c 65 77 25 28 33 2c 31 29 2c 62 77 25 28 37 29 |,ew%(3,1),bw%(7)| 00007eb0 2c 62 68 25 28 37 2c 31 29 0d 1f 22 12 de 20 73 |,bh%(7,1)..".. s| 00007ec0 70 70 61 6c 65 74 25 20 31 32 38 0d 1f 2c 08 f7 |ppalet% 128..,..| 00007ed0 20 2b 30 0d 1f 36 4d dc 20 31 30 32 30 2c 35 37 | +0..6M. 1020,57| 00007ee0 36 2c 39 32 38 2c 35 39 32 2c 38 30 32 2c 36 32 |6,928,592,802,62| 00007ef0 30 2c 36 30 38 2c 36 30 30 2c 34 38 34 2c 36 32 |0,608,600,484,62| 00007f00 30 2c 33 39 34 2c 36 34 30 2c 32 31 30 2c 36 30 |0,394,640,210,60| 00007f10 30 2c 32 38 2c 35 37 32 2c 32 30 34 2c 35 38 30 |0,28,572,204,580| 00007f20 0d 1f 40 23 e3 6a 25 3d 30 b8 38 3a e3 6b 25 3d |..@#.j%=0.8:.k%=| 00007f30 30 b8 31 3a f3 20 63 25 28 6a 25 2c 6b 25 29 3a |0.1:. c%(j%,k%):| 00007f40 ed 3a ed 0d 1f 4a 08 f7 20 2b 30 0d 1f 54 19 dc |.:...J.. +0..T..| 00007f50 20 30 2c 35 32 2c 36 2c 34 38 2c 32 2c 35 32 2c | 0,52,6,48,2,52,| 00007f60 30 2c 35 36 0d 1f 5e 24 e3 6a 25 3d 30 b8 33 3a |0,56..^$.j%=0.3:| 00007f70 e3 6b 25 3d 30 b8 31 3a f3 20 65 77 25 28 6a 25 |.k%=0.1:. ew%(j%| 00007f80 2c 6b 25 29 3a ed 3a ed 0d 1f 68 08 f7 20 2b 30 |,k%):.:...h.. +0| 00007f90 0d 1f 72 20 dc 20 30 2c 2d 32 36 2c 2d 32 36 2c |..r . 0,-26,-26,| 00007fa0 2d 31 30 2c 30 2c 2d 32 34 2c 2d 32 32 2c 2d 38 |-10,0,-24,-22,-8| 00007fb0 0d 1f 7c 17 e3 6a 25 3d 30 b8 37 3a f3 20 62 77 |..|..j%=0.7:. bw| 00007fc0 25 28 6a 25 29 3a ed 0d 1f 86 08 f7 20 2b 30 0d |%(j%):...... +0.| 00007fd0 1f 90 3d dc 20 2d 31 34 2c 32 34 34 2c 31 38 2c |..=. -14,244,18,| 00007fe0 32 34 30 2c 31 32 2c 32 34 34 2c 30 2c 32 34 38 |240,12,244,0,248| 00007ff0 2c 2d 31 34 2c 32 34 34 2c 31 38 2c 32 34 30 2c |,-14,244,18,240,| 00008000 31 32 2c 32 34 34 2c 30 2c 32 34 38 0d 1f 9a 24 |12,244,0,248...$| 00008010 e3 6a 25 3d 30 b8 37 3a e3 6b 25 3d 30 b8 31 3a |.j%=0.7:.k%=0.1:| 00008020 f3 20 62 68 25 28 6a 25 2c 6b 25 29 3a ed 3a ed |. bh%(j%,k%):.:.| 00008030 0d 1f a4 14 f4 20 73 61 79 20 62 6c 75 65 20 77 |..... say blue w| 00008040 6f 72 64 73 0d 1f ae 08 f7 20 2b 30 0d 1f b8 07 |ords..... +0....| 00008050 f4 20 30 0d 1f c2 1a dc 20 77 6f 72 64 73 2c 77 |. 0..... words,w| 00008060 6f 72 64 73 2c 22 31 36 2c 35 32 30 22 0d 1f cc |ords,"16,520"...| 00008070 17 dc 20 62 6c 75 65 2c 62 6c 75 65 2c 22 32 38 |.. blue,blue,"28| 00008080 2c 35 30 22 0d 1f d6 1c dc 20 6f 72 61 6e 67 65 |,50"..... orange| 00008090 2c 6f 72 61 6e 67 65 2c 22 31 36 2c 31 32 30 22 |,orange,"16,120"| 000080a0 0d 1f e0 19 dc 20 67 72 65 65 6e 2c 67 72 65 65 |..... green,gree| 000080b0 6e 2c 22 32 32 2c 34 30 22 0d 1f ea 1a dc 20 73 |n,"22,40"..... s| 000080c0 74 6f 72 79 2c 73 74 6f 72 79 2c 22 32 36 2c 32 |tory,story,"26,2| 000080d0 34 30 22 0d 1f f4 1a dc 20 45 6c 76 65 73 2c 65 |40"..... Elves,e| 000080e0 6c 76 65 73 2c 22 31 38 2c 31 32 30 22 0d 1f fe |lves,"18,120"...| 000080f0 17 dc 20 6c 69 76 65 2c 6c 69 76 65 2c 22 31 38 |.. live,live,"18| 00008100 2c 34 30 22 0d 20 08 1a dc 20 71 75 65 65 6e 2c |,40". ... queen,| 00008110 71 75 65 65 6e 2c 22 31 36 2c 35 34 30 22 0d 20 |queen,"16,540". | 00008120 12 19 dc 20 6b 6e 6f 63 6b 2c 6b 6e 6f 63 6b 2c |... knock,knock,| 00008130 22 33 34 2c 32 30 22 0d 20 1c 17 dc 20 64 6f 6f |"34,20". ... doo| 00008140 72 2c 64 6f 6f 72 2c 22 32 30 2c 32 30 22 0d 20 |r,door,"20,20". | 00008150 26 08 f4 20 31 30 0d 20 30 1c dc 20 61 6e 73 77 |&.. 10. 0.. answ| 00008160 65 72 2c 61 6e 73 77 65 72 2c 22 32 34 2c 31 32 |er,answer,"24,12| 00008170 30 22 0d 20 3a 19 dc 20 53 68 61 6c 6c 2c 73 68 |0". :.. Shall,sh| 00008180 61 6c 6c 2c 22 32 34 2c 31 30 22 0d 20 44 21 dc |all,"24,10". D!.| 00008190 20 63 75 70 62 6f 61 72 64 2c 63 75 70 62 6f 61 | cupboard,cupboa| 000081a0 72 64 2c 22 31 36 2c 32 33 32 30 22 0d 20 4e 20 |rd,"16,2320". N | 000081b0 dc 20 63 75 72 74 61 69 6e 73 2c 63 75 72 74 61 |. curtains,curta| 000081c0 69 6e 73 2c 22 32 30 2c 32 34 30 22 0d 20 58 1f |ins,"20,240". X.| 000081d0 dc 20 6d 69 73 73 69 6e 67 2c 6d 69 73 73 69 6e |. missing,missin| 000081e0 67 2c 22 31 36 2c 33 32 34 30 22 0d 20 62 1b dc |g,"16,3240". b..| 000081f0 20 66 6f 75 6e 64 2c 66 6f 75 6e 64 2c 22 31 34 | found,found,"14| 00008200 2c 31 35 32 30 22 0d 20 6c 1e dc 20 64 75 6e 67 |,1520". l.. dung| 00008210 65 6f 6e 2c 64 75 6e 67 65 6f 6e 2c 22 32 32 2c |eon,dungeon,"22,| 00008220 31 32 30 22 0d 20 76 1a dc 20 73 77 61 70 2c 73 |120". v.. swap,s| 00008230 77 61 70 2c 22 31 32 2c 35 32 33 32 30 22 0d 20 |wap,"12,52320". | 00008240 80 1d dc 20 63 72 6f 77 6e 73 2c 63 72 6f 77 6e |... crowns,crown| 00008250 73 2c 22 31 36 2c 31 35 32 30 22 0d 20 8a 1a dc |s,"16,1520". ...| 00008260 20 48 61 69 72 79 2c 68 61 69 72 79 2c 22 32 30 | Hairy,hairy,"20| 00008270 2c 31 34 30 22 0d 20 94 08 f4 20 32 30 0d 20 9e |,140". ... 20. .| 00008280 17 dc 20 47 61 6e 67 2c 67 61 6e 67 2c 22 33 34 |.. Gang,gang,"34| 00008290 2c 31 30 22 0d 20 a8 1b dc 20 50 6c 65 61 73 65 |,10". ... Please| 000082a0 2c 70 6c 65 61 73 65 2c 22 32 34 2c 34 30 22 0d |,please,"24,40".| 000082b0 20 b2 1c dc 20 72 65 73 63 75 65 2c 72 65 73 63 | ... rescue,resc| 000082c0 75 65 2c 22 33 30 2c 32 35 30 22 0d 20 bc 23 dc |ue,"30,250". .#.| 000082d0 20 22 54 68 61 6e 6b 20 79 6f 75 22 2c 74 68 61 | "Thank you",tha| 000082e0 6e 6b 79 6f 75 2c 22 33 30 2c 31 35 30 22 0d 20 |nkyou,"30,150". | 000082f0 c6 1c dc 20 63 61 73 74 6c 65 2c 63 61 73 74 6c |... castle,castl| 00008300 65 2c 22 32 30 2c 31 32 30 22 0d 20 d0 19 dc 20 |e,"20,120". ... | 00008310 6c 65 61 76 65 2c 6c 65 61 76 65 2c 22 33 30 2c |leave,leave,"30,| 00008320 34 30 22 0d 20 da 0c e3 6a 25 3d 30 b8 32 35 0d |40". ...j%=0.25.| 00008330 20 e4 1c 20 e3 6b 25 3d 30 b8 32 3a f3 20 73 61 | .. .k%=0.2:. sa| 00008340 79 24 28 6a 25 2c 6b 25 29 3a ed 0d 20 ee 05 ed |y$(j%,k%):.. ...| 00008350 0d 20 f8 08 f7 20 2b 30 0d 21 02 07 f4 20 30 0d |. ... +0.!... 0.| 00008360 21 0c 0f dc 20 39 34 36 2c 36 38 30 2c 30 0d 21 |!... 946,680,0.!| 00008370 16 0f dc 20 39 35 32 2c 36 30 30 2c 30 0d 21 20 |... 952,600,0.! | 00008380 0f dc 20 38 31 36 2c 36 38 30 2c 30 0d 21 2a 0f |.. 816,680,0.!*.| 00008390 dc 20 37 31 34 2c 36 38 30 2c 31 0d 21 34 0f dc |. 714,680,1.!4..| 000083a0 20 37 31 36 2c 36 38 30 2c 32 0d 21 3e 07 f4 20 | 716,680,2.!>.. | 000083b0 35 0d 21 48 0f dc 20 37 31 36 2c 36 38 30 2c 33 |5.!H.. 716,680,3| 000083c0 0d 21 52 10 dc 20 31 30 35 34 2c 37 33 32 2c 34 |.!R.. 1054,732,4| 000083d0 0d 21 5c 0e dc 20 34 38 36 2c 34 30 2c 35 0d 21 |.!\.. 486,40,5.!| 000083e0 66 0e dc 20 36 31 34 2c 34 30 2c 36 0d 21 70 0f |f.. 614,40,6.!p.| 000083f0 dc 20 38 37 36 2c 36 38 30 2c 30 0d 21 7a 08 f4 |. 876,680,0.!z..| 00008400 20 31 30 0d 21 84 0f dc 20 38 34 38 2c 36 38 30 | 10.!... 848,680| 00008410 2c 30 0d 21 8e 0e dc 20 36 35 34 2c 34 30 2c 37 |,0.!... 654,40,7| 00008420 0d 21 98 0e dc 20 37 39 36 2c 34 30 2c 36 0d 21 |.!... 796,40,6.!| 00008430 a2 0f dc 20 38 37 30 2c 37 35 36 2c 37 0d 21 ac |... 870,756,7.!.| 00008440 0e dc 20 35 35 34 2c 34 30 2c 38 0d 21 b6 08 f4 |.. 554,40,8.!...| 00008450 20 31 35 0d 21 c0 0e dc 20 38 30 34 2c 34 30 2c | 15.!... 804,40,| 00008460 39 0d 21 ca 10 dc 20 33 31 36 2c 37 35 32 2c 31 |9.!... 316,752,1| 00008470 30 0d 21 d4 10 dc 20 34 39 36 2c 37 35 36 2c 31 |0.!... 496,756,1| 00008480 31 0d 21 de 0f dc 20 36 30 32 2c 34 30 2c 31 32 |1.!... 602,40,12| 00008490 0d 21 e8 0f dc 20 36 38 36 2c 34 30 2c 31 33 0d |.!... 686,40,13.| 000084a0 21 f2 08 f4 20 32 30 0d 21 fc 10 dc 20 37 33 36 |!... 20.!... 736| 000084b0 2c 37 37 32 2c 31 34 0d 22 06 10 dc 20 35 32 36 |,772,14."... 526| 000084c0 2c 37 37 32 2c 31 35 0d 22 10 10 dc 20 36 30 34 |,772,15."... 604| 000084d0 2c 36 33 32 2c 31 36 0d 22 1a 10 dc 20 36 31 36 |,632,16."... 616| 000084e0 2c 35 33 32 2c 31 37 0d 22 24 10 dc 20 36 35 36 |,532,17."$.. 656| 000084f0 2c 34 33 32 2c 31 38 0d 22 2e 08 f4 20 32 35 0d |,432,18."... 25.| 00008500 22 38 10 dc 20 35 35 32 2c 32 33 32 2c 31 39 0d |"8.. 552,232,19.| 00008510 22 42 10 dc 20 36 38 32 2c 32 33 32 2c 32 30 0d |"B.. 682,232,20.| 00008520 22 4c 10 dc 20 38 37 36 2c 37 37 32 2c 31 35 0d |"L.. 876,772,15.| 00008530 22 56 10 dc 20 34 39 38 2c 37 37 32 2c 32 31 0d |"V.. 498,772,21.| 00008540 22 60 10 dc 20 34 31 30 2c 33 34 38 2c 32 31 0d |"`.. 410,348,21.| 00008550 22 6a 08 f4 20 33 30 0d 22 74 10 dc 20 36 31 32 |"j.. 30."t.. 612| 00008560 2c 33 34 38 2c 32 32 0d 22 7e 10 dc 20 35 38 30 |,348,22."~.. 580| 00008570 2c 37 37 32 2c 32 33 0d 22 88 10 dc 20 34 31 30 |,772,23."... 410| 00008580 2c 33 34 38 2c 32 33 0d 22 92 0e dc 20 37 39 38 |,348,23."... 798| 00008590 2c 34 30 2c 34 0d 22 9c 10 dc 20 37 37 34 2c 33 |,40,4."... 774,3| 000085a0 37 32 2c 31 36 0d 22 a6 08 f4 20 33 35 0d 22 b0 |72,16."... 35.".| 000085b0 10 dc 20 37 38 38 2c 33 31 32 2c 32 34 0d 22 ba |.. 788,312,24.".| 000085c0 0e dc 20 37 30 32 2c 34 30 2c 39 0d 22 c4 0f dc |.. 702,40,9."...| 000085d0 20 34 32 34 2c 34 30 2c 32 35 0d 22 ce 04 0d 22 | 424,40,25."..."| 000085e0 d8 0c e3 6a 25 3d 30 b8 33 37 0d 22 e2 29 20 e3 |...j%=0.37.".) .| 000085f0 6b 25 3d 30 b8 31 3a f3 20 73 61 79 25 28 6a 25 |k%=0.1:. say%(j%| 00008600 2c 6b 25 29 3a ed 3a f3 20 73 61 79 25 28 6a 25 |,k%):.:. say%(j%| 00008610 2c 34 29 0d 22 ec 05 ed 0d 22 f6 0c e3 6a 25 3d |,4)."...."...j%=| 00008620 30 b8 33 37 0d 23 00 67 20 73 61 79 25 28 6a 25 |0.37.#.g say%(j%| 00008630 2c 31 29 2d 3d 31 36 3a 73 61 79 25 28 6a 25 2c |,1)-=16:say%(j%,| 00008640 32 29 3d 73 61 79 25 28 6a 25 2c 30 29 2b 32 2b |2)=say%(j%,0)+2+| 00008650 a4 73 74 72 69 6e 67 73 69 7a 65 28 73 61 79 24 |.stringsize(say$| 00008660 28 73 61 79 25 28 6a 25 2c 34 29 2c 30 29 29 3a |(say%(j%,4),0)):| 00008670 73 61 79 25 28 6a 25 2c 33 29 3d 73 61 79 25 28 |say%(j%,3)=say%(| 00008680 6a 25 2c 31 29 2b 31 36 2b 35 32 0d 23 0a 05 ed |j%,1)+16+52.#...| 00008690 0d 23 14 08 f7 20 2b 30 0d 23 1e 87 dc 20 26 46 |.#... +0.#... &F| 000086a0 46 46 46 46 46 30 30 2c 26 46 46 46 46 46 46 30 |FFFFF00,&FFFFFF0| 000086b0 30 2c 26 41 41 41 41 41 41 30 30 2c 26 41 41 41 |0,&AAAAAA00,&AAA| 000086c0 41 41 41 30 30 2c 26 37 37 37 37 37 37 30 30 2c |AAA00,&77777700,| 000086d0 26 37 37 37 37 37 37 30 30 2c 26 30 2c 26 30 2c |&77777700,&0,&0,| 000086e0 26 41 41 30 30 2c 26 41 41 30 30 2c 26 36 36 46 |&AA00,&AA00,&66F| 000086f0 46 30 30 2c 26 36 36 46 46 30 30 2c 26 43 43 46 |F00,&66FF00,&CCF| 00008700 46 30 30 2c 26 43 43 46 46 30 30 2c 26 46 46 38 |F00,&CCFF00,&FF8| 00008710 38 30 30 30 30 2c 26 46 46 38 38 30 30 30 30 0d |80000,&FF880000.| 00008720 23 28 99 dc 20 26 45 45 30 30 30 30 30 30 2c 26 |#(.. &EE000000,&| 00008730 45 45 30 30 30 30 30 30 2c 26 46 46 46 46 30 30 |EE000000,&FFFF00| 00008740 30 30 2c 26 46 46 46 46 30 30 30 30 2c 26 39 39 |00,&FFFF0000,&99| 00008750 35 35 30 30 30 30 2c 26 39 39 35 35 30 30 30 30 |550000,&99550000| 00008760 2c 26 46 46 43 43 39 39 30 30 2c 26 46 46 43 43 |,&FFCC9900,&FFCC| 00008770 39 39 30 30 2c 26 38 38 31 31 30 30 2c 26 38 38 |9900,&881100,&88| 00008780 31 31 30 30 2c 26 42 42 30 30 30 30 2c 26 42 42 |1100,&BB0000,&BB| 00008790 30 30 30 30 2c 26 45 45 32 32 30 30 2c 26 45 45 |0000,&EE2200,&EE| 000087a0 32 32 30 30 2c 26 42 42 37 37 30 30 30 30 2c 26 |2200,&BB770000,&| 000087b0 42 42 37 37 30 30 30 30 0d 23 32 0c e3 6b 25 3d |BB770000.#2..k%=| 000087c0 30 b8 33 31 0d 23 3c 08 f3 20 61 25 0d 23 46 16 |0.31.#<.. a%.#F.| 000087d0 73 70 70 61 6c 65 74 25 21 28 34 2a 6b 25 29 3d |sppalet%!(4*k%)=| 000087e0 61 25 0d 23 50 05 ed 0d 23 5a 04 0d 23 64 20 66 |a%.#P...#Z..#d f| 000087f0 69 72 73 74 65 78 70 6c 6f 72 65 25 3d 2d 31 3a |irstexplore%=-1:| 00008800 66 69 72 65 74 69 6d 65 25 3d 91 0d 23 6e 05 e1 |firetime%=..#n..| 00008810 0d 23 78 04 0d 23 82 04 0d 23 8c 04 0d ff |.#x..#...#....| 0000881e