%@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,'pl-platform-dialog',0,S,0,2500):- !,!,fm(S,'What is~nall this fuzz~nabout ...',[]).
phrase(l,f,0,'pl-platform-dialog',0,S,0,2500):- !,!,fm(S,'agents?',[]).
phrase(r,f,1,'pl-platform-dialog',0,S,0,2500):- !,!,fm(S,'right,~ntell me ...',[]).
phrase(l,f,1,'pl-platform-dialog',0,S,0,2500):- !,!,fm(S,'What?',[]).
phrase(r,f,2,'pl-platform-dialog',0,S,0,2500):- !,!,fm(S,'What do you~nthink of~nagents?',[]).
phrase(l,f,2,'pl-platform-dialog',0,S,0,2500):- !,!,fm(S,'Don t ask~nME,~nI am ...',[]).
phrase(r,f,3,'pl-platform-dialog',0,S,0,2500):- !,do_action(r,f,3,'pl-platform-dialog',0,a(e)=1),fm(S,'No,~nyou are not ...',[]).
phrase(l,f,3,'pl-platform-dialog',0,S,0,2500):- !,do_action(l,f,3,'pl-platform-dialog',0,a(e)=1),fm(S,'Yes,~nI am an agent~nmyself!',[]).
phrase(r,f,0,'step-tai-chi',0,S,0,2500):- !,do_action(r,f,0,'step-tai-chi',0,[p=(0.8,0,0),default]),fm(S,'do some~ntai chi',[]).
gesture(r,f,0,'step-tai-chi',0,3):- !,do_action(r,f,0,'step-tai-chi',0,[humanoid=text(0,0,0),humanoid=balloon(0),humanoid=string('tai chi?')]).
phrase(l,f,0,'step-tai-chi',0,S,0,2500):- !,do_action(l,f,0,'step-tai-chi',0,[p=(-1.0,0,0),taichi,next('platform'),default,p(b)=(0.5,0,1),persona=0,balloon=0]),fm(S,'great!',[]).
phrase(r,f,0,'step-tai-chi',1,S,0,2500):- !,!,fm(S,'well done',[]).
gesture(r,f,0,'step-tai-chi',1,1):- !,do_action(r,f,0,'step-tai-chi',1,[humanoid=type(2),humanoid=string('thank you')]).
phrase(l,f,0,'step-tai-chi',1,S,0,2500):- !,do_action(l,f,0,'step-tai-chi',1,[a(e)=1,humanoid=string(''),humanoid=visible(-1)]),fm(S,'what s next?',[]).
phrase(r,f,1,'step-tai-chi',1,S,0,2500):- !,do_action(r,f,1,'step-tai-chi',1,[a(e)=1,next('platform')]),fm(S,'kung fu?',[]).
phrase(r,f,0,'pl-todo',1,S,0,2500):- !,do_action(r,f,0,'pl-todo',1,[default,p=(0,-1,0),balloon=0]),fm(S,'Is this all?',[]).
phrase(l,f,0,'pl-todo',1,S,0,2500):- !,do_action(l,f,0,'pl-todo',1,[next('platform'),default,p=(0,-1,0),balloon=0]),fm(S,'I suppose~nso.',[]).
phrase(r,f,0,'pl-todo',2,S,0,2500):- !,do_action(r,f,0,'pl-todo',2,[string=dlp]),fm(S,'How do~nyou know?',[]).
phrase(l,f,0,'pl-todo',2,S,0,2500):- !,do_action(l,f,0,'pl-todo',2,[next('platform'),string=x3d]),fm(S,'Ask the~nauthors ...',[]).
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.