# din_bad !2021/05/02 $mobile_check = { if menu_off = 0: gs 'stat' if vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17: if vladimirQW['stage'] = 20: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/characters/city/vladimir/001.jpg' gs 'telefon','phone_ring' pl'
' elseif vladimirQW['stage'] = 25 and week = 6: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/characters/city/vladimir/001.jpg' gs 'telefon','phone_ring' pl'
' elseif vladimirQW['stage'] = 35 and week = 6: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/characters/city/vladimir/001.jpg' gs 'telefon','phone_ring' pl'
' end end if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0: 'Your phone is ringing' $caller = 'Leonid Vostov' $callerid = 'images/characters/pavlovsk/resident/leonid/leonidphone.jpg' gs 'telefon','phone_ring' pl'
' end if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12: 'Your phone is ringing' $caller = 'Margaret' $callerid = '' gs 'telefon','phone_ring' pl'' pl'' pl'' pl'' pl'' pl'' pl'' pl'' pl'' pl'' '
' end !! iterating all lovers lover_number = 0 :loverloop if pcs_lovers[lover_number] = 1 and loverday[lover_number] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) > 5: if pcs_apprnc < vneshlover[lover_number]: loverrelation[lover_number] -= 1 if loverrelation[lover_number] = 0: 'Your lover hasn''t been calling you lately, they''ve probably grown tired of you.' else 'Your lover <<$loverdesc[lover_number]>> has not called you.' end else ring = 1 ringA = 1 'Your phone is ringing' PLAY 'sound/old_phone.mp3',30 $caller = '<<$loverdesc[lover_number]>>' $callerid = 'images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg' gs 'telefon','phone_ring' pl'
' end end lover_number += 1 if lover_number < arrsize('pcs_lovers'): jump 'loverloop' killvar 'lover_number' end } $d_salf = { *clr & cla '

Tissues

' '
> src="<>">
' '
' '
' if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0: 'Wipe your face and hands clean' if cumloc[14] > 0: 'Wipe your belly clean' if FUNC('Cum_Manage', 'check_private', 15) = 1 and cumloc[15] > 0: 'Wipe your breasts clean' if FUNC('Cum_Manage', 'check_private') = 1 and (cumloc[1] + cumloc[4] > 0 or FUNC('Cum_Manage', 'check_innards', 0) = 1 or FUNC('Cum_Manage', 'check_innards', 3) = 1): 'Wipe your ass and pussy clean' if cumloc[10] > 0 or cumloc[9] > 0: 'Wipe your arms and legs clean' if cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0: 'Clean your clothing' if pcs_makeup ! 1 and cosmetic_tattoo = 0: 'Remove your makeup' '
Put tissues away
' '
' } $d_mouthwash = { *clr & cla '

Mouth Wash

' '
> src="<>">
' '
' '
' cumspclnt = 2 gs 'cum_cleanup' pcs_breath = 1 mc_inventory['mouthwash'] -= 1 gs 'stat' 'Your breath smells minty fresh.' '' act 'Done':gs 'stat' & gs 'din_bad', 'd_bag' '
' } if $ARGS[0] = 'd_bag': *clr & cla $BACKIMAGE = '' gs 'stat' '

Purse

