Displaying item received, spell learned or amount of gold received in a dialog box

This is an old thread, but in case it helps anyone, the assembly below changes two unused event commands
6D XX: Give item XX and show dialogue box with the item name
6E XX: Give XX * 100 GP and show dialogue box with amount
It basically just copies the treasure chest code, which is why it's XX*100 GP.

Code:

hirom

org $C0ACFC
GiveItem:

org $C04D06
PlaySound:

org $C0B1A3:
Subroutine:

org $C09934
DW Action6D
DW Action6E

org $C0D613
Action6D:
LDA $EB
STA $1A
STA $0583
JSR GiveItem
JSR PlaySound
LDA #$08
STA $EB
BRA CommonEnd

Action6E:
LDA $EB
STA $1A
STA $4202
LDA #$64
STA $4203
NOP
NOP
NOP
LDY $4216
STY $22
STZ $24
REP #$21
TYA
ADC $1860
STA $1860
TDC
SEP #$20
ADC $1862
STA $1862
CMP #$98
BCC NotMaxedGP
LDX $1860
CPX #$967F
BCC NotMaxedGP
LDX #$967F
STX $1860
LDA #$98
STA $1862
NotMaxedGP:
JSR PlaySound
JSR $02E5
LDA #$10
STA $EB

CommonEnd:
STZ $EC
LDA #$00
STA $ED
LDA #$02
JMP Subroutine