Ларионова- вот вам функция для Blitz3D пишем Катарину сами , маленькие хакеры
Катарина- а
Ларионова- да все они могут они на все пойдут ради видеоигр и графики
1093 игры о де
Global g_text_pos = 0;
Global g_text$;
Global g_text_word$;
Function TextBegin(text_$)
g_text=text_
g_text_pos = 1
g_text_word=""
End Function
Function TextReadWord()
g_text_word =""
If (g_text_pos > Len(g_text))Return 0;
While (Mid(g_text,g_text_pos,1) = " ") : g_text_pos=g_text_pos+1 : Wend
While (Mid(g_text,g_text_pos,1) <> " " And g_text_pos<=Len(g_text))
g_text_word =g_text_word+ Mid(g_text,g_text_pos,1);
g_text_pos=g_text_pos+1
Wend
g_text_pos=g_text_pos+1;
Return 1;
End Function