%@include style.pl
:- object phrases : [gestures]. 
initial_phrase(monitor,'OO'):- !,!.
initial_phrase(right,'     O~n     O'):- !,!.
initial_phrase(left,'OO?'):- !,!.
phrase(r,f,0,'11-agents',0,S,0,2500):- !,!,fm(S,'how~nare~nyou?',[]).
phrase(l,f,0,'11-agents',0,S,0,2500):- !,!,fm(S,'fine~nthank~nyou',[]).
phrase(r,f,1,'11-agents',0,S,0,2500):- !,!,fm(S,'tell~nme~n...',[]).
phrase(l,f,1,'11-agents',0,S,0,2500):- !,!,fm(S,'yes~neh~n...',[]).
phrase(r,f,2,'11-agents',0,S,0,2500):- !,!,fm(S,'what do~nyou think~nof',[]).
phrase(l,f,2,'11-agents',0,S,0,2500):- !,!,fm(S,'what?~n...',[]).
phrase(r,f,3,'11-agents',0,S,0,2500):- !,!,fm(S,'business~nframeworks~n!',[]).
phrase(l,f,3,'11-agents',0,S,0,2500):- !,!,fm(S,'again?~n...',[]).
phrase(r,f,4,'11-agents',0,S,0,2500):- !,!,fm(S,'let s~ntalk~nbusiness',[]).
phrase(l,f,4,'11-agents',0,S,0,2500):- !,!,fm(S,'No!~n',[]).
phrase(r,f,5,'11-agents',0,S,0,2500):- !,!,fm(S,'Please~ninstruct me~n...',[]).
phrase(l,f,5,'11-agents',0,S,0,2500):- !,!,fm(S,'No,~nbusiness~nis~nboring!',[]).
phrase(r,f,6,'11-agents',0,S,0,2500):- !,do_action(r,f,6,'11-agents',0,a(e)=1),fm(S,'You~nneed to~nreconsider',[]).
phrase(l,f,6,'11-agents',0,S,0,2500):- !,do_action(l,f,6,'11-agents',0,a(e)=1),fm(S,'My~nattitude?~n...',[]).
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.