# din_bad $mobile_check = { gs 'stat' if vladimirday ! daystart and hour >= 15 and hour <= 17: if vladimirQW = 20: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/characters/city/vladimir/001.jpg' gs 'telefon','phone_ring' pl'
' elseif vladimirQW = 25 and week = 6: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/characters/city/vladimir/001.jpg' gs 'telefon','phone_ring' pl'
' elseif vladimirQW = 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/'+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' } $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 cumloc[15] > 0: 'Wipe your breasts clean' if cumloc[0] > 0 or cumloc[1] > 0 or cumloc[3] > 0 or cumloc[4] > 0: '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: 'Remove your makeup' '
Put tissues away
' '
' } $d_kosmetitka = { *clr & cla '

Cosmetics

' '
> src="<>">
' '
' '
' gs 'stat' if kosmetitka >= 1: 'Light make-up' if kosmetitka >= 2: 'Natural make-up' if kosmetitka >= 3: 'Heavy make-up' act 'Close makeup bag':gs 'stat' & gs 'din_bad', 'd_bag' '
' } $d_mouthwash = { *clr & cla '

Mouth Wash

' '
> src="<>">
' '
' '
' pcs_breath = 1 cumspclnt = 2 gs 'cum_cleanup' 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 '

Purse

' '
> src="<>">
' '
' '
' if salfetka > 0: 'You have <> wet wipes left in your purse. Use a tissue' if pain_timer > totminut - 242 and painkiller > 0: 'Take a painkiller. <> painkillers left in your purse.' if kosmetitka > 0 and pcs_makeup = 1: 'There''s a portable makeup in your purse. <> cosmetic applications left. Put on makeup' if kosmetitka > 0 and pcs_makeup ! 1: 'There''s a portable makeup in your purse. <> cosmetic applications left.' if mouthwash > 0 and (pcs_breath = 0 or cumloc[12] = 1): 'There''s a mouthwash in your purse. <> uses remaining. Use mouthwash' if mouthwash > 0 and pcs_breath = 1 and cumloc[12] = 0: 'There''s a mouthwash in your purse. <> uses remaining.' if greben > 0 and pcs_hairbsh = 0: 'There''s a hairbrush in your purse. Brush your hair' if greben > 0 and pcs_hairbsh = 1: 'There''s a hairbrush in your purse. Your hair doesn''t need brushing right now.' if prezik + prezikcount + preziksabo > 0: if preziktype = 2 or preziksabo > 0: 'You have <> normal condoms left, and <> sabotaged condoms left in the purse.' elseif preziktype < 2 and preziksabo = 0: 'You have <> condoms left in the purse.' end *nl else 'You are out of condoms.' end if amphetamine > 0: 'You have <> tablets of amphetamine left in your purse. Take One' if tabletki > 0 and pillsleft[ptype] > 0: 'You have <> unopened packages of birth control pills and <> pills left in your opened package.' elseif tabletki = 0 and pillsleft[ptype] > 0: 'You have <> birth control pills left in your purse.' elseif tabletki > 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 mentats_have > 0:'Use a neurobooster pill in your purse. There are <> pills left. The warning label says not to take more than one per day.' if steroid_have > 0:'Use steroids. You have <> steroids left in your purse.' if bcream_have > 0:'Apply breast cream. You have <> cream left in your purse.' if aphrodisiac_have > 0:'Chew aphrodisiac gum. You have <> gum left in your purse.' if lubri > 0:'There''s a tube of lubricant in your purse, enough for <> applications.' if bottle > 0: 'There''s a bottle of water in your purse. Drink' if buterbrod > 0: 'There''s a sandwich in your purse. Eat' if wine = 1 and alkowine = 0:'There''s a bottle of wine in your purse.' if 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: iif(used_pattest > 1,$tt = 's',$tt = '') 'You have <> unused paternity test<<$tt>> in your purse.' end if used_pattest > 0: iif(used_pattest > 1,$tt = 's',$tt = '') 'You have <> used paternity test<<$tt>> in your purse.' end killvar 'tt' act 'Return':gt 'obj_din', 'menu_exit' '
' end $dinalkowin1 = { *clr & cla alkowine = 1 if pcs_hydra >= 100: pcs_hydra -= 5 else pcs_hydra -= 10 end if pcs_intel > 5 : intel_deg -= 1 alko += 5 cumspclnt = 2 gs 'cum_cleanup' pcs_breath = 0 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 if pcs_hydra >= 100: pcs_hydra -= 5 else pcs_hydra -= 10 end wine = 0 if pcs_intel > 5: intel_deg -= 1 alko += 5 cumspclnt = 2 gs 'cum_cleanup' pcs_breath = 0 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 prezikcount > 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 prezikcount > 0 or preziktype = 0: 'Sabotage a condom.' end *nl act 'Return':gt 'stol', 'bc' } !! Condom System !! prezik: Total number of condoms sveta is using (normal or damaged). !! prezikcount: Number of normal condoms sveta isn''t using. !! preziksabo: Number of damaged condoms seveta isn''t using. !! preziktyp: 0 - Use condoms / 1 - don''t use condoms / 2 - use damaged condoms !! to check if sveta wants to use a condom use if prezik > 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: preziksabo = prezik prezik = prezikcount prezikcount = 0 preziktype = 0 elseif ARGS[0] = 2: 'You will not use a condom the next time you have sex.' if preziktype = 0: prezikcount = prezik if preziktype = 2: preziksabo = prezik prezik = 0 preziktype = 1 elseif ARGS[0] = 3: 'Use your sabotaged condom the next time you have sex.' if preziktype = 0: prezikcount = prezik prezik = preziksabo preziksabo = 0 preziktype = 2 elseif ARGS[0] = 4: if preziktype ! 0 and prezikcount > 0: preziksabo +=1 prezikcount -=1 'You use a needle to punch holes in one of the condoms.' elseif preziktype = 0 and prezik > 0: preziksabo +=1 prezik -=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 prezik + prezikcount + preziksabo > 0: prezikmsg = 1 if preziktype = 0: if prezikcount > 0: prezik += prezikcount prezikcount = 0 end if prezik <= 0: 'You are out of condoms.' prezik = 0 prezikcount = 0 preziktype = 1 end elseif preziktype = 1: if prezik > 0: prezikcount += prezik prezik = 0 end elseif preziktype = 2: if preziksabo > 0: prezik += preziksabo preziksabo = 0 end if prezik <= 0 and prezikcount <= 0: if prezikmsg = 1:prezikmsg = 2 prezik = 0 preziksabo = 0 prezikcount = 0 preziktype = 1 elseif prezik <= 0 and prezikcount > 0: 'You have run out of sabotaged condoms so you will have to use normal condoms.' prezik = prezikcount prezikcount = 0 preziktype = 0 end end } $d_tabletkied = { *clr & cla '

