(defrule incendiu
	(urgenta inc)
	=>
	(printout t "Actionare Extinctor" crlf)
	(assert (urgenta actionare_extinctor))
	(assert (urgenta alertare_pompieri)))

(defrule inundatie
	(urgenta ind)
	=>
	(printout t "Alertare pompieri" crlf)
	(assert (urgenta deconectare_tensiune)))

(defrule accident
	(urgenta acc)
	=>
	(assert (urgenta alertare_politie)))

(defrule ranit
	(urgenta r)
	=>
	(assert (urgenta alertare_salvare)))

(defrule accident_raniti
	(urgenta accR)
	=>
	(assert (urgenta alertare_salvare_politie))
	(assert (urgenta prim_ajutor)))

(defrule cutremur
	(urgenta c)
	=>
	(assert (urgenta refugiere_rama_usii)))

(defrule spargere
	(urgenta s)
	=>
	(assert (urgenta alertare_politie)))