:: dina
<<set $here = 'dina'>>
<<set $ARGS = $location_var[$here]>>
<!-- !!This sets the default descriptors and folder names for each default image set-->
<<setinit $bodimgsets[0] = 'starving'>>
<<setinit $bodimgsets[1] = 'underweight'>>
<<setinit $bodimgsets[2] = 'slender'>>
<<setinit $bodimgsets[3] = 'healthy'>>
<<setinit $bodimgsets[4] = 'cute'>>
<<setinit $bodimgsets[5] = 'chubby'>>
<<setinit $bodimgsets[6] = 'overweight'>>
<<setinit $bodimgsets[7] = 'fat'>>
<<setinit $bodimgsets[8] = 'OOPS'>>
<<setinit $bodimgsets[9] = 'default_low'>>
<<setinit $bodimgsets[10] = 'starving'>>
<<setinit $bodimgsets[11] = 'slight'>>
<<setinit $bodimgsets[12] = 'skinny'>>
<<setinit $bodimgsets[13] = 'toned'>>
<<setinit $bodimgsets[14] = 'cute'>>
<<setinit $bodimgsets[15] = 'curvy'>>
<<setinit $bodimgsets[16] = 'overweight'>>
<<setinit $bodimgsets[17] = 'fat'>>
<<setinit $bodimgsets[18] = 'OOPS'>>
<<setinit $bodimgsets[19] = 'default_mid'>>
<<setinit $bodimgsets[20] = 'starving'>>
<<setinit $bodimgsets[21] = 'wiry'>>
<<setinit $bodimgsets[22] = 'lean'>>
<<setinit $bodimgsets[23] = 'ripped'>>
<<setinit $bodimgsets[24] = 'muscular'>>
<<setinit $bodimgsets[25] = 'herculean'>>
<<setinit $bodimgsets[26] = 'stocky'>>
<<setinit $bodimgsets[27] = 'heavy set'>>
<<setinit $bodimgsets[28] = 'OOPS'>>
<<setinit $bodimgsets[29] = 'default_high'>>
<<setinit $bodimgsets[30] = 'pregnant, but not showing'>>
<<setinit $bodimgsets[31] = 'glowing'>>
<<setinit $bodimgsets[32] = 'starting to show'>>
<<setinit $bodimgsets[33] = 'clearly showing'>>
<<setinit $bodimgsets[34] = 'fairly pregnant'>>
<<setinit $bodimgsets[35] = 'quite pregnant'>>
<<setinit $bodimgsets[36] = 'very pregnant'>>
<<setinit $bodimgsets[37] = 'extremely pregnant'>>
<<setinit $bodimgsets[38] = 'ready to pop'>>
<<setinit $bodimgsets[39] = 'default_preg'>>
<!-- !!This sets the first 3 sets to not override images 0, 6 and 7-->
<<setinit $imgset0ovr[0] = 0>>
<<setinit $imgset0ovr[1] = 0>>
<<setinit $imgset0ovr[2] = 0>>
<<setinit $imgset6ovr[0] = 0>>
<<setinit $imgset6ovr[1] = 0>>
<<setinit $imgset6ovr[2] = 0>>
<<setinit $imgset7ovr[0] = 0>>
<<setinit $imgset7ovr[1] = 0>>
<<setinit $imgset7ovr[2] = 0>>
<!-- !!Sets the default image set count if it is 0-->
<<if getvar("$pc.bodsetcnt") <= 0>>
	<<set $pc.bodsetcnt = 3>>

<</if>>
<<setinit $time.weekday_name[1] = 'Monday'>>
<<setinit $time.weekday_name[2] = 'Tuesday'>>
<<setinit $time.weekday_name[3] = 'Wednesday'>>
<<setinit $time.weekday_name[4] = 'Thursday'>>
<<setinit $time.weekday_name[5] = 'Friday'>>
<<setinit $time.weekday_name[6] = 'Saturday'>>
<<setinit $time.weekday_name[7] = 'Sunday'>>
<!-- !!----------------->
:: brodila_macro[widget]
<<widget 'brodila'>>
	<<set $sexpartkno = 0>>
	<<if getvar("$accessible_property['city_apartment']") > 0>>
		<<gt 'korr' 'start'>>
	<<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
		<<gt 'korr2x' 'start'>>
	<<else>>
		<<gt 'city_residential' 'start'>>
	<</if>>
