|
|
@@ -1,6 +1,10 @@
|
|
|
# din_bad
|
|
|
!2021/05/02
|
|
|
-$mobile_check = {
|
|
|
+!! Dynamic code has been translated to static code for performance and savegame size reasons.
|
|
|
+!! The dynamic variables still exist for compatibility reasons.
|
|
|
+!! Whenever possible, don''t use dynamic code (use "gs 'din_bad', 'xxx'" instead of "dynamic $xxx").
|
|
|
+$mobile_check = "gs 'din_bad', 'mobile_check'"
|
|
|
+if $ARGS[0] = 'mobile_check':
|
|
|
if menu_off = 0:
|
|
|
gs 'stat'
|
|
|
if vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17:
|
|
|
@@ -78,9 +82,10 @@ $mobile_check = {
|
|
|
|
|
|
killvar 'lover_number'
|
|
|
end
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$d_salf = {
|
|
|
+$d_salf = "gs 'din_bad', 'd_salf'"
|
|
|
+if $ARGS[0] = 'd_salf':
|
|
|
*clr & cla
|
|
|
'<center><h1>Tissues</h1></center>'
|
|
|
'<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
|
|
|
@@ -95,9 +100,10 @@ $d_salf = {
|
|
|
if pcs_makeup ! 1 and cosmetic_tattoo = 0: '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & pcs_makeup = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Remove your makeup</b></a>'
|
|
|
'<a href="exec:gs ''stat'' & gs ''din_bad'', ''d_bag''"><br><b>Put tissues away</b></a>'
|
|
|
'</td></tr></table></center>'
|
|
|
-}
|
|
|
-
|
|
|
-$d_mouthwash = {
|
|
|
+end
|
|
|
+
|
|
|
+$d_mouthwash = "gs 'din_bad', 'd_mouthwash'"
|
|
|
+if $ARGS[0] = 'd_mouthwash':
|
|
|
*clr & cla
|
|
|
'<center><h1>Mouth Wash</h1></center>'
|
|
|
'<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
|
|
|
@@ -112,7 +118,7 @@ $d_mouthwash = {
|
|
|
''
|
|
|
act 'Done':gs 'stat' & gs 'din_bad', 'd_bag'
|
|
|
'</td></tr></table></center>'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
if $ARGS[0] = 'd_bag':
|
|
|
*clr & cla
|
|
|
@@ -123,20 +129,20 @@ if $ARGS[0] = 'd_bag':
|
|
|
'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
|
|
|
'<td cellspacing="0" cellpadding="0" valign="top">'
|
|
|
if mc_inventory['makeup_wipes'] > 0: 'You have <b><<mc_inventory[''makeup_wipes'']>></b> wet wipes left in your purse. <a href="exec:dynamic $d_salf">Use a tissue</a>'
|
|
|
- if mc_inventory['painkillers'] > 0 and pain['total'] > 0 and pain['killer'] = 0:
|
|
|
+ if mc_inventory['painkillers'] > 0 and pain['total'] > 0 and pain['killer'] = 0:
|
|
|
'You have <b><<mc_inventory[''painkillers'']>></b> painkiller'+iif(mc_inventory['painkillers'] > 1, 's ', ' ')+'left in your purse. <a href="exec: gs ''drugs'', ''painkiller'' & gs ''din_bad'', ''d_bag''">Take One</a>'
|
|
|
elseif mc_inventory['painkillers'] > 0 and (pain['total'] = 0 or pain['killer'] > 0):
|
|
|
'You have <b><<mc_inventory[''painkillers'']>></b> painkiller'+iif(mc_inventory['painkillers'] > 1, 's ', ' ')+'left in your purse.'
|
|
|
end
|
|
|
- if mc_inventory['mouthwash'] > 0 and (pcs_breath = 0 or cumloc[12] = 1):
|
|
|
+ if mc_inventory['mouthwash'] > 0 and (pcs_breath = 0 or cumloc[12] = 1):
|
|
|
'There''s mouthwash in your purse. <b><<mc_inventory[''mouthwash'']>></b> uses remaining. <a href="exec:dynamic $d_mouthwash">Use mouthwash</a>'
|
|
|
elseif mc_inventory['mouthwash'] > 0 and pcs_breath = 1 and cumloc[12] = 0:
|
|
|
'There''s mouthwash in your purse. <b><<mc_inventory[''mouthwash'']>></b> uses remaining.'
|
|
|
end
|
|
|
- if mc_inventory['travel_mirror'] = 1:
|
|
|
+ if mc_inventory['travel_mirror'] = 1:
|
|
|
'You have a <a href="exec: cla & gt ''mirror'', ''d_bag_mirror''">compact mirror</a> in your purse'+iif(mc_inventory['travel_makeup'] >0, ' and some portable makeup.', '.')
|
|
|
if mc_inventory['lipbalm'] > 0 and pcs_lipbalm <= 0:
|
|
|
- 'You can apply some <a href="exec: cls & gs ''mirror'', ''applyLipbalm'' & act ''Return'':gs ''din_bad'', ''d_bag''">lip balm</a>'
|
|
|
+ 'You can apply some <a href="exec: cls & gs ''mirror'', ''applyLipbalm'' & act ''Return'':gs ''din_bad'', ''d_bag''">lip balm</a>'
|
|
|
end
|
|
|
elseif mc_inventory['travel_mirror'] = 0 and mc_inventory['travel_makeup'] >0:
|
|
|
'You have some portable makeup in your purse, but you need a compact mirror to apply it.'
|
|
|
@@ -152,9 +158,9 @@ if $ARGS[0] = 'd_bag':
|
|
|
end
|
|
|
!! Hair options
|
|
|
*nl
|
|
|
- if (mc_inventory['travel_mirror'] = 1 or mc_inventory['comb'] = 1) and pcs_hairbsh = 0:
|
|
|
+ if (mc_inventory['travel_mirror'] = 1 or mc_inventory['comb'] = 1) and pcs_hairbsh = 0:
|
|
|
'There''s a hairbrush in your purse. <a href="exec:pcs_hairbsh = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Brush your hair</a>'
|
|
|
- elseif (mc_inventory['travel_mirror'] = 1 or mc_inventory['comb'] = 1) and pcs_hairbsh = 1:
|
|
|
+ elseif (mc_inventory['travel_mirror'] = 1 or mc_inventory['comb'] = 1) and pcs_hairbsh = 1:
|
|
|
'There''s a hairbrush in your purse. Your hair doesn''t need brushing right now.'
|
|
|
end
|
|
|
if pcs_hairbsh > 0 and pcs_hairlng > 80 and hbraids = 0:
|
|
|
@@ -236,12 +242,12 @@ if $ARGS[0] = 'd_bag':
|
|
|
if mc_inventory['breastcream'] > 0:'<a href="exec: gs ''drugs'', ''breastcream'' & gs ''din_bad'', ''d_bag''">Apply breast cream.</a> You have <b><<mc_inventory[''breastcream'']>></b> cream left in your purse.'
|
|
|
if mc_inventory['aphrodisiac'] > 0:'<a href="exec: gs ''drugs'', ''aphrodisiac'' & gs ''din_bad'', ''d_bag'' & *pl $drugVars[''aphrodisiac_msg''] & *pl $min_arousal_msg & killvar ''$min_arousal_msg''">Chew aphrodisiac gum.</a> You have <b><<mc_inventory[''aphrodisiac'']>></b> gum left in your purse.'
|
|
|
|
|
|
- if mc_inventory['refill_bottle_water'] = 4 and mc_inventory['refill_bottle'] >= 1:
|
|
|
+ if mc_inventory['refill_bottle_water'] = 4 and mc_inventory['refill_bottle'] >= 1:
|
|
|
'You carry your sports water bottle in your purse. It''s still completely full. <a href="exec: mc_inventory[''refill_bottle_water''] = 3 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
|
|
|
elseif mc_inventory['refill_bottle_water'] = 3 and mc_inventory['refill_bottle'] >= 1:
|
|
|
'You carry your sports water bottle in your purse. It''s almost full. <a href="exec: mc_inventory[''refill_bottle_water''] = 2 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
|
|
|
elseif mc_inventory['refill_bottle_water'] = 2 and mc_inventory['refill_bottle'] >= 1:
|
|
|
- 'You carry your sports water bottle in your purse. It''s half full. <a href="exec: mc_inventory[''refill_bottle_water''] = 1 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
|
|
|
+ 'You carry your sports water bottle in your purse. It''s half full. <a href="exec: mc_inventory[''refill_bottle_water''] = 1 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
|
|
|
elseif mc_inventory['refill_bottle_water'] = 1 and mc_inventory['refill_bottle'] >= 1:
|
|
|
'You carry your sports water bottle in your purse. It''s almost empty. <a href="exec: mc_inventory[''refill_bottle_water''] = 0 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
|
|
|
elseif mc_inventory['refill_bottle_water'] = 0 and mc_inventory['refill_bottle'] >= 1:
|
|
|
@@ -268,7 +274,8 @@ if $ARGS[0] = 'd_bag':
|
|
|
'</td></tr></table></center>'
|
|
|
end
|
|
|
|
|
|
-$dinalkowin1 = {
|
|
|
+$dinalkowin1 = "gs 'din_bad', 'dinalkowin1'"
|
|
|
+if $ARGS[0] = 'dinalkowin1':
|
|
|
*clr & cla
|
|
|
alkowine = 1
|
|
|
minut += 5
|
|
|
@@ -278,9 +285,10 @@ $dinalkowin1 = {
|
|
|
*nl
|
|
|
'You take the wine bottle out of your purse and slowly drink half of it. You struggle quite a lot to put the cork back before being able to make it.'
|
|
|
act 'Continue':gs 'din_bad', 'd_bag'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$dinalkowin2 = {
|
|
|
+$dinalkowin2 = "gs 'din_bad', 'dinalkowin2'"
|
|
|
+if $ARGS[0] = 'dinalkowin2':
|
|
|
*clr & cla
|
|
|
alkowine = 0
|
|
|
mc_inventory['food_wine'] = 0
|
|
|
@@ -291,9 +299,10 @@ $dinalkowin2 = {
|
|
|
*nl
|
|
|
'You take out the remaining half wine bottle out of your purse, slowly drinking the rest of it. As you finish you throw the empty bottle away.'
|
|
|
act 'Continue':gs 'din_bad', 'd_bag'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$din_Switch_Condom_Menu = {
|
|
|
+$din_Switch_Condom_Menu = "gs 'din_bad', 'din_Switch_Condom_Menu'"
|
|
|
+if $ARGS[0] = 'din_Switch_Condom_Menu':
|
|
|
dynamic $din_Update_Condom_Counts
|
|
|
*clr & cla
|
|
|
'<center><h1>Condoms</h1></center>'
|
|
|
@@ -318,9 +327,10 @@ $din_Switch_Condom_Menu = {
|
|
|
*nl
|
|
|
act 'Return':gs 'din_bad', 'd_bag'
|
|
|
'</td></tr></table></center>'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$din_Table_Condom_Menu = {
|
|
|
+$din_Table_Condom_Menu = "gs 'din_bad', 'din_Table_Condom_Menu'"
|
|
|
+if $ARGS[0] = 'din_Table_Condom_Menu':
|
|
|
dynamic $din_Update_Condom_Counts
|
|
|
*clr & cla
|
|
|
'<center><h1>Condoms</h1></center>'
|
|
|
@@ -347,7 +357,7 @@ $din_Table_Condom_Menu = {
|
|
|
end
|
|
|
*nl
|
|
|
act 'Return':gt 'stol', 'bc'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
!! Condom System
|
|
|
!! mc_inventory['equipped_condoms']: Total number of condoms sveta is using (normal or damaged).
|
|
|
@@ -356,7 +366,8 @@ $din_Table_Condom_Menu = {
|
|
|
!! preziktype: 0 - Use condoms / 1 - don''t use condoms / 2 - use damaged condoms
|
|
|
!! to check if sveta wants to use a condom use if mc_inventory['equipped_condoms'] > 0:
|
|
|
|
|
|
-$din_Do_Condom_Counts = {
|
|
|
+$din_Do_Condom_Counts = "gs 'din_bad', 'din_Do_Condom_Counts'"
|
|
|
+if $ARGS[0] = 'din_Do_Condom_Counts':
|
|
|
*clr & cla
|
|
|
'<center><h1>Condoms</h1></center>'
|
|
|
'<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
|
|
|
@@ -399,9 +410,10 @@ $din_Do_Condom_Counts = {
|
|
|
dynamic $din_Table_Condom_Menu
|
|
|
end
|
|
|
'</td></tr></table></center>'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$din_Update_Condom_Counts = {
|
|
|
+$din_Update_Condom_Counts = "gs 'din_bad', 'din_Update_Condom_Counts'"
|
|
|
+if $ARGS[0] = 'din_Update_Condom_Counts':
|
|
|
if mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0: prezikmsg = 1
|
|
|
if preziktype = 0:
|
|
|
if mc_inventory['normal_condoms'] > 0:
|
|
|
@@ -437,9 +449,10 @@ $din_Update_Condom_Counts = {
|
|
|
preziktype = 0
|
|
|
end
|
|
|
end
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$d_tabletkied = {
|
|
|
+$d_tabletkied = "gs 'din_bad', 'd_tabletkied'"
|
|
|
+if $ARGS[0] = 'd_tabletkied':
|
|
|
*clr & cla
|
|
|
'<center><h1>Birth Control</h1></center>'
|
|
|
'<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
|
|
|
@@ -450,7 +463,7 @@ $d_tabletkied = {
|
|
|
if tabletkiday < daystart: '<a href="exec:dynamic $d_tabletkieda, 1 & dynamic $d_tabletkied">Take the birth control pill now.</a>'
|
|
|
|
|
|
if tabletkicheck = 0:
|
|
|
- if birth_control['remind_hour'] = 0:
|
|
|
+ if birth_control['remind_hour'] = 0:
|
|
|
'<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Set a reminder to take your birth control pills.</a>'
|
|
|
else
|
|
|
'<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Change your birth control reminder.</a>'
|
|
|
@@ -474,9 +487,10 @@ $d_tabletkied = {
|
|
|
end
|
|
|
act 'Return':gs 'din_bad', 'd_bag'
|
|
|
'</td></tr></table></center>'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$d_tabletkiedt = {
|
|
|
+$d_tabletkiedt = "gs 'din_bad', 'd_tabletkiedt'"
|
|
|
+if $ARGS[0] = 'd_tabletkiedt':
|
|
|
*clr & cla
|
|
|
'<center><h1>Birth Control</h1></center>'
|
|
|
if mc_inventory['desk'] = 0:
|
|
|
@@ -488,9 +502,9 @@ $d_tabletkiedt = {
|
|
|
tabloc = 1
|
|
|
if thinkpreg = 0 and knowpreg = 0:
|
|
|
if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1 & dynamic $d_tabletkiedt">Take the birth control pill now.</a>'
|
|
|
-
|
|
|
+
|
|
|
if tabletkicheck = 0:
|
|
|
- if birth_control['remind_hour'] = 0:
|
|
|
+ if birth_control['remind_hour'] = 0:
|
|
|
'<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Set a reminder to take your birth control pills.</a>'
|
|
|
else
|
|
|
'<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Change your birth control reminder.</a>'
|
|
|
@@ -504,9 +518,10 @@ $d_tabletkiedt = {
|
|
|
'<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
|
|
|
if tabletkioddk = 1: '<a href="exec:*clr & dynamic $d_tabletkieda, 5 & dynamic $d_tabletkiedt">Dump the strange pills.</a>'
|
|
|
act 'Return':gt 'stol', 'bc'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$d_tabletkieda = {
|
|
|
+$d_tabletkieda = "gs 'din_bad', 'd_tabletkieda'"
|
|
|
+if $ARGS[0] = 'd_tabletkieda':
|
|
|
if ARGS[0] = 1:
|
|
|
tabletkipd += tabletkipt
|
|
|
if tabletkiday ! daystart:
|
|
|
@@ -561,7 +576,7 @@ $d_tabletkieda = {
|
|
|
tabletkioddp = 0
|
|
|
gs 'stat'
|
|
|
end
|
|
|
-
|
|
|
+
|
|
|
if mc_inventory['contraceptive_pill'] = 0 and pillsleft[ptype] = 0:
|
|
|
msg 'That was your last birth control pill. You need to buy some more.'
|
|
|
end
|
|
|
@@ -571,7 +586,7 @@ $d_tabletkieda = {
|
|
|
else
|
|
|
act 'Return':gt 'stol', 'bc'
|
|
|
end
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
if $ARGS[0] = 'set_auto_bc':
|
|
|
:invalid_auto_bc_loop
|
|
|
@@ -616,7 +631,8 @@ if $ARGS[0] = 'turn_off_bc_reminder':
|
|
|
end
|
|
|
end
|
|
|
|
|
|
-$d_cycreport_choice = {
|
|
|
+$d_cycreport_choice = "gs 'din_bad', 'd_cycreport_choice'"
|
|
|
+if $ARGS[0] = 'd_cycreport_choice':
|
|
|
*clr & cla
|
|
|
'<center><h1>Fertility Cycle</h1></center>'
|
|
|
'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
|
|
|
@@ -663,9 +679,10 @@ $d_cycreport_choice = {
|
|
|
end
|
|
|
act 'Exit':gs 'stat' & gt $loc, $loc_arg
|
|
|
'</td></tr></table></center>'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$d_cycreport_actor = {
|
|
|
+$d_cycreport_actor = "gs 'din_bad', 'd_cycreport_actor'"
|
|
|
+if $ARGS[0] = 'd_cycreport_actor':
|
|
|
!! Svetlana has decided she is not pregnant
|
|
|
if ARGS[0] = 1:
|
|
|
$cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
|
|
|
@@ -686,7 +703,7 @@ $d_cycreport_actor = {
|
|
|
dynamic $d_cycreport_update
|
|
|
gs 'stat'
|
|
|
dynamic $d_cycreport_choice
|
|
|
- !! Svetlana is Menstrating.
|
|
|
+ !! Svetlana is Menstrating.
|
|
|
elseif ARGS[0] = 3:
|
|
|
thinkpreg = 0
|
|
|
denypreg = 0
|
|
|
@@ -694,7 +711,7 @@ $d_cycreport_actor = {
|
|
|
dynamic $d_cycreport_update
|
|
|
gs 'stat'
|
|
|
dynamic $d_cycreport_choice
|
|
|
- !! Svetlana is remembering her last period.
|
|
|
+ !! Svetlana is remembering her last period.
|
|
|
elseif ARGS[0] = 4:
|
|
|
thinkpreg = 0
|
|
|
denypreg = 0
|
|
|
@@ -737,7 +754,7 @@ $d_cycreport_actor = {
|
|
|
'<center><h1>Fertility Cycle</h1></center>'
|
|
|
'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
|
|
|
'<td width="500" cellspacing="0" cellpadding="0" valign="top">'
|
|
|
-
|
|
|
+
|
|
|
potfather_temp[1] = arrsize('$wombpotfath')
|
|
|
if potfather_temp[1] > 0:
|
|
|
potfather_counter = 0
|
|
|
@@ -754,16 +771,16 @@ $d_cycreport_actor = {
|
|
|
else
|
|
|
'There are no potential fathers.'
|
|
|
end
|
|
|
-
|
|
|
+
|
|
|
killvar 'potfather_counter'
|
|
|
killvar 'potfather_temp'
|
|
|
-
|
|
|
+
|
|
|
'<br> <a href="exec:dynamic $d_cycreport_choice & gs ''stat''">Accept</a>'
|
|
|
'</td></tr></table></center>'
|
|
|
-
|
|
|
+
|
|
|
act 'Return':dynamic $d_cycreport_choice
|
|
|
act 'Exit':gs 'stat' & gt $loc, $loc_arg
|
|
|
-
|
|
|
+
|
|
|
!! This is the old code that was broken, keeping it for now (julzor)
|
|
|
!! {
|
|
|
tempmax = arrsize('$cumfthname')-1
|
|
|
@@ -807,9 +824,10 @@ $d_cycreport_actor = {
|
|
|
$cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
|
|
|
gs 'stat'
|
|
|
end
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$d_cycreport_update = {
|
|
|
+$d_cycreport_update = "gs 'din_bad', 'd_cycreport_update'"
|
|
|
+if $ARGS[0] = 'd_cycreport_update':
|
|
|
killvar 'temp'
|
|
|
if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
|
|
|
!! Vagblood in a future update to account for babydamage and miscarrages.
|
|
|
@@ -840,7 +858,7 @@ $d_cycreport_update = {
|
|
|
elseif birth_control['implant_status'] > 1 and pillcon2 >= 30000:
|
|
|
$cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>Your implant protects you from getting pregnant.</font>'
|
|
|
elseif birth_control['implant_status'] > 1 and pillcon2 < 30000:
|
|
|
- $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=red>Your implant is not yet effective.</font>'
|
|
|
+ $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=red>Your implant is not yet effective.</font>'
|
|
|
elseif pillcon2 > 0 and birth_control['think_safe'] = 1:
|
|
|
$cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>You are currently on the birth control pill.</font>'
|
|
|
elseif pillcon2 > 0 and ((FocH > (Foch_Max - 96)) or ovulate > 0) and birth_control['think_safe'] = 0 and birth_control['using_bc'] > 0:
|
|
|
@@ -929,24 +947,25 @@ $d_cycreport_update = {
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
|
|
|
-$d_cycreport_upduedate = {
|
|
|
+$d_cycreport_upduedate = "gs 'din_bad', 'd_cycreport_upduedate'"
|
|
|
+if $ARGS[0] = 'd_cycreport_upduedate':
|
|
|
!! implant_calc: Calculation of an implantation date in the uterus (Average is 5 days after ovulation)
|
|
|
implant_calc = daystart - lastovulation + 5
|
|
|
-
|
|
|
+
|
|
|
!! Human gastation period: 280 days
|
|
|
gastation_time = 280 / (1 + cheatVars['preg_speed'])
|
|
|
-
|
|
|
+
|
|
|
temp = gastation_time - implant_calc
|
|
|
pregdueday = day
|
|
|
pregduemonth = month
|
|
|
pregdueyear = year
|
|
|
-
|
|
|
+
|
|
|
temp += pregdueday
|
|
|
pregdueday = 0
|
|
|
-
|
|
|
+
|
|
|
:pregduedateloop
|
|
|
if pregduemonth = 1 and temp > 31:
|
|
|
pregduemonth += 1
|
|
|
@@ -1017,9 +1036,10 @@ $d_cycreport_upduedate = {
|
|
|
$pregduedate += 'Dec'
|
|
|
end
|
|
|
$pregduedate += ' <<pregdueyear>>'
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
-$d_pregmovement = {
|
|
|
+$d_pregmovement = "gs 'din_bad', 'd_pregmovement'"
|
|
|
+if $ARGS[0] = 'd_pregmovement':
|
|
|
if denypreg = 0 and pregchem > 0:
|
|
|
if thinkpreg > 0 and knowpreg = 0:
|
|
|
knowpreg = 1
|
|
|
@@ -1077,7 +1097,7 @@ $d_pregmovement = {
|
|
|
'You feel movement deep inside you. It''s probably just gas.'
|
|
|
end
|
|
|
end
|
|
|
-}
|
|
|
+end
|
|
|
|
|
|
|
|
|
if $ARGS[0] = 'takepill':
|
|
|
@@ -1143,7 +1163,7 @@ if $ARGS[0] = 'takepill':
|
|
|
pcs_skin += 1
|
|
|
EggRH += rand(10,80)
|
|
|
end
|
|
|
-
|
|
|
+
|
|
|
!!pillcon2 is the ideal state, PC considers this the believed pillcon value
|
|
|
pillcon2 += ((pillcon2 + 15000) / 25) + 4000
|
|
|
if pillcon2 > 40000: pillcon2 = 40000
|
|
|
@@ -1164,7 +1184,7 @@ if $ARGS[0] = 'quick_takepill':
|
|
|
pcs_health -= 1
|
|
|
end
|
|
|
pilldaychk = daystart
|
|
|
-
|
|
|
+
|
|
|
if birth_control['message_skip'] ! daystart:
|
|
|
if mc_inventory['contraceptive_pill'] = 0 and pillsleft[ptype] = 0:
|
|
|
msg 'That was your last birth control pill. You need to buy some more.'
|
