Привет всем
Есть вопрос:в обычном блице есть функция для ввода текста Input.В ксорсе нет эквивалента этой функции (xInput),а после включения графического режима командой xGraphics3D команда Input не срабатывает(программа вообще зависает).Так как же вводить текст в ксорсе ???
Первый способ:Можно использовать команду Input до xGraphics3D,и каждый раз,когда потребуется ввести новый текст перезагружать программу
Второй:Нужно написать ещё одну программу,которая будет написана без подключения ксорса,и которая будет записывать введённый текст в файл (нужно скомпилировать её в ехе'шник):
tekst$=Input$("Enter text: ")
fil=WriteFile("text.txt")
WriteLine(fil,tekst$)
CloseFile(fil)
End
и вызывать её каждый раз,когда потребуется ввести текст,а затем считывать содержимое файла в ксорсовской программе:
Include "xors3d.bb"
xGraphics3D 800,600,16
ExecFile("enterer.exe")
.bgn
If FileType("text.txt")=1;проверяем наличие файла
fil=ReadFile("text.txt")
tekst$=ReadLine(fil)
If tekst$="ololo";любое условие
;любое действие
EndIf
Closefile(fil)
DeleteFile("text.txt")
Else
Goto bgn;если файла нет,проверяем ещё раз
EndIf