Classic Wild Encounters

ChooseWildEncounter:
    call LoadWildMonDataPointer
    jp nc, .nowildbattle
    call CheckEncounterRoamMon
    jp c, .startwildbattle

    inc hl
    inc hl
    inc hl
    call CheckOnWater
    ld de, WaterMonProbTable
    jr z, .watermon
    inc hl
    inc hl
    ld a, [wTimeOfDay]
    ld bc, NUM_GRASSMON * 2
    call AddNTimes
    ld de, GrassMonProbTable

.watermon
; hl contains the pointer to the wild mon data, let's save that to the stack
    push hl
.randomloop
    call Random
    cp 100
    jr nc, .randomloop
    inc a ; 1 <= a <= 100
    ld b, a
    ld h, d
    ld l, e
; This next loop chooses which mon to load up.
.prob_bracket_loop
    ld a, [hli]
    cp b
    jr nc, .got_it
    inc hl
    jr .prob_bracket_loop

.got_it
    ld c, [hl]
    ld b, 0
    pop hl
    add hl, bc ; this selects our mon
    ld a, [hli]
    ld b, a
; If the Pokemon is encountered by surfing, we need to give the levels some variety.
    call CheckOnWater
    jr nz, .ok
; Check if we buff the wild mon, and by how much.
    call Random
    cp 35 percent
    jr c, .ok
    inc b
    cp 65 percent
    jr c, .ok
    inc b
    cp 85 percent
    jr c, .ok
    inc b
    cp 95 percent
    jr c, .ok
    inc b
; Store the level
.ok
    ld a, b
    ld [wCurPartyLevel], a
    ld b, [hl]
    ; ld a, b
    call ValidateTempWildMonSpecies
    jr c, .nowildbattle

    ld a, b ; This is in the wrong place.
    cp UNOWN
    jr nz, .done

    ld a, [wUnlockedUnowns]
    and a
    jr z, .nowildbattle

.done
    jr .loadwildmon

.nowildbattle
    ld a, 1
    and a
    ret

.loadwildmon
    ld a, b
    ld [wTempWildMonSpecies], a

.startwildbattle
    xor a
    ret