// Agent victim in project airSeaRescue

/* Initial beliefs and rules */
free.
life(10).

/* Initial goals */
+gsize(_,_) : true
  <- !send_init_pos.
+!send_init_pos : pos(X,Y)
  <- .print("Position initialised").
+!send_init_pos : not pos(_,_) // if I do not know my position yet
  <- .wait("+pos(X,Y)", 500);     // wait for it and try again
     !!send_init_pos(S).

+free : pos(AgX,AgY) & life(L) > 0 & not saved
	<- 
	victim.get_direction(AgX, AgY, D);
	do(D);
	//-+life(L-1);
	-+free.
	
+stayHere(X,Y): free
	<- .print("I will be saved!");
	   +saved;
	   -free.