From 942e670268c4a459644432eb78414ce6fe55155a Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Thu, 20 Jun 2024 12:49:57 -0400 Subject: [PATCH] riven: straighten out the cardinal directions outside on jungle island --- games/riven_hgr/Makefile | 14 +- games/riven_hgr/NOTES | 3 +- games/riven_hgr/disk40_files/Makefile | 79 ++------- .../riven_hgr/disk40_files/disk40_defines.inc | 9 +- games/riven_hgr/disk40_files/disk40_qload.inc | 10 +- .../disk40_files/graphics_outside/Makefile | 25 +++ .../graphics_outside/outside_n.png | Bin 0 -> 4853 bytes .../graphics_outside/outside_s.png | Bin 3910 -> 0 bytes .../graphics_outside/outside_w.png | Bin 4853 -> 3910 bytes games/riven_hgr/disk40_files/level_outside.s | 164 ++++++++++++++++++ .../disk40_files/leveldata_maglev.inc | 62 +++---- games/riven_hgr/title.s | 6 +- 12 files changed, 264 insertions(+), 108 deletions(-) create mode 100644 games/riven_hgr/disk40_files/graphics_outside/Makefile create mode 100644 games/riven_hgr/disk40_files/graphics_outside/outside_n.png delete mode 100644 games/riven_hgr/disk40_files/graphics_outside/outside_s.png create mode 100644 games/riven_hgr/disk40_files/level_outside.s diff --git a/games/riven_hgr/Makefile b/games/riven_hgr/Makefile index 707f667e..2bb163bb 100644 --- a/games/riven_hgr/Makefile +++ b/games/riven_hgr/Makefile @@ -45,14 +45,16 @@ riven_disk39.dsk: QBOOT QLOAD_39 TITLE_39 \ $(DOS33_RAW) riven_disk39.dsk 27 0 disk39_files/MOVIE_MAGLEV_RIDE 0 0 riven_disk40.dsk: QBOOT QLOAD_40 TITLE_40 \ - disk40_files/LEVEL_MAGLEV + disk40_files/LEVEL_MAGLEV \ + disk40_files/LEVEL_OUTSIDE cp $(EMPTY_DISK)/empty.dsk riven_disk40.dsk $(DOS33_RAW) riven_disk40.dsk 0 0 QBOOT 0 1 $(DOS33_RAW) riven_disk40.dsk 0 2 QBOOT 1 1 $(DOS33_RAW) riven_disk40.dsk 0 4 QBOOT 2 1 $(DOS33_RAW) riven_disk40.dsk 1 0 QLOAD_40 0 0 $(DOS33_RAW) riven_disk40.dsk 1 8 TITLE_40 0 0 - $(DOS33_RAW) riven_disk40.dsk 2 0 disk40_files/LEVEL_MAGLEV 0 0 + $(DOS33_RAW) riven_disk40.dsk 2 0 disk40_files/LEVEL_MAGLEV 0 0 + $(DOS33_RAW) riven_disk40.dsk 9 0 disk40_files/LEVEL_OUTSIDE 0 0 riven_disk43.dsk: QBOOT QLOAD_43 TITLE_43 \ disk43_files/LEVEL_CART @@ -181,6 +183,11 @@ title_43.o: title.s zp.inc hardware.inc \ #### +disk01_files/LEVEL_ARRIVAL: + cd disk01_files && make + +#### + disk39_files/LEVEL_OUTSIDE: cd disk39_files && make @@ -204,6 +211,9 @@ disk39_files/MOVIE_MAGLEV_RIDE: disk40_files/LEVEL_MAGLEV: cd disk40_files && make +disk40_files/LEVEL_OUTSIDE: + cd disk40_files && make + #### disk43_files/LEVEL_CART: diff --git a/games/riven_hgr/NOTES b/games/riven_hgr/NOTES index a9dd1357..dcf31772 100644 --- a/games/riven_hgr/NOTES +++ b/games/riven_hgr/NOTES @@ -59,7 +59,8 @@ Disk40 Map (disk has 35 tracks, each 4k in size) T 0 = Qboot T 1 = QLOAD 1762 bytes 8S = 0T8S (2048) 300B free T 1.5 = TITLE 1531 bytes 8S = 0T8S (2048) 500B free -T 2 = STATION 26736 bytes 112S = 7T0S (28672) 2k free +T 2 = MAGLEV 15200 bytes 112S = 7T0S (28672) 13k free +T 9 = OUTSIDE T 25 = MOVIE_FLIP 7680 bytes 32S = 2T0S (8192) 500B free T 27 = MOVIE_MAG 32275 bytes 128S = 8T0S (32768)500B free diff --git a/games/riven_hgr/disk40_files/Makefile b/games/riven_hgr/disk40_files/Makefile index e539580a..7ea9f810 100644 --- a/games/riven_hgr/disk40_files/Makefile +++ b/games/riven_hgr/disk40_files/Makefile @@ -3,7 +3,7 @@ include ../../../Makefile.inc LINKER_SCRIPTS = ../../../linker_scripts/ -all: LEVEL_MAGLEV +all: LEVEL_MAGLEV LEVEL_OUTSIDE #### @@ -17,53 +17,18 @@ level_maglev.o: level_maglev.s \ graphics_maglev/maglev_graphics.inc ca65 -o level_maglev.o level_maglev.s -l level_maglev.lst + #### -LEVEL_PROJECTOR: level_projector.o - ld65 -o LEVEL_PROJECTOR level_projector.o -C $(LINKER_SCRIPTS)/apple2_4000.inc +LEVEL_OUTSIDE: level_outside.o + ld65 -o LEVEL_OUTSIDE level_outside.o -C $(LINKER_SCRIPTS)/apple2_4000.inc -level_projector.o: level_projector.s \ +level_outside.o: level_outside.s \ ../zp.inc ../hardware.inc ../qload.inc \ ../common_defines.inc disk40_defines.inc \ - leveldata_projector.inc \ - graphics_projector/projector_graphics.inc - ca65 -o level_projector.o level_projector.s -l level_projector.lst - -#### - -LEVEL_MAGSTEPS: level_magsteps.o - ld65 -o LEVEL_MAGSTEPS level_magsteps.o -C $(LINKER_SCRIPTS)/apple2_4000.inc - -level_magsteps.o: level_magsteps.s \ - ../zp.inc ../hardware.inc ../qload.inc \ - ../common_defines.inc disk40_defines.inc \ - leveldata_magsteps.inc \ - graphics_magsteps/magsteps_graphics.inc - ca65 -o level_magsteps.o level_magsteps.s -l level_magsteps.lst - -#### - -MOVIE_MAGLEV_FLIP: movie_maglev_flip.o - ld65 -o MOVIE_MAGLEV_FLIP movie_maglev_flip.o -C $(LINKER_SCRIPTS)/apple2_4000.inc - -movie_maglev_flip.o: movie_maglev_flip.s \ - ../zp.inc ../hardware.inc ../qload.inc \ - ../common_defines.inc disk40_defines.inc \ - movie_maglev_flip/movie_maglev_flip.inc - ca65 -o movie_maglev_flip.o movie_maglev_flip.s -l movie_maglev_flip.lst - -#### - -MOVIE_MAGLEV_RIDE: movie_maglev_ride.o - ld65 -o MOVIE_MAGLEV_RIDE movie_maglev_ride.o -C $(LINKER_SCRIPTS)/apple2_4000.inc - -movie_maglev_ride.o: movie_maglev_ride.s \ - ../zp.inc ../hardware.inc ../qload.inc \ - ../common_defines.inc disk40_defines.inc \ - end_message/end_message.gr.zx02 \ - movie_maglev_ride/movie_maglev_ride.inc - ca65 -o movie_maglev_ride.o movie_maglev_ride.s -l movie_maglev_ride.lst - + leveldata_outside.inc \ + graphics_outside/outside_graphics.inc + ca65 -o level_outside.o level_outside.s -l level_outside.lst #### @@ -71,35 +36,21 @@ movie_maglev_ride.o: movie_maglev_ride.s \ graphics_maglev/maglev_graphics.inc: cd graphics_maglev && make -graphics_magsteps/magsteps_graphics.inc: - cd graphics_magsteps && make - -graphics_projector/projector_graphics.inc: - cd graphics_projector && make - -movie_maglev_flip/movie_maglev_flip.inc: - cd movie_maglev_flip && make - -movie_maglev_ride/movie_maglev_ride.inc: - cd movie_maglev_ride && make - +graphics_outside/outside_graphics.inc: + cd graphics_outside && make #### clean: rm -f *~ *.o *.lst \ - LEVEL_PROJECTOR LEVEL_MAGSTEPS LEVEL_MAGLEV LEVEL_MAGLEV \ - MOVIE_MAGLEV_FLIP MOVIE_MAGLEV_RIDE + LEVEL_MAGLEV LEVEL_OUTSIDE + #### distclean: rm -f *~ *.o *.lst \ - LEVEL_PROJECTOR LEVEL_MAGSTEPS LEVEL_MAGLEV LEVEL_MAGLEV \ - MOVIE_MAGLEV_FLIP MOVIE_MAGLEV_RIDE + LEVEL_MAGLEV LEVEL_OUTSIDE cd graphics_maglev && make clean -# cd graphics_projector && make clean -# cd graphics_magsteps && make clean -# cd graphics_maglev && make clean -# cd movie_maglev_flip && make clean -# cd movie_maglev_ride && make clean + cd graphics_outside && make clean + diff --git a/games/riven_hgr/disk40_files/disk40_defines.inc b/games/riven_hgr/disk40_files/disk40_defines.inc index db982072..d0f48a7a 100644 --- a/games/riven_hgr/disk40_files/disk40_defines.inc +++ b/games/riven_hgr/disk40_files/disk40_defines.inc @@ -1,7 +1,8 @@ LOAD_TITLE = 0 LOAD_MAGLEV = 1 -LOAD_MOVIE1 = 2 -LOAD_MOVIE2 = 3 +LOAD_OUTSIDE = 2 +LOAD_MOVIE1 = 3 +LOAD_MOVIE2 = 4 ;================================ ; Level definitions @@ -12,3 +13,7 @@ RIVEN_LOOKIN = 0 RIVEN_INSEAT = 1 RIVEN_READYTOGO = 2 +; Outside + +RIVEN_OUTSIDE = 0 + diff --git a/games/riven_hgr/disk40_files/disk40_qload.inc b/games/riven_hgr/disk40_files/disk40_qload.inc index bddbf2b0..1ce74f79 100644 --- a/games/riven_hgr/disk40_files/disk40_qload.inc +++ b/games/riven_hgr/disk40_files/disk40_qload.inc @@ -1,14 +1,14 @@ which_disk_array: - .byte 1,1,1,1 ; TITLE, MAGLEV + .byte 1,1,1,1 ; TITLE, MAGLEV, OUTSIDE load_address_array: - .byte $40,$40,$40,$40 ; TITLE, MAGLEV + .byte $40,$40,$40,$40 ; TITLE, MAGLEV, OUTSIDE track_array: - .byte 1, 2, 9,17 ; TITLE, MAGLEV + .byte 1, 2, 9,17 ; TITLE, MAGLEV, OUTSIDE sector_array: - .byte 8, 0, 0, 0 ; TITLE, MAGLEV + .byte 8, 0, 0, 0 ; TITLE, MAGLEV, OUTSIDE length_array: - .byte 16, 96,123, 64 ; TITLE, MAGLEV + .byte 16, 96,96, 64 ; TITLE, MAGLEV, OUTSIDE diff --git a/games/riven_hgr/disk40_files/graphics_outside/Makefile b/games/riven_hgr/disk40_files/graphics_outside/Makefile new file mode 100644 index 00000000..ad6714b3 --- /dev/null +++ b/games/riven_hgr/disk40_files/graphics_outside/Makefile @@ -0,0 +1,25 @@ +include ../../../../Makefile.inc + +ZX02 = ~/research/6502_compression/zx02.git/build/zx02 -f +PNG_TO_HGR = ../../../../utils/hgr-utils/png2hgr + +all: outside_graphics.inc + +outside_graphics.inc: \ + outside_w.hgr.zx02 outside_n.hgr.zx02 + echo "outside_w_zx02: .incbin \"outside_w.hgr.zx02\"" > outside_graphics.inc + echo "outside_n_zx02: .incbin \"outside_n.hgr.zx02\"" >> outside_graphics.inc + +#### + +%.hgr: %.png + $(PNG_TO_HGR) $< > $@ + +%.hgr.zx02: %.hgr + $(ZX02) -f $< $@ + +#### + +clean: + rm -f *~ *.o *.lst *.zx02 *.hgr outside_graphics.inc + diff --git a/games/riven_hgr/disk40_files/graphics_outside/outside_n.png b/games/riven_hgr/disk40_files/graphics_outside/outside_n.png new file mode 100644 index 0000000000000000000000000000000000000000..073cf85648f52469a70af767e39299066db6a8eb GIT binary patch literal 4853 zcmVEX>4Tx04R}tkv&MmKpe$iQ;Q-M2MdaHh){L0i;6hbDionYsTEpvFuC*#nlvOS zE{=k0!NHHks)LKOt`4q(Aou~|?BJy6A|?JWDYS_3;J6>}?mh0_0Yam~RI@7vsG4P@ z6LB${TNS%s5kMG&7{R#2OnokuO2Tt|-NVP%yC~1{KKJM7Q}QMQd?Im->4rtTK|Hf* z>74h8L#!kz#OK5l23?T&k?XR{Z=8z`3p_JqWYY7*A!4!E!Ey()lA#h$6Gs$PqkJLj zvch?bvs$UK);;+PgL!Rbnd>yeNMI35NI`^*8p^1^LX=jG6ccIMk9+us9e;{kGP%lN z5bWxZDATo^;8O9LY~pC=`JAGy0|+FmMa>uDQLn_Hp_EWT>m;4RCM> zj1?(+-Q(RooxS~grq$mM-I;RHL8|yS0000IP)t-s0000R%K_vx{{R2~&07H*n*NcW zLm2=7010qNS#tmY7)$^F7<2)js6Ze9000McNliru=mr!79V;>+JEs5u02y>eSad^g zZEa<4bO1wgWnpw>WFU8GbZ8()Nlj2!fese{01&}RL_t(|+U;CzmK(bYWKV2?EwKNs zTw4-QAf)b@=G#+P@5S0BkpRurA_6H!c%*S`lZeXN4t$P8p z;%*AB`tXa49~-FO_rnM$ka4w#L6F#k*^rSnnu@-R>#p_h7H9k}el228t~cGrF$ezz z4{rWt#`l)pTySHwgJE9R0lu=lB8y`(_|7utGAG}^{V>Tnz;Tri>*2-mo>)Uz$@$%v zA00!cHPXW>tG)XBT?K3~Xa0`td$y5^5yDq|UCH?&^SO$GlSuac7QYZ&srCMkDfle8 zu33Fvr>cOAPjAA{3k+V@ld*%oV^c7u<5i!(dg09Xi_0>7uA*Q5xn2AItj0%VJx>&P zSrHq|TC>axI?~^f8Si0y`g^@`^NCD61eeE0Gls~%?!WYzg?V_5aYf zNmnaX2Ak#aJEozEVME55qn+8bK}KeI+l?=am;2Tn?+KGQk(ujGi!&`Sv^X>V$Y2df ze01CH-(2R;ErH7+xP@_?3oG07akXSBpWJ*sZJ5!B-;4i|!e2S~kqa_AOs)yT|KnBdo@izWjqnt^jZf2*Vo*7Q zmf;)mw}k_gF3e5hBP$bgc624pi#QaVR*6nI|2n%frM($ zyQeNPXXG(&!)bqSLO?l56<3i#9E!|Sm4`}Ul^8^4qkiXW1%Po~;}UquAV^5C`4k7~>eocuXzH@v-Gyc;s~T^A1-f2oq<{d~?7n zLLXCKdC1R1bpd4-2G(D4GQP>sg#BHD+>$9I)y}APaV;VvG`YNVRq<*um>>-a#Kgc~ z#uZo4F7x8XnU#LxNIn^7EHk*Yj-@sC>|f@LBxFpPg=gq%2!PC*nrlRl1=vCdrvi8B z3^&2#!Qb)*(}XjOMJyobIm3kc0;R`Wx|7V12CpdMak&hVOa@-pO_MZ!KEV`UZ>E?KDZGJ8z1J1}Vt zigI#BG+6{!C>WF9LokvQ9ssMP+51sVgsKuR&M*{Q0v3O*WW(KpQ~6MGl0?K577MEM$jjm-n>IDsl&7Ru_IOE$%=oA+=m4mFu-J&w=ekq*chALxN+^qwbNhQg6GP_FQ-__czt6AtEHC$@B&) znp5R1XTBi-k1zmzlUlhqgAm4^_+Wxf=$O{?-L+ZZj0{5$Otru%CzFf2PsqfMhm^NZ zFZ(8Bgi`ODH1%6y1=O~WoH%0^mveza+jV?&%XRz1MFw}%}mZo(bUEU5mZ)}>RX-S>+^qPz7?Q9U5gH&T$1+9Qw! z7bq6Y(_qKVGQC~}P}befK)ur_p5Xet+#+1E3rrvWR z%6m@l-f~E^x;;bFgd!QN!Pljps$R{w*Qz_blVj5L?wK88=(Dl{K<(eGT&l>p&juiT zBDuP>b7pnIs8=LCeKGs@U@4=_e`;lr=m@o(C1 zChI{y)>AEtv4B!e{l1}bXs=Pe>}_Vj{FY_&pw=08-xP+Vvs)%_CU>+nn=&yP+@?*Dti-^p*x*6U%;iYxhrpCM zb>sx!)QtDACu(@iUQH2VXpUyN(5-Vz(Rd?Ur|;?lE*%hc&2s09Wq@TxRoEzUvKU)< znJXq~172#|!Tj*o0^Jt4406-}P=}$tx6>M27`tS+ah|J|sTKs&3J#XYWYEB)+zE8n zVjwhY;9^1I#!4rrwR}H{=2Vx33NK9jQce-t<0ehwedkQk%2ex^X zZT0ae$9A$XOgj9o!-l*l-0sR1ne1tVQZ4|0c6x#Df_sn zmi;!)aA|ImHe1>wLk%*nb&8fOouKP)YE=}f?aX>kY7^KqKt=x_ST=8 z%*p~ryx(3fc9@-fQnP0T8Ju`+0cMxJagv3zmJv9Ma_Yj1$!KKrqS>A;2FtOP@;%>t z;tXh7d8$|WI3#?mr#|rH*tV^+79tVU8RM*1>7DBYpH(GS_Qty)cxahgqfD%bW+Dr; zvWeD0tdbr$d2M!0w{<9`8l`9m|L7r-(mk;S2djJ6sz+NuNu|F^4=b;^PF||z)HM`g zKQQ_wei1rJ6Z3ZgNzP=7YJoyYl-N3QZM=qhH8>EI5xBTi@6^BiBrVV;U~*n5$XmQ9`G-t&eV;IY_E&cj7Rqd>OSl-#0t;0`x zWY{aXoj2L~9QHOmcS?L7D= zJyN6`U1oOrKuQL%CfP-9D|#CzbeN|e8vm3C7A~dPcAll9b(!YMUVKM1dfyVdR6pv$ zJM29Uh;HgEZJ-=C^C-mL)>%f~G_q{Ku!RNIFczOs5`p7#P;_+Lc=9M8<;^`c8Jq-% zWv&V&SPk-sAg4GR`=xzf?=8Z)#6A#(@Abrlb5_#F zjKpbHJV)t?at_^D1`Ni1lciGY-T;mPN&c7_-RY;rKpvMvpr-_B{H1VSX$;_ zwGXy|QjdZA^z9VSd(W{4hqsX^|NPo?^AlK4Lf#zwSsfE$Z#m*{ukeoqQm`eI| zDsBX}9G&RQ&NI$~dc~QF%&m92%~TMlcW2+-YT-BWOsi-fKIKS%$iORSc68pH<*psH zyy3!yJ)YicIm6rc9vIudd`g4n3a_q?VslCnKJACTJmK`3GjjRli{@|xH4$~gmp`;K z)U=QUi=vnBr?!huI({_vnn<9gFHL{-O6$oMh5>5FVfNJ!FhIy=fV8 zVk62c&c8&a?w)MXrDi)D*3gq;p~4TM{TX5Uxo_H`N#};kT6+)uk9O03jV7aK*@$-i z(6PWVgoZQJ^=QE-KA@$!S+!h}C-}66KSw4qcwBr_W>4v_**>4;!8>8Ynm!-Sd9*N; zdpqH*ULWigRvp+!);UNIQFXs{;X`!@i}$UrvD6*4iw<>!<$hekpflml%H;0PoWrKx zN3}jAD@&7JSQ|r61`GMkkshy%v}%riSFua zoHw(lTq5^-xzg5b-=qUtpUwHFOKd=R4&n8qV+p<0thcyHf2ora9Q0f96tQ7Q#3CJ^8;k)95<;xa^@kRe2}|JrWa^$c}IlXsE!F*oyD zJJTo+rN3cj=v|HJ(azBGW_t0E-GLyBQNmk|`AVfj*R_=Gyfj{9{(Qy9{(Qy b_mBSoe7z-0W;N}k00000NkvXXu0mjf+2D5r literal 0 HcmV?d00001 diff --git a/games/riven_hgr/disk40_files/graphics_outside/outside_s.png b/games/riven_hgr/disk40_files/graphics_outside/outside_s.png deleted file mode 100644 index aa4e63a554c2b11c6546aec3c6440195dcd596c7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 3910 zcmV-M54rG(P)EX>4Tx04R}tkv&MmKpe$iQ;Q-M2MdaHh){L0i;6hbDionYsTEpvFuC*#nlvOS zE{=k0!NHHks)LKOt`4q(Aou~|?BJy6A|?JWDYS_3;J6>}?mh0_0Yam~RI@7vsG4P@ z6LB${TNS%s5kMG&7{R#2OnokuO2Tt|-NVP%yC~1{KKJM7Q}QMQd?Im->4rtTK|Hf* z>74h8L#!kz#OK5l23?T&k?XR{Z=8z`3p_JqWYY7*A!4!E!Ey()lA#h$6Gs$PqkJLj zvch?bvs$UK);;+PgL!Rbnd>yeNMI35NI`^*8p^1^LX=jG6ccIMk9+us9e;{kGP%lN z5bWxZDATo^;8O9LY~pC=`JAGy0|+FmMa>uDQLn_Hp_EWT>m;4RCM> zj1?(+-Q(RooxS~grq$mM-I;RHL8|yS0000IP)t-s0000R%K_vx{{R2~&07H*n*NcW zLm2=7010qNS#tmY7)$^F7<2)js6Ze9000McNliru=mr!7CIU<$O!EK$02y>eSad^g zZEa<4bO1wgWnpw>WFU8GbZ8()Nlj2!fese{01XmJL_t(|+U;Fib|X6otUa-X+Cuif zl{@a15Fn7`S3d5EeKJX$#BQSkiUMgsTz3Iz@6tYSKMwStkI&FY+vodl#C(?iT>9Ix zy2Cv0Tep8t!|PJ7*CrpIuLmGB7ejg6uGi*tHQpe>Jkw9czi_5$rhPoy>jpl7Vh;}wT1-AKLh^7v|8@&zTy@hcy3 zBZE#h_%&aW3pwUh&M-q4KXkpPh?2V*JtE*<;k%e&=~8U3eMcGMw$93%SjL&zp?m;F zY7lj=8zQ_BB-drheO>xn@%8U-<-SII@}{rULk__nlRajr*F5+-Eq5Z6JI280CU)%F&o^+y z#>Ty`oLHva&_ZBKSruj&B46P|-jQ5-4qrQ0vzUP*M`-c$dzk5dOhs$6%>7C(8gj}B zKJ!FJ@{e+gH3%*xeU+r4r&*{YBE%V?eA}DaJJh_5@t&ElQ@7Df;F8$GG|oiW+k9rR z14U4@2CHSLk5$()>}NkPMVA$3CU?3sQwzvH^1n8#QP37lovSx#mdL0=z1^45VEk~6oN zi%P?;FxAfk6InizQH{l_@MZpM>jNr_BlWS2k6#wC%jD8~!DEo3DSwm=5slekB!;Wr zbv*oGI4Nwv_v0|fs_^D~%5t)*sfZ8=xh3N;NYlDCDyB$ZR8!`Wg_Lk^A*PXrj``C( zHe-fhAe&xh06e%O)yuC|&DR%bkQH@p>5S**ZZ1$k4M?x5|i! z$H&Mj$<;A6jtjsMAJf`M^z1i-$+kYY(a{2*=3VC%3bTH?vW09QB;LMi65yt6SZacLL`uU~*xY zRcNO5CZhmvl)j5$eTnH=eMovY;i_4hm_JBp2}&*m%^5L}jMH=!S()tCepQC)f(V^N zy1@%ywoCIQX_3a{CXSv;SBz(Vxym+JRMuI>LJ~^~%-GJ>Th7Eq%V}gmq1OE^Z#(^N zhnP7_A=U6Q2~?W{Lc_57Ln0>=3K8 zZ7p2}*7%~mgQPY5NqJ_9GgOVUPhIE?Nzvw7%a}}aSJj|{?G0p|1N-mygRiZdFw`oD zkzv8TaLBS>jRGsBINEfVi$O?>fnAirJg)S)CQAOc#*_%bq2r01OzKn_$&2S%pF33s zomS^-ZB>f#zQ}vrjcfS{OS%ax<-=BQS`hgeP*t;#m{CPsg~p$j@3FPs(6m;Gtxbe+$lzaDqk&{Fc)~C z6IWN=B%}Yupv-(fYYS9bbk#x6r2BqeN%rb7k)&TWb&?P(>}TBR-J2-U1jT83GJ5z2 z0{vVHWYK2EiqB12Z)+z>2@WzP@4J|3u}`C|?XvVhw)NO*9Bqy-*$AVZ@ic5WZvy-!UOayuO@yztx$Kaa14KL3HS{Q@=uyJ&FW8opeAW!!7@gNiuWnuM%~T0% zK9eJdRYZz~qT57Z4I><@WO{`kZNJ6oaV`2qS+Dr4t$P5l;WPxwG5Z=>6G>cS#^$aM z7M9CO+eJBy3E;k7uw9i>BCkfFS1U(fGfi`>W|u*4Z$QVJz7~X8bc$clRxZ;DyKFp%%pqeKGL1kHwu%JOz+xQrtkmIof5>E zGXY3O=P?H8W4JXVZ+%pzf7MI<_KVW4!?(a*4aEe_{wlN2z*)x4f|#k9RvnCOP{&Tq zvYY89dGiUp0yB7Xex{HbEZYU0WlVReRkwpuXpgXvcghr=@!$$EX8TE;#k2d@52%hJ54l`{Z*3E`@bTdoff#fZB4x|yqeE0L|9T)>JuE%68qr(QE&*pSp zmrYY|8l0Zuj~ktz30|Be?WM}t0VgAceMfqL4h^OI38H1jwC9O_x}bYe7G3aPnc|Vx z8{fwaOJ#h{*|hU;B5qf1zD!JsKhoCR;yzo&qy^FG;2)R<_pj9jV`9d~CDYqI<1%Z+ zATk>4_PW_P6Z%iTWtow;#9C%l3tMF7ouTL9`BU5~`)=z5dWZm@K=}E34QT><1>6 zU0kkZbD4w(If^l^TVSsJt(}v)SIM;4IOd>JUqV51^)KrN+zDQC+Al7&Xt;BW=$60= zkS~;!jO)#gBBwnV6+&3AepfC+^~4%08Q+zc?pdKBz{F&(u&L# z3f{sD@z@drC#;5VUoH$L!z^w-gKIyv^tEV|Z7GnoQx1@0=U3wOejwy<_9BZGQ8lk~ z-oC>py{271^cTy7pkTd#c7wDuizxxX?w4SOs5XW)S*ip zNfV{KQhYjS8DGh`sUF^GRE0cz33+Qd>wap$!jDzM$I%WjF&Luggh6AmytL2 zo|O4vsvSn0IW|m|hlYISW$AEcp3n>&HO(G(G4?Eh&AR8T)lN(^us<$V>MhTk}1MnLbvaWln0C z86!SD$kgw0-Xx~t%$q2Q9KK?`oEC$NA_CiMFr7^|ACR9gbAT5{%s7MPCv#G_BHYe2 zlpL<(3=<1E$WVBmnLHC#>#ol2oTl#J_av*OEtAvdY)c&2820>Xp@y>DiUN{ zb3cih%sK`#J_XbjcZM2g88Mi_x*SNFu7p=J?xXOEK1 zpYHXis}oklP8d&d#SSlWSW7ic?-Vm#2sf1X#4`KJQdu70`U+K?kz#zPNZ4UbV%AE| zU9_hM8A68Qs44mpBKWq*u8yqzT>KsYy7`DzJzdSpq;-;gWqGFZPB7!l0n;7`lSEdn zI>XE&cgM4gkd*-|-1teE8b2{Z`P1r!uxDcR^KvHf&NYU@*x6h!?U*nte}X^xDe@VA zzVEJ)vddAjXEl2cY>!P;S3)U0_$n#S;HB2+CrQ#c6KASqk)LEf=htaB3Gp$LUzR_Y z5!jqK7(FQl874K-L4{yjr;NF&{O=&Pndz{-l3dNt8~V)O?eF$?`@8+!{>Qif06BM0 U_K?+_HUIzs07*qoM6N<$fCB`1G@c{-V0!$%H^ON@hCw~nRNkl)zm+@g zmJlG2d(8Uy=(s=2gxxLl-}Ey{CwhyMGxyBH&)(yO?3=Qf#k%M;YR_&dQru#+lind;msj z5OuE`BD@hK*Ja6lUHV(`_3v-xzD9iVrmxgP4#6IiJ!YuaM00h)Abu&LGa<#7L6|`c zME_p&S>%`Ej3VOkKGmbdTZY4%s5TiNu(4vo4T{K9r0xqXcOsNK#=z$$c7N>J&o^+y z#>Ty`oLHva&_ZBKSruj&B46P|-jQ5-4qrQ0vzUP*M`-c$dzk5dOhs$6%>7C(8gj}B zKJ!FJ@{e+gH3%*xeU+r4r&*{YBE%V?eA}DaJJh_5@t&ElQ@7Df;F8$GG|oiW+k9rR z14U4@2CHSLkAGFyGVEtRFh!RYW+r#KGgAx5cfPs3*+s>;PFFT1K3N|0 z%b?~Y>2w&~o0y{pcWg?7uEz%yZ&jS-#K9W(5#j5aS{%h+4DvKlav5b#j7O~6Z(tE*UkfJGnlnoJ$*vZ|?w5D2*?<1k3mx-}}MNMBS_=8=VzaBd-{k%o@> z(>yj~hF~C@US^FnSwm!Jg&?+bx1i5QjS0{2*=3 zVC%3bTH?vW09QB;LMi65yt6SZacLL`u zU~*xYRcNO5CZhmvl)j5$eTnH=eMovY;i_4hm_JBp2}&*m%^5L}jMH=!S()tCepQC) zf(V^Ny1@%ywtq|WBx#Yx_|$e!0pvSX9cnH&Fx?8b2&vscl*aHc@vdz9?xL(lU{W4xDo^ zI$auj%s6`Ry_?NKqZ4PdldKTKq&t9(1i`?aqpmjsN`G%DD5;UbIQc!a_}tVvpTmr* zGiz7M+HZ5SW#?M`l_5s0Utk7bHw|D^pf2KjM#H@XmKKvJ+Ab9Zl&+OssZmBcP|UOn z>UqQPFk9L7tmRh-Os@yUUEa_0ke_tOTxt5PndchS%wh&#$BgxvW*Zt+0y7g|AZC@J zm?rEHtADg@EnNoI_@cdoq&56Wd1i_;RE@JwUFZx+(dJsqm`rn5)u4mz4P>1I`|tOI zudSOf)GCOPVZps{$g*FJ0xP9B+H{wTK}d^%U6jE*uJpMkO8&OSlnBA0QouY zi|1LNJ5>gqR_AMNRf_Sx$a~z4YxxOHUleN@5`Rx*rZsY^@AdCA(xFSdgK@&T)4^MR zd-_Ue&|vsXt0Ps~s>S%ax<-=BQS`hgeP*t;#m{CPsg~p$j@3FPs(6m;Gtxbe+$lza zDqk&{Fc)~C6IWN=B%}Yupv-(fYYS9bbk#x6r2BqeN%rb7k)&TWb&?P(>}TBR-J2-U z1b@Y8dNO+W2LkYywzooMcIP=6k0Hk}fF5H%bv+h5C6gYIYW&4p z>#B2K7;!zx_5+oXzD@Qxy8h}v(mPFrueG`Cke35QJJmJxD5dC8!tXEGmXv(f4Bi-> z*GaE#UGL3Q32Q!+BZpN)iiM)vL|_dg9IIq{g&%Fd#p!V^`bAl<_^hpa0I=aS1b@mg z`x;pjNnB&b=B^JGmdi@pMLCQK;J#k4U6oQIuSTI)D@R{5O>?YfmqBlDK*yWD7KB-J zi&fJTF&S%NnpprZJAP@Gq3T{wYiFu$3cnVAdv2D>GU6<=DigSBX|2jn1*#0O*I1^_ z=JjlatAnXyYoEVFU;R)ggzM&>$clRxZ;DyKFp%%pqeKGL1kHwu%J zOz+xQrtkmIof5>EGXY3O=P?H8W4JXVZ+%pzf7MI<_KVW4!?(a*4aEe_{wlN2z*)x4 zf|#k9RvnCOP{&TqvYY89dGiUp0yB7Xex{HbEZYU0WlVReRkwpuXpgXvcYn$hp7G!c zF=qQooW{13(b9V?pK9D%{*N~M?FgRdb`CRbAJ)x=cXTsL;DO{VcMhZx#eDbk=^YpY zFs{dBEu+H*pwH%XU6)N$ZyKDQ;*T4hp9x-^B<-cj*a0Uag?&eQfDR3%`w60D#0z*4*MgTg9XW(dpnHm#>XYo+dbnlYs4Tj8tnGE**FvWPrqfEk+;NJW>gDXWai`a+mbTf^{ksxI(nOs zrh6y9R8mTb8Myc|E9Qr3dyOrwb(tf6gQDa4Rm;%DT=tokbh!S6q)|QHWSIH*m^2r!PaBIPQ+%@4PipIA;GjSZjZ9>g zmVdwskS~;!jO)#gBBwnV6+&3AepfC+^~4%08Q+zc?pdKBz{F&(u&L#3f{sD@z@drC#;5VUoH$L!z^w-gKIyv^tEV|Z7GnoQx1@0 z=U3wOejwy<_9BZGQ8lk~-oC>py{27LvjMKZ?OQ@!XW_k109cgbrc zIY!MiEsU2i<9~!a7l)UTH};;C`C+OZMw~e|OqPd+eCB28aAuy+3>-Dh9(|K;`+Ipa zZSQlE-?uKR8;fGb?Rw&_XD#z7R^B6*r?2_`B&L4lOBx?tGi7W75nA-boD(~97Af{b z0GVg*4^CsuWSFrJo4WaJq^qdj_c?RzMfLCHguxhTpnpKjh;RPu(0vjuDSez7`*k#ol2oTl#J_av* zOEtAvdY)c&2820>Xp@y>DiUN{b3cih%sK`#K7R$&6?cXjXBjb=!MYqsny~JuDo;L1 zZ=C9C#O}i~#rR1K4xwfdcV~~1%%AS{r>hfI#7-Dbam5ZVa#%|>P45&lT?jXn_rx;$ z%2HV#;Q9(xoRMODs7TmhO=8wc&Rw*p2N^V>dpV)gTK zCh^WShQip{TrcgIFe`t8Klv&08GpX-u933KQL<+>dk$=mO;lGxDLwcqDbL`g*61fm z(l`@ms$`L$WIpHDX*UV+F_T}GKbH~MoI*GlJt+nmCN9D<$ rT+PoL`pn<$@Ah~5yZzn%$G86gId@O?kky5NFr<3;qCw~yZNkl`gfi1BAtz26Y zP#~o4ndHYi=f%k+GakEJDwUx4kco(x#zQ|}!uUt$|D^WQ=e6>E&F71nhmLFD&-k0~ zHRf~UdNl8>tahL8HAU<#BKE59>-PJ_GeUp*;JAe9XLd4%VYk=xr@ugq+P={-qkqq| zMfvmp`2PFK&vc1e`06}9@0oCa{{=K2XOj?={WhPmuwC{CAhOKIcg=2Kq&uy90kh(6 z3a|R`i;N!|sNeU)2q%znwTD5F*n`=Sku{o%zKrXx_3svE{4RbiVo$C&-NrEo{{;_j z{$vb-XTV}COE&NAmRC*QyQFv&T9{*LT>wvmbv!dHA<$@wAkxr&05NcQ~}zYtuh_5P13_$;}u zS$$ros(_47Z^F+D3|`lhv4g&2Q!u9ERiD3l;mr4o%QAhgqF?^GUHks5#(zg-Jx>&P zSrHq|TC>axI?~^f8Si0y`g^@`^NCD61eeE0Gls~%?!7--%_Ip9w=^GjxTM>FM`7yB z?zYACSsIIOqe0FHxaS}-%bBK3ySJ7EjHF+}3N`2eGHD%>0>-guA%CzsSTbx0_^|c= z(6>ofD^&)YG^)*SB%lQ@x?>rRU^Eikk=Gyce6 z4M==++wR|7=FcsG%OSXhahwY)+w^j=!04zbkpq3f5@kby&hf6~39DvT#D} zz3Wa2QM;!uGH2v5Z^LPSZ$dyhNflR-K^%(AQmX$skBb zu=|`CEIU6pq0mGc4_;d}+hX2AF%gJ7Armw2$o4=JEPpAjlsU6+l30CYl?Du!FHYLm zU3caXGlUaM&t%Po-heHW+E`#Nag^JH;$DJ0IW`#M7|3``Ey?k*boKKNS0xA& zXU=?cz$-!@Q(t+=&qQ?rWflh3Uve_O$QH^Jn=-|`02gfomqEFkDP!-V+)rNtSxjl4AR(t1*gFv)Ev3+%B$jdLq! z)RB>7w=vHW$bbdjEm#|c24`p^d0ZtpqrjQ6@_$RjO+FfkGuF;)UMpNFI$)YAuW*Zs z16x{prgae+%cZA04q+4}bVY^)>`Wx|7V12CpdMak&hVOa@-pO_MZ!KEV`UZ>E?KDZ zGJ8z1J1}VtigI#BG+6{!C>WF9LokvQ9ssMP+51sVgsKuR&M*{Q0v3O*WW(KpQ~6MG zTSsf^JY0&y)>fPXLravpo5!9(auoyOenyla0bB1ujZshjWaAy(Dcs}XwxoEn7&Dd z+EGA;OEQ;}d6EZY_L44m174vwX^pOBI)CZ~4TsI1+Xpz~+ezpY7dDlHtjFD=GVFdS zoZ*Oj7na4BEccur$eF~dKF6J_6-2cc0>@&=$hMof z<`}k2Cg=H6i%tYrvUA4%x^f?-O~zE!sO2GZmNN%UIepdGeUib%*LnST<< z)EQoop;Kuevd6DEBM^BD#@GRj>70f$2^daQuIigo#gtt`f@9C4?vb%lZ@ZiJTzD?` zH`S{lA|#~A^ad)LQ{^pZz99gQFaUj%TDdoa5XPSPV1iBPnAY>%wOQbd3_}l0wZJJS zlZ(4g$i$9^l($bW`zBa+jV?&%XRz1MFw}%}mZo(bUEU5mZ)}>RX-S>+^qPz7? zQ9U5gH&T$1+9Qw!7bq6Y(_qKVGQC~}P}befK)ur>e;AeF_et1tJGhUBd(1x$6`uqWR=|ez|TWisc6I*n@^vWa;vnwc5N9P{9T4iWH>f2g#nvA5~EPwZ!O89@W6(=;p zE8{79XmqhNTmMY)Z`yAr>p?!&Q!R?IfKpEVzM*kwuTj42ZDzszmSywgF{9b`wE_Kr z=0!#3R_5B5H1pSHZIX%=A>4qDG!|U3(_N#L;zu>pw=08-xP+Vvs)%_CU>+nn=&yP+@?*D zti-^p*x*6U%;iYxhrpCMb>sx!)QtDACu(@iUQH2VXpUyN(5-Vz(Rd?Ur|;?lE*%hc z&2s09Wq@TxRoEzUvKU)dETo}7#xN)AV zmZ=s5(+Uoj$YjvKqudE})?y$uYv5u*;>JoRr?q@Pisn?8g$gfB{8CO4+T$io;(g~# z(aKconB?K3_u;hxqa3n9yKVLHDCGbO;vvhNm(Dd@SPpp#JnOTZu4j_5U7g;`r#@f?;ct@_zwj)LJR~xTu!>HqLNqZjv@z+9N{^GOl%smMop1>u+jR6sqmadQNH+ zRI}Y+7vF^JLW}0zB&7p6^*C%19AA-q4T8hlKXlpPJ0d0!F;wUM_Z+oqSTWXMY75oOo>kW|zKkl7+LD5jcx- z>cWf3Xk_!E*`6&1%dwU6J>Pud3}{+;s#p0qBz&x=KJet&wym=kA`#RXYJoyYl-N3IM_ote>}6w zCC5W?h-Pv@gex?4>*y+Gj_eDjX8d~yzHavGqd|-;S+ZE(RLWWUu)FuE? zKcwS*;$<-2X2;lQcQM8E##T3^X<9u}q<^%;MZt5&;pd2^zD8$~@Sw`J7vTVSxg$33y z7N1ZOf#Y&ebadNz@+cqW%{?_4oCJqut_mbr4f2Q}r#Kt?rF~!TEyB6PJ`jcP`G2^Y z3+BBGdduO+e$qPa1g6c0Y>brlb5_#FjKpbHJV)t?at_^D1`Ni1lciGY-T;m zPN&c7_-RY;rKpvMvpr-_B{H1VSX$;_wGXy|QjdZA^z9VSd(W{4hqsX^|NPo?^AlK4 zLf#zwSsfE$Z#m*{ukeoqQn14$8bSiEHwj7=4%+52;gL=i8ip;Hdy3JG&r*~)H z-D=@C@l2~|9zNwrf5^ZqXLfYnoaL?^w7lWMg*~3$YdOQ)_Z}GAzkEuA<_fQ_j$(64 z5kBpQzC7Xdnlp0w95&7pXI?jVSmG#J|E6`v@n!=JK?NeAM6!Y9oR?KIYFk^*F7+3x zy4IKJ-9-94Cp1VBy;4b#)adQZT@U+-?&@otH?yZ)BKLc_($;L>q<;fipUwHFOKd=R z4&n8qV+p<0thcyHf2ora9Q0f z96tQ7Q#3CJ^8;k)9Dg^dK62(EpyVHNhVYDk9`E>!#@jsp7BXGpeNR=Y$VIKv-cfTd zIG-8QLte)B{rHe8^Z(jz+Vu=|MU!`t_Axi}TRYPz52e3hX6Rjw>Cw*6^JaSSkl&d0 zbEfmpkm>U?Pf@~Kjr*E2zx7UiWuN~pGQadql0uH&kGvd-{&*~`Y&gTx2HI&Je-D}e zbe|m^=x>o0|L-xjx2j65#n22Mtpe+YbE%1hvIhVBgFE~S6Y()1++bRQo?odcx zafW}zndg + +; Zero Page + .include "../zp.inc" + .include "../hardware.inc" + .include "../common_defines.inc" + .include "../qload.inc" + .include "disk40_defines.inc" + +riven_jungle_outside: + + ;=================== + ; init screen + ;=================== + +; jsr TEXT +; jsr HOME + bit KEYRESET + + bit SET_GR + bit PAGE1 + bit HIRES + bit FULLGR + + ;======================== + ; set up location + ;======================== + + lda #locations + sta LOCATIONS_H + + lda #0 + sta DRAW_PAGE + sta LEVEL_OVER + + lda #0 + sta JOYSTICK_ENABLED + sta UPDATE_POINTER + + lda #1 + sta CURSOR_VISIBLE + + lda #20 + sta CURSOR_X + sta CURSOR_Y + + + + + ;=================================== + ; init + ;=================================== + + jsr change_location + + jsr save_bg_14x14 ; save old bg + +game_loop: + + ;=================================== + ; draw pointer + ;=================================== + + jsr draw_pointer + + ;=================================== + ; handle keypress/joystick + ;=================================== + + jsr handle_keypress + + ;=================================== + ; increment frame count + ;=================================== + + inc FRAMEL + bne frame_no_oflo + + inc FRAMEH +frame_no_oflo: + + ;==================================== + ; check level over + ;==================================== + + lda LEVEL_OVER + bne really_exit + + jmp game_loop + +really_exit: + + rts + + ;===================================== + ; handle clicked facing west + ;===================================== + ; all we can do here is flip + ; flip us to the east + ; go lores and play the movie +handle1_clicked: + + bit SPEAKER +.if 0 + lda #0 + sta MAGLEV_FLIP_DIRECTION + + lda #LOAD_MOVIE1 + sta WHICH_LOAD + + lda #1 + sta LEVEL_OVER +.endif + bit SPEAKER + + rts + + ;===================================== + ; handle clicked facing east + ;===================================== + ; if x<27, go for maglev ride + ; else, flip back west +handle2_clicked: + + bit SPEAKER +.if 0 + lda CURSOR_X + cmp #27 + bcc go_for_maglev + + lda #1 + sta MAGLEV_FLIP_DIRECTION + + lda #LOAD_MOVIE1 + jmp common_handle2 + +go_for_maglev: + lda #LOAD_MOVIE2 + +common_handle2: + sta WHICH_LOAD + + lda #1 + sta LEVEL_OVER +.endif + bit SPEAKER + + rts + + + + + ;========================== + ; includes + ;========================== + + +.include "graphics_outside/outside_graphics.inc" + +.include "leveldata_outside.inc" diff --git a/games/riven_hgr/disk40_files/leveldata_maglev.inc b/games/riven_hgr/disk40_files/leveldata_maglev.inc index 092c0d69..bde0af5b 100644 --- a/games/riven_hgr/disk40_files/leveldata_maglev.inc +++ b/games/riven_hgr/disk40_files/leveldata_maglev.inc @@ -8,40 +8,40 @@ locations: ; RIVEN_LOOKIN -- looking into the maglev location0: - .byte $FF ; north exit - .byte $ff ; south exit - .byte $ff ; east exit - .byte RIVEN_INSEAT ; west exit - .byte $FF ; north exit_dir - .byte DIRECTION_S ; south exit_dir - .byte $ff ; east exit_dir - .byte DIRECTION_W ; west exit_dir - .word $0000 ; north bg - .word inseat_s_zx02 ; south bg - .word $0000 ; east bg - .word lookin_w_zx02 ; west bg - .byte BG_WEST|BG_SOUTH - .byte $ff ; special exit + .byte $FF ; north exit + .byte LOAD_OUTSIDE<<4|RIVEN_OUTSIDE ; south exit + .byte $ff ; east exit + .byte RIVEN_INSEAT ; west exit + .byte $FF ; north exit_dir + .byte DIRECTION_W ; south exit_dir + .byte $ff ; east exit_dir + .byte DIRECTION_W ; west exit_dir + .word $0000 ; north bg + .word inseat_s_zx02 ; south bg + .word $0000 ; east bg + .word lookin_w_zx02 ; west bg + .byte BG_WEST|BG_SOUTH + .byte $ff ; special exit ; RIVEN_INSEAT -- when sitting in seat location1: - .byte $FF ; north exit - .byte $ff ; south exit - .byte $ff ; east exit - .byte $ff ; west exit - .byte $FF ; north exit_dir - .byte DIRECTION_S ; south exit_dir - .byte $ff ; east exit_dir - .byte $ff ; west exit_dir - .word $0000 ; north bg - .word inseat_s_zx02 ; south bg - .word $0000 ; east bg - .word inseat_w_zx02 ; west bg - .byte BG_WEST|BG_SOUTH - .byte DIRECTION_W ; special exit - .byte 11,14 ; special x - .byte 119,145 ; special y - .word handle1_clicked-1 ; special function + .byte $FF ; north exit + .byte LOAD_OUTSIDE<<4|RIVEN_OUTSIDE ; south exit + .byte $ff ; east exit + .byte $ff ; west exit + .byte $FF ; north exit_dir + .byte DIRECTION_W ; south exit_dir + .byte $ff ; east exit_dir + .byte $ff ; west exit_dir + .word $0000 ; north bg + .word inseat_s_zx02 ; south bg + .word $0000 ; east bg + .word inseat_w_zx02 ; west bg + .byte BG_WEST|BG_SOUTH + .byte DIRECTION_W ; special exit + .byte 11,14 ; special x + .byte 119,145 ; special y + .word handle1_clicked-1 ; special function ; RIVEN_READY2GO -- ready for maglev ride diff --git a/games/riven_hgr/title.s b/games/riven_hgr/title.s index 6146e887..43798ffc 100644 --- a/games/riven_hgr/title.s +++ b/games/riven_hgr/title.s @@ -325,12 +325,12 @@ clear_loop: .if DISK=40 lda #LOAD_MAGLEV - sta WHICH_LOAD ; assume new game (dome island) + sta WHICH_LOAD ; sitting in maglev - lda #RIVEN_MAGLEV_SIT + lda #RIVEN_INSEAT sta LOCATION - lda #DIRECTION_S + lda #DIRECTION_W sta DIRECTION .endif