我已经为我在图灵的一个程序制作了一个打字机程序,但我需要它使用不同的字体。我尝试过 Font.Draw,但由于它是一个程序,它不会让我在 Typewriter Proc 中使用它。有没有解决的办法?
var chars : array char of boolean
var font : int
font := Font.New("Pokemon GB:18")
proc TypewriterPrint(text : string)
loop
for i : 1..length(text)
Input.KeyDown (chars)
if chars (KEY_ENTER) then
delay(50)
put text(i) ..
else
delay(100)
put text(i) ..
end if
end for
put ""
end loop
end TypewriterPrint
Font.Draw (TypewriterPrint("This will be printed like a typewriter"), 150, 150, font, black)
我已经尝试过功能,但它也不起作用。