# din_bad $mobile_check = { if vladimirday ! daystart and hour >= 15 and hour <= 17: if vladimirQW = 20: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/qwest/vladimir/001' dynamic $phone_ring pl'
' elseif vladimirQW = 25 and week = 6: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/qwest/vladimir/001' dynamic $phone_ring pl'
' elseif vladimirQW = 35 and week = 6: 'Your phone is ringing' $caller = 'Vladimir' $callerid = 'images/qwest/vladimir/001' dynamic $phone_ring pl'
' end end if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12: 'Your phone is ringing' $caller = 'Margaret' $callerid = '' dynamic $phone_ring pl'' pl'' pl'' pl'' pl'' pl'' pl'' pl'' pl'' pl'' pl'
' end if bfA > 0 and boydayA ! daystart and hour > 5 and hour < 20 and ringA = 0: if bfB = 1:bfB = 0 if bfC = 1:bfC = 0 if vnesh < vneshBoyA: bfA -= 1 if bfA = 0: 'Your guy does not call you, he probably dumped you.' else 'Your boyfriend <<$boyA>> has not called you.' end else ring = 1 ringA = 1 'Your phone is ringing' PLAY 'sound/Old_Phone.mp3',30 $caller = '<<$boyA>>' $callerid = 'images/pic/boy_face/'+boypicA+'.jpg' dynamic $phone_ring pl'
' end elseif bfB > 0 and boydayB ! daystart and hour > 5 and hour < 20 and ringB = 0: if bfA = 1:bfA = 0 if bfC = 1:bfC = 0 if vnesh < vneshBoyB: bfB -= 1 if bfB = 0: 'Your guy does not call you, he probably dumped you.' else 'Your boyfriend <<$boyB>> has not called you.' end else ring = 1 ringB = 1 'Your phone is ringing' PLAY 'sound/Old_Phone.mp3',30 $caller = '<<$boyB>>' $callerid = 'images/pic/boy_face/'+boypicB+'.jpg' dynamic $phone_ring pl'
' end elseif bfC > 0 and boydayC ! daystart and hour > 5 and hour < 20 and ringC = 0: if bfA = 1:bfA = 0 if bfB = 1:bfB = 0 if vnesh < vneshBoyC: 'Your boyfriend <<$boyC>> has not called you.' bfC -= 1 if bfC = 0: 'Your guy does not call you, he probably dumped you.' else 'Your boyfriend <<$boyC>> has not called you.' end else ring = 1 ringC = 1 'Your phone is ringing' PLAY 'sound/Old_Phone.mp3',30 $caller = '<<$boyC>>' $callerid = 'images/pic/boy_face/'+boypicC+'.jpg' dynamic $phone_ring pl'
' end end } $phone_ring ={ clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
<<$caller>> calling
' pl'

' pl'' pl'' pl'' pl'' ! pl'
' } $phone_call_receive = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Talking to <<$caller>>
' pl'

' } $phone_balance = { if balans < 4: clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Not enough credit on your account
' pl'

' pl'
' wait 3500 cla gt $locM, $metkaM elseif balans >= 4: balans -= 4 end } $Phone_call = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Calling Mom
' pl'

' pl'
' wait 1500 minut += 1 $callerid = 'images/pic/phone/icons/icon_npc1.png' dynamic $phone_balance $callerid = 'icon_npc1' dynamic $phone_call_reject } $phone_call_reject = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Calling....
' pl'

' pl'
' } $Phone_megafon = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Bullhorn
' pl'

' pl'
The balance in the account: <> .
.' pl'
' } $Phone_contactlist = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Contacts
' pl'

' if StoryLine = 1:pl'
..................................................Call
' if hour >= 8 and hour <= 19: if telalla > 0: pl'
..................................................Call
' end if telmasha > 0: pl'
..................................................Call
' end if telkat > 0: pl'
..................................................Call
' end if bfA > 0 and svidanieA = 0: pl'
..................................................Call
' end else if telalla > 0: pl'
..................................................Call
' end if telmasha > 0: pl'
..................................................Call
' end if telkat > 0: pl'
..................................................Call
' end if bfA > 0 and svidanieA = 0: pl'
..................................................Call
' end end if nastjaqw > 0: pl'
..................................................Call
' end pl'
' } $Phone_pictures = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Gallery
' pl'

