;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)+16
    ld (penCol),hl
    ld a,16
    ld (_cursor),a
    ld hl,Magic_strings
    ld de,BlackMageStats+black  ;thanks Runner112 no idea what some of this does
_       ld a,(de)
        or a
        jr z,+_
            push de
                call DrawWrappedString
            pop de
            call mNewline   ;my addition
        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
mNewline:
    push af
        ld a,(penRow)
        add a,6
        cp 55
            call c,_
            call nc,++_
    pop af
    ret
_   call Newline
    ld a,(_cursor)
    ld (penCol),a
    ret
_   ld a,58
    ld (_cursor),a
    ld (penCol),a
    ld a,16
    ld (penRow),a
    ret