%@include style.pl
:- object phrases : [gestures]. 
initial_phrase(monitor,'OO'):- !,!.
initial_phrase(right,'     O~n     O'):- !,!.
initial_phrase(left,'OO?'):- !,!.
phrase(r,f,0,'7-agents',0,S,0,2500):- !,!,fm(S,'how~nare~nyou?',[]).
phrase(l,f,0,'7-agents',0,S,0,2500):- !,!,fm(S,'fine~nthank~nyou',[]).
phrase(r,f,1,'7-agents',0,S,0,2500):- !,!,fm(S,'tell~nme~n...',[]).
phrase(l,f,1,'7-agents',0,S,0,2500):- !,!,fm(S,'yes~neh~n...',[]).
phrase(r,f,2,'7-agents',0,S,0,2500):- !,!,fm(S,'what do~nyou think~nof',[]).
phrase(l,f,2,'7-agents',0,S,0,2500):- !,!,fm(S,'what?~n...',[]).
phrase(r,f,3,'7-agents',0,S,0,2500):- !,!,fm(S,'component~narchitectures~n!',[]).
phrase(l,f,3,'7-agents',0,S,0,2500):- !,!,fm(S,'what do~nyou mean?',[]).
phrase(r,f,4,'7-agents',0,S,0,2500):- !,!,fm(S,'Well, I find this all~nrather',[]).
phrase(l,f,4,'7-agents',0,S,0,2500):- !,!,fm(S,'confusing~n...?',[]).
phrase(r,f,5,'7-agents',0,S,0,2500):- !,!,fm(S,'please~nspeak out!',[]).
phrase(l,f,5,'7-agents',0,S,0,2500):- !,!,fm(S,'yes eh,~nI think ...',[]).
phrase(r,f,6,'7-agents',0,S,0,2500):- !,!,fm(S,'now,~nwhat do you~nthink?',[]).
phrase(l,f,6,'7-agents',0,S,0,2500):- !,!,fm(S,'I think~nthat~neh objects~n...',[]).
phrase(r,f,7,'7-agents',0,S,0,2500):- !,!,fm(S,'what~nabout~nobjects?',[]).
phrase(l,f,7,'7-agents',0,S,0,2500):- !,!,fm(S,'patterns~nand~nstructures',[]).
phrase(r,f,8,'7-agents',0,S,0,2500):- !,!,fm(S,'yes eh~npatterns?',[]).
phrase(l,f,8,'7-agents',0,S,0,2500):- !,!,fm(S,'design~npatterns~nI mean',[]).
phrase(r,f,9,'7-agents',0,S,0,2500):- !,!,fm(S,'like in~nframeworks',[]).
phrase(l,f,9,'7-agents',0,S,0,2500):- !,!,fm(S,'in particular~nvertical~nframeworks',[]).
phrase(r,f,10,'7-agents',0,S,0,2500):- !,!,fm(S,'business~nyou mean?',[]).
phrase(l,f,10,'7-agents',0,S,0,2500):- !,!,fm(S,'right!~nand I think~nthat ..',[]).
phrase(r,f,11,'7-agents',0,S,0,2500):- !,do_action(r,f,11,'7-agents',0,a(e)=1),fm(S,'~nwhat?',[]).
phrase(l,f,11,'7-agents',0,S,0,2500):- !,do_action(l,f,11,'7-agents',0,a(e)=1),fm(S,'I always~nwanted to be~nan architect',[]).
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):- !,!.
pause(r,b,_,_,_) :- !, delay(500).
gesture(l,b,_,_,_,0):- !,!.
pause(l,b,_,_,_) :- !, delay(600).
gesture(r,f,_,_,_,0):- !,!.
pause(r,f,_,_,_) :- !, delay(500).
gesture(l,f,_,_,_,0):- !,!.
pause(l,f,_,_,_) :- !, delay(500).
:- end_object phrases.