# 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'
dynamic $phone_ring
pl'
'
elseif vladimirQW = 25 and week = 6:
'Your phone is ringing'
$caller = 'Vladimir'
$callerid = 'images/characters/city/vladimir/001.jpg'
dynamic $phone_ring
pl' '
elseif vladimirQW = 35 and week = 6:
'Your phone is ringing'
$caller = 'Vladimir'
$callerid = 'images/characters/city/vladimir/001.jpg'
dynamic $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'
dynamic $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 = ''
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 pcs_apprnc < vneshBoyA:
bfA -= 1
if bfA = 0:
'Your guy does not call you, he probably dumped you.'
else
'Your boyfriend <<$boydescA>> has not called you.'
end
else
ring = 1
ringA = 1
'Your phone is ringing'
PLAY 'sound/Old_Phone.mp3',30
$caller = '<<$boydescA>>'
$callerid = 'images/characters/shared/'+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 pcs_apprnc < vneshBoyB:
bfB -= 1
if bfB = 0:
'Your guy does not call you, he probably dumped you.'
else
'Your boyfriend <<$boydescB>> has not called you.'
end
else
ring = 1
ringB = 1
'Your phone is ringing'
PLAY 'sound/Old_Phone.mp3',30
$caller = '<<$boydescB>>'
$callerid = 'images/characters/shared/'+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 pcs_apprnc < vneshBoyC:
'Your boyfriend <<$boydescC>> has not called you.'
bfC -= 1
if bfC = 0:
'Your guy does not call you, he probably dumped you.'
else
'Your boyfriend <<$boydescC>> has not called you.'
end
else
ring = 1
ringC = 1
'Your phone is ringing'
PLAY 'sound/Old_Phone.mp3',30
$caller = '<<$boydescC>>'
$callerid = 'images/characters/shared/'+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/system/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 npc_QW['A192'] > 0:
pl'..................................................Call'
end
pl''
}
$Phone_notebook = {
clr
pl'Planner'
pl'<>-<<$month>>-<>, <<$week[week]>>
'
rent = -1
if BuyHous = 2 and ArendHouseSL > 0:rent = ArendHouseSL
preg1 = pregtime
d1 = day
w1 = week
m1 = month
y1 = year
i = 0
$list = '
• '
:pnotebook
daynum = daystart+i
$calendarday = ''
if m1 = 1 and d1 >= 1 and d1 <= 8:
$calendarday += $list + 'New Year holidays'
if d1 = 1:$calendarday += ', New Year'
if d1 = 7:$calendarday += ', Christmas'
end
if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day'
if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day'
if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day'
if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday'
if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day'
if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day'
if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday'
if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day'
if storyline = 1 and SchoolAtestat = 0:
if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.'
if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.'
if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.'
if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.'
if schoool_year = 2000 and y1 = 2017 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!'
if schoool_year = 2001 and y1 = 2018 and m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.'
if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.'
if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.'
if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.'
end
if daynum >= lastmens+20 and daynum < lastmens+24:$calendarday += $list + 'Menstruation!'
if daynum >= lastmens+6 and daynum < lastmens+8:$calendarday += $list + 'Ovulation!'
if preg1 = 280:$calendarday += $list + 'Birthing day!'
if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. (9:00 - 17:00)'
if w1 < 5 and workFabrika = 1:
$calendarday += $list + 'Working as a seamstress. '
if age < 18:$calendarday += '(16:00 - 20:00)' else $calendarday += '(8:00 - 16:00)'
end
if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as nurse. (8:00 - 16:00)'
if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as masseuse. (9:00 - 17:00)'
!! if maidqw > 0:$calendarday += '
• Working as maid. (16:00 - 19:00)'
if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <<$porndesc[pfilmday[i]]>>'
if d1 = 25 and (PersSecWork = 1 or workKafe = 1 or workhosp = 1 or worksalon = 1 or tanwork = 1 or workSec = 1 or workFabrika = 1):$calendarday += $list + 'Pay day!'
if d1 = 31 and m1 = 12 and (year - year_start) < 2 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!'
if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum:
if sisboytrioQW = 1:
$calendarday += $list + 'Threesome with Anja and Roma at 18:00'
else
$calendarday += $list + 'Anja having sex with Roma at 18:00'
end
end
if rent = 0:$calendarday += $list + 'Rent on apartment expires!'
if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!'
if kid > 0:
k1 = kid
:kiddieloop
if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <>. baby!'
if k1 > 1:k1 -= 1 & jump 'kiddieloop'
end
if $calendarday ! '':
p '<<$monthName[m1]>> <>, <<$week[w1]>>:'
pl $calendarday
end
if i < 14:
preg1 += 1
rent -= 1
i += 1
w1 += 1
if w1 > 7:w1 = 1
d1 += 1
if monthsend[m1] < d1:
m1 += 1 & d1 = 1
if m1 = 13: m1 = 1 & y1 += 1
end
jump 'pnotebook'
end
killvar 'calendarday'
killvar 'rent'
killvar 'preg1'
killvar 'd1'
killvar 'w1'
killvar 'm1'
killvar 'y1'
killvar 'daynum'
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/system/phone/selfie/bathroom/s (<>).jpg'
else
minut += RAND (5,7)
phone_rand = RAND (1,2)
phone_selfie[phone_rand] = 1
dynamic $Phone_pictures
view 'images/system/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/system/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: <<$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[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''
pl''
}
$d_salf = {
clr
if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0:pl 'Wipe your face and hands'
if cumloc[14] > 0:pl 'Wipe clean your belly'
if cumloc[15] > 0:pl 'Wipe clean your breasts'
if cumloc[1] > 0 or cumloc[4] > 0:pl 'Wipe clean your ass and pussy'
if cumloc[10] > 0 or cumloc[9] > 0:pl 'Wipe clean your arms and legs'
if cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0:pl 'Clean up clothing'
if pcs_makeup ! 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
pcs_breath = 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 pain_timer > totminut - 242 and painkiller > 0:pl 'You could take a painkiller. Painkillers left <>.'
if kosmetitka > 0 and pcs_makeup = 1:pl 'You have portable makeup bag. Cometic applications left <>. Put on makeup'
if kosmetitka > 0 and pcs_makeup ! 1:pl 'You have portable makeup bag. Cometic applications left <>.'
if mouthwash > 0 and pcs_breath = 0:pl 'You have mouthwash in your bag. Uses remaining: <>. Use mouthwash'
if mouthwash > 0 and pcs_breath = 1:pl 'You have mouthwash in your bag. Uses remaining: <>.'
if greben > 0 and pcs_hairbsh = 0:pl 'You have a hairbrush. Brush your hair'
if greben > 0 and pcs_hairbsh = 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 and pillsleft[ptype] > 0:
pl 'You have <> unopened packages of birth control pills and <> pills left in your opened package.'
elseif tabletki = 0 and pillsleft[ptype] > 0:
pl 'You have <> birth control pills left.'
elseif tabletki > 0 and pillsleft[ptype] = 0:
pl 'You have <> unopened packages of birth control pills.'
else
pl 'You are out of birth control pills.'
end
if mentats_have > 0:
pl'Take neurobooster pill. Uses left: <>. Warning on the box says not to take more than one per day.'
end
if steroid_have > 0:
pl'Take steroids. Uses left: <>.'
end
if bcream_have > 0:
pl'Apply breast cream. Uses left: <>.'
end
if aphrodisiac_have > 0:
pl'Chew aphrodisiac gum. Uses left: <>.'
end
if lubri > 0:pl'You have a tube of lubricant - enough for <> applications.'
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'
if pattest > 0:
if pattest > 1:$tt = 's' else $tt = ''
pl'You carry <> unused paternity test<<$tt>> with you.'
end
if used_pattest > 0:
if used_pattest > 1:$tt = 's' else $tt = ''
pl'You carry <> unsent paternity test<<$tt>> with you.'
end
pl'
'
killvar 'tt'
}
$dinalkowin1 = {
alkowine = 1
if water <= 90:
water = 100
else
water += 10
end
if pcs_intel > 5 : intel_deg -= 1
alko += 5
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs'stat'
view 'images/shared/food/alkowin.jpg'
'You take the bottle of wine out of your purse and slowly drink half of it.'
}
$dinalkowin2 = {
alkowine = 0
if water <= 90:
water = 100
else
water += 10
end
wine = 0
if pcs_intel > 5: intel_deg -= 1
alko += 5
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs'stat'
view 'images/shared/food/alkowin.jpg'
'You take the remaining half bottle of wine out of your purse, slowly drink it then throw the empty bottle away.'
}
$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 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 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
if tabletkiday ! daystart:
gs 'din_bad','takepill'
tabletkiday = daystart
tabletkipt = 0
tabletkipi = 0
else
pcs_health -= 1
end
pilldaychk = 1
'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 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 discoloured and there is no expiry date.'
if ptype = 4: $pillprob = 'that the pills are all the same colour.'
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:
dynamic $d_tabletkied
else
dynamic $d_tabletkiedt
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:
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:
clr
tempmax = arrsize('$cumfthname')-1
tempcurr = 0
sumcum = 0
*nl
:potfathloop
if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
if cumtime[tempcurr] > 0:pl '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <> <<$cum>>' & sumcum += cumtime[tempcurr]
if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
if sumcum > 1:$cum = 's' else $cum = ''
pl '
You think you have had <> load<<$cum>> of cumshot<<$cum>> in your womb alltogether that could have gotten you pregnant.'
pl 'You currently think the father is: <<$wombthfath>>
'
*nl
tempcurr = 0
:pickfathloop
if cumtime[tempcurr] > 0:
if $npc_usedname[$cumfthname[tempcurr]] <> '':
pl ' <<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)'
else
pl ' Unknown (-)'
end
end
if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
killvar 'sumcum'
killvar 'cum'
killvar 'tempmax'
killvar 'tempcurr'
pl '
Accept'
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 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 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 you last had a period. You are currently protected by a birth control shot.'
elseif pillcon > 30000:
$cycreport_txt = 'It has been <> days since you last had a period. You are currently on the pill.'
elseif pillcon > 8000 and (FocH > 70 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 pillcon > 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 > 70 or ovulate > 0:
$cycreport_txt = 'It has been <> days since you last had a period. It is currently a dangerous day.'
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 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
killvar 'temp'
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
}
$use_mentats = {
if mentats_dose < 3:
'You take a pill and swallow it.'
mentats_dose += 1
mentats_have -= 1
else
'You really shouldn''t take any more 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 today.'
end
}
$use_bcream = {
if bcream_used < 1:
'You smear cream onto your breasts and rub it in.'
bcream_used = 1
bcream_have -= 1
else
'Using more won''t have any effect.'
end
}
$use_aphrodisiac = {
if aphrodisiac_overdose = 1:
'You had enough for today.'
elseif aphrodisiac_timer = 0:
'You take a gum and chew 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 taking those 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
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
--- din_bad ---------------------------------