glife/locations/LakeBoyZ

# LakeBoyZ
$gL_boy_z = {
	act '<<$pcs_nickname>>':
		cls
		gs 'stat'
		'He seems nice enough so you decide to give him your name.'
		randvnesh = RAND(40,120)
		if RAND(0,10) = 0 and pcs_apprnc >= randvnesh:
			'<<$boydesc>> smiles as he says, "You''re a pretty cool girl. Maybe we can hang out again?"'
			act 'Smile and leave':gt'glake'
			act 'Give him your phone number':
				cls
				pcs_mood += 10
				gs 'boy', 'details'
				if rand(0,2) = 0: gs 'boyfrend','start'
				minut += 15
				bmFrend[Tboynum] = 1
				gs 'stat'
				'You give <<$boydesc>> your phone number and he adds it to his contact list.'
				'He then excuses himself and leaves, promising to call you.'
				act 'Return':gt'glake'
			end
		else
			'<<$boydesc>> sits closer to you and offers you a cold beer.'
			act 'Smile and leave':gt'glake'
			act 'Drink beer':
				cls
				minut+=15
				alko+=3
				pcs_mood += 30
				gs'stat'
				'You drink beer with the guy, and the two of you chat for a while.'
				'Suddenly, he puts his hand on your thigh.'
				'"Another beer, <<$pcs_nickname>>?"'
				act 'Thank him for the beer and leave':gt'glake'
				act 'Drink some more beer':
					cls
					alko+=3
					pcs_mood += 30
					gs 'arousal', 'foreplay', 15
					gs 'stat'
					'You drink more beer with <<$boydesc>>. He begins stroking your leg and puts his hand on your chest as he leans into you.'
					if rand(1,100) <= 20:
						'Leaned in he whispers to you, "I need to taste those lips."'
						act 'Push him away and leave':gt'glake'
						act 'Kiss him':
							cls
							gs 'arousal', 'kiss', 5
							gs 'arousal', 'end'
							gs 'stat'
							'You passionately kiss <<$boydesc>>, as he continues to caress your body, paying particular interest to your breasts.'
							'<<$boydesc>> invites you to his house.'
							act 'Call it a day and leave':gt'glake'
							act 'Follow him to his house':
								if $clothingworntype = 'nude':
									gs 'clothing', 'wear_last_worn'
									if $clothingworntype = 'swimwear':gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
									gt 'LBZhouse'
								else
									gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
									gt 'LBZhouse'
								end
							end
						end
					else
						'<<$boydesc>> smiles and suggests that the two of you go for a walk.'
						act 'Reject and leave':gt'glake'
						act 'Agree':
							cls
							minut += 15
							if $clothingworntype = 'nude':
								gs 'clothing', 'wear_last_worn'
								if $clothingworntype = 'swimwear':gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
							else
								gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
							end
							gs'stat'
							'You quickly get changed into your regular clothes and go for a walk with <<$boydesc>>.'
							'<<$boydesc>> invites you over to his house.'
							act 'Call it a day and leave':gt'pavResidential'
							act 'Follow him to his house':gt'LBZhouse'
						end
					end
				end
			end
		end
	end
}
--- LakeBoyZ ---------------------------------