View difference between Paste ID: 4nLWhckh and N03xvH1A

 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: ; 03:6f14
 ;(...)
 call GetPartyParamLocation
 jp rcpatch ; jump from ef24
 jp nc,Functionee83 ; no effect if carry flag is clear
 ;(...)
 
 rcpatch: ; 03:7a30
 ; cap at current badge level instead of at level 100
 push bc
 push af
 push de
 push hl
 call 3FDD ; getBadgeLevel
 pop hl
 pop de
 pop af
 ld a,(hl)
 cp b ; compare to b = badgeLevel instead of to 100
 pop bc
 jp 6F27
 
 calcExpCap: ; 01:7600
 ; calculate maximum experience allowed given (hl)=species as input
 ; outputs hQuotient = maximum experience allowed
 ld d,(CF60) ; CurSpecies
 push de ; save (CF60) to restore CurSpecies later
 ld a,(hl)
 ld (CF60),a ; load species of Pokemon we're dealing with into CurSpecies
 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
 ret
 
 DayCareMan:
 ;(...)
 jr z,72A4
 jp dcmpatch ; jump from 7289
 nop
 nop
 nop
 nop
 ld hl,DF16
 ;(...)
 
 dcmpatch: ; 01:7500
 ; cap at current badge level instead of at level 100
 push bc
 push af
 push de
 push hl
 ld hl,DF0C ; species
 call calcExpCap ; output hQuotient = maximum experience allowed, given (hl)=species as input
 ld a,(FF00+B6) ; cap LSB
 ld b,(DF16) ; current exp LSB
 cp b
 jr z,checkMiddleByte
 pop hl
 pop de
 pop af
 pop bc
 jp 728E ; if they are not equal, cap hasn't been reached
 checkMiddleByte:
 ld a,(FF00+B5)
 ld b,(DF15)
 cp b
 jr z,checkMSB
 pop hl
 pop de
 pop af
 pop bc
 jp 728E ; if they are not equal, cap hasn't been reached
 ld a,(FF00+B4)
 ld b,(DF14)
 cp b
 jr z,capReached ; if every byte is equal, cap has been reached, so stop experience growth
 pop hl
 pop de
 pop af
 pop bc
 jp 728E ; if they are not equal, cap hasn't been reached
 capReached:
 pop hl
 pop de
 pop af
 pop bc
 jp 72A4
 
 DayCareLady:
 ;(...)
 jr z,72C6
 jp dclpatch ; jump from 72ab
 nop
 nop
 nop
 nop
 ld hl,DF4F
 ;(...)
 
 dclpatch: 01:7580
 ; cap at current badge level instead of at level 100
 push bc
 push af
 push de
 push hl
 ld hl,DF45 ; species
 call calcExpCap ; output hQuotient = maximum experience allowed, given (hl)=species as input
 ld a,(FF00+B6) ; cap LSB
 ld b,(DF4F) ; current exp LSB
 cp b
 jr z,checkMiddleByte
 pop hl
 pop de
 pop af
 pop bc
 jp 72B0 ; if they are not equal, cap hasn't been reached
 checkMiddleByte:
 ld a,(FF00+B5)
 ld b,(DF4E)
 cp b
 jr z,checkMSB
 pop hl
 pop de
 pop af
 pop bc
 jp 72B0 ; if they are not equal, cap hasn't been reached
 ld a,(FF00+B4)
 ld b,(DF4D)
 cp b
 jr z,capReached ; if every byte is equal, cap has been reached, so stop experience growth
 pop hl
 pop de
 pop af
 pop bc
 jp 72B0 ; if they are not equal, cap hasn't been reached
 capReached:
 pop hl
 pop de
 pop af
 pop bc
 jp 72C6
 
 getExpCapInBattle: ; get 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
 call calcExpCap ; 01:7600
 ; calculate maximum experience allowed given (hl)=species as input
 pop hl
 pop de
 pop bc
 pop af
 ret
 
 getFinalExperienceInBattle: ; calculate the experience that the Pokemon is going to receive
 push af
 push bc
 push de
 push hl
 ld a,(D109) ; CurPartyMon
 ld hl,(DCB9); PartyMon1Exp - (PartyMonNExp - PartyMonN-1Exp) = PartyMon1Exp - 30
 ld bc,0030 ; PartyMonNExp - PartyMonN-1Exp
 inc a
 loop: ; make hl point to experience LSB of current party Pokemon
 add hl,bc
 dec a
 jr nz,loop
 ld e,(hl)
 dec hl
 ld d,(hl)
 dec hl
 ld h,(hl) ; hde = Pokemon's current experience
 callba getExpCapInBattle ; hQuotient = maximum experience allowed
 ld a,(FF00+B6)
 sub e
 ld (FF00+B6),a
 ld a,(FF00+B5)
 sbc d
 ld (FF00+B5),a
 ld a,(FF00+B4)
 sbc h
 ld (FF00+B4),a ; Cap - Current = Maximum experience the Pokemon can gain not to surpass the cap
 ld a,(FF00+B5)
 ld b,(D086) ; exp about to gain MSB
 cp b
 jr z, checkLSB
 jr nc, finish ; exp about to gain is not higher than cap
 ld (D086),a ; else, overwrite exp about to win with cap
 ld a,(FF00+B6)
 ld (D087),a
 checkLSB:
 ld a,(FF00+B6)
 ld b,(D087) ; exp about to gain LSB
 cp b
 jr nc, finish ; exp about to gain is not higher than cap
 ld (D087),a ; else, overwrite exp about to win with cap
 finish:
 pop hl
 pop de
 pop bc
 pop af
 ld a,(d109) ; original 0F:6f02
 jp 6F05
 
 exppatch:
 ; at this point D086-D087 contains experience the Pokemon is about to gain
 jp getFinalExperience ; jump from 0F:6f02
 ;(...)