Font Problem

Is this a simpler way:

FreeFont fnt1
fnt1=LoadFont("Plasma Drip BRK",60,False,False,False)
if fnt1=0 then 
    fnt1=LoadFont("Plasma Drip BRK.ttf",60,False,False,False)
endif
SetFont fnt1

PS: I just posted this related code that deals with TTF fontnames...

http://www.blitzbasic.com/codearcs/codearcs.php?code=893