nope checked, i found eXo's code, well, someone submitted it to mircscripts.org, this is what he uses.
;This Font Reading stuff obtained from mircscripts.org and was submitted
;by Kamek. Thanks Kamek!
;URL:
www.mircscripts.org/comments.php?id=1341alias msn.truetype {
if (!$isfile($1)) { return }
var %fn = $iif(("*" iswm $1), $1, $+(", $1, ")), %ntables, %i = 1, %p, %namepos, %namelen, %nid = 1
if ($findtok(copyright family subfamily id fullname version postscript trademark manufacturer designer - urlvendor urldesigner, $prop, 32)) { %nid = $calc($ifmatch - 1) }
bread %fn 0 8192 &font
if ($bvar(&font, 1, 4) != 0 1 0 0) { return }
%ntables = $bvar(&font, 5).nword
while (%i <= %ntables) {
%p = $calc(13 + (%i - 1) * 16)
if (%p > 8192) { return }
if ($bvar(&font, %p, 4).text === name) { %namepos = $bvar(&font, $calc(%p + 8)).nlong | %namelen = $bvar(&font, $calc(%p + 12)).nlong | break }
inc %i
}
if (!%namepos) { return }
if (%namelen > 8192) { %namelen = 8192 }
bread %fn %namepos %namelen &font
var %nrecs = $bvar(&font, 3).nword, %storepos = $calc(%namepos + $bvar(&font, 5).nword), %i = 1
while (%i <= %nrecs) {
%p = $calc(7 + (%i - 1) * 12)
if ($bvar(&font, %p).nword = 3) && ($bvar(&font, $calc(%p + 6)).nword = %nid) {
var %len = $bvar(&font, $calc(%p + 8)).nword, %peid = $bvar(&font, $calc(%p + 2)).nword
bread %fn $calc(%storepos + $bvar(&font, $calc(%p + 10)).nword) %len &font
return $msn.uni2ansi($bvar(&font, 1, %len))
}
inc %i
}
}
*makes hand motion going over his head*