' '
> src="<>">
' '
' '
' if mc_inventory['makeup_wipes'] > 0: 'You have <> wet wipes left in your purse. Use a tissue' if mc_inventory['painkillers'] > 0 and pain['total'] > 0 and pain['killer'] = 0: 'You have <> painkiller'+iif(mc_inventory['painkillers'] > 1, 's ', ' ')+'left in your purse. Take One' elseif mc_inventory['painkillers'] > 0 and (pain['total'] = 0 or pain['killer'] > 0): 'You have <> 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): 'There''s mouthwash in your purse. <> uses remaining. Use mouthwash' elseif mc_inventory['mouthwash'] > 0 and pcs_breath = 1 and cumloc[12] = 0: 'There''s mouthwash in your purse. <> uses remaining.' end if mc_inventory['travel_mirror'] = 1: 'You have a compact mirror 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 lip balm' 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.' end if mc_inventory['deodorant'] > 0 and deodorant_on = 0: 'There''s deodorant in your purse. <> uses remaining.' elseif mc_inventory['deodorant'] > 0 and deodorant_on = 1: 'You are already wearing deodorant. <> uses remaining.' elseif mc_inventory['deodorant'] = 0 and deodorant_on = 0: 'You are not wearing deodorant. <> uses remaining.' elseif mc_inventory['deodorant'] = 0 and deodorant_on = 1: 'You are already wearing deodorant. <> uses remaining.' end !! Hair options *nl if (mc_inventory['travel_mirror'] = 1 or mc_inventory['comb'] = 1) and pcs_hairbsh = 0: 'There''s a hairbrush in your purse. Brush your hair' 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_hairlng > 80 and mc_inventory['scrunchies'] >= 1 and hbraids = 0: if hscrunchw = 0 and hpingripw = 0: 'As you have a scrunchy, you can arrange your hair into a ponytail. You have <> scrunchies left.' if hscrunchw = 1: 'Remove the scrunchie to get rid of the ponytail.' end if pcs_hairlng > 80 and pcs_hairlng <= 400 and mc_inventory['kirbygrips'] >= 1 and hbraids = 0: if hscrunchw = 0 and hpingripw = 0: 'You have several clips, pins and grips for you hair. Hence, you can updo your hair. You have <> hair accessories at your disposal.' if hpingripw = 1: 'Let your hair flow free.' end if pcs_hairlng > 80 and pcs_hairlng <= 800 and mc_inventory['scrunchies'] >= 2 and hbraids = 0: if hscrunchw = 0 and hpingripw = 0: 'You can use two hair ties to make yourself some pigtails.' if hscrunchw = 2: 'Remove your scrunchies and let your hair flow free again.' end *nl if mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0: if preziktype = 2 or mc_inventory['sabotaged_condoms'] > 0: 'You have <> normal condoms left, and <> sabotaged condoms left in your purse.' elseif preziktype < 2 and mc_inventory['sabotaged_condoms'] = 0: 'You have <> condoms left in your purse.' end else 'You are out of condoms.' end if mc_inventory['lubricant'] > 0: 'You have <> squirts of lubricant available' if auto_anal_lube = 0: 'Automatically use for anal sex: No' else 'Automatically use for anal sex: Yes' end if auto_vag_lube = 0: 'Automatically use for vaginal sex: No' else 'Automatically use for vaginal sex: Yes' end end if FUNC('Cum_Manage', 'check_private') = 1: dynamic $toymanage if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0: act 'Manage your piercings': gt 'piercing_management', 'main' end *nl if mc_inventory['amphetamine'] > 0: 'You have <> tablets of amphetamine left in your purse. Take One' if mc_inventory['joints'] > 0: 'You have enough weed for <> joints.' if mc_inventory['contraceptive_pill'] > 0 and pillsleft[ptype] > 0: 'You have <> unopened packages of birth control pills and <> pills left in your opened package.' elseif mc_inventory['contraceptive_pill'] = 0 and pillsleft[ptype] > 0: 'You have <> birth control pills left in your purse.' elseif mc_inventory['contraceptive_pill'] > 0 and pillsleft[ptype] = 0: 'You have <> unopened packages of birth control pills in your purse.' else 'You are out of birth control pills.' end if mc_inventory['morning_after_pill'] > 0: if mc_inventory['morning_after_pill'] = 1: 'You have one morning after pill.' else 'You have <> morning after pills.' end else 'You have no morning after pills.' end if mc_inventory['mentats'] > 0 and drugVars['mentats_dose'] < 3: 'Use a neurobooster pill in your purse. There are <> pills left. The warning label says not to take more than one per day.' elseif mc_inventory['mentats'] > 0: 'There are <> neurobooster pills left. You really shouldn''t take any more pills today.' end if mc_inventory['steroids'] > 0:'Use steroids. You have <> steroids left in your purse.' if mc_inventory['breastcream'] > 0:'Apply breast cream. You have <> cream left in your purse.' if mc_inventory['aphrodisiac'] > 0:'Chew aphrodisiac gum. You have <> gum left in your purse.' if mc_inventory['refill_bottle'] = 4: 'You carry your sports water bottle in your purse. It''s still completely full. Drink' elseif mc_inventory['refill_bottle'] = 3: 'You carry your sports water bottle in your purse. It''s two-thirds full. Drink' elseif mc_inventory['refill_bottle'] = 2: 'You carry your sports water bottle in your purse. It''s one-third full. Drink' elseif mc_inventory['refill_bottle'] = 1: 'You carry your sports water bottle in your purse. It''s empty.' end if mc_inventory['food_water'] > 0: 'There''s a bottle of water in your purse. Drink' if mc_inventory['food_sandwich'] > 0: 'There''s a sandwich in your purse. Eat' if mc_inventory['strapon'] = 1 and strapnumber = 0: 'You have a strapon harness in your purse, but you don''t have a dildo attached to it'+iif(mc_inventory['dildo_small'] + mc_inventory['dildo_normal'] + mc_inventory['dildo_big'] + mc_inventory['dildo_large'] + mc_inventory['dildo_huge'] + mc_inventory['dildo_enormous'] + mc_inventory['dildo_gigantic'] > 0, '. You keep your dildos in your desk at home.', ', because you don''t own one.') elseif mc_inventory['strapon'] = 1 and strapnumber ! 0: 'You have a strapon harness in your purse and a <<(strapnumber +1)*5>>cm attached to it.' end if mc_inventory['food_wine'] = 1 and alkowine = 0:'There''s a bottle of wine in your purse.' if mc_inventory['food_wine'] = 1 and alkowine = 1:'There''s a half-bottle of wine in your purse.' if foto = 1:'Your purse contains a strange photo' if pattest > 0: 'You have <> unused paternity test'+iif(used_pattest > 1, 's ', ' ')+'in your purse.' if used_pattest > 0: 'You have <> used paternity test'+iif(used_pattest > 1, 's ', ' ')+'in your purse.' *nl if $pursepantytype ! '' or $pursebratype ! '': 'You also have '+iif($pursepantytype ! '','a pair of panties','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','a bra','')+' in your purse, which you can put on in the nearest bathroom.' if photographyEv >= 2: 'You have a camera in your purse.' act 'Return':gt 'obj_din', 'menu_exit' '
' end $dinalkowin1 = { *clr & cla alkowine = 1 minut += 5 gs 'drugs', 'alcohol', 'wine' gs'stat' '
> src="images/shared/food/alkowin.jpg">
' *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' } $dinalkowin2 = { *clr & cla alkowine = 0 mc_inventory['food_wine'] = 0 minut += 5 gs 'drugs', 'alcohol', 'wine' gs'stat' '
> src="images/shared/food/alkowin.jpg">
' *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' } $din_Switch_Condom_Menu = { dynamic $din_Update_Condom_Counts *clr & cla '

Condoms

' '
> src="<>">
' '
' '
' i = 0 'You have <> normal condoms left and <> sabotaged condoms left.' *nl if preziktype > 0: 'Switch to using normal condoms.' end if preziktype ! 1: 'Stop using condoms.' end if preziktype ! 2: 'Switch to using sabotaged condoms.' end if mc_inventory['normal_condoms'] > 0 or preziktype = 0: 'Sabotage a condom.' end *nl act 'Return':gs 'din_bad', 'd_bag' '
' } $din_Table_Condom_Menu = { dynamic $din_Update_Condom_Counts *clr & cla '

Condoms

' '
> src="images/shared/home/bedroom/stol.jpg">
' *nl i = 1 'You have <> normal condoms left and <> sabotaged condoms left.' *nl if preziktype > 0: 'Switch to using normal condoms.' end if preziktype ! 1: 'Stop using condoms.' end if preziktype ! 2: 'Switch to using sabotaged condoms.' end if mc_inventory['normal_condoms'] > 0 or preziktype = 0: 'Sabotage a condom.' end *nl act 'Return':gt 'stol', 'bc' } !! Condom System !! mc_inventory['equipped_condoms']: Total number of condoms sveta is using (normal or damaged). !! mc_inventory['normal_condoms']: Number of normal condoms sveta isn''t using. !! mc_inventory['sabotaged_condoms']: Number of damaged condoms seveta isn''t using. !! 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 = { *clr & cla '

Condoms

' '
> src="<>">
' '
' '
' if ARGS[0] = 1: 'Use a condom the next time you have sex.' if preziktype = 2: mc_inventory['sabotaged_condoms'] = mc_inventory['equipped_condoms'] mc_inventory['equipped_condoms'] = mc_inventory['normal_condoms'] mc_inventory['normal_condoms'] = 0 preziktype = 0 elseif ARGS[0] = 2: 'You will not use a condom the next time you have sex.' if preziktype = 0: mc_inventory['normal_condoms'] = mc_inventory['equipped_condoms'] if preziktype = 2: mc_inventory['sabotaged_condoms'] = mc_inventory['equipped_condoms'] mc_inventory['equipped_condoms'] = 0 preziktype = 1 elseif ARGS[0] = 3: 'Use your sabotaged condom the next time you have sex.' if preziktype = 0: mc_inventory['normal_condoms'] = mc_inventory['equipped_condoms'] mc_inventory['equipped_condoms'] = mc_inventory['sabotaged_condoms'] mc_inventory['sabotaged_condoms'] = 0 preziktype = 2 elseif ARGS[0] = 4: if preziktype ! 0 and mc_inventory['normal_condoms'] > 0: mc_inventory['sabotaged_condoms'] +=1 mc_inventory['normal_condoms'] -= 1 'You use a needle to punch holes in one of the condoms.' elseif preziktype = 0 and mc_inventory['equipped_condoms'] > 0: mc_inventory['sabotaged_condoms'] +=1 mc_inventory['equipped_condoms'] -= 1 'You use a needle to punch holes in one of the condoms.' else 'You do not have any condoms to sabotage.' end end if i = 0: dynamic $din_Switch_Condom_Menu else dynamic $din_Table_Condom_Menu end '
' } $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: mc_inventory['equipped_condoms'] += mc_inventory['normal_condoms'] mc_inventory['normal_condoms'] = 0 end if mc_inventory['equipped_condoms'] <= 0: 'You are out of condoms.' mc_inventory['equipped_condoms'] = 0 mc_inventory['normal_condoms'] = 0 preziktype = 1 end elseif preziktype = 1: if mc_inventory['equipped_condoms'] > 0: mc_inventory['normal_condoms'] += mc_inventory['equipped_condoms'] mc_inventory['equipped_condoms'] = 0 end elseif preziktype = 2: if mc_inventory['sabotaged_condoms'] > 0: mc_inventory['equipped_condoms'] += mc_inventory['sabotaged_condoms'] mc_inventory['sabotaged_condoms'] = 0 end if mc_inventory['equipped_condoms'] <= 0 and mc_inventory['normal_condoms'] <= 0: if prezikmsg = 1:prezikmsg = 2 mc_inventory['equipped_condoms'] = 0 mc_inventory['sabotaged_condoms'] = 0 mc_inventory['normal_condoms'] = 0 preziktype = 1 elseif mc_inventory['equipped_condoms'] <= 0 and mc_inventory['normal_condoms'] > 0: 'You have run out of sabotaged condoms so you will have to use normal condoms.' mc_inventory['equipped_condoms'] = mc_inventory['normal_condoms'] mc_inventory['normal_condoms'] = 0 preziktype = 0 end end } $d_tabletkied = { *clr & cla '

Birth Control

' '
> src="<>">
' '
' '
' tabloc = 0 if thinkpreg = 0 and knowpreg = 0: if tabletkiday < daystart: 'Take the birth control pill now.' if tabletkicheck = 0: if birth_control['remind_hour'] = 0: 'Set a reminder to take your birth control pills.' else 'Change your birth control reminder.' 'Turn off your birth control reminder.' end 'Automatically take your birth control pills.' elseif tabletkicheck = 1 and therapistFuckedPussyStage < 2: 'Stop automatically taking your birth control pills.' end end 'Examine the birth control pills.' if tabletkioddk = 1: 'Dump the strange pills.' *nl if birth_control['placebo_skip'] = 0: 'Skip your placebo pills.' '(Will cause you to no longer menstruate)' else 'Start taking your placebo pills again.' '(Will cause periods to start back up again in your menstrual cycle)' end act 'Return':gs 'din_bad', 'd_bag' '
' } $d_tabletkiedt = { *clr & cla '

Birth Control

' '
> src="images/shared/home/bedroom/stol.jpg">
' *nl tabloc = 1 if thinkpreg = 0 and knowpreg = 0: if tabletkiday < daystart: 'Take the birth control pill now.' if tabletkicheck = 0: if birth_control['remind_hour'] = 0: 'Set a reminder to take your birth control pills.' else 'Change your birth control reminder.' 'Turn off your birth control reminder.' end 'Automatically take your birth control pills.' elseif tabletkicheck = 1 and therapistFuckedPussyStage < 2: 'Stop automatically taking your birth control pills.' end end 'Examine the birth control pills.' if tabletkioddk = 1: 'Dump the strange pills.' act 'Return':gt 'stol', 'bc' } $d_tabletkieda = { if ARGS[0] = 1: tabletkipd += tabletkipt if tabletkiday ! daystart: gs 'din_bad','takepill' tabletkiday = daystart tabletkipt = 0 tabletkipi = 0 else pcs_health -= 1 end pilldaychk = daystart *clr dynamic $d_tabletkied 'You take your birth control pill.' gs 'stat' elseif ARGS[0] = 2: birth_control['remind_hour'] = 0 gs 'din_bad', 'set_auto_bc' 'You will do your best to remember to take your birth control pills every day.' gs 'stat' elseif ARGS[0] = 3: 'You will take your birth control pills as you desire.' tabletkicheck = 0 gs 'stat' elseif ARGS[0] = 4: if pcs_intel + pilldays <= rand(30,95) or therapistFuckedPussyStage > 1: 'These pills appear to be normal birth control pills.' tabletkioddk = 0 gs 'stat' else if ptype = 0: $pillprob = 'nothing unusual about them.' if ptype = 1: $pillprob = 'that the pills have expired months ago.' if ptype = 2: $pillprob = 'that the label has spelling mistakes and the logo is backwards.' if ptype = 3: $pillprob = 'that the pills are discolored and there is no expiry date.' if ptype = 4: $pillprob = 'that the pills are all the same color.' if ptype = 5: $pillprob = 'that the pills seem to be smaller than normal.' 'Upon taking a closer look at your birth control pills, you notice <<$pillprob>>' if ptype > 0: tabletkioddk = 1 gs 'stat' if tabloc = 0: act 'Return':gs 'din_bad', 'd_bag' else act 'Return':gt 'stol', 'bc' end end elseif ARGS[0] = 5: 'You get rid of the strange pills.' tabletkioddk = 0 pillsleft[ptype] = 0 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 if tabloc = 0: act 'Return':gs 'din_bad', 'd_bag' else act 'Return':gt 'stol', 'bc' end } if $ARGS[0] = 'set_auto_bc': :invalid_auto_bc_loop birth_control['auto_hour'] = input ("When do you want to take your pill? (Pick an hour 1 - 23. At that hour, you will automatically take your birth control pill. If you are asleep during the hour you set, you will not take it.)") if birth_control['auto_hour'] < 1 or birth_control['auto_hour'] > 23: msg 'Invalid input. Pick an hour between 1 and 23.' jump 'invalid_auto_bc_loop' else tabletkicheck = 1 msg 'You set a reminder on your phone to take your birth control pill at <>.' if tabloc = 0: dynamic $d_tabletkied else dynamic $d_tabletkiedt end end end if $ARGS[0] = 'set_bc_reminder': :invalid_bc_reminder_loop birth_control['remind_hour'] = input ("When do you want to set your reminder? (Pick an hour 1 - 22. An icon will appear in the stat display during that hour to remind you to take your pill.)") if birth_control['remind_hour'] < 1 or birth_control['remind_hour'] > 22: msg 'Invalid reminder input. Pick an hour between 1 and 22.' jump 'invalid_bc_reminder' else msg 'You set a reminder on your phone to take your birth control pill at <>.' if tabloc = 0: dynamic $d_tabletkied else dynamic $d_tabletkiedt end end end if $ARGS[0] = 'turn_off_bc_reminder': birth_control['remind_hour'] = 0 msg 'You turn off your reminder to take your birth control pills.' if tabloc = 0: dynamic $d_tabletkied else dynamic $d_tabletkiedt end end $d_cycreport_choice = { *clr & cla '

Fertility Cycle

' '
' '
' dynamic $d_cycreport_update '
Current Status:
' '
<<$cycreport_txt>>
' '
' if $cycreport_txt ! 'In labour' and succubusflag = 0: '
Change Status because:
' if thinkpreg = 0: if knowpreg = 1: 'I''m pregnant.' 'I can''t be pregnant no matter the evidence.' else 'I think I''m pregnant.' end elseif thinkpreg = 1: if knowpreg = 1: 'I can''t be pregnant no matter the evidence.' else 'I''m not pregnant.' end end if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1: 'I''m menstruating.' elseif thinkpreg ! 1: 'I just recently menstruated.' 'I think my menstrual cycle has stopped.' end if thinkpreg = 1 or knowpreg = 1: 'I think my due date is...' 'I think the father is...' end if knowpregloss = 1: 'I just had an abortion.' elseif knowpregloss > 1 or thinkpreg = 1: 'I think I lost a baby.' end elseif cycle = 5: 'Broken water and contractions, it''s pretty clear what is going on. You need to get to a hospital ASAP.' else dynamic $d_cycreport_actor, 10 end act 'Exit':gs 'stat' & gt $loc, $loc_arg '
' } $d_cycreport_actor = { !! Svetlana has decided she is not pregnant if ARGS[0] = 1: $cycreport_txt = 'It has been <> days since you last remember having a period.' if knowpreg = 1: denypreg = 1 thinkpreg = 0 else denypreg = 0 thinkpreg = 0 end dynamic $d_cycreport_update gs 'stat' dynamic $d_cycreport_choice !! Svetlana has decided she is pregnant. elseif ARGS[0] = 2: thinkpreg = 1 denypreg = 0 dynamic $d_cycreport_update gs 'stat' dynamic $d_cycreport_choice !! Svetlana is Menstrating. elseif ARGS[0] = 3: thinkpreg = 0 denypreg = 0 daylastperiod = daystart dynamic $d_cycreport_update gs 'stat' dynamic $d_cycreport_choice !! Svetlana is remembering her last period. elseif ARGS[0] = 4: thinkpreg = 0 denypreg = 0 *clr & cla '

Fertility Cycle

' '
' '
' 'How many days ago was it you had your last period?' 'Currently: <>' '+1 +5 +10 Reset Accept' act 'Return':dynamic $d_cycreport_choice act 'Exit':gs 'stat' & gt $loc, $loc_arg '
' !! Svetlana thinks she doesn''t have periods anymore. Good birth control has this effect (as does pregnancy.) elseif ARGS[0] = 5: if knowpreg = 1: denypreg = 1 else denypreg = 0 end thinkpreg = 0 $cycreport_txt = 'You do not believe you have periods any more.' gs 'stat' dynamic $d_cycreport_choice !! Svetlana is trying to figure out her due date. elseif ARGS[0] = 6: *clr & cla '

Fertility Cycle

' '
' '
' 'How many days ago was it you had your last period?' 'Currently: <>' '+1 +5 +10 Reset Accept' act 'Return':dynamic $d_cycreport_choice act 'Exit':gs 'stat' & gt $loc, $loc_arg '
' !! Svetlana is trying to guess who is the babydaddy. elseif ARGS[0] = 7: *clr & cla '

Fertility Cycle

' '
' '
' potfather_temp[1] = arrsize('$wombpotfath') if potfather_temp[1] > 0: potfather_counter = 0 'List of potential fathers:' :potfather_loop if $wombpotfath[potfather_counter] ! 'unknown': $potfather_temp[2] = '<<$npc_usedname[$wombpotfath[potfather_counter]]>> (<<$wombpotfath[potfather_counter]>>)' else $potfather_temp[2] = 'Unknown (-)' end 'Potential father (<>): <<$potfather_temp[2]>>' potfather_counter += 1 if potfather_counter < arrsize('$wombpotfath'): jump 'potfather_loop' else 'There are no potential fathers.' end killvar 'potfather_counter' '
Accept' '
' 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 tempcurr = 0 sumcum = 0 *nl :potfathloop if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot' if cumtime[tempcurr] > 0: '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <> <<$cum>>' & sumcum += cumtime[tempcurr] if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop' if sumcum > 1:$cum = 's' else $cum = '' '
You think you have had <> load<<$cum>> of cum shot<<$cum>> in your womb altogether that could have gotten you pregnant.' 'You suspect the father being: <<$wombthfath>>
' *nl tempcurr = 0 :pickfathloop if cumtime[tempcurr] > 0: if $npc_usedname[$cumfthname[tempcurr]] <> '': '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)' else ' Unknown (-)' end end if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop' killvar 'sumcum' killvar 'cum' killvar 'tempmax' killvar 'tempcurr' } !! Just recently lost a baby to abortion, miscarriage, or think you did because your period finally arrived. elseif ARGS[0] = 8: thinkpreg = 0 $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.' dynamic $d_cycreport_update gs 'stat' dynamic $d_cycreport_choice !! Just recently gave birth. elseif ARGS[0] = 10: temp = arrsize('Babyptype') temp -= 1 $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <> / <> / <>.' gs 'stat' end } $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. if mesec > 0 or vagblood > 0: $cycreport_txt = 'You are currently menstruating.' elseif succubusflag = 1: $cycreport_txt = 'As a succubus you no longer menstruate.' else if cyccustom = 1: if preg = 1 and knowpreg = 1: $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.' if $wombthfath <> 'unknown' and $wombthfath <> '': $cycreport_txt = '<<$cycreport_txt>> You suspect the father being <<$wombthfath>>.' end elseif knowpregloss = 1: $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your abortion.' elseif knowpregloss = 2: $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.' elseif knowpregrecover = 1: $cycreport_txt = 'Your body is recovering from the trauma of childbirth.' elseif menoage <= age and cycle = 6: $cycreport_txt = 'You have gone through menopause.' else temp[1] = daystart-daylastperiod if tabletkishot > 0: $cycreport_txt = 'It has been <> days since the start of your last period. You are currently protected by a birth control shot.' elseif birth_control['implant_status'] > 1 and pillcon2 >= 30000: $cycreport_txt = 'It has been <> days since the start of your last period. Your implant protects you from getting pregnant.' elseif birth_control['implant_status'] > 1 and pillcon2 < 30000: $cycreport_txt = 'It has been <> days since the start of your last period. Your implant is not yet effective.' elseif pillcon2 > 0 and birth_control['think_safe'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. You are currently on the birth control pill.' elseif pillcon2 > 0 and ((FocH > (Foch_Max - 96)) or ovulate > 0) and birth_control['think_safe'] = 0 and birth_control['using_bc'] > 0: $cycreport_txt = 'It has been <> days since the start of your last period. You are currently on the pill but it is not yet effective. It is currently your fertile stage and a dangerous day to have unprotected sex.' elseif pillcon2 > 0 and birth_control['think_safe'] = 0 and birth_control['using_bc'] > 0: if stat['safe_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. You are currently on the pill but it is not yet effective. Today is a safe day to have unprotected sex.' elseif birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. You are currently on the pill but it is not yet effective. Today is probably a safe day to have unprotected sex.' elseif birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. You are currently on the pill but it is not yet effective. Today is a dangerous day to have unprotected sex.' end elseif daystart = tabletkiday: if stat['safe_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. You have taken the pill but it will be several weeks before it is fully effective. Today is a safe day to have unprotected sex.' elseif birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. You have taken the pill but it will be several weeks before it is fully effective. Today is probably a safe day to have unprotected sex.' elseif birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. You have taken the pill but it will be several weeks before it is fully effective. Today is a dangerous day to have unprotected sex.' end elseif FocH > (Foch_Max - 96) or ovulate > 0: $cycreport_txt = 'It has been <> days since the start of your last period. It is currently your fertile stage.' elseif birth_control['implant_status'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. Your implant stopped working. You need a new one.' elseif birth_control['think_safe'] ! 1 and stat['safe_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. Today is a safe day to have unprotected sex.' elseif birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. Today is probably a safe day to have unprotected sex.' elseif birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1: $cycreport_txt = 'It has been <> days since the start of your last period. Today is a dangerous day to have unprotected sex.' else $cycreport_txt = 'It has been <> days since the start of your last period.' end !!{ if stat['vaginal'] > 0 and birth_control['think_safe'] ! 1 and stat['safe_day'] = 1: $calendar_method_txt = 'It has been <> days since the start of your last period. Today is a safe day to have unprotected sex.' elseif stat['vaginal'] > 0 and birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1: $calendar_method_txt = 'It has been <> days since the start of your last period. You are unlikely to get pregnant if you have unprotected sex today.' elseif stat['vaginal'] > 0 and birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1: $calendar_method_txt = 'It has been <> days since the start of your last period. Today is a safe day to have unprotected sex.' end} end elseif denypreg = 1: if pregchem < 525: denypreg = 1 thinkpreg = 0 $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.' elseif pregchem < 1863: denypreg = 1 thinkpreg = 0 $cycreport_txt = 'You have a strange flu making you feel ill.' elseif pregchem < 4000: denypreg = 1 thinkpreg = 0 $cycreport_txt = 'Your strange flu still hasn''t gone away. As soon as it does you plan to exercise and lose the excess fat you''be been building up.' elseif pregchem < 6000: denypreg = 1 thinkpreg = 0 $cycreport_txt = 'Your weight just won''t come off...' elseif pregchem < 7500: denypreg = 1 thinkpreg = 0 $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!' elseif pregchem >= 7500: thinkpreg = 0 $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.' else temp = daystart-daylastperiod $cycreport_txt = 'It has been <> days since you last remember having a period.' end elseif cyccustom = 0: if $cycreport_txt ! 'In labour': if thinkpreg = 1 or knowpreg = 1: if knowpreg = 0: $temp = ' think you' if $wombthfath = 'unknown' or $wombthfath = '': $cycreport_txt = 'You<<$temp>> are pregnant. You aren''t yet sure who the father is. Based on your last remembered period, your due date is probably around <<$pregduedate>>.' else $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.' end elseif $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.': if knowpregloss = 1: $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your abortion.' elseif $cycreport_txt ! 'You do not believe you have periods any more.': temp = daystart-daylastperiod $cycreport_txt = 'It has been <> days since you last remember having a period.' end killvar 'temp' end end end } $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 + pregspeedcheat) temp = gastation_time - implant_calc pregdueday = day pregduemonth = month pregdueyear = year temp += pregdueday pregdueday = 0 :pregduedateloop if pregduemonth = 1 and temp > 31: pregduemonth += 1 temp -= 31 elseif pregduemonth = 2 and temp > 28: pregduemonth += 1 temp -= 28 elseif pregduemonth = 3 and temp > 31: pregduemonth += 1 temp -= 31 elseif pregduemonth = 4 and temp > 30: pregduemonth += 1 temp -= 30 elseif pregduemonth = 5 and temp > 31: pregduemonth += 1 temp -= 31 elseif pregduemonth = 6 and temp > 30: pregduemonth += 1 temp -= 30 elseif pregduemonth = 7 and temp > 31: pregduemonth += 1 temp -= 31 elseif pregduemonth = 8 and temp > 31: pregduemonth += 1 temp -= 31 elseif pregduemonth = 9 and temp > 30: pregduemonth += 1 temp -= 30 elseif pregduemonth = 10 and temp > 31: pregduemonth += 1 temp -= 31 elseif pregduemonth = 11 and temp > 30: pregduemonth += 1 temp -= 30 elseif pregduemonth = 12 and temp > 31: pregduemonth = 1 pregdueyear += 1 temp -= 31 else pregdueday = temp temp = 0 end if temp > 0: jump 'pregduedateloop' $pregduedate = '<> ' if pregduemonth = 1: $pregduedate += 'Jan' elseif pregduemonth = 2: $pregduedate += 'Feb' elseif pregduemonth = 3: $pregduedate += 'Mar' elseif pregduemonth = 4: $pregduedate += 'Apr' elseif pregduemonth = 5: $pregduedate += 'May' elseif pregduemonth = 6: $pregduedate += 'Jun' elseif pregduemonth = 7: $pregduedate += 'Jul' elseif pregduemonth = 8: $pregduedate += 'Aug' elseif pregduemonth = 9: $pregduedate += 'Sep' elseif pregduemonth = 10: $pregduedate += 'Oct' elseif pregduemonth = 11: $pregduedate += 'Nov' elseif pregduemonth = 12: $pregduedate += 'Dec' end $pregduedate += ' <>' } $d_pregmovement = { if denypreg = 0 and pregchem > 0: if thinkpreg > 0 and knowpreg = 0: knowpreg = 1 if kid <= 0: 'Your heart flutters as you feel a baby moving around inside you for the first time.' else 'The movement inside you confirms what you already suspected. You are pregnant once again.' end elseif knowpreg > 0: temprand = rand(0,2) if temprand = 0: if pregchem > 5000: 'Your baby visibly moves around inside you.' else 'You feel movement deep inside you as your baby shifts around.' end elseif temprand = 1: if pregchem > 5000: 'You wince as your baby delivers a vicious kick to your insides.' else 'You feel your baby kicking.' end elseif temprand = 2: if pregchem > 5000: 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.' else 'You feel your baby kicking.' end end else if cyccustom = 1: if pregchem < 4000: if kid <= 0 : 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should see the doctor?' else 'It feels as if a baby is moving inside you. Are you pregnant?' end else knowpreg = 1 if kid <= 0: 'It''s become pretty obvious. You are pregnant.' else 'It''s become pretty obvious. You are pregnant once again.' end end end end elseif pregchem > 0: if kid > 0 and PregChem > 3903: 'You try to deny it, but you just can''t any more. The large belly, the movement, you are pregnant once again.' denypreg = 0 dynamic $d_cycreport_upduedate $cycreport_txt = 'You are pregnant.' else 'You feel movement deep inside you. It''s probably just gas.' end end } if $ARGS[0] = 'takepill': birth_control['using_bc'] = 3 if mc_inventory['contraceptive_pill'] > 0 and pillsleft[ptype] = 0: tabletkirand = rand(1, mc_inventory['contraceptive_pill']) if tabletkirand <= tabletkiold: mc_inventory['contraceptive_pill'] -= 1 tabletkiold -= 1 ptype = 1 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake: mc_inventory['contraceptive_pill'] -= 1 tabletkifake -= 1 ptype = 2 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej: mc_inventory['contraceptive_pill'] -= 1 tabletkirej -= 1 ptype = 3 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug: mc_inventory['contraceptive_pill'] -= 1 tabletkisug -= 1 ptype = 4 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert: mc_inventory['contraceptive_pill'] -= 1 tabletkifert -= 1 ptype = 5 pillsleft[ptype] = 28 else mc_inventory['contraceptive_pill'] -= 1 ptype = 0 pillsleft[ptype] = 28 end killvar 'tabletkirand' end !! added empty week to allow menstruation - it take effect only when the pills are taken automatically !! if placebopart <= 0 or tabletkicheck ! 1: if placebopart <= 0 or birth_control['placebo_skip'] = 1: if ptype = 0: pillsleft[ptype] -= 1 pcs_skin += 1 pillcon += ((pillcon + 15000) / 25) + 4000 elseif ptype = 1: pillsleft[ptype] -= 1 pcs_skin += rand(0,1) pillcon += (( pillcon+ 15000) / 25)+ rand(2000,4000) elseif ptype = 2: pillsleft[ptype] -= 1 pcs_skin += rand(0,1) pillcon += ((pillcon + 15000) / 25)+ rand(500,2000) elseif ptype = 3: pillsleft[ptype] -= 1 pcs_skin += rand(0,1) if rand(0,4) = 0: pain['tummy'] += rand(5,10) pillcon += ((pillcon + 15000) / 25)+ rand(2000,6000) elseif ptype = 4: pillsleft[ptype] -= 1 elseif ptype = 5: pillsleft[ptype] -= 1 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 if pillcon > 40000: pillcon = 40000 gs 'fertility', 'update' end end if $ARGS[0] = 'quick_takepill': tabletkipd += tabletkipt if tabletkiday ! daystart: gs 'din_bad','takepill' tabletkiday = daystart tabletkipt = 0 tabletkipi = 0 else 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.' else msg 'You take your birth control pill.' end end gs 'stat' end if $ARGS[0] = 'p_deodorant': minut += 1 mc_inventory['deodorant'] -= 1 gs 'sweat', 'deo' gs 'stat' gs 'din_bad', 'd_bag' end --- din_bad ---------------------------------