%@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,'4-1-adam',0,S,0,2500):- !,do_action(r,f,0,'4-1-adam',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'4-1-adam',0,S,0,2500):- !,do_action(l,f,0,'4-1-adam',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(r,f,0,'r-4-1-retr',0,S,0,2500):- !,do_action(r,f,0,'r-4-1-retr',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'r-4-1-retr',0,S,0,2500):- !,do_action(l,f,0,'r-4-1-retr',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(r,f,0,'9-intro',0,S,0,2500):- !,do_action(r,f,0,'9-intro',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'9-intro',0,S,0,2500):- !,do_action(l,f,0,'9-intro',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(r,f,0,'r-6-1-arch',0,S,0,2500):- !,do_action(r,f,0,'r-6-1-arch',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'r-6-1-arch',0,S,0,2500):- !,do_action(l,f,0,'r-6-1-arch',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
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.