(defrule MAIN::ratat
(start t)
(pyt1 n)
(or (marka vw)
(marka m)
(marka o))
(kwota ?kwota)
(rata t)
=>
(liniaSt 1 0)
(printout t "Na ile rat chcesz podzielić ?" crlf)
(assert (iloscRat (read) ) )
(linia 1 1))


(defrule wysokoscRat
(start t)
(pyt1 n)
(or (marka vw)
(marka m)
(marka o))
(kwota ?kwota)
(rata t)
(iloscRat ?iloscRat)
=>
(liniaSt 1 0)
(bind ?rata (/ ?*cena* ?iloscRat))
(printout t "Rata miesieczna wynosi okolo " (round ?rata) " tys. zl" crlf)
(printout t "Jaka wybierasz metode platnosci ?" crlf)
(printout t "1 - platnosc przy odbiorze osobistym" crlf)
(printout t "2 - platnosc przy odbiorze paczki" crlf)
(printout t "3 - platnosc poprzez przelew" crlf)
(assert (metoda (read) ) )
(linia 1 1))

(defrule odbiorOs
(start t)
(pyt1 n)
(or (marka vw)
(marka m)
(marka o))
(kwota ?kwota)
(rata t)
(iloscRat ?ilosc)
(metoda 1)
=>
(liniaSt 1 0)
(printout t "Zapraszamy zatem do sklepu!" crlf)
(linia 1 1))

(defrule odbiorPa
(start t)
(pyt1 n)
(or (marka vw)
(marka m)
(marka o))
(kwota ?kwota)
(rata t)
(iloscRat ?ilosc)
(metoda 2)
=>
(liniaSt 1 0)
(printout t "Wybierasz płatność gotówką czy kartą ? (g/k)" crlf)
(assert (zaplata (read) ) )
(linia 1 1))

(defrule odbiorPrz
(start t)
(pyt1 n)
(or (marka vw)
(marka m)
(marka o))
(kwota ?kwota)
(rata t)
(iloscRat ?ilosc)
(metoda 3)
=>
(liniaSt 1 0)
(printout t "Wybierasz płatność gotówką czy kartą ? (g/k)" crlf)
(assert (zaplata (read) ) )
(linia 1 1))

(defrule platnosc
(start t)
(pyt1 n)
(or (marka vw)
(marka m)
(marka o))
(kwota ?kwota)
(rata t)
(iloscRat ?ilosc)
(or (metoda 3)
(metoda 2))
(or (zaplata g)
(zaplata k))
=>
(liniaSt 1 0)
(printout t " Czy chcesz otrzymac fakture ? (t/n)" crlf)
(assert (faktura (read) ) )
(linia 1 1))


(defrule odbior-faktury
(start t)
(pyt1 n)
(or (marka vw)
(marka m)
(marka o))
(kwota ?kwota)
(rata t)
(iloscRat ?ilosc)
(or (metoda 3)
(metoda 2))
(or (zaplata g)
(zaplata k))
(faktura t)
=>
(liniaSt 1 0)
(printout t "zgłos sprzedawcy chec otrzymania faktury" crlf)
(printout t "Do zobaczenia!" crlf)
(linia 1 1))