:: succubus
<<set $here = 'succubus'>>
<<set $ARGS = $location_var[$here]>>
<!-- !!2022/06/20-->
<!-- !!The verious calls for succubus specific events-->
<!-- !!Varible identification:-->
<!-- !!	scfwon; a flag to indicate that a call is from a fight that was won or you were hunting, set at the calling location-->
<!-- !!	scpopt; a flag to indicate that a call is optional for some reason, set at the calling location: 0: No, 1: Yes, 2: option taken-->
<!-- !!	$sclocrt; a string to indicate where a call came from if $loc may not have been set, set at the calling location when needed-->
<!-- !!	$scargrt; a string to set by the $ARGS from the calling location if $metca may not have been set, set at the calling location when needed-->
<!-- !!	$scsubloc; a string to allow a sub-routine in this location to call another and still get back to the first-->
<!-- !!	suceatinit; a flag to indicate that the initiation sub-routine was done-->
<!-- !!*********-->
<!-- !!This is the initiation sub-routine and is called by every event-->
<<if $location_var[$here][0] == 'init'>>
	<<if getvar("$succubusQW") == 5 and getvar("$scpopt") == 1 and getvar("$succhungry") < 1>>
		<p>You sense $sucself1 perk up, ready to spring forth...</p>
		<<actCLA 'Call your power and feed (Takes a lot of time)'>>
			<<set $scpopt = 0>> <<gt 'succubus' 'init'>>
		<</actCLA>>
		<<actCLA 'Try to control your urges'>>
			<p>You try to contain $sucself1...</p>
			<<gs 'willpower' 'misc' 'resist' 'easy'>>
			<<set $will_cost = $will_cost * $succublvl>>
			<<if $will_cost <= $pc.willpower>>
				<<gs 'willpower' 'pay' 'resist'>>
				<p>And you're successful, $sucself1 returns to your core.</p>
				<<actCLA 'Continue'>>
					<<set $scpopt = 2>> <<gt $sclocrt $scargrt>>
				<</actCLA>>
			<<else>>
				<br>You don't have enough willpower to control your urges.
				<p>$sucself1 continues rising toward the surface of your being.</p>
				<<set $succonfail = 1>>
				<<set $scpopt = 0>>
				<<xgt 'succubus' 'init'>>
			<</if>>
		<</actCLA>>
	<<elseif getvar("$succubusQW") == 4>>
		<<gt 'succubus' 'firsttime'>>
	<<else>>
		<<if getvar("$succonfail") != 1>>
			<p>You call $sucself1 up from its resting place</p>

		<</if>>
		It fills you completely, suffusing through your being with power...
		<font color="red"><b>and hunger</b></font>
		<<image "pc/body/succubusself.jpg">>
		<<set $suceatinit = 1>>
		<<set $succonfail = 0>>
		<<actCLA 'Continue'>>
			<<gt 'succubus' $scsubloc>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- !!*********-->
<!-- !! This is used if the called event is the first time it has happened (ie succubusQW = 4)-->
<<if $location_var[$here][0] == 'firsttime'>>
	<<if getvar("$scfwon") == 1>>
		As the exhilaration from the fight won and the fear of what could have happened fully sets in, time seems to stop.
	<<elseif getvar("$scfwon") == 0>>
		As the fear of what is about to happen to you fully sets in, time seems to stop.
	<</if>>
	You feel, from the same core of power that has been in you since you embraced the fairy''s energy, something start to...
	<p></p>
	<i>uncoil...</i>
	<p></p>
	<<if getvar("$scpopt") == 1 and getvar("$succhungry") < 1>>
		<<actCLA 'Let go...'>>
			<<set $scpopt = 0>> <<set $succubusQW = 5>> <<xgt 'succubus' 'init'>>
		<</actCLA>>
		<<actCLA 'Push it back down'>>
			<p>You try to contain $sucself1...</p>
			<<gs 'willpower' 'misc' 'resist' 'easy'>>
			<<set $will_cost = $will_cost * $succublvl>>
			<<if $will_cost <= $pc.willpower>>
				<<gs 'willpower' 'pay' 'resist'>>
				<p>And you're successful, $sucself1 returns to your core.</p>
				<<actCLA 'Continue'>>
					<<set $scpopt = 2>> <<gt $sclocrt $scargrt>>
				<</actCLA>>
			<<else>>
				<p>And you fail, $sucself1 continues rising toward the surface of your being.</p>
				<<set $succonfail = 1>>
				<<set $scpopt = 0>>
				<<set $succubusQW = 5>>
				<<xgt 'succubus' 'init'>>
			<</if>>
		<</actCLA>>
	<<else>>
		<<actCLA 'Continue'>>
			<<set $scpopt = 0>> <<set $succubusQW = 5>> <<xgt 'succubus' 'init'>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- !!*********-->
