Графические шрифты.

SuperStrict

Import api.imagefont

SetGraphicsDriver(D3D7Max2DDriver())
Graphics 1024, 768

SetFont()

Local str:String = "Hello to ALL!!! What ? You are [color,255,255,0]stuppid!" + Chr(10) + "Blood hood gangs![\color] Vaulya! Paris forever!"

While Not KeyHit(KEY_ESCAPE)
	Cls
	SetRotation(GetRotation() + 1)
	SetScale(2, 2)
	DrawString(str, MouseX(), MouseY(), 1, 1, 0)
	Flip(1)
Wend

End

SuperStrict

Import api.imagefont

SetGraphicsDriver D3D7Max2DDriver()
Graphics 1024, 768

SetFont()

Local str:String = "Hello to ALL!!! Go go go! What ... nothing! [color,255,0,0]But you steel wrong![color] GSA " + ..
"GTA - this is a [color,0,255,255]grand thief auto!!![color] Vice city? ... =)" + ..
"SBJoker from [color,255,255,0]CodeExotics?[color] [color,255,0,0]NOT[color] or [color,0,255,0]YES[color] ?"

While Not KeyHit(KEY_ESCAPE)
	Cls
	Local h:Int = DrawStringRect(str, 0.0, 0.0, MouseX(), 0, 0, 0)
	DrawLine(MouseX(), 0, MouseX(), 768)
	DrawLine(0, h, MouseX(), h)
	Flip(1)
Wend

End

SuperStrict

Import api.imagefont

'SetGraphicsDriver(D3D7Max2DDriver())
SetGraphicsDriver(GLMax2DDriver())
Graphics 1024, 768

Local f:TImage = api.imagefont.LoadFont("2.PNG", FILTEREDIMAGE)

SetFont(f)

Local str:String = "Hello to ALL!!! Go go go! What ... nothing! But you steel wrong! GSA " + ..
"GTA - this is a grand thief auto!!! Vice city? ... =)" + ..
"SBJoker from CodeExotics? NOT or YES ?"
SetClsColor(128, 128, 128)

While Not KeyHit(KEY_ESCAPE)
	Cls
	SetBlend(ALPHABLEND)
	Local h:Int = DrawStringRect(str, 0.0, 0.0, MouseX(), 0, 0, 0)
	DrawLine(MouseX(), 0, MouseX(), 768)
	DrawLine(0, h, MouseX(), h)
	Flip(1)
Wend

End

SuperStrict

Import api.imagefont

Graphics 1024, 768

SetFont()
SetFontKerning(25)

Local str:String = "Hello to ALL!!!"

While Not KeyHit(KEY_ESCAPE)
	Cls
	DrawString(str, MouseX(), MouseY(), 1, 0, 0)
	Flip(1)
Wend

End