glife/sugarcube/src/autogenerated/Clothing/changingroom.tw

:: changingroom[menu]
<<actCLA 'Leave the changing room'>>
	<<gt $location>>
<</actCLA>>

<<if $wardrobe.clothes.type == 'swimwear'>>
	<<image `$wardrobe.clothes.image`>>
	<p>You are wearing swimwear.</p>
	<p>
		<<actCLA "Change back into regular clothes">>
			<<run $wardrobe.wearLastWorn('swim')>>
			<<image `$wardrobe.clothes.image`>>
			<<actCLA 'Leave the changing room'>>
				<<gt $location>>
			<</actCLA>>
		<</actCLA>>
	</p>
<<else>>
	<<itemsOverview 'swimwear' -1 undefined undefined `{replaceMode:true,lastWornSet:'swim',returnPassage:'changingroom_wear_swimsuit'}`>>
<</if>>

:: changingroom_wear_swimsuit
<<image `$wardrobe.clothes.image`>>
<p>You put on swimwear.</p>
<p>
	<<actCLA 'Leave the changing room'>>
		<<gt $location>>
	<</actCLA>>
</p>

:: changingroom_deactivated


<<if $location_var[$here][0] == 'view_swim_list'>>
	<<if ARRSIZE('danilovich_swimsuit') == 0 and ARRSIZE('scandalicious_swimsuit') == 0 and ARRSIZE('scandalicious_bikinis') == 0 and ARRSIZE('allure_swimsuit') == 0 and ARRSIZE('allure_bikinis') == 0 and ARRSIZE('nerdvana_swimsuit') == 0 and ARRSIZE('nerdvana_bikinis') == 0>>
		<center>You do not own any swimwear.</center>
	<<elseif $loc == 'fit' or $loc == 'bass' or $loc_arg == 'kathansaunasw1' or $loc_arg == 'kathansaunasw2' or $weather.temperature >= 15>>
		<<if !$wardrobe.isWearingSwimwear and $wardrobe.clothingworntype != 'nude'>>
			<<setinit $lastwornclothingtype['swim'] = $wardrobe.clothingworntype>>
			<<setinit $lastwornclothingnumber['swim'] = $wardrobe.clothingwornnumber>>
			<<setinit $lastwornpantytype['swim'] = $wardrobe.pantyworntype>>
			<<setinit $lastwornpantynumber['swim'] = $wardrobe.pantywornnumber>>
			<<setinit $lastwornbratype['swim'] = $wardrobe.braworntype>>
			<<setinit $lastwornbranumber['swim'] = $wardrobe.brawornnumber>>
		<</if>>
		<<set $i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :loopdanilovich_swimsuit'>>
		<<if getvar("$danilovich_swimsuit["+$i+"]") == 1 and getvar("$danilovich_swimsuit_s["+$i+"]") == 0 and ($wardrobe.clothingworntype != 'danilovich_swimsuit' or $wardrobe.clothingwornnumber != $i)>>
			*p '<<link '<img <<$set_imgh>> src="images/pc/items/danilovich/swimwear/<<i>>.jpg" 	height="250" />'>><<gt  'changingroom'  'view_swim_item'  'danilovich_swimsuit'  <<i>>>><</link>>'

		<</if>>
		<<set $i += 1>>
		<<if $i <= ARRSIZE('danilovich_swimsuit')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump loopdanilovich_swimsuit'>>

		<</if>>
		<<set $i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :loopscandalicious_swimsuit'>>
		<<if getvar("$scandalicious_swimsuit["+$i+"]") == 1 and getvar("$scandalicious_swimsuit_s["+$i+"]") == 0 and ($wardrobe.clothingworntype != 'scandalicious_swimsuit' or $wardrobe.clothingwornnumber != $i)>>
			*p '<<link '<img <<$set_imgh>> src="images/pc/items/scandalicious/swim/one/<<i>>.jpg" 	height="250" />'>><<gt  'changingroom'  'view_swim_item'  'scandalicious_swimsuit'  <<i>>>><</link>>'

		<</if>>
		<<set $i += 1>>
		<<if $i <= ARRSIZE('scandalicious_swimsuit')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump loopscandalicious_swimsuit'>>

		<</if>>
		<<set $i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :loopscandalicious_bikinis'>>
		<<if getvar("$scandalicious_bikinis["+$i+"]") == 1 and getvar("$scandalicious_bikinis_s["+$i+"]") == 0 and ($wardrobe.clothingworntype != 'scandalicious_bikinis' or $wardrobe.clothingwornnumber != $i)>>
			*p '<<link '<img <<$set_imgh>> src="images/pc/items/scandalicious/swim/two/<<i>>.jpg" 	height="250" />'>><<gt  'changingroom'  'view_swim_item'  'scandalicious_bikinis'  <<i>>>><</link>>'

		<</if>>
		<<set $i += 1>>
		<<if $i <= ARRSIZE('scandalicious_bikinis')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump loopscandalicious_bikinis'>>

		<</if>>
		<<set $i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :loopallure_swimsuit'>>
		<<if getvar("$allure_swimsuit["+$i+"]") == 1 and getvar("$allure_swimsuit_s["+$i+"]") == 0 and ($wardrobe.clothingworntype != 'allure_swimsuit' or $wardrobe.clothingwornnumber != $i)>>
			*p '<<link '<img <<$set_imgh>> src="images/pc/items/allure/one/<<i>>.jpg" 	height="250" />'>><<gt  'changingroom'  'view_swim_item'  'allure_swimsuit'  <<i>>>><</link>>'

		<</if>>
		<<set $i += 1>>
		<<if $i <= ARRSIZE('allure_swimsuit')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump loopallure_swimsuit'>>

		<</if>>
		<<set $i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :loopallure_bikinis'>>
		<<if getvar("$allure_bikinis["+$i+"]") == 1 and getvar("$allure_bikinis_s["+$i+"]") == 0 and ($wardrobe.clothingworntype != 'allure_bikinis' or $wardrobe.clothingwornnumber != $i)>>
			*p '<<link '<img <<$set_imgh>> src="images/pc/items/allure/two/<<i>>.jpg" 	height="250" />'>><<gt  'changingroom'  'view_swim_item'  'allure_bikinis'  <<i>>>><</link>>'

		<</if>>
		<<set $i += 1>>
		<<if $i <= ARRSIZE('allure_bikinis')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump loopallure_bikinis'>>

		<</if>>
		<<set $i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :loopnerdvana_swimsuit'>>
		<<if getvar("$nerdvana_swimsuit["+$i+"]") == 1 and getvar("$nerdvana_swimsuit_s["+$i+"]") == 0 and ($wardrobe.clothingworntype != 'nerdvana_swimsuit' or $wardrobe.clothingwornnumber != $i)>>
			*p '<<link '<img <<$set_imgh>> src="images/pc/items/nerdvana/swim/one/<<i>>.jpg" 	height="250" />'>><<gt  'changingroom'  'view_swim_item'  'nerdvana_swimsuit'  <<i>>>><</link>>'

		<</if>>
		<<set $i += 1>>
		<<if $i <= ARRSIZE('nerdvana_swimsuit')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump loopnerdvana_swimsuit'>>

		<</if>>
		<<set $i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :loopnerdvana_bikinis'>>
		<<if getvar("$nerdvana_bikinis["+$i+"]") == 1 and getvar("$nerdvana_bikinis_s["+$i+"]") == 0 and ($wardrobe.clothingworntype != 'nerdvana_bikinis' or $wardrobe.clothingwornnumber != $i)>>
			*p '<<link '<img <<$set_imgh>> src="images/pc/items/nerdvana/swim/two/<<i>>.jpg" 	height="250" />'>><<gt  'changingroom'  'view_swim_item'  'nerdvana_bikinis'  <<i>>>><</link>>'

		<</if>>
		<<set $i += 1>>
		<<if $i <= ARRSIZE('nerdvana_bikinis')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump loopnerdvana_bikinis'>>

		<</if>>
		<<if $wardrobe.clothingworntype == 'danilovich_swimsuit' or $wardrobe.clothingworntype == 'scandalicious_swimsuit' or $wardrobe.clothingworntype == 'scandalicious_bikinis' or $wardrobe.clothingworntype == 'allure_swimsuit' or $wardrobe.clothingworntype == 'allure_bikinis' or $wardrobe.clothingworntype == 'nerdvana_swimsuit' or $wardrobe.clothingworntype == 'nerdvana_bikinis'>>
			<center>You are wearing swimwear.</center>

		<</if>>
	<<elseif $weather.temperature < 15>>
		<center>It's below 15C - far too cold to get changed into swimwear. You should wait until the weather warms up.</center>
	<</if>>
	<<actCLA 'Leave'>>
		<<gt $location>>
	<</actCLA>>
	<<if $wardrobe.PCloswimwear == 1>>
		<<actCLA 'Put your regular clothes back on'>>
			<<run $wardrobe.wear_clothes_legacy('clothes',$lastwornclothingtype['swim'],$lastwornclothingnumber['swim'])>>
			<<run $wardrobe.wear(['panties',$lastwornpantytype['swim'],$lastwornpantynumber['swim']])>>
			<<run $wardrobe.wear(['bra',$lastwornbratype['swim'],$lastwornbranumber['swim']])>>
			<<gt $location>>
		<</actCLA>>
	<</if>>
	<<act 'Choose an outfit'>>
		<<gt 'wardrobe' 'main'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'view_swim_item'>>
	<!-- !! ARGS 0 - view_clothing_item-->
	<!-- !! ARGS 1 - clothing type-->
	<!-- !! ARGS 2 - clothing index-->
	<center><img <<$set_imgh>> src="<<setup.func(''$clothing_image'',  $ARGS[1], ARGS[2])>>"></center>
	<<$ARGS[1]>> no.<<ARGS[2]>>
	<<if $location_var[$here][1] == 'danilovich_swimsuit'>>
		setup.func('$attributes_danilovich_swim_one', $ARGS[1], ARGS[2])
		$swimwear_description
	<<elseif $location_var[$here][1] == 'scandalicious_swimsuit'>>
		setup.func('$attributes_scandalicious_swim_one', $ARGS[1], ARGS[2])
		$swimwear_description
	<<elseif $location_var[$here][1] == 'scandalicious_bikinis'>>
		setup.func('$attributes_scandalicious_swim_two', $ARGS[1], ARGS[2])
		$swimwear_description
	<<elseif $location_var[$here][1] == 'allure_swimsuit'>>
		setup.func('$attributes_allure_swim_one', $ARGS[1], ARGS[2])
		$swimwear_description
	<<elseif $location_var[$here][1] == 'allure_bikinis'>>
		setup.func('$attributes_allure_swim_two', $ARGS[1], ARGS[2])
		$swimwear_description
	<<elseif $location_var[$here][1] == 'nerdvana_swimsuit'>>
		setup.func('$attributes_nerdvana_swim_one', $ARGS[1], ARGS[2])
		$swimwear_description
	<<elseif $location_var[$here][1] == 'nerdvana_bikinis'>>
		setup.func('$attributes_nerdvana_swim_two', $ARGS[1], ARGS[2])
		$swimwear_description
	<</if>>
	<<set $result = '(strength '>>
	<<set $result += getvar($ARGS[1]+'_h['+$ARGS[2]+']')>>
	<<set $result += ')'>>
	$result
	<<act 'Return'>>
		<<gt 'changingroom' 'view_swim_list'>>
	<</act>>
	<!-- !! if the clothing is worn out-->
	<<if State.getVar('$'+$ARGS[1]+'_h['+$ARGS[2]+']') <= 0>>
		This item is worn and is not suitable for further wear.
		<<actCLA 'Throw it away'>>
			<<run State.setVar($ARGS[1]+'['+$ARGS[2]+']',0)>>
			<<gt 'changingroom' 'view_swim_list'>>
		<</actCLA>>
	<<elseif $CloInhibit > $pc.pcs_inhib>>
		You don't feel daring enough to wear swimwear this revealing.
	<<else>>
		<<if $CloInhibit + 10 > $pc.pcs_inhib>>
			You find this swimwear to be more revealing than you are completely comfortable with but that makes it quite exciting too.

		<</if>>
		<<actCLA 'Wear'>>
			<<gs 'underwear' 'remove'>>
			<<run $wardrobe.wear_clothes_legacy('clothes',$location_var[$here][1],$ARGS[2])>>
			<<gt $location>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- !! following function counts all available swimwear even if being worn currently.-->
<!-- !! you can add 'swim' or 'beach' if you want to count just one of them-->
<!-- !! use setup.func('changingroom','count_swim_item') or setup.func('changingroom','count_swim_item','swim') or setup.func('changingroom','count_swim_item','beach')-->
<<if $location_var[$here][0] == 'count_swim_item'>>
	<<warn 'count_swim_item is deprecated, use $wardrobe.ownsSwimmingItem instead'>>
	<<set $result = $wardrobe.itemsFiltered({subtype:'swimsuit'}).length + $wardrobe.itemsFiltered({subtype:'bikini'}).length>>
<</if>>