Anyone else noticed that the UCF function 'Text( X#, Y#, txt$ )' has stopped working with v1.08B8? It worked fine on the trial/demo version of AppGameKit but I've just purchased AppGameKit and compiled my code and none of the text created and maintained by that function will display.
There is no error's and from what I can see, no issues which mean's I'm missing something, somewhere. Can someone more experienced with AppGameKit take a look to see if something has changed from the Demo (Not sure what version that is) and v1.08B8.
I really liked this function as it worked the same way as DBP text() did which is what I'm used to.
Here's some code to test.
_InitText()
do
print ("Printing is fine...")
text(0,30,"text() is not...")
sync()
loop
Function _InitText()
Dim _UCF_T_NumText[0] as integer = 0
Dim _UCF_T_Texts[0] as integer = 0
Dim _UCF_SizeDefault[0] as integer
Dim _UCF_OldSync[0] as float
Dim _UCF_NewSync[0] as float
Dim _UCF_C_NumText[0] as integer = 0
Dim _UCF_C_Texts[0] as integer = 0
Dim _UCF_C_OldSync[0] as float
Dim _UCF_C_NewSync[0] as float
Dim _UCF_T_Red[0] as integer = 255
Dim _UCF_T_Green[0] as integer = 255
Dim _UCF_T_Blue[0] as integer = 255
Dim _UCF_T_Alpha[0] as integer = 255
Dim _UCF_T_Size[0] as float
Endfunction
Function Text( X#, Y#, txt$ )
_UCF_NewSync[0] = ScreenFPS()
Temp = _UCF_T_NumText[0]
If _UCF_NewSync[0] <> _UCF_OldSync[0]
For n = 0 to Temp
if GetTextExists(_UCF_T_Texts[n]) = 1
DeleteText(_UCF_T_Texts[n])
_UCF_T_NumText[0] = _UCF_T_NumText[0] - 1
endif
Next n
Endif
_UCF_T_NumText[0] = _UCF_T_NumText[0] + 1
Dim _UCF_T_Texts[_UCF_T_NumText[0]] as integer
_UCF_T_Texts[_UCF_T_NumText[0]] = CreateText( txt$ )
SetTextPosition( _UCF_T_Texts[_UCF_T_NumText[0]], X#, Y# )
If _UCF_SizeDefault[0] = 0
If GetVirtualWidth() > 100
SetTextSize(_UCF_T_Texts[_UCF_T_NumText[0]], (4.0 / 100.0) * 480)
Endif
Else
SetTextSize(_UCF_T_Texts[_UCF_T_NumText[0]], _UCF_T_Size[0])
Endif
SetTextColor(_UCF_T_Texts[_UCF_T_NumText[0]], _UCF_T_Red[0], _UCF_T_Green[0], _UCF_T_Blue[0], _UCF_T_Alpha[0])
_UCF_OldSync[0] = ScreenFPS()
Endfunction
