|
Re: Скриптовая система или как работать с файлами
короче
file = OpenFile ("Text\" + SObject\script + ".txt")
While Not Eof(file)
s$=readline(file)
if s$="script"
while s$<>"/script"
s$=readline(file)
if s$="dialog"
; диалоги
end if
wend
end if
CloseFile file
|