база основных слов языка
https://drive.google.com/file/d/1LLH7tS9ycdgCdVBc5oOXPAlWzHkeQivk/view?usp=sharingпрограмма для Blitz3D чтобы работала надо в Windows включить DirectPlay
Graphics 800,600,24,2
f=LoadFont("system",20) : SetFont(f)
Global g_words_n=1
Dim lexicon$(1000000)
lexicon(g_words_n)="lexicon"
Load()
While(1)
SeedRnd(MilliSecs())
r=Rand(1,2)
If(r=1)t$="B.Nik- "
If(r=2)t$="L.Ada- "
r=Rand(1,8)
For i=1 To r
t=t+lexicon(Rand(1,g_words_n))+" "
Next
Log(t)
Print(t)
WaitKey()
Wend
Function Load()
f=ReadFile("lexicon.txt")
If f Then
While(Not(Eof(f)))
g_words_n=g_words_n+1
lexicon(g_words_n)=ReadLine(f)
Wend
CloseFile(f)
EndIf
End Function
Function Log(s$)
f=OpenFile("log.txt")
If f=0 Then f=WriteFile("log.txt")
SeekFile(f,FileSize("log.txt"));
WriteLine(f,s)
CloseFile(f)
End Function
результат
L.Ada- смотреть простое
L.Ada- кровать кому но еще да может
B.Nik- кушать брать
B.Nik- будущее 1
L.Ada- 7 закон Вселенная магазин нам все
L.Ada- кухня 5 во Бог Blitz3D много
L.Ada- было > спасибо хорошо ванная
B.Nik- другое ошибка 5 смешно 6 мы учиться Симуляция
B.Nik- gamedev.ru 8
L.Ada- много если простое 9 ну-да нам
L.Ada- стораться засыпать учиться нейросеть
8068