# 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 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
'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 ---------------------------------
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
.jpg''){kind=link}
