|
@@ -9,19 +9,19 @@ $mobile_check = {
|
|
|
$caller = 'Vladimir'
|
|
|
$callerid = 'images/characters/city/vladimir/001.jpg'
|
|
|
gs 'telefon','phone_ring'
|
|
|
- pl'<center><a href="exec:gt ''qwloc'',''2''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
+ pl'<center><a href="exec:gt ''qwloc'',''2''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
elseif vladimirQW = 25 and week = 6:
|
|
|
'<b><font color="red">Your phone is ringing</font></b>'
|
|
|
$caller = 'Vladimir'
|
|
|
$callerid = 'images/characters/city/vladimir/001.jpg'
|
|
|
gs 'telefon','phone_ring'
|
|
|
- pl'<center><a href="exec:gt ''qwloc'',''3''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
+ pl'<center><a href="exec:gt ''qwloc'',''3''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
elseif vladimirQW = 35 and week = 6:
|
|
|
'<b><font color="red">Your phone is ringing</font></b>'
|
|
|
$caller = 'Vladimir'
|
|
|
$callerid = 'images/characters/city/vladimir/001.jpg'
|
|
|
gs 'telefon','phone_ring'
|
|
|
- pl'<center><a href="exec:gt ''qwloc'',''4''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
+ pl'<center><a href="exec:gt ''qwloc'',''4''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -30,7 +30,7 @@ $mobile_check = {
|
|
|
$caller = 'Leonid Vostov'
|
|
|
$callerid = 'images/characters/pavlovsk/resident/leonid/leonidphone.jpg'
|
|
|
gs 'telefon','phone_ring'
|
|
|
- pl'<center><a href="exec:gt ''leonid'', ''call''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:leonidSlaveDay = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
+ pl'<center><a href="exec:gt ''leonid'', ''call''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:leonidSlaveDay = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
end
|
|
|
|
|
|
if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12:
|
|
@@ -48,7 +48,7 @@ $mobile_check = {
|
|
|
pl''
|
|
|
pl''
|
|
|
pl''
|
|
|
- pl'<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:qwdogiventday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
+ '<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:qwdogiventday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
end
|
|
|
|
|
|
!! iterating all lovers
|
|
@@ -70,113 +70,122 @@ $mobile_check = {
|
|
|
$caller = '<<$loverdesc[lover_number]>>'
|
|
|
$callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
|
|
|
gs 'telefon','phone_ring'
|
|
|
- pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a> <a href="exec:gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
+ pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a> <a href="exec:gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
|
|
|
end
|
|
|
end
|
|
|
lover_number += 1
|
|
|
if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
|
|
|
-
|
|
|
+
|
|
|
killvar 'lover_number'
|
|
|
}
|
|
|
|
|
|
|
|
|
$d_salf = {
|
|
|
- clr
|
|
|
- if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 12 & gs ''cum_cleanup'' & cumspclnt = 9 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe your face and hands</b></a>'
|
|
|
- if cumloc[14] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your belly</b></a>'
|
|
|
- if cumloc[15] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your breasts</b></a>'
|
|
|
- if cumloc[1] > 0 or cumloc[4] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 15 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your ass and pussy</b></a>'
|
|
|
- if cumloc[10] > 0 or cumloc[9] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 17 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your arms and legs</b></a>'
|
|
|
- if cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 6 & gs ''cum_cleanup'' & gs ''stat''"><b>Clean up clothing</b></a>'
|
|
|
- if pcs_makeup ! 1:pl '<a href="exec:salfetka -= 1 & pcs_makeup = 1 & gs ''stat''"><b>Wipe cosmetics</b></a>'
|
|
|
- pl '<a href="exec:gs ''stat''"><br><b>Not using tissue</b></a>'
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
+ if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 12 & gs ''cum_cleanup'' & cumspclnt = 9 & gs ''cum_cleanup'' & gs ''stat'' & dynamic $d_bag"><b>Wipe your face and hands</b></a>'
|
|
|
+ if cumloc[14] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat'' & dynamic $d_bag"><b>Wipe clean your belly</b></a>'
|
|
|
+ if cumloc[15] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat'' & dynamic $d_bag"><b>Wipe clean your breasts</b></a>'
|
|
|
+ if cumloc[1] > 0 or cumloc[4] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 15 & gs ''cum_cleanup'' & gs ''stat'' & dynamic $d_bag"><b>Wipe clean your ass and pussy</b></a>'
|
|
|
+ if cumloc[10] > 0 or cumloc[9] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 17 & gs ''cum_cleanup'' & gs ''stat'' & dynamic $d_bag"><b>Wipe clean your arms and legs</b></a>'
|
|
|
+ if cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 6 & gs ''cum_cleanup'' & gs ''stat'' & dynamic $d_bag"><b>Clean up clothing</b></a>'
|
|
|
+ if pcs_makeup ! 1: '<a href="exec:salfetka -= 1 & pcs_makeup = 1 & dynamic $d_bag"><b>Wipe cosmetics</b></a>'
|
|
|
+ '<a href="exec:gs ''stat'' & dynamic $d_bag"><br><b>Put tissues away</b></a>'
|
|
|
}
|
|
|
|
|
|
$d_kosmetitka = {
|
|
|
- clr
|
|
|
- pl '<a href="exec:gs ''stat''"><b>Close makeup bag</b></a>'
|
|
|
+ *clr & cla
|
|
|
+ gs 'stat'
|
|
|
+ '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
|
|
|
- if kosmetitka >= 1:pl '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 2 & kosmetitka -= 1 & gs ''stat''"><b>Light make-up</b></a>'
|
|
|
- if kosmetitka >= 2:pl '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 3 & kosmetitka -= 2 & gs ''stat''"><b>Natural make-up</b></a>'
|
|
|
- if kosmetitka >= 3:pl '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 4 & kosmetitka -= 3 & gs ''stat''"><b>Heavy make-up</b></a>'
|
|
|
+ if kosmetitka >= 1: '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 2 & kosmetitka -= 1 & gs ''stat'' & dynamic $d_bag"><b>Light make-up</b></a>'
|
|
|
+ if kosmetitka >= 2: '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 3 & kosmetitka -= 2 & gs ''stat'' & dynamic $d_bag"><b>Natural make-up</b></a>'
|
|
|
+ if kosmetitka >= 3: '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 4 & kosmetitka -= 3 & gs ''stat'' & dynamic $d_bag"><b>Heavy make-up</b></a>'
|
|
|
+ '<a href="exec:gs ''stat'' & dynamic $d_bag"><b>Close makeup bag</b></a>'
|
|
|
}
|
|
|
|
|
|
$d_mouthwash = {
|
|
|
- clr
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
pcs_breath = 1
|
|
|
cumspclnt = 2
|
|
|
gs 'cum_cleanup'
|
|
|
mouthwash -= 1
|
|
|
- pl 'Your breath smells minty fresh.'
|
|
|
- pl ''
|
|
|
- pl '<a href="exec:gs ''stat''"><b>Done</b></a>'
|
|
|
-}
|
|
|
+ gs 'stat'
|
|
|
+ 'Your breath smells minty fresh.'
|
|
|
+ ''
|
|
|
+ '<a href="exec:gs ''stat'' & dynamic $d_bag"><b>Done</b></a>'
|
|
|
+}
|
|
|
|
|
|
$d_bag = {
|
|
|
- clr
|
|
|
- pl '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
- if salfetka > 0:pl 'You have <<salfetka>> wet wipes left in your purse. <a href="exec:dynamic $d_salf"><b>Use a tissue</b></a>'
|
|
|
- if pain_timer > totminut - 242 and painkiller > 0:pl 'Take a <a href="exec:pain[''killer''] = 1 & painkiller -= 1 & pain_timer = totminut & dynamic $d_bag">painkiller</a>. <<painkiller>> painkillers left in your purse.'
|
|
|
- if kosmetitka > 0 and pcs_makeup = 1:pl 'There''s a portable makeup in your purse. <<kosmetitka>> cosmetic applications left. <a href="exec:dynamic $d_kosmetitka"><b>Put on makeup</b></a>'
|
|
|
- if kosmetitka > 0 and pcs_makeup ! 1:pl 'There''s a portable makeup in your purse. <<kosmetitka>> cosmetic applications left.'
|
|
|
- if mouthwash > 0 and pcs_breath = 0:pl 'There''s a mouthwash in your purse. <<mouthwash>> uses remaining. <a href="exec:dynamic $d_mouthwash"><b>Use mouthwash</b></a>'
|
|
|
- if mouthwash > 0 and pcs_breath = 1:pl 'There''s a mouthwash in your purse. <<mouthwash>> uses remaining.'
|
|
|
- if greben > 0 and pcs_hairbsh = 0:pl 'There''s a hairbrush in your purse. <a href="exec:pcs_hairbsh = 1 & gs ''stat''"><b>Brush your hair</b></a>'
|
|
|
- if greben > 0 and pcs_hairbsh = 1:pl 'There''s a hairbrush in your purse.'
|
|
|
+ *clr & cla
|
|
|
+ '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
|
|
|
+ *nl
|
|
|
+ if salfetka > 0: 'You have <<salfetka>> wet wipes left in your purse. <a href="exec:dynamic $d_salf"><b>Use a tissue</b></a>'
|
|
|
+ if pain_timer > totminut - 242 and painkiller > 0: 'Take a <a href="exec:pain[''killer''] = 1 & painkiller -= 1 & pain_timer = totminut & dynamic $d_bag">painkiller</a>. <<painkiller>> painkillers left in your purse.'
|
|
|
+ if kosmetitka > 0 and pcs_makeup = 1: 'There''s a portable makeup in your purse. <<kosmetitka>> cosmetic applications left. <a href="exec:dynamic $d_kosmetitka"><b>Put on makeup</b></a>'
|
|
|
+ if kosmetitka > 0 and pcs_makeup ! 1: 'There''s a portable makeup in your purse. <<kosmetitka>> cosmetic applications left.'
|
|
|
+ if mouthwash > 0 and pcs_breath = 0: 'There''s a mouthwash in your purse. <<mouthwash>> uses remaining. <a href="exec:dynamic $d_mouthwash"><b>Use mouthwash</b></a>'
|
|
|
+ if mouthwash > 0 and pcs_breath = 1: 'There''s a mouthwash in your purse. <<mouthwash>> uses remaining.'
|
|
|
+ if greben > 0 and pcs_hairbsh = 0: 'There''s a hairbrush in your purse. <a href="exec:pcs_hairbsh = 1 & gs ''stat''"><b>Brush your hair</b></a>'
|
|
|
+ if greben > 0 and pcs_hairbsh = 1: 'There''s a hairbrush in your purse.'
|
|
|
if prezik + prezikcount + preziksabo > 0:
|
|
|
if preziktype = 2 or preziksabo > 0:
|
|
|
- pl 'You have <<iif(preziktype = 2, prezikcount, prezikcount+prezik)>> normal condoms left, and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms left in the purse.</b></a>'
|
|
|
+ 'You have <<iif(preziktype = 2, prezikcount, prezikcount+prezik)>> normal condoms left, and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms left in the purse.</b></a>'
|
|
|
elseif preziktype < 2 and preziksabo = 0:
|
|
|
- pl 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms left in the purse.</b></a>'
|
|
|
+ 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms left in the purse.</b></a>'
|
|
|
end
|
|
|
*nl
|
|
|
else
|
|
|
- pl 'You are out of condoms.'
|
|
|
+ 'You are out of condoms.'
|
|
|
end
|
|
|
if amphetamine > 0 :
|
|
|
- pl 'You have <<amphetamine>> tablets of amphetamine left in your purse. <b><a href="exec:dynamic $use_amphetamines & dynamic $d_bag">Take One</a></b>'
|
|
|
+ 'You have <<amphetamine>> tablets of amphetamine left in your purse. <b><a href="exec:dynamic $use_amphetamines & dynamic $d_bag">Take One</a></b>'
|
|
|
end
|
|
|
if tabletki > 0 and pillsleft[ptype] > 0:
|
|
|
- pl 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> and <<pillsleft[ptype]>> pills left in your opened package.</b>'
|
|
|
+ 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> and <<pillsleft[ptype]>> pills left in your opened package.</b>'
|
|
|
elseif tabletki = 0 and pillsleft[ptype] > 0:
|
|
|
- pl 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left in your purse.</b>'
|
|
|
+ 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left in your purse.</b>'
|
|
|
elseif tabletki > 0 and pillsleft[ptype] = 0:
|
|
|
- pl 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> in your purse.'
|
|
|
+ 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> in your purse.'
|
|
|
else
|
|
|
- pl 'You are out of birth control pills.'
|
|
|
+ 'You are out of birth control pills.'
|
|
|
end
|
|
|
if mentats_have > 0:
|
|
|
- pl'<a href="exec:dynamic $use_mentats & dynamic $d_bag"><b>Use a neurobooster pill in your purse.</b></a> There are <<mentats_have>> pills left. The warning label says not to take more than one per day.'
|
|
|
+ '<a href="exec:dynamic $use_mentats & dynamic $d_bag"><b>Use a neurobooster pill in your purse.</b></a> There are <<mentats_have>> pills left. The warning label says not to take more than one per day.'
|
|
|
end
|
|
|
if steroid_have > 0:
|
|
|
- pl'<a href="exec:dynamic $use_steroids & dynamic $d_bag"><b>Use steroids.</b></a> You have <<steroid_have>> steroids left in your purse.'
|
|
|
+ '<a href="exec:dynamic $use_steroids & dynamic $d_bag"><b>Use steroids.</b></a> You have <<steroid_have>> steroids left in your purse.'
|
|
|
end
|
|
|
if bcream_have > 0:
|
|
|
- pl'<a href="exec:dynamic $use_bcream & dynamic $d_bag"><b>Apply breast cream.</b></a> You have <<bcream_have>> cream left in your purse.'
|
|
|
+ '<a href="exec:dynamic $use_bcream & dynamic $d_bag"><b>Apply breast cream.</b></a> You have <<bcream_have>> cream left in your purse.'
|
|
|
end
|
|
|
if aphrodisiac_have > 0:
|
|
|
- pl'<a href="exec:dynamic $use_aphrodisiac & dynamic $d_bag"><b>Chew aphrodisiac gum.</b></a> You have <<aphrodisiac_have>> gum left in your purse.'
|
|
|
- end
|
|
|
-
|
|
|
- if lubri > 0:pl'There''s a tube of lubricant in your purse, enough for <<lubri>> applications.'
|
|
|
- if bottle > 0:pl 'There''s a bottle of water in your purse. <a href="exec:bottle = 0 & pcs_hydra += 100 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat''"><b>Drink</b></a>'
|
|
|
- if buterbrod > 0:pl 'There''s a sandwich in your purse. <a href="exec:buterbrod = 0 & pcs_energy += 40 & cumspclnt = 2 & gs ''cum_cleanup'' & fat += 1 & gs ''stat''"><b>Eat</b></a>'
|
|
|
- if wine = 1 and alkowine = 0:pl'There''s a bottle of <a href="exec:dynamic $dinalkowin1">wine</a> in your purse.'
|
|
|
- if wine = 1 and alkowine = 1:pl'There''s a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a> in your purse.'
|
|
|
- if foto = 1:pl'Your purse contains a strange photo'
|
|
|
+ '<a href="exec:dynamic $use_aphrodisiac & dynamic $d_bag"><b>Chew aphrodisiac gum.</b></a> You have <<aphrodisiac_have>> gum left in your purse.'
|
|
|
+ end
|
|
|
+
|
|
|
+ if lubri > 0:'There''s a tube of lubricant in your purse, enough for <<lubri>> applications.'
|
|
|
+ if bottle > 0: 'There''s a bottle of water in your purse. <a href="exec:bottle = 0 & pcs_hydra += 100 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & dynamic $d_bag"><b>Drink</b></a>'
|
|
|
+ if buterbrod > 0: 'There''s a sandwich in your purse. <a href="exec:buterbrod = 0 & pcs_energy += 40 & cumspclnt = 2 & gs ''cum_cleanup'' & fat += 1 & gs ''stat'' & dynamic $d_bag"><b>Eat</b></a>'
|
|
|
+ if wine = 1 and alkowine = 0:'There''s a bottle of <a href="exec:dynamic $dinalkowin1">wine</a> in your purse.'
|
|
|
+ if wine = 1 and alkowine = 1:'There''s a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a> in your purse.'
|
|
|
+ if foto = 1:'Your purse contains a strange photo'
|
|
|
if pattest > 0:
|
|
|
if pattest > 1:$tt = 's' else $tt = ''
|
|
|
- pl'You have <<pattest>> unused paternity test<<$tt>> in your purse.'
|
|
|
+ 'You have <<pattest>> unused paternity test<<$tt>> in your purse.'
|
|
|
end
|
|
|
if used_pattest > 0:
|
|
|
if used_pattest > 1:$tt = 's' else $tt = ''
|
|
|
- pl'You have <<used_pattest>> <a href="exec:dynamic $test_purse">used</a> paternity test<<$tt>> in your purse.'
|
|
|
+ 'You have <<used_pattest>> <a href="exec:dynamic $test_purse">used</a> paternity test<<$tt>> in your purse.'
|
|
|
end
|
|
|
- pl'<br><center><a href="exec:gs''stat''"><img src="images/system/icon/back.png"></a></center>'
|
|
|
killvar 'tt'
|
|
|
+
|
|
|
+ act 'Return':gt $loc, $metka
|
|
|
+ end
|
|
|
}
|
|
|
|
|
|
$dinalkowin1 = {
|
|
|
+ *clr & cla
|
|
|
alkowine = 1
|
|
|
if pcs_hydra >= 100:
|
|
|
pcs_hydra -= 5
|
|
@@ -186,14 +195,16 @@ $dinalkowin1 = {
|
|
|
if pcs_intel > 5 : intel_deg -= 1
|
|
|
alko += 5
|
|
|
cumspclnt = 2
|
|
|
- gs 'cum_cleanup'
|
|
|
+ gs 'cum_cleanup'
|
|
|
pcs_breath = 0
|
|
|
gs'stat'
|
|
|
'<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
|
|
|
'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':dynamic $d_bag
|
|
|
}
|
|
|
|
|
|
$dinalkowin2 = {
|
|
|
+ *clr & cla
|
|
|
alkowine = 0
|
|
|
if pcs_hydra >= 100:
|
|
|
pcs_hydra -= 5
|
|
@@ -209,35 +220,38 @@ $dinalkowin2 = {
|
|
|
gs'stat'
|
|
|
'<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
|
|
|
'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':dynamic $d_bag
|
|
|
}
|
|
|
|
|
|
$din_Switch_Condom_Menu = {
|
|
|
dynamic $din_Update_Condom_Counts
|
|
|
- clr
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
i = 0
|
|
|
- pl 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
|
|
|
+ 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
|
|
|
*nl
|
|
|
if preziktype > 0:
|
|
|
- pl '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
|
|
|
+ '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
|
|
|
end
|
|
|
if preziktype ! 1:
|
|
|
- pl '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
|
|
|
+ '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
|
|
|
end
|
|
|
if preziktype ! 2:
|
|
|
- pl '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
|
|
|
+ '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
|
|
|
end
|
|
|
if prezikcount > 0 or preziktype = 0:
|
|
|
- pl '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
|
|
|
+ '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
|
|
|
end
|
|
|
*nl
|
|
|
- pl '<a href="exec:gs ''stat''">Return</a>'
|
|
|
+ '<a href="exec:gs ''stat'' & dynamic $d_bag">Return</a>'
|
|
|
}
|
|
|
|
|
|
$din_Table_Condom_Menu = {
|
|
|
dynamic $din_Update_Condom_Counts
|
|
|
- *clr
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
i = 1
|
|
|
- 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
|
|
|
+ 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
|
|
|
*nl
|
|
|
if preziktype > 0:
|
|
|
'<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
|
|
@@ -257,8 +271,9 @@ $din_Table_Condom_Menu = {
|
|
|
|
|
|
$din_Do_Condom_Counts = {
|
|
|
!{set condom count and type}
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
if ARGS[0] = 1:
|
|
|
- clr
|
|
|
'Offer a condom the next time you have sex.'
|
|
|
if preziktype = 2: preziksabo = prezik
|
|
|
prezik = prezikcount
|
|
@@ -295,7 +310,7 @@ $din_Do_Condom_Counts = {
|
|
|
dynamic $din_Table_Condom_Menu
|
|
|
end
|
|
|
}
|
|
|
-
|
|
|
+
|
|
|
$din_Update_Condom_Counts = {
|
|
|
if prezik + prezikcount + preziksabo > 0: prezikmsg = 1
|
|
|
if preziktype = 0:
|
|
@@ -335,17 +350,18 @@ $din_Update_Condom_Counts = {
|
|
|
}
|
|
|
|
|
|
$d_tabletkied = {
|
|
|
- clr
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
|
|
|
tabloc = 0
|
|
|
- if tabletkiday < daystart: pl '<a href="exec:dynamic $d_tabletkieda, 1">Take the birth control pill now.</b></a>'
|
|
|
+ if tabletkiday < daystart: '<a href="exec:dynamic $d_tabletkieda, 1">Take the birth control pill now.</b></a>'
|
|
|
if tabletkicheck = 0:
|
|
|
- pl '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</b></a>'
|
|
|
+ '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</b></a>'
|
|
|
elseif tabletkicheck = 1:
|
|
|
- pl '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</b></a>'
|
|
|
+ '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</b></a>'
|
|
|
end
|
|
|
- pl '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
|
|
|
- if tabletkioddk = 1: pl '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
|
|
|
- pl '<a href="exec:gs ''stat''">Return</a>'
|
|
|
+ '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
|
|
|
+ if tabletkioddk = 1: '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
|
|
|
+ '<a href="exec:gs ''stat'' & dynamic $d_bag">Return</a>'
|
|
|
}
|
|
|
|
|
|
$d_tabletkiedt = {
|
|
@@ -357,7 +373,7 @@ $d_tabletkiedt = {
|
|
|
'<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</b></a>'
|
|
|
end
|
|
|
'<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
|
|
|
- if tabletkioddk = 1: pl '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
|
|
|
+ if tabletkioddk = 1: '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
|
|
|
'<a href="exec:gt ''stol'', ''bc''">Return</a>'
|
|
|
}
|
|
|
|
|
@@ -395,11 +411,11 @@ $d_tabletkiedA = {
|
|
|
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'
|
|
|
+ gs 'stat'
|
|
|
if tabloc = 0:
|
|
|
dynamic $d_tabletkied
|
|
|
else
|
|
@@ -413,7 +429,7 @@ $d_tabletkiedA = {
|
|
|
tabletkioddp = 0
|
|
|
gs 'stat'
|
|
|
end
|
|
|
-
|
|
|
+
|
|
|
if tabloc = 0:
|
|
|
dynamic $d_tabletkied
|
|
|
else
|
|
@@ -422,37 +438,37 @@ $d_tabletkiedA = {
|
|
|
}
|
|
|
|
|
|
$d_cycreport_choice = {
|
|
|
- clr
|
|
|
+ *clr & cla
|
|
|
dynamic $d_cycreport_update
|
|
|
- pl 'Current Status: <<$cycreport_txt>>.'
|
|
|
+ 'Current Status: <<$cycreport_txt>>.'
|
|
|
if $cycreport_txt ! 'In labour':
|
|
|
*nl
|
|
|
- pl 'Change Status because:'
|
|
|
+ 'Change Status because:'
|
|
|
if thinkpreg = 0:
|
|
|
if knowpreg = 1:
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 2">I''m pregnant.</a>'
|
|
|
- else
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 2">I think I''m pregnant.</a>'
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 2">I''m pregnant.</a>'
|
|
|
+ else
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 2">I think I''m pregnant.</a>'
|
|
|
end
|
|
|
elseif thinkpreg = 1:
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 1">I''m not pregnant.</a>'
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 1">I''m not pregnant.</a>'
|
|
|
end
|
|
|
if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
|
|
|
elseif thinkpreg ! 1:
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
|
|
|
end
|
|
|
if thinkpreg = 1 or knowpreg = 1:
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
|
|
|
- pl '<a href="exec: dynamic $d_cycreport_actor, 7">I think the father is...</a>'
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
|
|
|
+ '<a href="exec: dynamic $d_cycreport_actor, 7">I think the father is...</a>'
|
|
|
end
|
|
|
elseif cycle = 5:
|
|
|
- pl 'Broken water and contractions, it''s pretty clear what is going on. You need to get to a hospital ASAP.'
|
|
|
+ '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
|
|
|
- pl '<a href="exec:gs ''stat''">Return</a>'
|
|
|
+ '<a href="exec:gs ''stat'' & gt $loc, $metka">Return</a>'
|
|
|
}
|
|
|
|
|
|
$d_cycreport_actor = {
|
|
@@ -482,9 +498,9 @@ $d_cycreport_actor = {
|
|
|
thinkpreg = 0
|
|
|
denypreg = 0
|
|
|
clr
|
|
|
- pl 'How many days ago was it you had your last period?'
|
|
|
- pl 'Currently: <<pertemp>>'
|
|
|
- pl '<a href="exec: pertemp += 1 & clr & dynamic $d_cycreport_actor, 4">+1</a> <a href="exec: pertemp += 5 & clr & dynamic $d_cycreport_actor, 4">+5</a> <a href="exec: pertemp += 10 & clr & dynamic $d_cycreport_actor, 4">+10</a> <a href="exec: pertemp = 0 & clr & dynamic $d_cycreport_actor, 4">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat''">Accept</a>'
|
|
|
+ 'How many days ago was it you had your last period?'
|
|
|
+ 'Currently: <<pertemp>>'
|
|
|
+ '<a href="exec: pertemp += 1 & clr & dynamic $d_cycreport_actor, 4">+1</a> <a href="exec: pertemp += 5 & clr & dynamic $d_cycreport_actor, 4">+5</a> <a href="exec: pertemp += 10 & clr & dynamic $d_cycreport_actor, 4">+10</a> <a href="exec: pertemp = 0 & clr & dynamic $d_cycreport_actor, 4">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat''">Accept</a>'
|
|
|
elseif ARGS[0] = 5:
|
|
|
thinkpreg = 0
|
|
|
denypreg = 0
|
|
@@ -492,9 +508,9 @@ $d_cycreport_actor = {
|
|
|
gs 'stat'
|
|
|
elseif ARGS[0] = 6:
|
|
|
clr
|
|
|
- pl 'How many days ago was it you had your last period?'
|
|
|
- pl 'Currently: <<pertemp>>'
|
|
|
- pl '<a href="exec: pertemp += 1 & clr & dynamic $d_cycreport_actor, 6">+1</a> <a href="exec: pertemp += 5 & clr & dynamic $d_cycreport_actor, 6">+5</a> <a href="exec: pertemp += 10 & clr & dynamic $d_cycreport_actor, 6">+10</a> <a href="exec: pertemp = 0 & clr & dynamic $d_cycreport_actor, 6">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat''">Accept</a>'
|
|
|
+ 'How many days ago was it you had your last period?'
|
|
|
+ 'Currently: <<pertemp>>'
|
|
|
+ '<a href="exec: pertemp += 1 & clr & dynamic $d_cycreport_actor, 6">+1</a> <a href="exec: pertemp += 5 & clr & dynamic $d_cycreport_actor, 6">+5</a> <a href="exec: pertemp += 10 & clr & dynamic $d_cycreport_actor, 6">+10</a> <a href="exec: pertemp = 0 & clr & dynamic $d_cycreport_actor, 6">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat''">Accept</a>'
|
|
|
elseif ARGS[0] = 7:
|
|
|
clr
|
|
|
tempmax = arrsize('$cumfthname')-1
|
|
@@ -503,19 +519,19 @@ $d_cycreport_actor = {
|
|
|
*nl
|
|
|
:potfathloop
|
|
|
if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
|
|
|
- if cumtime[tempcurr] > 0:pl '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
|
|
|
+ if cumtime[tempcurr] > 0: '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
|
|
|
if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
|
|
|
if sumcum > 1:$cum = 's' else $cum = ''
|
|
|
- pl '<br>You think you have had <<sumcum>> load<<$cum>> of cum shot<<$cum>> in your womb altogether that could have gotten you pregnant.'
|
|
|
- pl 'You suspect the father being: <<$wombthfath>><br>'
|
|
|
+ '<br>You think you have had <<sumcum>> load<<$cum>> of cum shot<<$cum>> in your womb altogether that could have gotten you pregnant.'
|
|
|
+ 'You suspect the father being: <<$wombthfath>><br>'
|
|
|
*nl
|
|
|
tempcurr = 0
|
|
|
:pickfathloop
|
|
|
if cumtime[tempcurr] > 0:
|
|
|
if $npc_usedname[$cumfthname[tempcurr]] <> '':
|
|
|
- pl ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
|
|
|
+ ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
|
|
|
else
|
|
|
- pl ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7">Unknown (-)</a>'
|
|
|
+ ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7">Unknown (-)</a>'
|
|
|
end
|
|
|
end
|
|
|
if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
|
|
@@ -523,7 +539,7 @@ $d_cycreport_actor = {
|
|
|
killvar 'cum'
|
|
|
killvar 'tempmax'
|
|
|
killvar 'tempcurr'
|
|
|
- pl '<br> <a href="exec:dynamic $d_cycreport_choice">Accept</a>'
|
|
|
+ '<br> <a href="exec:dynamic $d_cycreport_choice">Accept</a>'
|
|
|
elseif ARGS[0] = 10:
|
|
|
temp = arrsize('Babyptype')
|
|
|
temp -= 1
|