|
|
@@ -731,7 +731,16 @@ if $ARGS[0] = 'disable_condoms':
|
|
|
gs 'booty_call_condoms', 'npc_no_condom_react'
|
|
|
end
|
|
|
|
|
|
- if birth_control['think_safe'] = 1 and npc_know_bc[$boy] = 0:
|
|
|
+ if knowpreg = 1:
|
|
|
+ act'I''m pregnant':
|
|
|
+ npc_knowpreg[$boy] = 1
|
|
|
+ cla & *clr
|
|
|
+ $npc_apt_bedroom[$boy]
|
|
|
+ '"Hey," you smile. "We don''t need to use condoms. I found out I''m pregnant. Can''t get any more knocked up than I already am."'
|
|
|
+ gs 'booty_call_condoms', 'npc_no_condom_react'
|
|
|
+ end
|
|
|
+
|
|
|
+ elseif birth_control['think_safe'] = 1 and npc_know_bc[$boy] = 0:
|
|
|
if tabletkishot > 0:
|
|
|
act'On the shot':
|
|
|
npc_know_bc[$boy] = 1
|
|
|
@@ -1051,20 +1060,59 @@ if $ARGS[0] = 'temp_disable_condoms':
|
|
|
end
|
|
|
end
|
|
|
|
|
|
+if $ARGS[0] = 'father_check':
|
|
|
+ potfather_temp[1] = arrsize('$wombpotfath')
|
|
|
+ potfather_counter = 0
|
|
|
+ 'List of potential fathers:'
|
|
|
+ :potfather_loop
|
|
|
+ if $wombpotfath[potfather_counter] ! 'unknown':
|
|
|
+ potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$wombpotfath[potfather_counter]]>> (<<$wombpotfath[potfather_counter]>>)</a>'
|
|
|
+ else
|
|
|
+ potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
|
|
|
+ end
|
|
|
+ if $boy = potfather_temp[2]
|
|
|
+ potfather_counter += 1
|
|
|
+ if potfather_counter < arrsize('$wombpotfath'): jump 'potfather_loop'
|
|
|
+end
|
|
|
+
|
|
|
if $ARGS[0] = 'npc_no_condom_react':
|
|
|
- if npc_condom_conscious[$boy] = 2 or (npc_condom_conscious[$boy] = 1 and (rand(npc_willpwr[$boy],100) - npc_rel[$boy]) < pcs_persuas):
|
|
|
- booty_call['condom'] = 1
|
|
|
- booty_call['npc_condom_insist'] = 1
|
|
|
- '"I want to use one anyways," <<$npc_firstname[$boy]>> says, shaking his head and reaching back for the condom. "Better to be safe."'
|
|
|
- 'Your jaw drops.'
|
|
|
- *nl
|
|
|
- '<i>A free pass to go bareback forever and he doesn''t take it? What''s with him??</i>'
|
|
|
+ if npc_knowpreg[$boy] = 1:
|
|
|
+ if npc_creampie_count[$boy] > 0:
|
|
|
+ '<<$npc_firstname[$boy]>>''s eyes go wide.'
|
|
|
+ if npc_childfree[$boy] > 0:
|
|
|
+ '"It''s... it''s not mine, is it?"'
|
|
|
+ if npc_is_father = 1:
|
|
|
+ act'Maybe':
|
|
|
+ cla & *nl
|
|
|
+ '"It could be," you murmur. "There are... a few people who could be the father..."'
|
|
|
+ end
|
|
|
+
|
|
|
+ act'Lie':
|
|
|
+
|
|
|
+ end
|
|
|
+ else
|
|
|
+
|
|
|
+
|
|
|
+ end
|
|
|
+ else
|
|
|
+
|
|
|
+ end
|
|
|
+ end
|
|
|
else
|
|
|
- booty_call['no_condom'] = 1
|
|
|
- npc_bareback[$boy] = 1
|
|
|
- '"This is going to feel so good," <<$npc_firstname[$boy]>> says and your smile widens into a full blown grin.'
|
|
|
+ if npc_condom_conscious[$boy] = 2 or (npc_condom_conscious[$boy] = 1 and (rand(npc_willpwr[$boy],100) - npc_rel[$boy]) < pcs_persuas):
|
|
|
+ booty_call['condom'] = 1
|
|
|
+ booty_call['npc_condom_insist'] = 1
|
|
|
+ '"I want to use one anyways," <<$npc_firstname[$boy]>> says, shaking his head and reaching back for the condom. "Better to be safe."'
|
|
|
+ 'Your jaw drops.'
|
|
|
+ *nl
|
|
|
+ '<i>A free pass to go bareback forever and he doesn''t take it? What''s with him??</i>'
|
|
|
+ else
|
|
|
+ booty_call['no_condom'] = 1
|
|
|
+ npc_bareback[$boy] = 1
|
|
|
+ '"This is going to feel so good," <<$npc_firstname[$boy]>> says and your smile widens into a full blown grin.'
|
|
|
+ end
|
|
|
+ gs 'booty_call_sex', 'position_choose'
|
|
|
end
|
|
|
- gs 'booty_call_sex', 'position_choose'
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'npc_temp_no_condom_react':
|
