glife/locations/body_structure.qsrc

# body_structure

if $ARGS[0] = 'get_class':
	if ARGS[1] <= 15:
		result = 0
	elseif ARGS[1] <= 18:
		result = 100
	elseif ARGS[1] <= 21:
		result = 200
	elseif ARGS[1] <= 24:
		result = 300
	elseif ARGS[1] <= 29:
		result = 400
	elseif ARGS[1] <= 34:
		result = 500
	elseif ARGS[1] <= 39:
		result = 600
	elseif ARGS[1] <= 44:
		result = 700
	else
		result = 800
	end

	if ARGS[2] <= 5:
		result += 0
	elseif ARGS[2] <= 10:
		result += 1
	elseif ARGS[2] <= 15:
		result += 2
	elseif ARGS[2] <= 25:
		result += 3
	elseif ARGS[2] <= 35:
		result += 4
	elseif ARGS[2] <= 50:
		result += 5
	elseif ARGS[2] <= 70:
		result += 6
	elseif ARGS[2] <= 100:
		result += 7
	elseif ARGS[2] <= 110:
		result += 8
	elseif ARGS[2] <= 120:
		result += 9
	elseif ARGS[2] <= 130:
		result += 10
	elseif ARGS[2] <= 140:
		result += 11
	elseif ARGS[2] <= 150:
		result += 12
	elseif ARGS[2] <= 160:
		result += 13
	elseif ARGS[2] <= 170:
		result += 14
	elseif ARGS[2] <= 180:
		result += 15
	elseif ARGS[2] <= 190:
		result += 16
	else
		result += 17
	end
end

if $ARGS[0] = 'bmi_desc':
	if arrsize('ARGS') = 1: ARGS[1] = pcs_bmi
	if arrsize('ARGS') = 2: ARGS[2] = strenbuf
	bs_temp_bs_class = func('body_structure', ARGS[1], ARGS[2])

	if bs_temp_bs_class < 100:
		$result = 'You are severely underweight.'
	elseif bs_temp_bs_class < 200:
		$result = 'You are underweight'
	elseif bs_temp_bs_class < 300:
		$result = 'You have a normal, healthy weight.'
	elseif bs_temp_bs_class < 400:
		$result = 'You have a normal, healthy weight.'
	elseif bs_temp_bs_class < 500:
		$result = 'You are overweight.'
	elseif bs_temp_bs_class < 600:
		$result = 'You are moderately obese.'
	elseif bs_temp_bs_class < 700:
		$result = 'You are severely obese.'
	elseif bs_temp_bs_class < 800:
		$result = 'You are very severely obese.'
	else
		$result = 'You are morbidly obese.'
	end

	killvar 'bs_temp_bs_class'
end

! For succubus call this as func('body_structure', pcs_bmi, 90)
if $ARGS[0] = 'appearance_bonus':
	if arrsize('ARGS') = 1: ARGS[1] = pcs_bmi
	if arrsize('ARGS') = 2: ARGS[2] = strenbuf
	bs_temp_bs_class = func('body_structure', ARGS[1], ARGS[2])

	if bs_temp_bs_class < 100:
		!! severely underweight
		result = -10
	elseif bs_temp_bs_class < 200:
		!! underweight
		result = 25
	elseif bs_temp_bs_class < 300:
		!! healthy weight
		result = 50
	elseif bs_temp_bs_class < 400:
		!! healthy weight
		result = 50
	elseif bs_temp_bs_class < 500:
		!! overweight
		result = 25
	elseif bs_temp_bs_class < 600:
		!! moderately obese
		result = 10
	elseif bs_temp_bs_class < 700:
		!! severely obese
		result = -15
	elseif bs_temp_bs_class < 800:
		!! very severely obese
		result = -40
	else
		!! morbidly obese
		result = -80
	end

	bs_temp_bs_class = bs_temp_bs_class mod 100

	if bs_temp_bs_class = 0:
		result -= 30
	elseif bs_temp_bs_class = 1:
		result -= 20
	elseif bs_temp_bs_class = 2:
		result -= 15
	elseif bs_temp_bs_class = 3:
		result -= 10
	elseif bs_temp_bs_class = 4:
		result -= 5
	elseif bs_temp_bs_class = 5:
		result += 0
	elseif bs_temp_bs_class = 6:
		result += 5
	elseif bs_temp_bs_class = 7:
		result += 10
	elseif bs_temp_bs_class = 8:
		result += 5
	elseif bs_temp_bs_class = 9:
		result += 0
	elseif bs_temp_bs_class = 10:
		result -= 5
	elseif bs_temp_bs_class = 11:
		result -= 15
	elseif bs_temp_bs_class = 12:
		result -= 30
	elseif bs_temp_bs_class = 13:
		result -= 45
	elseif bs_temp_bs_class = 14:
		result -= 60
	elseif bs_temp_bs_class = 15:
		result -= 75
	elseif bs_temp_bs_class = 16:
		result -= 100
	else
		result -= 130
	end

	killvar 'bs_temp_bs_class'
end


