riven: add sound effect

games/riven_hgr/TODO

@@ -19,11 +19,13 @@ title:
 disk00:
 	+ cyan intro
 		use page flipping on Apple IIe with auxmem?
-
 	+ atrus intro
-		have it auto progress
-
+	+ capture movie:
+		more frames for riven intro
+		sound effect
+		fade in effect
 	+ opening movie: implement it
+		ESC key... in wait_a_bit write to WAIT_KEYPRESS
 
 disk01:
 	+ maybe redo opening graphics

games/riven_hgr/disk00_files/Makefile

@@ -31,7 +31,8 @@ CAPTURED:	captured.o
 captured.o:	captured.s \
 		flip_pages.s draw_scene.s \
 		../zp.inc ../hardware.inc ../qload.inc \
-		graphics_captured/captured_graphics.inc
+		graphics_captured/captured_graphics.inc \
+		audio/capture.btc.zx02
 	ca65 -o captured.o captured.s -l captured.lst
 
 

games/riven_hgr/disk00_files/audio/Makefile

@@ -0,0 +1,9 @@
+ZX02 = ~/research/6502_compression/zx02.git/build/zx02 -f
+
+all:	capture.btc.zx02
+
+capture.btc.zx02:	capture.btc
+	$(ZX02) capture.btc capture.btc.zx02
+
+clean:	
+	rm -f *.zx02

games/riven_hgr/disk00_files/audio/capture.btc

