add Place function to chippie

planet/Objects.ocd/Animals.ocd/Chippie.ocd/Egg.ocd/Script.c

@@ -1,6 +1,8 @@
 /**
-	Egg
+	Chippie Egg
 	New chippies hatch from here.
+	
+	@author Zapper
 */
 
 local Name = "$Name$";

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

@@ -1,6 +1,8 @@
 /**
 	Chippy
 	Small, lovely creatures.
+	
+	@author Zapper
 */
 
 #include Library_Animal
@@ -16,6 +18,38 @@ local attach_object, attached_mesh;
 // Remember the energy sucked to frequently spawn offsprings.
 local energy_sucked;
 
+private func Place(int amount, proplist rectangle, proplist settings)
+{
+	var max_tries = 4 * amount;
+	var loc_area = nil;
+	if (rectangle) 
+		loc_area = Loc_InArea(rectangle);
+	var chippies = [];
+	var loc_mat = Loc_Material("Acid");
+	if (settings && settings.mat)
+		loc_mat = settings.mat;
+	while ((amount > 0) && (--max_tries > 0))
+	{
+		var spot = FindLocation(loc_mat, Loc_Space(5), loc_area);
+		if (!spot)
+			continue;
+		
+		var chippie = CreateObject(this, spot.x, spot.y, NO_OWNER);
+		if (!chippie) 
+			continue;
+		
+		if (chippie->Stuck())
+		{
+			chippie->RemoveObject();
+			continue;
+		}
+		PushBack(chippies, chippie);
+		--amount;
+	}
+	// Return a list of all created chippies.
+	return chippies;
+}
+
 public func Construction(...)
 {
 	AddEffect("Activity", this, 1, 10, this);