[Starcraft] Getting the width of a string

[nano351]

I found the function starcraft uses to get the width of a character in the current font:
0041F7B0h

So I wrote two functions to get character widths and get string widths:

GetCharacterWidth proc character:byte ;returns the width of the character in the current font
    movzx ecx, character
    mov eax, 0041F7B0h
    call eax
    Ret
GetCharacterWidth EndP

GetStringWidth    proc text:DWORD ;returns the width of the string in the current font
    xor edx, edx
    xor ecx, ecx
    mov ebx, text
    add ebx, ecx
    mov bl, byte ptr ds:[ebx]
    .while bl != 0
        mov eax, text
        add eax, ecx
        mov al, byte ptr ds:[eax]
        .if al > 1Fh ;if you are using extended color characters you will need to add them to be filtered out
            invoke GetCharacterWidth,al
            add edx, eax
        .endif
        inc ecx
        mov ebx, text
        add ebx, ecx
        mov bl, byte ptr ds:[ebx]
    .endw
    mov eax, edx
    Ret
GetStringWidth EndP

I'm sure they can be cleaned up a bit but they work