[Chaged] Rebalance to the appearance code increaing impact of weight and reducingthe influence of attributes from nutluck, VK and me

[fixed] Removed a duplicate lip description as it confused matters

locations/body.qsrc

@@ -1337,15 +1337,13 @@ elseif pcs_lip = 3:
 	$lip1 = 'pouting'
 else
 	pcs_lip = 4
-	rand_lips = rand(0,3)
+	rand_lips = rand(0,2)
 	if rand_lips = 0:
-		$pcdesc_lipsrandom = 'plump'
+		$pcdesc_lipsrandom = 'fat'
 	elseif rand_lips = 1:
 		$pcdesc_lipsrandom = 'pillowy'
 	elseif rand_lips = 2:
 		$pcdesc_lipsrandom = 'plush'
-	elseif rand_lips = 3:
-		$pcdesc_lipsrandom = 'fat'
 	end
 	$pcdesc_lips = 'pillowy'
 	$pcdesc_lipswordy = 'plush, pillowy and inviting'

locations/body_shape.qsrc

@@ -63,7 +63,42 @@ if $ARGS[0] = '':
 
 	killvar 'wrtemp'
 
-!!Setting the pcs_apprnc bonus based on wratio
+!!Setting the pcs_apprnc bonus based on fat and strength
+
+bmi_calc = 10000 * (30 + salo / 2 + (pcs_hgt - 170) * 7 / 10) / (pcs_hgt * pcs_hgt)
+
+	if bmi_calc < 16:
+		bodykoef = 35
+    elseif bmi_calc < 19:
+		bodykoef = 70
+    elseif bmi_calc < 25:
+		bodykoef = 90
+    elseif bmi_calc < 30:
+		bodykoef = 80
+    elseif bmi_calc < 35:
+		bodykoef = 50
+    elseif bmi_calc < 40:
+		bodykoef = 30
+    elseif bmi_calc < 45:
+		bodykoef = 10
+    else
+		bodykoef = 0
+    end
+	
+	if strenbuf >= 80:
+		bodykoef += 8
+	elseif >= 60:
+		bodykoef += 10
+	elseif >= 40:
+		bodykoef += 8
+	elseif >= 20:
+		bodykoef += 5
+	else
+		bodykoef += 2
+	end
+
+!![
+put this in comment as old calculation so I don''t find out I need it later
 	if wratio >= 85:
 		bodykoef = 0
 	elseif wratio >= 80:
@@ -74,7 +109,7 @@ if $ARGS[0] = '':
 		bodykoef = 8
 	else
 		bodykoef = 4
-	end
+	end]
 
 !!For band to waist ratio
 	brtemp = (2 * strenbuf + vitalbuf + agilbuf) /4