%@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,'5-agents',0,S,0,2500):- !,!,fm(S,'do you~nthink~nyou are smart?',[]).
phrase(l,f,0,'5-agents',0,S,0,2500):- !,!,fm(S,'look~nat my~nface!',[]).
phrase(r,f,1,'5-agents',0,S,0,2500):- !,!,fm(S,'not an~nopen book~nexactly.',[]).
phrase(l,f,1,'5-agents',0,S,0,2500):- !,!,fm(S,'see~nmy features?',[]).
phrase(r,f,2,'5-agents',0,S,0,2500):- !,do_action(r,f,2,'5-agents',0,[a(e)=1]),fm(S,'I would~nprefer~nsome~nmeta information!',[]).
phrase(l,f,2,'5-agents',0,S,0,2500):- !,do_action(l,f,2,'5-agents',0,[a(e)=1]),fm(S,'would~na~ntattoo~ndo?',[]).
phrase(r,f,0,'5-intro',0,S,0,2500):- !,do_action(r,f,0,'5-intro',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'5-intro',0,S,0,2500):- !,do_action(l,f,0,'5-intro',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(r,f,0,'r-5-2-atlas',0,S,0,2500):- !,do_action(r,f,0,'r-5-2-atlas',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'r-5-2-atlas',0,S,0,2500):- !,do_action(l,f,0,'r-5-2-atlas',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.