/* Answers from MOO */

%look #1994 (room4)
answer("look #1994","&fact(object(ask,mona))&fact(object(ask,ski_jacket))&fact(object(ask,gun))").
answer("look #1994","&fact(object(look,mona))&fact(object(look,ski_jacket))&fact(object(look,gun))").
%look mona
answer("look mona","&fact(descr(mona,killed,gun))").
%look ski jacket
answer("look ski jacket","&fact(descr(ski_jacket,made,swiss))&fact(descr(ski_jacket,color,red))&fact(descr(ski_jacket,type,instructer))").
%look gun
answer("look gun","&fact(descr(gun,made,swiss))&fact(descr(gun,age,old))").

%look #1973 (restaurant)
answer("look #1973","&fact(object(read,sign))").
%read sign
answer("read sign","&fact(opened(resturant,600,2200))").

%look #1978 (bar)
answer("look #1978","&fact(object(ask,painting))&fact(object(look,painting))").
%look painting
answer("look painting","&fact(descr(painting,author,magritte))&fact(descr(painting,title,the_fool_on_the_hill))&fact(descr(painting,age,early))").

%look #1960 (lobby)
answer("look #1960","&fact(object(read,registry))&fact(object(read,phone_log))").
%read registry
answer("read registry","&fact(record(marie,lobby,47,propietar,private))&fact(record(oscar,kitchen,52,chef,private))&fact(record(jacques,bar,25,bartender,unknowm))&fact(record(heidi,r2004,37,chambermaid,r2004))&fact(record(rolf,r1985,40,insurance_agent,zurich))&fact(record(claire,r1985,39,architect,zurich))&fact(record(lisa,r1991,20,art_student,manchester))&fact(record(mona,r1994,32,insurance_agent,lugano))&fact(record(giuzeppe,r1994,35,doctor,lugano))&fact(record(kolonel,r1997,68,retired_kolonel,lucerne))&fact(record(lucie,r2001,20,student,lausanne))&fact(record(hans,r2007,ski_instructer,biel))").
%read phone log
answer("read phone log","&fact(phone_call(r1994,1804,10))&fact(phone_call(private,2028,625))&fact(phone_call(r1985,2201,65))&fact(phone_call(r1994,2203,827))").

%look #1981 (Private Residence)
answer("look #1981","&fact(object(read,insurance_contract))").
%read insurance contract
answer("read insurance contract","&fact(insured(painting,oscar,1000000))&fact(descr(painting,insured,title,the_fool_under_the_hill))&fact(descr(painting,insured,author,magritte))&fact(descr(painting,insured,owner,oscar))&fact(descr(painting,insured,who,mona))&fact(descr(painting,insured,value,1000000))").

%look room1,2,3,5,6,7,8: not necessary yet!

%ask oscar
answer("ask oscar about gun","&fact(knows(oscar,gun,kolonel,0.5))").
answer("ask oscar about ski jacket","&fact(knows(oscar,ski_jacket,hans,1))").
answer("ask oscar about mona","&fact(knows(oscar,mona,customer(mona),1))").
answer("ask oscar about painting","&fact(knows(oscar,painting,original(painting),1))").
answer("ask oscar about last night","&fact(was_at(oscar,kitchen,1800,2230,with([]),nothing))").

%ask jacques
answer("ask jacques about gun","&fact(knows(jacques,gun,kolonel,1))").
answer("ask jacques about ski jacket","&fact(knows(jacques,ski_jacket,hans,1))").
answer("ask jacques about mona","&fact(knows(jacques,mona,relation(mona,oscar,unknown),1))").
answer("ask jacques about painting","&fact(knows(jacques,painting,nothing,0))").
answer("ask jacques about last night","&fact(was_at(jacques,bar,1800,2230,with([hans,heidi,lisa,marie]),fight(hans,heidi)))").


%ask giuzeppe
answer("ask giuzeppe about gun","&fact(knows(giuzeppe,gun,unknown,0))").
answer("ask giuzeppe about jacket","&fact(knows(giuzeppe,ski_jacket,hans,1))").
answer("ask giuzeppe about mona","&fact(knows(giuzeppe,mona,wife(giuzeppe,mona),1))").
answer("ask giuzeppe about painting","&fact(knows(giuzeppe,painting,unknown,0))").
answer("ask giuzeppe about last night","&fact(was_at(giuzeppe,restaurant,1800,2200,with([mona,rolf,claire]),suspects(hans)))").
answer("ask giuzeppe about last night","&fact(was_at(giuzeppe,bar,2200,2230,with([rolf,claire]),nothing))").

