%@include style.pl
:- object phrases : [gestures]. 
initial_phrase(monitor,'MULTIMEDIA'):- !,do_action(r,f,0,'this',0,begin(monitor)).
initial_phrase(right,'     M~n     U~n     L~n     T~n     I'):- !,do_action(r,f,0,'this',0,begin(right)).
initial_phrase(left,'MEDIA?'):- !,do_action(r,f,0,'this',0,begin(left)).
phrase(r,f,0,'6-agents',0,S,0,2500):- !,!,fm(S,'let us~nbuild~na repository.',[]).
phrase(l,f,0,'6-agents',0,S,0,2500):- !,!,fm(S,'of information?~ntogether?',[]).
phrase(r,f,1,'6-agents',0,S,0,2500):- !,!,fm(S,'yes,~nwith lots of~nmultimedia.',[]).
phrase(l,f,1,'6-agents',0,S,0,2500):- !,!,fm(S,'but~nI like to be~nconnected.',[]).
phrase(r,f,2,'6-agents',0,S,0,2500):- !,do_action(r,f,2,'6-agents',0,[a(e)=1]),fm(S,'ok, ok,~nnetworked~nmultimedia',[]).
phrase(l,f,2,'6-agents',0,S,0,2500):- !,do_action(l,f,2,'6-agents',0,[a(e)=1]),fm(S,'will~nyou be~nmy server?',[]).
phrase(r,f,0,'6-intro',0,S,0,2500):- !,do_action(r,f,0,'6-intro',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'6-intro',0,S,0,2500):- !,do_action(l,f,0,'6-intro',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(r,b,0,_,_,S,0,2500):- !,!,fm(S,'haven t~nI seen this~nbefore?',[]).
phrase(l,b,0,_,_,S,0,2500):- !,!,fm(S,'I am glad~nyou re paying~nattention!!',[]).
gesture(r,b,0,_,_,0):- !,!.
pause(r,b,0,_,_) :- !, delay(500).
gesture(l,b,0,_,_,0):- !,!.
pause(l,b,0,_,_) :- !, delay(600).
:- end_object phrases.