[added] Pregnancy progression pictures

locations/_body_image.qsrc

@@ -6,23 +6,31 @@
 $body_image_msg = ''
 if $ARGS[0] = 'body':
 !!	This displays the body image; $bodimgsets[x9] is the folder name
-	if salocatnow >= 1 and salocatnow <= 5:
-		$RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/<<salocatnow>>.jpg'
-	elseif salocatnow <= 0:
-		$RESULT = 'images/pc/body/shape/0.jpg'
-	elseif salocatnow = 6:
-		if imgset6ovr[bodset] = 1:
-			$RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/6.jpg'
-		else
-			$RESULT = 'images/pc/body/shape/6.jpg'
-		end
-	else
-		if imgset7ovr[bodset] = 1:
-			$RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/7.jpg'
-		else
-			$RESULT = 'images/pc/body/shape/7.jpg'
-		end
-	end
+	if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodset = 3:
+                if PregChem > 6100:
+                        $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10)+9)]>>/8.jpg'
+                elseif PregChem < 2688:
+                        $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10)+9)]>>/0.jpg'
+                else
+                        $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10)+9)]>>/<<((PregChem - 2184)/504)>>.jpg'
+                end
+        elseif salocatnow >= 1 and salocatnow <= 5:
+                $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/<<salocatnow>>.jpg'
+        elseif salocatnow <= 0:
+                $RESULT = 'images/pc/body/shape/0.jpg'
+        elseif salocatnow = 6:
+                if imgset6ovr[bodset] = 1:
+                        $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/6.jpg'
+                else
+                        $RESULT = 'images/pc/body/shape/6.jpg'
+                end
+        else
+                if imgset7ovr[bodset] = 1:
+                        $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/7.jpg'
+                else
+                        $RESULT = 'images/pc/body/shape/7.jpg'
+                end
+        end
 	$body_image_msg += 'You are <<pcs_hgt>>cm tall and <<$body>>'
 end
 

locations/body.qsrc

@@ -1851,7 +1851,9 @@ end
 if dounspell = 1:
 	salocatnow = (pcs_hips / 10) - 5
 	if bdsetlock = 0:
-		if strenbuf >= 70:
+		if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)):
+			bodset = 3
+		elseif strenbuf >= 70:
 			bodset = 2
 		elseif strenbuf <= 40:
 			bodset = 0
@@ -1861,9 +1863,27 @@ if dounspell = 1:
 	else
 		bodset = fixbodset
 	end
-end
+elseif (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodet ! 3 and bdsetlock = 0:
+	bodset = 3
+elseif preg = 0 and bodset = 3 and bdsetlock = 0:
+	if strenbuf >= 70:
+		bodset = 2
+	elseif strenbuf <= 40:
+		bodset = 0
+	else
+		bodset = 1
+	end
+end 
 
-if salocatnow <= 7:
+if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodset = 3:
+	if PregChem > 6100:
+		$body = $bodimgsets[((bodset * 10) + 8)]
+	elseif PregChem < 2688:
+		$body = $bodimgsets[(bodset * 10)]
+	else 
+		$body = $bodimgsets[((bodset * 10)+((PregChem - 2184)/504))]
+	end
+elseif salocatnow <= 7:
 	$body = $bodimgsets[((bodset * 10) + salocatnow)]
 else
 	$body = $bodimgsets[((bodset * 10) + 7)]
@@ -1875,4 +1895,4 @@ musle = strenbuf
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
---- body ---------------------------------
+--- body ---------------------------------

locations/body_shape.qsrc

@@ -177,7 +177,9 @@ if $ARGS[0] = '':
 
 !!This sets which image set is to be used when the override is not set
 	if bdsetlock = 0:
-		if strenbuf >= 70:
+		if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)):
+			bodset = 3
+		elseif strenbuf >= 70:
 			bodset = 2
 		elseif strenbuf <= 40:
 			bodset = 0

locations/dina.qsrc

@@ -74,6 +74,17 @@ $bodimgsets[26] = 'stocky'
 $bodimgsets[27] = 'heavy set'
 $bodimgsets[28] = 'OOPS'
 $bodimgsets[29] = 'default_high'
+$bodimgsets[30] = 'pregnant, but not showing'
+$bodimgsets[31] = 'glowing'
+$bodimgsets[32] = 'starting to show'
+$bodimgsets[33] = 'clearly showing'
+$bodimgsets[34] = 'fairly pregnant'
+$bodimgsets[35] = 'quite pregnant'
+$bodimgsets[36] = 'very pregnant'
+$bodimgsets[37] = 'extremely pregnant'
+$bodimgsets[38] = 'ready to pop'
+$bodimgsets[39] = 'default_preg'
+
 !!This sets the first 3 sets to not override images 6 and 7
 imgset6ovr[0] = 0
 imgset6ovr[1] = 0