glife/locations/LakeBoyZ

# LakeBoyZ
$gL_boy_z = {
	act '<<$pcs_nickname>>':
		cls
		gs'stat'
		'The guy seems nice enough, you tell him your name.'
		randvnesh = RAND(40,120)
		if RAND(0,10) = 0 and pcs_apprnc >= randvnesh:
			'<<$boydesc>> says, "You''re a cool girl. Maybe we''ll meet again?"'
			act 'Smile and leave':gt'glake'
			act 'Tell him your phone number':
				cls
				pcs_mood += 10
				gs 'boy', 'details'
				minut += 30
				bmFrend[Tboynum] = 1
				gs'stat'
				'You tell the guy your phone and he puts it in his phone.'
				'The man then makes his excuses 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 he chats away with you.'
				'Suddenly, he puts his hand on your foot.'
				'""More on beer <<$pcs_nickname>>?"'
				act 'Call it a day and leave':gt'glake'
				act'Drink more beer':
					cls
					alko+=3
					pcs_mood += 30
					gs'stat'
					'You drink more beer with the guy, and he strokes your legs and puts his hand on your chest as he leans in close to you.'
					gs 'arousal', 'foreplay', 15
					gs 'stat'
					if rand(1,100) <= 20:
						'He whispers, "Let''s kiss."'
						act 'Call it a day and leave':gt'glake'
						act'Kiss him':
							cls
							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.'
							gs 'arousal', 'foreplay', 5
							gs 'arousal', 'end'
							gs 'stat'
							act 'Call it a day and leave':gt'glake'
							act'Go with the guy':
								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, then suggests a walk.'
						act 'Call it a day and leave':gt'glake'
						act'Go for a walk':
							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 a guy.'
							'<<$boydesc>> invites you over to his house.'
							act 'Call it a day and leave':gt'pavResidential'
							act'Go with the guy':gt'LBZhouse'
						end
					end
				end
			end
		end
	end
}
--- LakeBoyZ ---------------------------------