<!-- !!Succubus Level & hunger calcs-->
<<if $location_var[$here][0] == 'cikl'>>
	<<set $cheatHealth = 1>>
	<<cheatmenu['std_cure']>>
	<!-- !!	Hunger handling-->
	<<if $sucxpsnapshot >= $succubxp>>
		<<setn $succhungry += 1>>

	<</if>>
	<<set $sucxpsnapshot = $succubxp>>
	<<if getvar("$succubxp") < 0>>
		<<set $succubxp = 0>>

	<</if>>
	<!-- !!	Level handling-->
	<<if getvar("$succubxp") < 60>>
		<<set $succublvl = 1>>
		<<set $sucself1 = 'that feeling'>>
		<<set $sucstorecap = 0>>
		<<if getvar("$bimbolevel") <= 0>>
			<<set $supnatvnesh = 1>>

		<</if>>
	<<elseif getvar("$succubxp") < 150>>
		<<set $succublvl = 2>>
		<<set $sucself1 = 'the power'>>
		<<set $sucstorecap = 0>>
		<<if getvar("$bimbolevel") <= 0>>
			<<set $supnatvnesh = 3>>

		<</if>>
	<<elseif getvar("$succubxp") < 270>>
		<<set $succublvl = 3>>
		<<set $sucself1 = 'your other self'>>
		<<set $sucstorecap = 100>>
		<<if getvar("$bimbolevel") <= 0>>
			<<set $supnatvnesh = 6>>

		<</if>>
	<<else>>
		<<set $succublvl = 4>>
		<<set $sucself1 = 'your true self'>>
		<<set $sucstorecap = 200>>
		<<if getvar("$bimbolevel") <= 0>>
			<<set $supnatvnesh = 10>>

		<</if>>
	<</if>>
	<<if getvar("$sucskill") >= 2 and getvar("$succublvl") >= 2>>
		<<setn $sucstorecap += 100>>

	<</if>>
	<<if getvar("$sucskill") >= 3 and getvar("$succublvl") >= 2>>
		<<set $sucstorecap += ($sucstorecap * 2) / 10>>

	<</if>>
	<<if $stren_muta < (succublvl - 1)>>
		<<set $stren_muta = ($succublvl - 1)>>

	<</if>>
	<<if $agil_muta < (succublvl - 1)>>
		<<set $agil_muta = ($succublvl - 1)>>

	<</if>>
	<<if $vital_muta < (succublvl - 1)>>
		<<set $vital_muta = ($succublvl - 1)>>

	<</if>>
	<<if $intel_muta < (succublvl - 1)>>
		<<set $intel_muta = ($succublvl - 1)>>

	<</if>>
	<<if $react_muta < (succublvl - 1)>>
		<<set $react_muta = ($succublvl - 1)>>

	<</if>>
	<<if $sprt_muta < (succublvl - 1)>>
		<<set $sprt_muta = ($succublvl - 1)>>

	<</if>>
	<<if $chrsm_muta < (succublvl - 1)>>
		<<set $chrsm_muta = ($succublvl - 1)>>

	<</if>>
	<<if $prcptn_muta < (succublvl - 1)>>
		<<set $prcptn_muta = ($succublvl - 1)>>

	<</if>>
	<<if (getvar("$sucexcess") >= 100 and (getvar("$sucskill") < 2 or getvar("$succhungry") > -2)) or (getvar("$sucexcess") >= 100 + $sucstorecap and getvar("$sucskill") >= 2)>>
		<<if $pc.skillLevel("strength") < 250>>
			<<run $pc.skillExperienceGain('strength',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $pc.skillLevel("agility") < 250>>
			<<run $pc.skillExperienceGain('agility',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if getvar("$pc.vitality") < 250>>
			<<run $pc.skillExperienceGain('vital',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $pc.skillLevel("intelligence") < 250>>
			<<run $pc.skillExperienceGain('intelligence',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $pc.skillLevel("reaction") < 250>>
			<<run $pc.skillExperienceGain('reaction',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $pc.skillLevel("spirit") < 250>>
			<<run $pc.skillExperienceGain('spirit',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $pc.skillLevel("charisma") < 250>>
			<<run $pc.skillExperienceGain('charisma',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $pc.skillLevel("perception") < 250>>
			<<run $pc.skillExperienceGain('perception',20)>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $succhungry > (0 - 2 - succublvl)>>
			<<setn $succhungry -= 1>> <<setn $sucexcess -= 10>>

		<</if>>
		<<if $pc.pcs_skin < 100>>
			<<setn $pc.pcs_skin += 1>> <<setn $sucexcess -= 2>>

		<</if>>
		<!-- !!		This is to drive the Succubus vidage into the max appearance range-->
		<<if $pc.visualAgeDaysInverse < 720 and $pc.visualAge >= 28>>
			<<setn $pc.visualAgeDaysInverse += 4>> <<setn $sucexcess -= 4>>

		<</if>>
		<<if $pc.visualAgeDaysInverse > 0 and $pc.visualAge <= 20>>
			<<setn $pc.visualAgeDaysInverse -= 4>> <<setn $sucexcess -= 4>>

		<</if>>
		<<if $pc.visualAgeDaysInverse >= 720 and $pc.visualAge > 28>>
			<<set $pc.visualAgeDaysInverse -= 360>>
			<<set $pc.visualAge -= 1>>
		<</if>>
		<<if $pc.salo < 60>>
			<<set $pc.salo += 2>>
			<<set $sucexcess -= 10>>
		<<elseif $pc.salo > 60>>
			<<set $pc.salo -= 2>>
			<<set $sucexcess -= 10>>
		<</if>>
		<<if $sucexcess > $sucstorecap>>
			<<set $sucexcess = $sucstorecap>>

		<</if>>
	<<elseif getvar("$sucexcess") < 0 and getvar("$succhungry") < 0>>
		<<set $succhungry += 1>>
		<<if 0 - sucexcess) < (10 * succublvl>>
			<<set $sucexcess = 0>>
		<<else>>
			<<set $sucexcess += (10 * $succublvl)>>
		<</if>>
	<</if>>
	<<if getvar("$sucexcess") < 0>>
		<<setn $sucpowzeroed += 1>>

	<</if>>
	<<if getvar("$sucexcess") >= 0 and getvar("$sucpowzeroed") > 0>>
		<<setn $sucpowzeroed -= 1>>

	<</if>>
	<!-- !!	This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability-->
	<<if getvar("$sucskill") >= 4>>
		<<if $pc.pcs_vag - 2 >= 13>>
			<<set $pc.pcs_vag -= 2>>
		<<elseif $pc.pcs_vag + 2 <= 13>>
			<<set $pc.pcs_vag += 2>>
		<</if>>
		<<if $pc.pcs_ass - 2 >= 8>>
			<<set $pc.pcs_ass -= 2>>
		<<elseif $pc.pcs_ass + 2 <= 8>>
			<<set $pc.pcs_ass += 2>>
		<</if>>
	<</if>>
<</if>>
<!-- !!This is the 'city_park' and 'city_residential' call-->
<<if $location_var[$here][0] == 'RapistFight'>>
	<<set $scsubloc = $location_var[$here][0]>>
	<<if getvar("$suceatinit") == 0>>
		<<gt 'succubus' 'init'>>

	<</if>>
	<<set $suceatinit = 0>>
	 	<<image "pc/body/succubusself.jpg">>
	<p>Instinctively, you are barely aware of what causes your power to reach out and take hold of your would-be rapist's mind.</p>
	You see fear fill his eyes even as lust fills his loins, and you feel his mind fighting your hold.
	<<set $pc.horny = 100>>
	<<actCLA 'Continue'>>
		<<set $scrand = rand(0,3)>>
		<<if getvar("$fightEnding") == 8 and getvar("$scfwon") == 1>>
			<<set $scrand -= 1>>
			<<set $scfwon = 0>>
			<<set $fightEnding = 0>>
			<<if getvar("$rikudo") > 10>>
				<<setn $rikudo += 100>>

			<</if>>
			<<set $Win += 1>>
		<<elseif getvar("$fightEnding") == 8>>
			<<set $fightEnding = 0>>
			<<set $pc.pcs_sub += 1>>
			<<set $Loss += 1>>
			<<if getvar("$rikudo") > 10>>
				<<setn $rikudo -= 10>>

			<</if>>
		<<else>>
			<<set $scrand -= 1>>
			<<set $scfwon = 0>>
			<<set $fightEnding = 0>>
		<</if>>
		<<if $scrand < $succublvl>>
			<<set $scfeed = succublvl + rand(1,4)>>
			<<if getvar("$scfeed") == 2>>
				<<set $scxcum = 'twice'>>
			<<else>>
				<<set $scxcum = 'multiple times'>>
			<</if>>
			<<set $orgasm_or = 'no'>>
			<<arouse 'vaginal' 10 `['dom']`>>
			
			You quickly drag him out of sight, then rip off his pants and expose your now hungry pussy.
			<p>You force him to the ground and immediately mount him, your now hair-trigger snatch sending you into orgasm.</p>
			<p></p>
			<p>You ride him for some time, your power forcing him to cum $scxcum pulling every drop of energy out of each eruption, with the rush causing you to orgasm as he does...</p>
			<p></p>
			<<actCLA 'Continue'>>
				<<set $raw_cash = rand(50, 300)>>
				<<setinit $succubusQW['rapist_cash'] = setup.func('_difficulty','addmoneystring', raw_cash)>>
				<<set $guy += 1>>
				<<set $pc.horny = 0>>
				<<set $orgasm += 1 + $scfeed>>
				<!-- ! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting-->
				<<set $pc.willpower += $scfeed>>
				<<set $succubxp += 6>>
				<<set $sexnutrition += 30 * $scfeed>>
				<<set $sucabscum = 1>>
				<<set $time.minutes += 15 + (20 * $scfeed) / $succublvl>>
				Finally, when your instincts tell you he has nothing left to give, you get off him and fix your clothes.
				<p>As you make ready to leave, you look down upon your would-be-rapist-turned-meal as he lies there utterly exhausted and wonder if this experience will discourage him from such activities in the future...</p>
				<p>Before you leave him to contemplate such things you check his wallet and grab succubusQW['rapist_cash'] <b>₽</b> as a bonus reward.</p>
				<<set $finances.cash += $succubusQW['rapist_cash']>>
				<<actCLA 'Leave'>>
					<<gt $location>>
				<</actCLA>>
			<</actCLA>>
		<<else>>
			<<set $time.minutes += 5>>
			<p></p>
			And you feel his fear overcome his lust and your hold...
			By the time you pull yourself back to the physical world, he is long gone.
			<<actCLA 'Continue'>>
				<<gt $location>>
			<</actCLA>>
		<</if>>
	<</actCLA>>
<</if>>
<!-- !!*********-->
<!-- !!This is for feeding in PavRes-->
<<if $location_var[$here][0] == 'pavResfeed'>>
	 	<<image "locations/pavlovsk/community/dk_night.jpg">>
	The disco is in full swing, which means a lot of adolescents going to and from the community center. You find a spot down the street from the community center to lie in wait for your prey.
	You hide for a few minutes, watching groups of students pass you by as you wait for a lone victim to pounce on. You lie in wait for almost thirty minutes, thinking about the meal ahead, your hand finding its way between your legs a few times.
	<<actCLA 'Continue'>>
		<<image "pc/body/succubusself.jpg">>
		'Just as you are starting to think no one would walk by alone , a young guy in a tracksuit walks right past you into the bushes. He pulls his pants down to take a piss.
		"Wow , what do we have here?" you say from the darkness , causing him to jump.
		"Who the hell is there , " he says as he pulls up his pants and searches for you in vain.
		"Exposing yourself in public? What a pervert!"
		"Says the girl watching. Where are you?"
		"Right here , " you say as you sneak up behind him and reach around and stick a hand into his pants. You spend some time groping him and trying to find out what he is packing.
		"Find something you like?" he asks in a cocky tone. You don't know why. He doesn''t have anything that impressive down there.'
		<<actCLA 'Warm him up'>>
			<<set $finances.cash += rand(250,500)>>
			<<set $scfeed = succublvl + rand(1,4)>>
			<<set $orgasm_or = 'no'>>
			<<arouse 'vaginal' 10 `['dom']`>>
			
			<<set $guy += 1>>
			<<set $pc.horny = 0>>
			<<set $orgasm += 1 + $scfeed>>
			<!-- ! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting-->
			<<set $pc.willpower += $scfeed>>
			<<set $succubxp += 6>>
			<<set $sexnutrition += 30 * $scfeed>>
			<<set $sucabscum = 1>>
			<<set $time.minutes += 15 + (20 * $scfeed) / $succublvl>>
			<<image "shared/sex/blowjob/boybj2.jpg">>
			'"Meh , it will have to do , " you tell him. He drags you into the bushes and pushes you down to your knees. You decide to play along for now and place your lips around his cock and work your magic. Literally. You give him the kind of blowjob only a succubus like yourself can give. It isn''t long before he cums in your mouth. You swallow it , savoring the appetizer before the main course with a smile on your face. He grabs your chin and looks at you with contempt.
			"What a slut , if you enjoy cum that much , maybe I should call my friends to give you all you can eat. Would you like that , whore?"'
			<<image "pc/body/succubusself.jpg">>
			Your contented smile turns into a confident grin as you pull the guy''s legs out from under him. He tries to get up, but you push him back down with unnatural strength. You let instinct take over as you undress and lower yourself on top of his hardening member. You ride him hard, trying to milk him as fast as you can. He cums once, then twice, then three times, then more. He begs you to stop, but you aren''t listening.
			Eventually, he runs out of energy to give, and you lift yourself off of him. He lies on the ground unconscious with a pained expression on his face. Now to make him pay for that whore comment. You check his pockets for valuables and find a cellphone and some loose change.
			You pocket the money and crush the phone in your hand. Then, after making sure the coast is clear, you drag him back to the sidewalk and leave him there, unconscious with no pants for someone to find. He won''t remember this punishment or most of the night, but you sure had fun.
			<<act 'Continue'>>
				<<gt 'pav_residential'>>
			<</act>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<!-- !!*********-->
<!-- !!This is where you ask Tatiana about what you are-->
<<if $location_var[$here][0] == 'tatianaask'>>
	
	<h2>Tatiana</h2>
	<<if getvar("$sucpcinfo") == 2>>
		<<set $time.minutes += 10>>
		<<image "locations/city/citycenter/lab/event/main1.jpg">>
		You undress and lie down on the couch, and Tatiana begins to examine you.
		This time, as she uses her charms and strange devices, you actually feel her power reach into you and move around inside, poking and prodding.
		<<if getvar("$succubusQW") == 4>>
			Something in you panics at this, and the fear overtakes your mind.

		<</if>>
		<p>Distantly, you hear Tatiana mutter, "Huh, what's this?" and her power pokes $sucself1.</p>
		<<set $sclocrt = 'succubus'>> <<set $scargrt = 'tatianaask'>>
		<<set $scsubloc = 'tatianasex'>> <<set $scpopt = 1>>
		<<set $sucpcinfo = 3>>
		<<actCLA 'Continue'>>
			<<xgt 'succubus' 'init'>>
		<</actCLA>>
		$exit
	<<elseif getvar("$sucpcinfo") == 3>>
		<<image "locations/city/citycenter/lab/event/main1.jpg">>
		<<set $scpopt = 0>>
		<<if getvar("$tatisucsex") != 0>>
			Once you finish that unintended feeding and Tatiana has pulled herself back together, she says "Well, that was unexpected, go ahead and get dressed."
		<<else>>
			Looking flushed once she has finished, Tatiana says "Well, that was interesting, go ahead and get dressed."
		<</if>>
		<<set $sucpcinfo = 4>>
		<<set $sucinfoday = daystart + 10 + rand(0,7)>>
		<<act 'Get dressed'>>
			<<gt 'succubus' 'tatianaask'>>
		<</act>>
		$exit
	<</if>>
	<<set $time.minutes += 10>>
	<<image "system/1_openings/shared/npc_tatiana.jpg">>
	<<if getvar("$sucpcinfo") >= 4 and $location_var[$here][1] == 0>>
		<p>"You are a Succubus. Now, the Succubae are not demons, that impression is a byproduct of the masking spell; they are instead a type of Fae, like that Fairy you told me about, and they are native to this plane of existence. As Fae, Succubae have nothing to do with "souls", but they do feed on the energy released during sex. The most efficient means of getting this energy is semen taken internally, but a lot is gained by lesbian orgasm if the Succubus is in sexual contact with the woman as she cums."</p>
		<<if getvar("$tatisucsex") != 0>>
			She then gives you a coy smile and says, "I can tell you that sex with a willing Succubus is an <i>amazing experience</i>."
		<<else>>
			She then gives you a searching look as she says, "I'm told that sex with a willing Succubus is an amazing experience."
		<</if>>
		<p>"Succubae only reproduce by converting normal humans, and by "normal", I mean non-mages. Whatever that Fairy did, it cannot be the normal Succubus conversion, but I don't know <i>what</i> the normal method is.</p>
		"They can and should eat normal food as they use more energy just staying alive than a human, but they need sexual energy to survive as well, so you can't just eat more and not have sex.
		<<if getvar("$sucskill") < 1>>
			"And I will be able to teach you how to tell what your energy levels are."
		<</if>>
	<</if>>
	<<if getvar("$sucpcinfo") >= 5 and ($location_var[$here][1] == 0 or $location_var[$here][1] == 1)>>
		<<set $time.minutes += 5>>
		"Succubae can exceed normal human limitations in a way similar to the way Gustav does, but unlike Gustav, since they are Fae, the masking spell ignores them.
		<p>"They automatically store sexual energy in excess of what they need to survive internally, and when this energy builds up enough, let's call that point 100 units, their bodies will automatically use this energy to improve themselves; increasing their physical and mental abilities, keeping themselves young looking, and providing a reserve in case they can't find food.</p>
		"While lower level Succubae lose any energy not used for improvements, higher level Succubae can store this unused energy in excess of that 100 unit mark.
		<<if getvar("$sucskill") >= 2>>
			"As you know, they can learn to store energy before their body uses it as well as increase their storage capacity, as long as they have some reserves."
		<<else>>
			<p>"And," she adds with a grin, "I can teach you to store energy before your body uses it and to increase your storage capacity, as long as you have some reserves! Just make sure your reserves are full before we try to teach you."</p>
		<</if>>
	<</if>>
	<<if getvar("$sucpcinfo") >= 6 and ($location_var[$here][1] == 0 or $location_var[$here][1] == 2)>>
		<<if getvar("$sucskill") >= 3>>
			"They also learned, as you have, to be more efficient with the sexual energy, increasing the amount of energy they have available for survival and storage."
		<<else>>
			<<set $time.minutes += 5>>
			<p>"They have found, after what she described as a "multiday sex bender", that a Succubus can learn to be more efficient with the energy, increasing the amount of energy they have available for survival and storage. She then worked out how they did it and passed that to me. In order for this training to not take several days of non-stop sex, I'll need to buy several components worth 5000 <b>₽</b> and 7 days to build up my own power reserves, and you will need to have at least 3 days of reserve and at least 100 units of stored energy.</p>
			"Even with these preparations, the training is still going to take 8 to 10 hours of... Non... Stop... Sex..."
			<<if getvar("$tatisucsex") <= 0>>
				She says those last three words in a tone that is equal parts anticipation and trepidation, and the look in her eyes mirror this.
			<<else>>
				She says those last three words in a tone that is pure seduction with a look that is equal parts anticipation and lust.
				<!-- !!				Hopefully can add an arousal call here-->
			<</if>>
		<</if>>
	<</if>>
	<<if getvar("$sucpcinfo") >= 7 and ($location_var[$here][1] == 0 or $location_var[$here][1] == 3)>>
		<<set $time.minutes += 5>>
		<p>"Succubae are somewhat territorial when hungry, but when sated, the impulse is weak enough to suppress easily. They seem to have established neutral territories in the flesh-pots of the world, like Amsterdam, Morocco, and Las Vegas. Places like that are not claimed by one Succubus, instead groups of them have made their homes there.</p>
		"A Succubae''s body can learn to expend a bit of power to accommodate nearly any size of... implement." She gives you a smug grin with that.
		<<if getvar("$sucskill") < 4>>
			And I can teach you, just go get the biggest dildo they sell at that shop down the street, then bring it and 100 units of stored energy back here.

		<</if>>
	<</if>>
	<<if $location_var[$here][1] == 0>>
		"They likely have other abilities and weaknesses, but the few Succubae I have encountered were not that willing to part with information, though I have put out requests for more information from my contacts.
		"As far as I know, you are the only Succubus in the region."
		<<actCLA 'Ask if she knows more'>>
			You ask her if she knows anything else.
			She replies, "No, that's all I know."
			<<act 'Continue'>>
				<<gt 'tatiana_lab' 'Tatiana'>>
			<</act>>
		<</actCLA>>
	<</if>>
	<<act 'Finish'>>
		<<gt 'tatiana_lab' 'Tatiana'>>
	<</act>>
<</if>>
<!-- !!**********-->
<!-- !!This is sex with Tatiana-->
<<if $location_var[$here][0] == 'tatianasex'>>
	<<set $scsubloc = 'tatianasex'>>
	<<if getvar("$suceatinit") == 0>>
		<<gt 'succubus' 'init'>>

	<</if>>
	<<set $suceatinit = 0>>
	 	<<image "pc/body/succubusself.jpg">>
	<<if getvar("$sucpcinfo") < 4>>
		<<set $tatisucsex -= 2>>
		<p>Your power reaches through the connection to Tatiana, enflaming her lust even as $sucself1 grabs ahold of her power.</p>
		<p>At this point, you gain some control back and cause her power to cycle through you, as $sucself1 cycles through her making her passion and yours move together.</p>
		Tatiana quickly strips down and moves between your legs...
	<<else>>
		<p>You take control of $sucself1 and, as you softly kiss her, $sucself1 gently flows into Tatiana even as you coax her power to flow into you.</p>
		<p>With her power and $sucself1 fully intertwined, you set up a gently flowing cycle, making her passion and yours move together.</p>
		Tatiana then kisses her way down your body, taking up position between your legs.
	<</if>>
	<<actCLA 'Continue'>>
		 		<<image "characters/city/tatiana/sex/karinsucsex1.jpg">>
		As she licks you out, she feels the same things you do until you both have your first orgasm.
		You then move her around into a "69" position.
		<<actCLA 'Continue'>>
			 			<<image "characters/city/tatiana/sex/karinsucsex2.jpg">>
			You pleasure each other for some time, orgasming together, and then at some point you flip over.
			<<actCLA 'Continue'>>
				<<if getvar("$sucpcinfo") >= 6 and getvar("$sucskill") < 3 and getvar("$sctrainprep") == 1>>
					<<gt 'succubus' 'training3sex'>>

				<</if>>
				 				<<image "characters/city/tatiana/sex/karinsucsex3.jpg">>
				You continue this way for some time, flipping back and forth, having multiple simultaneous orgasms until you sense her body is tiring even though her power level is a bit higher than when you two started.
				<<actCLA 'Finish'>>
					<<set $scfeed = 2 + succublvl + rand(1,4)>>
					<<set $lesbian += 1>>
					<<if getvar("$tatianaSex") == 0>>
						<<set $tatianaSex = 1>> <<setn $girl += 1>>

					<</if>>
					<<set $orgasm_or = 'no'>>
					<<arouse 'cuni' 20 >>
					
					<<set $pc.horny = 0>>
					<<set $orgasm += $scfeed>>
					<!-- ! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting-->
					<<set $pc.willpower += $scfeed>>
					<<set $sexnutrition += 25 * $scfeed>>
					<<set $suclezsex = $lesbian>>
					<<set $succubxp += 6>>
					<<set $sucabslez = 1>>
					<<set $time.minutes += 20 + (20 * $scfeed) / $succublvl>>
					<<set $tatisucsexday = $time.daystart + 1 + $scfeed / 3>>
					<<set $scfeed to null>>
					<<if getvar("$sucpcinfo") < 4>>
						<<gt 'succubus' 'tatianaask'>>

					<</if>>
					<<set $tatisucsex += 1>>
					<<if getvar("$tatisucsex") == 0>>
						<<set $tatisucsex = 1>>

					<</if>>
					<p>As you both put yourselves back together, Tatiana says, "That was intense, thank you!"</p>
					<<act 'Continue'>>
						<<gt 'tatiana_lab' 'Tatiana'>>
					<</act>>
				<</actCLA>>
			<</actCLA>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<!-- !!**********-->
<!-- !!Trainging sex ending-->
<<if $location_var[$here][0] == 'training3sex'>>
	 	<<image "characters/city/tatiana/sex/karinsucsex3.jpg">>
	You continue this way for hours, changing position occasionally, and the whole time you both are causing the massive amount of energy between you to cycle faster and faster until it almost feels as if you and Tatiana are sharing one body that is having a continuous orgasm.
	You lose track of time and are only barely able to perform the tasks Tatiana said you needed to do.
	Eventually, you sense that the excess energy is depleted, your energy handling channels are significantly improved, and Tatiana, while exhausted, has had a major boost to her own power.
	<<actCLA 'Finish'>>
		<<set $sucskill = 3>>
		<<set $sctrainprep to null>>
		<<set $lesbian += 1>>
		<<set $suclezsex = $lesbian>>
		<<if getvar("$tatianaSex") == 0>>
			<<set $tatianaSex = 1>> <<setn $girl += 1>>

		<</if>>
		<<set $orgasm_or = 'no'>>
		<<arouse 'cuni' 15 `[* `rand(1,8)` 'dom']`>>
		<<arouse 'cuni_give' -15 `['dom']`>>
		
		<<set $tatisucsex += 1>>
		<<if getvar("$tatisucsex") == 0>>
			<<set $tatisucsex = 1>>

		<</if>>
		<!-- ! Seems appropriate. Potentially worth revisiting-->
		<<set $pc.willpower = $pc.willpowermax>>
		<<set $sucexcess -= 100>>
		<<set $succhungry += 1>>
		<<set $succubxp += 10>>
		<<set $tatisucsexday = daystart + rand(5,10)>>
		<<set $pc.pcs_hairbsh = 0>>
		<<if $pc.pcs_makeup > 1>>
			<<set $pc.pcs_makeup = 0>>

		<</if>>
		<<set $pc.pcs_energy = 100>> <<set $pc.pcs_sleep = 40>>
		<p>As you both put yourselves back together, Tatiana says, "Wow... just wow! That was... indescribable! I have never felt <i>anything</i> like that!" She gives you a gentle kiss before adding, "Thank You!"</p>
		She then lies down on the couch and immediately drops off to sleep. You toss the blanket over her and prepare to leave.
		<<act 'Leave'>>
			<<gt 'city_center'>>
		<</act>>
	<</actCLA>>
<</if>>
<!-- !!**********-->
<!-- !!This is the computer search-->
<<if $location_var[$here][0] == 'kompresearch'>>
	<<set $time.minutes += 10 * rand(3,6)>>
	<<set $sucpcinfo = 1>>
	<<image "pc/items/accessories/computer/succresrch.jpg">>
	Other than a host of internet stories, the thing you find that matches closest to what you have been feeling is a succubus, a demonic creature that destroys or corrupts men''s souls through sex.
	However, you don't feel like you have been corrupting anything, and the match isn''t that great...
	Maybe you should go ask Tatiana...
	<<act 'Continue'>>
		<<gt 'computer_browse'>>
	<</act>>
<</if>>
<!-- !!**********-->
<!-- !!This is the start of the Succubus "Sleepwalking" code-->
<<if $location_var[$here][0] == 'sucwalkinginit'>>
	<!-- !!This checks for a valid location and sets the zone-->
	<!-- !!Zone 1;-->
	<!-- !!'bedr' = Apartment on St. Petersburg Residential street-->
	<!-- !!'nichBedroomServant' = Tanya''s apartment downtown-->
	<!-- !!'dom_gor' = Hostel downtown-->
	<!-- !!'uni_dorm' = Dorm at the university-->
	<!-- !!'city_hous_res_bedr'-->
	<!-- !!Zone 2;-->
	<!-- !!'bedrPar' = Parent''s apartment in Pavlovsk-->
	<!-- !!'HotelRoom' = Hotel next to train station in Pavlovsk-->
	<!-- !!Zone 3; 'ybedroom' = Mansion outside city-->
	<!-- !!Zone 4; 'bedr2x' = Apartment in "Old Town" (aka Pushkin)-->
	<!-- !!Zone 5; 'gadhouse' = Grandmother''s house in Gadukino-->
	<<if $loc == 'bedr' or $loc == 'nichBedroomServant' or $loc == 'dom_gor' or $loc == 'uni_dorm' or $loc == 'city_house_res_bedr'>>
		<<set $sucslpzone = 1>>
	<<elseif $loc == 'bedrPar' or $loc == 'HotelRoom'>>
		<<set $sucslpzone = 2>>
	<<elseif $loc_arg == 'ybedroom'>>
		<<set $sucslpzone = 3>>
	<<elseif $loc == 'bedr2x'>>
		<<set $sucslpzone = 4>>
	<<elseif $loc == 'gadhouse'>>
		<<set $sucslpzone = 5>>
	<<else>>
		$exit
	<</if>>
	<!-- !!Vibrator and Panty handling (pun intended)-->
	<<if getvar("$succublvl") <= 2>>
		<<if $wardrobe.isWearingPanties>>
			<<gs 'underwear' 'remove'>>

		<</if>>
	<<else>>
		<<if getvar("$bedPanty") == 1>>
			<<gs 'underwear' 'wear'>>
		<<elseif getvar("$bedPanty") == 2>>
			<<gs 'underwear' 'remove'>>
		<</if>>
	<</if>>
	<<if getvar("$pc.analplugin") == 1 and getvar("$bedAnal") == 1>>
		<<set $pc.analplugin = 0>>

	<</if>>
	<<if $pc.vibratorin == 1 and getvar("$bedVibrator") == 1>>
		<<set $pc.vibratorin = 0>>

	<</if>>
	<!-- !!This is the simple method for the base level succubus-->
	<<if getvar("$succublvl") == 1 and $lastwornclothingtype != 'nude'>>
		<<gs 'clothing' 'wear_last_worn'>>
		<<gt 'succubus' 'sucwalkinggo'>>
	<</if>>
	<!-- !!This is to put all owned and wearable clothing in 2 large arrays-->
	<<set $x = 0>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :looperoto_dress'>>
	<<if getvar("$eroto_dress["+$i+"]") == 1 and getvar("$eroto_dress_s["+$i+"]") == 0 and getvar("$eroto_dress_h["+$i+"]") > 0 and $eroto_dress_b[$i] >= (pcs_hips - 8) and $eroto_dress_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'eroto_dress'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 140>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump looperoto_dress'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :looperoto_outfits'>>
	<<if getvar("$eroto_outfits["+$i+"]") == 1 and getvar("$eroto_outfits_s["+$i+"]") == 0 and getvar("$eroto_outfits_h["+$i+"]") > 0 and $eroto_outfits_b[$i] >= (pcs_hips - 8) and $eroto_outfits_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'eroto_outfits'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 100>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump looperoto_outfits'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopsalacious_outfits'>>
	<<if getvar("$salacious_outfits["+$i+"]") == 1 and getvar("$salacious_outfits_s["+$i+"]") == 0 and getvar("$salacious_outfits_h["+$i+"]") > 0 and $salacious_outfits_b[$i] >= (pcs_hips - 8) and $salacious_outfits_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'salacious_outfits'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 20>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopsalacious_outfits'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopsalacious_dress'>>
	<<if getvar("$salacious_dress["+$i+"]") == 1 and getvar("$salacious_dress_s["+$i+"]") == 0 and getvar("$salacious_dress_h["+$i+"]") > 0 and $salacious_dress_b[$i] >= (pcs_hips - 8) and $salacious_dress_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'salacious_dress'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 60>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopsalacious_dress'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopfashionista'>>
	<<gs 'clothing_attributes' 'fashionista' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$fashionista["+$i+"]") == 1 and getvar("$fashionista_s["+$i+"]") == 0 and getvar("$fashionista_h["+$i+"]") > 0 and $fashionista_b[$i] >= (pcs_hips - 8) and $fashionista_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'fashionista'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$fashionista["+$i+"]") == 1 and getvar("$fashionista_s["+$i+"]") == 0 and getvar("$fashionista_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'fashionista'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 200>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopfashionista'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopcats_dress'>>
	<<gs 'clothing_attributes' 'cats_dress' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$cats_dress["+$i+"]") == 1 and getvar("$cats_dress_s["+$i+"]") == 0 and getvar("$cats_dress_h["+$i+"]") > 0 and $cats_dress_b[$i] >= (pcs_hips - 8) and $cats_dress_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'cats_dress'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$cats_dress["+$i+"]") == 1 and getvar("$cats_dress_s["+$i+"]") == 0 and getvar("$cats_dress_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'cats_dress'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 220>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopcats_dress'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopcats_outfits'>>
	<<gs 'clothing_attributes' 'cats_outfits' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$cats_outfits["+$i+"]") == 1 and getvar("$cats_outfits_s["+$i+"]") == 0 and getvar("$cats_outfits_h["+$i+"]") > 0 and $cats_outfits_b[$i] >= (pcs_hips - 8) and $cats_outfits_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'cats_outfits'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$cats_outfits["+$i+"]") == 1 and getvar("$cats_outfits_s["+$i+"]") == 0 and getvar("$cats_outfits_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'cats_outfits'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 200>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopcats_outfits'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopcoco_dress'>>
	<<gs 'clothing_attributes' 'coco_dress' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$coco_dress["+$i+"]") == 1 and getvar("$coco_dress_s["+$i+"]") == 0 and getvar("$coco_dress_h["+$i+"]") > 0 and $coco_dress_b[$i] >= (pcs_hips - 8) and $coco_dress_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'coco_dress'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$coco_dress["+$i+"]") == 1 and getvar("$coco_dress_s["+$i+"]") == 0 and getvar("$coco_dress_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'coco_dress'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 300>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopcoco_dress'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopcoco_outfit'>>
	<<gs 'clothing_attributes' 'coco_outfits' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$coco_outfits["+$i+"]") == 1 and getvar("$coco_outfits_s["+$i+"]") == 0 and getvar("$coco_outfits_h["+$i+"]") > 0 and $coco_outfits_b[$i] >= (pcs_hips - 8) and $coco_outfits_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'coco_outfits'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$coco_outfits["+$i+"]") == 1 and getvar("$coco_outfits_s["+$i+"]") == 0 and getvar("$coco_outfits_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'coco_outfits'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 160>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopcoco_outfit'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopflamingos_outfits'>>
	<<gs 'clothing_attributes' 'flamingos_outfits' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$flamingos_outfits["+$i+"]") == 1 and getvar("$flamingos_outfits_s["+$i+"]") == 0 and getvar("$flamingos_outfits_h["+$i+"]") > 0 and $flamingos_outfits_b[$i] >= (pcs_hips - 8) and $flamingos_outfits_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'flamingos_outfits'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$flamingos_outfits["+$i+"]") == 1 and getvar("$flamingos_outfits_s["+$i+"]") == 0 and getvar("$flamingos_outfits_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'flamingos_outfits'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 160>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopflamingos_outfits'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopflamingos_dress'>>
	<<gs 'clothing_attributes' 'flamingos_dress' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$flamingos_dress["+$i+"]") == 1 and getvar("$flamingos_dress_s["+$i+"]") == 0 and getvar("$flamingos_dress_h["+$i+"]") > 0 and $flamingos_dress_b[$i] >= (pcs_hips - 8) and $flamingos_dress_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'flamingos_dress'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$flamingos_dress["+$i+"]") == 1 and getvar("$flamingos_dress_s["+$i+"]") == 0 and getvar("$flamingos_dress_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'flamingos_dress'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 180>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopflamingos_dress'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopgm_outfits'>>
	<<gs 'clothing_attributes' 'gm_outfits' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$gm_outfits["+$i+"]") == 1 and getvar("$gm_outfits_s["+$i+"]") == 0 and getvar("$gm_outfits_h["+$i+"]") > 0 and $gm_outfits_b[$i] >= (pcs_hips - 8) and $gm_outfits_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'gm_outfits'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$gm_outfits["+$i+"]") == 1 and getvar("$gm_outfits_s["+$i+"]") == 0 and getvar("$gm_outfits_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'gm_outfits'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 200>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopgm_outfits'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopgm_dress'>>
	<<gs 'clothing_attributes' 'gm_dress' $i>>
	<<if getvar("$CloStyle") != 5>>
		<<if getvar("$gm_dress["+$i+"]") == 1 and getvar("$gm_dress_s["+$i+"]") == 0 and getvar("$gm_dress_h["+$i+"]") > 0 and $gm_dress_b[$i] >= (pcs_hips - 8) and $gm_dress_b[$i] <= (pcs_hips + 8)>>
			<<setinit $succlolistn[$x] = 'gm_dress'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
		<</if>>
	<<else>>
		<<if getvar("$gm_dress["+$i+"]") == 1 and getvar("$gm_dress_s["+$i+"]") == 0 and getvar("$gm_dress_h["+$i+"]") > 0>>
			<<setinit $succlolistn[$x] = 'gm_dress'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

		<</if>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 350>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopgm_dress'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopoffice'>>
	<<if getvar("$gm_office["+$i+"]") == 1 and getvar("$gm_office_s["+$i+"]") == 0 and getvar("$gm_office_h["+$i+"]") > 0 and $gm_office_b[$i] >= (pcs_hips - 8) and $gm_office_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'gm_office'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 40>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopoffice'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopschool'>>
	<<if getvar("$gm_school["+$i+"]") == 1 and getvar("$gm_school_s["+$i+"]") == 0 and getvar("$gm_school_h["+$i+"]") > 0 and $gm_school_b[$i] >= (pcs_hips - 8) and $gm_school_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'gm_school'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") == 6>>
		<<set $i = 7>>

	<</if>>
	<<if getvar("$i") <= 60>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopschool'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopdanilovich'>>
	<<if getvar("$danilovich_outfits["+$i+"]") == 1 and getvar("$danilovich_outfits_s["+$i+"]") == 0 and getvar("$danilovich_outfits_h["+$i+"]") > 0>>
		<<setinit $succlolistn[$x] = 'danilovich_outfits'>> <<setinit $succlolisti[$x] = $i>> <<setn $x += 1>>

	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 160>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopdanilovich'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopmoncheri_gown'>>
	<<if getvar("$moncheri_gown["+$i+"]") == 1 and getvar("$moncheri_gown_s["+$i+"]") == 0 and getvar("$moncheri_gown_h["+$i+"]") > 0 and $moncheri_gown_b[$i] >= (pcs_hips - 8) and $moncheri_gown_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'moncheri_gown'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 100>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopmoncheri_gown'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopmoncheri_dress'>>
	<<if getvar("$moncheri_dress["+$i+"]") == 1 and getvar("$moncheri_dress_s["+$i+"]") == 0 and getvar("$moncheri_dress_h["+$i+"]") > 0 and $moncheri_dress_b[$i] >= (pcs_hips - 8) and $moncheri_dress_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'moncheri_dress'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 100>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopmoncheri_dress'>>

	<</if>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopgm_server'>>
	<<if getvar("$gm_server["+$i+"]") == 1 and getvar("$gm_server_s["+$i+"]") == 0 and getvar("$gm_server_h["+$i+"]") > 0 and $gm_server_b[$i] >= (pcs_hips - 8) and $gm_server_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'gm_server'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 30>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopgm_server'>>

	<</if>>
	<<set $i to null>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopgm_maid'>>
	<<if getvar("$gm_maid["+$i+"]") == 1 and getvar("$gm_maid_s["+$i+"]") == 0 and getvar("$gm_maid_h["+$i+"]") > 0 and $gm_maid_b[$i] >= (pcs_hips - 8) and $gm_maid_b[$i] <= (pcs_hips + 8)>>
		<<setinit $succlolistn[$x] = 'gm_maid'>> <<set $succlolisti[$x] = $i>> <<set $x += 1>>
	<</if>>
	<<set $i += 1>>
	<<if getvar("$i") <= 40>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopgm_maid'>>

	<</if>>
	<<set $i to null>>
	<<set $x -= 1>>
	<<if getvar("$succublvl") <= 2>>
		<!-- !!	This picks any outfit at random-->
		<<warn 'JUMP MARKER ENCOUNTERED: :oops'>>
		<<set $clopickrand = rand(0,x)>>
		<<if $succlolistn[$clopickrand] == ''>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump oops'>>

		<</if>>
		<<run $wardrobe.wear_clothes_legacy('clothes',$succlolistn[$clopickrand],$succlolisti[$clopickrand])>>
		<!-- FAILED TO CONVERT
			dynamic $succlolistn[clopickrand] + 'W[<<succlolisti[clopickrand]>>] = 1'
		-----
			<<set dynamic $succlolistn[$clopickrand] + 'W[$ERROR: FAILED TO CONVERT LITERAL: """<<succlolisti[$clopickrand]>>"""] = 1'>>

		-->
		<<warn "CONVERSION ERROR 1085fa2ba45c4a89a62d9f1a5869dc5e">>
		<<gt 'succubus' 'sucwalkinggo'>>
	<<else>>
		<!-- !!	This picks a random outfit by "looks"-->
		<<setinit $succlocat[0] = 'eroto_dress'>>
		<<setinit $succlocat[1] = 'eroto_outfits'>>
		<<setinit $succlocat[2] = 'salacious_outfit'>>
		<<setinit $succlocat[3] = 'salacious_dress'>>
		<<setinit $succlocat[4] = 'fashionista'>>
		<<setinit $succlocat[5] = 'cats_dress'>>
		<<setinit $succlocat[6] = 'cats_outfits'>>
		<<setinit $succlocat[7] = 'coco_dress'>>
		<<setinit $succlocat[8] = 'coco_outfits'>>
		<<setinit $succlocat[9] = 'flamingos_dress'>>
		<<setinit $succlocat[10] = 'flamingos_outfits'>>
		<<setinit $succlocat[11] = 'gm_outfits'>>
		<<setinit $succlocat[12] = 'gm_dress'>>
		<<setinit $succlocat[13] = 'gm_office'>>
		<<setinit $succlocat[14] = 'gm_school'>>
		<<setinit $succlocat[15] = 'danilovich_outfits'>>
		<<setinit $succlocat[16] = 'moncheri_gown'>>
		<<setinit $succlocat[17] = 'moncheri_dress'>>
		<<setinit $succlocat[18] = 'gm_server'>>
		<<setinit $succlocat[19] = 'gm_maid'>>
		<<set $scbimbochk = 1>>
		<<set $y = 0>> <<set $z = 0>>
		<<set $scclocatcnt = 0>>
		<<warn 'JUMP MARKER ENCOUNTERED: :randpoploop'>>
		<<if getvar("$scbimbochk") == 1 and $succlocat[$scclocatcnt] == $succlolistn[$y]>>
			<<gs 'clothing_attributes' $succlolistn[$y] $succlolisti[$y]>>
			<<if getvar("$CloBimbo") == 1>>
				<<setinit $succlorandn[$z] = $succlolistn[$y]>> <<setinit $succlorandi[$z] = $succlolisti[$y]>> <<setn $z += 1>>

			<</if>>
		<<elseif $succlocat[$scclocatcnt] == $succlolistn[$y]>>
			<<setinit $succlorandn[$z] = $succlolistn[$y]>> <<set $succlorandi[$z] = $succlolisti[$y]>> <<set $z += 1>>
		<</if>>
		<<set $y += 1>>
		<<if $y <= $x>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump randpoploop'>>

		<</if>>
		<<set $scclocatcnt += 1>> <<set $y = 0>>
		<<if getvar("$scbimbochk") == 1>>
			<<if getvar("$scclocatcnt") <= 3>>
				<<warn 'JUMP COMMAND ENCOUNTERED: jump randpoploop'>>

			<</if>>
			<<if getvar("$z") < 1 or getvar("$scpckrnd") > 0>>
				<<if getvar("$z") < 1>>
					<<set $scpckrnd = 1>>

				<</if>>
				<<if getvar("$scclocatcnt") <= 6>>
					<<warn 'JUMP COMMAND ENCOUNTERED: jump randpoploop'>>

				<</if>>
			<</if>>
		<<else>>
			<<if getvar("$scclocatcnt") <= 3>>
				<<warn 'JUMP COMMAND ENCOUNTERED: jump randpoploop'>>

			<</if>>
			<<if getvar("$z") < 1 or getvar("$scpckrnd") > 1>>
				<<if getvar("$z") < 1>>
					<<set $scpckrnd = 2>>

				<</if>>
				<<if getvar("$scclocatcnt") <= 6>>
					<<warn 'JUMP COMMAND ENCOUNTERED: jump randpoploop'>>

				<</if>>
				<<if getvar("$z") < 1 or getvar("$scpckrnd") > 2>>
					<<if getvar("$z") < 1>>
						<<set $scpckrnd = 3>>

					<</if>>
					<<if $scclocatcnt <= arrsize('$succlocat')>>
						<<warn 'JUMP COMMAND ENCOUNTERED: jump randpoploop'>>

					<</if>>
				<</if>>
			<</if>>
		<</if>>
		<<if getvar("$z") < 1 and getvar("$scbimbochk") == 1>>
			<<set $scclocatcnt = 0>> <<set $scbimbochk = 0>>

		<</if>>
		<<set $z -= 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :oops2'>>
		<<set $clopickrand = rand(0,z)>>
		<<if $succlorandn[$clopickrand] == ''>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump oops2'>>

		<</if>>
		<<run $wardrobe.wear_clothes_legacy('clothes',$succlorandn[$clopickrand],$succlorandi[$clopickrand])>>
		<!-- FAILED TO CONVERT
			dynamic $succlorandn[clopickrand] + 'W[<<succlorandi[clopickrand]>>] = 1'
		-----
			<<set dynamic $succlorandn[$clopickrand] + 'W[$ERROR: FAILED TO CONVERT LITERAL: """<<succlorandi[$clopickrand]>>"""] = 1'>>

		-->
		<<warn "CONVERSION ERROR 03e076c04480315fd8542b968bdcd68f">>
		<!-- !!		This covers a high level succubus doing complex activities-->
		<<if getvar("$succublvl") >= 4>>
			<<if $pc.pcs_hairbsh < 1>>
				<<set $pc.pcs_hairbsh = 1>>

			<</if>>
			<<if $inventory.get("lipbalm") > 0 and $pc.pcs_lipbalm <= 0>>
				<<run $inventory.dec('lipbalm',1)>>
				<<set $lipkoef += rand(0, 1)>>
				<<if getvar("$lipkoef") > 50>>
					<<set $lipkoef = 0>>
					<<set $pc.lip_size += 1>>
				<</if>>
				<<set $pc.pcs_lipbalm += 8>>
			<</if>>
			<<if $pc.pcs_makeup <= 1 and $inventory.get("cosmetics") > 0>>
				<<set $pc.pcs_makeup = 4>>
				<<if $inventory.get("cosmetics") < 3 and $pc.pcs_makeup == 4>>
					<<set $pc.pcs_makeup = 3>>

				<</if>>
				<<if $inventory.get("cosmetics") < 2 and $pc.pcs_makeup == 3>>
					<<set $pc.pcs_makeup = 2>>

				<</if>>
				<<if $inventory.get("cosmetics") < 1 and $pc.pcs_makeup != 1>>
					<<set $pc.pcs_makeup = 1>>
				<<else>>
					<<if $pc.pcs_makeup == 2>>
						<<setn $inventory.get("cosmetics") -= 1>>

					<</if>>
					<<if $pc.pcs_makeup == 3>>
						<<setn $inventory.get("cosmetics") -= 2>>

					<</if>>
					<<if $pc.pcs_makeup == 4>>
						<<setn $pc.visualAgeDaysInverse -= 1>> <<setn $inventory.get("cosmetics") -= 3>>

					<</if>>
				<</if>>
			<</if>>
			<<gt 'succubus' 'sucwalkinggo'>>
		<<else>>
			<<gt 'succubus' 'sucwalkinggo'>>
		<</if>>
	<</if>>
<</if>>
<!-- !!This sets the results of the "sucwalking" event and picks the final location-->
<<if $location_var[$here][0] == 'sucwalkinggo'>>
	<!-- !!Here is what the PC sees-->
	<<image "shared/home/bedroom/dream/sucrandream3.jpg">>
	<<if getvar("$succublvl") < 3>>
		<<set $sucselftmp = 'a personification of $sucself1 in your core'>>
	<<else>>
		<<set $sucselftmp = $sucself1>>
	<</if>>
	<p>You dream that you are arguing with $sucselftmp.</p>
	You don't know what it's about, but you think you <b><i>lost</i></b>...
	<<set $sucselftmp to null>>
	<!-- !!This is the results, time, and sleep variable clearing section-->
	<<set $sucencntrand = (1 + $succublvl)/2 + rand(0,succublvl)>>
	<<set $scfeed = ($succublvl * $sucencntrand) + rand(1,(4 * $sucencntrand))>>
	<<set $time.minutes += 180 + (($scfeed * 10) / $succublvl)>>
	<<set $pc.pcs_health += 5 * (360 + (($scfeed * 10) / $succublvl))>>
	<<set $pc.pcs_sleep += 15 * ((360 + (($scfeed * 10) / $succublvl)) / 60)>>
	<<setinit $pcs_condition['lack_of_sleep'] = 0>>
	<<set $pc.isSleeping= 0>>
	<<set $pc.horny = 0>>
	<<set $orgasm += $scfeed>>
	<!-- ! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting-->
	<<set $pc.willpower += $scfeed>>
	<<set $succubxp += 3 * $sucencntrand>>
	<<set $sexnutrition += 25 * $scfeed>>
	<<set $scwalkmon = rand (50,(100 * $sucencntrand))>>
	<<set $finances.cash += $scwalkmon>>
	<<set $sucwalkday = daystart + sucencntrand + rand(0,5)>>
	<<set $sctemp = rand(1,10)>>
	<<if getvar("$sucencntrand") > 1>>
		<<if getvar("$sctemp") <= 6>>
			<<set $sucabscum = 1>>
		<<elseif getvar("$sctemp") == 7>>
			<<set $sucabslez = 1>>
		<<else>>
			<<set $sucabslez = 1>> <<set $sucabscum = 1>>
		<</if>>
	<<else>>
		<<if getvar("$sctemp") <= 7>>
			<<set $sucabscum = 1>>
		<<else>>
			<<set $sucabslez = 1>>
		<</if>>
	<</if>>
	<<set $sctemp to null>>
	<!-- !!This picks the location where you end up and how you got there-->
	<<if getvar("$succublvl") >= 4 and getvar("$car") > 0 and getvar("$wrek") != 1>>
		<<if getvar("$benz") <= 4>>
			<<if $finances.cash < (30 * (50 - benz))>>
				<<if getvar("$kanistra") > 0>>
					<<set $benz += 5>> <<set $kanistra -= 1>>
				<<else>>
					<<set $finances.cash = 0>>
					<<set $scwalkmon = 0>>
					<<set $benz += rand(10,50)>>
				<</if>>
			<<else>>
				<<set $finances.cash -= (30 * (50 - $benz))>>
				<<set $benz = 50>>
			<</if>>
		<</if>>
		<<set $sctemp = rand(1,11)>>
		<<if getvar("$sctemp") == 1>>
			<<set $cardrive = 1>>

		<</if>>
		<<if getvar("$sctemp") == 2>>
			<<set $cardrive = 2>>

		<</if>>
		<<if getvar("$sctemp") == 3>>
			<<set $cardrive = 3>>

		<</if>>
		<<if getvar("$sctemp") == 4>>
			<<set $cardrive = 19>>

		<</if>>
		<<if getvar("$sctemp") == 5>>
			<<set $cardrive = 4>>

		<</if>>
		<<if getvar("$sctemp") == 6>>
			<<set $cardrive = 5>>

		<</if>>
		<<if getvar("$sctemp") == 7>>
			<<set $cardrive = 13>>

		<</if>>
		<<if getvar("$sctemp") == 8>>
			<<set $cardrive = 14>>

		<</if>>
		<<if getvar("$sctemp") == 9>>
			<<set $cardrive = 20>>

		<</if>>
		<<if getvar("$sctemp") == 10>>
			<<set $cardrive = 23>>

		<</if>>
		<<if getvar("$sctemp") == 11>>
			<<set $cardrive = 24>>

		<</if>>
		<<set $sctemp to null>>
		<<set $benz -= rand(1,4)>>
		<<set $teh -= rand(3,6)>>
		<!-- !!		This forces the dynmanic at the top of carF to load in case it had not-->
		<<gs 'carF'>>
		<<set $sccarflag = 1>>
	<<else>>
		<<set $sctemp = rand(1,5)>>
		<<if getvar("$sucslpzone") == 1>>
			<<if getvar("$sctemp") == 1>>
				<<set $sucgoloc = 'city_industrial'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 2>>
				<<set $sucgoloc = 'city_residential'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 3>>
				<<set $sucgoloc = 'city_center'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 4>>
				<<set $sucgoloc = 'city_park'>> <<set $sucgometka = 'start'>>

			<</if>>
			<<if getvar("$sctemp") == 5>>
				<<set $sucgoloc = 'city_lake'>> <<set $sucgometka = 'start'>>

			<</if>>
		<<elseif getvar("$sucslpzone") == 2>>
			<<if getvar("$sctemp") == 1>>
				<<set $sucgoloc = 'pav_commercial'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 2>>
				<<set $sucgoloc = 'pav_residential'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 3>>
				<<set $sucgoloc = 'pav_park'>> <<set $sucgometka = 'start'>>

			<</if>>
			<<if getvar("$sctemp") == 4>>
				<<set $sucgoloc = 'pav_market'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 5>>
				<<set $sucgoloc = 'pav_lake'>> <<set $sucgometka = ''>>

			<</if>>
		<<elseif getvar("$sucslpzone") == 3>>
			<<if getvar("$sctemp") == 1>>
				<<set $sucgoloc = 'city_industrial'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 2>>
				<<set $sucgoloc = 'city_park'>> <<set $sucgometka = 'start'>>

			<</if>>
			<<if getvar("$sctemp") == 3>>
				<<set $sucgoloc = 'pav_commercial'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 4>>
				<<set $sucgoloc = 'pav_market'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 5>>
				<<set $sucgoloc = 'motel'>> <<set $sucgometka = ''>>

			<</if>>
		<<elseif getvar("$sucslpzone") == 4>>
			<<if getvar("$sctemp") == 1>>
				<<set $sucgoloc = 'pushkin'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 2>>
				<<set $sucgoloc = 'pushkin_sq'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 3>>
				<<set $sucgoloc = 'parks'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 4>>
				<<set $sucgoloc = 'pav_market'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 5>>
				<<set $sucgoloc = 'city_industrial'>> <<set $sucgometka = ''>>

			<</if>>
		<<elseif getvar("$sucslpzone") == 5>>
			<<if getvar("$sctemp") == 1>>
				<<set $sucgoloc = 'gadukino'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 2>>
				<<set $sucgoloc = 'pav_market'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 3>>
				<<set $sucgoloc = 'motel'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 4>>
				<<set $sucgoloc = 'city_industrial'>> <<set $sucgometka = ''>>

			<</if>>
			<<if getvar("$sctemp") == 5>>
				<<set $sucgoloc = 'city_park'>> <<set $sucgometka = 'start'>>

			<</if>>
		<</if>>
	<</if>>
	<!-- !!This is the wake up action-->
	<<actCLA 'Wake Up'>>
		<<set $pc.pcs_sleep = 100>>
		<<set $pc.mood = 100>>
		<<set $pc.pcs_health += $pc.healthmax / 5>>
		<<set $pc.pcs_stam = $pc.stammax>>
		<!-- ! Commenting it out for now, but potentially worth revisiting-->
		<!-- !willpower = $pc.intelligence*5 + will*5+1000-->
		<<set $pcs_mana = ($pc.skillLevel("intelligence") * $pcs_magik) + $pcs_magik * 100 + $pc.vitality * 10 + $rikudo>>
		<<set $time.minutes += 15>>
		<<set $scwrdtmp = '.'>>
		<p></p>
		You wake up and realize that you're not in your bed...
		<<if $pc.pcs_hairbsh == 1 and $pc.pcs_makeup > 1>>
			<<set $scwrdtmp = ', your hair is brushed, and you`re wearing makeup.'>>

		<</if>>
		<p>Instead, you are fully dressed$scwrdtmp</p>
		<<if getvar("$scwalkmon") > 0>>
			<p>You find scwalkmon <b>₽</b> stuffed in your cleavage (which you place in your wallet).</p>
			<<set $finances.cash += $scwalkmon>>
		<</if>>
		And you feel absolutely <i>bursting</i> with energy.
		<p></p>
		After a moment, you start wondering where you are...
		<<actCLA 'Look around to see where you are'>>
			<<if getvar("$sccarflag") == 1>>
				<<set $sccarflag to null>>
				<<enddrive>>
			<<else>>
				<<gt $sucgoloc $sucgometka>>
			<</if>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<!-- !!**********-->