<</widget>>
:: brodilr_macro[widget]
<<widget 'brodilr'>>
	<<if setup.startingCharacterTagsIncludes('sg') and getvar("$accessible_property['homeParents']") == 4>>
		<<gt 'pav_residential'>>
	<<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
		<<gt 'pushkin_sq'>>
	<<else>>
		<<gt 'city_residential' 'start'>>
	<</if>>
<</widget>>
:: brodilk_macro[widget]
<<widget 'brodilk'>>
	<<if getvar("$accessible_property['city_apartment']") > 0>>
		<<gt 'kuhr' 'start'>>
	<<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
		<<gt 'kuhr2x' 'start'>>
	<<else>>
		<<gt 'city_residential' 'start'>>
	<</if>>
<</widget>>
:: brodils_macro[widget]
<<widget 'brodils'>>
	<<if getvar("$accessible_property['city_apartment']") > 0>>
		<<gt 'sitr' 'start'>>
	<<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
		<<gt 'sitr2x' 'start'>>
	<<elseif setup.startingCharacterTagsIncludes('sg') and getvar("$accessible_property['homeParents']") == 4>>
		<<gt 'sitrPar'>>
	<<else>>
		<<gt 'city_residential' 'start'>>
	<</if>>
<</widget>>
:: dogpot_macro[widget]
<<widget 'dogpot'>>
	<!-- Boy A191 -->
<</widget>>
:: rexpot_macro[widget]
<<widget 'rexpot'>>
	<!-- Boy A166 -->
<</widget>>

:: hypnoAddiction_macro[widget]
<<widget 'hypnoAddiction'>>
	<<if $pc.cumAtLocation(0) == 1 or $pc.cumAtLocation(3) == 1>>
		<<set $missCum to null>>
		<<if $quest('therapist').hypnoAddict == 1>>
			<<set $pc.mood += 5>>
		<<else>>
			<<set $pc.mood += 10>>
		<</if>>
	<<else>>
		<<set $missCum += 1>>
	<</if>>
	<<if $missCum > $timeTresh>>
		<<if $quest('therapist').hypnoAddict == 1>>
			<<set $pc.mood -= 5>>
			<<set $pc.horny += 10>>
		<<else>>
			<<set $pc.mood -= 10>>
			<<set $pc.horny += 20>>
		<</if>>
	<</if>>
	<<if $quest('therapist').hypnoWithdrawal > 0>>
		<<if $quest('therapist').hypnoWithdrawal == 1>>
			<<if $missCum >= $timeTresh>>
				<<set $sprt_deg -= 2 * $quest('therapist').hypnoAddict>>
				<<set $pc.mood -= 10>>
			<<else>>
				<<if rand(0,1) == 0>>
				<<set $sprt_deg -= $quest('therapist').hypnoAddict>>

			<</if>>
				<<set $pc.mood -= 5>>
			<</if>>
		<</if>>
	<</if>>
<</widget>>
:: prezik_macro[widget]
<<widget 'prezik'>>
	<<if $inventory.get("condom") > 0>>
		<<if getvar("$badprezik") > 0>>
			<<if rand(1,prezik) <= $badprezik>>
			<<setn $badprezik -= 1>> <<set $noprotect = 1>>

		<</if>>
		<<else>>
			<<set $noprotect = 0>>
		<</if>>
		<<run $inventory.dec('condom',1)>>
	<<elseif $inventory.get("condom") < 0>>
		<<run $inventory.set('condom',0)>>
	<</if>>
<</widget>>
:: ferteggfather_macro[widget]
<<widget 'ferteggfather'>>
	<<if getvar("$fertegg") > 0>>
		<<if $pc.thinkpreg == 0 and $pc.knowpreg == 0 and getvar("$sparrppt["+$sparrtemp+"]") > 0>>
			<<if getvar("$cumarrkno["+$cumarrtemp+"]") == 1>>
				<<if arrcomp('$cumfthname',$sex.npcId) == -1>>
					<<set $i = arrsize('$cumfthname')>>
					<<setinit $cumfthname[$i] = $sex.npcId>>
					<<setinit $cumtime[$i] = 1>>
				<<else>>
					<<set $i = arrpos('$cumfthname', $sex.npcId)>>
					<<setinit $cumtime[$i] += 1>>
				<</if>>
			<<elseif getvar("$cumarrkno["+$cumarrtemp+"]") == 0>>
				<<setinit $cumtime[0] += 1>>
			<</if>>
		<</if>>
	<</if>>
<</widget>>
