DQ3 レベルに応じて経験値の配分を変える3

ようやく余裕が出てきたので更新します。体調不良と言っても別に深刻なものではなくただの風邪です。時期が時期だけにあまり寝込むわけにも行かず、ここの更新まで手が回らないということもあり、しばし更新停止のお知らせを出しただけです。お騒がせしてすいません。

前回までで大体の枠については実装が終わったので、配分計算の部分を実装します。

02ED8F	LDX #$0000	X=#$0000
02ED92	LDA $2650,X	A=$7E2650+X
02ED95	CLC	c=off
02ED96	ADC $265A	A+=$7E265A
02ED99	STA $265A	$7E265A=A
02ED9C	INX	X++
02ED9D	INX	X++
02ED9E	CPX #$0008	X>=#$0008 ?
02EDA1	BCC #$EF	if(c==off) goto $02ED92
02EDA3	LDY #$0000	Y=#$0000
02EDA6	LDA $2650,Y	A=$7E2650+Y
02EDA9	BEQ #$32	if(z==on) goto $02EDDD
02EDAB	LDA $23DC	A=$7E23DC
02EDAE	STA $00	$000000=A
02EDB0	LDA $23DE	A=$7E23DE
02EDB3	STA $02	$000002=A
02EDB5	LDX #$0000	X=#$0000
02EDB8	LDA $2650,Y	A=$7E2650+Y	分子をセット
02EDBB	JSL $001107	SR: $001107	$00,X(4B)=A(1)*$00,X(3B)
02EDBF	LDA $265A	A=$7E265A	分母で割る
02EDC2	JSL $00F315	SR: $00F315	$00,x(4B)=$00,X(4B)/A(2B?) 剰余=A
02EDC6	CLC	c=off
02EDC7	ADC $265C	A+=$7E265C
02EDCA	STA $265C	$7E265C=A
02EDCD	TYX	X=Y
02EDCE	LDA $02EADF,X	A=$02EADF+X
02EDD2	TAX	X=A
02EDD3	LDA $00	A=$000000
02EDD5	STA $2640,X	$7E2640+X=A
02EDD8	LDA $02	A=$000002
02EDDA	STA $2642,X	$7E2642+X=A
02EDDD	JSR $EDEE	SR: $02EDEE	経験値が3ByteMaxを超えていたら3バイトでクリップする(Yはオフセット)
02EDE0	INY	Y++
02EDE1	INY	Y++
02EDE2	CPY #$0008	Y>=#$0008 ?
02EDE5	BCC #$C2	if(c==off) goto $02EDA9
02EDE7	LDA #$0001	A=#$0001	傾斜配分フラグをON
02EDEA	STA $265E	$7E265E=A
02EDED	RTS	return

ズラズラと長い処理になっていますが、やっていることは単なる数値計算です。また、各自の経験値アドレスに簡単にアクセスするために、先頭アドレス($7E2640)からのオフセットを定数で定義しました($02EADF-07, 2バイト*4)。

元ネタになっているSR: $001295よりは処理は単純です。一応何パターンか手元の電卓ソフトと結果を付きあわせてみたのですが、正しい値になっているようなのでOKっぽいです。

とりあえず実体に関する部分はこれで終わりです。当初はこれで終りにしようと思ったのですが、いろいろ考えた結果、各自の獲得した経験値を表示するウィンドウを新規に定義して表示することにしました。その実装についてはまた次回。