% nacteni:
/* ['8.1_3.pl']. */
% kb_agent_action(+KB,+ATime,+Percept,-Action,-NewATime)
kb_agent_action(KB,ATime,Percept,Action,NewATime):-
make_percept_sentence(Percept,ATime,Sentence),
tell(KB,Sentence), % pridame vysledky pozorovani do KB
make_action_query(ATime,Query),
ask(KB,Query,Action), % zeptame se na dalsi postup
make_action_sentence(Action,ATime,ASentence),
tell(KB,ASentence), % pridame informace o akci do KB
NewATime is ATime + 1.