DQ3戦闘部分解説4

前々回示した戦闘メインループを順番に見ていきます。言い忘れましたが、解説はDQ3 Extended 1.43をベースに行ないます。戦闘行動にアクセスする部分がオリジナルと変わっている以外は同じはずです。

SR: $025A55 戦闘中使用RAM領域初期化

025A56	PHP	Push P Flag
025A57	PHB	Push DB
025A58	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
025A5A	PEA #$7E7E	Push #$7E7E
025A5D	PLB	Pull DB
025A5E	PLB	Pull DB
025A5F	LDX #$07CE	X=#$07CE
025A62	STZ $2030,X	$2030+X=#$00
025A65	DEX	X–
025A66	DEX	X–
025A67	BPL #$F9	if(n==off) goto $025A62
025A69	LDA #$FFFF	A=#$FFFF
025A6C	STA $2462	$2462=A
025A6F	STA $2464	$2464=A
025A72	STA $2465	$2465=A
025A75	PLB	Pull DB
025A76	PLP	Pull P Flag
025A77	RTL	return

RAMアドレス$7E2030～7E27FFを戦闘開始時に毎回#$00でリセットしているようです。というわけで戦闘中の使用RAMはこの範囲であると想定してよさそうです。

SR: $025A78 パーティ戦闘中基本情報設定

025A78	PHP	Push P Flag
025A79	PHB	Push DB
025A7A	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
025A7C	PEA #$7E7E	Push #$7E7E
025A7F	PLB	Pull DB
025A80	PLB	Pull DB
025A81	PEA #$2011	Push #$2011
025A84	PEA #$0040	Push #$0040
025A87	PEA #$7E00	Push #$7E00
025A8A	JSL $C9029E	SR: $09029E	RAM上情報取得
025A8E	BNE #$34	if(z==off) goto $025AC4	格闘場モードならスキップ
025A90	JSL $C4297C	SR: $04297C 引数:1#$01 引数:2#$FE	パーティ人数をXにセット
025A96	LDY #$0000	Y=#$0000
025A99	DEX	X–
025A9A	BMI #$28	if(n==on) goto $025AC4
025A9C	JSL $C429DA	SR: $0429DA 引数:1#$01 引数:2#$FD 引数:3#$FF	対象キャラのフィールド上情報スタートアドレスをAにセット
025AA3	STA $2420	$2420=A
025AA6	STA $2424	$2424=A
025AA9	LDA #$0001	A=#$0001
025AAC	STA $241E	$241E=A
025AAF	STA $2422	$2422=A
025AB2	LDA #$0005	A=#$0005
025AB5	STA $2426	$2426=A
025AB8	JSL $C2AB00	SR: $02AB00	キャラクター情報セット
025ABC	LDA $2428	A=$2428
025ABF	BMI #$FE	if(n==on) goto $025ABF
025AC1	INY	Y++
025AC2	BRA #$D5	goto $025A99
025AC4	PLB	Pull DB
025AC5	PLP	Pull P Flag
025AC6	RTL	return

SR: $02AB00 キャラクター情報セット

02AB00	PHP	Push P Flag
02AB01	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
02AB03	PHA	Push A
02AB04	PHX	Push X
02AB05	PHY	Push Y
02AB06	PHB	Push DB
02AB07	PEA #$7E7E	Push #$7E7E
02AB0A	PLB	Pull DB
02AB0B	PLB	Pull DB
02AB0C	JSL $C2AC31	SR: $02AC31	新規キャラクター追加場所サーチ(追加不可c=on?)
02AB10	BCS #$64	if(c==on) goto $02AB76
02AB12	JSL $C2AD55	SR: $02AD55	戦闘中RAM領域を1キャラクター分0で初期化
02AB16	LDX $2428	X=$2428
02AB19	JSL $C2CB70	SR: $02CB70 引数:1#$203B 引数:2#$00FF	戦闘中キャラクター情報変更
02AB21	LDA #$0001	A=#$0001
02AB24	JSL $C2CB70	SR: $02CB70 引数:1#$2050 引数:2#$0002	戦闘中キャラクター情報変更(存在フラグ?)
02AB2C	LDA $2426	A=$2426
02AB2F	JSL $C2CB70	SR: $02CB70 引数:1#$203C 引数:2#$00FF	戦闘中キャラクター情報変更(グループ番号#$05)
02AB37	LDA $2420	A=$2420
02AB3A	JSL $C2CA98	SR: $02CA98 引数:1#$2049	戦闘中キャラクター情報変更(元キャラ格納位置アドレス)
02AB40	LDA $2424	A=$2424
02AB43	JSL $C2CA98	SR: $02CA98 引数:1#$204B	戦闘中キャラクター情報変更(モシャス後格納位置アドレス)
02AB49	LDA $241E	A=$241E
02AB4C	JSL $C2CB70	SR: $02CB70 引数:1#$2050 引数:2#$0001	戦闘中キャラクター情報変更
02AB54	LDA $2422	A=$2422
02AB57	JSL $C2CB70	SR: $02CB70 引数:1#$2051 引数:2#$0001	戦闘中キャラクター情報変更
02AB5F	JSR $ABA1	SR: $02ABA1	戦闘中基礎ステータスセット
02AB62	LDA $2426	A=$2426
02AB65	ASL	A<<1
02AB66	TAX	X=A
02AB67	LDA $2420	A=$2420
02AB6A	STA $23FE,X	$23FE+X=A
02AB6D	INC $240E,X	$240E+X++
02AB70	JSR $BA12	SR: $02BA12
02AB73	JSR $AB7E	SR: $02AB7E
02AB76	PLB	Pull DB
02AB77	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
02AB79	PLY	Pull Y
02AB7A	PLX	Pull X
02AB7B	PLA	Pull A
02AB7C	PLP	Pull P Flag
02AB7D	RTL	return

