:: boymass
<<set $here = 'boymass'>>
<<set $ARGS = $location_var[$here]>>
<<if $location_var[$here][0] == 'A'>>
	<<set $boynum += 1>>
	<<setinit $bmNane[$boynum] = $npclastcalled>>
	<<setinit $bmTip[$boynum] = $bmtimeTipe>>
	<<setinit $bmHJ[$boynum] = 0>>
	<<setinit $bmBJ[$boynum] = 0>>
	<<setinit $bmSEX[$boynum] = 0>>
	<<setinit $bmANAL[$boynum] = 0>>
	<<setinit $bmGANG[$boynum] = 0>>
	<<setinit $bmGossip[$boynum] = 0>>
	<<setinit $bmFrend[$boynum] = 0>>
	<<setinit $bmKISS[$boynum] = 0>>
	<<setinit $bmTITS[$boynum] = 0>>
<</if>>
<<if $location_var[$here][0] == 'B'>>
	<<if getvar("$boynumBlock") == 0>>
		<<set $Tboynum = $boynum>>

	<</if>>
	<<if getvar("$boynumBlock") > 0>>
		<<if getvar("$bmHJ["+$Tboynum+"]") > 0 or getvar("$bmBJ["+$Tboynum+"]") > 0 or getvar("$bmSEX["+$Tboynum+"]") > 0 or getvar("$bmANAL["+$Tboynum+"]") > 0>>
			<<if getvar("$bmTOTSEX["+$Tboynum+"]") == 0>>
				<<setinit $bmTOTSEX[$Tboynum] = 1>>

			<</if>>
		<</if>>
		<<gs 'boyStat' $bmNane[$Tboynum]>>
	<</if>>
<</if>>
