|
@@ -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
|