if $ARGS[0] = 'body_img':
	if bdsetlock = 0 and (knowpreg = 1 or (preg = 1 and (thinkpreg = 1 or PregChem > 3600))):
		if PregChem <= 2687:
			$result = 'images/pc/body/shape/default_preg/0.jpg'
		elseif PregChem <= 6215:
			$result = 'images/pc/body/shape/default_preg/<<((PregChem - 2184)/504)>>.jpg'
		else
			$result = 'images/pc/body/shape/default_preg/8.jpg'
		end
		exit
	end

	if arrsize('ARGS') = 1: ARGS[1] = pcs_bmi
	if arrsize('ARGS') = 2: ARGS[2] = strenbuf
	bs_temp_bs_class = func('body_structure', ARGS[1], ARGS[2])

	if bdsetlock = 1:
		if fixbodset = 0:
			bs_temp_bs_class = 100 * (bs_temp_bs_class / 100) + 4
		elseif fixbodset = 1:
			bs_temp_bs_class = 100 * (bs_temp_bs_class / 100) + 6
		else
			bs_temp_bs_class = 100 * (bs_temp_bs_class / 100) + 8
		end
	end


	! starving:
	if bs_temp_bs_class <= 17:
		$result = 'images/pc/body/shape/0.jpg'

	! underweight
	elseif bs_temp_bs_class <= 105:
		$result = 'images/pc/body/shape/default_low/1.jpg'
	elseif bs_temp_bs_class <= 107:
		$result = 'images/pc/body/shape/default_mid/1.jpg'
	elseif bs_temp_bs_class <= 117:
		$result = 'images/pc/body/shape/default_high/1.jpg'

	! slender
	elseif bs_temp_bs_class <= 205:
		$result = 'images/pc/body/shape/default_low/2.jpg'
	elseif bs_temp_bs_class <= 207:
		$result = 'images/pc/body/shape/default_mid/2.jpg'
	elseif bs_temp_bs_class <= 217:
		$result = 'images/pc/body/shape/default_high/2.jpg'

	! healthy
	elseif bs_temp_bs_class <= 305:
		$result = 'images/pc/body/shape/default_low/3.jpg'
	elseif bs_temp_bs_class <= 307:
		$result = 'images/pc/body/shape/default_mid/3.jpg'
	elseif bs_temp_bs_class <= 317:
		$result = 'images/pc/body/shape/default_high/3.jpg'

	! overweight
	elseif bs_temp_bs_class <= 405:
		$result = 'images/pc/body/shape/default_low/4.jpg'
	elseif bs_temp_bs_class <= 407:
		$result = 'images/pc/body/shape/default_mid/4.jpg'
	elseif bs_temp_bs_class <= 417:
		$result = 'images/pc/body/shape/default_high/4.jpg'

	! moderately obese
	elseif bs_temp_bs_class <= 517:
	elseif bs_temp_bs_class <= 505:
		$result = 'images/pc/body/shape/default_low/5.jpg'
	elseif bs_temp_bs_class <= 507:
		$result = 'images/pc/body/shape/default_mid/5.jpg'
	elseif bs_temp_bs_class <= 517:
		$result = 'images/pc/body/shape/default_high/5.jpg'

	! severely obese
	elseif bs_temp_bs_class <= 617:
		$result = 'images/pc/body/shape/6.jpg'

	! very severely obese
	elseif bs_temp_bs_class <= 717:
		$result = 'images/pc/body/shape/7.jpg'

	! morbidly obese
	else
		$result = 'images/pc/body/shape/8.jpg'
	end

	killvar 'bs_temp_bs_class'
end


if $ARGS[0] = 'body_desc':
	if knowpreg = 1 or (preg = 1 and (thinkpreg = 1 or PregChem > 3600)):
		if PregChem <= 2687:
			$result = 'pregnant, but not showing'
		elseif PregChem <= 3191:
			$result = 'glowing'
		elseif PregChem <= 3695:
			$result = 'starting to show'
		elseif PregChem <= 4199:
			$result = 'clearly showing'
		elseif PregChem <= 4703:
			$result = 'fairly pregnant'
		elseif PregChem <= 5207:
			$result = 'quite pregnant'
		elseif PregChem <= 5711:
			$result = 'very pregnant'
		elseif PregChem <= 6215:
			$result = 'extremely pregnant'
		else
			$result = 'ready to pop'
		end
		exit
	end


	if arrsize('ARGS') = 1: ARGS[1] = pcs_bmi
	if arrsize('ARGS') = 2: ARGS[2] = strenbuf
	bs_temp_bs_class = func('body_structure', ARGS[1], ARGS[2])

	! starving:
	if bs_temp_bs_class <= 17:
		$result = 'starving'

	! underweight
	elseif bs_temp_bs_class <= 105:
		$result = 'underweight'
	elseif bs_temp_bs_class <= 107:
		$result = 'slight'
	elseif bs_temp_bs_class <= 117:
		$result = 'wiry'

	! slender
	elseif bs_temp_bs_class <= 205:
		$result = 'slender'
	elseif bs_temp_bs_class <= 207:
		$result = 'skinny'
	elseif bs_temp_bs_class <= 217:
		$result = 'lean'

	! healthy
	elseif bs_temp_bs_class <= 305:
		$result = 'healthy'
	elseif bs_temp_bs_class <= 307:
		$result = 'toned'
	elseif bs_temp_bs_class <= 317:
		$result = 'ripped'

	! overweight
	elseif bs_temp_bs_class <= 405:
		$result = 'overweight'
	elseif bs_temp_bs_class <= 407:
		$result = 'curvy'
	elseif bs_temp_bs_class <= 417:
		$result = 'heavy set'

	! moderately obese
	elseif bs_temp_bs_class <= 517:
		$result = 'moderately obese'

	! severely obese
	elseif bs_temp_bs_class <= 617:
		$result = 'severely obese'

	! very severely obese
	elseif bs_temp_bs_class <= 717:
		$result = 'very severely obese'

	! morbidly obese
	else
		$result = 'morbidly obese'
	end

	killvar 'bs_temp_bs_class'
end

--- body_structure ---------------------------------