%@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,'0-agents',0,S,0,2500):- !,do_action(r,f,0,'0-agents',0,[scale=(3,2,1),url='local/annot/amsterdam.jpg']),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):- !,do_action(r,f,1,'0-agents',0,url='local/annot/hubbub.gif'),fm(S,'We will,~nguide you',[]).
phrase(l,f,1,'0-agents',0,S,0,2500):- !,do_action(l,f,1,'0-agents',0,url='local/annot/gateway.jpg'),fm(S,'through~nthe~nintroduction',[]).
phrase(r,f,2,'0-agents',0,S,0,2500):- !,do_action(r,f,2,'0-agents',0,[url='local/annot/entertain.jpg',a(e)=1]),fm(S,'MULTIMEDIA',[]).
phrase(l,f,2,'0-agents',0,S,0,2500):- !,do_action(l,f,2,'0-agents',0,[url='local/annot/retrieval.jpg',a(e)=1]),fm(S,'gently~n...',[]).
phrase(r,f,0,'abstract',0,S,0,2500):- !,do_action(r,f,0,'abstract',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(l,f,0,'abstract',0,S,0,2500):- !,do_action(l,f,0,'abstract',0,[p=(2,-1.5,0),p(b)=(0,0,0), p(e)=(0,0,0)]),fm(S,'',[]).
phrase(r,f,0,'abstract-3',0,S,0,2500):- !,do_action(r,f,0,'abstract-3',0,[bulb=0,color=(0,0,1),text=(1,1,0)]),fm(S,'Get it?',[]).
phrase(r,f,0,'0-gap',0,S,0,2500):- !,do_action(r,f,0,'0-gap',0,[bulb=0,color=(1,0,0),text=(1,1,1)]),fm(S,'That is~nan interesting~nthought',[]).
phrase(l,f,0,'0-gap',0,S,0,2500):- !,do_action(l,f,0,'0-gap',0,[bulb=0]),fm(S,'Are you~nkidding?',[]).
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.