|
|
@@ -10,56 +10,49 @@
|
|
|
if pcs_throat = 0:
|
|
|
thpic = 0
|
|
|
$pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
|
|
|
- rand_throat = rand(0)
|
|
|
- if rand_throat = 0:$pcdesc_throatrandom = 'virgin'
|
|
|
+ $pcdesc_throatrandom = 'virgin'
|
|
|
$pcdesc_throat = 'virgin'
|
|
|
$pcdesc_throatwordy = 'virginal, unused'
|
|
|
$throattipe = 'virgin'
|
|
|
elseif pcs_throat <= 5:
|
|
|
thpic = 1
|
|
|
$pcs_throat = 'You have an extremely inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
|
|
|
- rand_throat = rand(0)
|
|
|
- if rand_throat = 0:$pcdesc_throatrandom = 'narrow'
|
|
|
+ $pcdesc_throatrandom = 'narrow'
|
|
|
$pcdesc_throat = 'narrow'
|
|
|
$pcdesc_throatwordy = 'reluctant, gag-prone'
|
|
|
$throattipe = 'narrow'
|
|
|
elseif pcs_throat <= 10:
|
|
|
thpic = 2
|
|
|
$pcs_throat = 'Your slightly-experienced mouth leads to a sensitive <a href="exec:view''images/pc/body/throat/th2.jpg''">throat</a> with an easily-triggered gag reflex.'
|
|
|
- rand_throat = rand(0)
|
|
|
- if rand_throat = 0:$pcdesc_throatrandom = 'delicate'
|
|
|
+ $pcdesc_throatrandom = 'delicate'
|
|
|
$pcdesc_throat = 'delicate'
|
|
|
$pcdesc_throatwordy = 'delicate, barely-experienced'
|
|
|
$throattipe = 'delicate'
|
|
|
elseif pcs_throat <= 15:
|
|
|
thpic = 3
|
|
|
$pcs_throat = 'You have an experienced mouth and fairly practiced <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
|
|
|
- rand_throat = rand(0)
|
|
|
- if rand_throat = 0:$pcdesc_throatrandom = 'fairly practiced'
|
|
|
+ $pcdesc_throatrandom = 'fairly practiced'
|
|
|
$pcdesc_throat = 'fairly practiced'
|
|
|
$pcdesc_throatwordy = 'fairly practiced'
|
|
|
$throattipe = 'fairly practiced'
|
|
|
elseif pcs_throat <= 25:
|
|
|
thpic = 4
|
|
|
$pcs_throat = 'You have a willing mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
|
|
|
- rand_throat = rand(0)
|
|
|
- if rand_throat = 0:$pcdesc_throatrandom = 'well-trained'
|
|
|
+ $pcdesc_throatrandom = 'well-trained'
|
|
|
$pcdesc_throat = 'well-trained'
|
|
|
$pcdesc_throatwordy = 'experienced, well-trained and eager'
|
|
|
$throattipe = 'well-trained'
|
|
|
elseif pcs_throat <= 35:
|
|
|
thpic = 5
|
|
|
$pcs_throat = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
|
|
|
- rand_throat = rand(0)
|
|
|
- if rand_throat = 0:$pcdesc_throatrandom = 'capacious'
|
|
|
+ $pcdesc_throatrandom = 'capacious'
|
|
|
$pcdesc_throat = 'capacious'
|
|
|
$pcdesc_throatwordy = 'seasoned, effortlessly-plumbed'
|
|
|
$throattipe = 'capacious'
|
|
|
else
|
|
|
thpic = 6
|
|
|
$pcs_throat = 'Your gag reflex is completely absent and your <a href="exec:view''images/pc/body/throat/th6.jpg''">throat</a> has seen nearly as much cock as it has food.'
|
|
|
- rand_throat = rand(0)
|
|
|
- if rand_throat = 0:$pcdesc_throatrandom = 'bottomless'
|
|
|
+ $pcdesc_throatrandom = 'bottomless'
|
|
|
$pcdesc_throat = 'bottomless'
|
|
|
$pcdesc_throatwordy = 'elastic, oft-fucked'
|
|
|
$throattipe = 'bottomless'
|
|
|
@@ -71,8 +64,7 @@ if pcs_breath = 1:$pcs_throat += ' Last you checked, your breath smelled fresh a
|
|
|
if pcs_vag = 0:
|
|
|
puspic = 0
|
|
|
$pcs_vag = 'Your virgin <a href="exec:view''images/pc/body/pussy/vag0.jpg''">pussy</a> still has its hymen intact.'
|
|
|
- rand_pussy = rand(0)
|
|
|
- if rand_pussy = 0:$pcdesc_pussyrandom = 'virgin'
|
|
|
+ $pcdesc_pussyrandom = 'virgin'
|
|
|
$pcdesc_pussy = 'virgin'
|
|
|
$pcdesc_pussywordy = 'virgin'
|
|
|
$vaginatipe = 'virgin'
|
|
|
@@ -80,9 +72,13 @@ elseif pcs_vag <= 5:
|
|
|
puspic = 1
|
|
|
$pcs_vag = 'You have an inexperienced <a href="exec:view''images/pc/body/pussy/vag1.jpg''">pussy</a>.'
|
|
|
rand_pussy = rand(0,2)
|
|
|
- if rand_pussy = 0:$pcdesc_pussyrandom = 'narrow'
|
|
|
- if rand_pussy = 1:$pcdesc_pussyrandom = 'vice-like'
|
|
|
- if rand_pussy = 2:$pcdesc_pussyrandom = 'inexperienced'
|
|
|
+ if rand_pussy = 0:
|
|
|
+ $pcdesc_pussyrandom = 'narrow'
|
|
|
+ elseif rand_pussy = 1:
|
|
|
+ $pcdesc_pussyrandom = 'vice-like'
|
|
|
+ elseif rand_pussy = 2:
|
|
|
+ $pcdesc_pussyrandom = 'inexperienced'
|
|
|
+ end
|
|
|
$pcdesc_pussy = 'narrow'
|
|
|
$pcdesc_pussywordy = 'squeezingly tight and narrow'
|
|
|
$vaginatipe = 'narrow'
|
|
|
@@ -90,8 +86,11 @@ elseif pcs_vag <= 10:
|
|
|
puspic = 2
|
|
|
$pcs_vag = 'You have a tight <a href="exec:view''images/pc/body/pussy/vag1.jpg''">pussy</a>.'
|
|
|
rand_pussy = rand(0,1)
|
|
|
- if rand_pussy = 0:$pcdesc_pussyrandom = 'snug'
|
|
|
- if rand_pussy = 1:$pcdesc_pussyrandom = 'tight'
|
|
|
+ if rand_pussy = 0:
|
|
|
+ $pcdesc_pussyrandom = 'snug'
|
|
|
+ elseif rand_pussy = 1:
|
|
|
+ $pcdesc_pussyrandom = 'tight'
|
|
|
+ end
|
|
|
$pcdesc_pussy = 'tight'
|
|
|
$pcdesc_pussywordy = 'youthfully tight'
|
|
|
$vaginatipe = 'tight'
|
|
|
@@ -99,9 +98,13 @@ elseif pcs_vag <= 15:
|
|
|
puspic = 3
|
|
|
$pcs_vag = 'Your <a href="exec:view''images/pc/body/pussy/vag1.jpg''">vagina</a> is used to taking normal sized insertions.'
|
|
|
rand_pussy = rand(0,2)
|
|
|
- if rand_pussy = 0:$pcdesc_pussyrandom = 'elastic'
|
|
|
- if rand_pussy = 1:$pcdesc_pussyrandom = 'practiced'
|
|
|
- if rand_pussy = 2:$pcdesc_pussyrandom = 'snug, if easily pliable'
|
|
|
+ if rand_pussy = 0:
|
|
|
+ $pcdesc_pussyrandom = 'elastic'
|
|
|
+ elseif rand_pussy = 1:
|
|
|
+ $pcdesc_pussyrandom = 'practiced'
|
|
|
+ elseif rand_pussy = 2:
|
|
|
+ $pcdesc_pussyrandom = 'snug, if easily pliable'
|
|
|
+ end
|
|
|
$pcdesc_pussy = 'pliable'
|
|
|
$pcdesc_pussywordy = 'seasoned, pliable and tight'
|
|
|
$vaginatipe = 'pliable'
|
|
|
@@ -109,10 +112,15 @@ elseif pcs_vag <= 25:
|
|
|
puspic = 4
|
|
|
$pcs_vag = 'You have a well-developed <a href="exec:view''images/pc/body/pussy/vag1.jpg''">vagina</a>.'
|
|
|
rand_pussy = rand(0,3)
|
|
|
- if rand_pussy = 0:$pcdesc_pussyrandom = 'welcoming'
|
|
|
- if rand_pussy = 1:$pcdesc_pussyrandom = 'invitingly ready'
|
|
|
- if rand_pussy = 2:$pcdesc_pussyrandom = 'amply-practiced'
|
|
|
- if rand_pussy = 3:$pcdesc_pussyrandom = 'plenty experienced'
|
|
|
+ if rand_pussy = 0:
|
|
|
+ $pcdesc_pussyrandom = 'welcoming'
|
|
|
+ elseif rand_pussy = 1:
|
|
|
+ $pcdesc_pussyrandom = 'invitingly ready'
|
|
|
+ elseif rand_pussy = 2:
|
|
|
+ $pcdesc_pussyrandom = 'amply-practiced'
|
|
|
+ elseif rand_pussy = 3:
|
|
|
+ $pcdesc_pussyrandom = 'plenty experienced'
|
|
|
+ end
|
|
|
$pcdesc_pussy = 'experienced'
|
|
|
$pcdesc_pussywordy = 'experienced, welcoming'
|
|
|
$vaginatipe = 'experienced'
|
|
|
@@ -120,10 +128,15 @@ elseif pcs_vag <= 35:
|
|
|
puspic = 5
|
|
|
$pcs_vag = 'Your regularly-fucked <a href="exec:view''images/pc/body/pussy/vag2.jpg''">playground</a> can take most things you force up there.'
|
|
|
rand_pussy = rand(0,3)
|
|
|
- if rand_pussy = 0:$pcdesc_pussyrandom = 'eager and hungry'
|
|
|
- if rand_pussy = 1:$pcdesc_pussyrandom = 'routinely-fucked'
|
|
|
- if rand_pussy = 2:$pcdesc_pussyrandom = 'cock-starved'
|
|
|
- if rand_pussy = 3:$pcdesc_pussyrandom = 'seemingly constantly-fucked'
|
|
|
+ if rand_pussy = 0:
|
|
|
+ $pcdesc_pussyrandom = 'eager and hungry'
|
|
|
+ elseif rand_pussy = 1:
|
|
|
+ $pcdesc_pussyrandom = 'routinely-fucked'
|
|
|
+ elseif rand_pussy = 2:
|
|
|
+ $pcdesc_pussyrandom = 'cock-starved'
|
|
|
+ elseif rand_pussy = 3:
|
|
|
+ $pcdesc_pussyrandom = 'seemingly constantly-fucked'
|
|
|
+ end
|
|
|
$pcdesc_pussy = 'oft-fucked'
|
|
|
$pcdesc_pussywordy = 'well-trained, oft-fucked'
|
|
|
$vaginatipe = 'oft-fucked'
|
|
|
@@ -132,8 +145,11 @@ else
|
|
|
$pcs_vag = 'Your poor little <a href="exec:view''images/pc/body/pussy/vag2.jpg''">pussy</a> is so used to being over-stuffed that it takes a huge member just to get off.'
|
|
|
rand_pussy = rand(0,2)
|
|
|
if rand_pussy = 0:$pcdesc_pussyrandom = 'always-ready'
|
|
|
- if rand_pussy = 1:$pcdesc_pussyrandom = 'near daily-stuffed'
|
|
|
- if rand_pussy = 2:$pcdesc_pussyrandom = 'overeager, ever-popular'
|
|
|
+ elseif rand_pussy = 1:
|
|
|
+ $pcdesc_pussyrandom = 'near daily-stuffed'
|
|
|
+ elseif rand_pussy = 2:
|
|
|
+ $pcdesc_pussyrandom = 'overeager, ever-popular'
|
|
|
+ end
|
|
|
$pcdesc_pussy = 'overeager'
|
|
|
$pcdesc_pussywordy = 'cock-tamed and ever-ready'
|
|
|
$vaginatipe = 'overeager'
|
|
|
@@ -144,8 +160,7 @@ if analplugIN = 0:
|
|
|
if pcs_ass = 0:
|
|
|
anpic = 0
|
|
|
$pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/0.jpg''">anus</a>.'
|
|
|
- rand_anus = rand(0)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'virgin'
|
|
|
+ $pcdesc_anusrandom = 'virgin'
|
|
|
$pcdesc_anus = 'virgin'
|
|
|
$pcdesc_anuswordy = 'virgin'
|
|
|
$anustipe = 'virgin'
|
|
|
@@ -153,9 +168,13 @@ if analplugIN = 0:
|
|
|
anpic = 1
|
|
|
$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/1.jpg''">anus</a> is barely used, and looking at it none would know it was used for sex.'
|
|
|
rand_anus = rand(0,2)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'tight'
|
|
|
- if rand_anus = 1:$pcdesc_anusrandom = 'snug'
|
|
|
- if rand_anus = 2:$pcdesc_anusrandom = 'tightly-clenching'
|
|
|
+ if rand_anus = 0:
|
|
|
+ $pcdesc_anusrandom = 'tight'
|
|
|
+ elseif rand_anus = 1:
|
|
|
+ $pcdesc_anusrandom = 'snug'
|
|
|
+ elseif rand_anus = 2:
|
|
|
+ $pcdesc_anusrandom = 'tightly-clenching'
|
|
|
+ end
|
|
|
$pcdesc_anus = 'tight'
|
|
|
$pcdesc_anuswordy = 'tight, scarcely-used'
|
|
|
$anustipe = 'tight'
|
|
|
@@ -163,9 +182,13 @@ if analplugIN = 0:
|
|
|
anpic = 2
|
|
|
$pcs_ass = 'Your pliable <a href="exec:view''images/pc/body/anus/2.jpg''">anus</a> has the shape of an asterisk.'
|
|
|
rand_anus = rand(0,2)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'flexible'
|
|
|
- if rand_anus = 1:$pcdesc_anusrandom = 'slightly experienced'
|
|
|
- if rand_anus = 2:$pcdesc_anusrandom = 'pliable'
|
|
|
+ if rand_anus = 0:
|
|
|
+ $pcdesc_anusrandom = 'flexible'
|
|
|
+ elseif rand_anus = 1:
|
|
|
+ $pcdesc_anusrandom = 'slightly experienced'
|
|
|
+ elseif rand_anus = 2:
|
|
|
+ $pcdesc_anusrandom = 'pliable'
|
|
|
+ end
|
|
|
$pcdesc_anus = 'flexible'
|
|
|
$pcdesc_anuswordy = 'flexible, still-snug'
|
|
|
$anustipe = 'flexible'
|
|
|
@@ -173,9 +196,13 @@ if analplugIN = 0:
|
|
|
anpic = 3
|
|
|
$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/3.jpg''">anus</a> is usually slightly parted, it has been used quite often.'
|
|
|
rand_anus = rand(0,2)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'stretchy'
|
|
|
- if rand_anus = 1:$pcdesc_anusrandom = 'experienced'
|
|
|
- if rand_anus = 2:$pcdesc_anusrandom = 'welcomingly ready'
|
|
|
+ if rand_anus = 0:
|
|
|
+ $pcdesc_anusrandom = 'stretchy'
|
|
|
+ elseif rand_anus = 1:
|
|
|
+ $pcdesc_anusrandom = 'experienced'
|
|
|
+ elseif rand_anus = 2:
|
|
|
+ $pcdesc_anusrandom = 'welcomingly ready'
|
|
|
+ end
|
|
|
$pcdesc_anus = 'stretchy'
|
|
|
$pcdesc_anuswordy = 'stretchy, regularly-fucked'
|
|
|
$anustipe = 'stretchy'
|
|
|
@@ -183,9 +210,13 @@ if analplugIN = 0:
|
|
|
anpic = 4
|
|
|
$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/4.jpg''">anus</a> often looks like a wide hole; anyone would think that the only thing you do is anal sex.'
|
|
|
rand_anus = rand(0,2)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'loose'
|
|
|
- if rand_anus = 1:$pcdesc_anusrandom = 'casually open'
|
|
|
- if rand_anus = 2:$pcdesc_anusrandom = 'routinely-fucked'
|
|
|
+ if rand_anus = 0:
|
|
|
+ $pcdesc_anusrandom = 'loose'
|
|
|
+ elseif rand_anus = 1:
|
|
|
+ $pcdesc_anusrandom = 'casually open'
|
|
|
+ elseif rand_anus = 2:
|
|
|
+ $pcdesc_anusrandom = 'routinely-fucked'
|
|
|
+ end
|
|
|
$pcdesc_anus = 'loose'
|
|
|
$pcdesc_anuswordy = 'loose, open'
|
|
|
$anustipe = 'loose'
|
|
|
@@ -193,9 +224,13 @@ if analplugIN = 0:
|
|
|
anpic = 5
|
|
|
$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/5.jpg''">anus</a> genuinely doesn''t fully close on its own anymore. You could put a fist through it and it would scarcely stretch at all.'
|
|
|
rand_anus = rand(0,2)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'gaping'
|
|
|
- if rand_anus = 1:$pcdesc_anusrandom = 'yawning'
|
|
|
- if rand_anus = 2:$pcdesc_anusrandom = 'obscenely yawning'
|
|
|
+ if rand_anus = 0:
|
|
|
+ $pcdesc_anusrandom = 'gaping'
|
|
|
+ elseif rand_anus = 1:
|
|
|
+ $pcdesc_anusrandom = 'yawning'
|
|
|
+ elseif rand_anus = 2:
|
|
|
+ $pcdesc_anusrandom = 'obscenely yawning'
|
|
|
+ end
|
|
|
$pcdesc_anus = 'gaping'
|
|
|
$pcdesc_anuswordy = 'gaping, seemingly constantly-fucked'
|
|
|
$anustipe = 'gaping'
|
|
|
@@ -203,52 +238,39 @@ if analplugIN = 0:
|
|
|
anpic = 6
|
|
|
$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.'
|
|
|
rand_anus = rand(0,4)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'destroyed'
|
|
|
- if rand_anus = 1:$pcdesc_anusrandom = 'demolished'
|
|
|
- if rand_anus = 2:$pcdesc_anusrandom = 'uselessly loose'
|
|
|
- if rand_anus = 3:$pcdesc_anusrandom = 'ruined'
|
|
|
- if rand_anus = 4:$pcdesc_anusrandom = 'wrecked'
|
|
|
+ if rand_anus = 0:
|
|
|
+ $pcdesc_anusrandom = 'destroyed'
|
|
|
+ elseif rand_anus = 1:
|
|
|
+ $pcdesc_anusrandom = 'demolished'
|
|
|
+ elseif rand_anus = 2:
|
|
|
+ $pcdesc_anusrandom = 'uselessly loose'
|
|
|
+ elseif rand_anus = 3:
|
|
|
+ $pcdesc_anusrandom = 'ruined'
|
|
|
+ elseif rand_anus = 4:
|
|
|
+ $pcdesc_anusrandom = 'wrecked'
|
|
|
+ end
|
|
|
$pcdesc_anus = 'destroyed'
|
|
|
$pcdesc_anuswordy = 'absolutely fuck-wrecked'
|
|
|
$anustipe = 'destroyed'
|
|
|
end
|
|
|
!! This below was originally missing even the original reference for $anustipe, so I added it in simplistically. Also, tanga means panties, or more specifically, a thong. A lot of duplication on descriptions, but not much to change, the logic is for images.
|
|
|
- elseif analplugIN = 1 and $pantyworntype ! 'none':
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
- rand_anus = rand(0)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
|
|
|
- $pcdesc_anus = 'plugged'
|
|
|
- $pcdesc_anuswordy = 'plug-stuffed'
|
|
|
- $anustipe = 'plugged'
|
|
|
-elseif analplugIN = 1 and $pantyworntype = 'none':
|
|
|
- if pirsG = 1 and pirsGL = 1:
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirscligub.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
- rand_anus = rand(0)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
|
|
|
- $pcdesc_anus = 'plugged'
|
|
|
- $pcdesc_anuswordy = 'plug-stuffed'
|
|
|
- $anustipe = 'plugged'
|
|
|
- elseif pirsG ! 1 and pirsGL = 1:
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsclit.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
- rand_anus = rand(0)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
|
|
|
- $pcdesc_anus = 'plugged'
|
|
|
- $pcdesc_anuswordy = 'plug-stuffed'
|
|
|
- $anustipe = 'plugged'
|
|
|
- elseif pirsG = 1 and pirsGL ! 1:
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsring.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
- rand_anus = rand(0)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
|
|
|
- $pcdesc_anus = 'plugged'
|
|
|
- $pcdesc_anuswordy = 'plug-stuffed'
|
|
|
- $anustipe = 'plugged'
|
|
|
+else
|
|
|
+ $pcdesc_anusrandom = 'plugged'
|
|
|
+ $pcdesc_anus = 'plugged'
|
|
|
+ $pcdesc_anuswordy = 'plug-stuffed'
|
|
|
+ $anustipe = 'plugged'
|
|
|
+ if $pantyworntype ! 'none':
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
else
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
- rand_anus = rand(0)
|
|
|
- if rand_anus = 0:$pcdesc_anusrandom = 'plugged'
|
|
|
- $pcdesc_anus = 'plugged'
|
|
|
- $pcdesc_anuswordy = 'plug-stuffed'
|
|
|
- $anustipe = 'plugged'
|
|
|
+ if pirsG = 1 and pirsGL = 1:
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirscligub.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
+ elseif pirsG ! 1 and pirsGL = 1:
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsclit.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
+ elseif pirsG = 1 and pirsGL ! 1:
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugpirsring.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
+ else
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
|
|
|
@@ -313,8 +335,11 @@ if dounspell = 0:
|
|
|
pcdesc_breastimplantcheck = 1
|
|
|
!! This triggers if they have fake breasts, but they are not obviously, blatantly fake breasts. In fact, this should be what triggers most of the time with a PC who has implants, given average cases.
|
|
|
elseif pcs_bustdisparity < 1 and silicone > 0:
|
|
|
- if pcs_cupsize <= 30:$pcdesc_breastsword = 'breasts'
|
|
|
- if pcs_cupsize > 30:$pcdesc_breastsword = 'tits'
|
|
|
+ if pcs_cupsize <= 30:
|
|
|
+ $pcdesc_breastsword = 'breasts'
|
|
|
+ else
|
|
|
+ $pcdesc_breastsword = 'tits'
|
|
|
+ end
|
|
|
$pcdesc_breastsqualifier = ''
|
|
|
$pcdesc_breastsqualifierinsertive = ''
|
|
|
pcdesc_breastimplantcheck = 1
|
|
|
@@ -328,85 +353,136 @@ if dounspell = 0:
|
|
|
end
|
|
|
|
|
|
!! These will not be used below, but can be referenced by descriptive writers in case they want to be able to quickly reference whether or not the PC has implants, as in "He reaches up and cups your<<$pcdesc_breastsfakeinsertive>> breasts."
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastsfakeinsertive = ' fake'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastsfakeinsertive = ''
|
|
|
-
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastsfakeinsertive = ' fake'
|
|
|
+ else
|
|
|
+ $pcdesc_breastsfakeinsertive = ''
|
|
|
+ end
|
|
|
|
|
|
if pcs_cupsize <= 5:
|
|
|
tits = 0
|
|
|
$titsize = 'AA cup'
|
|
|
rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'tiny'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'barely-there'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'tiny'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'barely-there'
|
|
|
+ end
|
|
|
!! Honestly, I am not even sure it is possible to have silicone and be this small. But just in case...
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'scarcely-augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'tiny, mosquito-bite <<$pcdesc_breastsword>>'
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'scarcely-augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'tiny, mosquito-bite <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'tiny'
|
|
|
elseif pcs_cupsize <= 10:
|
|
|
tits = 1
|
|
|
$titsize = 'A cup'
|
|
|
rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'petite'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'smaller than a handful'
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'barely modified<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'petite, puffy little <<$pcdesc_breastsword>>'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'petite'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'smaller than a handful'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'barely modified<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'petite, puffy little <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'petite'
|
|
|
elseif pcs_cupsize <= 15:
|
|
|
tits = 2
|
|
|
$titsize = 'B cup'
|
|
|
rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'small'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'sporty'
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'small, subtly augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'small, handful-sized <<$pcdesc_breastsword>>'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'small'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'sporty'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'small, subtly augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'small, handful-sized <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'small'
|
|
|
elseif pcs_cupsize <= 20:
|
|
|
tits = 3
|
|
|
$titsize = 'C cup'
|
|
|
rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'ample'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'average-sized'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'ample'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'average-sized'
|
|
|
+ end
|
|
|
!! At this point PCs should now be able to get the bolted-on look, so we need to be a bit more careful to avoid contradictions in descriptive phrasing. It is OK to have some repetition here for a cup size or two.
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'ample, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'ample, handful-sized <<$pcdesc_breastsword>>'
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'ample, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'ample, handful-sized <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'ample'
|
|
|
elseif pcs_cupsize <= 25:
|
|
|
tits = 4
|
|
|
$titsize = 'D cup'
|
|
|
rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'full'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'hefty'
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'full, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'jiggly, womanly full <<$pcdesc_breastsword>>'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'full'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'hefty'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'full, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'jiggly, womanly full <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'full'
|
|
|
elseif pcs_cupsize <= 30:
|
|
|
tits = 5
|
|
|
$titsize = 'E cup'
|
|
|
rand_breasts = rand(0,2)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'generous'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'heavy'
|
|
|
- if rand_breasts = 2:$pcdesc_breastsrandom = 'fairly large'
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'heavy, fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'soft, generously-sized <<$pcdesc_breastsword>>'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'generous'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'heavy'
|
|
|
+ elseif rand_breasts = 2:
|
|
|
+ $pcdesc_breastsrandom = 'fairly large'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'heavy, fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'soft, generously-sized <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'generous'
|
|
|
elseif pcs_cupsize <= 35:
|
|
|
!! From F cup and onward, breasts are now automatically referred to as tits, since that is how most others will see them. It is a subtle sexualisation, but it should be one that matches with the pre-generated descriptions from here on out.
|
|
|
tits = 6
|
|
|
$titsize = 'F cup'
|
|
|
rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'big'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'large'
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'big, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'big, jiggly and sizeable <<$pcdesc_breastsword>>'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'big'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'large'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'big, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'big, jiggly and sizeable <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'big'
|
|
|
elseif pcs_cupsize <= 40:
|
|
|
tits = 7
|
|
|
$titsize = 'G cup'
|
|
|
rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:$pcdesc_breastsrandom = 'considerably large'
|
|
|
- if rand_breasts = 1:$pcdesc_breastsrandom = 'quite large'
|
|
|
- if pcdesc_breastimplantcheck = 1:$pcdesc_breastswordy = 'considerably large, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- if pcdesc_breastimplantcheck = 0:$pcdesc_breastswordy = 'quite large and jiggly <<$pcdesc_breastsword>>'
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'considerably large'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'quite large'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'considerably large, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'quite large and jiggly <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
$pcdesc_breasts = 'considerably large'
|
|
|
elseif pcs_cupsize <= 45:
|
|
|
tits = 8
|
|
|
@@ -550,19 +626,16 @@ end
|
|
|
if curly <= 0:
|
|
|
$curly = 'straight, slightly wavy '
|
|
|
!! Not a lot of variety here, I know -- it is for future compatibility, so everything can have be reached in the same fashion.
|
|
|
- rand_hairtexture = rand(0)
|
|
|
- rand_hairword = rand(0)
|
|
|
- if rand_hairtexture = 0:$pcdesc_hairtexturerandom = 'straight'
|
|
|
- if rand_hairword = 0:$pcdesc_hairwordrandom = 'locks'
|
|
|
+ $pcdesc_hairtexturerandom = 'straight'
|
|
|
+ $pcdesc_hairwordrandom = 'locks'
|
|
|
$pcdesc_hairtexturewordy = 'straight, slightly wavy'
|
|
|
$pcdesc_hairwordwordy = 'locks'
|
|
|
$pcdesc_hairtexture = 'straight'
|
|
|
$pcdesc_hairword = 'locks'
|
|
|
else
|
|
|
$curly = 'curly '
|
|
|
- rand_hairtexture = rand(0)
|
|
|
rand_hairword = rand(0,1)
|
|
|
- if rand_hairtexture = 0:$pcdesc_hairtexturerandom = 'curly'
|
|
|
+ $pcdesc_hairtexturerandom = 'curly'
|
|
|
if rand_hairword = 0:$pcdesc_hairwordrandom = 'curls'
|
|
|
if rand_hairword = 1:$pcdesc_hairwordrandom = 'ringlets'
|
|
|
$pcdesc_hairtexturewordy = 'playfully curly'
|
|
|
@@ -574,8 +647,7 @@ end
|
|
|
!! If you are baffled by the need for a forehead descriptor here, it is primarily just for writing about cumshots. I honestly cannot think of another use case. Other variables largely just for compatibility.
|
|
|
if hbangs <= 0:
|
|
|
$hbangs = ''
|
|
|
- rand_bangs = rand(0)
|
|
|
- if rand_bangs = 0:$pcdesc_foreheadrandom = 'forehead'
|
|
|
+ $pcdesc_foreheadrandom = 'forehead'
|
|
|
$pcdesc_foreheadwordy = 'forehead'
|
|
|
$pcdesc_forehead = 'forehead'
|
|
|
else
|
|
|
@@ -665,8 +737,7 @@ elseif pcs_haircol = 7:
|
|
|
elseif pcs_haircol = 8:
|
|
|
$pcs_haircol = 'dark green'
|
|
|
$pcdesc_haircolour = 'dark green'
|
|
|
- rand_hair = rand(0)
|
|
|
- if rand_hair = 0:$pcdesc_hairrandom = 'dark green'
|
|
|
+ $pcdesc_hairrandom = 'dark green'
|
|
|
!! Emerald green is actually a lighter colour, but with the specific qualifier of deep, it can be used here for lack of a better one.
|
|
|
$pcdesc_haircolourwordy = 'deep, emerald-green'
|
|
|
elseif pcs_haircol = 9:
|
|
|
@@ -778,20 +849,16 @@ end
|
|
|
if hscrunchw <= 0:
|
|
|
$hscrunch = ''
|
|
|
$hpigtail = ''
|
|
|
- rand_hairstyle = rand(0)
|
|
|
- rand_hairobject = rand(0)
|
|
|
- if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'loose'
|
|
|
- if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'hair'
|
|
|
+ $pcdesc_hairstylerandom = 'loose'
|
|
|
+ $pcdesc_hairobjectrandom = 'hair'
|
|
|
$pcdesc_hairstyle = 'loose'
|
|
|
$pcdesc_hairobject = 'hair'
|
|
|
$pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
|
|
|
elseif hscrunchw = 1:
|
|
|
$hscrunch = 'A hair-tie holds your hair in place with a ponytail.'
|
|
|
$hpigtail = ''
|
|
|
- rand_hairstyle = rand(0)
|
|
|
- rand_hairobject = rand(0)
|
|
|
- if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'ponytailed'
|
|
|
- if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'ponytail'
|
|
|
+ $pcdesc_hairstylerandom = 'ponytailed'
|
|
|
+ $pcdesc_hairobjectrandom = 'ponytail'
|
|
|
$pcdesc_hairstyle = 'ponytailed'
|
|
|
$pcdesc_hairobject = 'ponytail'
|
|
|
$pcdesc_hairobjectwordy = 'tight, high-set <<$pcs_haircol>> ponytail'
|
|
|
@@ -799,10 +866,8 @@ else
|
|
|
!! The actual, specific setting for hscrunchw when pigtails are desired is 2, but it is better to have a catch-all. Adjust the else above into an elseif set for 2 if more styles involving scrunchies are added.
|
|
|
$hscrunch = ''
|
|
|
$hpigtail = 'Two scrunchies hold your hair up into two cute, playful twin tails.'
|
|
|
- rand_hairstyle = rand(0)
|
|
|
- rand_hairobject = rand(0)
|
|
|
- if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'pigtailed'
|
|
|
- if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'pigtails'
|
|
|
+ $pcdesc_hairstylerandom = 'pigtailed'
|
|
|
+ $pcdesc_hairobjectrandom = 'pigtails'
|
|
|
$pcdesc_hairstyle = 'pigtailed'
|
|
|
$pcdesc_hairobject = 'pigtails'
|
|
|
$pcdesc_hairobjectwordy = 'youthful, playful and flirty <<$pcs_haircol>> pigtails'
|
|
|
@@ -810,20 +875,17 @@ end
|
|
|
|
|
|
if hpingripw <= 0:
|
|
|
$hpingrip = ''
|
|
|
- rand_hairstyle = rand(0)
|
|
|
- rand_hairobject = rand(0)
|
|
|
- if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'loose'
|
|
|
- if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'hair'
|
|
|
+ $pcdesc_hairstylerandom = 'loose'
|
|
|
+ $pcdesc_hairobjectrandom = 'hair'
|
|
|
$pcdesc_hairstyle = 'loose'
|
|
|
$pcdesc_hairobject = 'hair'
|
|
|
$pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
|
|
|
else
|
|
|
$hpingrip = 'Hair-pins hold your hair in place in a stylish updo.'
|
|
|
rand_hairstyle = rand(0,1)
|
|
|
- rand_hairobject = rand(0)
|
|
|
if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'upswept'
|
|
|
if rand_hairstyle = 1:$pcdesc_hairstylerandom = 'ornately-pinned'
|
|
|
- if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'updo'
|
|
|
+ $pcdesc_hairobjectrandom = 'updo'
|
|
|
$pcdesc_hairstyle = 'upswept'
|
|
|
$pcdesc_hairobject = 'updo'
|
|
|
$pcdesc_hairobjectwordy = 'ornate, intricately-pinned <<$pcs_haircol>> updo'
|
|
|
@@ -831,10 +893,8 @@ end
|
|
|
|
|
|
if hbraids <= 0:
|
|
|
$hbraids = ''
|
|
|
- rand_hairstyle = rand(0)
|
|
|
- rand_hairobject = rand(0)
|
|
|
- if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'loose'
|
|
|
- if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'hair'
|
|
|
+ $pcdesc_hairstylerandom = 'loose'
|
|
|
+ $pcdesc_hairobjectrandom = 'hair'
|
|
|
$pcdesc_hairstyle = 'loose'
|
|
|
$pcdesc_hairobject = 'hair'
|
|
|
$pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
|
|
|
@@ -843,9 +903,9 @@ else
|
|
|
rand_hairstyle = rand(0,1)
|
|
|
rand_hairobject = rand(0,1)
|
|
|
if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'braided'
|
|
|
- if rand_hairstyle = 0:$pcdesc_hairstylerandom = 'plaited'
|
|
|
+ if rand_hairstyle = 1:$pcdesc_hairstylerandom = 'plaited'
|
|
|
if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'braids'
|
|
|
- if rand_hairobject = 0:$pcdesc_hairobjectrandom = 'plaits'
|
|
|
+ if rand_hairobject = 1:$pcdesc_hairobjectrandom = 'plaits'
|
|
|
$pcdesc_hairstyle = 'braided'
|
|
|
$pcdesc_hairobject = 'braid'
|
|
|
$pcdesc_hairobjectwordy = 'delicately-wound <<$pcs_haircol>> braid'
|
|
|
@@ -881,8 +941,7 @@ else
|
|
|
$pcdesc_hairlengthwordy = 'medium-length'
|
|
|
elseif pcs_hairlng > 160 and pcs_hairlng <= 260:
|
|
|
$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair reaches your shoulders with several strands going just beyond. Currently your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
|
|
|
- rand_hairlength = rand(0)
|
|
|
- if rand_hairlength = 0:$pcdesc_hairlengthrandom = 'moderate'
|
|
|
+ $pcdesc_hairlengthrandom = 'moderate'
|
|
|
$pcdesc_hairlength = 'moderate'
|
|
|
$pcdesc_hairlengthwordy = 'shoulder-length'
|
|
|
elseif pcs_hairlng > 260 and pcs_hairlng <= 400:
|
|
|
@@ -930,45 +989,47 @@ $pcdesc_fullhairwordy = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlengthwordy>> <<$pc
|
|
|
if pirsA > 0 and pirsA < 10000:
|
|
|
$pirsA = 'When you talk to people, they can sometimes get a glimpse of your tongue piercing.'
|
|
|
rand_tongue = rand(0,1)
|
|
|
- if rand_tongue = 0:$pcdesc_tonguerandom = 'pierced tongue'
|
|
|
- if rand_tongue = 1:$pcdesc_tonguerandom = 'pierced licker'
|
|
|
+ if rand_tongue = 0:
|
|
|
+ $pcdesc_tonguerandom = 'pierced tongue'
|
|
|
+ elseif rand_tongue = 1:
|
|
|
+ $pcdesc_tonguerandom = 'pierced licker'
|
|
|
+ end
|
|
|
$pcdesc_tonguewordy = 'barbell-pierced tongue'
|
|
|
$pcdesc_tongue = 'pierced tongue'
|
|
|
else
|
|
|
$pirsA = ''
|
|
|
rand_tongue = rand(0,1)
|
|
|
- if rand_tongue = 0:$pcdesc_tonguerandom = 'tongue'
|
|
|
- if rand_tongue = 1:$pcdesc_tonguerandom = 'licker'
|
|
|
+ if rand_tongue = 0:
|
|
|
+ $pcdesc_tonguerandom = 'tongue'
|
|
|
+ elseif rand_tongue = 1:
|
|
|
+ $pcdesc_tonguerandom = 'licker'
|
|
|
+ end
|
|
|
$pcdesc_tonguewordy = 'tongue'
|
|
|
$pcdesc_tongue = 'tongue'
|
|
|
end
|
|
|
|
|
|
if pirsB > 0 and pirsB < 10000:
|
|
|
$pirsB = 'Your lip is pierced.'
|
|
|
- rand_lowerlip = rand(0)
|
|
|
- if rand_lowerlip = 0:$pcdesc_lowerliprandom = 'pierced lower lip'
|
|
|
+ $pcdesc_lowerliprandom = 'pierced lower lip'
|
|
|
$pcdesc_lowerlipwordy = 'jewelry-studded lower lip'
|
|
|
$pcdesc_lowerlip = 'pierced lower lip'
|
|
|
else
|
|
|
$pirsB = ''
|
|
|
- rand_lowerlip = rand(0)
|
|
|
- if rand_lowerlip = 0:$pcdesc_lowerliprandom = 'lower lip'
|
|
|
+ $pcdesc_lowerliprandom = 'lower lip'
|
|
|
$pcdesc_lowerlipwordy = 'lower lip'
|
|
|
$pcdesc_lowerlip = 'lower lip'
|
|
|
end
|
|
|
|
|
|
if pirsC > 0 and pirsC < 10000:
|
|
|
$pirsC = 'You are wearing earrings.'
|
|
|
- rand_ears = rand(0)
|
|
|
- if rand_ears = 0:$pcdesc_earsrandom = 'pierced ears' & $pcdesc_earrandom = 'pierced ear'
|
|
|
+ $pcdesc_earsrandom = 'pierced ears' & $pcdesc_earrandom = 'pierced ear'
|
|
|
$pcdesc_earswordy = 'pierced ears'
|
|
|
$pcdesc_ears = 'pierced ears'
|
|
|
$pcdesc_earwordy = 'pierced ear'
|
|
|
$pcdesc_ear = 'pierced ear'
|
|
|
else
|
|
|
$pirsC = ''
|
|
|
- rand_ears = rand(0)
|
|
|
- if rand_ears = 0:$pcdesc_earsrandom = 'ears' & $pcdesc_earrandom = 'ear'
|
|
|
+ $pcdesc_earsrandom = 'ears' & $pcdesc_earrandom = 'ear'
|
|
|
$pcdesc_earswordy = 'ears'
|
|
|
$pcdesc_ears = 'ears'
|
|
|
$pcdesc_earwordy = 'ear'
|
|
|
@@ -978,42 +1039,36 @@ end
|
|
|
!! Unfortunately there is no real way to tell if it is a pierced septum or a pierced nostril without overhauling the jewelry and other piercing references for now.
|
|
|
if pirsD > 0 and pirsD < 10000:
|
|
|
$pirsD = 'You have a piercing inserted in your nose.'
|
|
|
- rand_nose = rand(0)
|
|
|
- if rand_nose = 0:$pcdesc_noserandom = 'pierced nose'
|
|
|
+ $pcdesc_noserandom = 'pierced nose'
|
|
|
$pcdesc_nosewordy = 'jewelry-studded nose'
|
|
|
$pcdesc_nose = 'pierced nose'
|
|
|
else
|
|
|
$pirsD = ''
|
|
|
- rand_nose = rand(0)
|
|
|
- if rand_nose = 0:$pcdesc_noserandom = 'nose'
|
|
|
+ $pcdesc_noserandom = 'nose'
|
|
|
$pcdesc_nosewordy = 'nose'
|
|
|
$pcdesc_nose = 'nose'
|
|
|
end
|
|
|
|
|
|
if pirsE > 0 and pirsE < 10000:
|
|
|
$pirsE = 'Your eyebrow is pierced.'
|
|
|
- rand_eyebrow = rand(0)
|
|
|
- if rand_eyebrow = 0:$pcdesc_eyebrowrandom = 'pierced eyebrow'
|
|
|
+ $pcdesc_eyebrowrandom = 'pierced eyebrow'
|
|
|
$pcdesc_eyebrowwordy = 'pierced eyebrow'
|
|
|
$pcdesc_eyebrow = 'pierced eyebrow'
|
|
|
else
|
|
|
$pirsE = ''
|
|
|
- rand_eyebrow = rand(0)
|
|
|
- if rand_eyebrow = 0:$pcdesc_eyebrowrandom = 'eyebrow'
|
|
|
+ $pcdesc_eyebrowrandom = 'eyebrow'
|
|
|
$pcdesc_eyebrowwordy = 'eyebrow'
|
|
|
$pcdesc_eyebrow = 'eyebrow'
|
|
|
end
|
|
|
|
|
|
if pirsN > 0 and pirsN < 10000:
|
|
|
$pirsN = 'You are wearing a navel piercing.'
|
|
|
- rand_navel = rand(0)
|
|
|
- if rand_navel = 0:$pcdesc_navelrandom = 'pierced navel'
|
|
|
+ $pcdesc_navelrandom = 'pierced navel'
|
|
|
$pcdesc_navelwordy = 'pierced navel'
|
|
|
$pcdesc_navel = 'pierced navel'
|
|
|
else
|
|
|
$pirsN = ''
|
|
|
- rand_navel = rand(0)
|
|
|
- if rand_navel = 0:$pcdesc_navelrandom = 'navel'
|
|
|
+ $pcdesc_navelrandom = 'navel'
|
|
|
$pcdesc_navelwordy = 'navel'
|
|
|
$pcdesc_navel = 'navel'
|
|
|
end
|
|
|
@@ -1021,14 +1076,12 @@ end
|
|
|
!! Some of these are labial rings, some of them are hood piercings. No good way to tell without an overhaul.
|
|
|
if pirsG > 0 and pirsG < 10000:
|
|
|
$pirspiz = 'You are wearing a pubic piercing.'
|
|
|
- rand_genitals = rand(0)
|
|
|
- if rand_genitals = 0:$pcdesc_genitalsrandom = 'pierced pussy'
|
|
|
+ $pcdesc_genitalsrandom = 'pierced pussy'
|
|
|
$pcdesc_genitalswordy = 'jewelry-adorned pussy'
|
|
|
$pcdesc_genitals = 'pierced pussy'
|
|
|
else
|
|
|
$pirspiz = ''
|
|
|
- rand_genitals = rand(0)
|
|
|
- if rand_genitals = 0:$pcdesc_genitalsrandom = 'pussy'
|
|
|
+ $pcdesc_genitalsrandom = 'pussy'
|
|
|
$pcdesc_genitalswordy = 'pussy'
|
|
|
$pcdesc_genitals = 'pussy'
|
|
|
end
|
|
|
@@ -1153,8 +1206,7 @@ if pcs_lipbalm > 0:
|
|
|
$lip = 'You have pillowy, <<$pcdesc_lipgloss>>, suggestively full lips. <<$pirsB>> <<$pirsA>>'
|
|
|
else
|
|
|
!! Lip size 0
|
|
|
- rand_lipgloss = rand(0)
|
|
|
- if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'shiny'
|
|
|
+ $pcdesc_lipglossrandom = 'shiny'
|
|
|
$pcs_lipbalm = 'shiny'
|
|
|
$pcdesc_lipgloss = 'shiny'
|
|
|
$pcdesc_lipglossinsertive = ', shiny'
|
|
|
@@ -1164,8 +1216,7 @@ if pcs_lipbalm > 0:
|
|
|
end
|
|
|
else
|
|
|
!! No gloss
|
|
|
- rand_lipgloss = rand(0)
|
|
|
- if rand_lipgloss = 0:$pcdesc_lipglossrandom = 'soft'
|
|
|
+ $pcdesc_lipglossrandom = 'soft'
|
|
|
$pcs_lipbalm = 'soft'
|
|
|
$pcdesc_lipgloss = 'soft'
|
|
|
$pcdesc_lipglossinsertive = ''
|
|
|
@@ -1320,8 +1371,7 @@ elseif pcs_eyecol = 3:
|
|
|
$pcdesc_eyecolourwordy = 'vibrant, crystal blue'
|
|
|
$pcs_eyecol = 'blue'
|
|
|
else
|
|
|
- rand_eyecol = rand(0)
|
|
|
- if rand_eyecol = 0:$pcdesc_eyecolourrandom = 'attractive'
|
|
|
+ $pcdesc_eyecolourrandom = 'attractive'
|
|
|
$pcdesc_eyecolour = 'attractive'
|
|
|
$pcdesc_eyecolourwordy = 'attractive'
|
|
|
$pcs_eyecol = 'attractive'
|
|
|
@@ -1386,8 +1436,7 @@ elseif pcs_lashes = 2:
|
|
|
$pcdesc_lasheswordy = 'long, fluttery'
|
|
|
$pcs_lashes = 'with long eyelashes'
|
|
|
elseif pcs_lashes = 1:
|
|
|
- rand_lashes = rand(0)
|
|
|
- if rand_lashes = 0:$pcdesc_lashesrandom = 'average'
|
|
|
+ $pcdesc_lashesrandom = 'average'
|
|
|
$pcdesc_lashes = 'average'
|
|
|
$pcdesc_lasheswordy = 'average'
|
|
|
$pcs_lashes = 'with average eyelashes'
|
|
|
@@ -1437,16 +1486,15 @@ end
|
|
|
|
|
|
!! Most of these sound really terrible. Would REALLY recommend only using the insertive context, as the less-flowery versions will simply not return anything at all.
|
|
|
if pcs_eyesize = 0:
|
|
|
- rand_eyesize = rand(0)
|
|
|
- if rand_eyesize = 0:$pcdesc_eyesizerandom = 'tiny'
|
|
|
+ $pcdesc_eyesizerandom = 'tiny'
|
|
|
$pcdesc_eyesize = 'small'
|
|
|
$pcdesc_eyesizeinsertive = ''
|
|
|
$pcdesc_eyesizewordy = 'little'
|
|
|
$glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
|
|
|
elseif pcs_eyesize = 1:
|
|
|
- rand_eyesize = rand(0)
|
|
|
+ rand_eyesize = rand(0,1)
|
|
|
if rand_eyesize = 0:$pcdesc_eyesizerandom = 'medium'
|
|
|
- if rand_eyesize = 0:$pcdesc_eyesizerandom = 'average-sized'
|
|
|
+ if rand_eyesize = 1:$pcdesc_eyesizerandom = 'average-sized'
|
|
|
$pcdesc_eyesize = 'medium-sized'
|
|
|
$pcdesc_eyesizeinsertive = ''
|
|
|
$pcdesc_eyesizewordy = 'medium-sized'
|
KevinSmarts