;************************************************************************ ;* * ;* title name : "yossy" * ;* proccess : enemy sub.1 * ;* file name : ys_enmy4 * ;* * ;************************************************************************ ; ; SALL ; include ys_header.inc include ys_unit.h include ys_pld.h include ys_ename.h include ../union/ys_bgcheck.h ; XALL ; ;------------------------------------------------------------------------ ;- global symbol - ;------------------------------------------------------------------------ GLB HBLK2IN,HBLK3IN,HBLK4IN GLB JBLK0IN,KANI0IN GLB DAI00IN,DAI01IN,DAI02IN,KIL00IN,KIL01IN GLB KIL02IN,ZBUB0IN,ZBUB1IN,WANG0IN GLB OSARUIN,KOROGIN,HBLK6IN,BLKLFIN GLB BLKL2IN GLB ZPACKIN,ZPAC2IN,BBROSIN GLB JBLKLIN,FUSENIN,ZPAC3IN,WARPSIN,NIKOPIN,NIKP2IN GLB NIKP3IN,BETO0IN,VOWVWIN,VOWV2IN,BAK20IN,BAK21IN GLB BAKLFIN,YUKIDIN,JBKL2IN,MSGBXIN,BTELEIN,HSAN0IN GLB NUNOOIN,RLTLFIN,RLTL2IN,RLTL3IN,POWSWIN,PKPK2IN GLB PKPK3IN GLB HBLK7IN ; GLB HBLK2MV,HBLK3MV,HBLK4MV GLB JBLK0MV,KANI0MV GLB DAI00MV,DAI01MV,DAI02MV,KIL00MV,KIL01MV GLB KIL02MV,ZBUB0MV,ZBUB1MV,WANG0MV GLB OSARUMV,KOROGMV,HBLK6MV,BLKLFMV GLB BLKL2MV GLB ZPACKMV,ZPAC2MV,BBROSMV GLB JBLKLMV,FUSENMV,ZPAC3MV,WARPSMV,NIKOPMV,NIKP2MV GLB NIKP3MV,BETO0MV,VOWVWMV,VOWV2MV,BAK20MV,BAK21MV GLB BAKLFMV,YUKIDMV,JBKL2MV,MSGBXMV,BTELEMV,HSAN0MV GLB NUNOOMV,RLTLFMV,RLTL2MV,RLTL3MV,POWSWMV,PKPK2MV GLB PKPK3MV GLB HBLK7MV ; GLB KIL00FL,KIL01FL,KIL02FL ; GLB ZOOM_PLCHK,ST_ENMY_REFRECT ; GLB TIMKN_3_SET,BBROS_CHECK,PKPK2_FALL GLB YUKID_PLCHK3,YUKID_PL_REVISE,YUKID_PL_REV2 ; GLB MPACK_DEMO_ED ; ; ; GLB HBLK5IN,HBLK5MV GLB COIN0IN,COIN0MV ; ; ; ;------------------------------------------------------------------------ ;- extern symbol - ;------------------------------------------------------------------------ ; ;-------------< sy_main >------------------------------------------------ EXT D_00,GMIN EXT SOUND_3_ON ; ;-------------< sy_rpro >------------------------------------------------ EXT JSRSUB EXT CHIPON,CHIPON_RAM_READ ; ;-------------< sy_play >------------------------------------------------ EXT TIMEUP_SET EXT EBSTAT EXT PFAL,PSTP,PMOV,PCLR,PGUS,PDEM,PRET EXT PFLP,PSHT EXT BERO_CANCEL ; ;-------------< sy_bgsc >------------------------------------------------ EXT UNITCHG EXT BGCG ; ;-------------< sy_enmy >------------------------------------------------ EXT ENEMY,ENINSB EXT ENCLEAR,ENCLEAR_NORETN,DISPCK0,DISPCK1,DISPCK2,DISPCK3 EXT ENINSR,ENINSR2,EEXCHK,EEYCHK,EEXYCK,ESTATST,ENINSR_I,ENINSR2_I EXT PLFLST_2,ENRINT EXT SCOREST EXT ENMDCK,XSDOWN,EPCRCK,MUKEOR,XSPEOR,MKEOR2,PLFLST EXT POBBGCR,BOBBGCR,POBBGCR_H EXT SHOT_EN_KILL,SHOT_EN_KILL_S EXT NAGE_POS_SET EXT ENFAIL0 EXT ENFAIL_FALL ; EXT EINIT,EFAIL,EMOVE,EEATM,ENOSE,EBABL,EFALL,EFIRE,ECHNG ; EXT EATMXS,NOSWT ; EXT EN_XYMOVE,EN_TIMER,ENDEATH_SET,ENDEATH_SET_2 EXT ENDEATH_SET_3,ENDEATH_SET_4,EGGKILL_ALL EXT PL_1UP_SET_P ; EXT EXIST_CHECK,EXIST_CHECK_S2,NON_EXIST_SET,NON_EXIST_SET2 ; EXT EGG00_MVINT,FSMK0_SET,FSMK0_SET2 EXT COIN1_END_SET ; 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 EXT TROBJ_PLOT_X,TROBJ_PLOT_Y ; ;-------------< sy_enmy2 >------------------------------------------------ EXT DEATH_RMODE4 ; EXT BGDATA_MAKE,NMZ_HOSEI,DOROB_SET ; EXT NLFLRIN,NLFUDIN ; ;-------------< sy_enmy3 >------------------------------------------------ EXT ICE_IN_CK EXT MKY_BABY_GET,MONKY_FAIL_SET EXT MKY_OKAJ EXT TO_COIN_CHANGE,EGG00_COL_SET ; ;-------------< sy_enmy5 >------------------------------------------------ EXT MPACK_START_ST EXT MPACK_START_ED ; ;-------------< sy_enmy6 >------------------------------------------------ EXT DOKAN_CHECK,DOKAN_CHECK2 ; ;-------------< sy_enmy8 >------------------------------------------------ EXT TRBOX_COIN_SET,TRBOX_TIME_SET EXT SHOT_EN_KILL_SP,SHOT_EN_KILL_S2 ; ;-------------< sy_enmy9 >------------------------------------------------ EXT DEATHENEMY ; ;-------------< sy_dorobo >------------------------------------------------ EXT DOROB_RMODE3 EXT DOROB_RMODE0 EXT DOROB_RMODE8 EXT POSITION_SAVE ; ;-------------< ys_babym >------------------------------------------------ EXT BABYM_RMODE00 EXT BABYM_RMODE10 EXT BABYM_RMODE38 EXT BABYM_RMODE40 EXT BABYM_RMODE50 EXT BABYM_RMODE51 EXT BABYM_RMODE52 EXT BABYM_RMODE60 EXT BABYM_RMODE61 EXT BABYM_RMODE70 EXT BABYM_RMODE71 ; EXT B_SP_RMODE20 ; EXT BABYM_SHABN_BRK EXT BABYM_SHABN_C2 EXT BABYM_SHABN_C3 EXT BABYM_SHABN_C7 ; ;-------------< sy_enmy14 >------------------------------------------------ EXT B_LOOP ; ;-------------< sy_exst >------------------------------------------------ EXT EXINSR ; ;-------------< sy_unit >------------------------------------------------ EXT UNDTADD,UNDATA,RUTDATA ; ;-------------< ys_data >------------------------------------------------ EXT SIN,COS ; ;-------------< ys_msgdt >----------------------------------------------- EXT CNFG_MSG ; ;------------------------------------------------------------------------ ;- define symbol - ;------------------------------------------------------------------------ BABY_INDEX EQU 00H ; ; ; ;************************************************************************ ;* * ;* program start * ;* * ;************************************************************************ ; EXTEND ; MEM16 IDX8 ; DPAGE EN0RAM ; Group_5 GROUP Enemy4_pro Enemy4_pro SECT REL ; ANGCAL_MUKI EQU $ STA EXIST_CHECK LDA ENMYNO,X SEC SBC #HBLK2 ASL A STA EGG00_COL_SET ;赤コインタマゴカラーセット ; HBLK3MV EQU $ ;-- hblk3mv -- HBLK4MV EQU $ ;-- hblk4mv -- STZ ENMUKI,X LDY ENCHPT,X ;回転エリア使ってる ? BEQ HBLK2MV0100 ; no: HBLK2MV0100 JSL >TROBJ_OAM_4x4 HBLK2MV0100 EQU $ JSL >ENMDCK ;mode check ; TXY LDA BOBBGCR LDY ONLFFG ; PHY ; JSL >POBBGCR_H ;足あたりチェック PLY ; CPY ONLFFG ;足あたった ? BNE HBLK2MV0A00 ; yes: HBLK2MV0A00 JSL >POBBGCR ;頭、左右チェック HBLK2MV0A00 EQU $ RTL ; HBLK2_ENCHK EQU $ LDY TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; CPY #004 BNE HBLK2_R_SET0700 LDA #00010H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． M_CHIP C_32_ZOOM_XY BRA HBLK2_R_SET0800 HBLK2_R_SET0700 EQU $ LDA #00008H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． M_CHIP C_32_ZOOM_XY_16 HBLK2_R_SET0800 EQU $ LDX TROBJ_SR_4x4 BCC HBLK2_SUB0500 INC ENCHPT,X HBLK2_SUB0500 EQU $ LDY TROBJ_CLEAR M8 LDA #0FFH STA ENRETN,X M16 TXY LDA ESTATST JSL >POSITION_SAVE PHX TYX JSL >EGG00_MVINT PLX PLA LDA #0003AH JMP >SOUND_3_ON ; ;************************************************************************ ;* initial ( ジャンプブロック ) * ;************************************************************************ JBLKLIN EQU $ ;-- jblklin -- JBKL2IN EQU $ ;-- jbkl2in -- LDA ENTROB,X BPL JBLKLIN0200 JSL >TROBJ_SR_4x4_CL INC ENCHPT,X LDA #00100H STA ENWRKA,X LDA #0FFF8H STA ENBGYP,X ;;;;;;;; LDA #00000 STZ ECNTYW,X LDA #0000CH STA EWIDEX,X STA EWIDEY,X LDY #002 JSL >JBLK0IN0100 BRA JBLKLIN0300 JBLKLIN0200 EQU $ JSL >TROBJ_OAM_4x4 JBLKLIN0300 EQU $ JSL >ICE_IN_CK LDA ENYPSL,X CLC ADC #00008 STA ENYPSL,X STA ENXMAX,X RTL ; JBLK0IN EQU $ ;-- jblk0in -- JSL >ICE_IN_CK LDY #000 JBLK0IN0100 EQU $ STY TROBJ_OAM_4x4 JBLK0MV0100 EQU $ JSL >ENMDCK ;mode check ; ; ldy #004h ; sty 2100h ; LDY #000 LDA ENMYNO,X ;大ブロック ? CMP #JBLK0 ; BEQ JBLK0MV0300 ; no: JBLK0MV0300 INY INY CMP #JBKL2 ;覚える ? BNE JBLK0MV0300 ; no: JBLK0MV0300 LDA ENXMAX,X ;前のフレームで足が地面についてた ? AND #00001 ; BEQ JBLK0MV0300 ; no: JBLK0MV0300 AND ENCBFG,X ;足が地面についてる ? BNE JBLK0MV0300 ; yes: JBLK0MV0300 LDA ENXMAX,X ;セット位置より低くなった ? AND #0FFFEH ; CMP ENYPSL,X ; BPL JBLK0MV0300 ; no: JBLK0MV0300 LDA ENMOD2,X ;範囲外クリアなし AND #0FFF3H STA ENMOD2,X JBLK0MV0300 EQU $ STY TROBJ_SR_4x4 BCC JBLK0_PLCHK0500 INC ENCHPT,X JBLK0_PLCHK0400 EQU $ LDY #001 STY TROBJ_CLEAR STZ ENCHPT,X JBLK0_Z_CAL0150 EQU $ LDY #000 STY SOUND_3_ON ;;;;;;;; LDA #00001H ;[Ｓ] ;;;;;;;; STA SOUND0 ; JBLK0_Z_CAL0500 EQU $ RTS JBLK0_Z_CAL1000 EQU $ LDY #004 LDA ENYSPD,X BMI JBLK0_Z_CAL1100 LDA ENWRK6,X CMP #00100H BPL JBLK0_Z_CAL1100 INY INY JBLK0_Z_CAL1100 EQU $ LDA ENWRK6,X CLC ADC !JBLK0_ZADD,Y STA ENWRK6,X RTS ; JBLK0_CHAR EQU $ WORD CIPCHD+7050H+000 WORD CIPCHD3+40E0H+000 JBLK0_CHAR_BANK EQU $ WORD BANK CIPCHD+7040H+000 WORD BANK CIPCHD3+40E0H+000 JBLK0_SET_X EQU $ WORD 00008H,00010H JBLK0_SET_Y EQU $ WORD 00010H,0001CH JBLK0_CHECK_Y EQU $ WORD 00E00H,01800H JBLK0_CENT_Y EQU $ WORD 00008H,0000CH ; JBLK0_ROT_SET EQU $ LDY TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP M_JBLK0_SET LDX SOUND_3_ON ;;;;;;;; LDA #00008 ;[Ｓ] ;;;;;;;; STA SOUND3 LDA #P006 STA PLJUMP ;;;;;;;; LDA #001+8000H ;;;;;;;; STA PLSPJP STA SCRONF STZ ENCBFG,X JBLK0_J_I0500 EQU $ LDY #000 STY ENMDCK ;mode check ; LDA ENMOD1,X ;行ったり来たりする ? AND #0000001100000000B ; BNE KANI0MV0300 ; yes: KANI0MV0300 LDA ENCBFG,X ;地面に着いた ? LSR A ; BCC KANI0MV0300 ; no: KANI0MV0300 LDA #0000100101000011B STA ENMOD1,X KANI0MV0300 EQU $ LDA #0000000000100010B ;ノーマルカラーセット STA ENCLOR,X ; ; LDA ENTIM3,X ;無敵中 ? BEQ KANI0MV0600 ; no: KANI0MV0600 AND #00006H TAY LDA !KANI0_CLOR,Y STA ENCLOR,X LDA ENXPSL,X SEC SBC ENMOVX,X STA ENXPSL,X STZ ENXSPD,X INC ENTIM0,X INC ENTIM1,X INC ENTIM2,X JSR KANI0_OBJ_CHK RTL KANI0MV0600 EQU $ JSR KANI0_OBJ_CHK TXY LDA TROBJ_CLEAR KANI0MV0A00 EQU $ M16 RTL ; KANI0_OBJ_CHK EQU $ LDY ECRSFG,X ;ショットされてる敵に衝突した ? DEY ; BMI KANI0_O_CHK0800 ; ; LDA ENMODE,Y ; CMP #EMOVE ; BNE KANI0_O_CHK0800 ; LDA ENSHOT,Y ; BEQ KANI0_O_CHK0800 ; no: KANI0_O_CHK0800 TYX JSL >ENDEATH_SET_4 DEC ENWRKC,X ;ラスト ? LDY ENWRKC,X ; BNE KANI0_O_CHK0700 ; no: KANI0_O_CHK0700 LDA #EFALL STA ENMODE,X LDA #0FE00H STA ENYSPD,X STZ ENXPOW,X M8 LDA #0FFH STA ENRETN,X M16 LDA #0000CH ;［Ｓ］ JSL >SOUND_3_ON PLA RTL KANI0_O_CHK0700 EQU $ LDA #00040H ;ダメージタイマーセット STA ENTIM3,X ; RTS KANI0_O_CHK0800 EQU $ PLA STA EPCRCK LDA TROBJ_OAM_4x4 LDY ENMUKI,X ;ハサミの位置調整 LDA !KANI0_REV,Y ; STA TROBJ_CLEAR KANI0_SUB0080 EQU $ LDA ENTIM2,X ;ハサミのびチェックする ? BNE KANI0_SUB0300 ; no: KANI0_SUB0300 LDA EPWIDY,X ;プレイヤー近くにいる ? CLC ; ADC #00028H ; CMP #00050H ; BCS KANI0_SUB0300 ; ; LDA EPWIDX,X ; CLC ; ADC #00050H ; CMP #000A0H ; BCS KANI0_SUB0300 ; no: KANI0_SUB0300 SEC ;ほんまごっつぅ近くにいる ? SBC #00030H ; CMP #00040H ; BCC KANI0_SUB0100 ; yes: KANI0_SUB0100 LDY EPXMUK,X LDA KANI0_XMAX2,Y STA ENXMAX,X LDA #0000BH STA ENXPOW,X LDA #00010H STA ENTIM0,X STZ ENTIM1,X BRA KANI0_SUB0300 KANI0_SUB0100 EQU $ JSL >TROBJ_SR_4x4 ;回転エリア確保ＯＫ ? BCC KANI0_SUB0300 ; no: KANI0_SUB0300 KANI0_SUB0200 EQU $ LDY #000 LDA EPWIDX,X BPL KANI0_SUB0220 INY INY KANI0_SUB0220 EQU $ TYA STA ENMUKI,X STZ ENXSPD,X STZ ENXPOW,X STZ ENTIM0,X STZ ENTIM1,X ; LDA #00300H ;ENWRK6 <- zoom size set LDA #00055H ;ENWRK6 <- zoom size set STA ENWRK6,X ;;;;;;;; INC ENCHPT,X LDA #00002H STA EXINSR LDA #0000BH STA EXWRK0,Y ;counter set LDA #00006H STA EXTIM0,Y LDA ECENTX,X CLC ADC SOUND_3_ON ;;;;;;;; LDA #00009H ;[Ｓ] ;;;;;;;; STA SOUND3 KANI0_SUB2800 EQU $ RTS ; KANI0_SUB3 EQU $ TYX LDA ENTIM1,X ;ストップ ? BNE KANI0_SUB2800 ; yes: KANI0_SUB2800 ; TROBJ_CHK_2 ; BNE KANI0_SUB3800 LDA ENTIM0,X ;ハサミパターンチェンジ ? BNE KANI0_SUB3800 ; no: KANI0_SUB3800 LDA #00004H STA ENTIM0,X LDA SOUND_3_ON ;;;;;;;; LDA #0001BH ;[Ｓ] ;;;;;;;; STA SOUND0 KANI0_SUB3100 EQU $ DEC PLFLST KANI0_SUB3800 EQU $ RTS ; KANI0_SUB4 EQU $ TYX LDA ENTIM1,X ;ストップ ? BNE KANI0_SUB3800 ; yes: KANI0_SUB3800 ; TROBJ_CHK_2 ; BNE KANI0_SUB3800 ;RTS LDA ENWRK8,X CLC ADC #00010H ;CHK 0 ; ADC #00020H ;CHK 2 ; ADC #00040H ;CHK 4 AND #001FEH STA ENWRK8,X CMP #00010H BNE KANI0_SUB4500 DEC SOUND_3_ON ;;;;;;;; LDA #00009H ;[Ｓ] ;;;;;;;; STA SOUND0 KANI0_SUB4500 EQU $ JMP KANI0_ROT_SET_S ; KANI0_ROT_SET_S EQU $ JSR KANI0_ROT_SET BCC KANI0_R_SET_S9 JSL >PLFLST KANI0_R_SET_S9 EQU $ KANI0_R_SET0000 EQU $ RTS ; KANI0_CHAR EQU $ WORD CIPCHD+4000H+001H WORD CIPCHD+4020H+001H ; KANI0_CXPOS EQU $ WORD 0FFF8H,00008H ; KANI0_ROT_SET EQU $ LDY ENCHPT,X ;回転エリア使ってる ? BEQ KANI0_R_SET0000 ; no: KANI0_R_SET0000 ;転送元アドレス＆バンクセット ;(R12) <-- 転送元アドレスセット LDY TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- ; M_CHIP M_KANI0_SET INC OBM7WF ;mode 7 OBJ chara DMA "ON" LDX ENDEATH_SET_4 KANI0_R_SET0500 EQU $ LDA EPWIDX,X CLC ADC CCWORK10 CLC ADC #00010H CMP #00020H BCS KANI0_R_SET0800 LDA EPWIDY,X CLC ADC CCWORK11 CLC ADC #00010H CMP #00020H BCS KANI0_R_SET0800 LDA PLFLSH ; ;プレイヤーはダメージを受けている ? BNE KANI0_R_SET0800 ; ; yes: KANI0_R_SET0800 SEC RTS KANI0_R_SET0800 EQU $ CLC RTS ; ;************************************************************************ ;* initial ( telesa L size ) * ;************************************************************************ TELELIN EQU $ ;-- telelin -- JSL >TROBJ_SR_4x4_CL ; LDA #00049H ;初期倍率セット STA ENWRK6,X JSR TELEL_ROT_SET ; RTL ; ;************************************************************************ ;* move ( telesa L size ) * ;************************************************************************ ; ; ENWRK0 ; ENWRK2 ; ENWRK4 ; ENWRK6 倍率 ; ENWRK8 回転角 ; ; ENTIM1 スピードチェンジタイマー ; TELEL_XMAX EQU $ TELEL_GMAX EQU $ WORD 0FFA7H,00059H TELEL_ZOOM EQU $ WORD 00020H,0FFE0H TELEL_CHAR EQU $ WORD CIPCHD+20E0H+001 WORD CIPCHD+0040H+001 ; TELELMV EQU $ ;-- telelmv -- JSL >TROBJ_OAM_4x4 JSL >ENMDCK ;mode check ; TROBJ_CHK_4 BEQ TELELMV0200 RTL TELELMV0200 EQU $ M8 LDA #004H STA ENYUSN,X M16 LDA #00002 STA ENXPOW,X STA ENGPOW,X ; LDA ENXMAX,X ;進行方向にプレイヤーがいる ? ; EOR EPWIDX,X ; ; BPL TELELMV0210 ; no: TELELMV0210 LDA ENMUKI,X ;プレイヤー見つめてる ? EOR PLCMKI ; BNE TELELMV0210 ; no: TELELMV0210 STZ ENGPOW,X STZ ENXPOW,X STZ ENXSPD,X STZ ENYSPD,X STZ ENTIM1,X LDY #002 BRA TELELMV0300 TELELMV0210 EQU $ LDA ENTIM1,X BNE TELELMV0230 LDA #00040H STA ENTIM1,X LDA PLFLST TELELMV0800 EQU $ ; RTL ; TELEL_ROT_SET EQU $ LDA #BANK CIPCHD+0040H+001H ;chara data address set STA R13 ; LDA !TELEL_CHAR,Y ;chara data bank set STA R12 ; LDA ENWRK8,X ;(R5) <- 回転角セット LSR A ; STA R5 ; LDA ENWRK6,X ;(R4) <- 倍率セット STA R4 ; LDA EPWIDX,X STA R7 LDA EPWIDY,X STA R8 LDA PLFLSH STA R9 LDA #01A00H ;(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 M_CHIP M_TELEL_SET LDX TROBJ_OAM_4x4 ZBUB0MV0100 EQU $ JSL >ENMDCK LDY ECRSFG,X ;プレイヤーにあたった ? BPL ZBUB0MV0200 ; no: ZBUB0MV0200 JSL >PLFLST BRA ZBUB0MV0300 ZBUB0MV0200 EQU $ JSL >SHOT_EN_KILL_S2 BCS ZBUB0MV0800 ZBUB0MV0300 EQU $ LDA ENMYNO,X CMP #ZBUB0 BEQ ZBUB0MV0400 JMP ZBUB1MV0100 ZBUB0MV0400 EQU $ TXY LDA EXINSR LDA #00003 STA EXWRK0,Y ASL A ; LDA #00006H STA EXTIM0,Y LDA ENXPSL,X ;Ｘ　ＰＯＳ．セット STA EXXPSL,Y LDA ENYPSL,X ;Ｙ　ＰＯＳ．セット STA EXYPSL,Y PLA ZBUB0MV0700 EQU $ STA ENWRKA,X ZBUB0MV0800 EQU $ RTL ; ZBUB0_GPOW EQU $ WORD 00009H,00012H ; ZBUB0_SUB0 EQU $ TYX LDA ENTIM1,X ;ストップ ? BNE ZBUB0_SUB0800 ; yes: ZBUB0_SUB0800 JSL >TROBJ_SR_4x4 BCC ZBUB0_SUB0800 LDA SOUND_3_ON ;;;;;;;; LDA #00027H ;[Ｓ] ;;;;;;;; STA SOUND3 M8 ;フリップデータクリア LDA ENCLOR,X ; AND #07FH ; STA ENCLOR,X ; LDA #002 ;姿見せる STA ENYUSN,X ; M16 ; STZ TROBJ_CLEAR ;回転エリア開放 M8 ;姿消す LDA #0FFH ; STA ENYUSN,X ; M16 ; LDA #00060H ;出現ロックタイマーセット STA ENTIM1,X DEC TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY_16 LDX EXINSR LDA #00003 STA EXWRK0,Y ASL A ; LDA #00006H STA EXTIM0,Y LDA ENXPSL,X ;Ｘ　ＰＯＳ．セット STA EXXPSL,Y LDA ENYPSL,X ;Ｙ　ＰＯＳ．セット STA EXYPSL,Y LDA TROBJ_SR_4x4 BCC ZBUB1_SUB0800 LDA EPXMUK,X ;Ｘ　ＳＰＥＥＤセット TAY ; STY SOUND_3_ON ;;;;;;;; LDA #00027H ;[Ｓ] ;;;;;;;; STA SOUND3 INC TROBJ_CLEAR M8 ;姿消す LDA #0FFH ; STA ENYUSN,X ; M16 ; LDA #00060H ;出現ウェイトタイマーセット STA ENTIM1,X DEC TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; PLX M_CHIP C_32_RTZ_16_XY LDX TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; ; M_CHIP C_32_ZOOM_XY_16 M_CHIP C_32_RTZ_16_XY LDX TROBJ_SR_4x4_CL LDA ENXPSL,X ;くさりの根本Ｘ　ＰＯＳ．セット CLC ADC #00004 STA WANG00XP STA WANG01XP STA WANG02XP STA WANG03XP STA ENWRKA,X LDA ENYPSL,X ;くさりの根本Ｙ　ＰＯＳ．セット CLC ADC #00008H STA WANG00YP STA WANG01YP STA WANG02YP STA WANG03YP STA ENWRKC,X LDA #00100H ;初期倍率セット STA ENWRK6,X ; ;;;;;;;;; LDA #00400H ;つなぎタイマーセット ;;;;;;;;; STA ENTIM3,X STZ WANGFLAG ;わんわんフラグクリア JSR WANG0_ROT_SET RTL ; ;************************************************************************ ;* move ( わんわん ) * ;************************************************************************ ; ENWRK0 キャラパターンフラグ ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 襲撃カウンター ; ENWRK6 倍率 ; ENWRK8 回転角(SUB2)／ズームフラグ(SUB3) ; ENWRKA くさりの根元Ｘ　ＰＯＳ． ; ENWRKC くさりの根元Ｙ　ＰＯＳ． ; ; ENCONT バウンド回数(SUB1)／口ぱく待ちタイマー(SUB3) ; ; ENTIM0 キャラパターンチェンジタイマー ; ENTIM1 襲うタイマー ; ENTIM2 サーチロックタイマー ; ENTIM3 つなぎタイマー ; WANG0_SUB EQU $ WORD WANG0_SUB0 ;次の行動決定 WORD WANG0_SUB1 ;さんぽさんぽ WORD WANG0_SUB2 ;襲う！ WORD WANG0_SUB3 ;飛んでく WORD WANG0_SUB4 ;前に襲う！！ WORD WANG0_SUB5 ;元に戻る（前に襲う！！） WANG0_CHAR EQU $ WORD CIPCHD2+1080H+000 ;横顔 WORD CIPCHD2+1090H+000 WORD CIPCHD2+10A0H+000 WORD CIPCHD2+1090H+000 ; WORD CIPCHD2+4000H+000 ;正面顔 WORD CIPCHD2+4020H+000 WORD CIPCHD2+4040H+000 WORD CIPCHD2+4020H+000 ; WANG0_XSPD_REV EQU $ WORD 00200H,0FE00H ; WANG0MV EQU $ ;-- wang0mv -- LDY ENMOD2+1,X ;３２ドット ? BPL WANG0MV0010 ; yes: WANG0MV0010 JSL >TROBJ_OAM_8H8 LDA #008*16 BRA WANG0MV0020 WANG0MV0010 EQU $ JSL >TROBJ_OAM_4x4 LDA #008*4 WANG0MV0020 EQU $ STA ENMDCK TXY LDA EPCRCK LDY ECRSFG,X ;敵にあたった ? DEY ; BMI WANG0MV0A00 ; no: WANG0MV0A00 LDA ENMODE,Y CMP #EMOVE BNE WANG0MV0A00 LDA ENSHOT,Y BEQ WANG0MV0A00 LDA ENMOD2,Y LSR A PHP LDA ENXSPD,Y CMP #08000H ROR A CMP #08000H ROR A PLP ;１キャラ ? BCS WANG0MV0908 ; no: WANG0MV0908 CMP #08000H ROR A WANG0MV0908 EQU $ CLC ADC ENXSPD,X CMP #00200H BMI WANG0MV0910 LDA #00200H WANG0MV0910 EQU $ CMP #0FE00H BPL WANG0MV0920 LDA #0FE00H WANG0MV0920 EQU $ STA ENXSPD,X LDA #0FB00H STA ENYSPD,X LDA #00040H STA ENGPOW,X TYX LDA #00079H ;［Ｓ］ JSL >SOUND_3_ON ; JSL >ENDEATH_SET_4 LDA #00001 STA TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA CREG3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA CREG2 ; PLX LDY TROBJ_CLEAR LDA #00083H ;［Ｓ］ JSL >SOUND_3_ON JSL >TROBJ_SR_8x4 BCS WANG0_SUB0600 LDA #00100H ;最大倍率セット STA WANGZMRV ; JSL >TROBJ_SR_4x4 BRA WANG0_SUB0680 WANG0_SUB0600 EQU $ INC ENCHPT,X LDA #1010000000000101B ;セット数１２ー＞２０ STA ENMOD2,X ; WANG0_SUB0680 EQU $ LDA #000A0H ;襲うタイマーセット STA ENTIM1,X ; STZ ENGPOW,X LDY #004 STY SOUND_3_ON LDA #00060H ;襲うタイマーセット STA ENTIM1,X ; STZ ENGPOW,X INC SOUND_3_ON DEC SOUND_3_ON WANG0_GAJI0400 EQU $ RTS ; WANG0_SUB3 EQU $ TYX LDA ENWRKA,X CLC ADC ENMOVX,X STA ENWRKA,X LDA ENWRKC,X CLC ADC ENMOVY,X STA ENWRKC,X BRA WANG0_GAJI ; WANG0_ZOOM EQU $ WORD 0001CH,0002CH WANG0_XSPD_RV EQU $ WORD 00180H,0FE80H WANG0_ZOOM_MAX EQU $ ;がちょぉぉぉぉん ; WORD 00100H,00150H,00100H,00130H,00100H,00110H,00100H,00100H ; WORD 00080H,000D0H,00080H,000B0H,00080H,000A0H,00080H,00080H WORD 00100H,000C4H,00100H,000D8H,00100H,000F0H,00100H,00100H WORD 001FEH,0013CH,001FEH,00174H,001FEH,0019AH,001FEH,001FEH ; WANG0_SUB4 EQU $ TYX LDA ENTIM1,X ;襲うのおわり ? BNE WANG0_SUB4100 ; no: WANG0_SUB4100 LDA #00040H ;Ｇ　ＰＯＷＥＲセット STA ENGPOW,X ; LDY #000 LDA WANGXDSV ;Ｘ　ＳＰＥＥＤセット BMI WANG0_SUB4080 ; ; INY ; INY ; ; WANG0_SUB4080 EQU $ ; LDA !WANG0_XSPD_RV,Y ; STA ENXSPD,X ; INC TROBJ_CLEAR JSL >TROBJ_SR_4x4 DEC ENCHPT,X LDA #0100000000000101B ;セット数２０ー＞８ STA ENMOD2,X ; STZ ENWRK8,X ;初期回転角セット STZ TROBJ_SR_4x4_CL LDA ENTROB,X STA TROBJ_SR_4x4_CL LDA #0FE40H ;さるの最大回転速度セット STA ENXMAX,X ; STA ENGMAX,X ; LDA #08000H STA ENWRK6,X STA ENWRK8,X LDA #00018H ;一番外のさるの回転ストップタイマーセット STA ENTIM3,X ; ; LDA ENXPSL,X ; AND #00010H ; STA TROBJ_CLEAR OSARUMV0040 EQU $ LDA TROBJ_CLEAR OSARUMV0080 EQU $ JSL >ENMDCK ; LDY TROBJ_OAM_4x4 I16 LDA ENOAML,X CLC ADC #008*4 PHA TAY JSL >TROBJ_OAM_4x4_I IDX8 LDA ENTROB,X STA TROBJ_OAM_4x4_I IDX8 I16 PLA CLC ADC #008*4 TAY JSL >TROBJ_OAM_4x4_I IDX8 LDA DISPCK1 ;画面外 ? BCC OSARU_D_CHK0000 ; no: OSARU_D_CHK0000 LDA TROBJ_CLEAR ; OSARU_BABY_CHK EQU $ LDY #004*(4-1) LDA BABYNO ;他のどろぼうにとられてる ? BIT #06000H ; BNE OSARU_D_CHK0000 ; yes: OSARU_D_CHK0000 LDY DEATHCT0 ;死神に捕まった ? BNE OSARU_D_CHK0000 ; yes: OSARU_D_CHK0000 AND #08000H BEQ OSARU_B_CHK1000 OSARU_B_CHK0100 EQU $ LDA EPWIDX,X CLC ADC CCWORK10,Y CLC ADC #00010H CMP #00020H BCS OSARU_B_CHK0500 LDA EPWIDY,X CLC ADC CCWORK10+2,Y CLC ADC #00010H CMP #00020H BCC OSARU_B_CHK2000 OSARU_B_CHK0500 EQU $ TYA SEC SBC #00004 TAY BPL OSARU_B_CHK0100 OSARU_B_CHK1000 EQU $ LDA ECENTX,X SEC SBC ECENTX+BABY_INDEX STA ENINSR BCC OSARU_B_CHK3000 LDA ENXPSL,X CLC ADC MKY_BABY_GET LDX ENINSR_I BCC OSARU_B_CHK3000 LDA ENXPSL,X CLC ADC TROBJ_CLEAR LDA ENCLEAR_NORETN OSARU_B_CHK3000 EQU $ RTS ; OSARU_ANG_POW EQU $ WORD 0FFFAH,00006H ; OSARU_ANG_CALC EQU $ LDY #000 LDA ENWRKA,X SEC SBC ENXMAX,X BEQ OSARU_A_C1000 STA 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 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 TROBJ_SR_4x4_CL LDA ENYPSL,X ;Ｙ　ＰＯＳ．セーブ STA TROBJ_OAM_4x4 JSL >ENMDCK TXY LDA ZOOM_PLCHK PLA CMP SOUND_3_ON HBLK6MV0800 EQU $ RTL ; HBLK6_ROT_SET EQU $ LDA ENWRK6,X ;(R6) <- Ｘ倍率セット STA R6 ; STA R11 LDA #BANK CIPCHD+7040H+000 ;chara data bank set STA R13 LDA #CIPCHD+7040H+000 ;chara data address set STA R12 LDA ENTROB,X TAX LDA >TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; LDA #00008H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; ASL A STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． M_CHIP C_32_ZOOM_XY_16 LDX TROBJ_SR_4x4_CL LDA #00100H ;初期倍率セット STA ENWRK6,X ; STA ENWRK8,X STZ TROBJ_OAM_4x4 LDY ENMDCK BRA BLKLFMV0200 BLKLFMV0100 EQU $ JSL >EN_TIMER JSR BLKLF_ROT_SET BLKLFMV0200 EQU $ JSR BLKLF_MOV_LIM JSR BLKLF_OBJ_CHK JSL >ZOOM_PLCHK ;プレイヤー乗ってる ? BCS BLKLFMV0600 ; no: BLKLFMV0600 LDA PLXPSL CLC ADC ENMOVX,X STA PLXPSL LDA PLYPSL CLC ADC ENMOVY,X STA PLYPSL BLKLFMV0600 EQU $ TXY LDA TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; LDA #00010H ;(R8) <- 中心Ｘ　ＰＯＳ． CPY #000 BEQ BLKLF_R_SET0200 STA R8 ; STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． M_CHIP C_32_ZOOM_XY BRA BLKLF_R_SET0300 BLKLF_R_SET0200 EQU $ LSR A ;[ LDA #00008H ] ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． M_CHIP C_32_ZOOM_XY_16 BLKLF_R_SET0300 EQU $ LDX ENDEATH_SET_4 BRA BLKLF_SUB0500 BLKLF_SUB0100 EQU $ STZ PLMVSP STZ PLXSPD STZ PLYSPD BLKLF_SUB0500 EQU $ LDA ECENTX,X STA FSMK0_SET2 LDY #002 STY SOUND_3_ON INC PLSTFG ;ゲームストップ INC ENSTFG ; INC NLFLRIN BRA BLKLF_SUB1400 BLKLF_SUB1300 EQU $ JSL >NLFUDIN INC DOKAN_CHECK2 ;セット位置は土管の上 ? BNE ZPACKIN0800 ; no: ZPACKIN0800 LDA ENXPSL,X CLC ADC #00008 STA ENXPSL,X ZPACKIN0800 EQU $ RTL ; ;************************************************************************ ;* move ( ずーむぱっくん ) * ;************************************************************************ ;B ENWRK0 オフセットＸ　ＰＯＳ． ;B ENWRK1 オフセットＹ　ＰＯＳ． ;B ENWRK2 ROUTINE MODE INDEX ;B ENWRK3 転送キャラナンバー ; ENWRK4 USE ; ENWRK6 倍率 (100H=1.0 200H=0.5) ; ENWRK8 回転角 (0-1FEH) ; ENWRKA プレイヤー吸い込みＸ　ＰＯＳ．(SUB2)／吐き出しフラグ 0... 1 time 1... 2 times ; ENWRKC プレイヤー吸い込みＹ　ＰＯＳ．(SUB2)／ズームロックフラグ ; ; ENCONT キャラパターンナンバー ; ; ENTIM0 キャラパターンチェンジタイマー ; ENTIM1 ズームロックタイマー ; ENTIM2 USE ; ENTIM3 プレイヤーチェックロックタイマー ; ; EWORKC 頭のオフセットＸ　ＰＯＳ． ; EWORKE 頭のオフセットＹ　ＰＯＳ． ; ZPACK_SUB EQU $ WORD ZPACK_SUB0 ;NORMAL WORD ZPACK_SUB1 ;ZOOM WORD ZPACK_SUB2 ;プレイヤーお召し上がり中 WORD ZPACK_SUB3 ;お荷物お召し上がり中 WORD ZPACK_SUB4 ;ぺっ WORD ZPACK_SUB5 ;プレイヤーお召し上がり中２ WORD ZPACK_SUB6 ;がぁ〜ん WORD ZPACK_SUB7 ;やられとぅわぁー MPACK_DM EQU $ WORD ZPACK_SUB10 ;マザーパックンデモ（プレイヤーチェック） WORD ZPACK_SUB11 ;マザーパックンデモ（カベ閉じ待ち） WORD ZPACK_SUB12 ;マザーパックンデモ（ズーム） WORD ZPACK_SUB13 ;マザーパックンデモ（カメック退場までじっとしてる） WORD ZPACK_SUB14 ;マザーパックンデモ（ジャンプため） WORD ZPACK_SUB15 ;マザーパックンデモ（ジャンプ） WORD ZPACK_SUB16 ;マザーパックンデモ（範囲クリアチェック） WORD ZPACK_SUB17 ;マザーパックンデモ（MPACK出現待ち） ; WORD ZPACK_SUB20 ;マザーパックンデモ（２回目以降 プレイヤーチェック） ; WORD ZPACK_SUB21 ;マザーパックンデモ（２回目以降 カベ閉じ待ち） ; WORD ZPACK_SUB22 ;マザーパックンデモ（２回目以降 MPACK出現待ち） MPACK_DM_ED EQU $ WORD ZPACK_SUB30 ;マザーパックンデモ（やられとぅわぁー） ; ; MPACK_DEMO EQU (MPACK_DM-ZPACK_SUB)/2 MPACK_DEMO_ED EQU (MPACK_DM_ED-ZPACK_SUB)/2 ; ZPACK_TREV EQU $ WORD 00010H,00000H ; ZPACKMV EQU $ ;-- zpackmv -- ZPAC3MV EQU $ ;-- zpac3mv -- LDA ENMDCK ;mode check ; ZPACKMV0720 EQU $ JSL >DISPCK2 ;画面外 ? BCC ZPACKMV0780 ; no: ZPACKMV0780 LDY ENCLEAR RTL ; ZPACKMV0780 EQU $ LDY ENDEATH_SET_4 LDY #MPACK_DEMO_ED STY EPCRCK LDA TROBJ_SR_4x4 ;回転エリア確保できた ? BCC ZPACK_SUB0800 ; no: ZPACK_SUB0800 LDA #1000010010101000B ;食ったらダメージ／ＯＢＪ衝突サイズ０ー＞８ STA ENMOD0,X ;投げた敵あたらなくする／踏めなくする LDA #0011110101010001B ;シャボン玉に入らなくする STA ENMOD2,X ; LDA #00055H ;倍率セット STA ENWRK6,X ; INC EGGKILL_ALL ;;;;;;;; STX PONLFFG ;強制 LDA #1010000001000001B ;敵でなくす、ごろごろにやられない STA ENMOD1,X LDA #0011110100000001B ;凍らない、燃えない STA ENMOD2,X INC PLEATFG LDY NOSEIDX ;プレイヤー何か背負ってた ? BMI ZPACK_SUB1988 ; no: ZPACK_SUB1988 TYA STA ENEATFG ZPACK_SUB1988 EQU $ LDA BERO_CANCEL LDA #PSTP ;player stop mode set STA PLMODE LDA #PD09 ;damage pattern no. set STA PLPATN LDA #00202H ;ENWRK2 <- routine mode index STA TROBJ_CLEAR ; ;use area cansel ; LDY ENWRKC,X ; ;敵と衝突した ? BEQ ZPACK_CALC0200 ; ; no: ZPACK_CALC0200 ; STZ ENWRKC,X ; ;ズームロックフラグクリア LDA #00100H ; ;ズームロックタイマーセット STA ENTIM1,X ; ; ; ZPACK_CALC0200 EQU $ ; LDA #00001H ; ;キャラパターンナンバーセット STA ENCHPT,X ; ; ; ; LDA #1011111000000000B ; ;食えるようにする／ＯＢＪ衝突サイズ８ー＞０ STA ENMOD0,X ; ;投げた敵あたる／踏める LDA #0011110111010001B ; ;シャボン玉に入るようにする STA ENMOD2,X ; ; DEC SOUND_3_ON ZPACK_H_CHG0100 EQU $ ZPACK_HEAD_POS EQU $ LDA CCWORK11 ;口オフセットＸ　ＰＯＳ． STA NMZ_HOSEI PHA LDA SOUND_3_ON ;;;;;;;; LDA #00006 ;[Ｓ] ;;;;;;;; STA SOUND0 ZPACK_SUB2400 EQU $ JSR ZPACK_SET JSR ZPACK_HEAD_POS ZPACK_SUB2500 EQU $ ;;;;;;;; JSR ZPACK_SET ZPACK_SUB2800 EQU $ RTS ; ZPACK_ZADD EQU $ WORD 00008H,0FFF8H ZPACK_ZLIM EQU $ WORD 00110H,00100H ZPACK_PLXSPD EQU $ WORD 0FC80H,00380H ZPACK_ENXSPD EQU $ WORD 0FC00H,00400H ZPACK_ANGADD EQU $ WORD 00004H,0FFFCH ; ZPACK_SUB5 EQU $ TYX LDA ENCLOR,X AND #0FFE0H ORA #00024H STA ENCLOR,X LDA ENWRK6,X ;ノーマルのサイズ ? CMP #00100H ; BMI ZPACK_SUB3000 ; no: ZPACK_SUB3000 LDA ENCLOR,X AND #0FFE0H ORA #00022H STA ENCLOR,X LDA KEYC1L ;キー入力があった ? AND #0CFF0H ; CMP KEYWORK ; BEQ ZPACK_SUB3000 ; no: ZPACK_SUB3000 STA KEYWORK ; CMP #00000 ; BEQ ZPACK_SUB3000 ; no: ZPACK_SUB3000 LDA SOUND_3_ON ;;;;;;;; PLY BRA ZPACK_SUB3078 ZPACK_SUB3070 EQU $ STZ ENMYNSFG ;敵のせ情報フラグクリア ZPACK_SUB3078 EQU $ PHX LDA ENMYNO,Y ASL A TAX M8 LDA >ENDATA0,X STA ENYUSN,Y M16 PLX LDA #0FFFFH STA ENEATFG STA NOSEIDX BRA ZPACK_SUB3090 ZPACK_SUB3080 EQU $ ;;;;;;;; LDA #PMOV ;;;;;;;; STA PLMODE STZ PLMODE LDY ENMUKI,X LDA !ZPACK_PLXSPD,Y STA PLXSPD STA PLMVSP LDA #00070H ;プレイヤーしばらく無敵に STA PLFLSH ; STZ PLEATFG STZ PONLFFG LDA #00060H ;プレイヤーチェックロックタイマーセット STA ENTIM3,X ; LDA #1000100001000001B ;敵に戻す、ごろごろにやられる STA ENMOD1,X LDA #0011110101010001B ;凍る、燃える STA ENMOD2,X ZPACK_SUB3090 EQU $ LDA #00014H ;［Ｓ］ JSL >SOUND_3_ON ;;;;;;;; LDA #00020H ;[Ｓ] ;;;;;;;; STA SOUND0 LDA #00020H STA ENTIM0,X LDA #00204H ;ENWRK2 <- routine index mode STA ENINSR LDA #PDEM STA PLMODE LDA #MPACK_START_ST STA ENWRK0,Y LDA #MPACK_START_ED STA ENWRKC,Y STZ PLXSPD STA PLMVSP INC TROBJ_SR_4x4 ;回転エリア確保できた ? BCC ZPACK_SUB11800 ; no: ZPACK_SUB11800 LDA #1000010010101000B ;食ったらダメージ／ＯＢＪ衝突サイズ０ー＞８ STA ENMOD0,X ;投げた敵あたらなくする／踏めなくする LDA #0011110101010001B ;シャボン玉に入らなくする STA ENMOD2,X ; LDA #00055H ;倍率セット STA ENWRK6,X ; LDA #00040H ;カメック出現タイマーセット STA ENTIM2,X ; LDA #00009H ;［Ｓ］ STA SOUND_0 INC ENINSR_I ; BCC ZPACK_SUB11800 ; no: ZPACK_SUB11800 LDA #00010H STA ENXPSL,Y ZPACK_SUB11800 EQU $ RTS ; ZPACK_SUB12 EQU $ TYX LDY BOSS_RETRY ;２回目以降 ? BEQ ZPACK_SUB12200 ; no: ZPACK_SUB12200 LDA BOSS_START BNE ZPACK_SUB12280 ZPACK_SUB12200 EQU $ LDA >MSG_NO ;メッセージが表示された ? BEQ ZPACK_SUB12300 ; no: ZPACK_SUB12300 ZPACK_SUB12280 EQU $ STA ENTIM0,X ;頭のキャラパターンを固定する LDY #000 STY ENCLEAR ZPACK_SUB17300 EQU $ CMP #00030H BNE ZPACK_SUB17800 ; LDA #00180H LDA #00260H STA TILTCT ; LDA #00120H LDA #001C0H STA TILTCT2 ZPACK_SUB17800 EQU $ RTS ; ZPACK_SUB30 EQU $ TYX LDA ENCLOR,X EOR #00002H STA ENCLOR,X RTS ; ZPACK_REV EQU $ ZPACK_YREV EQU $ WORD 00010H,0FFF0H ZPACK_REV2 EQU $-2 ZPACK_YREV2 EQU $-2 WORD 00000H ; ZPACK_OAM_SET EQU $ JSL >TROBJ_OAM_4x4 LDA ENCLOR,X AND #00080H ASL A ASL A XBA TAY LDA !ZPACK_YREV,Y STA TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- M_CHIP M_ZPACK_SET LDX TROBJ_SR_4x4_CL LDA #00100H ;初期倍率セット STA ENWRK6,X ; LDA #001C0H STA ENWRK8,X LDA #00003 ;WRKA <- 3 ダメージカウンターセット STA ENWRKA,X JSR ZPAC2_SUB0100 LDA ENMDCK ; TXY LDA PLFLST RTS ZPAC2_OBJCK0300 EQU $ LDA ENMODE,Y CMP #EMOVE BNE ZPAC2_OBJCK0800 LDA ENSHOT,Y BEQ ZPAC2_OBJCK0800 ZPACK_DEAD EQU $ LDA ENXSPD,Y PHP TYX JSL >ENDEATH_SET_4 LDA #0000BH ;［Ｓ］ JSL >SOUND_3_ON LDY #000 PLP ;左から飛んできた ? BPL ZPAC2_OBJCK0500 ; yes: ZPAC2_OBJCK0500 INY INY ZPAC2_OBJCK0500 EQU $ STY ENINSR_I BCS ZPAC2_SUB1600 LDA #0FFFFH STA SOUND_3_ON RTS ; ZPAC2_S2_ANGAND EQU $ WORD 0FFF0H,0FFF0H WORD 0FFFCH,0FFFCH ZPAC2_S2_ANGADD EQU $ WORD 0FFF0H,00010H WORD 0FFFCH,00004H ZPAC2_S2_ANGCMP EQU $ WORD 00140H,001C0H WORD 00100H,00000H ZPAC2_S2_COL EQU $ HEX 22,22,24,20 ; ZPAC2_SUB2 EQU $ TYX LDA ENTIM3,X ;ストップ ? BNE ZPAC2_SUB2100 ; yes: ZPAC2_SUB2100 LDA ENMYNO,X CMP #ZPAC2 BNE ZPAC2_SUB2020 LDY ENWRKA,X LDA !ZPAC2_S2_COL-1,Y AND #000FFH STA ENCLOR,X DEC ENWRKA,X ;ラストがぁ〜ん ? BNE ZPAC2_SUB2080 ; no: ZPAC2_SUB2080 ZPAC2_SUB2020 EQU $ ; LDY #004 ; LDA ENWRKC,X ; CMP #001C0H ; BEQ ZPAC2_SUB2040 ; ; INY ; INY ; ;ZPAC2_SUB2040 EQU $ ; STY SOUND_3_ON INC ENDEATH_SET_4 ZPAC2_SUB3500 EQU $ STA ENWRK6,X LDA ENTIM1,X ;色を替える ? BNE ZPAC2_SUB3800 ; no: ZPAC2_SUB3800 LDA #00004 STA ENTIM1,X LDA ENCLOR,X EOR #0000EH STA ENCLOR,X ZPAC2_SUB3800 EQU $ RTS ; ; BRA ZPAC2_SUB2100 ; ;************************************************************************ ;* initial ( bound bros. ) * ;************************************************************************ BBROS_PAIR_XPOS EQU $ WORD 00030H,0FFD0H BBROS_PAIR_XSPD EQU $ BBROS_S01_XSPD EQU $ WORD 0FEC0H,00140H ; BBROSIN EQU $ ;-- bbrosin -- JSL >TROBJ_SR_4x4_CL LDA #00003 ;足の長さセット STA ENWRK8,X LDA #00100H ;初期倍率セット STA ENWRK6,X M8 STZ ENWRKA,X ;兄弟のフラグセット（兄貴） M16 LDY ENWRKC,X ;食べられてた ? BMI BBROSIN0100 ; yes: BBROSIN0100 LDA ENXPSL,X ;弟もセットする ? AND #00010H ; BEQ BBROSIN0480 ; yes: BBROSIN0480 BBROSIN0100 EQU $ LDA #003FFH ;WRKC <- 兄弟はいない STA ENWRKC,X ;WRKD <- ダメージカウンター LDY #BBROS_RMODE30 STY ENINSR BCC BBROSIN0500 STY TROBJ_SR_4x4 BCS BBROSIN0600 JSL >ENCLEAR LDX ENCLEAR BBROSIN0600 EQU $ LDX ----------------- BBROS_00 EQU $ WORD BBROS_SUB00 ;上に乗られるのを待ってる BBROS_01 EQU $ WORD BBROS_SUB01 ;ひしゃげ＆上のやつを弾く BBROS_02 EQU $ WORD BBROS_SUB02 ;のびる BBROS_03 EQU $ WORD BBROS_SUB03 ;元に戻る ;---------------< 上のやつの処理 >----------------- BBROS_10 EQU $ WORD BBROS_SUB10 ;上昇チェック BBROS_11 EQU $ WORD BBROS_SUB11 ;自分でジャンプした後の着地チェック BBROS_12 EQU $ WORD DUMMY_SUB ;兄弟の上に乗った BBROS_13 EQU $ WORD BBROS_SUB13 ;下のやつに弾かれた後の着地チェック BBROS_14 EQU $ WORD BBROS_SUB14 ;着地びよびよ BBROS_15 EQU $ WORD BBROS_SUB15 ;自分でジャンプ！！ ;---------------< プレイヤーだけが乗ってる >---------------- BBROS_20 EQU $ WORD BBROS_SUB20 ;ひしゃげ＆上のプレイヤーを弾く（兄弟チェック） BBROS_21 EQU $ WORD BBROS_SUB21 ;元に戻る（身の振り方を考える） ;---------------< 一匹になった >---------------- BBROS_30 EQU $ WORD BBROS_SUB30 ;倍率調整（姿勢をノーマルにする） BBROS_31 EQU $ WORD BBROS_SUB31 ;自分でジャンプ！！ BBROS_32 EQU $ WORD BBROS_SUB32 ;上昇チェック BBROS_33 EQU $ WORD BBROS_SUB33 ;自分でジャンプした後の着地チェック ; BBROS_RMODE00 EQU (BBROS_00-BBROS_SUB)/2 BBROS_RMODE01 EQU (BBROS_01-BBROS_SUB)/2 BBROS_RMODE02 EQU (BBROS_02-BBROS_SUB)/2 BBROS_RMODE03 EQU (BBROS_03-BBROS_SUB)/2 BBROS_RMODE10 EQU (BBROS_10-BBROS_SUB)/2 BBROS_RMODE11 EQU (BBROS_11-BBROS_SUB)/2 BBROS_RMODE12 EQU (BBROS_12-BBROS_SUB)/2 BBROS_RMODE13 EQU (BBROS_13-BBROS_SUB)/2 BBROS_RMODE14 EQU (BBROS_14-BBROS_SUB)/2 BBROS_RMODE15 EQU (BBROS_15-BBROS_SUB)/2 BBROS_RMODE20 EQU (BBROS_20-BBROS_SUB)/2 BBROS_RMODE21 EQU (BBROS_21-BBROS_SUB)/2 BBROS_RMODE30 EQU (BBROS_30-BBROS_SUB)/2 BBROS_RMODE31 EQU (BBROS_31-BBROS_SUB)/2 BBROS_RMODE32 EQU (BBROS_32-BBROS_SUB)/2 BBROS_RMODE33 EQU (BBROS_33-BBROS_SUB)/2 ; BBROSMV EQU $ ;-- bbrosmv -- LDY ENYUSN,X BMI BBROSMV0100 JSR BBROS_OAM_SET BBROSMV0100 EQU $ JSR BBROS_BROS_ECHK JSL >ENMDCK ; LDA #00018H ;R0 <- どんぶりの直径 STA R0 LDA #0000EH ;R1 <- 足の位置 STA R1 LDA ENYPSL,X ;R2 <- ENYPSL STA R2 LDA #00200H SEC SBC ENWRK6,X ;R6 <- 倍率 STA R6 LDA ENWRK8,X ;R3 <- 足の長さ STA R3 M_CHIP M_BBROS_B_REV LDX ENCLEAR_NORETN ; BBROS_O_SCHR EQU $ WORD 0009EH,0002EH,0002FH BBROS_O_YREV EQU $ WORD 0FFFFH,00001H,00003H ; BBROS_OAM_SET EQU $ LDY #000 LDA TROBJ_OAM_4x4_I I16 PLY LDA #00004 STA CHIPON BRA BBROS_ENCHK0040 BBROS_ENCHK0080 EQU $ LDA ENMOD1,Y ;アイテムかリフト ? AND #0100000000000000B ; BNE BBROS_EBCHK0060 ; yes: BBROS_EBCHK0060 TYX JSL >ENDEATH_SET_4 BBROS_TO_HEAVEN EQU $ JSL >TIMKN_3_SET LDY ENWRKB,X ;兄弟は生きてる ? BMI BBROS_ENCHK0300 ; no: BBROS_ENCHK0300 M8 LDA #0FFH STA ENWRKB,Y M16 BBROS_ENCHK0300 EQU $ M8 LDA #0FFH STA ENRETN,X M16 PLA ;直接ＲＴＬ JMP >ENDEATH_SET_3 ; BBROS_TIMKN_XSP EQU $ WORD 00000H,0FE6BH,00195H BBROS_TIMKN_YSP EQU $ WORD 0FE00H,0FE11H,0FE11H ; TIMKN_3_SET EQU $ PHB PHK PLB LDA TIMER STA ENINSR_I BCC TIMKN_3_SET0500 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X STA ENYPSL,Y LDA DISPCK3 ;範囲外 ? BCC BBROS_B_ECHK280 ; no: BBROS_B_ECHK280 LDY ENWRKC,X ;兄弟と一緒に攻撃してる ? BMI BBROS_B_ECHK130 ; no: BBROS_B_ECHK130 TYX ;兄弟も範囲外 ? JSL >DISPCK3 ; BCC BBROS_B_ECHK200 ; no: BBROS_B_ECHK200 JSL >ENCLEAR BBROS_B_ECHK130 EQU $ LDX ENCLEAR BBROS_B_ECHK200 EQU $ LDX PLFLST BBROS_PLCHK1800 EQU $ RTS ; BBROS_ROT_SET EQU $ LDA ENWRK6,X ;(R6) <- Ｘ倍率セット STA R6 LDA #00200H ;(R11) <- Ｙ倍率セット SEC SBC R6 STA R11 ; LDA #00010H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; ASL A ;[ LDA #00020H ] STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． LDA #BANK CIPCHD2+00E0H+001 ;chara data bank set STA R13 LDA #CIPCHD2+00E0H+001 ;chara data address set STA R12 LDY ENTROB,X TYX LDA >TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY LDX SOUND_3_ON BBROS_SUB01100 EQU $ LDA SOUND_3_ON LDA SOUND_3_ON LDA #00140H BRA BBROS_SUB31700 BBROS_SUB31600 EQU $ CLC ADC #00008H BBROS_SUB31700 EQU $ STA ENWRK6,X BBBROS_SUB31800 EQU $ RTS ; ;************************************************************************ ;* initial ( 風船リフト ) * ;************************************************************************ FUSEN_I_CLOR EQU $ HEX 20,22,24,28 ; FUSENIN EQU $ ;-- fusenin -- LDA ENXPSL,X ;湧きだしフラグ ? BIT #00010H ; BEQ FUSENIN0080 ; no: FUSENIN0080 AND #0FFE0H STA ENWRKC,X LDA #000FFH STA ENYUSN,X LDA #0000000001100000B ;食えない、投げた敵あたらない STA ENMOD0,X ; LDA #0100000000000000B ;ＢＧチェックしない、敵じゃない STA ENMOD1,X ; LDA #0000000000000010B ;範囲クリアなし STA ENMOD2,X ; STZ ENGPOW,X INC TROBJ_SR_4x4_CL INC FUSENFLG LDA ENTROB,X STA FUSENTRO BRA FUSENIN0200 FUSENIN0100 EQU $ LDA FUSENTRO STA ENTROB,X FUSENIN0200 EQU $ INC FUSENSUM LDA #00040H STA ENTIM0,X STA ENXMAX,X LDA #00004H STA ENXPOW,X M8 LDA TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; M_CHIP C_32_ZOOM LDX TROBJ_OAM_4x4 JSL >ENMDCK ;mode check ; JSL >DISPCK2 ;範囲外 ? BCC FUSENMV0500 ; no: FUSENMV0500 LDA ENTROB,X ;へこんでた ? CMP FUSENTRO ; BEQ FUSENMV0200 ; no: FUSENMV0200 JSL >TROBJ_CLEAR LDA FUSENTRO STA ENTROB,X FUSENMV0200 EQU $ DEC FUSENSUM ;最後 ? BEQ FUSENMV0300 ; yes: FUSENMV0300 LDA #0FFFFH STA ENTROB,X BRA FUSENMV0400 FUSENMV0300 EQU $ STZ FUSENFLG ;回転エリア確保フラグクリア FUSENMV0400 EQU $ CPX PONLFFG BNE FUSENMV0480 STZ PONLFFG FUSENMV0480 EQU $ JMP >ENCLEAR FUSENMV0500 EQU $ JSR FUSEN_PLCHK JSR FUSEN_ROT_SET ; LDA ENTIM0,X ;風船の揺れ制御 BNE FUSENMV0800 ; ; LDA #00040H*2 ; STA ENTIM0,X ; ; LDA ENXMAX,X ; EOR #0FFFFH ; INC A ; STA ENXMAX,X ; ; FUSENMV0800 EQU $ ; RTL ; FUSENMV1000 EQU $ JSL >ENMDCK LDY FUSN_ST_FG ;湧きだし終わり ? BEQ FUSENMV0480 ; yes: FUSENMV0480 LDA ENDSXL,X ;画面内 ? CLC ; ADC #00040H ; CMP #00100H+040H*2 ; BCS FUSENMV0480 ; no: FUSENMV0480 LDA ENTIM0,X ;湧きだす ? BNE FUSENMV1800 ; no: FUSENMV1800 LDA #FUSEN JSL >ENINSR_I BCC FUSENMV1800 LDA ENWRKC,X STA ENXPSL,Y LDA ESCCV1 CLC ADC #00100H STA ENYPSL,Y LDA #00040H*9 STA ENTIM0,X FUSENMV1800 EQU $ RTL ; FUSEN_PLCHK EQU $ LDY PLYSPD+1 ;プレイヤー上昇中 ? BMI FUSEN_PLCHK0100 ; yes: FUSEN_PLCHK0100 LDY PLEATFG ;プレイヤー 食われてる ? BNE FUSEN_PLCHK0100 ; yes: FUSEN_PLCHK0100 LDA PLBGCR ;プレイヤー頭打ってる ? AND #0000000000011000B ; BNE FUSEN_PLCHK0100 ; yes: FUSEN_PLCHK0100 LDA EPWIDX,X CLC ADC #00010H CMP #00020H BCS FUSEN_PLCHK0100 LDA TROBJ_CLEAR LDA FUSENTRO STA ENTROB,X FUSEN_PLCHK0600 EQU $ RTS FUSEN_PLCHK1000 EQU $ LDY PLJUMP ;プレイヤージャンプ中 ? BEQ FUSEN_PLCHK0100 ; no: FUSEN_PLCHK0100 LDY PONLFFG ;プレイヤー誰かに乗ってる ? BNE FUSEN_PLCHK0200 ; yes: FUSEN_PLCHK0200 STX PONLFFG LDA PLYSPD ;変形率ＣＭＰデータセット LSR A ; LSR A ; CMP #00060H BMI FUSEN_PLCHK1080 LDA #00060H FUSEN_PLCHK1080 EQU $ STA ENWRKA,X ; ASL A CLC ADC ENYSPD,X CMP #000C0H BMI FUSEN_PLCHK1100 LDA #000C0H FUSEN_PLCHK1100 EQU $ STA ENYSPD,X LDA #0FFD0H STA ENGMAX,X LDA PLXSPD CMP #08000H ROR A CMP #08000H ROR A CMP #08000H ROR A CLC ADC ENXSPD,X STA ENXSPD,X STZ ENXMAX,X JSL >TROBJ_SR_4x4 BCC FUSEN_PLCHK1200 STZ TROBJ_PLOT_X,X STA CCWORK0 LDA >TROBJ_PLOT_Y,X STA R2 M_CHIP M_FUSEN_SET LDX FSMK0_SET2 JSL >TROBJ_SR_4x4_CL LDA ENXPSL,X ;Ｘ　ＰＯＳ．セーブ STA TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM LDX TROBJ_OAM_4x4 LDA ENSTFG ORA BIRIBIRI ORA ITEMNO BEQ WARPSMV0100 JSL >EN_XYMOVE WARPSMV0100 EQU $ LDA PLMODE ;プレイヤー元に戻ってる ? CMP #PRET ; BEQ WARPSMV0800 ; yes: WARPSMV0800 TXY LDA WARPSIN0100 WARPSMV0300 EQU $ ASL A TAX JSR (WARPS_SUB,X) JSR WARPS_PLCHK BCS WARPSMV0800 LDA PLYPSL_OLD STA PLYPSL LDA CCHGMK ;プレイヤー何かに変身してる ? BEQ WARPSMV0700 ; no: WARPSMV0700 INC PLSTFG INC ENSTFG WARPSMV0700 EQU $ LDA #00020H ;［Ｓ］ JSL >SOUND_3_ON RTL WARPSMV0800 EQU $ LDA PCHNG_TM ;変身が解けてる ? BNE WARPSMV0900 ; no: WARPSMV0900 LDA ENXPSL,X STA FSMK0_SET2 JMP >ENCLEAR WARPSMV0900 EQU $ RTL ; WARPS_SUB1 EQU $ TYX LDY ENWRK6,X ;横に動いてる ? BNE WARPS_SUB1300 ; no: WARPS_SUB1300 LDA ENXSPD,X ;チェックしていい ? EOR ENXMAX,X ; BMI WARPS_SUB1800 ; no: WARPS_SUB1800 LDA SOUND_3_ON ;;;;;;;; LDA #0001EH ;[Ｓ] ;;;;;;;; STA SOUND0 INC EXINSR LDA ENXPSL,X STA EXXPSL,Y LDA ENYPSL,X SEC SBC #00010H STA EXYPSL,Y LDA #0000BH STA EXWRK0,Y ;counter set LDA #00006H STA EXTIM0,Y ;timer set PLA ;直接ＲＴＬ JMP >ENCLEAR ; WARPS_XSPD EQU $ WARPS_YSPD EQU $ WORD 0FC00H,00400H ; WARPS_PLCHK EQU $ LDY POBBGCR SEC WARPS_PLCHK0080 EQU $ RTS WARPS_PLCHK0100 EQU $ STZ ENWRK6,X LDA #00E00H STA R0 ;(R0) <- 横チェック半径 * 100Hセット LDA #01000H STA R1 ;(R1) <- 縦チェック半径 * 100Hセット STZ R3 ;(R3) <- 縦方向補正値セット LDA #00100H ;(R6) <- 横倍率セット STA R6 ; STA R9 ;縦倍率セット LDA PWIDEX STA R7 LDA PWIDEY STA R8 M_CHIP M_ZOOM_PLCHK LDX ENCLEAR NIKOPIN0100 EQU $ INC NIKP2FLG LDY #008 NIKOPIN0300 EQU $ LDA NIKP3IDX,Y BMI NIKOPIN0500 BEQ NIKOPIN0400 PHY TAY LDA #0FFFFH STA ENWRKC,Y PLY NIKOPIN0400 EQU $ LDA #0FFFFH STA NIKP3IDX,Y NIKOPIN0500 EQU $ DEY DEY BPL NIKOPIN0300 RTL ; ;************************************************************************ ;* move ( にこにこぷん！ ) * ;************************************************************************ NIKOPMV EQU $ ;-- nikopmv -- STZ ENMUKI,X JSL >ENMDCK LDA ENINSR_I BCC NIKOPMV0800 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X STA ENYPSL,Y STX NIKOPIDX INC ENMDCK LDY NIKP2FLG ;クリアする ? BPL NIKP2MV0100 ; no: NIKP2MV0100 LDX NIKOPIDX JSL >ENCLEAR LDX ENCLEAR NIKP2MV0100 EQU $ JSL >DISPCK2 ;画面内 ? BCC NIKP2MV0500 ; yes: NIKP2MV0500 LDY #0FFH ;（敵クリアを１フレーム遅らせて花びらに知らせる） STY NIKP2FLG ; RTL NIKP2MV0500 EQU $ TXY LDA TROBJ_OAM_4x4 LDA ENWRK8,X ;回転角 SEC SBC #00080H AND #001FEH STA R1 LDA ENWRK6,X ;倍率 PHA STA R2 STA R3 LDA #00004 ;回転の中心から顔の中心までの距離 STA R5 M_CHIP M_ENMY_ROTZOM LDA R0 STA 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 TROBJ_SR_4x4 ;領域確保ＯＫ ? BCC NIKP2_SUB0000 ; no: NIKP2_SUB0000 NIKP2_SUB0300 EQU $ LDA ENWRK6,X ;倍率計算（ズームアップ） CLC ; ADC #00010H ; CMP #000E0H ; BPL NIKP2_SUB0400 ; ; NIKP2_SUB0380 EQU $ STA ENWRK6,X ; RTS ; NIKP2_SUB0400 EQU $ CMP #00100H BMI NIKP2_SUB0430 LDA #00100H LDY ENINSR BCC NIKP2_SUB0600 LDA ----------------- LDA #SMK04 JSL >EXINSR LDA ECENTX,X SEC SBC #00008 STA EXXPSL,Y LDA TROBJ_CLEAR RTS ; ;************************************************************************ ;* initial ( にこにこぷん！ 花びら ) * ;************************************************************************ NIKP3IN EQU $ ;-- nikp3in -- RTL ; ;************************************************************************ ;* move ( にこにこぷん！ 花びら ) * ;************************************************************************ ; ENWRK0 ; ENWRK2 ; ENWRK4 ; ENWRK6 ; ENWRK8 ; ENWRKA ; ENWRKC NIKP3IDX のインデックス ; ; ENTIM0 ; ENTIM1 ; ENTIM2 ; ENTIM3 ; ; ENCONT ; NIKP3MV EQU $ ;-- nikp3mv -- STZ ENMUKI,X LDY ENMODE,X CPY #EMOVE BEQ NIKP3MV0100 JSR NIKP3_CLEAR BRA NIKP3MV0180 NIKP3MV0100 EQU $ LDA ENSHOT,X BEQ NIKP3MV0180 JSL >DISPCK2 ;画面内 ? BCC NIKP3MV0180 ; yes: NIKP3MV0180 JSR NIKP3_CLEAR JMP >ENCLEAR NIKP3MV0180 EQU $ JSL >ENMDCK NIKP3MV0190 EQU $ LDY NIKP2FLG ;本体死んだ ? BMI NIKP3MV0200 ; yes: NIKP3MV0200 JSL >DISPCK2 ;画面内 ? BCC NIKP3MV0300 ; yes: NIKP3MV0300 JSR NIKP3_CLEAR JMP >ENCLEAR NIKP3MV0200 EQU $ LDA ENXSPD,X ;すでに発射されてる ? ORA ENYSPD,X ; BNE NIKP3MV0300 ; yes: NIKP3MV0300 JSR NIKP3_CLEAR LDA #00040H STA ENGPOW,X NIKP3MV0300 EQU $ LDY ECRSFG,X DEY BMI NIKP3MV0900 JMP >SHOT_EN_KILL_SP NIKP3MV0900 EQU $ JSL >EPCRCK RTL ; NIKP3_CLEAR EQU $ LDY ENWRKC,X BMI NIKP3_CLEAR0800 LDA #0FFFFH STA NIKP3IDX-2,Y STA ENWRKC,X NIKP3_CLEAR0800 EQU $ RTS ; ;************************************************************************ ;* initial ( vow-vow ) * ;************************************************************************ VOWVWIN EQU $ ;-- vowvwin -- VOWV2IN EQU $ ;-- vowv2in -- LDA ENWRKA,X CMP #0FFFFH BNE VOWVWIN0300 CMP ENWRKC,X BNE VOWVWIN0300 JSL >TROBJ_SR_4x4 BCS VOWVWIN0500 LDA #EINIT STA ENMODE,X RTL VOWVWIN0300 EQU $ JSL >TROBJ_SR_4x4_CL INC ESTATST ; PLA STA ENCOLD,X LDA #00022H STA ENCLOR,X INC A STA ENWRKC,X JMP VOWVWMV0500 VOWVWMV0060 EQU $ LDY ENMODE,X ;食われてる ? CPY #EEATM ; BNE VOWVWMV0100 ; no: VOWVWMV0100 LDA #0FFFFH STA ENWRKA,X STA ENWRKC,X LDA #00100H STA ENWRK6,X LDY ENYUSN,X ;飲み込まれてる ? BMI VOWVWMV0500 ; yes: VOWVWMV0500 VOWVWMV0080 EQU $ JSR VOWVW_ANG_CALC JSR VOWVW_OAM_SET JSR VOWVW_ROT_SET BRA VOWVWMV0500 VOWVWMV0100 EQU $ CPY #EMOVE ;動いてる ? BNE VOWVWMV0080 ; no: VOWVWMV0080 LDY ENSHOT,X ;ショットされてる ? BEQ VOWVWMV0300 ; no: VOWVWMV0300 LDA #00011H STA ENCHPT,X LDA ENMDCK TXY LDA EPCRCK RTL ; VOWVW_ANG_CALC EQU $ LDA ENMYNO,X CMP #VOWVW BEQ VOWVW_A_C0010 JMP VOWV2_ANG_CALC VOWVW_A_C0010 EQU $ LDY TROBJ_OAM_4x4_I IDX8 LDA ENTIM3,X BNE VOWVW_O_SET0300 LDA #00004 STA ENTIM3,X LDA TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_RTZ_32_XY LDX EXINSR LDA #00003 STA EXWRK0,Y ASL A ; LDA #00006H STA EXTIM0,Y LDA #00022H STA EXCLOR,Y PHY LDA TROBJ_SR_4x4_CL LDA #00100H ;初期倍率セット STA ENWRK6,X LDA ENXPSL,X CLC ADC #00004 STA ENWRKA,X LDA ENYPSL,X SEC SBC #00006 STA ENWRKC,X STZ ENMUKI,X JSR BAK20_ROT_SET2 LDA ENMYNO,X ;バケツリフト ? CMP #BAKLF ; BNE BAK20IN0800 ; no: BAK20IN0800 LDA ENXPSL,X AND #00010H LSR A LSR A LSR A STA ENMDCK JSL >DISPCK2 ;範囲外 ? BCC BAK20MV0500 ; no: BAK20MV0500 LDY ENCLEAR_NORETN BAK20MV0300 EQU $ JMP >ENCLEAR BAK20MV0500 EQU $ TXY LDA TROBJ_OAM_4x4 LDA ENWRK9,X AND #000FFH ASL A STA R1 LDA #0000AH STA R6 M_CHIP M_ENMY_1P_ROT LDX -------------------- BAK20_O_SET0500 EQU $ LDA ENOAML,X CLC ADC #008*4 TAY LDA ENWRKA,X SEC SBC ESCCH1 STA SOAM_DX+0+8*0,Y LDA ENWRKC,X SEC SBC ESCCV1 STA SOAM_DX+2+8*0,Y I8 RTS ; BAK20_ENCHK EQU $ LDY ECRSFG,X ;投げられたものにあたった ? DEY ; BMI BAK20_ENCHK0800 ; ; LDA ENMODE,Y ; CMP #EMOVE ; BNE BAK20_ENCHK0800 ; ; LDA ENSHOT,Y ; BEQ BAK20_ENCHK0800 ; no: BAK20_ENCHK0800 TYX JSL >ENDEATH_SET_4 LDA #0002EH ;［Ｓ］ JSL >SOUND_3_ON BAK20_ENCHK0800 EQU $ RTS ; BAK20_ROT_SET EQU $ LDA ENTROB,X BMI BAK20_R_SET0800 LDA ENWRK8,X ;回転してる（ビットマップエリア書き直す） ? CMP TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_RTZ_32_XY LDX ENINSR_I BCC BAK20_SUB0200 STY ENCLEAR LDX SOUND_3_ON BAK20_SUB4800 EQU $ RTS ; BAK20_J_INIT EQU $ LDX ENINSR_I BCC BAK20_D_INIT080 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X CLC ADC #00008 STA ENYPSL,Y LDA #00017H STA ENCHPT,Y BAK20_D_INIT080 EQU $ RTS ; BAK21_COIN_XPOS EQU $ WORD 00004H,00000H,0FFFCH,0FFFFH,00002H BAK21_COIN_YPOS EQU $ WORD 0FFFCH,00004H,00002H,0FFFEH,0FFF8H ; BAK21_D_INIT EQU $ TYX LDY #008H BAK21_D_INIT010 EQU $ PHY LDA !BAK21_COIN_XPOS,Y STA ENINSR BCC BAK21_D_INIT080 LDA ENXPSL,X CLC ADC ENMDCK TXY LDA SOUND_3_ON RTS BAKLF_SUB1300 EQU $ LDY ENWATR,X ;水中 ? BEQ BAKLF_SUB1800 ; no: BAKLF_SUB1800 LDA ENYSPD,X LSR A LSR A LSR A STA ENYSPD,X INC TROBJ_SR_4x4 BCS YUKIDIN0300 LDY ENCLEAR YUKIDIN0300 EQU $ JSR YUKID_ROT_SET_I RTL YUKIDIN0500 EQU $ JSL >TROBJ_SR_4x4_CL JSR YUKID_ROT_SET_I LDA ENXPSL,X STA ENWRKA,X STA EXIST_CHECK_S2 ;中身ある ? BNE YUKIDIN0700 ; no: YUKIDIN0700 M8 LDA ENXPSL,X AND #010H LSR A LSR A LSR A STA TROBJ_OAM_4x4 LDA ENMODE,X CMP #EMOVE BEQ YUKIDMV0100 CMP #EFIRE BNE YUKIDMV0080 PLY PLA YUKIDMV0080 EQU $ JSR YUKID_FAIL YUKIDMV0100 EQU $ JSL >ENMDCK JSR YUKID_ANG_CALC JSR YUKID_SPD_CHG TXY LDA TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; M_CHIP C_32_ROTZOM ; LDX SHOT_EN_KILL ;衝突処理した ? BCC YUKID_PLCHK0300 ; yes: YUKID_PLCHK0300 LDA ENMOD0,X ;衝突チェックされる ORA #0000001000000000B ; STA ENMOD0,X ; PLA RTL YUKID_PLCHK0300 EQU $ LDA YUKID_PLCHK3 YUKID_PLCHK1660 EQU $ LDA PLBGCR ;プレイヤー壁に挟まれた ? AND SLIP_PATN,X STA PLPATN LDX TRBOX_TIME_SET ;;;;;;;; JSL >TROBJ_COUN_SET BRA YUKID_FAIL0600 YUKID_FAIL0400 EQU $ DEY ;１ＵＰ ? DEY ; BNE YUKID_FAIL0500 ; no: YUKID_FAIL0500 JSL >PL_1UP_SET_P ;;;;;;;; JSL >TRBOX_TIME_SET BRA YUKID_FAIL0600 YUKID_FAIL0500 EQU $ LDA #STRKN JSL >ENINSR_I BCC YUKID_FAIL0000 LDA ENXPSL,X STA ENXPSL,Y LDA ENYPSL,X STA ENYPSL,Y YUKID_FAIL0600 EQU $ LDA ENWRKA,X STA NON_EXIST_SET2 YUKID_FAIL0800 EQU $ LDA #SNWBR ;(A) <-- exstra no. JSL >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 BPL YUKID_FAIL0880 LDA #00000 YUKID_FAIL0880 EQU $ STA EXYSPD,Y LDA #00037H ;［Ｓ］ JSL >SOUND_3_ON LDY ENCLEAR ; ;************************************************************************ ;* initial ( キラー砲台 ) * ;************************************************************************ DAI00_I_COL EQU $ WORD 00022H,00024H,00020H ; DAI00IN EQU $ ;-- dai00in -- DAI01IN EQU $ ;-- dai01in -- DAI02IN EQU $ ;-- dai02in -- LDA #00100H ;初期倍率セット STA ENWRK6,X LDA ENMYNO,X ;行動フラグセット SEC ; SBC #DAI00 ; ASL A ; TAY ; STY TROBJ_SR_4x4_CL LDY #004H ;キャラパターンナンバーセット STY ENCLEAR LDX ENMDCK JSR HODAI_PLCHK TXY LDA TROBJ_OAM_4x4_I I8 HODAI_O_SET0800 EQU $ RTS ; HODAI_CHAR EQU $ WORD CIPCHD2+0010H+000H WORD CIPCHD2+0000H+000H WORD CIPCHD2+3000H+000H ; HODAI_ROT_SET EQU $ LDY ENTROB+1,X ;回転オブジェ使用中 ? BMI HODAI_R_SET0800 ; no: HODAI_R_SET0800 ;転送元アドレス＆バンクセット LDY TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- ; ; ldy #004h ; sty 2100h ; ; M_CHIP C_32_ROTZOM_16 M_CHIP M_HODAI_SET ; ; ldy #00fh ; sty 2100h LDX EPCRCK ; LDA POBBGCR ; ; RTS ; ;HODAI_PLCHK0100 EQU $ LDA #00005 STA R0 LDA ENWRK6,X ;(R6) <- 倍率セット STA R6 ; M_CHIP MULTIPLY LDX EXINSR LDA #00006 STA EXWRK0,Y LDA #00002H STA EXTIM0,Y LDA ENXPSL,X ;Ｘ　ＰＯＳ．セット SEC SBC CCWORK11 STA EXXPSL,Y LDA ENYPSL,X ;Ｙ　ＰＯＳ．セット SEC SBC #00008H SEC SBC CCWORK10 STA EXYPSL,Y LDA #00047H ;［Ｓ］ JSL >SOUND_3_ON KIL_SHOT_INIT EQU $ ;キラー持ってる ? LDY ENWRKA+1,X ; no: KILLER_SHOT0000 BMI KILLER_SHOT0000 LDA #00100H ;倍率セット STA ENWRK6,Y LDA ENWRK8,X ;回転角セット STA ENWRK8,Y LDA ENXPSL,X ;Ｘ　ＰＯＳ．セット SEC SBC CCWORK11 STA ENXPSL,Y LDA ENYPSL,X ;Ｙ　ＰＯＳ．セット SEC SBC #00008H SEC SBC CCWORK10 STA ENYPSL,Y LDA ENMUKI,X ;向きセット STA ENMUKI,Y LDA CCWORK12 ;Ｙ　ＳＰＥＥＤセット STA ENYSPD,Y LDA CCWORK13 ;Ｘ　ＳＰＥＥＤセット STA ENXSPD,Y LDA #0110100000100000B ;食える STA ENMOD0,Y ; LDA ENMYNO,Y SEC SBC #KIL00 STA ENWRKC,Y LDA ENWRKC,X ;回転角ワークセット STA ENWRK0,Y ; LDA #00030H ;サーチロックタイマーセット STA ENTIM1,Y ; LDA #00200H ;サーチエンドタイマーセット STA ENTIM2,Y LDA #EINIT STA ENMODE,Y LDA ENWRKA,X ORA #0FF00H ;killer routine index clear STA ENWRKA,X RTS ; HODAI_ANG EQU $ WORD 00000H,00100H ; HODAI_SUB0 EQU $ TYX LDY TROBJ_SR_4x4 BCC HODAI_SUB0800 HODAI_SUB0500 EQU $ JSR KILLER_SET ;キラー弾込めＯＫ ? BCS HODAI_SUB0600 ; yes: HODAI_SUB0600 JSL >TROBJ_CLEAR BRA HODAI_SUB0800 HODAI_SUB0600 EQU $ LDA #00174H STA ENWRK6,X LDA #00001H ;ENWRK2 <- routine mode index inc. STA TROBJ_CLEAR HODAI_SUB2190 EQU $ LDY #000 STY ENINSR2_I BCC KILLER_SET0100 LDA ENMYNO,Y ;直進キラー ? CMP #KIL02 ; BEQ KILLER_SET0300 ; yes: KILLER_SET0300 PHX TYX JSL >TROBJ_SR_4x4 BCS KILLER_SET0200 JSL >ENCLEAR PLX KILLER_SET0100 EQU $ CLC RTS KILLER_SET0200 EQU $ TXY PLX KILLER_SET0300 EQU $ TYA M8 STA ENWRKA,X ;キラーの ROUTINE INDEX をセット STA ENWRKB,X ;キラーの ROUTINE INDEX をセット M16 LDA ENXPSL,X ;キラーのダミーＸ　ＰＯＳ．セット STA ENXPSL,Y LDA ENYPSL,X ;キラーのダミーＹ　ＰＯＳ．セット STA ENYPSL,Y LDA ENCLOR,X STA ENCLOR,Y M8 LDA #0FFH STA ENWTSP,X M16 SEC RTS ; ;************************************************************************ ;* initial ( キラー ) * ;************************************************************************ KIL00IN EQU $ ;-- kil00in -- JSR KIL00_ROT_SET_I KIL02IN EQU $ ;-- kil02in -- KIL00IN_RTL EQU $ RTL ; ;************************************************************************ ;* move ( キラー ) * ;************************************************************************ ; ENWRK0 回転角ワーク ; ENWRK2 サーチロック解除フラグ ; ENWRK4 キャラパターンフラグ ; ENWRK6 倍率 ; ENWRK8 回転角 ; ENWRKA ; ENWRKC 行動タイプ ; ; ENTIM0 キラー口パクタイマー ; ENTIM1 サーチタイマー ; ENTIM2 サーチエンドタイマー ; ; ENCONT しぼみタイマー ; ;KIL00 サーチキラー（回転オブジェ使用） ;KIL02 直進キラー（回転オブジェ未使用） ; KIL00MV EQU $ ;-- kil00mv -- LDY ENYUSN,X BMI KIL00MV0100 LDY ENTROB+1,X BMI KIL00MV0100 JSL >TROBJ_OAM_4x4 KIL00MV0100 EQU $ JSR KIL00_EAT_CHK ; JSL >ENMDCK ; LDY EXINSR LDA #0000BH STA EXWRK0,Y ;counter set LDA #00004H ;timer set STA EXTIM0,Y ; LDA ENXPSL,X STA EXXPSL,Y ;X pos set LDA ENYPSL,X STA EXYPSL,Y ;Y pos set JMP >ENCLEAR KIL00MV0400 EQU $ LDA #00018H ;フラッシングカウンターセット STA ENMDCK LDA #00004 STA ENYUSN,X KIL00MV0980 EQU $ LDA ENWRK6,X ;(R4) <- チェックＸ倍率 STA R4 ;(R9) <- チェックＹ倍率 STA R9 JSR KIL00_PLCHK ;プレイヤーチェック LDA ENTIM0,X ;キャラパターンチェンジ ? BNE KIL00MV0A00 ; no: KIL00MV0A00 LDA #00006H ;キャラパターンチェンジタイマーセット STA ENTIM0,X ; LDA TROBJ_CLEAR KIL00_E_CHK0100 EQU $ LDA ENXSPD,X PHA LDA ENYSPD,X PHA LDA ENCLOR,X PHA TXY LDA #KIL02 JSL >ESTATST LDY ENMUKI,X LDA !KIL00_I_XMAX,Y STA ENXMAX,X LDA #00040H STA ENGPOW,X STA ENXPOW,X LDA #0110100000100000B ;食える STA ENMOD0,X ; ; LDA #00016H ;Ｇ　ＰＯＷＥＲセット ; STA ENGPOW,X ; ; LDA #002CCH ;Ｇ　ＭＡＸセット ; STA ENGMAX,X ; ; ; LDA #EFAIL ;モードチェンジ ; STA ENMODE,X ; ; LDA ENMOD1,X ;ＢＧチェックキャンセル ; AND #0FFE0H ; ; STA ENMOD1,X ; PLA STA ENCLOR,X PLA STA ENYSPD,X PLA STA ENXSPD,X PLA RTL KIL00_E_CHK0800 EQU $ RTS ; KIL00_CHAR EQU $ WORD CIPCHD2+1000H+000H WORD CIPCHD2+0020H+000H ; KIL00_ROT_SET EQU $ TROBJ_CHK_4 ;回転オブジェセットフレーム ? BNE KIL00_R_SET0800 ; no: KIL00_R_SET0800 LDA #00004 STA ENYUSN,X KIL00_ROT_SET_I EQU $ LDY 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 RTS KIL00_PLCHK0100 EQU $ LDA #00006 JSR KIL00_PLCHK_SB BCS KIL00_PLCHK0800 STZ PLYSPD STZ PLSPJP ;ふんばりフラグクリア JSL >PLFLST KIL00_PLCHK0800 EQU $ RTS ; KIL00_PLCHK_SB EQU $ STA R6 LDA R4 STA R0 M_CHIP MULTIPLY LDX TROBJ_OAM_4x4 LDA ENSTFG ORA BIRIBIRI ORA ITEMNO BNE KIL00FL0800 LDA ENWRK8,X ;回転角計算 CLC ; ADC #00002 ; AND #001FEH ; STA ENWRK8,X ; JSR KIL00_ROT_SET KIL00FL0800 EQU $ RTL ; KIL02FL EQU $ ;-- kil02fl -- JMP >ENFAIL_FALL ; ;************************************************************************ ;* initial ( バウンドキラー ) * ;************************************************************************ KIL01IN EQU $ ;-- kil01in -- JSR KIL01_ROT_SET RTL ; ;************************************************************************ ;* move ( バウンドキラー ) * ;************************************************************************ ; ENWRK0 着地時のＥＮＳＬＯＰ ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 縦倍率 ; ENWRK6 横倍率 ; ENWRK8 回転角 ; ENWRKA 着地時のＸ　ＳＰＥＥＤ ; ENWRKC 着地時のＹ　ＳＰＥＥＤ ; ; ENCONT 着地時のＥＮＣＢＦＧ ; ; ENTIM0 ウェイトタイマー ; ENTIM1 ; ENTIM2 ; KIL01_SUB EQU $ WORD KIL01_SUB0 ;NORMAL WORD KIL01_SUB1 ;BOUND ANIMATION 1 WORD KIL01_SUB2 ;BOUND ANIMATION 2 WORD KIL01_SUB3 ;BOUND ANIMATION 3 ; KIL01MV EQU $ ;-- kil01mv -- LDY ENYUSN,X BMI KIL01MV0100 LDY ENTROB+1,X BMI KIL01MV0100 JSL >TROBJ_OAM_4x4 KIL01MV0100 EQU $ JSR KIL00_EAT_CHK LDA ENCOLD,X BEQ KIL01MV0300 STZ ENMOD1,X KIL01MV0300 EQU $ JSL >ENMDCK LDA #00004H STA ENYUSN,X TXY LDA TROBJ_PLOT_X,X ;(R3) <- ビットマップ座標＿Ｘセット STA R3 ; LDA >TROBJ_PLOT_Y,X ;(R2) <- ビットマップ座標＿Ｙセット STA R2 ; ; ;-------------- OBJ mode 7 set ---------------------------------- M_CHIP C_32_RTZ_32_XY LDX TROBJ_SR_4x4_CL LDA #00100H ;初期倍率セット STA ENWRK6,X ; LDA ENYPSL,X STA TROBJ_OAM_4x4 ;;;;;;;; JSL >ENMDCK ;mode check ; LDA ENSTFG ORA BIRIBIRI ORA ITEMNO BEQ MSGBXMV0100 JSL >EN_XYMOVE JSL >EN_TIMER MSGBXMV0100 EQU $ STZ ENMUKI,X TXY LDA SOUND_3_ON INC ENDEATH_SET_4 BRA MSGBXMV0780 MSGBXMV0880 EQU $ LDA ENTIM1,X ;キャラパターンチェンジ ? BNE MSGBXMV0900 ; no: MSGBXMV0900 LDA #00008 STA ENTIM1,X LDA ENWRK8,X EOR #00002 STA ENWRK8,X MSGBXMV0900 EQU $ JSL >POBBGCR ; RTL ; MSGBX_ROT_SET EQU $ LDY ENWRK8,X LDA !MSGBX_CHAR,Y STA R12 LDA #BANK CIPCHD3+6010H+000 STA R13 LDA ENWRK6,X STA R6 SEC SBC #00100H LSR A STA TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; LDA #00008H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; STA R9 ;(R9) <- 中心Ｙ　ＰＯＳ． M_CHIP C_32_ZOOM_XY_16 LDX MSG_NO ; ; CMP #00001 BNE MSGBX_SUB2500 LDA !CONFIGFG BEQ MSGBX_SUB2500 LDA #CNFG_MSG STA >MSG_NO ; MSGBX_SUB2500 EQU $ INC MSGMOD STZ ENMDCK LDY ECRSFG,X BPL BTELEMV0300 JSL >PLFLST LDY EPCRCK BTELEMV0400 EQU $ JSR BTELE_SOUND_CHK LDY ENINSR BCC HSAN0IN0500 LDA ENXPSL,X STA ENXPSL,Y STA ENWRK6,Y LDA ENYPSL,X SEC SBC #00010H STA ENYPSL,Y STY ENMDCK LDY EPCRCK HSAN0MV0040 EQU $ LDY ENINSR BCC HSAN0_SUB0800 LDA ENXPSL,X STA ENXPSL,Y STA ENWRK6,Y LDA ENYPSL,X DEC A DEC A STA ENYPSL,Y STY TROBJ_SR_4x4_CL LDA #00100H ;初期倍率セット STA ENWRK6,X ; STA ENWRK8,X ; JSR BETO0_ROT_SET RTL ; ;************************************************************************ ;* move ( べとべとくん ) * ;************************************************************************ ; ENWRK0 プレイヤーＯＮフラグ ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 Ｘスピード ; ENWRK6 横倍率 ; ENWRK8 縦倍率 ; ENWRKA ; ENWRKC プレイヤーのＸ　ＰＯＳ．補正値 ; ; ENCONT ズームデータのインデックス ; ; ENTIM0 ストップタイマー ; ENTIM1 キャラパターンチェンジタイマー ; BETO0_SUB EQU $ WORD BETO0_SUB0 ;じっとしてる WORD BETO0_SUB1 ;あるいてる WORD BETO0_SUB2 ;プレイヤー発見（ジャンプまで） WORD BETO0_SUB3 ;プレイヤー発見（着地まで） WORD BETO0_SUB4 ;プレイヤーに突進 WORD BETO0_SUB5 ;プレイヤー乗ってる（着地） WORD BETO0_SUB6 ;プレイヤー乗ってる（横伸び＆キー待ち） WORD BETO0_SUB7 ;プレイヤー乗ってる（ジャンプ） WORD BETO0_SUB8 ;プレイヤー乗ってる（小ジャンプ） WORD BETO0_SUB9 ;元通り ; BETO0_EN_RXSPD EQU $ WORD 00200H,0FE00H ; BETO0MV EQU $ ;-- beto0mv -- JSR BETO0_OAM_SET LDA ENMODE,X CMP #EMOVE BEQ BETO0MV0300 LDY ENMDCK JSR BETO0_BGCHK JSR BETO0_DSPCHK JSR BETO0_PLCHK TXY LDA CHIPON BETO0MV1100 EQU $ LDX ENDEATH_SET_4 BRA BETO0MV1000 BETO0MV1300 EQU $ LDA ENWRK4,Y ;オプションになってる ? BNE BETO0MV1000 ; yes: BETO0MV1000 PHX LDX #000 LDA CCWORK0 ;右からあたってきた ? BPL BETO0MV1400 ; yes: BETO0MV1400 INX INX BETO0MV1400 EQU $ LDA >BETO0_EN_RXSPD,X PLX STA ENXSPD,Y LDA #0FC00H STA ENYSPD,Y LDA #00040H STA ENGPOW,Y LDA #00001 STA ENSHOT,Y BRA BETO0MV1000 ; BETO0_OAM_SET EQU $ LDA ENCLOR,X AND #0FF00H BNE BETO0_O_SET0800 LDY ENYUSN,X BMI BETO0_O_SET0800 JSL >TROBJ_OAM_4x4 LDA ENDSXL,X CLC ADC #00008-4 STA TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY_16 LDX ENDEATH_SET LDA #0001DH ;［Ｓ］ JSL >SOUND_3_ON ;;;;;;;; LDA #00008H ;［Ｓ］ ;;;;;;;; STA SOUND0 LDX #BANK MY_ENCROS LDA R15 JSL >CHIPON BRA BETO0_ENCHK0100 BETO0_ENCHK0800 EQU $ RTS ; BETO0_BGCHK EQU $ LDA ENCBFG,X AND #0000CH BEQ BETO0_BGCHK0800 AND #00008 DEC A EOR ENXSPD,X BPL BETO0_BGCHK0800 LDA ENXPSL,X SEC SBC ENMOVX,X STA ENXPSL,X BETO0_BGCHK0800 EQU $ RTS ; BETO0_DSPCHK EQU $ CPX PONLFFG ;プレイヤー乗ってる ? BNE BETO0_DSPCHK080 ; no: BETO0_DSPCHK080 LDA ENDSXL,X BMI BETO0_DSPCHK050 CMP #000F0H BMI BETO0_DSPCHK080 BETO0_DSPCHK050 EQU $ SEC SBC ENMOVX,X STA ENXPSL,X STZ ENXSPD,X BETO0_DSPCHK080 EQU $ RTS ; BETO0_S0_XSPD EQU $ WORD 0FF00H,00100H ; BETO0_SUB0 EQU $ TYX LDA ENTIM0,X BNE BETO0_SUB0800 LDA SOUND_3_ON ; LDA KEYC1L+1 ;左右キーが入ってる ? ; AND #00003 ; ; BEQ BETO0_SUB7100 ; no: BETO0_SUB7100 ; ; AND #00002 ; CPY #000 ;SUB7 ? ; BEQ BETO0_SUB7080 ; yes: BETO0_SUB7080 ; ; CLC ; ADC #00004 ; ;BETO0_SUB7080 EQU $ ; TAY ; LDA !BETO0_S7_XSPD,Y ; ;BETO0_SUB7100 EQU $ LDA TROBJ_SR_4x4_CL LDA #00004H STA ENBGYP,X STZ ENWRKA,X ;ENBGYP 加減算フラグリセット JSR NUNOO_ROT_SET_I RTL ; ;************************************************************************ ;* move ( 布おばけ ) * ;************************************************************************ ;B ENWRK0 中身セットフラグ ;B ENWRK1 キャラパターンカウンター ; ENWRK2 ROUTINE MODE INDEX ;B ENWRK4 赤ちゃんＧＥＴフラグ ;B ENWRK5 ENBGYP 変更ロックフラグ ; ENWRK6 BERXPS SAVE ; ENWRK8 回転角 ; ENWRKA ENBGYP 加減算フラグ ; ENWRKC 回転角セーブ(SUB1)／回転角変更倍率(SUB2) ; ; ENCONT 回転方向フラグ ; ; ENTIM0 ; EBTIM1 キャラパターンチェンジタイマー ; ENTIM2 回転角変更ロックフラグ１ ; ENTIM3 　　　　　”　　　　　２ ; NUNOO_CHAR EQU $ WORD CIPCHD3+0040H+000 WORD CIPCHD3+0020H+000 WORD CIPCHD3+0000H+000 ; NUNOO_SUB EQU $ WORD NUNOO_SUB0 ;のーまる WORD NUNOO_SUB1 ;ジャンプ（上昇） WORD NUNOO_SUB2 ;ジャンプ（下降） WORD NUNOO_SUB3 ;プレイヤーにおおいかぶさり WORD NUNOO_SUB4 ;にげ ; NUNOOMV EQU $ ;-- nunoomv -- JSR NUNOO_OAM_SET ; LDA ENCOLD,X ; BNE NUNOOMV0010 ; LDY ENMODE,X ;布食われた ? CPY #EEATM ; BEQ NUNOOMV0400 ; yes: NUNOOMV0400 CPY #EFALL ;死んでる ? BEQ NUNOOMV0100 ; yes: NUNOOMV0100 CPY #ECHNG BEQ NUNOOMV0010 ; CPY #EFIRE ; BEQ NUNOOMV0010 JMP NUNOOMV0B00 ; no: NUNOOMV0B00 NUNOOMV0010 EQU $ LDY BABYM_SHABN_C7 NUNOOMV0080 EQU $ JMP NUNOOMV0B00 NUNOOMV0100 EQU $ LDY ENCLEAR NUNOOMV0400 EQU $ LDY BERFLG ;下から食われた ? CPY #003 ; BEQ NUNOOMV0500 ; yes: GONTAMV0500 CPY #004 ; BNE NUNOOMV0800 ; no: GONTAMV0800 NUNOOMV0500 EQU $ LDY ENMDCK ;mode check LDY EPCRCK NUNOOMV1000 EQU $ ;＊＊＊＊＊＊＊＊＜　範囲外チェック　＞＊＊＊＊＊＊＊＊＊＊ JSR NUNOO_DISP_CHK ;＊＊＊＊＊＊＊＊＜　ムーブサブ　＞＊＊＊＊＊＊＊＊＊＊ TXY LDA TROBJ_OAM_4x4 LDA ENWRK8,X STA R1 LDA #00008H STA R6 M_CHIP M_ENMY_1P_ROT LDX DISPCK2 ;画面外 ? BCC NUNOO_D_CHK0100 ; no: NUNOO_D_CHK0100 LDY ENCLEAR NUNOO_D_CHK0100 EQU $ LDY 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 LDA #0FFFFH STA ENTIM3+BABY_INDEX STA NOSEIDX ;乗せフラグクリア LDA #BABYM_RMODE40 STA ENINSR ; BCC NAKAMI_SET0600 ;fail: NAKAMI_SET0600 LDA ENXPSL,X ;中身Ｘ　ＰＯＳ．セット CLC ; ADC BABYM_SHABN_C3 LDY #004 STY ENYUSN+BABY_INDEX STZ ENINSR BCC NAKAMI_SET0600 LDA ENXPSL,X ;中身Ｘ　ＰＯＳ．セット CLC ; ADC DOROB_SET JMP NAKAMI_SET0600 ; BERO_XPS EQU $ WORD 00008H,0FFF8H BERO_XPS2 EQU $ WORD 00008H,0FFF8H EAT_XPS EQU $ WORD 0FFF8H,00008H EAT_XPS_REV EQU $ WORD 0FFE8H,00018H ; SHITA_ADJUST EQU $ LDA PLCMKI ;キャラ向きセット AND #00002H ; TAY ; STA ENMUKI,X ; LDA ENCHPT,X ;パターンチェンジ終わり ? CMP #00003H ; BMI SHITA_AD0000 ; no: SHITA_AD0000 JMP SHITA_AD0800 SHITA_AD0000 EQU $ LDA BERXPS ;yossy bero x_pos. adjust BEQ SHITA_AD0200 ; CLC ; ADC #00008H ; CMP #00010H ; BCS SHITA_AD0100 ; ; LDA !BERO_XPS,Y ; STA BERXPS ; BRA SHITA_AD0200 SHITA_AD0100 EQU $ LDA BERXPS ;bero offset x_pos. calc. SEC ; SBC ENWRK6,X ; CLC ; ADC EATOFX ; STA EATOFX ; SHITA_AD0200 EQU $ LDA ENTIM1,X ;キャラパターンチェンジ? BNE SHITA_AD0300 ; no: SHITA_AD0300 LDA #00002H STA ENTIM1,X INC ENCHPT,X ;char. pat. no. inc. LDA ENCHPT,X ;キャラパターンチェンジ終わり ? CMP #00003H ; BEQ SHITA_AD0400 ; yes: SHITA_AD0400 SHITA_AD0300 EQU $ JMP SHITA_AD0A00 ; no: SHITA_AD0A00 SHITA_AD0400 EQU $ LDA EATOFX CLC ADC BERXPS PHA AND #08000H STA TROBJ_SR_4x4_CL LDA ENMYNO,X SEC SBC #RLTLF ASL A TAY LDA !RLTLF_ANG_ADD,Y ;回転角加算値の加算値セット STA ENWRKA,X STZ ENWRKC,X ;スピードのスカラー量クリア LDA #00100H ;初期倍率セット STA ENWRK6,X JSR RLTLF_ROT_SET RTL ; ;************************************************************************ ;* move ( ルーレットリフト ) * ;************************************************************************ ; ENWRK0 プレイヤー一度でも乗ったかフラグ ; ENWRK2 進行方向 ; ENWRK4 回転角加算値 ; ENWRK6 倍率 ; ENWRK8 回転角 ; ENWRKA 回転角加算値の加算値 ; ENWRKC スピードのスカラー量 ; ; ENCONT EPWIDX のセーブ ; ; ENTIM0 フラッシング開始タイマー ; ENTIM1 寿命タイマー ; ENTIM2 ; RLTLFMV EQU $ ;-- rltlfmv -- RLTL2MV EQU $ ;-- rltl2mv -- STZ ENMUKI,X JSL >TROBJ_OAM_4x4 JSL >RLTLF_MDCK JSR RLTLF_DISPCK JSR RLTLF_PLCHK JSR RLTLF_SPD_SET JSR RLTLF_BGCHK JSR RLTLF_ROT_SET LDY ENCLEAR RLTLFMV3600 EQU $ LDY #0FFH LDA FRCNT2 AND #00001 BNE RLTLFMV3700 LDY #005 RLTLFMV3700 EQU $ TYA STA ENYUSN,X RLTLFMV3800 EQU $ RTL ; RLTLF_DISPCK EQU $ JSL >DISPCK0 BCS RLTLF_DISPCK800 RTS ; RLTLF_MDCK EQU $ LDA ENSTFG ;処理停止中 ? ORA BIRIBIRI ORA ITEMNO BNE RLTLF_MDCK0140 ; yes: RLTLF_MDCK0140 LDY ENSHOT,X ;ショットされてる ? BNE RLTLF_MDCK0200 ; yes: RLTLF_MDCK0200 LDA ENMODE,X CMP #EMOVE BEQ RLTLF_MDCK0180 RLTLF_MDCK0140 EQU $ PLY RLTLF_DISPCK800 EQU $ PLA RLTLF_MDCK0180 EQU $ RTL RLTLF_MDCK0200 EQU $ LDA #00040H STA ENXPOW,X STZ ENXMAX,X STZ ENGMAX,X LDA ENXSPD,X CLC ADC #00040H CMP #00080H BCS RLTLF_MDCK0210 STZ ENXSPD,X STZ ENXPOW,X RLTLF_MDCK0210 EQU $ LDA ENYSPD,X CLC ADC #00040H CMP #00080H BCS RLTLF_MDCK0220 STZ ENYSPD,X STZ ENGPOW,X RLTLF_MDCK0220 EQU $ LDA ENXSPD,X ORA ENYSPD,X BEQ RLTLF_RETURN LDY ECRSFG,X ;敵にあたった ? DEY ; BMI RLTLF_MDCK0300 ; no: RLTLF_MDCK0300 LDA ENMODE,Y ;あたった敵は動いてる ? CMP #EMOVE ; BNE RLTLF_MDCK0300 ; no: RLTLF_MDCK0300 ; LDA ENMOD0,Y ;あたった敵はショットした敵とあたる ? AND #0000000000100000B ; BNE RLTLF_MDCK0300 ; no: RLTLF_MDCK0300 ; ;-------------- 敵を蹴散らす -------------------- PHY TYX JSL >ENDEATH_SET ;敵の死亡セット PLY LDA #00 STA ENXPOW,Y LDA #0FE00H STA ENYSPD,Y ; LDX FSMK0_SET RLTLF_RETURN EQU $ JSL >TROBJ_CLEAR LDA ESTATST ;enemy status set PLA STA ENWRK8,X PLA STA ENWRK6,X PLA STA 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 TROBJ_SR_4x4_CL LDA ENWRKC,X INC A BEQ RLTL3IN0500 INC A BEQ RLTL3IN0400 RLTL3IN0300 EQU $ LDA ENXSPD,X AND #00010H BEQ RLTL3IN0500 RLTL3IN0400 EQU $ LDA #00020H STA ENCLOR,X RLTL3IN0500 EQU $ STZ ENWRKC,X ;スピードのスカラー量 LDA ENWRK6,X ;回転の途中だった ? SEC ; SBC ENWRK8,X ; BEQ RLTL3IN0700 ; no: RLTL3IN0700 AND #000FFH ;今の回転角と、目標回転角が正反対 BEQ RLTL3IN0600 ; yes: RLTL3IN0600 LDY #001 STY TROBJ_OAM_4x4 LDA ENMODE,X CMP #EEATM BNE RLTL3MV0500 LDY ENYUSN,X BPL RLTL3MV0500 LDA #0FFFFH STA ENWRKC,X LDA ENWRK6,X AND #00040H BEQ RLTL3MV0500 DEC ENWRKC,X RLTL3MV0500 EQU $ JSL >RLTLF_MDCK JSR RLTLF_DISPCK JSR RLTLF_PLCHK JSR RLTLF_SPD_SET JSR RLTLF_BGCHK JSR RLTL3_ENCHK TXY LDA ENDEATH_SET_4 PLY LDA #00020H ;ショット敵チェックロックタイマーセット STA ENTIM0,X ; LDA ENXSPD,Y CMP #08000H ROR A CMP #08000H ROR A STA R1 LDA ENYSPD,Y CMP #08000H ROR A CMP #08000H ROR A STA R2 M_CHIP M_RAD_GET LDX ENCLEAR POWSWIN0100 EQU $ JSL >TROBJ_SR_4x4_CL LDY POWSWCNT LDA !POWSW_ZOOM_INIT,Y ;初期倍率セット STA ENWRK6,X ; STZ ENMUKI,X ;向きロック JSR POWSW_ROT_SET RTL ; ;************************************************************************ ;* move ( pow switch ) * ;************************************************************************ ; ENWRK2 ROUTINE MODE INDEX ; ENWRK6 倍率 ; POWSW_SUB EQU $ WORD DUMMY_SUB ;まち WORD POWSW_SUB1 WORD DUMMY_SUB ; POWSWMV EQU $ ;-- powswmv -- JSL >TROBJ_OAM_4x4 JSL >ENMDCK TXY LDA ZOOM_PLCHK ; LDY TO_COIN_CHANGE INC SOUND_3_ON ;;;;;;;; LDA #00016H ;[Ｓ] ;;;;;;;; STA SOUND3 INC POWSWCNT ;ラスト ? INC POWSWCNT ; LDY POWSWCNT ; CPY #006 ; BNE POWSWMV0800 ; no: POWSWMV0800 LDA #KUMOB JSL >EXINSR LDA ENXPSL,X STA EXXPSL,Y LDA ENYPSL,X SEC SBC #00010H STA EXYPSL,Y LDA #0000BH STA EXWRK0,Y ;counter set LDA #00006H STA EXTIM0,Y ;timer set JSL >TROBJ_CLEAR JSL >ENCLEAR POWSWMV0800 EQU $ RTL ; POWSW_ROT_SET EQU $ LDA ENWRK6,X ;(R0) <- Ｙ倍率セット STA R11 LDA #00100H ;(R4) <- Ｘ倍率セット STA R6 ; LDA #00010H ;(R8) <- 中心Ｘ　ＰＯＳ． STA R8 ; ; LDA #00000H ;(R9) <- 中心Ｙ　ＰＯＳ． STZ R9 ; LDA #BANK CIPCHD2+60A0H+000 ;chara data bank set STA R13 LDA #CIPCHD2+60A0H+000 ;chara data address set STA R12 LDY ENTROB,X TYX LDA >TROBJ_PLOT_X,X ;回転エリアＸ　ＰＯＳ．セット STA R3 ; LDA >TROBJ_PLOT_Y,X ;回転エリアＹ　ＰＯＳ．セット STA R2 ; M_CHIP C_32_ZOOM_XY LDX TROBJ_SR_4x4_CL LDY #003 ;ジャンプ回数セット STY ENCLEAR PKPK2IN0800 EQU $ TAY LDA ENXPSL,X ;往復の中心Ｘ　ＰＯＳ．セット CLC ; ADC !PKPK2_I_XREV,Y ; STA ENWRKA,X ; JSR PKPK2_ROT_SET RTL ; ;************************************************************************ ;* move ( ぷくぷく ) * ;************************************************************************ ; ENWRK0 キャラパターンフラグ ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 向きセーブ ; ENWRK8 回転角 ; ENWRKA 往復の中心Ｘ　ＰＯＳ． ; ENWRKC 水面のＹ　ＰＯＳ． ; ; ENCONT ジャンプ回数 ; PKPK2_SUB EQU $ WORD PKPK2_SUB0 ;のーまる左右 WORD PKPK2_SUB1 ;たーん WORD PKPK2_SUB2 ;じゃんぷ WORD DUMMY_SUB ;消滅 ; PKPK2MV EQU $ ;-- pkpk2mv -- PKPK3MV EQU $ ;-- pkpk3mv -- JSR PKPK2_OAM_SET JSL >PKPK2_FALL JSL >ENMDCK TXY LDA EPCRCK RTL ; PKPK2_FALL_CHPT EQU $ HEX 003,004,005,004 ; PKPK2_OAM_SET EQU $ LDA ENTROB,X BMI PKPK2_O_SET0800 LDA ENOAML,X BMI PKPK2_O_SET0800 LDY ENYUSN,X BMI PKPK2_O_SET0800 JSL >TROBJ_OAM_4x4 I16 LDY ENOAML,X LDA SOAM_DX+0+8*0,Y STA SOAM_DX+0+8*4,Y LDA SOAM_DX+2+8*0,Y STA SOAM_DX+2+8*4,Y LDA SOAM_DX+4+8*0,Y STA SOAM_DX+4+8*4,Y I8 PKPK2_O_SET0800 EQU $ RTS ; PKPK2_FALL EQU $ LDA ENMODE,X ;プレイヤーに踏まれた ? CMP #EFALL ; BNE PKPK2_FALL0800 ; no: PKPK2_FALL0800 CPX PONLFFG ;プレイヤー乗ってた ? BNE PKPK2_FALL0300 ; no: PKPK2_FALL0300 STZ PONLFFG PKPK2_FALL0300 EQU $ LDA ENTROB,X BMI PKPK2_FALL0500 JSL >TROBJ_CLEAR PKPK2_FALL0500 EQU $ LDA #00004 STA ENCHPT,X LDA ENCLOR,X ORA #00080H STA ENCLOR,X ; CMP TROBJ_CLEAR ; ;PKPK2_FALL0500 EQU $ ; LDA ENTIM1,X ; BNE PKPK2_FALL0700 ; ; LDA #00004H ; STA ENTIM1,X ; ; LDY 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 TROBJ_SR_4x4 ;回転エリア確保できた ? BCC PKPK2_SUB0300 ; no: PKPK2_SUB0300 INC TROBJ_CLEAR STZ ENYSPD,X STZ ENGPOW,X STZ ENCHPT,X STZ EXINSR LDA ENXPSL,X STA EXXPSL,Y LDA ENYPSL,X STA EXYPSL,Y LDA #00006 STA EXCHPT,Y LDA #00002 STA EXTIM0,Y LDA #00003 ;［Ｓ］ JSL >SOUND_3_ON ;;;;;;;; LDA #0000EH ;［Ｓ］ ;;;;;;;; STA SOUND0 RTS ; ;************************************************************************ ;* initial ( ころがりくん ) * ;************************************************************************ KOROGIN EQU $ ;-- korogin -- RTL ; ;************************************************************************ ;* move ( ころがりくん ) * ;************************************************************************ ; ENWRK0 ; ENWRK2 ROUTINE MODE INDEX ; ENWRK4 まるまりフラグ 0...NORMAL 2...TAMA ; ENWRK6 衝突チェックフラグ ; ENWRK8 キャラチェンジカウンター ; ENWRKA 倒した敵の数 ; ENWRKC Y SPEED ; ; ENTIM0 ムーブロックタイマー ; ENTIM1 キャラパターンチェンジタイマー ; ENTIM2 プレイヤーチェックロックタイマー ; ENTIM3 プレイヤーダメージロックタイマー ; KOROG_SUB EQU $ WORD KOROG_SUB0 ;まったれや WORD KOROG_SUB1 ;じゃんぷじゃん WORD KOROG_SUB2 ;たま ; KOROGMV EQU $ ;-- korogmv -- JSL >ENMDCK LDA ENXSPD,X ;止まりかけてる ? CLC ; ADC #00008H ; CMP #00010H ; BCS KOROGMV0100 ; no: KOROGMV0100 STZ ENXSPD,X KOROGMV0100 EQU $ TXY LDA SHOT_EN_KILL KOROGMV0900 EQU $ CMP #KORA0 ;亀類と衝突した ? BCC KOROGMV0B00 ; no: KOROGMV0B00 CMP #PTPT2+1 ; BCS KOROGMV0B00 ; no: KOROGMV0B00 JSR KOROG_KAME_KILL RTL KOROGMV0A00 EQU $ LDY ECRSFG,X ;プレイヤーと衝突した ? BPL KOROGMV0B00 ; no: KOROGMV0B00 LDA #00062H ;［Ｓ］ STA SOUND_3_ON LDA #00010H ;プレイヤーチェックロックタイマーセット STA ENTIM2,X LDA #00002 STA ENCHPT,X STA EPCRCK RTL ; KOROG_SUB0 EQU $ TYX LDY EPXMUK,X TYA STA ENMUKI,X STZ ENCHPT,X ;キャラパターンチェンジロック LDA ENTIM0,X ;まってる ? BNE KOROG_SUB0800 ; yes: KOROG_SUB0800 STZ SOUND_3_ON KOROG_PLCHK0200 EQU $ LDA KEYC1L+1 ;プレイヤーのキー入力があった ? AND #00003 ; BEQ KOROG_PLCHK0300 ; no: KOROG_PLCHK0300 AND #00002 ;プレイヤー、たまに向かう方向にキーをいれてる ? DEC A ; EOR EPWIDX,X ; BMI KOROG_PLCHK0500 ; yes: KOROG_PLCHK0500 ; ;プレイヤーを弾く KOROG_PLCHK0300 EQU $ LDA ENXSPD,X ;止まってる ? BEQ KOROG_PLCHK0480 ; yes: KOROG_PLCHK0480 CMP #08000H ROR A STA ENXSPD,X STA R0 LDA #00300H STA R6 M_CHIP MULTIPLY LDX YUKID_PL_SLIP LDA PLNAGE ;プレイヤー投げポーズ ? ORA BERFLG ;プレイヤーお食事ポーズ ? BNE KOROG_PLCHK04B0 ; yes: KOROG_PLCHK04B0 LDY EPXMUK,X TYA STA PLCMKI KOROG_PLCHK04B0 EQU $ RTS ; ;プレイヤーに蹴られる KOROG_PLCHK0500 EQU $ LDA ENXSPD,X ;プレイヤーと反対方向に向かってる ? EOR PLXSPD ; BPL KOROG_PLCHK0600 ; no: KOROG_PLCHK0600 LDA ENXSPD,X ;プレイヤーとくっつく CLC ; ADC PLXSPD ; CMP #08000H ; ROR A ; STA ENXSPD,X ; STA PLXSPD ; STA PLMVSP ; RTS KOROG_PLCHK0600 EQU $ LDY EPXMUK,X LDA PLXSPD CLC ADC !KOROG_PL_XSPD,Y STA ENXSPD,X LDA PLXSPD STA R0 LDA #000C0H STA R6 M_CHIP MULTIPLY LDX SHOT_EN_KILL JMP KOROG_DEAD KOROG_ENCHK0150 EQU $ LDA ENWRK2,Y ;ズームフラワー満開 ? CMP #002 ; BNE KOROG_ENCHK0190 ; no: KOROG_ENCHK0190 INC ENSHOT,X ;ズームフラワーの方でチェックさせる LDA #0000011000100000B ; STA ENMOD0,X ; BRA KOROG_ENCHK0000 ; KOROG_ENCHK0180 EQU $ LDA ENMYNO,Y ;同じころがりくん ? CMP #KOROG ; BNE KOROG_ENCHK0300 ; no: KOROG_ENCHK0300 LDA ENWRK6,X ;すでに衝突処理はしてる ? BEQ KOROG_ENCHK0200 ; no: KOROG_ENCHK0200 STZ ENWRK6,X ;衝突チェックフラグクリア KOROG_ENCHK0190 EQU $ BRA KOROG_ENCHK0800 KOROG_ENCHK0200 EQU $ JSR KOROG_KOROG_CRS BRA KOROG_ENCHK0800 KOROG_ENCHK0300 EQU $ PHA LDA ENWRKA,X ;倒した敵の数カウント INC A ; CMP #00008+1 ; BPL KOROG_ENCHK0310 ; ; STA ENWRKA,X ; ; KOROG_ENCHK0310 EQU $ PLA CMP #KORA0 ;亀類と衝突した ? BCC KOROG_ENCHK0700 ; no: KOROG_ENCHK0700 CMP #PTPT2+1 ; BCS KOROG_ENCHK0700 ; no: KOROG_ENCHK0700 ; ;-------------- 亀類と衝突 ---------------------- KOROG_ENCHK0500 EQU $ JSR KOROG_KAME_CRS BRA KOROG_ENCHK0780 ; ;-------------- 敵を蹴散らす -------------------- KOROG_ENCHK0700 EQU $ PHY TYX JSL >ENDEATH_SET_4 ;敵の死亡セット PLY ; KOROG_ENCHK0780 EQU $ LDA ENWRKA,X ;１ｕｐする ? CMP #00008 ; BMI KOROG_ENCHK0790 ; no: KOROG_ENCHK0790 TYX JSL >PL_1UP_SET_P BRA KOROG_ENCHK0800 KOROG_ENCHK0790 EQU $ TAY LDA !KOROG_SOUND,Y AND #000FFH JSL >SOUND_3_ON KOROG_ENCHK0800 EQU $ LDX #BANK MY_ENCROS2 LDA R15 JSL >CHIPON JMP KOROG_ENCHK0100 ; KOROG_KOROG_CRS EQU $ LDA ENXSPD,Y ;あたったやつは動いてる ? BNE KOROG_K_C1000 ; yes: KOROG_K_C1000 LDA ENXSPD,X ;自分は動いてる ? BNE KOROG_K_C1500 ; yes: KOROG_K_C1500 RTS KOROG_K_C1000 EQU $ JSR KOROG_DEAD LDA ENXSPD,X ;自分は動いてる ? BEQ KOROG_K_C1800 ; no: KOROG_K_C1800 KOROG_K_C1500 EQU $ PHX TYX PLY JSR KOROG_DEAD LDX DEATHENEMY ; JSL >ENDEATH_SET ; PLY LDA ECENTX,X LDX #000 CMP ECENTX,Y BPL KOROG_K_CRS1100 INX INX KOROG_K_CRS1100 EQU $ LDA !KORA_DEATH_XSPD,X STA ENXSPD,Y LDA #EFAIL STA ENMODE,Y LDA #00040H STA ENGPOW,Y LDA #00400H STA ENGMAX,Y LDA #0FC00H STA ENYSPD,Y LDA #00001 STA ENWRKA,Y ; のこのこ／パタパタ デスフラグ セット !! LDX ENDEATH_SET_2 PLY PHY LDA ECENTX,Y LDY #000 CMP ECENTX,X BPL KOROG_D0100 INY INY KOROG_D0100 EQU $ LDA KORA_DEATH_XSPD,Y STA ENXSPD,X LDA #EFAIL STA ENMODE,X LDA #0FC00H STA ENYSPD,X LDA #0000100001000000B ;ＢＧチェックなし STA ENMOD1,X ; LDA ENCLOR,X ORA #00080H STA ENCLOR,X PLY RTS ; KOROG_XPOW EQU $ WORD 00008H WORD 00008H,00010H,00020H WORD 00020H,00010H,00008H WORD 00000H ; WORD 00008H WORD 00010H,00020H,00040H WORD 00040H,00020H,00010H WORD 00000H ; KOROG_XMAX EQU $-2 ; -10 -20 -30 WORD 00300H,0021FH,00180H ; +30 +20 +10 WORD 0FE80H,0FDE1H,0FD00H ; KOROG_KATA EQU $ LDY #000 LDA ENSLOP,X ;坂 ? AND #000FFH ; BNE KOROG_KATA0010 ; yes: KOROG_KATA0010 LDA ENCBFG,X ;空中 ? AND #00001 ; BEQ KOROG_KATA0900 ; yes: KOROG_KATA0900 LDA ENXSPD,X ;止まってる ? BNE KOROG_KATA0001 ; no: KOROG_KATA0001 LDY #00EH KOROG_KATA0001 EQU $ LDA #00000 BRA KOROG_KATA0800 KOROG_KATA0010 EQU $ CMP #00080H BMI KOROG_KATA0100 ORA #0FF00H LDY #004 CLC ADC #00020H BRA KOROG_KATA0200 KOROG_KATA0100 EQU $ LDY #00AH SEC SBC #00020H KOROG_KATA0200 EQU $ BEQ KOROG_KATA0500 BMI KOROG_KATA0300 DEY DEY BRA KOROG_KATA0500 KOROG_KATA0300 EQU $ INY INY KOROG_KATA0500 EQU $ LDA !KOROG_XMAX,Y KOROG_KATA0800 EQU $ STA ENXMAX,X ASL A STA TROBJ_SR_4x4 BCC HBLK7IN_0050 ;エリア確保？ ( no:HBLK7IN_0050 ) ; JSL >HBLK7_CHRST ;キャラクター初期セット LDA ENMOD2,X ;ＯＢＪ使用数を１個から４個へ CLC ADC #0001100000000001B STA ENMOD2,X ; HBLK7IN_0050 EQU $ INC EGG_BLOCK_CT ;タマゴブロックセットカウンターセット ; LDA ENXPSL,X STA [0] [1] [2] [3] [4] [5] [6] [7] WORD 000F0H,000D8H,00100H,000C8H,000E0H,000F8H,000D0H,000E8H HBLK7_SET_YSP EQU $ WORD 0FD30H,0FD78H,0FD00H,0FDA8H,0FD60H,0FD18H,0FD90H,0FD48H ; HBLK7_ANG_AD EQU $ ; ENWRK6,X --> [0] [2] WORD 0300H,-300H ; HBLK7MV EQU $ ; ;-------------- ＯＡＭセット -------------------------------------------- LDA ENTROB,X ORA ENOAML,X BMI HBLK7MV_0050 ;回転エリア使用？ ( no:HBLK7MV_0050 ) ; JSL >TROBJ_OAM_4x4 ; ; ;-------------- モードチェック ------------------------------------------ HBLK7MV_0050 EQU $ JSL >ENMDCK ;enemy mode check ; ;-------------- プレイヤーとの衝突チェック ------------------------------ JSL >POBBGCR ;リフト補正チェック ; ;-------------- 敵との衝突チェック -------------------------------------- LDY ECRSFG,X DEY BMI HBLK7MV_0052 ;敵と衝突？ ( no:HBLK7MV_0052 ) ; LDA ENMODE,Y CMP #EMOVE BNE HBLK7MV_0052 ;健在？ ( no:HBLK7MV_0052 ) ;;;; LDA ENMOD1,Y ;;;; AND #0110000000000000B ;;;; BNE HBLK7MV_0052 ;敵？ ( no:HBLK7MV_0052 ) LDA ENMOD1,Y AND #0000100000000000B BEQ HBLK7MV_0052 ;ひっくり返れる？ ( no:HBLK7MV_0052 ) ; ;-------------- 敵蹴散らし -------------------------------------- TYX JSL >ENDEATH_SET ; ;-------------- 移動計算 ------------------------------------------------ HBLK7MV_0052 EQU $ LDA ENWRK8,X BPL HBLK7MV_0058 ;ＢＧに戻す？ ( no:HBLK7MV_0058 ) ; ;-------------- ＢＧに戻す -------------------------------------- LDA UNITCHG ; LDX ENCLEAR ; HBLK7MV_0058 EQU $ LDY ENWRK6,X CLC ADC !HBLK7_ANG_AD,Y STA ENWRK8,X BPL HBLK7MV_0060 ;ＢＧに戻す？ ( no:HBLK7MV_0060 ) ; LDA #0FFH ;表示無しセット STA ENYUSN,X RTL HBLK7MV_0060 EQU $ CMP #018H*100H BMI HBLK7MV_0100 ;回転向き反転？ ( no:HBLK7MV_0100 ) ; ;-------------- 回転向き反転 ------------------------------------ LDA #02H STA ENWRK6,X ; ;-------------- タマゴセット ---------------------------- M_CHIP EGGSEARCH ; LDX ENINSR_I ;敵エリア確保 BCC HBLK7MV_0100 ; ” ？ ( no:MRBLKMV_0100 ) ; LDA ENXPSL,X ;タマゴＸ座標セット STA ENXPSL,Y LDA ENYPSL,X ;タマゴＹ座標セット STA ENYPSL,Y LDA EGG_BLOCK_CT AND #07H ASL A TAX LDA !HBLK7_SET_YSP,X ;タマゴＹスピードセット STA ENYSPD,Y LDA !HBLK7_SET_XSP,X ;タマゴＸスピードセット LDX SOUND_3_ON ;(Y) load ; ;-------------- 座標計算 ---------------------------------------- HBLK7MV_0100 EQU $ LDA ENWRK8+1,X AND #00FFH ASL A TAX LDA >SIN,X TAY STY 211BH XBA TAY STY 211BH LDY #020H ;[R] STY 211CH LDA >COS,X PHA ;(A) save LDX TROBJ_PLOT_X,X STA R3 ;(R3) <-- ビットマップ座標＿Ｘ LDA >TROBJ_PLOT_Y,X STA R2 ;(R2) <-- ” ＿Ｘ LDA #0100H STA R6 ;(R6) <-- 倍率 LDA #CIPCHD+7040H STA R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） LDA #BANK CIPCHD+7040H STA R13 ;(R13) <-- ” (Ｂ） ; I8 ; M_CHIP C_32_ROTZOM_16 ; INC OBM7WF ;mode 7 OBJ chara DMA "ON" ; LDX