Open source ИИ (4 стр)

;a
;b begin
;c
;d
;e element
;f
;g 
;d
;i
;k knowledge
;l logic learn file
;m 
;n number
;o
;p
;r
;s 
;t 
;w 
;x
;y
;z

Global KNOWLEDGE_MAX_SCRIPTS_QUANTITY=64000
Dim Knowledge$(KNOWLEDGE_MAX_SCRIPTS_QUANTITY);
Global Knowledge_Quantity=0;


Init();


Print Knowledge_Quantity;
script$=Input(">") 

Think(script)


While Not KeyHit(1)
Wend
KnowledgeSave();
End

Function Think(script$)
For o = 1 To NumWords(script)
w$=ReadWord(script,o)
If w ="logic" Print "hello"
Print "*"+w+"*"+NumWords(script)+"*"
Next 



If ReadWord(script, 2)=":=" 

i=KnowledgeSearch(script$);
If i=0
 KnowledgeAdd(script);
Else
 
 For j=1 To NumWords(Knowledge(i))
 If ReadWord(Knowledge(i),j)=ReadWord(script, 3) Goto a1
 Next

 Knowledge(i)=Knowledge(i)+" "+ReadWord(script, 3)
EndIf

Else
  KnowledgeAdd(script);
EndIf


.a1
End Function


;///////////////////////////////////////////////////////////////////////////////////////////////////
Function NumWords(t$)
wn=1
For i = 1 To Len(t) 
If Mid(t,i,1)=" " Or i>Len(t) wn=wn+1
Next 
Return wn
End Function 

;-----------------------------
Function ReadWord$(t$,word_ti)
word$="";
word_i=1

For i = 1 To Len(t) 
If(Mid(t,i,1)=" " Or i>Len(t))
word_i=word_i+1
If(word_i>word_ti)Exit
Else 
If(word_i=word_ti)word$=word$+Mid(t,i,1)
EndIf

Next 

Return word$
End Function


;/////////////////////////////////////////////////
Function KnowledgeAdd(s$)
Knowledge_Quantity=Knowledge_Quantity+1
Knowledge(Knowledge_Quantity)=s

End Function

;-----------------------------
Function KnowledgeLoad()
file$=ReadFile("knowledge.txt")
If(file=0)Print "file knowledge.txt not found": Return;

i=1;
While Not Eof(file) 
Knowledge(i) = ReadLine(file$);
Knowledge_Quantity=Knowledge_Quantity+1;

i=i+1

Wend 
CloseFile(file);
End Function

;-----------------------------
Function KnowledgeSearch(script$)
For i=1 To Knowledge_Quantity
w$=ReadWord(Knowledge(i),1)
If ReadWord(script,1)=w
If ReadWord(Knowledge(i),2)=":=" Return i;
EndIf

Next
Return 0;
End Function

;-----------------------------
Function KnowledgeSave()
file$=WriteFile("knowledge.txt")

For i=1 To Knowledge_Quantity
WriteLine(file, Knowledge(i)); 
Next

CloseFile(file)
End Function

;/////////////////////////////////////////////////
Function FileOpenWrite(fn$)
file = OpenFile(fn$);
If(file=0)file=WriteFile(fn$);
Return file;
End Function


Function FileSize(file)
prevpos=FilePos(file);
While Not Eof( file ) 
ReadByte( file );
Wend 
size=FilePos(file);
SeekFile(file, prevpos);
Return size;
End Function


;/////////////////////////////////////////////////
Function Init()
KnowledgeLoad()
End Function 

void AIWrite()
{
  //g_user_text.ReadWord();
  //if (wcscmp(g_user_text.word, L"kadd") == 0){ g_knowledge_text.AddLine(L"");  g_knowledge_text.AddLine(g_user_text.ReadLine()); return; }

  g_knowledge_text.pos = 0;

  int prev_pos=0, answer = 0, mwn = 0, max_wn = 1;
  while (g_knowledge_text.pos < g_knowledge_text.size)
  {
    g_knowledge_text.ReadLine();


     mwn = 0;
     g_user_text.pos = 0;  g_user_text.ReadLine();
     while (g_user_text.ReadLineWord())
    {
       g_knowledge_text.lw_pos = 0;
       while (g_knowledge_text.ReadLineWord())
       {
         if (wcscmp(g_user_text.word, g_knowledge_text.word) == 0){mwn++;}
       }
    }


    {
    prev_pos = g_knowledge_text.pos;

    
    g_knowledge_text.ReadLine();
    if (wcslen(g_knowledge_text.line) && max_wn <= mwn)
     {
      max_wn = mwn;
       answer=true;
       wcscpy(g_answer, g_knowledge_text.line);
     }
    }

    g_knowledge_text.pos = prev_pos;

  }

  if (answer)
  {
    if (wcslen(g_answer))
      AddChatLine(0, g_answer);
  }

}