[ProGamer]

Привет всем
Есть вопрос:в обычном блице есть функция для ввода текста 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