%@include style.pl
:- object phrases : [gestures]. 
initial_phrase(monitor,'OO'):- !,!.
initial_phrase(right,'     O~n     O'):- !,!.
initial_phrase(left,'OO?'):- !,!.
phrase(r,f,0,'0-agents',0,S,0,2500):- !,!,fm(S,'hello,~nI am red',[]).
phrase(l,f,0,'0-agents',0,S,0,2500):- !,!,fm(S,'Hi,~nI am cutie',[]).
phrase(r,f,1,'0-agents',0,S,0,2500):- !,!,fm(S,'We will,~nguide you',[]).
phrase(l,f,1,'0-agents',0,S,0,2500):- !,!,fm(S,'through~nthe',[]).
phrase(r,f,2,'0-agents',0,S,0,2500):- !,do_action(r,f,2,'0-agents',0,[a(e)=1]),fm(S,'OO course',[]).
phrase(l,f,2,'0-agents',0,S,0,2500):- !,do_action(l,f,2,'0-agents',0,[a(e)=1]),fm(S,'OO?~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.