SR: $02ABA1 戦闘中基礎ステータスセット

02ABA1	LDA $2422	A=$2422	敵味方フラグ?
02ABA4	BNE #$04	if(z==off) goto $02ABAA
02ABA6	JSR $ABAE	SR: $02ABAE	HPMP攻撃力守備力素早さセット
02ABA9	RTS	return
02ABAA	JSR $AC0C	SR: $02AC0C	攻撃力守備力素早さセット
02ABAD	RTS	return

PC側のHPMP情報は戦闘中RAMにはセットされず、移動中キャラクター情報(7E3925-)を使うようになっています。情報のダブリを防ぐための措置と思われます。正しいですね。

SR: $025AC7 モンスター戦闘中情報設定

025AC7	PHP	Push P Flag
025AC8	PHB	Push DB
025AC9	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
025ACB	PEA #$7E7E	Push #$7E7E
025ACE	PLB	Pull DB
025ACF	PLB	Pull DB
025AD0	LDA #$0001	A=#$0001
025AD3	PEA #$23AC	Push #$23AC
025AD6	PEA #$0080	Push #$0080
025AD9	PEA #$7E00	Push #$7E00
025ADC	JSL $C902E9	SR: $0902E9	RAM上情報変更
025AE0	LDA $4EE0	A=$4EE0
025AE3	STA $2456	$2456=A
025AE6	LDX #$0000	X=#$0000
025AE9	LDY $2008,X	Y=$2008+X	モンスター出現数
025AEC	BEQ #$3E	if(z==on) goto $025B2C
025AEE	LDA $2000,X	A=$2000+X	モンスターID
025AF1	BEQ #$39	if(z==on) goto $025B2C
025AF3	STA $2420	$2420=A
025AF6	STA $2424	$2424=A
025AF9	JSR $5B46	SR: $025B46	怪しい影の実体モンスター決定
025AFC	TXA	A=X
025AFD	LSR	A>>1
025AFE	STA $2426	$2426=A
025B01	LDA #$0000	A=#$0000
025B04	STA $241E	$241E=A
025B07	STA $2422	$2422=A
025B0A	JSL $C2AB00	SR: $02AB00	キャラクター情報セット
025B0E	LDA $2428	A=$2428
025B11	BMI #$FE	if(n==on) goto $025B11
025B13	PHX	Push X
025B14	LDX $2428	X=$2428
025B17	LDA $2456	A=$2456
025B1A	JSL $C2CB70	SR: $02CB70 引数:1#$203A 引数:2#$00FF
025B22	INC $2456	$2456++
025B25	INC $2456	$2456++
025B28	PLX	Pull X
025B29	DEY	Y–
025B2A	BNE #$DE	if(z==off) goto $025B0A
025B2C	INX	X++
025B2D	INX	X++
025B2E	CPX #$0008	X>=#$0008?
025B31	BCC #$B6	if(c==off) goto $025AE9
025B33	LDA #$0000	A=#$0000
025B36	PEA #$23AC	Push #$23AC
025B39	PEA #$0080	Push #$0080
025B3C	PEA #$7E00	Push #$7E00
025B3F	JSL $C902E9	SR: $0902E9	RAM上変更
025B43	PLB	Pull DB
025B44	PLP	Pull P Flag
025B45	RTL	return

SR: $025B46 怪しい影の実体モンスター決定

025B46	LDA $2420	A=$2420
025B49	CMP #$0019	A==#$0019?
025B4C	BNE #$3C	if(z==off) goto $025B8A
025B4E	PHX	Push X
025B4F	PHY	Push Y
025B50	SEP #$30	m=on(A/M:8b) x=on(X/Y:8b)
025B52	LDA #$00	A=#$00
025B54	JSL $C42FEB	SR: $042FEB 引数:1#$01 引数:2#$FF 引数:3#$FF	レベル取得
025B5B	INC	A++
025B5C	PHA	Push A
025B5D	LDX #$83	X=#$83	キングヒドラのモンスターID
025B5F	LDY #$00	Y=#$00	同じレベルのモンスター数?
025B61	JSL $C2CC8B	SR: $02CC8B 引数:1#$0002 引数:2#$003F	モンスター情報取得(レベル)
025B69	CMP $01,S	A>=Stack($01)?	モンスターレベルが先頭PCより高ければスキップ
025B6B	BCS #$05	if(c==on) goto $025B72
025B6D	TXA	A=X
025B6E	STA $2484,Y	$2484+Y=A	モンスターIDをテンポラリバッファにセット?
025B71	INY	Y++
025B72	DEX	X–
025B73	BNE #$EC	if(z==off) goto $025B61
025B75	PLA	Pull A
025B76	DEY	Y–
025B77	TYA	A=Y
025B78	JSL $C0133E	SR: $00133E	乱数発生 00-A A(1B)
025B7C	TAY	Y=A
025B7D	LDA $2484,Y	A=$2484+Y
025B80	STA $2424	$2424=A
025B83	STZ $2425	$2425=#$00
025B86	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
025B88	PLY	Pull Y
025B89	PLX	Pull X
025B8A	RTS	return

特につっこむ点は有りませんが、あやしいかげの場合に実体のモンスターを決める部分が面白いですね。これを見ると実体モンスターはモンスターID#$1から#$83まで(スライムからキングヒドラ)の中から先頭PCのレベルに応じて選択されるようです。当然同じレベルのモンスター(特に63)は何種類もいますが、ランダムで選択される実装になっています。