[EO-Bugfix] Text drawing width.

[emblem]

This fixes text centering so it actually works correctly. No, it didn't work before.
I found out the problem when I tried to change the text and everything was magically no longer centered.

**Replace this:**
```
Public Sub SetFont(ByVal Font As String, ByVal Size As Byte)
    GameFont = CreateFont(Size, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Font)
    frmMainGame.Font = Font
    frmMainGame.FontSize = Size - 4
End Sub

```
**With this:**
```
Public Sub SetFont(ByVal Font As String, ByVal Size As Byte)
    GameFont = CreateFont(Size, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Font)
    frmMainGame.Font = Font
    frmMainGame.FontSize = Size - 5
End Sub

```

[Yxxe]

All it takes is changing the 4 to a 5? I will have to try this out later.  ;D

[Helladen]

Thanks for the fix.