|
|
@@ -211,7 +211,7 @@ if $ARGS[0] = '':
|
|
|
act 'Ask for a tampon':
|
|
|
cla
|
|
|
sanpad += 3
|
|
|
- gs 'npc_relationship', 'modify', 'A29', 'dislike', 5
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', -15
|
|
|
minut += 3
|
|
|
'You tell your <<$npc_nickname[''A29'']>> you''re menstruating and ran out of tampons, but really need one right now. She looks at you knowingly, gives you three sanitary pads from her own supply and sternly tells you to next time take care of this in advance.'
|
|
|
|
|
|
@@ -262,7 +262,7 @@ if $ARGS[0] = '':
|
|
|
if hour > 5:
|
|
|
if unintendedabort = 1 and pregTalkFamily = 1:
|
|
|
pregTalkFamily = 2
|
|
|
- gs 'npc_relationship', 'modify', 'A29', 10
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', 20
|
|
|
'<br>'
|
|
|
'Your <<$npc_nickname[''A29'']>> looks at you in shock." <<$pcs_nickname>>, did you get an abortion?"'
|
|
|
'You break down crying and tell your <<$npc_nickname[''A29'']>> you had a miscarriage.'
|
|
|
@@ -534,7 +534,7 @@ if $ARGS[0] = '':
|
|
|
|
|
|
act 'Leave her be for now':gt $loc, $metka
|
|
|
elseif mqwtRand > 2 and mqwtRand <= 8:
|
|
|
- gs 'npc_relationship', 'modify', 'A29', rand(0,1)
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', 'like'
|
|
|
minut += 30
|
|
|
'You try to have a talk with your <<$npc_nickname[''A29'']>>, to try and patch up your horrible relationship. Despite your best efforts, the whole half-hour conversation consists mainly of a fairly aggressive monologue from your <<$npc_nickname[''A29'']>> about morality, diseases and what awaits you in the future, if you do not change your ways. Still, there is some improvement in your relationship.'
|
|
|
|
|
|
@@ -583,7 +583,7 @@ if $ARGS[0] = '':
|
|
|
|
|
|
act 'Move away':gt $loc, $metka
|
|
|
elseif (motherKnowWhore > 0 or motherKnowSpravka > 0) and npc_QW['A29'] = 1:
|
|
|
- gs 'npc_relationship', 'modify', 'A29', 'dislike'0
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', -20
|
|
|
|
|
|
if motherKnowWhore = 0:motherKnowWhore = 1
|
|
|
|
|
|
@@ -598,7 +598,7 @@ if $ARGS[0] = '':
|
|
|
|
|
|
act 'Move away':gt $loc, $metka
|
|
|
elseif npc_QW['A29'] >= 2:
|
|
|
- gs 'npc_relationship', 'modify', 'A29', 'dislike'0
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', -20
|
|
|
|
|
|
if motherKnowWhore = 0:motherKnowWhore = 1
|
|
|
|
|
|
@@ -699,7 +699,7 @@ if $ARGS[0] = 'referral_fail':
|
|
|
act 'Walk home': gt 'korrPar'
|
|
|
end
|
|
|
elseif motherKnowWhore > 0 and npc_QW['A29'] < 2:
|
|
|
- gs 'npc_relationship', 'modify', 'A29', 'dislike'0
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', -10
|
|
|
motherKnowSpravka = 1
|
|
|
!counter for getting sent to Gadukino for the summer
|
|
|
delin_beh += 1
|
|
|
@@ -748,7 +748,7 @@ if $ARGS[0] = 'pregreact':
|
|
|
act 'Tell your <<$npc_nickname[''A29'']>> you are pregnant':
|
|
|
*clr & cla
|
|
|
minut += 5
|
|
|
- gs 'npc_relationship', 'modify', 'A29', 'dislike'0
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', -20
|
|
|
pregTalkFamily = 1
|
|
|
npc_pregtalk['A29'] = 1
|
|
|
delin_beh += 1 &!counter for getting sent to Gadukino for the summer
|
|
|
@@ -768,7 +768,7 @@ if $ARGS[0] = 'pregreact':
|
|
|
act 'Tell your <<$npc_nickname[''A29'']>> you are pregnant':
|
|
|
*clr & cla
|
|
|
minut += 5
|
|
|
- gs 'npc_relationship', 'modify', 'A29', 'dislike'0
|
|
|
+ gs 'npc_relationship', 'modify', 'A29', -20
|
|
|
pregTalkFamily = 1
|
|
|
npc_pregtalk['A29'] = 1
|
|
|
delin_beh += 1 &!counter for getting sent to Gadukino for the summer
|
