DQ3戦闘部分解説4

2010-07-21

前々回示した戦闘メインループを順番に見ていきます。言い忘れましたが、解説は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)は何種類もいますが、ランダムで選択される実装になっています。