' if phone_selfie[1] = 1:pl'Photo number1' if phone_selfie[2] = 1:pl'Photo number2' if vanr_selfie[0] = 1:pl'Self after showering number1' if vanr_selfie[1] = 1:pl'Self after showering number2' if vanr_selfie[2] = 1:pl'Self after showering number3' if vanr_selfie[3] = 1:pl'Self after showering number4' if vanr_selfie[4] = 1:pl'Self after showering number5' if vanr_selfie[5] = 1:pl'Self after showering number6' if vanr_selfie[6] = 1:pl'Self after showering number7' if vanr_selfie[7] = 1:pl'Self after showering number8' if vanr_selfie[8] = 1:pl'Self after showering number9' if vanr_selfie[9] = 1:pl'Self after showering number10' if vanr_selfie[10] = 1:pl'Self after showering number11' if vanr_selfie[11] = 1:pl'Self after showering number12' if vanr_selfie[12] = 1:pl'Self after showering number13' if vanr_selfie[13] = 1:pl'Self after showering number14' if vanr_selfie[14] = 1:pl'Self after showering number15' if vanr_selfie[15] = 1:pl'Self after showering number16' if vanr_selfie[16] = 1:pl'Self after showering number17' if vanr_selfie[17] = 1:pl'Self after showering number18' if vanr_selfie[18] = 1:pl'Self after showering number19' if vanr_selfie[19] = 1:pl'Self after showering number20' !if vanr_selfie[20] = 1:pl'Self after showering number21' if vanr_selfie[21] = 1:pl'Self after showering number22' if vanr_selfie[22] = 1:pl'Self after showering number23' if vanr_selfie[23] = 1:pl'Self after showering number24' if vanr_selfie[24] = 1:pl'Self after showering number25' if vanr_selfie[25] = 1:pl'Self after showering number26' if vanr_selfie[26] = 1:pl'Self after showering number27' if vanr_selfie[27] = 1:pl'Self after showering number28' if vanr_selfie[28] = 1:pl'Self after showering number29' if vanr_selfie[29] = 1:pl'Self after showering number30' if vanr_selfie[30] = 1:pl'Self after showering number31' if vanr_selfie[31] = 1:pl'Self after showering number32' if vanr_selfie[32] = 1:pl'Self after showering number33' if vanr_selfie[33] = 1:pl'Self after showering number34' if vanr_selfie[34] = 1:pl'Self after showering number35' if vanr_selfie[35] = 1:pl'Self after showering number36' if vanr_selfie[36] = 1:pl'Self after showering number37' if vanr_selfie[37] = 1:pl'Self after showering number38' if vanr_selfie[38] = 1:pl'Self after showering number39' !if phone_selfie[m] = 1:pl'Photo in sperm number1' !if phone_selfie[n] = 1:pl'Photo in sperm number2' !if phone_selfie[x] = 1:pl'Photo Event number1' !if phone_selfie[y] = 1:pl'Photo Event number2' pl'
' } $Phone_camera_selfie = { if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan' and mirror_steam = hour: minut += RAND (5,7) phone_rand = RAND (0,38) vanr_selfie[phone_rand] = 1 dynamic $Phone_pictures view 'images/pic/phone/selfie/ero_selfie/vanr/s (<>).jpg' else minut += RAND (5,7) phone_rand = RAND (1,2) phone_selfie[phone_rand] = 1 dynamic $Phone_pictures view 'images/pic/phone/selfie/phone_selfie<>.jpg' end !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart) !view 'images/pic/phone/phone_selfie<>.jpg' } $Phone_camera = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Camera
' pl'

' pl'Make Self' pl'
' } $Phone_wheather = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Weather
' pl'

' pl'
Temperature: <> degrees Celsius. <<$osadki>>
.' pl'
' } $Phone_calendar = { clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
Calendar
' pl'

' pl'
Today: <<$week>>, <> <<$month>> <> year.
' pl'
' } $Phone_menu = { gs'stat' clr if hour < 10: if minut > 9:pl'
0<> : <>
' if minut < 10:pl'
0<> : 0<>
' elseif hour > 9: if minut > 9:pl'
<> : <>
' if minut < 10:pl'
<> : 0<>
' end pl'

