;============== バンク０ ================================================ BANK0 GROUP 0 EXTERN RNDSUB,PLPSRV,MSGCHK,MSGCHK2,DUSHCL,OBJBG,KNCSET EXTERN KNFLSH,PLSHST,MVCALC,FLASHST,DJRMRD,EXIDSH,NXGOTO EXTERN DATA_MOV,PBSET,PBRETN,PLCSET,LDTIM0,CARITMD,PTOBI EXTERN PBULE,PINDR1,POVER,PKEN ; ;============== バンク１ ================================================ BANK1 GROUP 1 EXTERN WANWANCK ; ;============== バンク２ ================================================ BANK2 GROUP 2 EXTERN SPUNDT,PLBGCK,COINIT,HARTIT,ITEMDP,PWKEND2,PLDMST00 EXTERN TAKARST,WTUP,SMK1,HNSM ; ;============== バンク３ ================================================ BANK3 GROUP 3 ;-------------< ZEN >------------- EXTERN ISIBRK,ENIDSH2,PSERCH,PSERCH2,ENIDSH,CRENEN,ENFAIL EXTERN ENFOLE,ENFIRE,ENINIT,ENSTOP,ENCACH,ENSHOT,CRENPS EXTERN ENBGCK,ENBGCK2,CREPKE,CRENPL,CRENPL2,CRKNKN,CRKNEN EXTERN ENITMS,ENMDSTS,ITEMGET,ENMDST,KTFLST,KWUSO EXTERN IKADA,TUKAI,RANEM,HASIR,PYAAAMV,BOMBRMV,PRTBMMV EXTERN KTOBJMV,BLOCKMV,OCTA1MV,OCTAMMV,MORI1MV,MORYAMV EXTERN BOMBOMV,HIPLPMV,BOSS1MV,KWUSOMV,HART1MV,RUPY1MV EXTERN YOSEIMV,KEYSMMV,PLTATMV,HMASKMV,POWERMV,KINOMMV EXTERN KAKERMV,HARTBMV,ALOW1MV,BOMB1MV,GAKKIMV,KINOKMV EXTERN MGPOWMV,KAKINMV,KAIINMV,MSTESFMV ; ;============== バンク４ ============================================== BANK4 GROUP 4 ;-------------< ZE2 >------------- EXTERN YMVSUB,HAYAMIT,HAYABIT,BGKAOIT,BSLIMIT,TBOSSIT EXTERN RIVERMV,GHOSTMV,GHOSBMV,GHOSSMV,HAYAMMV,RENO7MV EXTERN NYAMAMV,CHUNLIMV,UFOCHMV,TEKYUMV,BHOLEMV,BHOL2MV EXTERN FISHGMV,SBOMBMV,OBOMBMV,NINJAMV,NINTMMV,HAYABMV EXTERN BGKAOMV,BSLIMMV,TBOSSMV ; ;============== バンク５ ============================================== BANK5 GROUP 5 ;-------------< ZE3 >------------- EXTERN BSNAKIT,BFIREIT,DDNGOIT,BBIRDIT,BFISHIT,BDCHD10 EXTERN BDCHD11,BDCHD20,BDCHD21,GIRL0MV,PAPA0MV,BABA0MV EXTERN BSNAKMV,GORMAMV,DDNGOMV,BFIREMV,BBIRDMV,BFISHMV EXTERN SWTRPMV,IKADAMV,NIWATMV,WANWANMV ; ;============== バンク６ ============================================== BANK6 GROUP 6 ;-------------< ZE4 >------------- EXTERN GKFLSHL,TEKTAMV,KUZUHMV,BABULMV,SPARKMV,SPAR2MV EXTERN PORUSMV,BLBATMV,SKEL0MV,SLIMBMV,SLIMSMV,MUMMYMV EXTERN MOTOSMV,MAGE0MV,SONICMV,LAIKUMV,TRAP0MV,FUKUROMV EXTERN TERSAMV,BTFLYMV,KODOMAMV,KODOMBMV,KODOMCMV,KODOMDMV EXTERN URURIMV,OZWANMV,MSWANMV,KARASMV,TRYCYMV,BHANAMV EXTERN BHFIRMV,SHANAMV,DENWAMV,OBAQMV,OBQBARMV,BEDINMV EXTERN IZUMIMV,HATO0MV,FLYITMV,RANEMMV,NOMOSMV,HINO0MV EXTERN PANELMV,PANEL2MV,SWBLKMV,SWBLK2MV,MIZUBMV,SLOTMV EXTERN KARBYMV,OCHANMV,HEISMMV,RICHDMV,FLYIT2MV ; ;============== バンク７ ============================================== BANK7 GROUP 7 ;-------------< ZE5 >------------- EXTERN TAKARMV,HEIS0MV,INOSIMV,BSKELMV,HEISBMV,DAISUMV EXTERN AMENBMV,YUKABMV,YSLIMMV,BALEEMV,TBEAMMV,KURI0MV EXTERN PIHATMV,LOPEMV,PACKNMV,LIFTXMV,LIFTYMV,LIFTDMV EXTERN LIFTTMV,HASIRMV,TAMA0MV,GESSOMV,MONKYMV,OCTAJMV EXTERN YOSSIMV,AMUSIMV,YUKASMV,HANNYMV,PAPA2MV,KUMA0MV EXTERN PAPALMV,MAMADMV,TURIMV,SHIGEMV ; ;============== バンク８ ============================================== BANK8 GROUP 8 EXTERN GRBGCR,DJBGCR ; ;============== バンク１４ ============================================== BANK14 GROUP $14 EXTERN ENSUB0,SHRVSES,CAOFCKS,ENWAN ; ;============== バンク１５ ============================================== BANK15 GROUP $15 ;-------------< ZE8 >------------- EXTERN NXOMSB,SADWST,NXOMCL,ENRMCLL,SKEL1MV,R7BEMMV EXTERN EWOODMV,MSPNTMV,IWAGOMV,SWBLKUMV,SWBLKDMV,SWBLKLMV EXTERN SWBLKRMV,ONOFSMV,MVHASMV,AMUSTMV,UNIUNIMV,KANIMV EXTERN BLANKAMV,SARUKMV,MOUSEMV,HODAIMV,SANBOMV,MBOSSMV EXTERN BOSSMV,SIROSMV ; ;============== バンク１７ ============================================== BANK17 GROUP $17 EXTERN EDAIMV ; ;============== バンク１８ ============================================== BANK18 GROUP $18 ;-------------< ZE6 >------------- EXTERN FUCKSMV,POWDRMV,HINTOMV,PSCRLMV,HIKUSMV,TANABEMV EXTERN MAMA0MV,MAMA1MV,PAPA1MV,KAMEIMV,NYOROMV,PKURIMV EXTERN TUKAIMV,ARIMAMV,BOXERMV,ZONBIMV,KHIMIMV,GIRL1MV EXTERN GIRL2MV,MAMUUMV,TODDMV,MANBOMV,USAGIMV,ONPUMV EXTERN AKUMAMV,ZORAMV,MAMAD2MV,USAG2MV,KUMASMV,NTORIMV EXTERN GMUSIMV ; ;============== バンク１９ ============================================== BANK19 GROUP $19 ;-------------< ZE7 >------------- EXTERN ENSCRL,KTFLCS,BUMERMV,COPYAMV,WARPMV,FOXDOGMV EXTERN HEIHOMV,KAERUMV,SWIMPMV,MOAIMV,PUKPKMV,PUKPVMV EXTERN PUKPJMV,WANIMV,GAGEMV,OBAKEMV,NIWAXMV,YTUBOMV EXTERN DOSNSMV,DOSNBMV,TAIATMV,FIREBMV,BABUBMV,KAZAMMV EXTERN BOOKMV,SEIRENMV,KENBMMV ; ;============== バンク２０ ============================================== BANK20 GROUP $20 ;-------------< ZJP >------------- EXTERN GET_ENHL ; ; ; ;======================================================================== PUBALL ; BANK0 GROUP 00 LIB ZRAM LIB ZBN ; ;------------------------------------------------ KANJI PAGE ; LIST ORG $37E6 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% WAENCK LD A,$14 LD ($2100),A ; LD HL,ENWAN ADD HL,DE LD A,(HL) ; LD HL,$2100 LD (HL),$05 RET ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KTFLCSL LD A,$19 CALL PBSET CALL KTFLCS LD A,$03 JP PBSET ;; JP PBRETN ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KTFLSTL LD A,$03 LD ($2100),A CALL KTFLST JP PBRETN ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SHRVSE LD A,$14 LD ($2100),A ; CALL SHRVSES ; JP PBRETN ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% WANWANCKL LD A,$01 CALL PBSET ; CALL WANWANCK ; LD A,$02 JP PBSET ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ENMDSTL LD A,$03 LD ($2100),A CALL ENMDST JP PBRETN ;============================ CAOFCKL LD A,$14 LD ($2100),A CALL CAOFCKS LD A,$03 LD ($2100),A RET ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ENOMDT DB $00,$08,$10,$18 ; DB $00,$08,$10,$18 ; DB $00,$08,$10,$18 ; DB $00,$08,$10,$18 ; ; DB $00,$10,$20,$30 ; DB $08,$18,$28,$38 ; DB $28,$18,$38,$08 ; DB $18,$28,$38,$18 ; ENEMY LD HL,BSFLSD LD A,(HL) AND A JR Z,ENBOS10 ; DEC (HL) JR NZ,ENBOS10 ; LD A,$10 LD (SOUND2),A ;(S) ボスやられ音！ ENBOS10 LD A,(MSGEFG) AND A JR NZ,EN10E0 ; LD A,(ENSTTM) LD (ENSTFG),A AND A JR Z,EN10E0 ; DEC A LD (ENSTTM),A EN10E0 ;; LD A,$03 ;; CALL PBSET ; LD A,(PLMODE) CP POVER RET Z ;; JR Z,EN1000 ; XOR A LD (ENOMIS),A ; OAM set count reset ! ; LD A,(DNJNNO) CP DJMAX ;$20 ; LD A,(FRCNT) JR C,E00010 XOR A E00010 AND $03 ;; AND $0F LD E,A LD D,$00 LD HL,ENOMDT ADD HL,DE LD A,(HL) ; Enemy OAM index set ! LD (ENOMID),A ; For 10's over calc !! ; LD A,(FIREBFG) LD (WFIREBFG),A XOR A LD (FIREBFG),A ;; LD (SHOPFG),A ; Shop in flag (Not item use) LD (DAMASI),A ; たぬきだましフラグ！ LD (IKADAON),A ; Player Ikada on flag ! LD (SLIMFG),A ;スライムヒッツキ! LD (WARPFG),A LD (ONLFFG),A ;リフト載りフラグ！ LD (PLCANO),A LD (TOBIOF),A ; LD A,(MSGEFG) AND A JR NZ,ENFF00 ; ;; XOR A LD (MSCRFG),A ; Peaple cros flag (Not item set) ENFF00 LD A,$02 CALL PBSET ; CALL PWKEND2 ; Meter ken flashing ; ; LD B,$0 LD C,