%ask rolf
answer("ask rolf about gun","&fact(knows(rolf,gun,kolonel,0.25))").
answer("ask rolf about ski jacket","&fact(knows(rolf,ski_jacket,unknown,0))").
answer("ask rolf about mona","&fact(knows(rolf,mona,relation(mona,rolf,work),1))").
answer("ask rolf about painting","&fact(knows(rolf,painting,insured(painting,mona),1))").
answer("ask rolf about last night","&fact(was_at(rolf,restaurant,1800,2200,with([giuzeppe,mona,claire]),left(rolf,restaurant,2030)))").
answer("ask rolf about last night","&fact(was_at(rolf,bar,2200,2230,with([giuzeppe,mona,claire]),nothing))").

%ask claire
answer("ask claire about gun","&fact(knows(claire,gun,unknown,0))").
answer("ask claire about ski jacket","&fact(knows(claire,ski_jacket,unknown,0))").
answer("ask claire about mona","&fact(knows(claire,mona,relation(mona,rolf,work),1))").
answer("ask claire about painting","&fact(knows(claire,painting,unknown,0))").
answer("ask claire about last night","&fact(was_at(claire,restaurant,1800,2200,with([giuzeppe,mona,rolf]),nothing))&fact(was_at(claire,bar,2200,2230,with([giuzeppe,mona,rolf]),nothing))").

%ask lisa
answer("ask lisa about gun","&fact(knows(lisa,gun,unknown,0))").
answer("ask lisa about ski jacket","&fact(knows(lisa,ski_jacket,unknown,0))").
answer("ask lisa about mona","&fact(knows(lisa,mona,fake(painting),1))").
answer("ask lisa about painting","&fact(knows(lisa,painting,fake(painting),1))").
answer("ask lisa about last night","&fact(was_at(lisa,bar,1800,2230,with([jacques]),nothing))").

%ask marie
answer("ask marie about gun","&fact(knows(marie,gun,unknown,0))").
answer("ask marie about ski jacket","&fact(knows(marie,ski_jacket,hans,1))").
answer("ask marie about mona","&fact(knows(marie,mona,relation(mona,oscar,money),1))").
answer("ask marie about painting","&fact(knows(marie,painting,unknown,0))").
answer("ask marie about last night","&fact(was_at(marie,kitchen,1800,2200,with([oscar]),left(marie,kitchen,2030,phone_call,unknown)))&fact(was_at(marie,bar,2200,2230,with([jacques]),nothing))").

%ask hans
answer("ask hans about gun","&fact(knows(hans,gun,kolonel,1))").
answer("ask hans about ski jacket","&fact(knows(hans,ski_jacket,saw(mona,room4,2200),1))").
answer("ask hans about mona","&fact(knows(hans,mona,relation(mona,hans,love),1))").
answer("ask hans about painting","&fact(knows(hans,painting,unknown,0))").
answer("ask hans about last night","&fact(was_at(hans,bar,1930,2100,with([heidi]),nothing))&fact(was_at(hans,room8,2100,2400,with([]),nothing))").

%ask heidi

answer("ask heidi about gun","&fact(knows(heidi,gun,kolonel,0.5))").
answer("ask heidi about ski jacket","&fact(knows(heidi,ski_jacket,hans,1))").
answer("ask heidi about mona","&fact(knows(heidi,mona,unknown,1))").
answer("ask heidi about painting","&fact(knows(mona,painting,old(painting),1))").
answer("ask heidi about last night","&fact(was_at(heidi,bar,1900,1945,with([hans]),nothing))&fact(was_at(heidi,town,1945,2400,with([lucie]),nothing))").

%ask lucie
answer("ask lucie about gun","&fact(knows(lucie,gun,unknown,0))").
answer("ask lucie about ski jacket","&fact(knows(lucie,ski_jacket,nothing,0))").
answer("ask lucie about mona","&fact(knows(lucie,mona,upset(heidi,relation(mona,hans,love)),1))").
answer("ask lucie about painting","&fact(knows(lucie,painting,nothing,0))").
answer("ask lucie about last night","&fact(was_at(lucie,town,1945,2400,with([heidi]),fight(hans,heidi)))").

%ask kolonel
answer("ask kolonel about gun","&fact(knows(kolonel,gun,kolonel,1))").
answer("ask kolonel about ski jacket","&fact(knows(kolonel,ski_jacket,hans,1))").
answer("ask kolonel about mona","&fact(knows(kolonel,mona,unknown,0))").
answer("ask kolonel about painting","&fact(knows(kolonel,painting,unknown,0))").
answer("ask kolonel about last night","&fact(was_at(kolonel,bar,2000,2100,with([hans]),nothing))&fact(was_at(kolonel,room5,2100,2400,with([]),nothing))").