' pl'
' pl'
' pl'
' pl'
' } $d_salf = { clr if sparrloc[13] > 0 or sparrloc[11] > 0 or sparrloc[16] > 0:pl 'Wipe your face and hands' if sparrloc[14] > 0:pl 'Wipe clean your belly' if sparrloc[15] > 0:pl 'Wipe clean your breasts' if sparrloc[1] > 0 or sparrloc[4] > 0:pl 'Wipe clean your ass and pussy' if sparrloc[10] > 0 or sparrloc[9] > 0:pl 'Wipe clean your arms and legs' if sparrloc[2] > 0 or sparrloc[5] > 0 or sparrloc[6] > 0 or sparrloc[7] > 0:pl 'Clean up clothing' if mop ! 1:pl 'Wipe cosmetics' pl '
Not using tissue
' } $d_kosmetitka = { clr pl 'Close makeup bag' if kosmetitka >= 1:pl 'Light make-up' if kosmetitka >= 2:pl 'Natural make-up' if kosmetitka >= 3:pl 'Heavy make-up' } $d_mouthwash = { clr fbreath = 1 cumspclnt = 2 gs 'cum_cleanup' mouthwash -= 1 pl 'Your breath smells minty fresh' pl '' pl 'Done' } $d_bag = { clr pl'

