DQ3 毒による戦闘中ダメージ+勇者自動回復実装2

実装を開始します。文字で解説することはあまりありません。多くのターン終了時の処理はストーリー変更(ラスボス編3)ですでに載せているので必須の部分以外は省略します。

まず毒のダメージ部分を実装します。

SR: $02D8E8 ターン終了時処理(再掲のため一部のみ)

略
02D8F3	JSR $DB85	SR: $02DB85	ターン終了時処理(毒ダメージ)
02D8F6	BCS #$03	if(c==on) goto $02D8FB
02D8F8	JSR $A44E	SR: $02A44E	ターン終了時処理(各キャラクターごと)
略

SR: $02DB85 ターン終了時処理(毒ダメージ)

02DB85	JSL $C28375	SR: $028375	1キャラクター行動開始時変数初期化処理
02DB89	LDY #$0000	Y=#$0000
02DB8C	LDA $243E,Y	A=$243E+Y
02DB8F	AND #$00FF	A&=#$00FF
02DB92	CMP #$0018	A>=#$0018?
02DB95	BCS #$1A	if(c==on) goto $02DBB1
02DB97	STA $2428	$2428=A
02DB9A	TAX	X=A
02DB9B	JSL $C2CAD9	SR: $02CAD9 引数:1#$2050 引数:2#$0002	存在判定?
02DBA3	BEQ #$0C	if(z==on) goto $02DBB1
02DBA5	JSL $C2BE8A	SR: $02BE8A 引数:1#$1C	死亡判定
02DBAA	BCS #$05	if(c==on) goto $02DBB1
02DBAC	JSR $DC3C	SR: $02DC3C	毒によるダメージ処理
02DBAF	BCS #$07	if(c==on) goto $02DBB8
02DBB1	INY	Y++
02DBB2	CPY #$0018	Y>=#$0018?
02DBB5	BCC #$D5	if(c==off) goto $02DB8C
02DBB7	CLC	c=off
02DBB8	RTS	return

SR: $02DC3C 毒によるダメージ処理(新SR)

02DC3C	STX $2428	$2428=X
02DC3F	JSL $C2BE8A	SR: $02BE8A 引数:1#$1C	死亡判定(不要かも)
02DC44	BCS #$07	if(c==on) goto $02DC4D
02DC46	JSL $C2BE8A	SR: $02BE8A 引数:1#$10	毒判定
02DC4B	BCS #$02	if(c==on) goto $02DC4F
02DC4D	CLC	c=off
02DC4E	RTS	return
02DC4F	JSL $C2C240	SR: $02C240 引数:1#$00	最大HP取得
02DC54	STA $00	DP($00)=A
02DC56	PHX	Push X
02DC57	NOP
02DC58	NOP
02DC59	NOP
02DC5A	NOP
02DC5B	NOP
02DC5C	NOP
02DC5D	NOP
02DC5E	NOP
02DC5F	JSL $C5DEF0	SR: $05DEF0
02DC63	STA $23FA	$23FA=A
02DC66	PLX	Pull X
02DC67	TXA	A=X
02DC68	STA $23E8	$23E8=A
02DC6B	JSL $C1A867	SR: $01A867 引数:1#$018B	戦闘メッセージ表示
02DC71	LDA $23FA	A=$23FA
02DC74	STZ $BE83	$BE83=#$00	ダメージ表示バッファの上位2バイトを初期化
02DC77	STA $BE81	$BE81=A
02DC7A	JSL $C1A867	SR: $01A867 引数:1#$018C	戦闘メッセージ表示
02DC80	LDA $23FA	A=$23FA
02DC83	STA $00	DP($00)=A
02DC85	JSL $C2BE8A	SR: $02BE8A 引数:1#$06	HP減算
02DC8A	PHP	Push P Flag
02DC8B	JSL $C2B977	SR: $02B977	パーティウィンドウ再描画?
02DC8F	PLP	Pull P Flag
02DC90	BCC #$BB	if(c==off) goto $02DC4D
02DC92	JSL $C1A867	SR: $01A867 引数:1#$018D	戦闘メッセージ表示
02DC98	JSL $C2CFCE	SR: $02CFCE	消滅処理?
02DC9C	JSL $C2B054	SR: $02B054	行動対象者を戦闘から離脱させる処理メイン
02DCA0	JSL $C2B32F	SR: $02B32F	戦闘終了時フラグセット?
02DCA4	BCC #$A7	if(c==off) goto $02DC4D
02DCA6	SEC	c=on
02DCA7	RTS	return

