# LakeBoyZ
$gL_boy_z = {
act '<<$pcs_nickname>>':
*clr & cla
gs 'stat'
if $clothingworntype = 'nude':
'
> src="images/locations/pavlovsk/lake/event/sunbathe_nudelake.jpg">'
else
'> src="images/locations/pavlovsk/lake/event/sunbathe_lake.jpg">'
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 (<> Willpower)':
gs 'willpower', 'pay', 'resist'
gt 'glake'
end
else
act 'Smile and leave (<> Willpower)': '
You don''t have enough willpower to use this action.'
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 (<> Willpower)':
gs 'willpower', 'pay', 'resist'
gt 'glake'
end
else
act 'Smile and leave (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Drink beer':
*clr & cla
minut += 15
gs 'drugs', 'alcohol', 'beer', 1
gs 'stat'
'> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg">'
'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 (<> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
else
act 'Thank him for the beer and leave (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Drink some more beer':
*clr & cla
gs 'drugs', 'alcohol', 'beer', 1
gs 'arousal', 'foreplay', 5
gs 'stat'
'> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg">'
'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 (<> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
else
act 'Push him away and leave (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Kiss him':
*clr & cla
gs 'arousal', 'kiss', 5
gs 'arousal', 'end'
gs 'stat'
if $clothingworntype = 'nude':
'> src="images/locations/pavlovsk/lake/event/kissnude.jpg">'
else
'> src="images/locations/pavlovsk/lake/event/kissboy.jpg">'
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 (<> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
else
act 'Call it a day and leave (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Follow him to his house':
if $clothingworntype = 'nude':
gs 'clothing', 'wear_last_worn'
gs 'underwear', 'wear'
if PCloswimwear = 1:gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
gt 'LBZhouse'
else
gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
gs 'underwear', 'wear'
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'
gs 'underwear', 'wear'
'> src="images/locations/pavlovsk/lake/event/changenude.jpg">'
if PCloswimwear = 1:
gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
gs 'underwear', 'wear'
end
else
gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
gs 'underwear', 'wear'
'> src="images/locations/pavlovsk/lake/event/changebikini.jpg">'
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 (<> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
else
act 'Call it a day and leave (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Follow him to his house':gt'LBZhouse'
end
end
end
end
end
end
}
--- LakeBoyZ ---------------------------------