ld hl,DCFE ; pokemon 1 level
    ld de,0030 ; pokemon n level - pokemon n-1 level
    ld a,(DCD7) ; party count
    ld b,a
; get highest level from party
loop:
    cp (hl)
    jr nc, .keepold
    ld a,(hl)
.keepold
    add hl,de
    dec b
    jr nz,loop
; get level^2 * 4
    ld (FF00+B6),a ; highest level into hMultiplicand
    ld (FF00+B7),a ; highest level into hMultiplier
    xor a
    ld (FF00+B4),a ; hMultiplicand
    ld (FF00+B5),a ; hMultiplicand
    call Multiply_3119 ; level^2 at FFB5-FFB6
    ld a,4
    ld (FF00+B7),a
    call Multiply_3119 ; level^2 * 4 at FFB5-FFB6
; substract it from money
    ld hl, Money+2 ; lowest byte
    ld a,(FF00+B6)
    ld b,a
    ld a,(hl)
    sub b
    ld (hld),a
    ld a,(FF00+B5)
    ld b,a
    ld a,(hl) ; middle byte
    sbc b
    ld (hld),a
    ld b,0
    ld a,(hl) ; highest byte
    sbc b
    ld (hl),a
    ret nc
    xor a
    ld (hli),a
    ld (hli),a
    ld (hl),a
    ret