_MomWakeUpText::
    db $08

    ;write fastest text speed
    ;ld a, $c0
    ;ld [$D355], a
    ;ld d, 24

    ld bc, $9618
    ;ld b, 150
    ;ld c, 24
.loop

    push bc
    inc b;we're doing this for reasons. basically it actually assigns 1 - 151 as pokedex number, but the loop goes from 150 - 0
    ld a, b;put the curr mon into a
    ld [wd11e],a
    callba PokedexToIndex;change to $40ff9
    ld a,[wd11e]
    ld b,a

    sub 63
    jr z, .loop

    call GivePokemon
    pop bc

    ;ld a, $1c
    ;ld [$2000], a

    ;callba ChangeBox


    dec c
    jr z, .changeBox

.finishChangeBox

    dec b

    ;call GivePokemon
    jp z, TextScriptEnd;skips pokedex of zero which is good since we have bulba already
    jr .loop
.changeBox
    push bc
    callba ChangeBox
    pop bc
    ld c,20
    jr .finishChangeBox