Hello,
I want to store emotions in this fashion:
emotion (x y z)
joy (4 5 6)
I have tried using fact sets to store and retrieve the emotion set like this:
u: SET (set _*1 _*1 _*1 _*1 )
command: set emo: _0 to ( _1 _2 _3 )
a:(~yes)
$$pad = ^createfact( _1 _2 _3 )
^createfact( emo _0 $$pad )
done, querying...
@0 = ^query(direct_sv emo _0 )
result: @0verb == @0object
The dialouge goes like this:
GRIFFIN: Welcome to ChatScript.
e: > emosys
GRIFFIN: EMOSystem
e: > set sad 4 5 6
GRIFFIN: Command: set emo sad to (4, 5, 6)
e: > yes
GRIFFIN: Done, querying... result: sad == 228,837
e: >
The problem is when I want the three values ( 4 5 6 ) it gives me 228,837 (the reference?)
Can someone help shed light on what im doing wrong ?