26 lines
569 B
Text
26 lines
569 B
Text
// 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.
|