# BMloc

menu_off = 1
gs 'stat'

act 'Leave':gt 'pav_disco'
act 'Dance':
	*clr & cla
	gs 'stat'
	gs 'boystat', $bmNane[Tboynum]
	$hookupboy = $bmNane[Tboynum]
	$npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]

	if bmFrend[Tboynum] = 0:
		if bmHJ[Tboynum] > 0 or bmBJ[Tboynum] > 0 or bmSEX[Tboynum] > 0 or bmANAL[Tboynum] > 0 or bmGANG[Tboynum] > 0:
			if bmHJ[Tboynum] > 0:$text2 = 'you gave me a hand job.'
			if bmBJ[Tboynum] > 0:$text2 = 'you gave me a blowjob.'
			if bmSEX[Tboynum] > 0:$text2 = 'you let me fuck you.'
			if bmANAL[Tboynum] > 0:$text2 = 'you let me fuck you in the ass.'
			if bmGANG[Tboynum] > 0:$text2 = 'you let me and my friend fuck you.'

			'<<$niknameboy>> tells you "Remember me, <<$text2>>. I''m <<$boydesc>>."'
		else
			if bmKISS[Tboynum] > 0 or bmTITS[Tboynum] > 0:
				'<<$niknameboy>> tells you "Remember me, we hung out and drank together beer. I''m <<$boydesc>>."'
			else
				'<<$niknameboy>> tells you "Remember me, we danced together. I''m <<$boydesc>>."'
			end
		end
	end

	if bmTip[Tboynum] = 0:'After the Dance <<$boydesc>> offers to go out and drink beer.'
	if bmTip[Tboynum] = 1:'After the Dance <<$boydesc>> offers to go hang out.'
	if bmTip[Tboynum] = 2:'After the Dance <<$boydesc>> offers to go to his hotel.'
	
	gs 'willpower', 'drink', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Refuse (<<will_cost>> Willpower)':
			gs 'exp_gain', 'sprt', rand(0,1)
			gs 'willpower', 'drink', 'resist'
			gs 'willpower', 'pay'
			gs 'stat'
			gt 'pav_disco'
		end
	else
		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	
	act 'Agree':
		*clr & cla
		boynumBlock = 1

		if bmTip[Tboynum] = 0:
			gdk_nice_guy = 1
			gt 'pav_disco_sex', 'outside'
		end
		if bmTip[Tboynum] = 1:gt 'pav_disco_sex', 'outside'
		if bmTip[Tboynum] = 2:
			DPtipe = 2
			gt 'pav_disco_sex', 'hotel'
		end
	end
end

--- BMloc ---------------------------------