%@include style.pl
:- object phrases : [gestures]. 
initial_phrase(monitor,'dlp+vrml'):- !,do_action(r,f,0,'this',0,begin(monitor)).
initial_phrase(right,'     D~n     L~n     P'):- !,do_action(r,f,0,'this',0,begin(right)).
initial_phrase(left,'VRML?'):- !,do_action(r,f,0,'this',0,begin(left)).
phrase(r,f,0,'avc-dialog',0,S,0,500):- !,!,fm(S,'What is~nall this fuzz~nabout ...',[]).
phrase(l,f,0,'avc-dialog',0,S,0,500):- !,!,fm(S,'agents?',[]).
phrase(r,f,1,'avc-dialog',0,S,0,500):- !,!,fm(S,'right,~ntell me ...',[]).
phrase(l,f,1,'avc-dialog',0,S,0,500):- !,!,fm(S,'What?',[]).
phrase(r,f,2,'avc-dialog',0,S,0,500):- !,!,fm(S,'What do you~nthink of~nagents?',[]).
phrase(l,f,2,'avc-dialog',0,S,0,500):- !,!,fm(S,'Don t ask~nME,~nI am ...',[]).
phrase(r,f,3,'avc-dialog',0,S,0,500):- !,do_action(r,f,3,'avc-dialog',0,a(e)=1),fm(S,'No,~nyou are not ...',[]).
phrase(l,f,3,'avc-dialog',0,S,0,500):- !,do_action(l,f,3,'avc-dialog',0,a(e)=1),fm(S,'Yes,~nI am an agent~nmyself!',[]).
phrase(r,f,0,'avc-pd-agents',0,S,0,500):- !,do_action(r,f,0,'avc-pd-agents',0,[plain,balloon=0]),fm(S,'That is~na lot~nof agents!',[]).
phrase(l,f,0,'avc-pd-agents',0,S,0,500):- !,do_action(l,f,0,'avc-pd-agents',0,[plain,balloon=0]),fm(S,'It sure is.',[]).
phrase(r,f,0,'avc-reqs',0,S,0,500):- !,!,fm(S,'Is this where~nDLP~ncomes in?',[]).
phrase(l,f,0,'avc-reqs',0,S,0,500):- !,!,fm(S,'I think so!',[]).
phrase(r,f,0,'soccer',0,S,0,500):- !,do_action(r,f,0,'soccer',0,[p=(0.5,0,0),default]),fm(S,'kick',[]).
phrase(l,f,0,'soccer',0,S,0,500):- !,do_action(l,f,0,'soccer',0,[p=(-0.5,0,0),kick,next(agentvc),default,persona=0,balloon=0]),fm(S,'OK?',[]).
phrase(r,f,0,'soccer',1,S,0,500):- !,!,fm(S,'well done',[]).
phrase(l,f,0,'soccer',1,S,0,500):- !,do_action(l,f,0,'soccer',1,[a(e)=1]),fm(S,'thank you!',[]).
phrase(r,f,1,'soccer',1,S,0,500):- !,do_action(r,f,1,'soccer',1,[a(e)=1,next(agentvc)]),fm(S,'game over',[]).
phrase(r,f,0,'future',1,S,0,500):- !,do_action(r,f,0,'future',1,[default,p=(0,-1,0),balloon=0]),fm(S,'Is this all?',[]).
phrase(l,f,0,'future',1,S,0,500):- !,do_action(l,f,0,'future',1,[next(agentvc),default,p=(0,-1,0),balloon=0]),fm(S,'I suppose~nso.',[]).
phrase(r,f,0,'future',2,S,0,500):- !,do_action(r,f,0,'future',2,[string=dlp]),fm(S,'How do~nyou know?',[]).
phrase(l,f,0,'future',2,S,0,500):- !,do_action(l,f,0,'future',2,[next(agentvc),string=vrml]),fm(S,'Ask the~nauthors ...',[]).
phrase(r,b,0,_,_,S,0,500):- !,!,fm(S,'haven t~nI seen this~nbefore?',[]).
phrase(l,b,0,_,_,S,0,500):- !,!,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.