;displays the magic menu
battle_magic:
    call tobackbuff
    rectangle(5,4,75,61,0) \ rectangle(4,5,76,60,0)
    largeSprite(4,4,9,57,MenuImg)
    ld hl,(6*256)+6
    ld (penCol),hl
    wrappedtext(MagicMenuTitle)
    ld hl,(16*256)+6
    ld (penCol),hl
    ld hl,Magic_strings
    ld de,BlackMageStats+black
_       ld a,(de)
        or a
        jr z,+_
            push de
                call DrawWrappedString
                call Newline
            pop de
        jr ++_
_           ld c,a
            cpir
_       inc de
        ld a,e
        cp BlackMageStats+blue+1 & $FF
    jr nz,---_
    lcdupdate
battle_magic_loop:
        b_call _getCSC
        cp skAlpha
        jr z,_
        cp skClear
    jr nz,battle_magic_loop
_   call frombackbuff
    jp battle_return