SR $05DEF0 毒によるダメージ計算(新SR)

05DEF0	LDX #$0000	X=#$0000
05DEF3	LDA #$000D	A=#$000D	1/13の分母
05DEF6	JSL $C0121C	SR: $00121C	$00,X(2B)=$00,X(2B)/A(1B) 剰余=A
05DEFA	LDA $00	A=DP($00)
05DEFC	BNE #$01	if(z==off) goto $05DEFF
05DEFE	INC	A++	ダメージが0なら1を加算
05DEFF	RTL	return

(4/28追記)
1点注意する点を忘れていました。毒によるダメージ値をメッセージの表示用バッファ($7EBE81-4)にセットする場合に、上位2バイトをあらかじめ0で初期化しておく必要があります。これをやらないと直前のメッセージ内容によっては上位2バイトにゴミが残っていると、ダメージ値の表示が6xxxxなどととんでもない数値になります。実際のダメージ値は正しいため実害が無いのと、必ず起きるわけではないので見つけにくいですが、注意しておきたいところです。(追記ここまで)

次に勇者の自動回復部分を実装します。

SR: $02A44E ターン終了時処理(各キャラクターごと)(再掲のため一部のみ)

略
02A475	JSR $DB7B	SR: $02DB7B	ターン終了時各キャラクター処理(自動回復+モンスターID切り替え)
略

SR: $02DB7B ターン終了時各キャラクター処理(自動回復+モンスターID切り替え)(再掲のため一部のみ)

02DB7B	JSR $DCA8	SR: $02DCA8	勇者自動回復処理
略

SR: $02DCA8 勇者自動回復処理(新SR)

02DCA8	STX $2428	$2428=X
02DCAB	JSL $C2CAD9	SR: $02CAD9 引数:1#$203C 引数:2#$00FF	戦闘中グループ取得
02DCB3	CMP #$0005	A>=#$0005?
02DCB6	BCC #$47	if(c==off) goto $02DCFF
02DCB8	JSL $C2BE8A	SR: $02BE8A 引数:1#$1C	死亡判定
02DCBD	BCS #$40	if(c==on) goto $02DCFF
02DCBF	JSL $C2BE8A	SR: $02BE8A 引数:1#$24	職業ID取得
02DCC4	CMP #$0008	A==#$0008?	職業が勇者か
02DCC7	BNE #$36	if(z==off) goto $02DCFF
02DCC9	JSL $C2C240	SR: $02C240 引数:1#$0A	レベル取得
02DCCE	CMP #$0028	A>=#$0028?	Lv40以上か
02DCD1	BCC #$2C	if(c==off) goto $02DCFF
02DCD3	SBC #$0028	A-=(#$0028 +c)	Lv-40
02DCD6	CMP #$0014	A>=#$0014?	Lv-40>=20か
02DCD9	BCS #$06	if(c==on) goto $02DCE1
02DCDB	ASL	A<<1	回復量可変部分計算
02DCDC	ADC #$000A	A+=(#$000A+c)	回復量ベース部分を足す
02DCDF	BRA #$03	goto $02DCE4
02DCE1	LDA #$0032	A=#$0032	回復量最大(50)
02DCE4	STA $00	DP($00)=A
02DCE6	JSL $C2BE8A	SR: $02BE8A 引数:1#$04	HP加算処理
02DCEB	JSL $C1E32E	SR: $01E32E 引数:1#$00C4	BGM再生
02DCF1	JSL $C2B977	SR: $02B977	パーティウィンドウ再描画?
02DCF5	TXA	A=X
02DCF6	STA $23E8	$23E8=A
02DCF9	JSL $C1A867	SR: $01A867 引数:1#$018A	戦闘メッセージ表示
02DCFF	RTS	return