@@ -0,0 +1,7 @@
+<EFBFBD>J<EFBFBD>J<EFBFBD>T<EFBFBD>UU*<2A>UUj<55>UU<55><55>l<EFBFBD>Z<EFBFBD><5A><EFBFBD>MMUT<55>Uj<55><6A>T<EFBFBD><54>J<EFBFBD>UUUR<55>Z<EFBFBD><5A><EFBFBD>V<EFBFBD><56>UUV<55>UR<55>JR<4A>U<14>U"<22><>J<EFBFBD>T<EFBFBD><54>UV<55>Uj<55>MYYeU<65>UZU*<2A><>T<EFBFBD><54>F<EFBFBD>R<EFBFBD>RՕ<52>Ui<55><69>5V<35>Yu\<5C>2<><32><EFBFBD><EFBFBD>u-5&<26><>1i՚<69><D59A><EFBFBD><1A><1B><>ִyi<79><69>x<EFBFBD><78><EFBFBD><EFBFBD>Ø0<C398>q<EFBFBD>#<23><17>d<EFBFBD><<3C>Ǎp㶱<70><E3B6B1><EFBFBD>k<EFBFBD><6B><EFBFBD>C<EFBFBD><43><EFBFBD><EFBFBD>f<<3C><><EFBFBD><EFBFBD>!<21>ci<63>2<EFBFBD><32><EFBFBD><EFBFBD>0iΜ<69><CE9C><EFBFBD>m<EFBFBD><6D>tNZ<><5A><EFBFBD><EFBFBD><EFBFBD><1A>AJ(<28><>f4<66><34><EFBFBD><EFBFBD>J<EFBFBD>1,a<>v<EFBFBD><76><EFBFBD>߸<EFBFBD> <20>(f<><66>z̵91<39><31>8<EFBFBD>3<EFBFBD>5Ue<55><65>4Ԫ<34>TDI<44><49><EFBFBD><EFBFBD>Z<EFBFBD>ե<EFBFBD>r<EFBFBD><72>j<><6A>E<EFBFBD><45><EFBFBD>I<EFBFBD>֒<EFBFBD>U<EFBFBD><55>Tѣ<54>J<EFBFBD><4A>Փ<EFBFBD>5jťeU<65>9s<39><73><EFBFBD>R<EFBFBD>*<1A>Ӎ9f<39><66><0C>ҋCEg<45>r<EFBFBD><72>Z<EFBFBD><5A>,l<>8<>ʜ<EFBFBD><CA9C>Zq1<71>:h<><68>5s-Zu<5A>9*ձb<D5B1><62>jʵ2<CAB5>4aeU4RiʩJ<CAA9><4A>M*<2A><>5V<35><56><EFBFBD>6fZڪLY,<2C>dh<64>q<EFBFBD>*T<>USV<53>)F<>8<EFBFBD>V5mUT<55>-4t<34>Z<EFBFBD><5A><EFBFBD>USI)UYi<59>i͍%-Z<>U<EFBFBD><55>jY:<3A>Z<EFBFBD><5A>Yh<59><68><EFBFBD>kfʕSJb<4A>Z<EFBFBD>V<EFBFBD>k5VZ<56><5A><EFBFBD>j<EFBFBD>MUT<55>UUUT<55><54><EFBFBD><EFBFBD><EFBFBD>UUJUemUT<55>Z<EFBFBD><5A><EFBFBD><EFBFBD><EFBFBD>UUUUje<6A><65><EFBFBD><EFBFBD><EFBFBD>Uj<55>U*<2A><><EFBFBD>J<EFBFBD><4A><EFBFBD>:<3A>j<EFBFBD>U*T<>R<EFBFBD>,<2C>SK+US+*<2A><>U-SUeT<65>ʫV<CAAB>R<EFBFBD>VVUj<55><6A>IR<49><52>Ԫ<EFBFBD>VU%<25><>iV<69><56><EFBFBD>ʪ<EFBFBD><CAAA><EFBFBD><EFBFBD>j<EFBFBD>U<EFBFBD><55>UT<55>UZZU*T<>UTԴ<54><D4B4><EFBFBD>ZִԴ<D6B4>Z<EFBFBD>*UUeUUUU<55>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD>U*<2A>U-mUY<55>UVjj<6A>VZ<56><5A>V<EFBFBD>M*UUL<55><4C><EFBFBD><EFBFBD>UR<55>Uj<55>UUUUT<55>j<EFBFBD><6A><EFBFBD><EFBFBD>Uj<55><6A>U*<2A><>J<EFBFBD>T<EFBFBD><54><EFBFBD>-V<>j<EFBFBD>UJ<55>Z<EFBFBD>U*<2A><><EFBFBD>V<EFBFBD><56><EFBFBD>S-K*<2A><>U4<55>UV<55>T<EFBFBD><54><EFBFBD><EFBFBD><EFBFBD><EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>U*<2A><>U*R<>SJ<53><4A><EFBFBD>MT<4D><54>UZ<55>U<EFBFBD><55><EFBFBD><EFBFBD>[VVUeU*<2A><><EFBFBD>UYR<59>ʪeUi<55>*<2A>j<EFBFBD><6A>VUUUZ<55><5A>*<2A>UUUZ<55><5A>j<EFBFBD>f<EFBFBD><66>UR<55><52><EFBFBD>V<EFBFBD>UUj<55>UUj<55>UZ<55>j<EFBFBD>UR<55>*<2A>UU*<2A><><EFBFBD>5-U<><55>UUUYUUUUV<55><56>֪<EFBFBD><D6AA><EFBFBD>J<EFBFBD><4A>Y<EFBFBD><59>U*UUU*UV<55><56>֪<EFBFBD>UUV<55>UT<55>ʫ*<2A><><EFBFBD>UUU*<2A>TʖUJe<4A><65><EFBFBD>Y<EFBFBD><59>Uj<55><6A>KL<4B><4C><EFBFBD><EFBFBD>YU*iU+-j<><6A><EFBFBD><EFBFBD>UT<55><54><EFBFBD><EFBFBD><EFBFBD>UYV<59>ժ<EFBFBD>UUUU&<26>KJ<4B>MUJUU5KUUV<55>Uj<55><6A>V<EFBFBD>V<EFBFBD><56>J<EFBFBD><4A><EFBFBD>e<EFBFBD>U<EFBFBD><55><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʫ8<CAAB><38>Ժ<EFBFBD><D4BA><EFBFBD>Ӛr<D39A><c<>r<EFBFBD>I<>gS1<53>̕I<CC95><0B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD>q<EFBFBD>0<EFBFBD>Xph<70>8a<38><61>x<EFBFBD><78><EFBFBD>*|l],>
+<EFBFBD>1=<0F>G<EFBFBD>U<EFBFBD><55><EFBFBD><EFBFBD><EFBFBD>G<EFBFBD><47><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>c<EFBFBD>}<7D><>3<EFBFBD><33><15>?`~<04>.<2E>~<02>z<03>^<5E><><07>O	<09>9g<39><67>K,<2C>28<32><38>&<26>!<21>=8݌<38>><3E>Ǐ9<C78F><39>s<EFBFBD><73><EFBFBD>c<EFBFBD>Q<EFBFBD><18><>3<EFBFBD>ገ<>F$E̪f<CCAA>9<>j<>y<EFBFBD><79>y˜<79><CB9C><EFBFBD><EFBFBD><EFBFBD>q<EFBFBD><\x<>8<><38>h<EFBFBD>r34<33><0B>N<EFBFBD><4E><1B><><12>4g	ɘ87<0E>ãc<C3A3>1<EFBFBD>l̶<v6<76><36><EFBFBD>`ً.-X<><58>63<36><33><EFBFBD><EFBFBD><0C>ëp<C3AB>y><<3C>g''L<>kN[<5B><><EFBFBD>8<EFBFBD>+#<23>1<EFBFBD><31>j?3<>g
+!<21><0B>1Ę<31><C498><EFBFBD>4<EFBFBD><34>*R+Ne<4E>><<3C>^<1E>dzs<C7B3><73><EFBFBD>];;<3B>M<EFBFBD>*fk<66><6B><EFBFBD>f&0<>Y)O<>31<33><31><18>FÜd<C39C>9iũ<69>r<EFBFBD><<3C>:kN͕<4E><CD95><EFBFBD>rʷ<1C><>*<2A>x<EFBFBD><78><EFBFBD>3G
+)1<>8ӎV<D38E><56>kJ<6B><4A>8<EFBFBD>Nrqj<71>8l<38><<3C><>l<EFBFBD>NQ<4E>LX<4C>2՜<32><D59C><EFBFBD>ʴ<EFBFBD>iSKb<><62><EFBFBD><EFBFBD>'<0C>H<EFBFBD>Y<EFBFBD>hظvpv57<19>l<EFBFBD><6C>e9<65><39><EFBFBD>KNd<4E>m=*<2A>Úir<69><72>rx<72><78>f<EFBFBD>:g;<3B>Ì<><C38C>0<EFBFBD><30><EFBFBD><EFBFBD>3<EFBFBD><1C><1B><><0F>2<EFBFBD>\q<><71><EFBFBD><EFBFBD><EFBFBD><1C><><EFBFBD>#<23>ij<EFBFBD>x3<78>9ʎ2rgtĸ\pl<1C><0E>g<EFBFBD><67><EFBFBD><EFBFBD>O
+Q<EFBFBD>bp<EFBFBD><EFBFBD><EFBFBD><EFBFBD>pyÙq<EFBFBD><EFBFBD><EFBFBD><EFBFBD>9<EFBFBD><EFBFBD>G<EFBFBD><EFBFBD>ǘ<EFBFBD>::4<>v,8<>.1<EFBFBD>0<EFBFBD>N8<EFBFBD><EFBFBD>3<EFBFBD><EFBFBD>qLJ<-<2D><07>㖱<>6/<1E><><EFBFBD>㇘<EFBFBD>g<1E><16>C<EFBFBD>9/NZ<4E>6Nج<>z<EFBFBD>2<EFBFBD><32>s&q<><71><EFBFBD>3<EFBFBD><33><EFBFBD><EFBFBD><EFBFBD>6<EFBFBD><36><EFBFBD><EFBFBD>7icULQ<4C>M<0C>.#<23><>G.<2E><0C><><x<>q<EFBFBD><71>G<EFBFBD>qӚ<71>6Z<36>F<><46>Ò<EFBFBD>dӇ<64>ƌqc<71>h<EFBFBD>K9a<39><61><EFBFBD>h<EFBFBD>V<EFBFBD>cY9.cq<63><71>=N3S<33>+<2B>GN-.<07>&<26><><EFBFBD>8<EFBFBD><38>bX<62><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>U<EFBFBD>W<16><><EFBFBD><m9T<39><54>y<1A><>Yq<>.<2E>-<2D><>K<EFBFBD><4B><EFBFBD><EFBFBD>R<EFBFBD><52><EFBFBD><EFBFBD><EFBFBD>Ǝ*<2A><>a<1B><>G<EFBFBD><47><EFBFBD><EFBFBD><EFBFBD>ju+<2B><>q<EFBFBD>l<EFBFBD>=M<><4D><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DžK)M#JR<4A>%<25><>J*<2A>f<EFBFBD>1ѓ<31>ʦ<EFBFBD>mLlq<6C>)nj<>\<5C><><17><><EFBFBD>2<EFBFBD><32><EFBFBD><EFBFBD>59*<2A><>x̹Va<56>9Ӝq<D39C>;<-<2D>8s8O<0C><>	Ê<1D>_<03><><EFBFBD><EFBFBD>Щ<EFBFBD><D0A9><EFBFBD>ƾ8<C6BE><38>q<EFBFBD><71>ٺ<EFBFBD>{M<><4D>G<>i<EFBFBD>^<5E><>ʮ:<3A><><EFBFBD>ŋ<EFBFBD><C58B>9<>J<EFBFBD>,R<><52><EFBFBD>=)<1D><13><><EFBFBD><EFBFBD><EFBFBD>r<EFBFBD>>_㣕<>^p<>Mag8<67>T<EFBFBD><1D>7Eq˕<5-E<><45><EFBFBD><EFBFBD>M<EFBFBD>r<EFBFBD>|-Z<>U<EFBFBD>e<EFBFBD><65><EFBFBD>'<27><><EFBFBD>ep<65><70><EFBFBD>>3RɖXfXsN,L<><4C><EFBFBD>U<EFBFBD>,p<><70>::*<<0E>9<EFBFBD><39>˜5<CB9C>=<3D><>c<EFBFBD>閴<EFBFBD><E996B4><EFBFBD><EFBFBD><EFBFBD>q<EFBFBD>y<EFBFBD><79><EFBFBD>q<EFBFBD>x<EFBFBD>91<39>IюP<D18E>H<EFBFBD>C<EFBFBD><43><1C><><0C>%jU<6A><55>3<EFBFBD>ʼx<CABC>mI<6D><49><EFBFBD>d<EFBFBD>r<EFBFBD>L;ŋ<><C58B><EFBFBD>xx<78>vK<>E<EFBFBD>D<EFBFBD>Ҹ8<D2B8>Տ)<29><><06>Ip<49><70><EFBFBD><EFBFBD>j5T<><54>Ʃ<><C6A9><EFBFBD>f<EFBFBD>V<EFBFBD>s<EFBFBD><73><EFBFBD><EFBFBD>x<EFBFBD>1<EFBFBD>9=<19><1C>4<>K<><4B><EFBFBD><EFBFBD><EFBFBD><07>$f<>3-͘<>%<25>ŹS<C5B9><53><15>,<2C>z<1A>J<><4A><EFBFBD>m<1E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;#<23><>1<EFBFBD>:r<><72><EFBFBD>[<5B>w<EFBFBD>K<EFBFBD><4B><EFBFBD><EFBFBD><EFBFBD>X<EFBFBD>TZt+b;2f>5<>I<>ܣ<EFBFBD><19><>9<EFBFBD><39>E<EFBFBD>p<EFBFBD><70>=<3D><>.<2E><><EFBFBD><EFBFBD><EFBFBD>\᪸ڼN|\=ÌLJG<C787>S<EFBFBD><53><EFBFBD><EFBFBD><EFBFBD><1C>µJ<>/<0B><><EFBFBD>5<>U9<55><39>t<EFBFBD>5Q<35><51>x5<78><V=&<26><><EFBFBD>I<EFBFBD><N\<5C>x<EFBFBD>^tS<0F><>(܆<>Ѧ<><D1A6><EFBFBD>ԩ<>Nm#x<>WQ<57><51><EFBFBD><EFBFBD>4^-<0E>j\xk<17><><EFBFBD>z9z<1C>2<EFBFBD>.3<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>+<17>ͨy<1B>U<EFBFBD>j<EFBFBD>:GT<47><54><EFBFBD>x<EFBFBD>g<EFBFBD>Zim-)<29>d<EFBFBD>x<EFBFBD><78>a<EFBFBD><61>*<2A>.F&z:<3A>.8<EFBFBD>v<EFBFBD>up<EFBFBD><EFBFBD>X<EFBFBD><EFBFBD><13>ǎT<C78E><54><EFBFBD><EFBFBD><EFBFBD>}8<>z,<<3C>>Rڍ<17><>Ee<45><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5XZplT<6C>V<EFBFBD><56>é\nj<><C78C>G,l<>[<5B><><EFBFBD><EFBFBD><p<><70>ǸQ<C7B8>ae<61><65><EFBFBD><EFBFBD><EFBFBD>b<EFBFBD><62><EFBFBD><EFBFBD>Qר<51>j3<6A><33><EFBFBD><EFBFBD><EFBFBD><EFBFBD>iK8<4B><38><13>IW)+Ov4<76>'E<>W<EFBFBD>Y<EFBFBD>*<2A><>U<EFBFBD><55><EFBFBD>[<5B>a%z"<22><><EFBFBD><EFBFBD>GN<47>n<EFBFBD><6E>1<>8<EFBFBD><38>(<28>V.z<1C>*x<>]<5D>;c29<32><39>py5<11><>0<EFBFBD><30>Ѹ<EFBFBD><D1B8>U<EFBFBD>5<>J<EFBFBD><4A><K<>H<EFBFBD>q<0E><>|eXX<58><0E><>^q<>8<EFBFBD><38>xw
+3<EFBFBD>H<EFBFBD>V<EFBFBD>eV;<19>eG<65>e<EFBFBD>e<EFBFBD><65><EFBFBD>)<29>G#<23>6<><36>.Q<>6<EFBFBD>M<EFBFBD>VZ<]
+t<EFBFBD><EFBFBD>sT<EFBFBD>y:]4<><34>l<EFBFBD>L<EFBFBD>"<22><>t<EFBFBD><74><EFBFBD><EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD>3Y<16>G<EFBFBD>Sʱg<CAB1><67><EFBFBD><EFBFBD>4<EFBFBD>U<EFBFBD><55>k2<6B>ډ<EFBFBD><DA89><EFBFBD>S`<60>ZxG<78>:,<2C>7j<>O<1A><>p<EFBFBD>n<EFBFBD>3×q68Z<38><5A><EFBFBD>3<EFBFBD><33>R<EFBFBD>T;<3B><15>V7<56><0E>Cc<43><63><EFBFBD>W8<57>Ç<EFBFBD><C387>'&G,:?<0E><><EFBFBD>q<EFBFBD><1B>N<EFBFBD>׌<EFBFBD><D78C><EFBFBD><EFBFBD><EFBFBD>eOˋ<><CB8B>E>!΍T<CE8D>'E<>Ѵ.ib<69>S5Ĺh<1C><>},'<27>J~Wsу<><D183><EFBFBD>it]C<>2<EFBFBD><32>ꬸ<EFBFBD>&K<><4B>UU<16>M<EFBFBD><4D><1B>^|W<06><>K<EFBFBD>9]<06>«<EFBFBD><C2AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>h<EFBFBD>O<17><><EFBFBD>N<EFBFBD>*<2A><>d<EFBFBD><64><EFBFBD>jf<6A><66><EFBFBD>t9\L<><4C><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>a<EFBFBD>.<1B>f<EFBFBD><="<22><>֢ce:pv:<3A><><EFBFBD><EFBFBD>'1<><31><EFBFBD><EFBFBD><EFBFBD>\4m<34><6D><EFBFBD>a<EFBFBD><61>v8x<38>p<EFBFBD><70><EFBFBD>*.MC<4D>ô<<3C>I[Q[<5B>Y<EFBFBD><59><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>|ѨyS<79><53><EFBFBD><EFBFBD>SZb<5A>p><3E><0E>j<p<>8ylӆ<6C>(<28><><EFBFBD>qq<71><71><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6,;JƱs<C6B1><73>a<EFBFBD><61>qĴ<71><C4B4><EFBFBD>t5(^'/<07>5<EFBFBD><35>旣<><E697A3>e<EFBFBD>Sȍ<53><C88D>Òw<C392>E<><45><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>+<0F><><EFBFBD><EFBFBD>qς<71>p<EFBFBD>s<EFBFBD><<3C>j<EFBFBD>8<EFBFBD>i<>q8<71><38>%<25>C<EFBFBD>+<2B>=X<><58><<3C><>2b<32>ؖ<>P<EFBFBD><50>n`<60><>l<EFBFBD><1B>^<5E><07><>~j<1E>3^<0E>c8|<07>A}0_ÚF<C39A><46><EFBFBD><EFBFBD>P<EFBFBD>pWx9<78><13><><EFBFBD><EFBFBD>C<EFBFBD>Ay<41>;<3B>Cu<43><75>M3<4D><13><11><>UO<55>q<EFBFBD>^,<2C><>x<EFBFBD>0=t<19>`}8d<><64>LxY<78><59><EFBFBD>l#<23><><EFBFBD>w!n<>`<60><>w<EFBFBD><77><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>K\<5C><>¥<EFBFBD>k<EFBFBD>p<EFBFBD>8?