Birth Control

' '
> src="<>">
' '
' '
' tabloc = 0 if tabletkiday < daystart: 'Take the birth control pill now.' if tabletkicheck = 0: 'Automatically take your birth control pills.' elseif tabletkicheck = 1: 'Stop automatically taking your birth control pills.' end 'Examine the birth control pills.' if tabletkioddk = 1: 'Dump the strange pills.' act 'Return':gs 'din_bad', 'd_bag' '
' } $d_tabletkiedt = { *clr & cla '

Birth Control

' '
> src="images/shared/home/bedroom/stol.jpg">
' *nl tabloc = 1 if tabletkiday < daystart: 'Take the birth control pill now.' if tabletkicheck = 0: 'Automatically take your birth control pills.' elseif tabletkicheck = 1: 'Stop automatically taking your birth control pills.' end 'Examine the birth control pills.' if tabletkioddk = 1: 'Dump the strange pills.' act 'Return':gt 'stol', 'bc' } $d_tabletkieda = { cla 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 = 1 *clr dynamic $d_tabletkied 'You take the birth control pill.' gs 'stat' elseif ARGS[0] = 2: 'You will do your best to remember to take your birth control pills every day.' tabletkicheck = 1 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 + pillsdays <= rand(30,95): '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 tabloc = 0: act 'Return':gs 'din_bad', 'd_bag' else act 'Return':gt 'stol', 'bc' end } $d_cycreport_choice = { *clr & cla '

Fertility Cycle

' '
' '
' dynamic $d_cycreport_update '
Current Status:
' '
<<$cycreport_txt>>
' '
' if $cycreport_txt ! 'In labour': '
Change Status because:
' if thinkpreg = 0: if knowpreg = 1: 'I''m pregnant.' else 'I think I''m pregnant.' end elseif thinkpreg = 1: 'I''m not pregnant.' 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 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, $metka '
' } $d_cycreport_actor = { if ARGS[0] = 1: if knowpreg = 1: denypreg = 1 thinkpreg = 0 else denypreg = 0 thinkpreg = 0 temp[1] = daystart - daylastperiod end dynamic $d_cycreport_update gs 'stat' dynamic $d_cycreport_choice elseif ARGS[0] = 2: thinkpreg = 1 denypreg = 0 dynamic $d_cycreport_update gs 'stat' dynamic $d_cycreport_choice elseif ARGS[0] = 3: thinkpreg = 0 denypreg = 0 daylastperiod = daystart dynamic $d_cycreport_update gs 'stat' dynamic $d_cycreport_choice 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, $metka '
' elseif ARGS[0] = 5: thinkpreg = 0 denypreg = 0 $cycreport_txt = 'You do not believe you have periods any more.' gs 'stat' dynamic $d_cycreport_choice 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, $metka '
' elseif ARGS[0] = 7: *clr & cla '

Fertility Cycle

' '
' '
' 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' '
Accept' act 'Return':dynamic $d_cycreport_choice act 'Exit':gs 'stat' & gt $loc, $metka '
' 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 if mesec > 0: $cycreport_txt = 'You are currently on your period.' else if cyccustom = 1: if preg = 1 and knowpreg = 1: $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.' if $wombthfath ! 'unknown': $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.' 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-lastmens if tabletkishot > 0: $cycreport_txt = 'It has been <> days since you last had a period. You are currently protected by a birth control shot.' elseif pillcon2 > 30000: $cycreport_txt = 'It has been <> days since you last had a period. You are currently on the birth control pill.' elseif pillcon2 > 8000 and ((FocH > (Foch_Max - 96)) or ovulate > 0): $cycreport_txt = 'It has been <> days since you last had a period. You are currently on the pill but it is not yet effective. It is currently a dangerous day.' elseif pillcon2 > 8000: $cycreport_txt = 'It has been <> days since you last had a period. You are currently on the pill but it is not yet effective.' elseif daystart = tabletkiday: $cycreport_txt = 'It has been <> days since you last had a period. You have taken the pill but it will be several weeks before it is fully effective.' elseif FocH > (Foch_Max - 96) or ovulate > 0: $cycreport_txt = 'It has been <> days since you last had a period. It is currently your fertile stage.' else $cycreport_txt = 'It has been <> days since you last had a period.' 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-lastmens $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 ! 'You do not believe you have periods any more.': temp = daystart-lastmens $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 = '<> / <> / <>' } $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 } $use_mentats = { if mentats_dose < 3: 'You swallow the pill.' mentats_dose += 1 mentats_have -= 1 else 'You really shouldn''t take any more pills today.' end } $use_steroids = { if steroid_dose < 3: 'You swallow the orange pill.' steroid_dose += 1 steroid_counter += 1 steroid_have -= 1 else 'You really shouldn''t take any more pills today.' end } $use_amphetamines = { if amphIntake < 2: 'You swallow the white pill.' amphIntake += 1 amphetamine -=1 amphHigh = 12 else 'Your heart is already beating uncontrollably in your chest, you should avoid taking anymore pills.' end } $use_bcream = { if bcream_used < 1: 'You smear the cream onto your breasts and rub it in.' bcream_used = 1 bcream_have -= 1 else 'Using any more cream won''t have any effect.' end } $use_aphrodisiac = { if aphrodisiac_overdose = 1: 'You''ve had enough for today.' elseif aphrodisiac_timer = 0: 'You take a gum and chew it. It tastes like strawberry, but is also kind of spicy.' aphrodisiac_have -= 1 aphrodisiac_timer += 8 pcs_horny = 80 elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8: 'You take another gum and chew it. It makes your mouth feel kinda tingly.' aphrodisiac_have -= 1 aphrodisiac_timer += 8 pcs_horny = 100 elseif aphrodisiac_timer > 8 and min_arousal < 60: 'You take yet another gum and start chewing it. Suddenly you find yourself in grip of an intense orgasm!
It goes on and on and you sink to the ground and do your best to endure it.
' aphrodisiac_have -= 1 orgasm += 1 min_arousal += 10 aphrodisiac_overdose = 1 if min_arousal = 10:'That was intense! You can still feel the tingles.' if min_arousal = 20:'You are really starting to enjoy these! Your crotch still feels kinda hot though.' if min_arousal = 30:'As you are trying to get back to your feet you notice that you are still horny. What is happening to you?' if min_arousal = 40:'You are certain of it. Every time those gums give you an orgasm they also increase your libido.' if min_arousal = 50:'You run a finger across your slit and shudder. You really should stop chewing these gums while you can still think of something other than sex.' if min_arousal = 60:'You are burning up. You feel like you could fuck anything and everything all day long.' else 'You chew another gum with trepidation, looking forward to more orgasms but nothing happens. Huh. Have you become immune?' aphrodisiac_have -= 1 end } if $ARGS[0] = 'takepill': if tabletki > 0 and pillsleft[ptype] = 0: tabletkirand = rand(1, tabletki) if tabletkirand <= tabletkiold: tabletki -=1 tabletkiold -=1 ptype = 1 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake: tabletki -=1 tabletkifake -=1 ptype = 2 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej: tabletki -=1 tabletkirej -=1 ptype = 3 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug: tabletki -=1 tabletkisug -=1 ptype = 4 pillsleft[ptype] = 28 elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert: tabletki -=1 tabletkifert -=1 ptype = 5 pillsleft[ptype] = 28 else tabletki -=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: !!pillcon2 is the ideal state, PC cosiders this the believed pillcon value pillcon2 += ((pillcon2+15000)/40)+1000 if pillcon2 > 40000:pillcon2 = 40000 if ptype = 0: pillsleft[ptype] -= 1 pcs_skin += 1 pillcon += ((pillcon+15000)/40)+1000 if pillcon > 40000: pillcon = 40000 elseif ptype = 1: pillsleft[ptype] -= 1 pcs_skin += rand(0,1) pillcon += ((pillcon+15000)/40)+ rand(250,1000) if pillcon > 40000: pillcon = 40000 elseif ptype = 2: pillsleft[ptype] -= 1 pcs_skin += rand(0,1) pillcon += ((pillcon+15000)/40)+ rand(0,500) if pillcon > 40000: pillcon = 40000 elseif ptype = 3: pillsleft[ptype] -= 1 pcs_skin += rand(0,1) if rand(0,4) = 0: pain['tummy'] += rand(5,10) pillcon += ((pillcon+15000)/40)+ rand(250,2000) if pillcon > 40000: pillcon = 40000 elseif ptype = 4: pillsleft[ptype] -= 1 elseif ptype = 5: pillsleft[ptype] -= 1 pcs_skin += 1 EggRH += rand(10,80) end end end --- din_bad ---------------------------------