glife/locations/LakeBoyZ.qsrc

# LakeBoyZ
$gL_boy_z = {
	act '<<$pcs_nickname>>':
		*clr & cla
		gs 'stat'
		if $clothingworntype = 'nude':
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathe_nudelake.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathe_lake.jpg"></center>'
		end
		'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?"'
			gs 'willpower', 'misc', 'resist', 'easy'
			if will_cost <= pcs_willpwr:
				act 'Smile and leave (<<will_cost>> Willpower)':	
					gs 'willpower', 'pay', 'resist'
					gt 'glake'
				end
			else
				act 'Smile and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
			act 'Give him your phone number':
				*clr & cla
				pcs_mood += 10
				gs 'boy', 'details'
				if rand(0,2) = 0: gs 'boyfrend','start'
				minut += 5
				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.'
			gs 'willpower', 'drink', 'resist', 'easy'
			if will_cost <= pcs_willpwr:
				act 'Smile and leave (<<will_cost>> Willpower)':
					gs 'willpower', 'pay', 'resist'
					gt 'glake'
				end
			else
				act 'Smile and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
			act 'Drink beer':
				*clr & cla
				minut += 15
				gs 'drugs', 'alcohol', 'beer', 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg"></center>'
				'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>>?"'
				gs 'willpower', 'drink', 'resist', 'easy'
				if will_cost <= pcs_willpwr:
					act 'Thank him for the beer and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
				else
					act 'Thank him for the beer and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
				act 'Drink some more beer':
					*clr & cla
					gs 'drugs', 'alcohol', 'beer', 1
					gs 'arousal', 'foreplay', 5
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg"></center>'
					'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."'
						gs 'willpower', 'kiss', 'resist', 'easy'
						if will_cost <= pcs_willpwr:
							act 'Push him away and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
						else
							act 'Push him away and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
						act 'Kiss him':
							*clr & cla
							gs 'arousal', 'kiss', 5
							gs 'arousal', 'end'
							gs 'stat'
							if $clothingworntype = 'nude':
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/kissnude.jpg"></center>'
							else
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/kissboy.jpg"></center>'
							end
							'You passionately kiss <<$boydesc>>, as he continues to caress your body, paying particular interest to your breasts.'
							'<<$boydesc>> invites you to his house.'
							gs 'willpower', 'sex', 'resist', 'easy'
							if will_cost <= pcs_willpwr:
								act 'Call it a day and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
							else
								act 'Call it a day and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
							act 'Follow him to his house':
								if $clothingworntype = 'nude':
									gs 'clothing', 'wear_last_worn'
									if PCloswimwear = 1: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':
							*clr & cla
							minut += 15
							if $clothingworntype = 'nude':
								gs 'clothing', 'wear_last_worn'
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/changenude.jpg"></center>'
								if PCloswimwear = 1:gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
							else
								gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/changebikini.jpg"></center>'
							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.'
							gs 'willpower', 'sex', 'resist', 'easy'
							if will_cost <= pcs_willpwr:
								act 'Call it a day and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
							else
								act 'Call it a day and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
							act 'Follow him to his house':gt'LBZhouse'
						end
					end
				end
			end
		end
	end
}
--- LakeBoyZ ---------------------------------