:: BMloc
<<set $here = 'BMloc'>>
<<set $ARGS = $location_var[$here]>>
<<set $menu_off = 1>>
<<act 'Leave'>>
	<<gt 'pav_disco'>>
<</act>>
<<actCLA 'Dance'>>
	<<gs 'boyStat' $bmNane[$Tboynum]>>
	<<set $npc($npclastcalled).usedname = $npc($npclastcalled).nickname>>
	<<if getvar("$bmFrend["+$Tboynum+"]") == 0>>
		<<if getvar("$bmHJ["+$Tboynum+"]") > 0 or getvar("$bmBJ["+$Tboynum+"]") > 0 or getvar("$bmSEX["+$Tboynum+"]") > 0 or getvar("$bmANAL["+$Tboynum+"]") > 0 or getvar("$bmGANG["+$Tboynum+"]") > 0>>
			<<if getvar("$bmHJ["+$Tboynum+"]") > 0>>
				<<set $text2 = 'you gave me a hand job.'>>

			<</if>>
			<<if getvar("$bmBJ["+$Tboynum+"]") > 0>>
				<<set $text2 = 'you gave me a blowjob.'>>

			<</if>>
			<<if getvar("$bmSEX["+$Tboynum+"]") > 0>>
				<<set $text2 = 'you let me fuck you.'>>

			<</if>>
			<<if getvar("$bmANAL["+$Tboynum+"]") > 0>>
				<<set $text2 = 'you let me fuck you in the ass.'>>

			<</if>>
			<<if getvar("$bmGANG["+$Tboynum+"]") > 0>>
				<<set $text2 = 'you let me and my friend fuck you.'>>

			<</if>>
			<p>$niknameboy tells you "Remember me, $text2. I'm $boydesc."</p>
		<<else>>
			<<if getvar("$bmKISS["+$Tboynum+"]") > 0 or getvar("$bmTITS["+$Tboynum+"]") > 0>>
				<p>$niknameboy tells you "Remember me, we hung out and drank together beer. I'm $boydesc."</p>
			<<else>>
				<p>$niknameboy tells you "Remember me, we danced together. I'm $boydesc."</p>
			<</if>>
		<</if>>
	<</if>>
	<<if getvar("$bmTip["+$Tboynum+"]") == 0>>
		<p>After the Dance $boydesc offers to go out and drink beer.</p>

	<</if>>
	<<if getvar("$bmTip["+$Tboynum+"]") == 1>>
		<p>After the Dance $boydesc offers to go hang out.</p>

	<</if>>
	<<if getvar("$bmTip["+$Tboynum+"]") == 2>>
		<p>After the Dance $boydesc offers to go to his hotel.</p>

	<</if>>
	<<actCLA 'Refuse' undefined `{willpower:['drink','resist']}`>>
			<<run $pc.skillExperienceGain('spirit',rand(0,1))>>
			
			<<gs 'willpower' 'pay'>>
			<<gt 'pav_disco'>>
		<</actCLA>>
	
	<<actCLA 'Agree'>>
		<<set $boynumBlock = 1>>
		<<if getvar("$bmTip["+$Tboynum+"]") == 0>>
			<<set $gdk_nice_guy = 1>>
			<<gt 'pav_disco_sex' 'outside'>>
		<</if>>
		<<if getvar("$bmTip["+$Tboynum+"]") == 1>>
			<<gt 'pav_disco_sex' 'outside'>>

		<</if>>
		<<if getvar("$bmTip["+$Tboynum+"]") == 2>>
			<<set $DPtipe = 2>>
			<<gt 'pav_disco_sex' 'hotel'>>
		<</if>>
	<</actCLA>>
<</actCLA>>
