/* Példa szabályok beszúrására. */


:- consult('kocsmadat.dat'), consult('bank.dat').

proba:- writeln('\nKocsmázós mintapélda'),
	writeln('1. Kocsmázás'),
	writeln('2. Kilépés'), write('Válasszon: '), read(V), menu(V).

menu(1) :- write('\nKell pénz a kocsmázáshoz? i./n.'),
	  read(V), writeln('A kocsmázók: '),dont(V).

menu(2) :- writeln('Ugye érdekes volt? - Viszlát!').

menu(_) :- writeln('Mellégépelt, csak 1. vagy 2. lehet, azaz: '),
	   read(V), menu(V).

dont(i):- retractall(jar(Diak,Kocsma):-(szereti(Diak,Ital), mernek(Kocsma,Ital))),
          assert(jar(Diak,Kocsma):-(szereti(Diak,Ital), mernek(Kocsma,Ital),
				   penze(Diak,Ft),Ft>1000)),
	  kiir, proba.

dont(n):- retractall(jar(Diak,Kocsma):-(szereti(Diak,Ital), mernek(Kocsma,Ital),
				   penze(Diak,Ft),Ft>1000)),
	  assert(jar(Diak,Kocsma):-(szereti(Diak,Ital), mernek(Kocsma,Ital))),
	  kiir, proba.


kiir :- forall(jar(K,H), writef('%w\t%w\n',[K,H])).



/*
Javítsa ki a programot!

1. Most minden újrafuttatáskor bővíti a jar/2 adatbázist. Akadályozza meg!
Vagyis minden kocsmázó-kocsma párost csak egyszer írjon ki. 

2. Irassa ki kocsmánként az odajárókat!
*/