ну как мы видим по ChatGPT общему положению дел в области ИИ
не один я такой не удачник
AISDK для Blitz3D
и твоя Игра заговорит
;----------------------------------
Function AddWordToLayer(w$,l)
If w="" Return 0
If Word_Qu(w,l)>0 Return 0
ri=Rand(1,MAX_WORDS)
While knowledge(l,ri)<>""
ri=Rand(1,MAX_WORDS)
Wend
knowledge(l,ri)=w
Return 1
End Function
;----------------------------------
Function Word_Qu(w$,l)
q=0
For i=1 To MAX_WORDS
If w=knowledge(l,i) q=q+1
Next
Return q
End Function
;------------------
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) = " ") : 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