%@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,'2-agents',0,S,0,2500):- !,!,fm(S,'information,~nlives~nin a space',[]).
phrase(l,f,0,'2-agents',0,S,0,2500):- !,!,fm(S,'yeh, yeh.~nan information~nspace?',[]).
phrase(r,f,1,'2-agents',0,S,0,2500):- !,!,fm(S,'no, seriously~nit has many~ndimensions!',[]).
phrase(l,f,1,'2-agents',0,S,0,2500):- !,!,fm(S,'hyper~ndimensions~nyou mean?',[]).
phrase(r,f,2,'2-agents',0,S,0,2500):- !,do_action(r,f,2,'2-agents',0,[a(e)=1]),fm(S,'well, eh~nhyperspace~nis different.',[]).
phrase(l,f,2,'2-agents',0,S,0,2500):- !,do_action(l,f,2,'2-agents',0,[a(e)=1]),fm(S,'are you~nremediating~nme?',[]).
phrase(r,f,0,'2-intro',0,S,0,2500):- !,do_action(r,f,0,'2-intro',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'2-intro',0,S,0,2500):- !,do_action(l,f,0,'2-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.