DQ3戦闘部分解説6

最近モチベーションが低下気味でDQ6インターフェース改良パッチのテストプレイと称したDQ6再プレイぐらいしかしていません。一応本編はエンディングを迎え、一通りイベントアイテムもふくろから使用して問題ないことは確認できました。この後はまとめ買いの取り込みか、DQ4^{-}用に調整ですかね。他にもアレをアレすることも挑戦中なのでやることはいろいろあります。

さて、続きをやります。

SR: $025CC0 ターン開始時処理?

025CC0	PHP	Push P Flag
025CC1	PHB	Push DB
025CC2	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
025CC4	PEA #$7E7E	Push #$7E7E
025CC7	PLB	Pull DB
025CC8	PLB	Pull DB
025CC9	JSL $C322C6	SR: $0322C6 引数:1#$51	ウィンドウ消去
025CCE	LDX #$0017	X=#$0017
025CD1	JSL $C2CAD9	SR: $02CAD9 引数:1#$2050 引数:2#$0002	存在フラグチェック?
025CD9	BEQ #$1F	if(z==on) goto $025CFA
025CDB	JSL $C2B52D	SR: $02B52D
025CDF	LDA #$0000	A=#$0000
025CE2	JSL $C2CB70	SR: $02CB70 引数:1#$2050 引数:2#$0080	戦闘中キャラクター情報変更
025CEA	JSL $C2CB70	SR: $02CB70 引数:1#$2050 引数:2#$0020	戦闘中キャラクター情報変更
025CF2	JSL $C2CB70	SR: $02CB70 引数:1#$2052 引数:2#$0080	戦闘中キャラクター情報変更
025CFA	DEX	X–
025CFB	BPL #$D4	if(n==off) goto $025CD1
025CFD	PEA #$23AC	Push #$23AC
025D00	PEA #$0018	Push #$0018
025D03	PEA #$7E00	Push #$7E00
025D06	JSL $C9029E	SR: $09029E	RAM上情報取得(アストロン残りターン数)
025D0A	DEC	A–
025D0B	BMI #$1D	if(n==on) goto $025D2A
025D0D	PHP	Push P Flag
025D0E	PEA #$23AC	Push #$23AC
025D11	PEA #$0018	Push #$0018
025D14	PEA #$7E00	Push #$7E00
025D17	JSL $C902E9	SR: $0902E9	RAM上情報変更(アストロン残りターン数)
025D1B	PLP	Pull P Flag
025D1C	BNE #$0C	if(z==off) goto $025D2A
025D1E	LDA #$0042	A=#$0042	アストロンの戦闘行動ID
025D21	STA $23E4	$23E4=A
025D24	JSL $C1A867	SR: $01A867 引数:1#$006F	戦闘メッセージ表示「アストロンが解けた」
025D2A	PEA #$23AC	Push #$23AC
025D2D	PEA #$0007	Push #$0007
025D30	PEA #$7E00	Push #$7E00
025D33	JSL $C9029E	SR: $09029E	RAM上情報取得(時間停止残りターン数)
025D37	DEC	A–
025D38	BMI #$0D	if(n==on) goto $025D47
025D3A	PEA #$23AC	Push #$23AC
025D3D	PEA #$0007	Push #$0007
025D40	PEA #$7E00	Push #$7E00
025D43	JSL $C902E9	SR: $0902E9	RAM上情報変更(時間停止残りターン数)
025D47	STZ $23B0	$23B0=#$00
025D4A	STZ $23B2	$23B2=#$00
025D4D	STZ $23B4	$23B4=#$00
025D50	STZ $23B6	$23B6=#$00
025D53	PLB	Pull DB
025D54	PLP	Pull P Flag
025D55	RTL	return

SR: $025DEE 戦闘コマンド入力処理

