; 3e7c1
    ld a, [$c711]
    and a
    ret nz

    ld a, [InLinkBattle]
    and a
    jr z, .asm_3e817

    call $6dd1

    call $309d

    ld a, [$d0ec]
    and a
    call z, $68e4

    call $30b4

    ld a, [$d430]
    cp $e
    jp z, $68bd

    cp $d
    jp z, $682c

    cp $4
    jp nc, $68c1

    ld [CurEnemyMoveNum], a
    ld c, a
    ld a, [EnemySubStatus1]
    bit 6, a
    jp nz, $6882

    ld a, [EnemySubStatus3]
    and $13
    jp nz, $6882

    ld hl, EnemySubStatus5
    bit 4, [hl]
    ld a, [LastEnemyMove]
    jp nz, $687f

    ld hl, EnemyMonMove1
    ld b, $0
    add hl, bc
    ld a, [hl]
    jp $687f

.asm_3e817
    ld hl, EnemySubStatus5
    bit 4, [hl]
    jr z, .asm_3e824

    ld a, [LastEnemyMove]
    jp $687f

.asm_3e824
    call $68d1

    jp nz, $68c1

    jr .asm_3e830

    ld a, $ff
    jr .asm_3e87f

.asm_3e830
    ld hl, EnemyMonMove1
    ld de, EnemyMonPPMove1
    ld b, $4
.asm_3e838
    ld a, [hl]
    and a
    jp z, $68bd

    ld a, [EnemyEncoredMove]
    cp [hl]
    jr z, .asm_3e848

    ld a, [de]
    and $3f
    jr nz, .asm_3e84f

.asm_3e848
    inc hl
    inc de
    dec b
    jr nz, .asm_3e838

    jr .asm_3e8bd

.asm_3e84f
    ld a, [IsInBattle]
    dec a
    jr nz, .asm_3e882

.asm_3e855
    ld hl, EnemyMonMove1
    call FarBattleRNG

    and $3
    ld c, a
    ld b, $0
    add hl, bc
    ld a, [EnemyEncoreCount]
    swap a
    and $f
    dec a
    cp c
    jr z, .asm_3e855

    ld a, [hl]
    and a
    jr z, .asm_3e855

    ld hl, EnemyMonPPMove1
    add hl, bc
    ld b, a
    ld a, [hl]
    and $3f
    jr z, .asm_3e855

    ld a, c
    ld [CurEnemyMoveNum], a
    ld a, b
.asm_3e87f
    ld [CurEnemyMove], a
.asm_3e882
    call SetEnemyTurn

    ld hl, $5e40
    ld a, $d
    rst $8

    call $68d1

    jr nz, .asm_3e894

    xor a
    ld [$c733], a
.asm_3e894
    ld a, [EnemyMoveEffect]
    cp $77
    jr z, .asm_3e89f

    xor a
    ld [$c680], a
.asm_3e89f
    ld a, [EnemyMoveEffect]
    cp $51
    jr z, .asm_3e8af

    ld hl, EnemySubStatus4
    res 6, [hl]
    xor a
    ld [$c72c], a
.asm_3e8af
    ld a, [EnemyMoveEffect]
    cp $6f
    ret z

    cp $74
    ret z

    xor a
    ld [PlayerDamageTaken], a
    ret

.asm_3e8bd
    ld a, $a5
    jr .asm_3e87f

    xor a
    ld [$c680], a
    ld [PlayerDamageTaken], a
    ld [$c72c], a
    ld hl, EnemySubStatus4
    res 6, [hl]
    ret

; 3e8d1