;************************************************************************ ;* * ;* title name : "yossy" * ;* proccess : enemy sub.1 * ;* file name : ys_enmy6 * ;* * ;************************************************************************ ; ; SALL ; include ys_header.inc include ys_unit.h include ys_pld.h include ys_color.h include ys_ename.h include ../union/ys_bgcheck.h ; XALL ; ; ;------------------------------------------------------------------------ ;- global symbol - ;------------------------------------------------------------------------ GLB BOMBXIN,ROTLFIN GLB MBALLIN,AWANGIN,GENKIIN GLB AWANMIN,AWANSIN,AWANPIN,BOBK0IN,BOBK1IN GLB AHOBDIN,AHOB2IN GLB KAMO0IN,KAMO1IN,AWAFKIN,ZSABOIN,STAMAIN GLB ZFLWRIN,ZFLW2IN,JTAMAIN,HSAN1IN,DBAHOIN,MATO0IN GLB DBAH2IN,BOMB0IN,JTAM2IN,BAHOBIN,ZSAB2IN,SW000IN GLB YGOROIN ; GLB BOMBXMV,ROTLFMV GLB MBALLMV,AWANGMV,GENKIMV GLB AWANMMV,AWANSMV,AWANPMV,BOBK0MV,BOBK1MV GLB AHOBDMV,AHOB2MV GLB KAMO0MV,KAMO1MV,AWAFKMV,ZSABOMV,STAMAMV GLB ZFLWRMV,ZFLW2MV,JTAMAMV,HSAN1MV,DBAHOMV,MATO0MV GLB DBAH2MV,BOMB0MV,JTAM2MV,BAHOBMV,ZSAB2MV,SW000MV GLB YGOROMV ; GLB LOCKON_TARGET,LOCKON_TARGET2 GLB TOGEBLK_BRK,CLR_BG_4 ; GLB MBALL_ENCHK,MATO0_DEATH_CHK GLB DOKAN_CHECK,DOKAN_CHECK2 GLB FLOWER_GET ; ;------------------------------------------------------------------------ ;- extern symbol - ;------------------------------------------------------------------------ ; ;-------------< sy_main >------------------------------------------------ EXT D_00,GMIN EXT SOUND_3_ON ; ;-------------< sy_rpro >------------------------------------------------ EXT JSRSUB EXT CHIPON EXT CHIPON_RAM_READ ; ;-------------< sy_play >------------------------------------------------ EXT EBSTAT EXT PFAL,PSTP,PMOV EXT PFLP,PSHT,PDEM,PRET EXT PUSHTM,PUSHPT ; ;-------------< sy_bgsc >------------------------------------------------ EXT BGCG,TGTM EXT UNITCHG ; ;-------------< sy_enmy >------------------------------------------------ EXT ENEMY,ENINSB EXT ENMOVE,ENCLEAR,ENCLEAR_NORETN,DISPCK0,DISPCK1,DISPCK2,DISPCK3 EXT ENINSR,ENINSR_I,ENINSR2,EEXCHK,EEYCHK,EEXYCK,ESTATST EXT PLFLST_2,ENRINT EXT SCOREST EXT ENMDCK,XSDOWN,EPCRCK,MUKEOR,XSPEOR,MKEOR2,PLFLST EXT EGGSET,EGG_SP_CHECK,EGG_OPTION,EGGKILL_ALL EXT SHOT_EN_KILL,SHOT_EN_KILL_S EXT EXIST_CHECK,EXIST_CHECK_S,NON_EXIST_SET,NON_EXIST_SET2 ; EXT ENDEATH_SET,ENDEATH_SET_4 ; EXT PL_1UP_SET,PL_3UP_SET,PL_UP_SET,BEAT_P_SET ; EXT EINIT,EFAIL,ECHNG,EMOVE,EEATM,ENOSE,EBABL,EFALL ; EXT EATMXS,NOSWT ; EXT ENFAIL0 ; EXT EN_XYMOVE,EN_TIMER ; EXT FSMK0_SET,FSMK0_SET2,FSMK0_SET3 ; EXT TROBJ_SR_2x2,TROBJ_SR_4x4,TROBJ_SR_8x8,TROBJ_SR_8x4 EXT TROBJ_SR_2x2_CL,TROBJ_SR_4x4_CL,TROBJ_SR_8x8_CL EXT TROBJ_SR_8x4_CL EXT TROBJ_OAM_8x4 EXT TROBJ_OAM_2x2,TROBJ_OAM_4x4,TROBJ_OAM_8x8,TROBJ_OAM_8H8 EXT TROBJ_OAM_2x2_I,TROBJ_OAM_4x4_I,TROBJ_OAM_8x8_I EXT TROBJ_CLEAR,TROBJ_CANCEL EXT TROBJ_PLOT_X,TROBJ_PLOT_Y ; ;-------------< sy_enmy2 >------------------------------------------------ EXT NLFLRIN,NLFUDIN ; EXT TAMA_NORI_XREV EXT HEIH0_KIND_CHK,HEIH0_DEATH_CHK ; ;-------------< sy_enmy3 >------------------------------------------------ EXT POBBGCR EXT ICE_IN_CK,MONKY_FAIL_SET EXT GO_NEXTGOTO ; ;-------------< sy_enmy4 >------------------------------------------------ EXT ZOOM_PLCHK ; EXT TIMKN_3_SET ; EXT ST_ENMY_REFRECT ; EXT YUKID_PLCHK3,YUKID_PL_REVISE,YUKID_PL_REV2 ; ;-------------< ys_enmy8 >------------------------------------------------ EXT AWANH_BGBR0_SET EXT SHOT_EN_KILL_SP,SHOT_EN_KILL_S2 ; ;-------------< sy_exst >------------------------------------------------ EXT EXINSR ; ;-------------< sy_game >------------------------------------------------ EXT FWR_MSG ; ;-------------< sy_unit >------------------------------------------------ EXT UNDTADD,UNDATA,RUTDATA ; ;-------------< ys_data >------------------------------------------------ EXT SIN,COS ; ;------------------------------------------------------------------------ ;- define symbol - ;------------------------------------------------------------------------ BABY_INDEX EQU 00H ; ; ; ;************************************************************************ ;* * ;* program start * ;* * ;************************************************************************ ; EXTEND ; MEM16 IDX8 ; DPAGE EN0RAM ; Group_E GROUP Enemy6_pro Enemy6_pro SECT REL ; ;************************************************************************ ;* dummy subroutine * ;************************************************************************ DUMMY_SUB EQU $ TYX RTS ; ;************************************************************************ ;* initial ( ばくだん ) * ;************************************************************************ BOMBXIN EQU $ ;-- bombxin -- BOMB0IN EQU $ ;-- bomb0in -- ;;;;;;;; LDA #0110100000100000B ;食えるようにする ;;;;;;;; STA ENMOD1,X LDA ENMDCK LDY ENDEATH_SET_4 BRA BOMBXMV0600 BOMBXMV0180 EQU $ LDA ENTIM0,X ;起爆チェックしていい ? BNE BOMBXMV0200 ; no: BOMBXMV0200 LDY ENYSPD+1,X BMI BOMBXMV0190 ;=========================== LDA !ENMYNO,X CMP #BOMB0 BEQ BOMBXMV0190 ; 大砲の弾？ [yes->BOMBXMV0190] ; LDA ENMOD1,X AND #0000000000011111B BEQ BOMBXMV0198 I16 ;下のＢＧは坂 ? TXY ; LDA ENWRKC,X ; TAX ; LDA >ENBGCK_TYPE_F,X ; I8 ; TYX ; AND #SK ; BNE BOMBXMV0300 ; yes: BOMBXMV0300 BOMBXMV0190 EQU $ LDA ENCBFG,X ;ＢＧにぶつかった ? AND #0002FH ; BNE BOMBXMV0300 ; yes: BOMBXMV0300 BOMBXMV0198 EQU $ LDY #001 STY EXINSR LDA ECENTX,X STA EXXPSL,Y LDA ECENTY,X STA EXYPSL,Y LDA #0000DH STA EXCHPT,Y LDA #00003 STA EXTIM0,Y LDA #00047H ;［Ｓ］ JSL >SOUND_3_ON ;;;;;;;; LDA #00025H ;[Ｓ] ;;;;;;;; STA SOUND0 ; STZ ENYSPD,X STZ ENGPOW,X STZ ENXSPD,X STZ ENSHOT,X LDA #0110100010100000B ;食ったらダメージにする STA ENMOD0,X INC EPCRCK BOMBXMV0880 EQU $ LDA ENMYNO,X CMP #BOMB0 BEQ BOMBXMV0900 LDA ENOAML,X BMI BOMBXMV0900 LDA FRCNT AND #00001 BNE BOMBXMV0900 LDA EXINSR LDA ECENTX,X CLC ADC ENCLEAR RTS BOMBX_BGBR0100 EQU $ LDA EPWIDX,X CLC ; ADC #00030H ; CMP #00060H ADC #00018H CMP #00030H BCS BOMBX_BGBR0300 LDA EPWIDY,X CLC ; ADC #00030H ; CMP #00060H ADC #00018H CMP #00030H BCS BOMBX_BGBR0300 ; LDA EPWIDX,X ; CLC ; ADC #00018H ; CMP #00030H ; BCS BOMBX_BGBR0400 ; ; LDA EPWIDY,X ; CLC ; ADC #00018H ; CMP #00030H ; BCS BOMBX_BGBR0400 JSL >PLFLST BOMBX_BGBR0300 EQU $ RTS ; ;BOMBX_BGBR0400 EQU $ ; LDY #000 ; LDA EPWIDX,X ; BPL BOMBX_BGBR0500 ; ; INY ; INY ; ;BOMBX_BGBR0500 EQU $ ; CLC ; ADC !BOMBX_BAKUFU,Y ; CLC ; ADC PLXSPD ; STA PLXSPD ; STA PLMVSP ; ; LDY #000 ; LDA EPWIDY,X ; BPL BOMBX_BGBR0600 ; ; INY ; INY ; ;BOMBX_BGBR0600 EQU $ ; CLC ; ADC !BOMBX_BAKUFU,Y ; CLC ; ADC PLYSPD ; STA PLYSPD ; BPL BOMBX_BGBR0700 ; ; LDA #P006 ; STA PLJUMP ; ;BOMBX_BGBR0700 EQU $ ; ; RTS ; BOMBX_BGBR_SB EQU $ LDA !BOMBX_BGCHK_X,Y CLC ADC ECENTX,X STA BGXPS1 STA R8 LDA !BOMBX_BGCHK_Y,Y CLC ADC ECENTY,X STA BGYPS1 STA R0 M_CHIPR M_BGUNIT_READ LDX AWANH_BGBR0_SET BOMBX_BGBR_S010 EQU $ RTS ; ;************************************************************************ ;* initial ( rotation lift ) * ;************************************************************************ ROTLFIN EQU $ ;-- rotlfin -- ; LDA #04000H ; STA ENWRK6,X STZ ENWRKA,X LDA #0C000H STA ENWRKC,X STZ ENMUKI,X RTL ; ;************************************************************************ ;* move ( rotation lift ) * ;************************************************************************ ; ENWRK0 プレイヤーＯＮフラグ ; ENWRK2 ; ENWRK4 前のフレームでのリフトのオフセットＸ　ＰＯＳ． ; ENWRK6 リフトの長さ ; ENWRK8 回転角 ; ENWRKA リフトオフセットＸ　ＰＯＳ． ; ENWRKC リフトオフセットＹ　ＰＯＳ． ; ROTLF_ANGADD EQU $ WORD 0FFA0H,00060H ; ROTLFMV EQU $ ;-- rotlfmv -- ;＊＊＊＊＊＊＊＊＜　ＯＡＭセット　＞＊＊＊＊＊＊＊＊ LDA ENWRKA,X CMP #08000H ROR A CMP #08000H ROR A STA ENMDCK ;;;;;;;; JSL >EPCRCK ;＊＊＊＊＊＊＊＊＊＊＊＜　プレイヤーチェック　＞＊＊＊＊＊＊＊＊＊＊ LDA ENWRK8,X ;回転角計算 INC A ; INC A ; STA ENWRK8,X ; CLC ADC #00080H AND #001FEH STA R1 ; LDA ENWRK6,X ;半径 LDA #05800H STA R6 M_CHIP M_ENMY_1P_ROT LDX POBBGCR RTL ; ;************************************************************************ ;* initial ( 穴掘りわんわん ) * ;************************************************************************ AWANGIN EQU $ ;-- awangin -- LDY SCHMK1 ;左に動いてる ? BNE AWANMIN0000 ; yes: AWANMIN0000 M8 LDA #040H STA ENEMU0,X M16 BRA AWANMIN0200 AWANMIN EQU $ ;-- awanmin -- LDY SCHMK1 ;左に動いてる ? BNE AWANMIN0000 ; yes: AWANMIN0000 LDY AWANMFG ;出さない ? BEQ AWANMIN0100 ; no: AWANMIN0100 AWANMIN0000 EQU $ JMP >ENCLEAR AWANMIN0100 EQU $ INC AWANMFG ;出現ロックフラグセット LDA ENXPSL,X AND #0FF00H ORA #00080H STA AWANMXP LDA ENXPSL,X SEC SBC #00020H STA ENXPSL,X AWANMIN0200 EQU $ LDA SCCH1 ;WRK0 <- 出現Ｘ　ＰＯＳ．（ＢＧ１） AND #0FFF0H ;WRKA <- 出現Ｘ　ＰＯＳ．（ＢＧ２） STA TROBJ_OAM_8H8 AWANGMV0100 EQU $ JSL >ENMDCK TXY LDA ENDEATH_SET_4 AWANGMV0500 EQU $ JSL >POBBGCR AWANGMV0600 EQU $ JSR AWANG_ROT_SET LDA ENMYNO,X SEC SBC #AWANG ORA ENWRK8,X BNE AWANGMV0700 LDA PLXPSL ;プレイヤー近づいてきた ? SEC ; SBC TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_64HZOOM_32 LDX ENINSR BCC AWANG_SUB0500 TYX JSL >TROBJ_SR_8x4 ;回転エリア空いてる ? BCS AWANG_SUB0300 ; yes: AWANG_SUB0300 JSL >ENCLEAR LDX TROBJ_SR_8x4 ;回転エリア空いてる ? BCC AWANG_SUB2300 ; no: AWANG_SUB2300 DEC AWANGFG ;セットロックフラグセット STZ ENXSPD,X STZ ENGPOW,X LDA #00203H ;WRK2 <- ROUTINE MODE INDEX STA TROBJ_CLEAR JSL >TROBJ_SR_8x4 LDA ENMYNO,X ;ノーマル型(AWANG) ? CMP #AWANG ; BEQ AWANG_SUB3300 ; yes: AWANG_SUB3300 LDA #00040H ;ストップタイマーセット STA ENTIM2,X ; AWANG_SUB3300 EQU $ LDA #00080H ;初期倍率セット STA ENWRK6,X LDA #1000000010000001B ;セット数１ー＞１６ STA ENMOD2,X LDA #00001 STA ENCHPT,X JSR AWANG_ROT_SET2 LDA #00007 STA ENYUSN,X LDA #00004 ;WRK2 <- routine mode index STA TROBJ_CLEAR STZ ENCHPT,X LDA #0000100010000001B ;セット数１６ー＞１ STA ENMOD2,X ; LDA #00050H ;ストップタイマーセット STA ENTIM2,X LDA ENMYNO,X ;ノーマル型(AWANG) ? CMP #AWANG ; BNE AWANG_SUB4F80 ; no: AWANG_SUB4F80 LDA #00030H STA ENTIM2,X AWANG_SUB4F80 EQU $ STZ ENGPOW,X STZ ENGMAX,X ;照準セットフラグクリア JSR AWANP_SET LDA ENCLOR,X ;カラー７ー＞１ AND #0FFF3H ORA #00020H ;ＢＧ１の前に表示 STA ENCLOR,X M8 LDA #002 STA ENYUSN,X ;優先順位０ー＞２ STZ ENDORE,X M16 LDA #001FFH ;倍率セット STA ENWRK6,X STZ ENWRK8,X ;ＢＧ書き換えデータインデックス STZ ENXMAX,X ;着地フラグクリア STZ SOUND_3_ON INC TROBJ_CLEAR AWANG_SUB5260 EQU $ RTS AWANG_SUB5270 EQU $ LDA #0110110001110011B ;あたりをでっかく STA ENMOD0,X ; LDA #00020H STA EWIDEX,X STA EWIDEY,X LDY ENTROB,X BPL AWANG_SUB5280 JSL >TROBJ_SR_8x4 ;回転エリア確保できた ? BCC AWANG_SUB5260 ; no: AWANG_SUB5260 JSR AWANG_ROT_SET2 INC ENCHPT,X INC ENCHPT,X LDA #1000000010000001B ;セット数１ー＞１６ STA ENMOD2,X ; LDA #00800H STA ENYSPD,X STZ AWANGFG ;セットロックフラグクリア AWANG_SUB5280 EQU $ TROBJ_CHK_2 BNE AWANG_SUB5500 M8 LDA ENCLEAR_NORETN AWANG_SUB5600 EQU $ JSR AWANG_BG_CHG ;ＢＧ書き換え LDY ENXMAX,X ;着地してる ? BEQ AWANG_SUB5800 ; no: AWANG_SUB5800 LDY UNITCHG PLY LDA EXINSR LDA SOUND_3_ON ;;;;;;;; LDA #00007H ;;;;;;;; STA SOUND3 ;［Ｓ］ AP_SET0000 EQU $ RTS ; AWANP_SET EQU $ LDY ENGMAX,X ;照準セットする ? BNE AP_SET0000 ; no: AP_SET0000 STZ ENINSR_I BCC AP_SET0800 TYX JSL >TROBJ_SR_8x4 TXY LDX ENMDCK LDA ENDSXL,X CLC ADC #00080H+020H CMP #00100H+080H*2 BCC AWANMMV0800 LDA ENXPSL,X SEC SBC ENMOVX,X STA ENXPSL,X LDA ENYPSL,X SEC SBC ENMOVY,X STA ENYPSL,X RTL AWANMMV0800 EQU $ TXY LDA -- LDA AWYSPD,X CLC ADC #001 CMP #010H BMI AW_CALC0100 LDA #010H AW_CALC0100 EQU $ STA AWYSPD,X ;--< POS. CALC. >-- LDA AWXSPD,X BPL AW_CALC8100 CLC ADC AWXPSL,X STA AWXPSL,X LDA AWXPSH,X SBC #000 BRA AW_CALC8200 AW_CALC8100 EQU $ CLC ADC AWXPSL,X STA AWXPSL,X LDA AWXPSH,X ADC #000 AW_CALC8200 EQU $ STA AWXPSH,X LDA AWYSPD,X BPL AW_CALC8300 CLC ADC AWYPSL,X STA AWYPSL,X LDA AWYPSH,X SBC #000 BRA AW_CALC8400 AW_CALC8300 EQU $ CLC ADC AWYPSL,X STA AWYPSL,X LDA AWYPSH,X ADC #000 AW_CALC8400 EQU $ BMI AW_CALC8500 ;地面に減り込んでる ? ; no: AW_CALC8500 EOR AWYSPD,X BMI AW_CALC8500 STZ AWYSPD,X LDA #000 STA AWYPSL,X AW_CALC8500 EQU $ STA AWYPSH,X RTS ; MEM16 IDX8 ; ;************************************************************************ ;* initial ( ana-hori wang-wang fall point ) * ;************************************************************************ AWANPIN EQU $ ;-- awanpin -- JSR AWANP_ROT_SET RTL ; ;************************************************************************ ;* move ( ana_hori wang-wang fall point ) * ;************************************************************************ ; AWANP_YUSN EQU $ HEX 005,0FF AWANP_CLOR EQU $ HEX 0C,0E,0A,0A ; AWANPMV EQU $ ;-- awanpmv -- LDY ENMOD2+1,X ;３２ドット ? BPL AWANPMV0100 ; yes: AWANPMV0100 JSL >TROBJ_OAM_8H8 AWANPMV0100 EQU $ JSL >ENMDCK LDA FRCNT CMP ENCLEAR AWANPMV0300 EQU $ LDA ENTIM2,X ;３２ドット ? BNE AWANPMV0500 ; no: AWANPMV0500 LDY ENTROB,X BMI AWANPMV0800 LDA #00004 STA ENCHPT,X LDA #0010000010000001B ;セット数１６ー＞４ STA ENMOD2,X JMP >TROBJ_CLEAR AWANPMV0500 EQU $ LDA ENWRK6,X ;倍率計算 CLC ; ADC #00010H ; CMP #001FFH ; BMI AWANPMV0600 ; ; LDA #001FFH ; ; AWANPMV0600 EQU $ ; STA ENWRK6,X ; JSR AWANP_ROT_SET AWANPMV0800 EQU $ RTL ; AWANP_ROT_SET EQU $ LDA ENWRK6,X AND #000FFH ASL A ASL A XBA TAY M8 LDA ENCLOR,X AND #0F1H ORA !AWANP_CLOR,Y STA ENCLOR,X M16 LDA #CIPCHD2+60E0H+000 ;(R12) <- char. data addr. LDY #BANK CIPCHD2+60E0H+000 ;(R13) <- char. data bank JSR AWANG_ROT_SET3 RTS ; ;************************************************************************ ;* initial ( びよぉ〜んおばけ ) * ;************************************************************************ BOBK0_I_XSPD EQU $ WORD 0FF80H,00080H ; BOBK0IN EQU $ ;-- bobk0in -- BOBK1IN EQU $ ;-- bobk1in -- LDY ENMUKI,X LDA !BOBK0_I_XSPD,Y STA ENXSPD,X LDA ENXPSL,X AND #00010H LSR A LSR A LSR A LSR A PHP INC A STA ENINSR BCS BOBK0IN0300 LDA #BOBK0 STA ENMYNO,X BRA BOBK0IN0800 BOBK0IN0300 EQU $ STY ENMDCK JSL >DISPCK0 ;範囲外 ? BCC BOBK0MV0090 ; no: BOBK0MV0090 BOBK0MV0070 EQU $ LDY ENMYNO,X CPY #BOBK0 BEQ BOBK0MV0080 LDA ENCLEAR LDX SOUND_3_ON INC SOUND_3_ON BOBK0_PLCHK0400 EQU $ LDA ENYPSL,X ;プレイヤーＹ　ＰＯＳ．補正 SEC ; SBC PLFLST BOBK0_PLCHK0800 EQU $ RTS ; BOBK0_PLCHK2 EQU $ LDA EPWIDX,X CLC ADC PLFLST BOBK0_PLCHK2800 EQU $ RTS ; ;************************************************************************ ;* initial ( あほーどり ) * ;************************************************************************ AHOBD_I_XSPD EQU $ WORD 0FF40H,000C0H AHOB2_I_TIM0 EQU $-1 HEX 010,020 AHOBD_I_XPOS EQU $ WORD 0FFE0H,00130H ; AHOB2IN EQU $ ;-- ahob2in -- INC ENINSR BCC AHOBDIN0160 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X STA ENYPSL,Y LDA ENMUKI,X STA ENMUKI,Y LDA ENINSR2 BCC BAHOB_H_SET0500 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X CLC ADC #00010H STA ENYPSL,Y LDA #00003 STA ENWRK2,Y ASL A ;[ LDA #006 ] ;ぶらさがりポーズ STA ENCHPT,Y ; LDA ENMUKI,X STA ENMUKI,Y LDA #00001 STA ENWRKC,Y STY ENMDCK BRA AHOBDMV0300 AHOBDMV0100 EQU $ JSR AHOBD_EAT_CHK JSL >ENMDCK JSR AHOBD_PLCHK AHOBDMV0300 EQU $ TXY LDA SHOT_EN_KILL_SP AHOBDMV0800 EQU $ RTL AHOBDMV1000 EQU $ JSL >ENMDCK LDY AHOB_ST_FG ;湧きだし終わり ? BEQ AHOBDMV1300 ; yes: AHOBDMV1300 LDA ENDSYL,X ;画面内 ? CLC ; ADC #00040H ; CMP #000E0H+040H*2 ; BCC AHOBDMV1500 ; yes: AHOBDMV1500 AHOBDMV1300 EQU $ JMP >ENCLEAR AHOBDMV1500 EQU $ LDA ENTIM0,X ;湧きだす ? BNE AHOBDMV1800 ; no: AHOBDMV1800 LDA #AHOBD JSL >ENINSR_I BCC AHOBDMV1800 LDA ESCCH1 AND #0FFEFH CLC ADC ENWRK6,X STA ENXPSL,Y AND #00010H LSR A LSR A LSR A EOR #00002 STA ENMUKI,Y LDA ENWRKC,X STA ENYPSL,Y LDA #00040H*4 STA ENTIM0,X AHOBDMV1800 EQU $ RTL ; AHOBD_EAT_CHK EQU $ LDY ENMODE,X CPY #EMOVE BNE AHOBD_E_CHK0100 RTS AHOBD_E_CHK0100 EQU $ LDA #00040H STA ENGPOW,X LDA #00400H STA ENGMAX,X CPY #EEATM BNE AHOBD_E_CHK0800 LDY EXINSR LDA ENXPSL,X STA EXXPSL,Y LDA ENYPSL,X STA EXYPSL,Y LDA #0FFFFH STA EXTIM0,Y LDA #00040H*3 STA EXTIM1,Y LDA #00020H STA EXXSPD,Y AHOBD_E_CHK0300 EQU $ LDY ENYUSN,X BPL AHOBD_E_CHK0500 LDA #0FFFFH STA ENWRKA,X AHOBD_E_CHK0500 EQU $ LDA ENMYNO,X CMP #DBAHO BEQ AHOBD_E_CHK0580 CMP #DBAH2 BNE AHOBD_E_CHK0600 AHOBD_E_CHK0580 EQU $ JSR DBAHO_ROT_SET LDA #0111010010100010B ;食うとプレイヤーダメージ PHA LDY #001 LDA #0000100001000011B ;ＢＧチェックする BRA AHOBD_E_CHK0700 AHOBD_E_CHK0600 EQU $ LDA #0110110000000000B ;投げた敵あたる PHA LDY #00CH LDA #0000100001000001B ;行ったり来たりしない AHOBD_E_CHK0700 EQU $ STA ENMOD1,X TYA STA ENCHPT,X PLA STA ENMOD0,X AHOBD_E_CHK0800 EQU $ AHOBD_S_C0000 EQU $ RTS ; AHOBD_SHOT_CHK EQU $ TXA STA R1 M_CHIP MY_ENCROS2 BRA AHOBD_S_C0200 AHOBD_S_C0100 EQU $ LDX #BANK MY_ENCROS2 LDA R15 JSL >CHIPON AHOBD_S_C0200 EQU $ LDX ENDEATH_SET_4 AHOBD_S_C0500 EQU $ JSR AHOBD_HANE_SET INC FSMK0_SET2 LDA #0000BH ;［Ｓ］ JSL >SOUND_3_ON ;;;;;;;; LDA #00003 ; ［Ｓ］ ;;;;;;;; STA SOUND0 LDA #00040H STA ENGPOW,X LDA #00400H STA ENGMAX,X LDA #0FD00H STA ENYSPD,X STZ ENXSPD,X LDA ENMYNO,X ;のーまるあほーどり ? CMP #AHOBD ; BEQ AHOBD_S_C0700 ; yes: AHOBD_S_C0700 CMP #BAHOB ; BEQ AHOBD_S_C0700 ; yes: AHOBD_S_C0700 LDA #00001 STA ENCHPT,X LDY #DBAHO_RMODE40 STY FSMK0_SET3 ; ;-------------- プレイヤーと横当たり ---------------------------- AHOBD_PLCHK0700 EQU $ JSL >PLFLST RTS ; AHOBD_PLCHK_ON EQU $ LDA PLBGCR ;足、頭がＢＧにあたってる ? AND #0000000000011111B ; BNE AHOBD_PL_ON0100 ; yes: AHOBD_PL_ON0100 LDA PLYPSL CLC ADC ENMOVY,X STA PLYPSL LDA EPWIDY,X SEC SBC ENMOVY,X STA EPWIDY,X AHOBD_PL_ON0100 EQU $ LDA PLBGCR ;壁にあたってない ? AND #0000000111100000B ; BEQ AHOBD_PL_ON0200 ; yes: AHOBD_PL_ON0200 AND #0000000110000000B ;進行方向に壁 ? DEC A ; EOR ENXSPD,X ; BPL AHOBD_PL_ON0300 ; yes: AHOBD_PL_ON0300 AHOBD_PL_ON0200 EQU $ LDA PLXPSL CLC ADC ENMOVX,X STA PLXPSL LDA EPWIDX,X SEC SBC ENMOVX,X STA EPWIDX,X AHOBD_PL_ON0300 EQU $ JSR AHOBD_PLCHK_SB ;プレイヤーと衝突した ? BCS AHOBD_PL_ON3000 ; no: AHOBD_PL_ON3000 LDY PONLFFG ;プレイヤー他の誰かに乗ってる ? BNE AHOBD_PL_ON3000 ; yes: AHOBD_PL_ON3000 LDA EPWIDY,X ;プレイヤーに踏まれてる ? SEC ; SBC EXINSR ;;;;;;;; ;;;;;;;; LDA EXINSR LDA ECENTX,X STA EXXPSL,Y LDA ECENTY,X STA EXYPSL,Y LDA #00017H STA EXCHPT,Y LDA #00001 STA EXTIM0,Y RTS ; AHOBD_S0_XSPD EQU $ WORD 0FF00H,00100H ; AHOBD_SUB0 EQU $ TYX LDA ENTIM1,X BNE AHOBD_SUB0800 LDY ENCHPT,X INY CPY #009 BMI AHOBD_SUB0200 DEC TROBJ_SR_4x4_CL LDY ENMUKI,X LDA !DBAHO_I_XSPD,Y STA ENXSPD,X LDA #00100H ;初期倍率セット STA ENWRK6,X LDA #00005 STA ENYUSN,X JSR DBAHO_ROT_SET RTL ; ;************************************************************************ ;* move ( でぶあほーどり ) * ;************************************************************************ ;B ENWRK0 はねセットロックフラグ ;B ENWRK1 向きセーブ ; ENWRK2 ROUTINE MODE INDEX ;B ENWRK4 ＢＧチェックフラグ 0..NO 2..頭 4..足 6..左 8..右 ;B ENWRK5 ENCHPT ; ENWRK6 縦倍率 ; ENWRK8 プレイヤーＯＮフラグ（羽根有り）／回転角（羽根なし） ; ENWRKA USE ; ENWRKC USE ; ; ENCONT ＢＧチェック時のＹスピード ; ; ENTIM0 ストップタイマー ; ENTIM1 キャラパターンチェンジタイマー ; ENTIM2 ; ENTIM3 ; DBAHO_SUB EQU $ WORD DBAHO_SUB0 ;はばたき DBAHO_10 EQU $ WORD DBAHO_SUB10 ;はね（足）ちぢみ DBAHO_11 EQU $ WORD DBAHO_SUB11 ;はね（足）のび WORD DBAHO_SUB12 ;はね（足）もどり DBAHO_20 EQU $ WORD DBAHO_SUB20 ;はね（頭）ちぢみ WORD DBAHO_SUB21 ;はね（頭）のび WORD DBAHO_SUB22 ;はね（頭）もどり DBAHO_30 EQU $ WORD DBAHO_SUB30 ;はね（横）ちぢみ WORD DBAHO_SUB31 ;はね（横）のび WORD DBAHO_SUB32 ;はね（横）もどり DBAHO_40 EQU $ WORD DBAHO_SUB40 ;ごろごろ ; DBAHO_RMODE10 EQU (DBAHO_10-DBAHO_SUB)/2 DBAHO_RMODE11 EQU (DBAHO_11-DBAHO_SUB)/2 DBAHO_RMODE20 EQU (DBAHO_20-DBAHO_SUB)/2 DBAHO_RMODE30 EQU (DBAHO_30-DBAHO_SUB)/2 DBAHO_RMODE40 EQU (DBAHO_40-DBAHO_SUB)/2 ; DBAHO_MOD0 EQU $ WORD 0111010010100010B WORD 0111010001000010B ; DBAHOMV EQU $ ;-- dbahomv -- DBAH2MV EQU $ ;-- dbah2mv -- JSR DBAHO_OAM_SET JSR AHOBD_EAT_CHK LDA ENCOLD,X BEQ DBAHOMV0100 STZ ENMOD1,X DBAHOMV0100 EQU $ JSL >ENMDCK TXY LDA ST_ENMY_REFRECT JSL >EPCRCK LDY #000 LDA ONLFFG ;プレイヤーに乗られた ? CMP TROBJ_OAM_4x4_I IDX8 RTS DBAHO_O_SET1000 EQU $ JSL >TROBJ_OAM_4x4 I16 LDY ENOAML,X LDA #08000H STA SOAM_DX+0+8*4,Y STA SOAM_DX+0+8*5,Y STA SOAM_DX+0+8*6,Y STA SOAM_DX+0+8*7,Y STA SOAM_DX+0+8*8,Y STA SOAM_DX+0+8*9,Y I8 RTS ; DBAHO_ZOM_XPS EQU $ WORD 00000H,00010H,00010H,00004H,0001CH DBAHO_ZOM_YPS EQU $ WORD 00000H,00004H,0001CH,00010H,00010H ; DBAHO_ROT_SET EQU $ LDY ENCHPT,X BEQ DBAHO_R_SET0100 JMP DBAHO_R_SET1000 DBAHO_R_SET0100 EQU $ LDA ENWRK6,X ;(R11) <- Ｙ倍率セット STA R11 ; CMP #00100H ;(R6) <- 横倍率セット BPL DBAHO_R_SET0200 ASL A EOR #0FFFFH CLC ADC #00300H+1 BRA DBAHO_R_SET0300 DBAHO_R_SET0200 EQU $ AND #000FFH STA R0 LDA #00140H STA R6 M_CHIP MULTIPLY LDX TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY LDX TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- M_CHIP C_32_ROTZOM LDX PLFLST DBAHO_PLCHK0800 EQU $ RTS DBAHO_PLCHK1000 EQU $ STZ ENWRK8,X ;プレイヤーＯＮフラグクリア LDA #0111010000000000B ;食える、投げた敵あたる STA ENMOD0,X LDA EPWIDX,X ;横あたりＯＫ ? CLC ; ADC SOUND_3_ON ;;;;;;;; LDA #0000EH ;［Ｓ］ ;;;;;;;; STA SOUND0 LDY SOUND_3_ON ;;;;;;;; LDA #0000EH ;［Ｓ］ ;;;;;;;; STA SOUND0 PLA DBAHO_SUB31300 EQU $ CMP #000E8H BPL DBAHO_SUB31800 INC TROBJ_OAM_4x4_I IDX8 LDA #00004 STA R0 LDA #00200H SEC SBC ENWRK6,X STA R6 M_CHIP MULTIPLY LDX ENMDCK JSR AWAFK_OBJCHK TXY LDA SHOT_EN_KILL_S2 ; AWAFK_OBJCHK EQU $ LDA ENCBFG,X AND #00001 BEQ AWAFK_OCHK0100 LDY PLYSPD+1 ;プレイヤー上昇中 ? BMI AWAFK_OCHK0080 ; yes: AWAFK_OCHK0080 LDY PLEATFG ;プレイヤー食われてる ? BEQ AWAFK_OCHK0100 ; no: AWAFK_OCHK0100 AWAFK_OCHK0080 EQU $ JMP AWAFK_OCHK0500 AWAFK_OCHK0100 EQU $ LDA #00006 ;プレイヤー横チェックＯＫ ? STA R0 ; LDA #00200H ; SEC ; SBC ENWRK6,X ; STA R6 ; ; M_CHIP MULTIPLY ; ; LDX TROBJ_SR_4x4 ;回転エリア確保ＯＫ ? BCC AWAFK_OCHK0200 ; no: AWAFK_OCHK0200 LDA #00004 STA ENCHPT,X AWAFK_OCHK0200 EQU $ LDY #002 STY PLFLST AWAFK_OCHK0500 EQU $ CPX PONLFFG BNE AWAFK_OCHK0700 AWAFK_OCHK0600 EQU $ STZ PONLFFG AWAFK_OCHK0700 EQU $ LDA #0111010010000000B ;食える STA ENMOD0,X RTS ; AWAFK_ROT_SET EQU $ LDY ENTROB,X BMI AWAFK_R_SET0800 LDA ENWRK6,X ;(R11) <- Ｙ倍率セット STA R11 ; LDA #00200H ;(R6) <- Ｘ倍率セット SEC ; SBC ENWRK6,X ; STA R6 ; LDA #BANK CIPCHD+3050H+000 ;chara data bank set STA R13 LDA #CIPCHD+3050H+000 ;chara data address set STA R12 LDA #00008H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; ASL A ;(R9) <- 中心Ｙ　ＰＯＳ． STA R9 ; LDY ENTROB,X TYX LDA >TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY_16 LDX TROBJ_CLEAR AWAFK_R_SET0800 EQU $ RTS ; AWAFK_S0_XSPD EQU $ WORD 0FF00H,00100H ; AWAFK_SUB0 EQU $ TYX LDA ENCBFG,X ;地面に着いてる ? AND #00001 ; BEQ AWAFK_SUB0300 ; yes: AWAFK_SUB0300 LDA #0000100001000001B ;行ったり来たりする STA ENMOD1,X BRA AWAFK_SUB0500 AWAFK_SUB0300 EQU $ INC ENTIM0,X AWAFK_SUB0500 EQU $ LDA ENTIM0,X BNE AWAFK_SUB0800 LDA ENINSR_I ELSE JSL >ENINSR ENDIF BCC AWAFK_SUB2800 LDA ECENTX,X CLC ADC SOUND_3_ON AWAFK_SUB2800 EQU $ RTS ; AWAFK_S3_ZADD EQU $ WORD 0FFF0H,00020H AWAFK_S3_ZCMP EQU $ WORD 00100H,001C0H ; AWAFK_SUB3 EQU $ TYX LDY TROBJ_SR_4x4_CL M_CHIP EGGSEARCH LDX ENINSR BCC KAMO0IN0700 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X STA ENYPSL,Y LDA ENMUKI,X STA ENMUKI,Y LDA ENMDCK JSR KAMO0_CHKPOS_C STZ TROBJ_OAM_4x4_I IDX8 KAMO0_O_SET0800 EQU $ RTS ; KAMO0_CHKPOS_C EQU $ LDA #00010H STA R0 LDA ENWRK6,X STA R6 M_CHIP MULTIPLY LDX TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY LDX ENDEATH_SET_4 BRA KAMO0_IJIME KAMO0_O_CHK0800 EQU $ RTS ; KAMO0_O_CHK1000 EQU $ LDA PLBGCR ;プレイヤー頭打ってる ? AND #0000000000011000B ; BNE KAMO0_O_CHK1600 ; yes: KAMO0_O_CHK1600 LDY PLYSPD+1 ;プレイヤーに踏まれた ? BMI KAMO0_O_CHK1500 ; LDY PLJUMP ; BEQ KAMO0_O_CHK1500 ; LDA EPWIDY,X ; SEC ; SBC EWIDEY,X ; SEC ; SBC PWIDEY ; CMP #0FFF8H ; BCC KAMO0_O_CHK1500 ; no: KAMO0_O_CHK1500 IF PAL ;*** PAL 対応 [1995/7/20] ****************** LDA #0F931H STA PLYSPD ELSE ;*** JPN/NES 対応 [1995/6/30] ************** LDA #0FA00H STA PLYSPD ENDIF ;*** PAL 対応 [1995/7/20] ****************** LDA #P006 STA PLJUMP STZ PLSPJP STZ PLDOSN ; LDA #FSMK0 ; JSL >EXINSR ; ; LDA PCENTX ; STA EXXPSL,Y ; LDA ECENTY,X ; SEC ; SBC EWIDEY,X ; SEC ; SBC #00008 ; STA EXYPSL,Y ; LDA #00004 ; STA EXTIM0,Y ; LDA #00006 ; STA EXCHPT,Y ; STA EXWRK0,Y LDA #0001CH ;［Ｓ］ JSL >SOUND_3_ON KAMO0_IJIME EQU $ LDA #00006 STA ENCHPT,X STA ------------------- STZ ENSHOT,X ;ショット解除 JSL >EGGSET KAMO1MVFFFF EQU $ JMP KAMO1MV0050 ; KAMO1MV0000 EQU $ LDA ENGPOW,X CMP #040H BCC KAMO1MV0001 ;パワーショット？ ( yes:KAMO1MV0001 ) JMP KAMO1MV0050 ; KAMO1MV0001 EQU $ LDA EPWIDX,X STA R1 ;(R1) <-- Ｘ距離 LDA EPWIDY,X STA R2 ;(R2) <-- Ｙ距離 M_CHIP M_RAD_GET LDX SIN,X ASL A ASL A BMI KAMO1MV00080 LDY #02H KAMO1MV00080 EQU $ STA COS,X ASL A ASL A ; I8 ; LDX EGG_SP_CHECK ; LDA ------------------- JSL >EGGSET ; KAMO1MV0230 EQU $ LDY EGG_OPTION ;[ (Y) <-- オプションポインター ] ; ;---------------------------------------------------------------- ;- オプションかるがもパターンセット - ;---------------------------------------------------------------- LDA ENXPSL,X SEC SBC ENXP2L STA ENMDCK JSR ZSABO_COND_CHK JSR ZSABO_OBJ_CHK LDY TROBJ_OAM_4x4 ; LDA SHOT_EN_KILL_S ZSABO_O_CHK1800 EQU $ RTS ; ZSABO_COND_CHK EQU $ LDY TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_RTZ_32_XY LDX TROBJ_SR_4x4 BCC ZSABO_SUB0800 STZ ENWRKC,X INC ENCHPT,X INC LOCKON_TARGET INC LOCKON_TARGET RTS ; ZSABO_SUB4 EQU $ TYX LDA ENWRK6,X SEC SBC #00010H CMP #000E0H BPL ZSABO_SUB4000 LDA EXINSR LDA ECENTX,X SEC SBC R0 STA ENINSR_I BCC ZSABO_SUB4400 LDA LOCKON_TARGET2 INC TROBJ_CLEAR STZ ENCHPT,X LDA #00040H*5 ;ストップタイマーセット STA ENTIM0,X ; INC EXINSR LDA ECENTX,X STA EXXPSL,Y LDA ECENTY,X CLC ADC TROBJ_SR_4x4 BCC ZSABO_SUB8800 INC ENCHPT,X LDA #00020H STA ENTIM0,X STZ ENWRKC,X ;ターゲットカウンタークリア LDA #00002 STA SOUND_3_ON LOCKON_T0300 EQU $ LDA #NAG_P JSL >EXINSR LDA PCENTX ;Ｘ座標セット SEC ; SBC #00008 ; STA EXXPSL,Y ; LDA PCENTY ;Ｙ座標セット SEC ; SBC #00008 ; STA EXYPSL,Y ; LDA ENMDCK ; LDY EXINSR LDA ENXPSL,X STA EXXPSL,Y LDA ENYPSL,X STA EXYPSL,Y LDA #00005 STA EXCHPT,Y LDA #00001 STA EXTIM0,Y RTS STAMA_EX_SET040 EQU $ CMP #STAMA BEQ STAMA_EX_SET050 CMP #HSAN1 BEQ STAMA_EX_SET080 LDA #00008 STA ENTIM1,X STAMA_EX_SET050 EQU $ LDA #DSMK0 JSL >EXINSR LDA ENXPSL,X STA EXXPSL,Y LDA ENYPSL,X STA EXYPSL,Y LDA #00004 STA EXTIM0,Y INC A ;[ LDA #005 ] STA EXCHPT,Y STA EXWRK0,Y INC A ;[ LDA #06 ] STA EXYUSN,Y STAMA_EX_SET080 EQU $ RTS ; HSAN1_OBJ_CHK EQU $ LDY ECRSFG,X ;敵とあたった ? DEY ; BMI STAMA_O_C0300 ; no: STAMA_O_C0300 LDA ENMODE,Y CMP #EMOVE BNE STAMA_O_C0700 LDA ENSHOT,Y BEQ STAMA_O_C0700 TYX JSL >ENDEATH_SET_4 STAMA_FALL_SET EQU $ PLA JMP >ENDEATH_SET_4 ; ; STZ ENXSPD,X ; LDA #0FE00H ; STA ENYSPD,X ; LDA #00040H ; STA ENGPOW,X ; LDA #00400H ; STA ENGMAX,X ; STZ ENMOD1,X ;ＢＧチェックなし ; INC PLFLST STAMA_O_C0700 EQU $ STAMA_BGCHK0000 EQU $ RTS ; ENBGCK_ADR EQU $ WORD ENBGCK_TYPE_F-ENBGCK_TYPE_L WORD ENBGCK_TYPE_H-ENBGCK_TYPE_L WORD ENBGCK_TYPE_R-ENBGCK_TYPE_L WORD ENBGCK_TYPE_L-ENBGCK_TYPE_L ; GENKI_S_XSPD EQU $ WORD 00200H,0FE00H ; STAMA_BGCHK EQU $ LDY ENBGCK_TYPE_L,X AND #1111100000000000B CMP #ET BNE STAMA_BGCHK0800 LDA >ENBGCK_X_L,X STA BGXPS1 LDA >ENBGCK_Y_L,X STA BGYPS1 I8 LDX AWANH_BGBR0_SET STAMA_BGCHK0800 EQU $ I8 LDX ENBGCK_TYPE_L,X ; AND #SK ; BNE STAMA_BGCHK0800 ; yes: STAMA_BGCHK0800 I8 LDX ENINSR BCC GENKI_S_SET0800 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X STA ENYPSL,Y LDA #0000BH STA ENWRK0,Y INC A ;[ LDA #0000CH ] STA ECNTYW,Y LDA #00003 STA ENTIM1,Y INC A ;[ LDA #00004 ] STA EWIDEY,Y LDY #002 GENKI_S_SET0100 EQU $ PHY LDA !GENKI_S_XSPD,Y STA ENINSR_I BCC GENKI_S_SET0500 LDA ENXPSL,X STA ENXPSL,Y STA ENWRKC,Y LDA ENYPSL,X STA ENYPSL,Y LDA SOUND_3_ON ;;;;;;;; LDA #00016H ;［Ｓ］ ;;;;;;;; STA SOUND3 PLA JMP >ENCLEAR ; ;************************************************************************ ;* initial ( zoom flower ) * ;************************************************************************ ZFLWRIN EQU $ ;-- zflwrin -- LDA ENWRKA,X BNE ZFLWRIN0100 CMP ENWRKC,X BEQ ZFLWRIN0200 ZFLWRIN0100 EQU $ STA EXIST_CHECK_S BRA ZFLWRIN0300 ZFLWRIN0200 EQU $ JSL >EXIST_CHECK ZFLWRIN0300 EQU $ LDA ENTROB,X BPL ZFLWRIN0500 JSL >TROBJ_SR_4x4_CL LDA #00100H ;初期倍率セット STA ENWRK6,X JSR ZFLWR_ROT_SET_I BRA ZFLWRIN0800 ZFLWRIN0500 EQU $ JSL >TROBJ_OAM_4x4 ZFLWRIN0800 EQU $ JSL >ICE_IN_CK ;;;;;;;; LDA #00016H ;［Ｓ］ ;;;;;;;; JSL >SOUND_3_ON RTL ; ;************************************************************************ ;* move ( zoom flower ) * ;************************************************************************ ; ENWRK0 ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 キャラパターンフラグ ; ENWRK6 倍率 ; ENWRK8 回転角 ; ENWRKA チェックＸ　ＰＯＳ． ; ENWRKC チェックＹ　ＰＯＳ． ; ; ENTIM2 メッセージロックタイマー ; ZFLWR_SUB EQU $ WORD ZFLWR_SUB0 WORD ZFLWR_SUB1 WORD ZFLWR_SUB2 WORD ZFLWR_SUB3 ; ZFLWR_CHAR EQU $ WORD CIPCHD+4010H+000 WORD CIPCHD+4020H+000 ; ZFLWRMV EQU $ ;-- zflwrmv -- JSL >TROBJ_OAM_4x4 JSL >ENMDCK ; ldy #004 ; sty 2100h TXY LDA TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; PLP BEQ ZFLWR_R_SET0600 M_CHIP C_32_ROTZOM BRA ZFLWR_R_SET0700 ZFLWR_R_SET0600 EQU $ M_CHIP C_32_ROTZOM_16 ZFLWR_R_SET0700 EQU $ LDX ENDEATH_SET_4 ZFLWR_CRCHK0300 EQU $ JSL >FLOWER_GET2 RTS ; FLOWER_GET EQU $ PHB PHK PLB IF BUG00 ;*** NES 対応（バグ修正）[1995/7/13] ****************** PHD ;(D) save LDA #EN0RAM TCD LDY FLOWER_GET2 FLOWER_GET0800 EQU $ PLD ;(D) load ELSE ;*** JPN 対応 [1995/6/30] ****************** LDY FLOWER_GET2 FLOWER_SET0800 EQU $ ENDIF ;*** NES 対応（バグ修正）[1995/7/13] ****************** ;*** JPN 対応 [1995/6/30] ****************** PLB RTL ; FLOWER_GET2 EQU $ LDA #00020H ;メッセージロックタイマーセット STA ENTIM2,X ; LDA #000FFH STA ENYUSN,X INC PL_1UP_SET LDA #00008 ;［Ｓ］ BRA ZFLWR_CRCHK0500 ZFLWR_CRCHK0400 EQU $ LDA #00036H ;［Ｓ］ ZFLWR_CRCHK0500 EQU $ JSL >SOUND_3_ON LDA #FUSNB JSL >EXINSR LDA ENXPSL,X STA EXXPSL,Y LDA ENYPSL,X STA EXYPSL,Y LDA #0000BH STA EXWRK0,Y LDA #00004 STA EXTIM0,Y LDA ENWRKA,X BNE ZFLWR_CRCHK0600 CMP ENWRKC,X BEQ ZFLWR_CRCHK0700 ZFLWR_CRCHK0600 EQU $ STA NON_EXIST_SET2 ZFLWR_CRCHK0700 EQU $ JMP >NON_EXIST_SET ; ZFLWR_SUB3 EQU $ ZFLW2_SUB3 EQU $ TYX LDA ENTIM2,X BNE ZFLWR_SUB3800 LDA SV_STATUS ;メッセージを出す ? AND #00040H ; ORA MAPOINT ; BNE ZFLWR_SUB3500 ; no: ZFLWR_SUB3500 LDA SV_STATUS ORA #00040H STA SV_STATUS LDA #FWR_MSG STA >MSG_NO INC MSGMOD ZFLWR_SUB3500 EQU $ JSL >ENCLEAR_NORETN ZFLWR_SUB3800 EQU $ RTS ; ;************************************************************************ ;* initial ( zoom flower 2 ) * ;************************************************************************ ZFLW2IN EQU $ ;-- zflw2in -- JSL >EXIST_CHECK JSL >ICE_IN_CK ;;;;;;;; LDA #00016H ;［Ｓ］ ;;;;;;;; JSL >SOUND_3_ON RTL ; ;************************************************************************ ;* move ( zoom flower 2 ) * ;************************************************************************ ; ENWRK0 ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 ; ENWRK6 ; ENWRK8 ; ENWRKA チェックＸ　ＰＯＳ． ; ENWRKC チェックＹ　ＰＯＳ． ; ; ENCONT キャラパターンチェンジ方向フラグ ; ; ENTIM1 キャラパターンチェンジタイマー ; ENTIM2 メッセージロックタイマー ; ZFLW2_SUB EQU $ WORD ZFLW2_SUB0 ;画面内チェック WORD ZFLW2_SUB1 ;ズームアップ WORD ZFLW2_SUB2 ;衝突待ち WORD ZFLW2_SUB3 ;メッセージセット ; ZFLW2MV EQU $ ;-- zflw2mv -- JSL >ENMDCK ; ldy #004 ; sty 2100h TXY LDA TROBJ_SR_4x4_CL LDA #00100H STA ENWRK6,X STA ENWRK8,X JSR SW000_ROT_SET_I LDA #0000CH STA EWIDEX,X LDA #00012H STA EWIDEY,X RTL ; ;************************************************************************ ;* move ( スイッチ ) * ;************************************************************************ ; ENWRK0 ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 ; ENWRK6 横倍率 ; ENWRK8 縦倍率 ; ENWRKA ; ENWRKC ; ; ENTIM0 スイッチ有効タイマー ; ENTIM1 サウンドＯＮタイマー ; SW000_SUB EQU $ WORD DUMMY_SUB ; WORD SW000_SUB1 ;縮む WORD SW000_SUB2 ;戻る WORD SW000_SUB3 ;タイマー管理 ; SW000MV EQU $ ;-- sw000mv -- LDY TROBJ_OAM_4x4 ;;;;;;;; JSL >ENMDCK JSR SW000_PLCHK SW000MV0100 EQU $ TXY LDA SOUND_3_ON SW000_PLCHK0800 EQU $ RTS ; SW000_ROT_SET EQU $ LDY ENWRK2,X BEQ SW000_R_SET0800 CPY #003 BPL SW000_R_SET0800 SW000_ROT_SET_I EQU $ LDA #00C00H ;Ｘチェック幅 STA R0 ; LDA #01200H ;Ｙチェック幅 STA R1 ; LDA ENWRK8,X ;(R11) <- 縦倍率セット STA R11 ; LDA ENWRK6,X ;(R4,R6) <- 横倍率セット STA R4 ; STA R6 ; LDA #BANK CIPCHD+00C0H+001 ;chara data bank set STA R13 LDA #CIPCHD+00C0H+001 ;chara data address set STA R12 LDA #00010H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; ASL A STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． LDY ENTROB,X TYX LDA >TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP M_SW000_SET ;;;;;;;; M_CHIP C_32_ZOOM_XY LDX SOUND_3_ON ;;;;;;;; LDA #0000BH ;［Ｓ］ ;;;;;;;; STA SOUND0 INC FSMK0_SET2 LDA #040H*10 ;スイッチ有効タイマーセット（１０秒） STA SWITCH_TIMER ; LDA #000FFH STA ENYUSN,X LDA #PMOV STA PLMODE LDA #P006 STA PLJUMP IF PAL ;*** PAL 対応 [1995/7/20] ****************** LDA #0F931H STA PLYSPD LDA #00122H LDY ENWRKA+1,X BPL SW000_SUB2500 LDA #0FEDEH SW000_SUB2500 EQU $ STA PLXSPD ELSE ;*** JPN/NES 対応 [1995/6/30] ************** LDA #0FA00H STA PLYSPD LDA #00100H LDY ENWRKA+1,X BPL SW000_SUB2500 LDA #0FF00H SW000_SUB2500 EQU $ STA PLXSPD ENDIF ;*** PAL 対応 [1995/7/20] ****************** STA PLMVSP STZ ENSTFG STZ PLSTFG STZ ONLFFG LDA #0010000000000001B ;範囲クリアなし STA ENMOD2,X JSL >TROBJ_CLEAR INC ENCLEAR ; SW000_SUB3500 EQU $ ;;;;;;;; CMP #00020H ;;;;;;;; BNE SW000_SUB3800 ;;;;;;;; LDA #00001 ;［Ｓ］ ;;;;;;;; JSL >SOUND_3_ON ;;;;;;;; LDA #00024H ;［Ｓ］ ;;;;;;;; STA SOUND3 SW000_SUB3800 EQU $ LDA ENTIM1,X ;サウンド立てる ? BNE SW000_SUB3900 ; no: SW000_SUB3900 LDA #00040H STA ENTIM1,X LDY #07EH LDA SWITCH_TIMER ;３秒以下 ? CMP #040H*3 ; BPL SW000_SUB3880 ; no: SW000_SUB3880 INY SW000_SUB3880 EQU $ TYA JSL >SOUND_3_ON SW000_SUB3900 EQU $ RTS ; ;************************************************************************ ;* initial ( まとくん ) * ;************************************************************************ MATO0IN EQU $ ;-- mato0in -- JSL >TROBJ_SR_4x4_CL LDA #00100H ;初期倍率セット STA DOKAN_CHECK ;セット位置は土管 ? BNE MATO0IN0500 ; no: MATO0IN0500 LDA ENCLOR,X ;ＢＧ１の後ろに EOR #00030H ; STA ENCLOR,X ; LDA ENYPSL,X ;出現Ｙ　ＰＯＳ．セット CLC ; ADC #00010H ; STA ENYPSL,X ; SEC ;セット規準Ｙ　ＰＯＳ．セット SBC #00020H ; STA ENWRKC,X ; LDA ENXPSL,X ; CLC ADC #00008 STA ENXPSL,X BIT #00010H ;単体セット ? BEQ MATO0IN0100 ; yes: MATO0IN0100 STA ENWRKA,X MATO0IN0100 EQU $ INC ENWRKA,X RTL MATO0IN0500 EQU $ JSR MATO0_BASE_YPS LDA TROBJ_OAM_4x4 LDA ENMODE,X ; CMP #EMOVE ; BEQ MATO0MV0080 ; CMP #EEATM ;プレイヤーに食われてる ? BNE MATO0MV0040 ; no: MATO0MV0040 LDY ENYUSN,X ;プレイヤーの口の中 ? BPL MATO0MV0080 ; no: MATO0MV0080 LDA ENMDCK MATO0MV0091 EQU $ JSR MATO0_DISPCK LDY ENYUSN,X BMI MATO0MV0100 JSR MATO0_BGCHK JSR MATO0_OBJ_CHK MATO0MV0100 EQU $ TXY LDA DISPCK2 ;画面外 ? BCS MATO0_BGCHK0800 ; yes: MATO0_BGCHK0800 MATO0_DISPCK080 EQU $ MATO0_BGCHK0000 EQU $ MATO0_O_CHK0000 EQU $ RTS ; MATO0_BGCHK EQU $ LDY FSMK0_SET2 JSL >TIMKN_3_SET M8 LDA #0FFH STA ENRETN,X M16 MATO0_BGCHK0800 EQU $ ;＊DISPCKに関係有り JSR MATO0_CLEAR PLA ;直接ＲＴＬ RTL ; MATO0_KORO_XSPD EQU $ WORD 00200H,0FE00H STEP_SOUND EQU $-1 HEX 0C,0D,0E,0F,10,11,12 ; MATO0_OBJ_CHK EQU $ LDA ENMOD0,X ;オブジェチェックする ? AND #0000011000000000B ; BEQ MATO0_O_CHK0000 ; no: MATO0_O_CHK0000 LDY ECRSFG,X ;衝突した ? BPL MATO0_O_CHK0500 ; no: MATO0_O_CHK0500 LDA ENTIM3,X ;プレイヤーチェックロック ? BNE MATO0_O_CHK0500 ; yes: MATO0_O_CHK0500 JSL >PLFLST MATO0_O_CHK0500 EQU $ TXA STA R1 M_CHIP MY_ENCROS2 LDX CHIPON MATO0_O_CHK1200 EQU $ LDX SHOT_EN_KILL STZ ENMOD1,X ;ＢＧチェック無しに PLP ;ＭＡＸ投げ ? BMI MATO0_TO_GORO ; yes: MATO0_TO_GORO JMP MATO0_TO_FALL MATO0_TO_GORO EQU $ LDA #0000000000000011B ;ＢＧチェック有りに STA ENMOD1,X LDY TROBJ_SR_4x4 MATO0_O_CHK1600 EQU $ LDY #MATO0_RMODE20 STY SOUND_3_ON LDA #0FC00H STA ENYSPD,X LDA #00060H STA ENGPOW,X LDA #00001 STA ENSHOT,X JSR MATO0_LINK_RMK MATO0_O_CHK2000 EQU $ RTS MATO0_O_CHK2100 EQU $ LDX #BANK MY_ENCROS2 LDA R15 JSL >CHIPON MATO0_O_CHK2200 EQU $ LDX SOUND_3_ON JMP MATO0_O_CHK2100 ; ; MATO0_TO_FALL EQU $ LDA #0110100001100010B ;オブジェチェックなし STA ENMOD0,X ; STZ ENMOD1,X ;ＢＧチェック無しに LDA TROBJ_SR_4x4 MATO0_T_F0500 EQU $ LDY #MATO0_RMODE20 STY ENCLEAR MATO0_CLEAR030 EQU $ SEC ;セット位置は画面外 ? SBC ESCCH1 ; CLC ; ADC #00040H ; CMP #00100H+040H*2 ; BCS MATO0_CLEAR020 ; ; LDA ENWRKC,X ; SEC ; SBC ESCCV1 ; CLC ; ADC #00040H ; CMP #00100H+040H*2 ; BCS MATO0_CLEAR020 ; yes: MATO0_CLEAR020 LDA ENWRKA,X STA ENXPSL,X LDA ENWRKC,X CLC ADC #00020H STA ENYPSL,X STZ ENGPOW,X LDA ENCLOR,X ;ＢＧ１の後ろに EOR #00030H ; STA ENCLOR,X ; STZ TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY INC OBM7WF ;mode 7 OBJ chara DMA "ON" PLA STA R6 LDA #0000AH*2 STA R0 M_CHIP MULTIPLY LDX TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- M_CHIP C_32_ROTZOM LDX ENINSR BCC MATO0_SUB11800 LDA ENWRKA,X STA ENXPSL,Y LDA ESCCV1 SEC SBC #00020H STA ENYPSL,Y LDA #00060H STA ENGPOW,Y LDA ENTROB,X STA ENTROB,Y LDA ENWRKA,X STA ENWRKA,Y LDA ENWRKC,X STA ENWRKC,Y LDA #MATO0_RMODE30 STA ENWRK2,Y LDA ENXMAX,X ;発生フレーム伝承 STA ENXMAX,Y ; M8 LDA ENRETN,X STA ENRETN,Y LDA #0FFH ;上のやつのインデックスクリア STA ENWRK0,Y ; LDA ENWRK0,X ;上のやついる ? BMI MATO0_SUB11700 ; no: MATO0_SUB11700 TAX MATO0_SUB11700 EQU $ TXA ;下のやつのインデックスセット STA ENWRK1,Y ; TYA ;上のやつのインデックスセット STA ENWRK0,X ; LDX TROBJ_SR_4x4_CL LDY MAPOINT ;1-1 ? BNE MBALLIN0080 ; no: MBALLIN0080 LDY CORSNO ;地下コース ? CPY #001 ; BEQ MBALLIN0100 ; yes: MBALLIN0100 BRA MBALLIN0300 MBALLIN0080 EQU $ CPY #028H ;4-5 ? BNE MBALLIN0300 ; no: MBALLIN0300 LDY MBALLLOCK ;１個目 ? BEQ MBALLIN0100 ; yes: MBALLIN0100 JMP >ENCLEAR MBALLIN0100 EQU $ INC MBALLLOCK LDA #0010000000000001B ;範囲クリアなし STA ENMOD2,X LDA ENCLOR,X ;アトリビュート４に AND #0FFF0H ORA #00008H STA ENCLOR,X MBALLIN0300 EQU $ JSR MBALL_ROT_SET LDA #0000CH STA EWIDEX,X STA EWIDEY,X RTL ; ;************************************************************************ ;* move ( move ball ) * ;************************************************************************ ;B ENWRK0 プレイヤーＯＮフラグ ;B ENWRK1 プレイヤー横あたりフラグ ; ENWRK2 プレイヤー補正中のＸ　ＰＯＳ．の小数値 ; ENWRK4 サウンドセットカウンター ; ENWRK6 進行方向キーチェックデータ ; ENWRK8 回転角 ; ENWRKA プレイヤーパターンチェンジカウンター ; ENWRKC ＢＧチェック用インデックス ; ; ENCONT ENYSPD セーブ ; ; ENTIM0 ; ENTIM1 重力無効タイマー ; ENTIM2 USE ; ENTIM3 ; MBALLMV EQU $ ;-- mballmv -- JSL >DISPCK2 ;画面外 ? BCC MBALLMV0100 ; no: MBALLMV0100 JSR MBALL_BGDTMK JSR MBALL_BGCHK ;ＢＧチェック JSR MBALL_SLOPE ;坂チェック JSR MBALL_ROTANG ;回転角計算 RTL MBALLMV0100 EQU $ JSL >TROBJ_OAM_4x4 JSL >ENMDCK STZ ENMUKI,X JSR MBALL_BGDTMK JSL >MBALL_ENCHK ;敵チェック JSR MBALL_PLCHK ;プレイヤーチェック JSR MBALL_BGCHK ;ＢＧチェック JSR MBALL_SLOPE ;坂チェック JSR MBALL_ROTANG ;回転角計算 JSR MBALL_ROT_SET ;ビットマップセット JSR MBALL_SOUND ;ごろごろ音セット STZ ENGPOW,X LDA ENTIM1,X ;重力無効中 ? BNE MBALLMV0500 ; yes: MBALLMV0500 LDA #00040H STA ENGPOW,X MBALLMV0500 EQU $ JSR MBALL_EAT_FLAG LDA #0100000000001110B ;ＢＧチェックサイズ変更 STA ENMOD1,X ; LDA ENSLOP,X ; ;坂か ? AND #000FFH ; ; TAY ; ; BEQ MBALLMV0800 ; ; no: MBALLMV0800 BPL MBALLMV0600 ; ; ORA #0FF00H ; ; MBALLMV0600 EQU $ ; EOR ENXSPD,X ; BMI MBALLMV0800 ; ; LDA #0100000000010000B ; STA ENMOD1,X ; MBALLMV0800 EQU $ RTL ; ; MBALL_BGCHK_DT EQU $ WORD 0FFFAH,00016H MBALL_BGMAKE_DT EQU $ WORD 00008H,00004H MBALL_BGIDX EQU $ WORD 00000H,00008H ; MBALL_BGDTMK EQU $ LDY #000 LDA ENXSPD,X BMI MBALL_BGDTMK010 INY INY MBALL_BGDTMK010 EQU $ LDA !MBALL_BGIDX,Y STA ENBGCK_X_L,X LDA CCWORK1 STA >ENBGCK_Y_L,X LDA R7 STA >ENBGCK_TYPE_L,X LDA R6 STA >ENBGCK_UNIT_L,X I8 LDX PLFLST RTS MBALL_PLCHK0500 EQU $ STX YGOROFLG BRA MBALL_PLCHK0520 MBALL_PLCHK0510 EQU $ STX MBALLFLG MBALL_PLCHK0520 EQU $ JSL >YUKID_PLCHK3 RTS ; MBALL_PL_REVISE EQU $ LDA TAMA_NORI_XREV PLA PHA SEC SBC PLXPSL EOR #0FFFFH INC A STA YUKID_PL_REV2 PLA STA ENXSPD,X PLA STA PLXSPD RTS MBALL_PLCHK1700 EQU $ JMP MBALL_FARAWAY ; MBALL_VS_PLXSPD EQU $ IF PAL ;*** PAL 対応 [1995/7/20] ****************** WORD 0048AH,0FB76H ELSE ;*** JPN/NES 対応 [1995/6/30] ************** WORD 00400H,0FC00H ENDIF ;*** PAL 対応 [1995/7/20] ****************** ; MBALL_PLCHK2 EQU $ LDA ENWRK6,X LDY ENMYNO,X CPY #MBALL BEQ MBALL_PLCHK2040 LDA ENWRKC,X MBALL_PLCHK2040 EQU $ STA YUKID_PL_REVISE LDA PLNAGE ;プレイヤー投げてる ? ORA BERFLG ;プレイヤー舌を出してる ? BNE MBALL_PLCHK2C00 ; yes:MBALL_PLCHK2C00 LDA PLXSPD BPL MBALL_PLCHK2480 EOR #0FFFFH INC A MBALL_PLCHK2480 EQU $ AND #0FF00H XBA SEC ADC ENXPOW,X LDY EPXMUK,X BEQ MBALL_PLCHK2500 EOR #0FFFFH INC A MBALL_PLCHK2500 EQU $ CLC ADC ENXSPD,X STA CHIPON MBALL_ENCHK0200 EQU $ LDX ENDEATH_SET_4 PLX LDA ENMODE,X ;あたってきたやつ往生してくれた ? CMP #EFALL ; BNE ENMY_PUCHI0400 ; no: ENMY_PUCHI0400 LDY #000 ;目標物は右 ? LDA CCWORK0 ; BPL ENMY_PUCHI0200 ; yes: ENMY_PUCHI0200 INY INY ENMY_PUCHI0200 EQU $ LDA !EN_XSPD,Y STA ENXSPD,X ENMY_PUCHI0400 EQU $ MBALL_M_C0000 EQU $ RTS ; MBALL_MBALL_CHK EQU $ LDA EWIDEY,X ASL A STA ENBGCK_X_L,X STA BGXPS1 LDA >ENBGCK_Y_L,X STA BGYPS1 LDA >ENBGCK_TYPE_L,X ;食べれるＢＧ ? AND #1111100000000000B ; CMP #ET ; BNE MBALL_C_SB0100 ; no: MBALL_C_SB0100 I8 JSL >AWANH_BGBR0_SET BRA MBALL_C_SB0300 IDX16 MBALL_C_SB0100 EQU $ LDA >ENBGCK_UNIT_L+1,X ;２度当てブロック ? AND #000FFH ; CMP #UT7B00/100H ; BNE MBALL_C_SB0200 ; no: MBALL_C_SB0200 I8 JSL >CLR_BG_4 BRA MBALL_C_SB0300 IDX16 MBALL_C_SB0200 EQU $ CMP #UT7C00/100H ;とげとげブロック ? BNE MBALL_C_SB0800 ; no: MBALL_C_SB0300 I8 JSL >TOGEBLK_BRK IDX16 MBALL_C_SB0300 EQU $ LDY UNITCHG LDA BGXPS1 CLC ADC #00010H STA BGXPS1 JSL >UNITCHG LDA BGYPS1 CLC ADC #00010H STA BGYPS1 JSL >UNITCHG PLA STA BGXPS1 JSL >UNITCHG PLA STA BGYPS1 LDX EXINSR LDA BGXPS1 ;Ｘ座標セット AND #0FFF0H STA EXXPSL,Y LDA BGYPS1 ;Ｙ座標セット AND #0FFF0H STA EXYPSL,Y LDA #0000DH ;初期パターンＮｏ．セット STA EXCHPT,Y LDA #00002 ;初期タイマーセット STA EXTIM0,Y LDA #00048H ;［Ｓ］ JSL >SOUND_3_ON ;;;;;;;; LDA #00018H ;［Ｓ］ ;;;;;;;; STA SOUND3 RTL ; ;---------------------------------------------------------------- ;- - ;- とげとげＢＧを壊す - ;- - ;- BGXPS1 Ｘ座標 - ;- BGYPS1 Ｙ座標 - ;- - ;---------------------------------------------------------------- TOGEBLK_BRK EQU $ LDA #TGTM STA BGCGNO JSL >UNITCHG LDX EXINSR LDA BGXPS1 ;Ｘ座標セット AND #0FFF0H STA EXXPSL,Y LDA BGYPS1 ;Ｙ座標セット AND #0FFF0H STA EXYPSL,Y LDA #0000CH ;初期パターンＮｏ．セット STA EXCHPT,Y LDA #00002 ;初期タイマーセット STA EXTIM0,Y LDA #0000AH ;［Ｓ］ JSL >SOUND_3_ON ;;;;;;;; LDA #00019H ;［Ｓ］ ;;;;;;;; STA SOUND3 RTL ; ;＊＊＊＊＊＊＊＊＜　坂チェック　＞＊＊＊＊＊＊＊＊＊＊ MBALL_XPOW_SLP EQU $ ; -10 -20 -30 WORD 00004H,00006H,00008H ; +30 +20 +10 WORD 00008H,00006H,00004H YGORO_XPOW_SLP EQU $ ; -10 -20 -30 WORD 00001H,00002H,00003H ; +30 +20 +10 WORD 00003H,00002H,00001H ; -10 -20 -30 WORD 00020H,00040H,00060H ; +30 +20 +10 WORD 00060H,00040H,00020H ; MBALL_XMAX_SLP EQU $ ; -10 -20 -30 WORD 00380H,00224H,001C0H ; +30 +20 +10 WORD 0FE40H,0FDDCH,0FC80H YGORO_XMAX_SLP EQU $ ; -10 -20 -30 WORD 00180H,000D2H,000A0H ; +30 +20 +10 WORD 0FF60H,0FF2EH,0FE80H ; -10 -20 -30 WORD 0FFB0H,0FF97H,0FF40H ; +30 +20 +10 WORD 0FF60H,0FF2EH,0FE80H ; -10 -20 -30 WORD 00180H,000D2H,000A0H ; +30 +20 +10 WORD 00050H,00069H,000C0H ; MBALL_SLOPE EQU $ YGORO_SLOPE EQU $ STZ ENXPOW,X LDA ENSLOP,X ;坂の上にいる ? AND #000FFH ; BEQ MBALL_BGCHK0 ; no: MBALL_BGCHK0 LDY #000 CMP #00080H BMI MBALL_S0200 ORA #0FF00H LDY #002 CLC ADC #00020H BRA MBALL_S0300 MBALL_S0200 EQU $ LDY #008H SEC SBC #00020H MBALL_S0300 EQU $ BEQ MBALL_S0500 BMI MBALL_S0400 DEY DEY BRA MBALL_S0500 MBALL_S0400 EQU $ INY INY MBALL_S0500 EQU $ LDA ENMYNO,X CMP #MBALL BEQ MBALL_S0600 PHY LDA EXINSR LDA #00008H STA EXWRK0,Y ;counter set LDA #00001H STA EXTIM0,Y LDA ENXPSL,X STA EXXPSL,Y ;X pos set LDA ENYPSL,X STA EXYPSL,Y ;Y pos set LDA ENXSPD,X STA EXXSPD,Y LDA ENYSPD,X STA EXYSPD,Y LDA #00037H ;［Ｓ］ JSL >SOUND_3_ON MBALL_BG1500 EQU $ RTS ; ;＊＊＊＊＊＊＊＊＜　回転角計算　＞＊＊＊＊＊＊＊＊＊＊ MBALL_ROTANG EQU $ LDA ENMOVX,X ASL A ASL A ASL A EOR #0FFFFH SEC ADC ENWRK8,X STA ENWRK8,X RTS ; ;＊＊＊＊＊＊＊＊＜　ビットマップエリアセット　＞＊＊＊＊＊＊＊＊＊＊ MBALL_ROT_SET EQU $ ;転送元アドレス＆バンクセット LDA #BANK CIPCHD3+6020H+000 ;(R13) <-- 転送元バンクセット STA R13 ; LDA #CIPCHD3+6020H+000 ;(R12) <-- 転送元アドレスセット STA R12 ; LDY ENWRK8,X ;(R5) <- 回転角セット TYA STA R5 ; LDA #00100H ;(R6) <- 倍率セット STA R6 ; LDY ENTROB,X TYX LDA >TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- M_CHIP C_32_ROTZOM LDX SOUND_3_ON PLA MBALL_SOUND020 EQU $ STA TROBJ_SR_8x8_CL LDY MAPOINT ;5-2 ? CPY #031H ; BNE YGOROIN0300 ; no: YGOROIN0300 LDA #1000000000000001B ;範囲クリアなし STA ENMOD2,X YGOROIN0300 EQU $ JSR YGORO_ROT_SET LDA #000B3H*8 ;初期倍率セット STA ENWRK6,X ; RTL ; ;************************************************************************ ;* move ( 雪ごろごろ ) * ;************************************************************************ ;B ENWRK0 プレイヤーＯＮフラグ ;B ENWRK1 プレイヤー横あたりフラグ ; ENWRK2 プレイヤー補正中のＸ　ＰＯＳ．の小数値 ; ENWRK4 サウンドセットカウンター ; ENWRK6 倍率 ; ENWRK8 回転角 ; ENWRKA プレイヤーパターンチェンジカウンター ; ENWRKC 進行方向キーチェックデータ ; ; ENTIM0 ; ENTIM1 重力無効タイマー ; ENTIM2 USE ; ENTIM3 ; ; YGOROFLG 雪ごろごろ用PONLFFG ; YGOROMV EQU $ ;-- ygoromv -- JSL >TROBJ_OAM_8x8 JSL >ENMDCK STZ ENMUKI,X JSL >MBALL_ENCHK JSR YGORO_PLCHK ;プレイヤーチェック JSR YGORO_SLOPE ;坂チェック JSR YGORO_ANG_CALC ;回転角計算 JSR YGORO_ROT_SET ;ビットマップセット JSR YGORO_SOUND JSR YGORO_EAT_FLAG RTL ; ;＊＊＊＊＊＊＊＊＜　回転角計算　＞＊＊＊＊＊＊＊＊＊＊ YGORO_ANG_CALC EQU $ TXA STA R10 M_CHIP M_YGORO_CALC LDX TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- M_CHIP C_64_ROTZOM_32 LDX