games/riven_hgr/disk00_files/captured.s

@@ -107,6 +107,76 @@ captured_loop:
 
 done_captured:
 
+	;===================
+	; play sound effect
+	;	if applicable
+
+	;===============================
+	; load sound into language card
+	;===============================
+
+	lda	SOUND_STATUS
+	and	#SOUND_IN_LC
+	beq	do_not_load_audio
+
+	; load sounds into LC
+
+	; read ram, write ram, use $d000 bank1
+	bit	$C08B
+	bit	$C08B
+
+	lda	#<capture_audio
+	sta	ZX0_src
+	lda	#>capture_audio
+	sta	ZX0_src+1
+
+	lda     #$D0    ; decompress to $D000
+
+	jsr     full_decomp
+
+        ; read rom, nowrite, use $d000 bank1
+	bit	$C08A
+
+
+do_not_load_audio:
+
+	; only play sound if language card
+
+        lda     SOUND_STATUS
+        and     #SOUND_IN_LC
+        bne	do_play_audio
+
+	; wait a bit instead
+
+	ldx	#20
+	jsr	wait_50xms
+
+do_play_audio:
+        ; switch in language card
+        ; read/write RAM $d000 bank 1
+
+         bit     $C08B
+         bit     $C08B
+
+        ; call the btc player
+
+	lda	#$00
+	sta	BTC_L
+
+	lda	#$D0
+	sta	BTC_H
+
+	ldx	#45		; length
+
+	jsr	play_audio
+
+	; read ROM/no-write
+
+	bit	$c08A		; restore language card
+
+done_play_audio:
+
+
 	;======================
 	; done, move on to next
 	;======================
@@ -123,6 +193,7 @@ done_captured:
 
 	.include "flip_pages.s"
 	.include "draw_scene.s"
+	.include "../audio.s"
 
 captured_graphics:
 	.include	"graphics_captured/captured_graphics.inc"
@@ -159,3 +230,5 @@ frames_h:
 
 
 
+capture_audio:
+.incbin "audio/capture.btc.zx02"