025DEE	PHP	Push P Flag
025DEF	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
025DF1	PHA	Push A
025DF2	PHX	Push X
025DF3	PHY	Push Y
025DF4	PHB	Push DB
025DF5	PEA #$7E7E	Push #$7E7E
025DF8	PLB	Pull DB
025DF9	PLB	Pull DB
025DFA	PEA #$23AB	Push #$23AB
025DFD	PEA #$0030	Push #$0030
025E00	PEA #$7E00	Push #$7E00
025E03	JSL $C9029E	SR: $09029E	RAM上情報取得(先制強襲情報取得)
025E07	CMP #$0002	A>=#$0002?	強襲だったらコマンド入力スキップ
025E0A	BCS #$44	if(c==on) goto $025E50
025E0C	JSL $C2B9A6	SR: $02B9A6	パーティ人数取得
025E10	TAX	X=A
025E11	LDY #$0000	Y=#$0000
025E14	DEX	X–
025E15	BMI #$39	if(n==on) goto $025E50
025E17	JSR $5E63	SR: $025E63	コマンド入力可能かチェック
025E1A	BCS #$2E	if(c==on) goto $025E4A
025E1C	JSL $C2B931	SR: $02B931
025E20	PHX	Push X
025E21	LDX $2428	X=$2428
025E24	JSL $C2B52D	SR: $02B52D	戦闘中キャラクター行動情報初期化
025E28	PLX	Pull X
025E29	STY $33B8	$33B8=Y
025E2C	JSL $C32251	SR: $032251 引数:1#$2C	ウィンドウ表示(AにリターンメニューIDセット)
025E31	BCS #$25	if(c==on) goto $025E58
025E33	PHX	Push X
025E34	LDX #$000A	X=#$000A
025E37	CMP $C25EAB,X	A==$025EAB+X?	メニューID配列と比較
025E3B	BEQ #$07	if(z==on) goto $025E44
025E3D	DEX	X–
025E3E	DEX	X–
025E3F	BPL #$F6	if(n==off) goto $025E37
025E41	LDX #$0000	X=#$0000
025E44	JSR $5EB7	SR: $($025EB7+X)	各コマンド処理SRを呼び出し
025E47	PLX	Pull X
025E48	BCS #$D6	if(c==on) goto $025E20
025E4A	INY	Y++
025E4B	CPY #$0004	Y>=#$0004?
025E4E	BCC #$C4	if(c==off) goto $025E14
025E50	PLB	Pull DB
025E51	REP #$30	m=off(A/M:16b) x=off(X/Y:16b)
025E53	PLY	Pull Y
025E54	PLX	Pull X
025E55	PLA	Pull A
025E56	PLP	Pull P Flag
025E57	RTL	return
025E58	DEY	Y–
025E59	BMI #$B1	if(n==on) goto $025E0C
025E5B	INX	X++
025E5C	JSR $5E63	SR: $025E63	コマンド入力可能かチェック
025E5F	BCS #$F7	if(c==on) goto $025E58
025E61	BRA #$B9	goto $025E1C

SR: $025E63 コマンド入力可能かチェック(不能c=on)

025E63	PHX	Push X
025E64	JSL $C2AF66	SR: $02AF66	対象者の戦闘中キャラクタインデックスをXに取得
025E68	STX $2428	$2428=X
025E6B	JSL $C2B416	SR: $02B416	行動主体者が味方かつドラゴラム中かチェック
025E6F	BCS #$37	if(c==on) goto $025EA8
025E71	JSL $C2BE8A	SR: $02BE8A 引数:1#$1C	生死判定(死亡c=on)
025E76	BCS #$30	if(c==on) goto $025EA8
025E78	JSL $C2BE8A	SR: $02BE8A 引数:1#$20	アストロン残りターンがあるか?(該当c=on)
025E7D	BCS #$29	if(c==on) goto $025EA8
025E7F	JSL $C2BE8A	SR: $02BE8A 引数:1#$16	麻痺判定(麻痺c=on)
025E84	BCS #$1E	if(c==on) goto $025EA4
025E86	JSL $C2CAD9	SR: $02CAD9 引数:1#$2047 引数:2#$00FF	眠りの深さ取得
025E8E	BNE #$14	if(z==off) goto $025EA4
025E90	JSL $C2CAD9	SR: $02CAD9 引数:1#$2052 引数:2#$0002	?
025E98	BNE #$0A	if(z==off) goto $025EA4
025E9A	JSL $C2BE8A	SR: $02BE8A 引数:1#$26	時間を止めたキャラクターでない(該当c=on)
025E9F	BCS #$03	if(c==on) goto $025EA4
025EA1	PLX	Pull X
025EA2	CLC	c=off
025EA3	RTS	return
025EA4	JSL $C2B4F1	SR: $02B4F1
025EA8	PLX	Pull X
025EA9	SEC	c=on
025EAA	RTS	return