getBadgelevel ; 3fdd
; outputs b = badgeLevel
ld hl,D857 ; JohtoBadges
ld b,02
call CountSetBits
ld e,a
ld d,00
ld hl,3FEF ; badgeLevelTable
add hl,de
ld a,(hl)
ld b,a
ret

badgeLevelTable ; 3fef
db 14
db 1E
db 26
db 2D
db 36
db 3C
db 3F
db 49
db 52
db 54
db 56
db 58
db 5A
db 5C
db 5E
db 60
db 64

RareCandy: ; 04:6f14
(...)
call GetPartyParamLocation
jp rcpatch ; jump from ef24
jp nc,Functionee83
(...)

rcpatch:
push bc
push af
push de
push hl
call 3FDD ; getBadgeLevel
pop hl
pop de
pop af
ld a,(hl)
cp b ; b = badgeLevel
pop bc
jp 6F27

DayCareMan:
(...)
jr z,72A4
jp dcmpatch ; jump from 7289
nop
nop
jr nc,72A4
(...)

dcmpatch:
push bc
push af
push de
push hl
call 3FDD ; getBadgeLevel
pop hl
pop de
pop af
ld a,(DF2B) ; monLevel
cp b ; b = badgeLevel
pop bc
jp 728E

DayCareLady:
(...)
jr z,72C6
jp dclpatch ; jump from 72ab
nop
nop
jr nc,72C6
(...)

dclpatch:
push bc
push af
push de
push hl
call 3FDD ; getBadgeLevel
pop hl
pop de
pop af
ld a,(DF64) ; monLevel
cp b ; b = badgeLevel
pop bc
jp 72B0

calcExpCap: ; calculate maximum experience allowed based on current badge level and Pokemon's growth rate
; outputs hQuotient = maximum experience allowed
push af
push bc
push de
push hl
ld a,(D109) ; CurPartyMon
ld hl,(DCAF); PartyMon1Species - (PartyMonNSpecies - PartyMonN-1Species) = PartyMon1Species - 30
ld bc,0030 ; PartyMonNSpecies - PartyMonN-1Species
inc a
loop: ; make hl point to species of current party Pokemon
add hl,bc
dec a
jr nz,loop
ld d,(CF60) ; CurSpecies
push de ; save (CF60) to restore CurSpecies later
ld a,(hl)
ld (CF60),a
call GetBaseData ; load base data of Pokemon identified by CurSpecies into RAM, including growth rate
; Growth Rates:
; 0: exp = level^3
; 4: exp = level^3 * 4 / 5 (fast)
; 5: exp = level^3 * 5 / 4 (slow)
call 3FDD ; getBadgeLevel
xor a
ld (FF00+B4),a ; hMultiplicand
ld (FF00+B5),a ; hMultiplicand
ld a,b ; badgeLevel
ld (FF00+B6),a ; hMultiplicand
ld (FF00+B7),a ; hMultiplier
push af
call Multiply ; 3119
pop af
ld (FF00+B7),a ;
call Multiply
; we now have badgeLevel^3 at FFB3-FFB6, but FFB3 is never higher than 00
ld a,(D24C) ; BaseGrowthRate
and a
jr z,finish ; if growth rate is 0 then exp = level^3
cp 5
jr z,slowExpGroup
fastExpGroup: ; multiply by 4 and divide by 5
ld a,4
ld (FF00+B7),a
call Multiply ; again, result is at FFB3-FFB6
ld a,5
ld b,4 ; dividend is 4 bytes long (or 3)
ld (FF00+B7),a ; hDivisor
call Divide ; hDividend is FFB3-FFB6
jr, finish
slowExpGroup: ; multiply by 5 and divide by 4
ld a,5
ld (FF00+B7),a
call Multiply ; again, result is at FFB3-FFB6
ld a,4
ld b,4 ; dividend is 4 bytes long (or 3)
ld (FF00+B7),a ; hDivisor
call Divide ; hDividend is FFB3-FFB6
finish:
pop de ; restore CurSpecies
ld (CF60),d ; CurSpecies
call GetBaseData ; restore base data of original Pokemon
pop hl
pop de
pop bc
pop af
ret