' if salfetka > 0:pl 'You have <> wet wipes. Use tissue' if kosmetitka > 0 and mop = 1:pl 'You have portable makeup bag. Cometic applications left <>. Put on makeup' if kosmetitka > 0 and mop ! 1:pl 'You have portable makeup bag. Cometic applications left <>.' if mouthwash > 0 and fbreath = 0:pl 'You have mouthwash in your bag. Uses remaining: <>. Use mouthwash' if mouthwash > 0 and fbreath = 1:pl 'You have mouthwash in your bag. Uses remaining: <>.' if greben > 0 and hapri = 0:pl 'You have a hairbrush. Brush your hair' if greben > 0 and hapri = 1:pl 'You have a hairbrush.' if prezik + prezikcount + preziksabo > 0: if preziktype = 2 or preziksabo > 0: P 'You have <> normal, and <> sabotaged condoms.' elseif preziktype < 2 and preziksabo = 0: P 'You have <> condoms.' END NL else pl 'You are out of condoms.' end if tabletki > 0: pl 'You have <> birth control pills.' else pl 'You are out of birth control pills.' end if lubri > 0:pl'Do you have lubricant. Enough for <> time.' if bottle > 0:pl 'You have a bottle of water. Drink' if buterbrod > 0:pl 'You have a sandwich. Eat' if wine = 1 and alkowine = 0:pl'Your purse contains a bottle of wine' if wine = 1 and alkowine = 1:pl'Your purse contains a half-bottle of wine' if foto = 1:pl'Your purse contains a strange photo' pl 'Phone' pl'
' pl'
Return
' } $dinalkowin1 = { cla *clr alkowine = 1 if water <= 90: water = 100 else water += 10 end if intel > 5 : intel -= 1 alko += 5 cumspclnt = 2 gs 'cum_cleanup' fbreath = 0 gs'stat' '
' 'You opened her purse and pulled out, laid up in it, a bottle of wine and slowly drank half.' act '...':gt $CURLOC } $dinalkowin2 = { cla *clr alkowine = 0 if water <= 90: water = 100 else water += 10 end wine = 0 if intel > 5: intel -= 1 alko += 5 cumspclnt = 2 gs 'cum_cleanup' fbreath = 0 gs'stat' '
' 'You opened her purse and pulled out, the remaining half bottle of wine and drank slowly threw the empty bottle.' act '...':gt $CURLOC } $din_Switch_Condom_Menu = { dynamic $din_Update_Condom_Counts clr i = 0 pl 'You have <> normal, <> sabotaged condoms.' nl if preziktype > 0: PL 'Switch to Normal Condoms.' end if preziktype ! 1: PL 'Stop using Condoms.' end if preziktype ! 2: PL 'Switch to Sabotaged Condoms.' end if prezikcount > 0 or preziktype = 0: pl 'Sabotage a condom.' end NL PL 'Return' } $din_Table_Condom_Menu = { dynamic $din_Update_Condom_Counts *clr i = 1 'You have <> normal, <> sabotaged condoms.' nl if preziktype > 0: 'Switch to Normal Condoms.' end if preziktype ! 1: 'Stop using Condoms.' end if preziktype ! 2: 'Switch to Sabotaged Condoms.' end if prezikcount > 0 or preziktype = 0: 'Sabotage a condom.' end NL 'Return' } $din_Do_Condom_Counts = { !{set condom count and type} if ARGS[0] = 1: clr 'You will offer 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 offer 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: 'You will offer 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 your condoms.' elseif preziktype = 0 and prezik > 0: preziksabo +=1 prezik -=1 'You use a needle to punch holes in one of your 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 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: 'You are out of condoms.' prezik = 0 preziksabo = 0 prezikcount = 0 preziktype = 1 elseif prezik <= 0 and prezikcount > 0: 'You have run out of sabotaged condoms so will use normal condoms.' prezik = prezikcount prezikcount = 0 preziktype = 0 end end } $d_tabletkied = { clr tabloc = 0 if tabletkiday < daystart: pl 'Take a pill now.' if tabletkicheck = 0: pl 'Automatically take your pills.' elseif tabletkicheck = 1: pl 'Stop automatically taking your pills.' end pl 'Examine the birth control pills.' if tabletkioddk = 1: pl 'Dump the strange pills.' PL 'Return' } $d_tabletkiedt = { tabloc = 1 if tabletkiday < daystart: 'Take a pill now.' if tabletkicheck = 0: 'Automatically take your pills.' elseif tabletkicheck = 1: 'Stop automatically taking your pills.' end 'Examine the birth control pills.' if tabletkioddk = 1: pl 'Dump the strange pills.' 'Return' } $d_tabletkiedA = { if ARGS[0] = 1: tabletkipd += tabletkipt tabletki -= 1 if tabletkiday ! daystart: pillcon += 1000+(pillcon+15000)/40 if pillcon > 40000: pillcon = 40000 tabletkiday = daystart tabletkipt = 0 tabletkipi = 0 else health -= 1 end 'You take a 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 desired.' tabletkicheck = 0 gs 'stat' elseif ARGS[0] = 4: if tabletkioddp <= 0: 'These pills appear to be normal birth control pills.' tabletkioddk = 0 gs 'stat' else if Tabletki <= 30: 'There is something unusual about the pills. They do not look normal.' else 'There is something unusual about some of your pills. They do not look normal.' end tabletkioddk = 1 gs 'stat' if tabloc = 0: dynamic $d_tabletkied else dynamic $d_tabletkiedt end end elseif ARGS[0] = 5: 'You get rid of the strange pills.' tabletkioddk = 0 tabletki -= 30 tabletkioddp = 0 if tabletki < 0: tabletki = 0 end gs 'stat' end if tabloc = 0: dynamic $d_tabletkied else dynamic $d_tabletkiedt end } $d_cycreport_choice = { clr dynamic $d_cycreport_update PL 'Current Status: <<$cycreport_txt>>.' if $cycreport_txt ! 'In labour': NL PL 'Change Status because:' if thinkpreg = 0: if knowpreg = 1: PL 'I''m pregnant.' else PL 'I think I am Pregnant.' end elseif thinkpreg = 1: PL 'I''m not Pregnant.' end if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1: PL 'I''m menstruating.' elseif thinkpreg ! 1: PL 'I just recently menstruated.' PL 'I think my menstrual cycle has stopped.' end if thinkpreg = 1 or knowpreg = 1: PL 'I think my due date is...' PL 'I think the Father is...' end elseif cycle = 5: pl 'Broken water and contractions, it''s pretty clear what is going on. Labour. You need to get to a hospital ASAP.' else dynamic $d_cycreport_actor, 10 end PL 'Return' } $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' elseif ARGS[0] = 2: thinkpreg = 1 denypreg = 0 dynamic $d_cycreport_update gs 'stat' elseif ARGS[0] = 3: thinkpreg = 0 denypreg = 0 daylastperiod = daystart dynamic $d_cycreport_update gs 'stat' elseif ARGS[0] = 4: thinkpreg = 0 denypreg = 0 clr pl 'How many days ago was your last period?' pl 'Currently: <>' pl '+1 +5 +10 Reset Accept' elseif ARGS[0] = 5: thinkpreg = 0 denypreg = 0 $cycreport_txt = 'You do not believe you have periods any more.' gs 'stat' elseif ARGS[0] = 6: clr pl 'How many days ago was your last period?' pl 'Currently: <>' pl '+1 +5 +10 Reset Accept' elseif ARGS[0] = 7: temp = arrsize('$wombpotfath') if temp <= 0: $wombpotfath[0] = 'Unknown' FathpotAdd = 1 Fathpotcheck = 0 temp = arrsize('$cumarrnam') :potfakefathaddLoop if temp > Fathpotcheck: if cumarrkno[Fathpotcheck] = 1: $wombpotfath[Fathpotadd] = $cumarrnam[Fathpotcheck] Fathpotadd += 1 end Fathpotcheck += 1 Jump 'potfakefathaddloop' end temp = arrsize('$wombpotfath') end pl '<<$wombpotfath[temp]>>' :cyccustfathchoice if temp => 0: pl '<<$wombpotfath[temp]>>' temp -= 1 jump 'cyccustfathchoice' end 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 = { if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate 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 think the father is <<$wombthfath>>' 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: $cycreport_txt = 'You have gone through menopause.' else temp[1] = daystart-daylastperiod $cycreport_txt = 'It has been <> days since you last had a period.' 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 loose the excess fat you are 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 ! '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 end end } $d_cycreport_upduedate = { temp = (280 + daylastperiod) - daystart pregdueday = day pregduemonth = month pregdueyear = year :pregduedateloop if pregduemonth = 1 and temp > 31 - pregdueday: pregduemonth += 1 temp -= 31 - pregdueday pregdueday = 0 elseif pregduemonth = 2 and temp > 28 - pregdueday: pregduemonth += 1 temp -= 28 - pregdueday pregdueday = 0 elseif pregduemonth = 3 and temp > 31 - pregdueday: pregduemonth += 1 temp -= 31 - pregdueday pregdueday = 0 elseif pregduemonth = 4 and temp > 30 - pregdueday: pregduemonth += 1 temp -= 30 - pregdueday pregdueday = 0 elseif pregduemonth = 5 and temp > 31 - pregdueday: pregduemonth += 1 temp -= 31 - pregdueday pregdueday = 0 elseif pregduemonth = 6 and temp > 30 - pregdueday: pregduemonth += 1 temp -= 30 - pregdueday pregdueday = 0 elseif pregduemonth = 7 and temp > 31 - pregdueday: pregduemonth += 1 temp -= 31 - pregdueday pregdueday = 0 elseif pregduemonth = 8 and temp > 31 - pregdueday: pregduemonth += 1 temp -= 31 - pregdueday pregdueday = 0 elseif pregduemonth = 9 and temp > 30 - pregdueday: pregduemonth += 1 temp -= 30 - pregdueday pregdueday = 0 elseif pregduemonth = 10 and temp > 31 - pregdueday: pregduemonth += 1 temp -= 31 - pregdueday pregdueday = 0 elseif pregduemonth = 11 and temp > 30 - pregdueday: pregduemonth += 1 temp -= 30 - pregdueday pregdueday = 0 elseif pregduemonth = 12 and temp > 31 - pregdueday: pregduemonth = 1 pregdueyear += 1 temp -= 31 - pregdueday pregdueday = 0 else pregdueday = temp temp = 0 end if temp > 0: jump 'pregduedateloop' $pregduedate = '<> / <> / <>' } $d_pregmovement = { if denypreg = 0 and pregchem > 0: if thinkpreg >= 0: knowpreg = 1 if kid <= 0: 'Your heart flutters as you feel a baby moving around inside you for the first time.' else 'Movement inside you confirms what you already thought. You are pregnant 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 go to the doctor?' else 'It feels as if a baby move 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 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 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 } --- din_bad ---------------------------------