add IsAnimal to animals for finding them

planet/Objects.ocd/Animals.ocd/Fish.ocd/Script.c

@@ -55,6 +55,8 @@ func Place(int amount, proplist rectangle, proplist settings)
 	return f; // return last created fish
 }
 
+public func IsAnimal() { return true; }
+
 func Construction()
 {
 	// general stuff	

planet/Objects.ocd/Animals.ocd/Mooq.ocd/Script.c

@@ -49,6 +49,8 @@ public func Place(int amount, proplist rectangle, proplist settings)
 	return animal;
 }
 
+public func IsAnimal() { return true; }
+
 func Construction()
 {
 	turn_angle = -60;

planet/Objects.ocd/Animals.ocd/Puka.ocd/Script.c

@@ -57,6 +57,8 @@ public func Place(int amount, proplist rectangle, proplist settings)
 	return animal;
 }
 
+public func IsAnimal() { return true; }
+
 public func Construction()
 {
 	turn_angle = 0;

planet/Objects.ocd/Animals.ocd/Shark.ocd/Script.c

@@ -22,6 +22,8 @@ private func Construction()
 	return _inherited(...);
 }
 
+public func IsAnimal() { return true; }
+
 private func Attack(object target, int x, int y)
 {
 	if (!attacking || (target->GetAction() != "Swim" && target->GetAction() != "Jump") || !target->GetAlive() || !PathFree(GetX(), GetY(), target->GetX(), target->GetY()))

planet/Objects.ocd/Animals.ocd/Squid.ocd/Script.c

@@ -71,6 +71,8 @@ public func Place(int amount, proplist rectangle, proplist settings)
 	return f; // return last created fish
 }
 
+public func IsAnimal() { return true; }
+
 public func Construction()
 {
 	current_orientation = [0, -2, 1];

planet/Objects.ocd/Animals.ocd/Wipf.ocd/Script.c

@@ -16,6 +16,8 @@ public func Initialize()
 	return;
 }
 
+public func IsAnimal() { return true; }
+
 public func Place(int amount, proplist area)
 {
 	if (this != Wipf)