|
|
@@ -7,2442 +7,2565 @@
|
|
|
!! or even random variation, but these should work regardless -- they just may use a non-wordy, or non-random version, if it is something that does not really warrant such.
|
|
|
!! There is also a special string, $pcdesc_typeinsertive, that follows the format " , descriptive text" as in, " , invitingly-glossed". Please check the master string document to see if this exists for the string you need. - xerya, July 2017
|
|
|
|
|
|
-if pcs_throat = 0:
|
|
|
- $pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
|
|
|
- $pcdesc_throatrandom = 'virgin'
|
|
|
- $pcdesc_throat = 'virgin'
|
|
|
- $pcdesc_throatwordy = 'virginal, unused'
|
|
|
- $throattipe = 'virgin'
|
|
|
-elseif pcs_throat <= 5:
|
|
|
- $pcs_throat = 'You have an extremely inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
|
|
|
- $pcdesc_throatrandom = 'narrow'
|
|
|
- $pcdesc_throat = 'narrow'
|
|
|
- $pcdesc_throatwordy = 'reluctant, gag-prone'
|
|
|
- $throattipe = 'narrow'
|
|
|
-elseif pcs_throat <= 10:
|
|
|
- $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.'
|
|
|
- $pcdesc_throatrandom = 'delicate'
|
|
|
- $pcdesc_throat = 'delicate'
|
|
|
- $pcdesc_throatwordy = 'delicate, barely-experienced'
|
|
|
- $throattipe = 'delicate'
|
|
|
-elseif pcs_throat <= 15:
|
|
|
- $pcs_throat = 'You have an experienced mouth and fairly practiced <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
|
|
|
- $pcdesc_throatrandom = 'fairly practiced'
|
|
|
- $pcdesc_throat = 'fairly practiced'
|
|
|
- $pcdesc_throatwordy = 'fairly practiced'
|
|
|
- $throattipe = 'fairly practiced'
|
|
|
-elseif pcs_throat <= 25:
|
|
|
- $pcs_throat = 'You have a willing mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
|
|
|
- $pcdesc_throatrandom = 'well-trained'
|
|
|
- $pcdesc_throat = 'well-trained'
|
|
|
- $pcdesc_throatwordy = 'experienced, well-trained and eager'
|
|
|
- $throattipe = 'well-trained'
|
|
|
-elseif pcs_throat <= 35:
|
|
|
- $pcs_throat = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
|
|
|
- $pcdesc_throatrandom = 'capacious'
|
|
|
- $pcdesc_throat = 'capacious'
|
|
|
- $pcdesc_throatwordy = 'seasoned, effortlessly-plumbed'
|
|
|
- $throattipe = 'capacious'
|
|
|
-else
|
|
|
- $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.'
|
|
|
- $pcdesc_throatrandom = 'bottomless'
|
|
|
- $pcdesc_throat = 'bottomless'
|
|
|
- $pcdesc_throatwordy = 'elastic, oft-fucked'
|
|
|
- $throattipe = 'bottomless'
|
|
|
-end
|
|
|
-
|
|
|
-if pcs_breath = 1:$pcs_throat += ' Last you checked, your breath smelled fresh and minty.'
|
|
|
-
|
|
|
-
|
|
|
-if pcs_vag = 0:
|
|
|
- $pcs_vag = 'Your virgin <a href="exec:view''images/pc/body/pussy/stage0/' + rand(1,5) + '.jpg''">pussy</a> still has its hymen intact.'
|
|
|
- $pcdesc_pussyrandom = 'virgin'
|
|
|
- $pcdesc_pussy = 'virgin'
|
|
|
- $pcdesc_pussywordy = 'virgin'
|
|
|
- $vaginatipe = 'virgin'
|
|
|
-elseif pcs_vag <= 5:
|
|
|
- $pcs_vag = 'You have an inexperienced <a href="exec:view''images/pc/body/pussy/stage1/' + rand(1,5) + '.jpg''">pussy</a>.'
|
|
|
- rand_pussy = rand(0,2)
|
|
|
- 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'
|
|
|
-elseif pcs_vag <= 10:
|
|
|
- $pcs_vag = 'You have a tight <a href="exec:view''images/pc/body/pussy/stage2/' + rand(1,5) + '.jpg''">pussy</a>.'
|
|
|
- rand_pussy = rand(0,1)
|
|
|
- if rand_pussy = 0:
|
|
|
- $pcdesc_pussyrandom = 'snug'
|
|
|
- elseif rand_pussy = 1:
|
|
|
- $pcdesc_pussyrandom = 'tight'
|
|
|
- end
|
|
|
- $pcdesc_pussy = 'tight'
|
|
|
- $pcdesc_pussywordy = 'youthfully tight'
|
|
|
- $vaginatipe = 'tight'
|
|
|
-elseif pcs_vag <= 15:
|
|
|
- $pcs_vag = 'Your <a href="exec:view''images/pc/body/pussy/stage3/' + rand(1,5) + '.jpg''">vagina</a> is used to taking normal sized insertions.'
|
|
|
- rand_pussy = rand(0,2)
|
|
|
- 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'
|
|
|
-elseif pcs_vag <= 25:
|
|
|
- $pcs_vag = 'You have a well-developed <a href="exec:view''images/pc/body/pussy/stage4/' + rand(1,5) + '.jpg''">vagina</a>.'
|
|
|
- rand_pussy = rand(0,3)
|
|
|
- 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'
|
|
|
-else
|
|
|
- if rand(0,1) = 0:
|
|
|
- $pcs_vag = 'Your regularly-fucked <a href="exec:view''images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg''">playground</a> can take most things you force up there.'
|
|
|
+if $ARGS[0] = '':
|
|
|
+
|
|
|
+ if pcs_throat = 0:
|
|
|
+ $pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
|
|
|
+ $pcdesc_throatrandom = 'virgin'
|
|
|
+ $pcdesc_throat = 'virgin'
|
|
|
+ $pcdesc_throatwordy = 'virginal, unused'
|
|
|
+ $throattipe = 'virgin'
|
|
|
+ elseif pcs_throat <= 5:
|
|
|
+ $pcs_throat = 'You have an extremely inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
|
|
|
+ $pcdesc_throatrandom = 'narrow'
|
|
|
+ $pcdesc_throat = 'narrow'
|
|
|
+ $pcdesc_throatwordy = 'reluctant, gag-prone'
|
|
|
+ $throattipe = 'narrow'
|
|
|
+ elseif pcs_throat <= 10:
|
|
|
+ $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.'
|
|
|
+ $pcdesc_throatrandom = 'delicate'
|
|
|
+ $pcdesc_throat = 'delicate'
|
|
|
+ $pcdesc_throatwordy = 'delicate, barely-experienced'
|
|
|
+ $throattipe = 'delicate'
|
|
|
+ elseif pcs_throat <= 15:
|
|
|
+ $pcs_throat = 'You have an experienced mouth and fairly practiced <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
|
|
|
+ $pcdesc_throatrandom = 'fairly practiced'
|
|
|
+ $pcdesc_throat = 'fairly practiced'
|
|
|
+ $pcdesc_throatwordy = 'fairly practiced'
|
|
|
+ $throattipe = 'fairly practiced'
|
|
|
+ elseif pcs_throat <= 25:
|
|
|
+ $pcs_throat = 'You have a willing mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
|
|
|
+ $pcdesc_throatrandom = 'well-trained'
|
|
|
+ $pcdesc_throat = 'well-trained'
|
|
|
+ $pcdesc_throatwordy = 'experienced, well-trained and eager'
|
|
|
+ $throattipe = 'well-trained'
|
|
|
+ elseif pcs_throat <= 35:
|
|
|
+ $pcs_throat = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
|
|
|
+ $pcdesc_throatrandom = 'capacious'
|
|
|
+ $pcdesc_throat = 'capacious'
|
|
|
+ $pcdesc_throatwordy = 'seasoned, effortlessly-plumbed'
|
|
|
+ $throattipe = 'capacious'
|
|
|
else
|
|
|
- $pcs_vag = 'Your poor little <a href="exec:view''images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg''">pussy</a> is so used to being over-stuffed that it takes a huge member just to get off.'
|
|
|
- end
|
|
|
- rand_pussy = rand(0,6)
|
|
|
- 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'
|
|
|
- elseif rand_pussy = 4:
|
|
|
- $pcdesc_pussyrandom = 'always-ready'
|
|
|
- elseif rand_pussy = 5:
|
|
|
- $pcdesc_pussyrandom = 'near daily-stuffed'
|
|
|
- elseif rand_pussy = 6:
|
|
|
- $pcdesc_pussyrandom = 'overeager, ever-popular'
|
|
|
- end
|
|
|
- $pcdesc_pussy = 'overeager'
|
|
|
- $pcdesc_pussywordy = 'cock-tamed and ever-ready'
|
|
|
- $vaginatipe = 'oft-fucked'
|
|
|
-end
|
|
|
-
|
|
|
-!! The original variables are all named for ass, but really, this is just all about the asshole.
|
|
|
-if analplugIN = 0:
|
|
|
- if pcs_ass = 0:
|
|
|
- anpic = 0
|
|
|
- $pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/stage0/' + rand(1,5) + '.jpg''">anus</a>.'
|
|
|
- $pcdesc_anusrandom = 'virgin'
|
|
|
- $pcdesc_anus = 'virgin'
|
|
|
- $pcdesc_anuswordy = 'virgin'
|
|
|
- $anustipe = 'virgin'
|
|
|
- elseif pcs_ass <= 5:
|
|
|
- anpic = 1
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage1/' + rand(1,5) + '.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'
|
|
|
- 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'
|
|
|
- elseif pcs_ass <= 10:
|
|
|
- anpic = 2
|
|
|
- $pcs_ass = 'Your pliable <a href="exec:view''images/pc/body/anus/stage2/' + rand(1,5) + '.jpg''">anus</a> has the shape of an asterisk.'
|
|
|
- rand_anus = rand(0,2)
|
|
|
- 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'
|
|
|
- elseif pcs_ass <= 15:
|
|
|
- anpic = 3
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage3/' + rand(1,5) + '.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'
|
|
|
- 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'
|
|
|
- elseif pcs_ass <= 25:
|
|
|
- anpic = 4
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage4/' + rand(1,5) + '.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'
|
|
|
- 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'
|
|
|
+ $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.'
|
|
|
+ $pcdesc_throatrandom = 'bottomless'
|
|
|
+ $pcdesc_throat = 'bottomless'
|
|
|
+ $pcdesc_throatwordy = 'elastic, oft-fucked'
|
|
|
+ $throattipe = 'bottomless'
|
|
|
+ end
|
|
|
+
|
|
|
+ if pcs_breath = 1:$pcs_throat += ' Last you checked, your breath smelled fresh and minty.'
|
|
|
+
|
|
|
+
|
|
|
+ if pcs_vag = 0:
|
|
|
+ $pcs_vag = 'Your virgin <a href="exec:view''images/pc/body/pussy/stage0/' + rand(1,5) + '.jpg''">pussy</a> still has its hymen intact.'
|
|
|
+ $pcdesc_pussyrandom = 'virgin'
|
|
|
+ $pcdesc_pussy = 'virgin'
|
|
|
+ $pcdesc_pussywordy = 'virgin'
|
|
|
+ $vaginatipe = 'virgin'
|
|
|
+ elseif pcs_vag <= 5:
|
|
|
+ $pcs_vag = 'You have an inexperienced <a href="exec:view''images/pc/body/pussy/stage1/' + rand(1,5) + '.jpg''">pussy</a>.'
|
|
|
+ rand_pussy = rand(0,2)
|
|
|
+ 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'
|
|
|
+ elseif pcs_vag <= 10:
|
|
|
+ $pcs_vag = 'You have a tight <a href="exec:view''images/pc/body/pussy/stage2/' + rand(1,5) + '.jpg''">pussy</a>.'
|
|
|
+ rand_pussy = rand(0,1)
|
|
|
+ if rand_pussy = 0:
|
|
|
+ $pcdesc_pussyrandom = 'snug'
|
|
|
+ elseif rand_pussy = 1:
|
|
|
+ $pcdesc_pussyrandom = 'tight'
|
|
|
+ end
|
|
|
+ $pcdesc_pussy = 'tight'
|
|
|
+ $pcdesc_pussywordy = 'youthfully tight'
|
|
|
+ $vaginatipe = 'tight'
|
|
|
+ elseif pcs_vag <= 15:
|
|
|
+ $pcs_vag = 'Your <a href="exec:view''images/pc/body/pussy/stage3/' + rand(1,5) + '.jpg''">vagina</a> is used to taking normal sized insertions.'
|
|
|
+ rand_pussy = rand(0,2)
|
|
|
+ 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'
|
|
|
+ elseif pcs_vag <= 25:
|
|
|
+ $pcs_vag = 'You have a well-developed <a href="exec:view''images/pc/body/pussy/stage4/' + rand(1,5) + '.jpg''">vagina</a>.'
|
|
|
+ rand_pussy = rand(0,3)
|
|
|
+ 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'
|
|
|
else
|
|
|
- anpic = 5
|
|
|
if rand(0,1) = 0:
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,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.'
|
|
|
- else
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,5) + '.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.'
|
|
|
- end
|
|
|
- rand_anus = rand(0,7)
|
|
|
- if rand_anus = 0:
|
|
|
- $pcdesc_anusrandom = 'gaping'
|
|
|
- elseif rand_anus = 1:
|
|
|
- $pcdesc_anusrandom = 'yawning'
|
|
|
- elseif rand_anus = 2:
|
|
|
- $pcdesc_anusrandom = 'obscenely yawning'
|
|
|
- elseif rand_anus = 3:
|
|
|
- $pcdesc_anusrandom = 'destroyed'
|
|
|
- elseif rand_anus = 4:
|
|
|
- $pcdesc_anusrandom = 'demolished'
|
|
|
- elseif rand_anus = 5:
|
|
|
- $pcdesc_anusrandom = 'uselessly loose'
|
|
|
- elseif rand_anus = 6:
|
|
|
- $pcdesc_anusrandom = 'ruined'
|
|
|
- elseif rand_anus = 7:
|
|
|
- $pcdesc_anusrandom = 'wrecked'
|
|
|
- end
|
|
|
- $pcdesc_anus = 'gaping'
|
|
|
- $pcdesc_anuswordy = 'gaping, seemingly constantly-fucked'
|
|
|
- $anustipe = 'gaping'
|
|
|
- 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.
|
|
|
-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
|
|
|
- if pirsG > 0 and pirsG < 10000:
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/pirs' + rand(1,3) + '.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
+ $pcs_vag = 'Your regularly-fucked <a href="exec:view''images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg''">playground</a> can take most things you force up there.'
|
|
|
else
|
|
|
- $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
|
|
|
+ $pcs_vag = 'Your poor little <a href="exec:view''images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg''">pussy</a> is so used to being over-stuffed that it takes a huge member just to get off.'
|
|
|
end
|
|
|
- end
|
|
|
-end
|
|
|
-
|
|
|
-!!!!!!!!!!!!!!!!
|
|
|
-!!!!!SIZE AND WEIGHT!!!
|
|
|
-!!!!!!!!!!!!!!!!
|
|
|
-if dounspell = 0:
|
|
|
- pcs_hips = (pcs_hgt * hratio) / 100 + vhips
|
|
|
- pcs_waist = (pcs_hips * wratio) / 100 + vofat
|
|
|
- pcs_band = (pcs_waist * bratio) / 100 + vofat
|
|
|
- pcs_bust = (pcs_waist * bratio) / 100 + nbsize + magicf2b + silicone
|
|
|
- pcs_butt = (pcs_hips / 10) + silicone_butt
|
|
|
- pcs_cupsize = pcs_bust - pcs_band
|
|
|
-
|
|
|
-!! If the PC has vastly less breast tissue than she does silicone, use a slightly more derogatory term. There is actually not a great way to calculate this; silicone counts almost the same on all body types, even though an increase of 200cc, for example, would be vastly
|
|
|
-!! more noticeable on a thinner body than a heavier one. I have experimented with moving where the silicone is factored in to the body shape calculations, but ultimately there is just no better way to do it than how it is now, given the things that increase the amount
|
|
|
-!! of silicone in the PC body. The best kludge I can make is working off of stored fat (pcs_weight does actually not do the job at all, as a fat PC and thin PC are almost the same, oddly, in my tests) and making an approximation from there. The amount of the silicone
|
|
|
-!! variable does not really equate to any particular real-life cc calculation for implant size, so we cannot go off of that. This will have to do for now.
|
|
|
- pcs_bustdisparity = (silicone/10) - salocatnow
|
|
|
-
|
|
|
- if pcs_bustdisparity >=1 and pcs_bustdisparity < 2:
|
|
|
- $pcdesc_breastsqualifier = ''
|
|
|
- $pcdesc_breastsqualifierinsertive = ''
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- elseif pcs_bustdisparity >= 2 and pcs_bustdisparity < 3:
|
|
|
- $pcdesc_breastsqualifier = ' semi-spherical'
|
|
|
- $pcdesc_breastsqualifierinsertive = ', semi-spherical'
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- elseif pcs_bustdisparity >= 3 and pcs_bustdisparity < 4:
|
|
|
- $pcdesc_breastsqualifier = ' firm and round'
|
|
|
- $pcdesc_breastsqualifierinsertive = ', firm and round'
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- !! Already we are about as far as a normal, non-fetishistic human being would get -- the maximum size of implant, the XXL, results in 40 silicone, and an extremely thin and well-kept PC will have a minimum salocatnow of 1.
|
|
|
- !! That means that anything below this line means it was a very intentional move toward sexual objectification, as it could only come from fillable or string implants (and on a thin frame, no less), so we can take some liberties.
|
|
|
- elseif pcs_bustdisparity >= 4 and pcs_bustdisparity < 5:
|
|
|
- $pcdesc_breastsqualifier = ' clearly man-made'
|
|
|
- $pcdesc_breastsqualifierinsertive = ', clearly man-made'
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- elseif pcs_bustdisparity >= 5 and pcs_bustdisparity < 6:
|
|
|
- $pcdesc_breastsqualifier = ' plastic fuckdoll'
|
|
|
- $pcdesc_breastsqualifierinsertive = ', plastic fuckdoll'
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- elseif pcs_bustdisparity >= 6 and pcs_bustdisparity < 7:
|
|
|
- $pcdesc_breastsqualifier = ' walking fucktoy'
|
|
|
- $pcdesc_breastsqualifierinsertive = ', walking fucktoy'
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- elseif pcs_bustdisparity >= 7 and pcs_bustdisparity < 8:
|
|
|
- $pcdesc_breastsqualifier = ' laughably overdone fuckdoll'
|
|
|
- $pcdesc_breastsqualifierinsertive = ', laughably overdone fuckdoll'
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- elseif pcs_bustdisparity >= 8:
|
|
|
- $pcdesc_breastsqualifier = ' <<$pcdesc_haircolourwordy>> overdone fuckdoll'
|
|
|
- $pcdesc_breastsqualifierinsertive = ', <<$pcdesc_haircolourwordy>> overdone fuckdoll'
|
|
|
- $pcdesc_breastsword = 'bolt-ons'
|
|
|
- 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'
|
|
|
+ rand_pussy = rand(0,6)
|
|
|
+ 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'
|
|
|
+ elseif rand_pussy = 4:
|
|
|
+ $pcdesc_pussyrandom = 'always-ready'
|
|
|
+ elseif rand_pussy = 5:
|
|
|
+ $pcdesc_pussyrandom = 'near daily-stuffed'
|
|
|
+ elseif rand_pussy = 6:
|
|
|
+ $pcdesc_pussyrandom = 'overeager, ever-popular'
|
|
|
+ end
|
|
|
+ $pcdesc_pussy = 'overeager'
|
|
|
+ $pcdesc_pussywordy = 'cock-tamed and ever-ready'
|
|
|
+ $vaginatipe = 'oft-fucked'
|
|
|
+ end
|
|
|
+
|
|
|
+ !! The original variables are all named for ass, but really, this is just all about the asshole.
|
|
|
+ if analplugIN = 0:
|
|
|
+ if pcs_ass = 0:
|
|
|
+ anpic = 0
|
|
|
+ $pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/stage0/' + rand(1,5) + '.jpg''">anus</a>.'
|
|
|
+ $pcdesc_anusrandom = 'virgin'
|
|
|
+ $pcdesc_anus = 'virgin'
|
|
|
+ $pcdesc_anuswordy = 'virgin'
|
|
|
+ $anustipe = 'virgin'
|
|
|
+ elseif pcs_ass <= 5:
|
|
|
+ anpic = 1
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage1/' + rand(1,5) + '.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'
|
|
|
+ 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'
|
|
|
+ elseif pcs_ass <= 10:
|
|
|
+ anpic = 2
|
|
|
+ $pcs_ass = 'Your pliable <a href="exec:view''images/pc/body/anus/stage2/' + rand(1,5) + '.jpg''">anus</a> has the shape of an asterisk.'
|
|
|
+ rand_anus = rand(0,2)
|
|
|
+ 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'
|
|
|
+ elseif pcs_ass <= 15:
|
|
|
+ anpic = 3
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage3/' + rand(1,5) + '.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'
|
|
|
+ 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'
|
|
|
+ elseif pcs_ass <= 25:
|
|
|
+ anpic = 4
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage4/' + rand(1,5) + '.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'
|
|
|
+ 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'
|
|
|
else
|
|
|
- $pcdesc_breastsword = 'tits'
|
|
|
+ anpic = 5
|
|
|
+ if rand(0,1) = 0:
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,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.'
|
|
|
+ else
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,5) + '.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.'
|
|
|
+ end
|
|
|
+ rand_anus = rand(0,7)
|
|
|
+ if rand_anus = 0:
|
|
|
+ $pcdesc_anusrandom = 'gaping'
|
|
|
+ elseif rand_anus = 1:
|
|
|
+ $pcdesc_anusrandom = 'yawning'
|
|
|
+ elseif rand_anus = 2:
|
|
|
+ $pcdesc_anusrandom = 'obscenely yawning'
|
|
|
+ elseif rand_anus = 3:
|
|
|
+ $pcdesc_anusrandom = 'destroyed'
|
|
|
+ elseif rand_anus = 4:
|
|
|
+ $pcdesc_anusrandom = 'demolished'
|
|
|
+ elseif rand_anus = 5:
|
|
|
+ $pcdesc_anusrandom = 'uselessly loose'
|
|
|
+ elseif rand_anus = 6:
|
|
|
+ $pcdesc_anusrandom = 'ruined'
|
|
|
+ elseif rand_anus = 7:
|
|
|
+ $pcdesc_anusrandom = 'wrecked'
|
|
|
+ end
|
|
|
+ $pcdesc_anus = 'gaping'
|
|
|
+ $pcdesc_anuswordy = 'gaping, seemingly constantly-fucked'
|
|
|
+ $anustipe = 'gaping'
|
|
|
end
|
|
|
- $pcdesc_breastsqualifier = ''
|
|
|
- $pcdesc_breastsqualifierinsertive = ''
|
|
|
- pcdesc_breastimplantcheck = 1
|
|
|
- !! For all-natural PCs.
|
|
|
- else
|
|
|
- if pcs_cupsize <= 30:$pcdesc_breastsword = 'breasts'
|
|
|
- if pcs_cupsize > 30:$pcdesc_breastsword = 'tits'
|
|
|
- $pcdesc_breastsqualifier = ''
|
|
|
- $pcdesc_breastsqualifierinsertive = ''
|
|
|
- pcdesc_breastimplantcheck = 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'
|
|
|
+ !! 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.
|
|
|
else
|
|
|
- $pcdesc_breastsfakeinsertive = ''
|
|
|
+ $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
|
|
|
+ if pirsG > 0 and pirsG < 10000:
|
|
|
+ $pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/pirs' + rand(1,3) + '.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
|
|
|
|
|
|
- if pcs_cupsize <= 5:
|
|
|
- tits = 0
|
|
|
- $titsize = 'AA cup'
|
|
|
- rand_breasts = rand(0,1)
|
|
|
- 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>>'
|
|
|
+ !!!!!!!!!!!!!!!!
|
|
|
+ !!!!!SIZE AND WEIGHT!!!
|
|
|
+ !!!!!!!!!!!!!!!!
|
|
|
+ if dounspell = 0:
|
|
|
+ pcs_hips = (pcs_hgt * hratio) / 100 + vhips
|
|
|
+ pcs_waist = (pcs_hips * wratio) / 100 + vofat
|
|
|
+ pcs_band = (pcs_waist * bratio) / 100 + vofat
|
|
|
+ pcs_bust = (pcs_waist * bratio) / 100 + nbsize + magicf2b + silicone
|
|
|
+ pcs_butt = (pcs_hips / 10) + silicone_butt
|
|
|
+ pcs_cupsize = pcs_bust - pcs_band
|
|
|
+
|
|
|
+ !! If the PC has vastly less breast tissue than she does silicone, use a slightly more derogatory term. There is actually not a great way to calculate this; silicone counts almost the same on all body types, even though an increase of 200cc, for example, would be vastly
|
|
|
+ !! more noticeable on a thinner body than a heavier one. I have experimented with moving where the silicone is factored in to the body shape calculations, but ultimately there is just no better way to do it than how it is now, given the things that increase the amount
|
|
|
+ !! of silicone in the PC body. The best kludge I can make is working off of stored fat (pcs_weight does actually not do the job at all, as a fat PC and thin PC are almost the same, oddly, in my tests) and making an approximation from there. The amount of the silicone
|
|
|
+ !! variable does not really equate to any particular real-life cc calculation for implant size, so we cannot go off of that. This will have to do for now.
|
|
|
+ pcs_bustdisparity = (silicone/10) - salocatnow
|
|
|
+
|
|
|
+ if pcs_bustdisparity >=1 and pcs_bustdisparity < 2:
|
|
|
+ $pcdesc_breastsqualifier = ''
|
|
|
+ $pcdesc_breastsqualifierinsertive = ''
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ elseif pcs_bustdisparity >= 2 and pcs_bustdisparity < 3:
|
|
|
+ $pcdesc_breastsqualifier = ' semi-spherical'
|
|
|
+ $pcdesc_breastsqualifierinsertive = ', semi-spherical'
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ elseif pcs_bustdisparity >= 3 and pcs_bustdisparity < 4:
|
|
|
+ $pcdesc_breastsqualifier = ' firm and round'
|
|
|
+ $pcdesc_breastsqualifierinsertive = ', firm and round'
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ !! Already we are about as far as a normal, non-fetishistic human being would get -- the maximum size of implant, the XXL, results in 40 silicone, and an extremely thin and well-kept PC will have a minimum salocatnow of 1.
|
|
|
+ !! That means that anything below this line means it was a very intentional move toward sexual objectification, as it could only come from fillable or string implants (and on a thin frame, no less), so we can take some liberties.
|
|
|
+ elseif pcs_bustdisparity >= 4 and pcs_bustdisparity < 5:
|
|
|
+ $pcdesc_breastsqualifier = ' clearly man-made'
|
|
|
+ $pcdesc_breastsqualifierinsertive = ', clearly man-made'
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ elseif pcs_bustdisparity >= 5 and pcs_bustdisparity < 6:
|
|
|
+ $pcdesc_breastsqualifier = ' plastic fuckdoll'
|
|
|
+ $pcdesc_breastsqualifierinsertive = ', plastic fuckdoll'
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ elseif pcs_bustdisparity >= 6 and pcs_bustdisparity < 7:
|
|
|
+ $pcdesc_breastsqualifier = ' walking fucktoy'
|
|
|
+ $pcdesc_breastsqualifierinsertive = ', walking fucktoy'
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ elseif pcs_bustdisparity >= 7 and pcs_bustdisparity < 8:
|
|
|
+ $pcdesc_breastsqualifier = ' laughably overdone fuckdoll'
|
|
|
+ $pcdesc_breastsqualifierinsertive = ', laughably overdone fuckdoll'
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ elseif pcs_bustdisparity >= 8:
|
|
|
+ $pcdesc_breastsqualifier = ' <<$pcdesc_haircolourwordy>> overdone fuckdoll'
|
|
|
+ $pcdesc_breastsqualifierinsertive = ', <<$pcdesc_haircolourwordy>> overdone fuckdoll'
|
|
|
+ $pcdesc_breastsword = 'bolt-ons'
|
|
|
+ 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'
|
|
|
+ else
|
|
|
+ $pcdesc_breastsword = 'tits'
|
|
|
+ end
|
|
|
+ $pcdesc_breastsqualifier = ''
|
|
|
+ $pcdesc_breastsqualifierinsertive = ''
|
|
|
+ pcdesc_breastimplantcheck = 1
|
|
|
+ !! For all-natural PCs.
|
|
|
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'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'smaller than a handful'
|
|
|
+ if pcs_cupsize <= 30:$pcdesc_breastsword = 'breasts'
|
|
|
+ if pcs_cupsize > 30:$pcdesc_breastsword = 'tits'
|
|
|
+ $pcdesc_breastsqualifier = ''
|
|
|
+ $pcdesc_breastsqualifierinsertive = ''
|
|
|
+ pcdesc_breastimplantcheck = 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_breastswordy = 'barely modified<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ $pcdesc_breastsfakeinsertive = ' fake'
|
|
|
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'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'sporty'
|
|
|
+ $pcdesc_breastsfakeinsertive = ''
|
|
|
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'
|
|
|
- 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 pcs_cupsize <= 5:
|
|
|
+ tits = 0
|
|
|
+ $titsize = 'AA cup'
|
|
|
+ rand_breasts = rand(0,1)
|
|
|
+ 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>>'
|
|
|
+ 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'
|
|
|
+ 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'
|
|
|
+ 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'
|
|
|
+ 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>>'
|
|
|
+ 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'
|
|
|
+ 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'
|
|
|
+ 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'
|
|
|
+ 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'
|
|
|
+ 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
|
|
|
+ $titsize = 'H cup'
|
|
|
+ rand_breasts = rand(0,1)
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'extremely large'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'incredibly stacked'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'extremely large, silicone-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'extremely large, over-stacked <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
+ $pcdesc_breasts = 'extremely large'
|
|
|
+ elseif pcs_cupsize <= 50:
|
|
|
+ tits = 9
|
|
|
+ $titsize = 'I cup'
|
|
|
+ rand_breasts = rand(0,2)
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'huge'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'impractically big'
|
|
|
+ elseif rand_breasts = 2:
|
|
|
+ $pcdesc_breastsrandom = 'figure-dominating'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'huge, silicone-swollen<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'huge, wholly impractical <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
+ $pcdesc_breasts = 'huge'
|
|
|
+ elseif pcs_cupsize <= 55:
|
|
|
+ tits = 10
|
|
|
+ $titsize = 'J cup'
|
|
|
+ rand_breasts = rand(0,1)
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'massive'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'enormous'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'massively fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'massive, attention-grabbing <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
+ $pcdesc_breasts = 'massive'
|
|
|
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'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'hefty'
|
|
|
+ tits = 11
|
|
|
+ $titsize = 'K cup'
|
|
|
+ rand_breasts = rand(0,2)
|
|
|
+ if rand_breasts = 0:
|
|
|
+ $pcdesc_breastsrandom = 'whorishly oversized'
|
|
|
+ elseif rand_breasts = 1:
|
|
|
+ $pcdesc_breastsrandom = 'fucktoy-appropriate'
|
|
|
+ elseif rand_breasts = 2:
|
|
|
+ $pcdesc_breastsrandom = 'ridiculously big'
|
|
|
+ end
|
|
|
+ if pcdesc_breastimplantcheck = 1:
|
|
|
+ $pcdesc_breastswordy = 'whorishly oversized<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ else
|
|
|
+ $pcdesc_breastswordy = 'ridiculously big and figure-dominating <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
+ $pcdesc_breasts = 'whorishly oversized'
|
|
|
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'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'heavy'
|
|
|
- elseif rand_breasts = 2:
|
|
|
- $pcdesc_breastsrandom = 'fairly large'
|
|
|
+
|
|
|
+ !!pcs_weight: Svetas weight in kg
|
|
|
+ !!Optimal Weight (170cm): 60kg, 60 salo
|
|
|
+ !!This is an approximation, so that a sveta with a different height has the same BMI for the same salo values.
|
|
|
+ !!The default height of 170 cm is used as a starting point. The bmi deviates by 0.06 for a deviation of 10cm and 0.4 for a deviation of 20cm.
|
|
|
+
|
|
|
+ pcs_weight = 30 + salo / 2 + (pcs_hgt - 170) * 7 / 10
|
|
|
+
|
|
|
+ !!Do not remove (julzor)
|
|
|
+ !!This is the old more complex function, but it doesn''t work correctly.
|
|
|
+ !!This variable is actually only used ONCE (except for the BMI calculation), when stripping, to see if you fall off the pole from being too heavy. I am reluctant to touch it, since the math is not explained. Maybe later.
|
|
|
+ !!Weight = (height in cm x bottom of average weight in kilos for a 170cm female / 170cm + (hip modifier + 2 x overrun fat)/4 + cup size
|
|
|
+
|
|
|
+ !!pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
|
|
|
+
|
|
|
+ !!BMI Calculation
|
|
|
+
|
|
|
+ bmi_calc = FUNC('body_shape', 'bmicalc', salo, pcs_hgt)
|
|
|
+
|
|
|
+ !!BMI Descriptions
|
|
|
+ if bmi_calc < 16:
|
|
|
+ $bmi_desc = 'You are severely underweight.'
|
|
|
+ elseif bmi_calc >= 16 and bmi_calc < 19:
|
|
|
+ $bmi_desc = 'You are underweight'
|
|
|
+ elseif bmi_calc >= 19 and bmi_calc < 25:
|
|
|
+ $bmi_desc = 'You have a normal, healthy weight.'
|
|
|
+ elseif bmi_calc >= 25 and bmi_calc < 30:
|
|
|
+ $bmi_desc = 'You are overweight.'
|
|
|
+ elseif bmi_calc >= 30 and bmi_calc < 35:
|
|
|
+ $bmi_desc = 'You are moderately obese.'
|
|
|
+ elseif bmi_calc >= 35 and bmi_calc < 40:
|
|
|
+ $bmi_desc = 'You are severely obese.'
|
|
|
+ elseif bmi_calc >= 40 and bmi_calc < 45:
|
|
|
+ $bmi_desc = 'You are very severely obese.'
|
|
|
+ elseif bmi_calc >= 45:
|
|
|
+ $bmi_desc = 'You are morbidly obese.'
|
|
|
end
|
|
|
- if pcdesc_breastimplantcheck = 1:
|
|
|
- $pcdesc_breastswordy = 'heavy, fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ end
|
|
|
+
|
|
|
+ !!! Maruda Hair Mod
|
|
|
+ if pcs_hairlng <= 80:
|
|
|
+ hpigtail = 0
|
|
|
+ hscrunchw = 0
|
|
|
+ hpingripw = 0
|
|
|
+ if defcurly = 0:
|
|
|
+ curly = 0
|
|
|
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'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'large'
|
|
|
+ !! This sets curly hair to as high a number as possible to prevent it straightening in error
|
|
|
+ curly = 2147483647
|
|
|
end
|
|
|
- if pcdesc_breastimplantcheck = 1:
|
|
|
- $pcdesc_breastswordy = 'big, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
+ hbraids = 0
|
|
|
+ if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
|
|
|
+ end
|
|
|
+
|
|
|
+ if pcs_hairlng > 800:
|
|
|
+ hpingripw = 0
|
|
|
+ hbraids = 0
|
|
|
+ end
|
|
|
+
|
|
|
+ if pcs_hairlng > 800 and hpigtail >= 1:
|
|
|
+ hscrunchw = 0
|
|
|
+ hpigtail = 0
|
|
|
+ end
|
|
|
+
|
|
|
+ if hbraids >= 1:
|
|
|
+ hscrunchw = 0
|
|
|
+ hpingripw = 0
|
|
|
+ hbangs = 0
|
|
|
+ hpigtail = 0
|
|
|
+ end
|
|
|
+
|
|
|
+ if pcs_hairbsh = 0:
|
|
|
+ if pcs_hairlng > 30:
|
|
|
+ $pcs_hairbsh = 'tangled. You should comb it to keep it healthy'
|
|
|
+ rand_hairmess = rand(0,3)
|
|
|
+ if rand_hairmess = 0:
|
|
|
+ $pcdesc_hairmessrandom = 'tangled'
|
|
|
+ elseif rand_hairmess = 1:
|
|
|
+ $pcdesc_hairmessrandom = 'tousled'
|
|
|
+ elseif rand_hairmess = 2:
|
|
|
+ $pcdesc_hairmessrandom = 'disheveled'
|
|
|
+ elseif rand_hairmess = 3:
|
|
|
+ $pcdesc_hairmessrandom = 'mussed'
|
|
|
+ end
|
|
|
+ $pcdesc_hairmess = 'tangled'
|
|
|
+ $pcdesc_hairmessinsertive = ', tangled'
|
|
|
+ $pcdesc_hairmesswordy = 'tangled, poorly-kept'
|
|
|
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'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'quite large'
|
|
|
+ $pcs_hairbsh = 'messy. You should style it to keep it looking good'
|
|
|
+ rand_hairmess = rand(0,1)
|
|
|
+ if rand_hairmess = 0:
|
|
|
+ $pcdesc_hairmessrandom = 'messy'
|
|
|
+ elseif rand_hairmess = 1:
|
|
|
+ $pcdesc_hairmessrandom = 'unkempt'
|
|
|
+ end
|
|
|
+ $pcdesc_hairmess = 'messy'
|
|
|
+ $pcdesc_hairmessinsertive = ', messy'
|
|
|
+ $pcdesc_hairmesswordy = 'messy, poorly-kept'
|
|
|
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
|
|
|
- $titsize = 'H cup'
|
|
|
- rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:
|
|
|
- $pcdesc_breastsrandom = 'extremely large'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'incredibly stacked'
|
|
|
+ else
|
|
|
+ $pcs_hairbsh = 'neatly styled'
|
|
|
+ rand_hairmess = rand(0,1)
|
|
|
+ if rand_hairmess = 0:
|
|
|
+ $pcdesc_hairmessrandom = 'neat'
|
|
|
+ elseif rand_hairmess = 1:
|
|
|
+ $pcdesc_hairmessrandom = 'well-kept'
|
|
|
end
|
|
|
- if pcdesc_breastimplantcheck = 1:
|
|
|
- $pcdesc_breastswordy = 'extremely large, silicone-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- else
|
|
|
- $pcdesc_breastswordy = 'extremely large, over-stacked <<$pcdesc_breastsword>>'
|
|
|
- end
|
|
|
- $pcdesc_breasts = 'extremely large'
|
|
|
- elseif pcs_cupsize <= 50:
|
|
|
- tits = 9
|
|
|
- $titsize = 'I cup'
|
|
|
- rand_breasts = rand(0,2)
|
|
|
- if rand_breasts = 0:
|
|
|
- $pcdesc_breastsrandom = 'huge'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'impractically big'
|
|
|
- elseif rand_breasts = 2:
|
|
|
- $pcdesc_breastsrandom = 'figure-dominating'
|
|
|
+ $pcdesc_hairmess = 'neat'
|
|
|
+ $pcdesc_hairmessinsertive = ', neat'
|
|
|
+ $pcdesc_hairmesswordy = 'neat, well-maintained'
|
|
|
+ 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.
|
|
|
+ $pcdesc_hairtexturerandom = 'straight'
|
|
|
+ $pcdesc_hairwordrandom = 'locks'
|
|
|
+ $pcdesc_hairtexturewordy = 'straight, slightly wavy'
|
|
|
+ $pcdesc_hairwordwordy = 'locks'
|
|
|
+ $pcdesc_hairtexture = 'straight'
|
|
|
+ $pcdesc_hairword = 'locks'
|
|
|
+ else
|
|
|
+ $curly = 'curly '
|
|
|
+ rand_hairword = rand(0,1)
|
|
|
+ $pcdesc_hairtexturerandom = 'curly'
|
|
|
+ if rand_hairword = 0:
|
|
|
+ $pcdesc_hairwordrandom = 'curls'
|
|
|
+ elseif rand_hairword = 1:
|
|
|
+ $pcdesc_hairwordrandom = 'ringlets'
|
|
|
end
|
|
|
- if pcdesc_breastimplantcheck = 1:
|
|
|
- $pcdesc_breastswordy = 'huge, silicone-swollen<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- else
|
|
|
- $pcdesc_breastswordy = 'huge, wholly impractical <<$pcdesc_breastsword>>'
|
|
|
- end
|
|
|
- $pcdesc_breasts = 'huge'
|
|
|
- elseif pcs_cupsize <= 55:
|
|
|
- tits = 10
|
|
|
- $titsize = 'J cup'
|
|
|
- rand_breasts = rand(0,1)
|
|
|
- if rand_breasts = 0:
|
|
|
- $pcdesc_breastsrandom = 'massive'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'enormous'
|
|
|
+ $pcdesc_hairtexturewordy = 'playfully curly'
|
|
|
+ $pcdesc_hairwordwordy = 'curls'
|
|
|
+ $pcdesc_hairtexture = 'curly'
|
|
|
+ $pcdesc_hairword = 'curls'
|
|
|
+ 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 = ''
|
|
|
+ $pcdesc_foreheadrandom = 'forehead'
|
|
|
+ $pcdesc_foreheadwordy = 'forehead'
|
|
|
+ $pcdesc_forehead = 'forehead'
|
|
|
+ else
|
|
|
+ $hbangs = ', with a fringe covering your forehead'
|
|
|
+ rand_bangs = rand(0,1)
|
|
|
+ if rand_bangs = 0:
|
|
|
+ $pcdesc_foreheadrandom = 'bangs'
|
|
|
+ elseif rand_bangs = 1:
|
|
|
+ $pcdesc_foreheadrandom = 'fringe'
|
|
|
end
|
|
|
- if pcdesc_breastimplantcheck = 1:
|
|
|
- $pcdesc_breastswordy = 'massively fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- else
|
|
|
- $pcdesc_breastswordy = 'massive, attention-grabbing <<$pcdesc_breastsword>>'
|
|
|
+ $pcdesc_foreheadwordy = 'fringe'
|
|
|
+ $pcdesc_forehead = 'bangs'
|
|
|
+ end
|
|
|
+
|
|
|
+ !! Be careful when adding random-assigned synonyms to hair colours to ensure that you do not accidentally describe a different shade of the colour you are describing.
|
|
|
+ !! Honestly, we probably do not need all the light medium dark colour splitting for the bright colours, but it is sadly too late to go back on them.
|
|
|
+ if pcs_haircol = 0:
|
|
|
+ $pcs_haircol = 'black'
|
|
|
+ $pcdesc_haircolour = 'black'
|
|
|
+ rand_hair = rand(0,9)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'black'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'ebony'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'obsidian'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'jet-black'
|
|
|
+ elseif rand_hair = 4:
|
|
|
+ $pcdesc_hairrandom = 'charcoal black'
|
|
|
+ elseif rand_hair = 5:
|
|
|
+ $pcdesc_hairrandom = 'raven black'
|
|
|
+ elseif rand_hair = 6:
|
|
|
+ $pcdesc_hairrandom = 'sable'
|
|
|
+ elseif rand_hair = 7:
|
|
|
+ $pcdesc_hairrandom = 'inky-black'
|
|
|
+ elseif rand_hair = 8:
|
|
|
+ $pcdesc_hairrandom = 'coal-black'
|
|
|
+ elseif rand_hair = 9:
|
|
|
+ $pcdesc_hairrandom = 'pitch-black'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'dark, obsidian-black'
|
|
|
+ elseif pcs_haircol = 1:
|
|
|
+ $pcs_haircol = 'brown'
|
|
|
+ $pcdesc_haircolour = 'brown'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'brown'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'russet brown'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'chestnut brown'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'russet brown'
|
|
|
+ elseif pcs_haircol = 2:
|
|
|
+ $pcs_haircol = 'red'
|
|
|
+ $pcdesc_haircolour = 'red'
|
|
|
+ !! Remember, this is not the vibrant dyed red colour, this is a natural red
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'fiery red'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'coppery red'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'ginger'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'fiery red'
|
|
|
+ elseif pcs_haircol = 3:
|
|
|
+ $pcs_haircol = 'blonde'
|
|
|
+ $pcdesc_haircolour = 'blonde'
|
|
|
+ rand_hair = rand(0,3)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'blonde'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'golden-blonde'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'golden'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'fair, blonde'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'beautiful golden-blonde'
|
|
|
+ elseif pcs_haircol = 4:
|
|
|
+ $pcs_haircol = 'light red'
|
|
|
+ $pcdesc_haircolour = 'light red'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'strawberry blonde'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'fire-engine red'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'scarlet'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'glowing, pale red'
|
|
|
+ elseif pcs_haircol = 5:
|
|
|
+ $pcs_haircol = 'dark blue'
|
|
|
+ $pcdesc_haircolour = 'dark blue'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'dark blue'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'blurple'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'midnight blue'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'rich, purplish-blue'
|
|
|
+ elseif pcs_haircol = 6:
|
|
|
+ $pcs_haircol = 'blue'
|
|
|
+ $pcdesc_haircolour = 'blue'
|
|
|
+ rand_hair = rand(0,1)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'blue'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'electric blue'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'vibrant, electric blue'
|
|
|
+ elseif pcs_haircol = 7:
|
|
|
+ $pcs_haircol = 'light blue'
|
|
|
+ $pcdesc_haircolour = 'light blue'
|
|
|
+ rand_hair = rand(0,3)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'light blue'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'azure'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'pale blue'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'candy-floss blue'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'pale, candy-coloured blue'
|
|
|
+ elseif pcs_haircol = 8:
|
|
|
+ $pcs_haircol = 'dark green'
|
|
|
+ $pcdesc_haircolour = '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:
|
|
|
+ $pcs_haircol = 'green'
|
|
|
+ $pcdesc_haircolour = 'green'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'green'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'forest green'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'fern-green'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'vibrant, forest-green'
|
|
|
+ elseif pcs_haircol = 10:
|
|
|
+ $pcs_haircol = 'light green'
|
|
|
+ $pcdesc_haircolour = 'light green'
|
|
|
+ rand_hair = rand(0,4)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'light green'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'pale green'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'leaf-green'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'minty green'
|
|
|
+ elseif rand_hair = 4:
|
|
|
+ $pcdesc_hairrandom = 'candy-floss green'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'pale, leaf-green'
|
|
|
+ elseif pcs_haircol = 11:
|
|
|
+ $pcs_haircol = 'dark pink'
|
|
|
+ $pcdesc_haircolour = 'dark pink'
|
|
|
+ rand_hair = rand(0,1)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'dark pink'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'purplish-pink'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'dark, purplish-pink'
|
|
|
+ elseif pcs_haircol = 12:
|
|
|
+ $pcs_haircol = 'pink'
|
|
|
+ $pcdesc_haircolour = 'pink'
|
|
|
+ rand_hair = rand(0,4)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'bubblegum-pink'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'Barbie pink'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'fuchsia'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'pink'
|
|
|
+ elseif rand_hair = 4:
|
|
|
+ $pcdesc_hairrandom = 'bright pink'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'bright, bubblegum-pink'
|
|
|
+ elseif pcs_haircol = 13:
|
|
|
+ $pcs_haircol = 'light pink'
|
|
|
+ $pcdesc_haircolour = 'light pink'
|
|
|
+ rand_hair = rand(0,5)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'light pink'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'pale pink'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'babydoll pink'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'China pink'
|
|
|
+ elseif rand_hair = 4:
|
|
|
+ $pcdesc_hairrandom = 'cotton-candy pink'
|
|
|
+ elseif rand_hair = 5:
|
|
|
+ $pcdesc_hairrandom = 'candy-floss pink'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'pale, cotton-candy pink'
|
|
|
+ elseif pcs_haircol = 14:
|
|
|
+ $pcs_haircol = 'dark purple'
|
|
|
+ $pcdesc_haircolour = 'dark purple'
|
|
|
+ rand_hair = rand(0,3)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'dark purple'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'deep purple'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'midnight purple'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'indigo'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'deep, bluish-purple'
|
|
|
+ elseif pcs_haircol = 15:
|
|
|
+ $pcs_haircol = 'purple'
|
|
|
+ $pcdesc_haircolour = 'purple'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'purple'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'plum purple'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'royal purple'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'rich, royal purple'
|
|
|
+ elseif pcs_haircol = 16:
|
|
|
+ $pcs_haircol = 'light purple'
|
|
|
+ $pcdesc_haircolour = 'light purple'
|
|
|
+ rand_hair = rand(0,3)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'light purple'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'pale purple'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'amethyst coloured'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'lavender'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'pale, floral purple'
|
|
|
+ elseif pcs_haircol = 17:
|
|
|
+ $pcs_haircol = 'light orange'
|
|
|
+ $pcdesc_haircolour = 'light orange'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'orange'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'pumpkin orange'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'bright orange'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'bright, fiery orange'
|
|
|
+ elseif pcs_haircol = 18:
|
|
|
+ $pcs_haircol = 'dark red'
|
|
|
+ $pcdesc_haircolour = 'dark red'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'dark red'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'wine red'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'auburn'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'deep, seductive red'
|
|
|
+ elseif pcs_haircol = 19:
|
|
|
+ $pcs_haircol = 'medium red'
|
|
|
+ $pcdesc_haircolour = 'medium red'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'medium red'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'cherry red'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'bronze'
|
|
|
end
|
|
|
- $pcdesc_breasts = 'massive'
|
|
|
+ $pcdesc_haircolourwordy = 'strong, fiery red'
|
|
|
+ elseif pcs_haircol = 20:
|
|
|
+ $pcs_haircol = 'turquoise'
|
|
|
+ $pcdesc_haircolour = 'turquoise'
|
|
|
+ rand_hair = rand(0,3)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'turquoise'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'ultramarine'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'aquamarine'
|
|
|
+ elseif rand_hair = 3:
|
|
|
+ $pcdesc_hairrandom = 'sea green'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'soft milky blue'
|
|
|
+ elseif pcs_haircol = 21:
|
|
|
+ $pcs_haircol = 'medium orange'
|
|
|
+ $pcdesc_haircolour = 'medium orange'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'medium orange'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'pumpkin orange'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'carrot orange'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'strong, fiery orange'
|
|
|
+ elseif pcs_haircol = 22:
|
|
|
+ $pcs_haircol = 'dark orange'
|
|
|
+ $pcdesc_haircolour = 'dark orange'
|
|
|
+ rand_hair = rand(0,2)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'dark orange'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'burnt Orange'
|
|
|
+ elseif rand_hair = 2:
|
|
|
+ $pcdesc_hairrandom = 'rust'
|
|
|
+ end
|
|
|
+ $pcdesc_haircolourwordy = 'strong, burnt orange'
|
|
|
+ !! This below is a catch-all, it should not actually ever wind up occurring, but just in case it does...
|
|
|
else
|
|
|
- tits = 11
|
|
|
- $titsize = 'K cup'
|
|
|
- rand_breasts = rand(0,2)
|
|
|
- if rand_breasts = 0:
|
|
|
- $pcdesc_breastsrandom = 'whorishly oversized'
|
|
|
- elseif rand_breasts = 1:
|
|
|
- $pcdesc_breastsrandom = 'fucktoy-appropriate'
|
|
|
- elseif rand_breasts = 2:
|
|
|
- $pcdesc_breastsrandom = 'ridiculously big'
|
|
|
+ $pcs_haircol = 'strangely-coloured'
|
|
|
+ $pcdesc_haircolour = 'strangely-coloured'
|
|
|
+ rand_hair = rand(0,1)
|
|
|
+ if rand_hair = 0:
|
|
|
+ $pcdesc_hairrandom = 'strangely-coloured'
|
|
|
+ elseif rand_hair = 1:
|
|
|
+ $pcdesc_hairrandom = 'multicoloured'
|
|
|
end
|
|
|
- if pcdesc_breastimplantcheck = 1:
|
|
|
- $pcdesc_breastswordy = 'whorishly oversized<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
|
|
|
- else
|
|
|
- $pcdesc_breastswordy = 'ridiculously big and figure-dominating <<$pcdesc_breastsword>>'
|
|
|
+ $pcdesc_haircolourwordy = 'exceptionally variegated'
|
|
|
+ end
|
|
|
+
|
|
|
+ if hscrunchw <= 0:
|
|
|
+ $hscrunch = ''
|
|
|
+ $hpigtail = ''
|
|
|
+ $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 = ''
|
|
|
+ $pcdesc_hairstylerandom = 'ponytailed'
|
|
|
+ $pcdesc_hairobjectrandom = 'ponytail'
|
|
|
+ $pcdesc_hairstyle = 'ponytailed'
|
|
|
+ $pcdesc_hairobject = 'ponytail'
|
|
|
+ $pcdesc_hairobjectwordy = 'tight, high-set <<$pcs_haircol>> ponytail'
|
|
|
+ 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.'
|
|
|
+ $pcdesc_hairstylerandom = 'pigtailed'
|
|
|
+ $pcdesc_hairobjectrandom = 'pigtails'
|
|
|
+ $pcdesc_hairstyle = 'pigtailed'
|
|
|
+ $pcdesc_hairobject = 'pigtails'
|
|
|
+ $pcdesc_hairobjectwordy = 'youthful, playful and flirty <<$pcs_haircol>> pigtails'
|
|
|
+ end
|
|
|
+
|
|
|
+ if hpingripw <= 0:
|
|
|
+ $hpingrip = ''
|
|
|
+ $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)
|
|
|
+ if rand_hairstyle = 0:
|
|
|
+ $pcdesc_hairstylerandom = 'upswept'
|
|
|
+ elseif rand_hairstyle = 1:
|
|
|
+ $pcdesc_hairstylerandom = 'ornately-pinned'
|
|
|
end
|
|
|
- $pcdesc_breasts = 'whorishly oversized'
|
|
|
- end
|
|
|
-
|
|
|
-!!pcs_weight: Svetas weight in kg
|
|
|
-!!Optimal Weight (170cm): 60kg, 60 salo
|
|
|
-!!This is an approximation, so that a sveta with a different height has the same BMI for the same salo values.
|
|
|
-!!The default height of 170 cm is used as a starting point. The bmi deviates by 0.06 for a deviation of 10cm and 0.4 for a deviation of 20cm.
|
|
|
-
|
|
|
- pcs_weight = 30 + salo / 2 + (pcs_hgt - 170) * 7 / 10
|
|
|
-
|
|
|
-!!Do not remove (julzor)
|
|
|
-!!This is the old more complex function, but it doesn''t work correctly.
|
|
|
-!!This variable is actually only used ONCE (except for the BMI calculation), when stripping, to see if you fall off the pole from being too heavy. I am reluctant to touch it, since the math is not explained. Maybe later.
|
|
|
-!!Weight = (height in cm x bottom of average weight in kilos for a 170cm female / 170cm + (hip modifier + 2 x overrun fat)/4 + cup size
|
|
|
-
|
|
|
- !!pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
|
|
|
-
|
|
|
-!!BMI Calculation
|
|
|
- bmi_calc = 10000 * pcs_weight / (pcs_hgt * pcs_hgt)
|
|
|
-
|
|
|
-!!BMI Descriptions
|
|
|
- if bmi_calc < 16:
|
|
|
- $bmi_desc = 'You are severely underweight.'
|
|
|
- elseif bmi_calc >= 16 and bmi_calc < 19:
|
|
|
- $bmi_desc = 'You are underweight'
|
|
|
- elseif bmi_calc >= 19 and bmi_calc < 25:
|
|
|
- $bmi_desc = 'You have a normal, healthy weight.'
|
|
|
- elseif bmi_calc >= 25 and bmi_calc < 30:
|
|
|
- $bmi_desc = 'You are overweight.'
|
|
|
- elseif bmi_calc >= 30 and bmi_calc < 35:
|
|
|
- $bmi_desc = 'You are moderately obese.'
|
|
|
- elseif bmi_calc >= 35 and bmi_calc < 40:
|
|
|
- $bmi_desc = 'You are severely obese.'
|
|
|
- elseif bmi_calc >= 40 and bmi_calc < 45:
|
|
|
- $bmi_desc = 'You are very severely obese.'
|
|
|
- elseif bmi_calc >= 45:
|
|
|
- $bmi_desc = 'You are morbidly obese.'
|
|
|
+ $pcdesc_hairobjectrandom = 'updo'
|
|
|
+ $pcdesc_hairstyle = 'upswept'
|
|
|
+ $pcdesc_hairobject = 'updo'
|
|
|
+ $pcdesc_hairobjectwordy = 'ornate, intricately-pinned <<$pcs_haircol>> updo'
|
|
|
+ end
|
|
|
+
|
|
|
+ if hbraids <= 0:
|
|
|
+ $hbraids = ''
|
|
|
+ $pcdesc_hairstylerandom = 'loose'
|
|
|
+ $pcdesc_hairobjectrandom = 'hair'
|
|
|
+ $pcdesc_hairstyle = 'loose'
|
|
|
+ $pcdesc_hairobject = 'hair'
|
|
|
+ $pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
|
|
|
+ else
|
|
|
+ $hbraids = 'Your hair is beautifully braided.'
|
|
|
+ rand_hairstyle = rand(0,1)
|
|
|
+ rand_hairobject = rand(0,1)
|
|
|
+ if rand_hairstyle = 0:
|
|
|
+ $pcdesc_hairstylerandom = 'braided'
|
|
|
+ elseif rand_hairstyle = 1:
|
|
|
+ $pcdesc_hairstylerandom = 'plaited'
|
|
|
+ end
|
|
|
+ if rand_hairobject = 0:
|
|
|
+ $pcdesc_hairobjectrandom = 'braids'
|
|
|
+ elseif rand_hairobject = 1:
|
|
|
+ $pcdesc_hairobjectrandom = 'plaits'
|
|
|
+ end
|
|
|
+ $pcdesc_hairstyle = 'braided'
|
|
|
+ $pcdesc_hairobject = 'braid'
|
|
|
+ $pcdesc_hairobjectwordy = 'delicately-wound <<$pcs_haircol>> braid'
|
|
|
end
|
|
|
-end
|
|
|
|
|
|
-!!! Maruda Hair Mod
|
|
|
-if pcs_hairlng <= 80:
|
|
|
- hpigtail = 0
|
|
|
- hscrunchw = 0
|
|
|
- hpingripw = 0
|
|
|
- if defcurly = 0:
|
|
|
- curly = 0
|
|
|
+ if avatar_hair = 1:
|
|
|
+ $hair = $av_hair
|
|
|
+ !! I do not really understand how the avatar system works in terms of hair growth and such, so these descriptors will just have to do
|
|
|
+ $pcdesc_hairlength = 'normal length'
|
|
|
+ $pcdesc_hairlengthwordy = 'normal length'
|
|
|
else
|
|
|
- !! This sets curly hair to as high a number as possible to prevent it straightening in error
|
|
|
- curly = 2147483647
|
|
|
+ if pcs_hairlng <= 30:
|
|
|
+ $hair = 'You have very short <<$pcs_haircol>> hair. It doesn''t cover your ears, and looks a little masculine. Nevertheless, some people like this style as it''s easy to take care of.'
|
|
|
+ rand_hairlength = rand(0,1)
|
|
|
+ if rand_hairlength = 0:
|
|
|
+ $pcdesc_hairlengthrandom = 'extremely short'
|
|
|
+ elseif rand_hairlength = 1:
|
|
|
+ $pcdesc_hairlengthrandom = 'boyishly short'
|
|
|
+ end
|
|
|
+ $pcdesc_hairlength = 'extremely short'
|
|
|
+ $pcdesc_hairlengthwordy = 'short, and altogether rather boyish'
|
|
|
+ elseif pcs_hairlng > 30 and pcs_hairlng <= 80:
|
|
|
+ $hair = 'You have short <<$pcs_haircol>> hair which just covers your ears to their lobes. It''s a modern, classy hairstyle. Currently your hair is <<$pcs_hairbsh>>.'
|
|
|
+ rand_hairlength = rand(0,2)
|
|
|
+ if rand_hairlength = 0:
|
|
|
+ $pcdesc_hairlengthrandom = 'short'
|
|
|
+ elseif rand_hairlength = 1:
|
|
|
+ $pcdesc_hairlengthrandom = 'pixie-cut'
|
|
|
+ elseif rand_hairlength = 2:
|
|
|
+ $pcdesc_hairlengthrandom = 'androgynously short'
|
|
|
+ end
|
|
|
+ $pcdesc_hairlength = 'short'
|
|
|
+ $pcdesc_hairlengthwordy = 'short, page-boy'
|
|
|
+ elseif pcs_hairlng > 80 and pcs_hairlng <= 160:
|
|
|
+ $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair goes down to your chin line and can be considered of a medium length, which fits almost all face shapes. Your hair is <<$pcs_hairbsh>> at the moment. <<$hscrunch>><<$hpingrip>><<$hpigtail>>'
|
|
|
+ rand_hairlength = rand(0,1)
|
|
|
+ if rand_hairlength = 0:
|
|
|
+ $pcdesc_hairlengthrandom = 'medium'
|
|
|
+ elseif rand_hairlength = 1:
|
|
|
+ $pcdesc_hairlengthrandom = 'average'
|
|
|
+ end
|
|
|
+ $pcdesc_hairlength = 'medium'
|
|
|
+ $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>>'
|
|
|
+ $pcdesc_hairlengthrandom = 'moderate'
|
|
|
+ $pcdesc_hairlength = 'moderate'
|
|
|
+ $pcdesc_hairlengthwordy = 'shoulder-length'
|
|
|
+ elseif pcs_hairlng > 260 and pcs_hairlng <= 400:
|
|
|
+ $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your bra line, hairdressers would consider this a rather long style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
|
|
|
+ rand_hairlength = rand(0,1)
|
|
|
+ if rand_hairlength = 0:
|
|
|
+ $pcdesc_hairlengthrandom = 'long'
|
|
|
+ elseif rand_hairlength = 1:
|
|
|
+ $pcdesc_hairlengthrandom = 'lengthy'
|
|
|
+ end
|
|
|
+ $pcdesc_hairlength = 'long'
|
|
|
+ $pcdesc_hairlengthwordy = 'long, past the shoulders'
|
|
|
+ elseif pcs_hairlng > 400 and pcs_hairlng <= 600:
|
|
|
+ $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your back, hairdressers would consider this a rather long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
|
|
|
+ rand_hairlength = rand(0,3)
|
|
|
+ if rand_hairlength = 0:
|
|
|
+ $pcdesc_hairlengthrandom = 'very long'
|
|
|
+ elseif rand_hairlength = 1:
|
|
|
+ $pcdesc_hairlengthrandom = 'rather lengthy'
|
|
|
+ elseif rand_hairlength = 2:
|
|
|
+ $pcdesc_hairlengthrandom = 'quite long'
|
|
|
+ elseif rand_hairlength = 3:
|
|
|
+ $pcdesc_hairlengthrandom = 'back-length'
|
|
|
+ end
|
|
|
+ $pcdesc_hairlength = 'very long'
|
|
|
+ $pcdesc_hairlengthwordy = 'very long, back-length'
|
|
|
+ elseif pcs_hairlng > 600 and pcs_hairlng <= 800:
|
|
|
+ $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your butt, hairdressers would consider this a very long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
|
|
|
+ rand_hairlength = rand(0,1)
|
|
|
+ if rand_hairlength = 0:
|
|
|
+ $pcdesc_hairlengthrandom = 'extremely long'
|
|
|
+ elseif rand_hairlength = 1:
|
|
|
+ $pcdesc_hairlengthrandom = 'waist-length'
|
|
|
+ end
|
|
|
+ $pcdesc_hairlength = 'extremely long'
|
|
|
+ $pcdesc_hairlengthwordy = 'extremely long and waist-length'
|
|
|
+ else
|
|
|
+ $hair = 'You have extremely long <<$pcs_haircol>> hair<<$hbangs>>. Reaching all the way past your butt, even Rapunzel would be jealous. Your hair is currently <<$pcs_hairbsh>>. <<$hscrunch>><<$hbraids>>'
|
|
|
+ rand_hairlength = rand(0,1)
|
|
|
+ if rand_hairlength = 0:
|
|
|
+ $pcdesc_hairlengthrandom = 'exceptionally long'
|
|
|
+ elseif rand_hairlength = 1:
|
|
|
+ $pcdesc_hairlengthrandom = 'incredibly lengthy'
|
|
|
+ end
|
|
|
+ $pcdesc_hairlength = 'incredibly long'
|
|
|
+ $pcdesc_hairlengthwordy = 'exceptionally lengthy and princess-like'
|
|
|
+ end
|
|
|
end
|
|
|
- hbraids = 0
|
|
|
- if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
|
|
|
-end
|
|
|
|
|
|
-if pcs_hairlng > 800:
|
|
|
- hpingripw = 0
|
|
|
- hbraids = 0
|
|
|
-end
|
|
|
+ !! A pair of ready-made long strings for writers to pull from for descriptions
|
|
|
+ $pcdesc_fullhair = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlength>> <<$pcs_haircol>> <<$pcdesc_hairword>>'
|
|
|
+ $pcdesc_fullhairwordy = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlengthwordy>> <<$pcdesc_hairword>> of <<$pcdesc_haircolourwordy>>'
|
|
|
|
|
|
-if pcs_hairlng > 800 and hpigtail >= 1:
|
|
|
- hscrunchw = 0
|
|
|
- hpigtail = 0
|
|
|
-end
|
|
|
+ !!! Maruda Hair Mod
|
|
|
|
|
|
-if hbraids >= 1:
|
|
|
- hscrunchw = 0
|
|
|
- hpingripw = 0
|
|
|
- hbangs = 0
|
|
|
- hpigtail = 0
|
|
|
-end
|
|
|
+ !! Appearance factors and calculations
|
|
|
|
|
|
-if pcs_hairbsh = 0:
|
|
|
- if pcs_hairlng > 30:
|
|
|
- $pcs_hairbsh = 'tangled. You should comb it to keep it healthy'
|
|
|
- rand_hairmess = rand(0,3)
|
|
|
- if rand_hairmess = 0:
|
|
|
- $pcdesc_hairmessrandom = 'tangled'
|
|
|
- elseif rand_hairmess = 1:
|
|
|
- $pcdesc_hairmessrandom = 'tousled'
|
|
|
- elseif rand_hairmess = 2:
|
|
|
- $pcdesc_hairmessrandom = 'disheveled'
|
|
|
- elseif rand_hairmess = 3:
|
|
|
- $pcdesc_hairmessrandom = 'mussed'
|
|
|
- end
|
|
|
- $pcdesc_hairmess = 'tangled'
|
|
|
- $pcdesc_hairmessinsertive = ', tangled'
|
|
|
- $pcdesc_hairmesswordy = 'tangled, poorly-kept'
|
|
|
+ !! If, like me, you are confused by the logic of what initially appear to be arbitrary numbers, it turns out the piercing location value is set to a number to indicate which photo it uses, which is tied to what jewelry you have for the piercing. 10000 means pierced, but no jewelry.
|
|
|
+ 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'
|
|
|
+ elseif rand_tongue = 1:
|
|
|
+ $pcdesc_tonguerandom = 'pierced licker'
|
|
|
+ end
|
|
|
+ $pcdesc_tonguewordy = 'barbell-pierced tongue'
|
|
|
+ $pcdesc_tongue = 'pierced tongue'
|
|
|
else
|
|
|
- $pcs_hairbsh = 'messy. You should style it to keep it looking good'
|
|
|
- rand_hairmess = rand(0,1)
|
|
|
- if rand_hairmess = 0:
|
|
|
- $pcdesc_hairmessrandom = 'messy'
|
|
|
- elseif rand_hairmess = 1:
|
|
|
- $pcdesc_hairmessrandom = 'unkempt'
|
|
|
+ $pirsA = ''
|
|
|
+ rand_tongue = rand(0,1)
|
|
|
+ if rand_tongue = 0:
|
|
|
+ $pcdesc_tonguerandom = 'tongue'
|
|
|
+ elseif rand_tongue = 1:
|
|
|
+ $pcdesc_tonguerandom = 'licker'
|
|
|
end
|
|
|
- $pcdesc_hairmess = 'messy'
|
|
|
- $pcdesc_hairmessinsertive = ', messy'
|
|
|
- $pcdesc_hairmesswordy = 'messy, poorly-kept'
|
|
|
- end
|
|
|
-else
|
|
|
- $pcs_hairbsh = 'neatly styled'
|
|
|
- rand_hairmess = rand(0,1)
|
|
|
- if rand_hairmess = 0:
|
|
|
- $pcdesc_hairmessrandom = 'neat'
|
|
|
- elseif rand_hairmess = 1:
|
|
|
- $pcdesc_hairmessrandom = 'well-kept'
|
|
|
- end
|
|
|
- $pcdesc_hairmess = 'neat'
|
|
|
- $pcdesc_hairmessinsertive = ', neat'
|
|
|
- $pcdesc_hairmesswordy = 'neat, well-maintained'
|
|
|
-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.
|
|
|
- $pcdesc_hairtexturerandom = 'straight'
|
|
|
- $pcdesc_hairwordrandom = 'locks'
|
|
|
- $pcdesc_hairtexturewordy = 'straight, slightly wavy'
|
|
|
- $pcdesc_hairwordwordy = 'locks'
|
|
|
- $pcdesc_hairtexture = 'straight'
|
|
|
- $pcdesc_hairword = 'locks'
|
|
|
-else
|
|
|
- $curly = 'curly '
|
|
|
- rand_hairword = rand(0,1)
|
|
|
- $pcdesc_hairtexturerandom = 'curly'
|
|
|
- if rand_hairword = 0:
|
|
|
- $pcdesc_hairwordrandom = 'curls'
|
|
|
- elseif rand_hairword = 1:
|
|
|
- $pcdesc_hairwordrandom = 'ringlets'
|
|
|
- end
|
|
|
- $pcdesc_hairtexturewordy = 'playfully curly'
|
|
|
- $pcdesc_hairwordwordy = 'curls'
|
|
|
- $pcdesc_hairtexture = 'curly'
|
|
|
- $pcdesc_hairword = 'curls'
|
|
|
-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 = ''
|
|
|
- $pcdesc_foreheadrandom = 'forehead'
|
|
|
- $pcdesc_foreheadwordy = 'forehead'
|
|
|
- $pcdesc_forehead = 'forehead'
|
|
|
-else
|
|
|
- $hbangs = ', with a fringe covering your forehead'
|
|
|
- rand_bangs = rand(0,1)
|
|
|
- if rand_bangs = 0:
|
|
|
- $pcdesc_foreheadrandom = 'bangs'
|
|
|
- elseif rand_bangs = 1:
|
|
|
- $pcdesc_foreheadrandom = 'fringe'
|
|
|
- end
|
|
|
- $pcdesc_foreheadwordy = 'fringe'
|
|
|
- $pcdesc_forehead = 'bangs'
|
|
|
-end
|
|
|
-
|
|
|
-!! Be careful when adding random-assigned synonyms to hair colours to ensure that you do not accidentally describe a different shade of the colour you are describing.
|
|
|
-!! Honestly, we probably do not need all the light medium dark colour splitting for the bright colours, but it is sadly too late to go back on them.
|
|
|
-if pcs_haircol = 0:
|
|
|
- $pcs_haircol = 'black'
|
|
|
- $pcdesc_haircolour = 'black'
|
|
|
- rand_hair = rand(0,9)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'black'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'ebony'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'obsidian'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'jet-black'
|
|
|
- elseif rand_hair = 4:
|
|
|
- $pcdesc_hairrandom = 'charcoal black'
|
|
|
- elseif rand_hair = 5:
|
|
|
- $pcdesc_hairrandom = 'raven black'
|
|
|
- elseif rand_hair = 6:
|
|
|
- $pcdesc_hairrandom = 'sable'
|
|
|
- elseif rand_hair = 7:
|
|
|
- $pcdesc_hairrandom = 'inky-black'
|
|
|
- elseif rand_hair = 8:
|
|
|
- $pcdesc_hairrandom = 'coal-black'
|
|
|
- elseif rand_hair = 9:
|
|
|
- $pcdesc_hairrandom = 'pitch-black'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'dark, obsidian-black'
|
|
|
-elseif pcs_haircol = 1:
|
|
|
- $pcs_haircol = 'brown'
|
|
|
- $pcdesc_haircolour = 'brown'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'brown'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'russet brown'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'chestnut brown'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'russet brown'
|
|
|
-elseif pcs_haircol = 2:
|
|
|
- $pcs_haircol = 'red'
|
|
|
- $pcdesc_haircolour = 'red'
|
|
|
- !! Remember, this is not the vibrant dyed red colour, this is a natural red
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'fiery red'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'coppery red'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'ginger'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'fiery red'
|
|
|
-elseif pcs_haircol = 3:
|
|
|
- $pcs_haircol = 'blonde'
|
|
|
- $pcdesc_haircolour = 'blonde'
|
|
|
- rand_hair = rand(0,3)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'blonde'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'golden-blonde'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'golden'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'fair, blonde'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'beautiful golden-blonde'
|
|
|
-elseif pcs_haircol = 4:
|
|
|
- $pcs_haircol = 'light red'
|
|
|
- $pcdesc_haircolour = 'light red'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'strawberry blonde'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'fire-engine red'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'scarlet'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'glowing, pale red'
|
|
|
-elseif pcs_haircol = 5:
|
|
|
- $pcs_haircol = 'dark blue'
|
|
|
- $pcdesc_haircolour = 'dark blue'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'dark blue'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'blurple'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'midnight blue'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'rich, purplish-blue'
|
|
|
-elseif pcs_haircol = 6:
|
|
|
- $pcs_haircol = 'blue'
|
|
|
- $pcdesc_haircolour = 'blue'
|
|
|
- rand_hair = rand(0,1)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'blue'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'electric blue'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'vibrant, electric blue'
|
|
|
-elseif pcs_haircol = 7:
|
|
|
- $pcs_haircol = 'light blue'
|
|
|
- $pcdesc_haircolour = 'light blue'
|
|
|
- rand_hair = rand(0,3)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'light blue'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'azure'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'pale blue'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'candy-floss blue'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'pale, candy-coloured blue'
|
|
|
-elseif pcs_haircol = 8:
|
|
|
- $pcs_haircol = 'dark green'
|
|
|
- $pcdesc_haircolour = '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:
|
|
|
- $pcs_haircol = 'green'
|
|
|
- $pcdesc_haircolour = 'green'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'green'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'forest green'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'fern-green'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'vibrant, forest-green'
|
|
|
-elseif pcs_haircol = 10:
|
|
|
- $pcs_haircol = 'light green'
|
|
|
- $pcdesc_haircolour = 'light green'
|
|
|
- rand_hair = rand(0,4)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'light green'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'pale green'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'leaf-green'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'minty green'
|
|
|
- elseif rand_hair = 4:
|
|
|
- $pcdesc_hairrandom = 'candy-floss green'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'pale, leaf-green'
|
|
|
-elseif pcs_haircol = 11:
|
|
|
- $pcs_haircol = 'dark pink'
|
|
|
- $pcdesc_haircolour = 'dark pink'
|
|
|
- rand_hair = rand(0,1)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'dark pink'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'purplish-pink'
|
|
|
+ $pcdesc_tonguewordy = 'tongue'
|
|
|
+ $pcdesc_tongue = 'tongue'
|
|
|
end
|
|
|
- $pcdesc_haircolourwordy = 'dark, purplish-pink'
|
|
|
-elseif pcs_haircol = 12:
|
|
|
- $pcs_haircol = 'pink'
|
|
|
- $pcdesc_haircolour = 'pink'
|
|
|
- rand_hair = rand(0,4)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'bubblegum-pink'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'Barbie pink'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'fuchsia'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'pink'
|
|
|
- elseif rand_hair = 4:
|
|
|
- $pcdesc_hairrandom = 'bright pink'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'bright, bubblegum-pink'
|
|
|
-elseif pcs_haircol = 13:
|
|
|
- $pcs_haircol = 'light pink'
|
|
|
- $pcdesc_haircolour = 'light pink'
|
|
|
- rand_hair = rand(0,5)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'light pink'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'pale pink'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'babydoll pink'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'China pink'
|
|
|
- elseif rand_hair = 4:
|
|
|
- $pcdesc_hairrandom = 'cotton-candy pink'
|
|
|
- elseif rand_hair = 5:
|
|
|
- $pcdesc_hairrandom = 'candy-floss pink'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'pale, cotton-candy pink'
|
|
|
-elseif pcs_haircol = 14:
|
|
|
- $pcs_haircol = 'dark purple'
|
|
|
- $pcdesc_haircolour = 'dark purple'
|
|
|
- rand_hair = rand(0,3)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'dark purple'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'deep purple'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'midnight purple'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'indigo'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'deep, bluish-purple'
|
|
|
-elseif pcs_haircol = 15:
|
|
|
- $pcs_haircol = 'purple'
|
|
|
- $pcdesc_haircolour = 'purple'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'purple'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'plum purple'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'royal purple'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'rich, royal purple'
|
|
|
-elseif pcs_haircol = 16:
|
|
|
- $pcs_haircol = 'light purple'
|
|
|
- $pcdesc_haircolour = 'light purple'
|
|
|
- rand_hair = rand(0,3)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'light purple'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'pale purple'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'amethyst coloured'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'lavender'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'pale, floral purple'
|
|
|
-elseif pcs_haircol = 17:
|
|
|
- $pcs_haircol = 'light orange'
|
|
|
- $pcdesc_haircolour = 'light orange'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'orange'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'pumpkin orange'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'bright orange'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'bright, fiery orange'
|
|
|
-elseif pcs_haircol = 18:
|
|
|
- $pcs_haircol = 'dark red'
|
|
|
- $pcdesc_haircolour = 'dark red'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'dark red'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'wine red'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'auburn'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'deep, seductive red'
|
|
|
-elseif pcs_haircol = 19:
|
|
|
- $pcs_haircol = 'medium red'
|
|
|
- $pcdesc_haircolour = 'medium red'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'medium red'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'cherry red'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'bronze'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'strong, fiery red'
|
|
|
-elseif pcs_haircol = 20:
|
|
|
- $pcs_haircol = 'turquoise'
|
|
|
- $pcdesc_haircolour = 'turquoise'
|
|
|
- rand_hair = rand(0,3)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'turquoise'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'ultramarine'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'aquamarine'
|
|
|
- elseif rand_hair = 3:
|
|
|
- $pcdesc_hairrandom = 'sea green'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'soft milky blue'
|
|
|
-elseif pcs_haircol = 21:
|
|
|
- $pcs_haircol = 'medium orange'
|
|
|
- $pcdesc_haircolour = 'medium orange'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'medium orange'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'pumpkin orange'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'carrot orange'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'strong, fiery orange'
|
|
|
-elseif pcs_haircol = 22:
|
|
|
- $pcs_haircol = 'dark orange'
|
|
|
- $pcdesc_haircolour = 'dark orange'
|
|
|
- rand_hair = rand(0,2)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'dark orange'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'burnt Orange'
|
|
|
- elseif rand_hair = 2:
|
|
|
- $pcdesc_hairrandom = 'rust'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'strong, burnt orange'
|
|
|
-!! This below is a catch-all, it should not actually ever wind up occurring, but just in case it does...
|
|
|
-else
|
|
|
- $pcs_haircol = 'strangely-coloured'
|
|
|
- $pcdesc_haircolour = 'strangely-coloured'
|
|
|
- rand_hair = rand(0,1)
|
|
|
- if rand_hair = 0:
|
|
|
- $pcdesc_hairrandom = 'strangely-coloured'
|
|
|
- elseif rand_hair = 1:
|
|
|
- $pcdesc_hairrandom = 'multicoloured'
|
|
|
- end
|
|
|
- $pcdesc_haircolourwordy = 'exceptionally variegated'
|
|
|
-end
|
|
|
|
|
|
-if hscrunchw <= 0:
|
|
|
- $hscrunch = ''
|
|
|
- $hpigtail = ''
|
|
|
- $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 = ''
|
|
|
- $pcdesc_hairstylerandom = 'ponytailed'
|
|
|
- $pcdesc_hairobjectrandom = 'ponytail'
|
|
|
- $pcdesc_hairstyle = 'ponytailed'
|
|
|
- $pcdesc_hairobject = 'ponytail'
|
|
|
- $pcdesc_hairobjectwordy = 'tight, high-set <<$pcs_haircol>> ponytail'
|
|
|
-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.'
|
|
|
- $pcdesc_hairstylerandom = 'pigtailed'
|
|
|
- $pcdesc_hairobjectrandom = 'pigtails'
|
|
|
- $pcdesc_hairstyle = 'pigtailed'
|
|
|
- $pcdesc_hairobject = 'pigtails'
|
|
|
- $pcdesc_hairobjectwordy = 'youthful, playful and flirty <<$pcs_haircol>> pigtails'
|
|
|
-end
|
|
|
-
|
|
|
-if hpingripw <= 0:
|
|
|
- $hpingrip = ''
|
|
|
- $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)
|
|
|
- if rand_hairstyle = 0:
|
|
|
- $pcdesc_hairstylerandom = 'upswept'
|
|
|
- elseif rand_hairstyle = 1:
|
|
|
- $pcdesc_hairstylerandom = 'ornately-pinned'
|
|
|
- end
|
|
|
- $pcdesc_hairobjectrandom = 'updo'
|
|
|
- $pcdesc_hairstyle = 'upswept'
|
|
|
- $pcdesc_hairobject = 'updo'
|
|
|
- $pcdesc_hairobjectwordy = 'ornate, intricately-pinned <<$pcs_haircol>> updo'
|
|
|
-end
|
|
|
-
|
|
|
-if hbraids <= 0:
|
|
|
- $hbraids = ''
|
|
|
- $pcdesc_hairstylerandom = 'loose'
|
|
|
- $pcdesc_hairobjectrandom = 'hair'
|
|
|
- $pcdesc_hairstyle = 'loose'
|
|
|
- $pcdesc_hairobject = 'hair'
|
|
|
- $pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
|
|
|
-else
|
|
|
- $hbraids = 'Your hair is beautifully braided.'
|
|
|
- rand_hairstyle = rand(0,1)
|
|
|
- rand_hairobject = rand(0,1)
|
|
|
- if rand_hairstyle = 0:
|
|
|
- $pcdesc_hairstylerandom = 'braided'
|
|
|
- elseif rand_hairstyle = 1:
|
|
|
- $pcdesc_hairstylerandom = 'plaited'
|
|
|
- end
|
|
|
- if rand_hairobject = 0:
|
|
|
- $pcdesc_hairobjectrandom = 'braids'
|
|
|
- elseif rand_hairobject = 1:
|
|
|
- $pcdesc_hairobjectrandom = 'plaits'
|
|
|
+ if pirsB > 0 and pirsB < 10000:
|
|
|
+ $pirsB = 'Your lip is pierced.'
|
|
|
+ $pcdesc_lowerliprandom = 'pierced lower lip'
|
|
|
+ $pcdesc_lowerlipwordy = 'jewelry-studded lower lip'
|
|
|
+ $pcdesc_lowerlip = 'pierced lower lip'
|
|
|
+ else
|
|
|
+ $pirsB = ''
|
|
|
+ $pcdesc_lowerliprandom = 'lower lip'
|
|
|
+ $pcdesc_lowerlipwordy = 'lower lip'
|
|
|
+ $pcdesc_lowerlip = 'lower lip'
|
|
|
+ end
|
|
|
+
|
|
|
+ if pirsC > 0 and pirsC < 10000:
|
|
|
+ $pirsC = 'You are wearing earrings.'
|
|
|
+ $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 = ''
|
|
|
+ $pcdesc_earsrandom = 'ears' & $pcdesc_earrandom = 'ear'
|
|
|
+ $pcdesc_earswordy = 'ears'
|
|
|
+ $pcdesc_ears = 'ears'
|
|
|
+ $pcdesc_earwordy = 'ear'
|
|
|
+ $pcdesc_ear = 'ear'
|
|
|
+ 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.'
|
|
|
+ $pcdesc_noserandom = 'pierced nose'
|
|
|
+ $pcdesc_nosewordy = 'jewelry-studded nose'
|
|
|
+ $pcdesc_nose = 'pierced nose'
|
|
|
+ else
|
|
|
+ $pirsD = ''
|
|
|
+ $pcdesc_noserandom = 'nose'
|
|
|
+ $pcdesc_nosewordy = 'nose'
|
|
|
+ $pcdesc_nose = 'nose'
|
|
|
end
|
|
|
- $pcdesc_hairstyle = 'braided'
|
|
|
- $pcdesc_hairobject = 'braid'
|
|
|
- $pcdesc_hairobjectwordy = 'delicately-wound <<$pcs_haircol>> braid'
|
|
|
-end
|
|
|
|
|
|
-if avatar_hair = 1:
|
|
|
- $hair = $av_hair
|
|
|
- !! I do not really understand how the avatar system works in terms of hair growth and such, so these descriptors will just have to do
|
|
|
- $pcdesc_hairlength = 'normal length'
|
|
|
- $pcdesc_hairlengthwordy = 'normal length'
|
|
|
-else
|
|
|
- if pcs_hairlng <= 30:
|
|
|
- $hair = 'You have very short <<$pcs_haircol>> hair. It doesn''t cover your ears, and looks a little masculine. Nevertheless, some people like this style as it''s easy to take care of.'
|
|
|
- rand_hairlength = rand(0,1)
|
|
|
- if rand_hairlength = 0:
|
|
|
- $pcdesc_hairlengthrandom = 'extremely short'
|
|
|
- elseif rand_hairlength = 1:
|
|
|
- $pcdesc_hairlengthrandom = 'boyishly short'
|
|
|
- end
|
|
|
- $pcdesc_hairlength = 'extremely short'
|
|
|
- $pcdesc_hairlengthwordy = 'short, and altogether rather boyish'
|
|
|
- elseif pcs_hairlng > 30 and pcs_hairlng <= 80:
|
|
|
- $hair = 'You have short <<$pcs_haircol>> hair which just covers your ears to their lobes. It''s a modern, classy hairstyle. Currently your hair is <<$pcs_hairbsh>>.'
|
|
|
- rand_hairlength = rand(0,2)
|
|
|
- if rand_hairlength = 0:
|
|
|
- $pcdesc_hairlengthrandom = 'short'
|
|
|
- elseif rand_hairlength = 1:
|
|
|
- $pcdesc_hairlengthrandom = 'pixie-cut'
|
|
|
- elseif rand_hairlength = 2:
|
|
|
- $pcdesc_hairlengthrandom = 'androgynously short'
|
|
|
- end
|
|
|
- $pcdesc_hairlength = 'short'
|
|
|
- $pcdesc_hairlengthwordy = 'short, page-boy'
|
|
|
- elseif pcs_hairlng > 80 and pcs_hairlng <= 160:
|
|
|
- $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair goes down to your chin line and can be considered of a medium length, which fits almost all face shapes. Your hair is <<$pcs_hairbsh>> at the moment. <<$hscrunch>><<$hpingrip>><<$hpigtail>>'
|
|
|
- rand_hairlength = rand(0,1)
|
|
|
- if rand_hairlength = 0:
|
|
|
- $pcdesc_hairlengthrandom = 'medium'
|
|
|
- elseif rand_hairlength = 1:
|
|
|
- $pcdesc_hairlengthrandom = 'average'
|
|
|
- end
|
|
|
- $pcdesc_hairlength = 'medium'
|
|
|
- $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>>'
|
|
|
- $pcdesc_hairlengthrandom = 'moderate'
|
|
|
- $pcdesc_hairlength = 'moderate'
|
|
|
- $pcdesc_hairlengthwordy = 'shoulder-length'
|
|
|
- elseif pcs_hairlng > 260 and pcs_hairlng <= 400:
|
|
|
- $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your bra line, hairdressers would consider this a rather long style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
|
|
|
- rand_hairlength = rand(0,1)
|
|
|
- if rand_hairlength = 0:
|
|
|
- $pcdesc_hairlengthrandom = 'long'
|
|
|
- elseif rand_hairlength = 1:
|
|
|
- $pcdesc_hairlengthrandom = 'lengthy'
|
|
|
- end
|
|
|
- $pcdesc_hairlength = 'long'
|
|
|
- $pcdesc_hairlengthwordy = 'long, past the shoulders'
|
|
|
- elseif pcs_hairlng > 400 and pcs_hairlng <= 600:
|
|
|
- $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your back, hairdressers would consider this a rather long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
|
|
|
- rand_hairlength = rand(0,3)
|
|
|
- if rand_hairlength = 0:
|
|
|
- $pcdesc_hairlengthrandom = 'very long'
|
|
|
- elseif rand_hairlength = 1:
|
|
|
- $pcdesc_hairlengthrandom = 'rather lengthy'
|
|
|
- elseif rand_hairlength = 2:
|
|
|
- $pcdesc_hairlengthrandom = 'quite long'
|
|
|
- elseif rand_hairlength = 3:
|
|
|
- $pcdesc_hairlengthrandom = 'back-length'
|
|
|
- end
|
|
|
- $pcdesc_hairlength = 'very long'
|
|
|
- $pcdesc_hairlengthwordy = 'very long, back-length'
|
|
|
- elseif pcs_hairlng > 600 and pcs_hairlng <= 800:
|
|
|
- $hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your butt, hairdressers would consider this a very long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
|
|
|
- rand_hairlength = rand(0,1)
|
|
|
- if rand_hairlength = 0:
|
|
|
- $pcdesc_hairlengthrandom = 'extremely long'
|
|
|
- elseif rand_hairlength = 1:
|
|
|
- $pcdesc_hairlengthrandom = 'waist-length'
|
|
|
- end
|
|
|
- $pcdesc_hairlength = 'extremely long'
|
|
|
- $pcdesc_hairlengthwordy = 'extremely long and waist-length'
|
|
|
- else
|
|
|
- $hair = 'You have extremely long <<$pcs_haircol>> hair<<$hbangs>>. Reaching all the way past your butt, even Rapunzel would be jealous. Your hair is currently <<$pcs_hairbsh>>. <<$hscrunch>><<$hbraids>>'
|
|
|
- rand_hairlength = rand(0,1)
|
|
|
- if rand_hairlength = 0:
|
|
|
- $pcdesc_hairlengthrandom = 'exceptionally long'
|
|
|
- elseif rand_hairlength = 1:
|
|
|
- $pcdesc_hairlengthrandom = 'incredibly lengthy'
|
|
|
- end
|
|
|
- $pcdesc_hairlength = 'incredibly long'
|
|
|
- $pcdesc_hairlengthwordy = 'exceptionally lengthy and princess-like'
|
|
|
- end
|
|
|
-end
|
|
|
-
|
|
|
-!! A pair of ready-made long strings for writers to pull from for descriptions
|
|
|
-$pcdesc_fullhair = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlength>> <<$pcs_haircol>> <<$pcdesc_hairword>>'
|
|
|
-$pcdesc_fullhairwordy = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlengthwordy>> <<$pcdesc_hairword>> of <<$pcdesc_haircolourwordy>>'
|
|
|
-
|
|
|
-!!! Maruda Hair Mod
|
|
|
-
|
|
|
-!! Appearance factors and calculations
|
|
|
-
|
|
|
-!! If, like me, you are confused by the logic of what initially appear to be arbitrary numbers, it turns out the piercing location value is set to a number to indicate which photo it uses, which is tied to what jewelry you have for the piercing. 10000 means pierced, but no jewelry.
|
|
|
-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'
|
|
|
- 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'
|
|
|
- elseif rand_tongue = 1:
|
|
|
- $pcdesc_tonguerandom = 'licker'
|
|
|
+ if pirsE > 0 and pirsE < 10000:
|
|
|
+ $pirsE = 'Your eyebrow is pierced.'
|
|
|
+ $pcdesc_eyebrowrandom = 'pierced eyebrow'
|
|
|
+ $pcdesc_eyebrowwordy = 'pierced eyebrow'
|
|
|
+ $pcdesc_eyebrow = 'pierced eyebrow'
|
|
|
+ else
|
|
|
+ $pirsE = ''
|
|
|
+ $pcdesc_eyebrowrandom = 'eyebrow'
|
|
|
+ $pcdesc_eyebrowwordy = 'eyebrow'
|
|
|
+ $pcdesc_eyebrow = 'eyebrow'
|
|
|
end
|
|
|
- $pcdesc_tonguewordy = 'tongue'
|
|
|
- $pcdesc_tongue = 'tongue'
|
|
|
-end
|
|
|
-
|
|
|
-if pirsB > 0 and pirsB < 10000:
|
|
|
- $pirsB = 'Your lip is pierced.'
|
|
|
- $pcdesc_lowerliprandom = 'pierced lower lip'
|
|
|
- $pcdesc_lowerlipwordy = 'jewelry-studded lower lip'
|
|
|
- $pcdesc_lowerlip = 'pierced lower lip'
|
|
|
-else
|
|
|
- $pirsB = ''
|
|
|
- $pcdesc_lowerliprandom = 'lower lip'
|
|
|
- $pcdesc_lowerlipwordy = 'lower lip'
|
|
|
- $pcdesc_lowerlip = 'lower lip'
|
|
|
-end
|
|
|
-
|
|
|
-if pirsC > 0 and pirsC < 10000:
|
|
|
- $pirsC = 'You are wearing earrings.'
|
|
|
- $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 = ''
|
|
|
- $pcdesc_earsrandom = 'ears' & $pcdesc_earrandom = 'ear'
|
|
|
- $pcdesc_earswordy = 'ears'
|
|
|
- $pcdesc_ears = 'ears'
|
|
|
- $pcdesc_earwordy = 'ear'
|
|
|
- $pcdesc_ear = 'ear'
|
|
|
-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.'
|
|
|
- $pcdesc_noserandom = 'pierced nose'
|
|
|
- $pcdesc_nosewordy = 'jewelry-studded nose'
|
|
|
- $pcdesc_nose = 'pierced nose'
|
|
|
-else
|
|
|
- $pirsD = ''
|
|
|
- $pcdesc_noserandom = 'nose'
|
|
|
- $pcdesc_nosewordy = 'nose'
|
|
|
- $pcdesc_nose = 'nose'
|
|
|
-end
|
|
|
|
|
|
-if pirsE > 0 and pirsE < 10000:
|
|
|
- $pirsE = 'Your eyebrow is pierced.'
|
|
|
- $pcdesc_eyebrowrandom = 'pierced eyebrow'
|
|
|
- $pcdesc_eyebrowwordy = 'pierced eyebrow'
|
|
|
- $pcdesc_eyebrow = 'pierced eyebrow'
|
|
|
-else
|
|
|
- $pirsE = ''
|
|
|
- $pcdesc_eyebrowrandom = 'eyebrow'
|
|
|
- $pcdesc_eyebrowwordy = 'eyebrow'
|
|
|
- $pcdesc_eyebrow = 'eyebrow'
|
|
|
-end
|
|
|
-
|
|
|
-if pirsN > 0 and pirsN < 10000:
|
|
|
- $pirsN = 'You are wearing a navel piercing.'
|
|
|
- $pcdesc_navelrandom = 'pierced navel'
|
|
|
- $pcdesc_navelwordy = 'pierced navel'
|
|
|
- $pcdesc_navel = 'pierced navel'
|
|
|
-else
|
|
|
- $pirsN = ''
|
|
|
- $pcdesc_navelrandom = 'navel'
|
|
|
- $pcdesc_navelwordy = 'navel'
|
|
|
- $pcdesc_navel = 'navel'
|
|
|
-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.'
|
|
|
- $pcdesc_genitalsrandom = 'pierced pussy'
|
|
|
- $pcdesc_genitalswordy = 'jewelry-adorned pussy'
|
|
|
- $pcdesc_genitals = 'pierced pussy'
|
|
|
-else
|
|
|
- $pirspiz = ''
|
|
|
- $pcdesc_genitalsrandom = 'pussy'
|
|
|
- $pcdesc_genitalswordy = 'pussy'
|
|
|
- $pcdesc_genitals = 'pussy'
|
|
|
-end
|
|
|
-
|
|
|
-
|
|
|
-!! There were already checks to set the PC lip size to fit between 0 and 4, so I folded them into this check so as not to needlessly check the same variable multiple times. There was also some duplicate logic; it has since been culled.
|
|
|
-!! When I got here, the $liptalk strings were all bafflingly identical, but were used interchangeably. I think it was probably something lost in translation. The intent was probably to reference lips without sounding repetitive, so for reasons of backward compatibility only,
|
|
|
-!! I have gone ahead and added some variety to each category to help with that. In general, please do not use the $liptalk strings (I will not be documenting them), they are effectively replaced by $pcsdesc_lipsrandom.
|
|
|
-if pcs_lip <= 0:
|
|
|
- pcs_lip = 0
|
|
|
- rand_lips = rand(0,2)
|
|
|
- if rand_lips = 0:
|
|
|
- $pcdesc_lipsrandom = 'thin'
|
|
|
- elseif rand_lips = 1:
|
|
|
- $pcdesc_lipsrandom = 'narrow'
|
|
|
- elseif rand_lips = 2:
|
|
|
- $pcdesc_lipsrandom = 'slender'
|
|
|
- end
|
|
|
- $pcdesc_lips = 'thin'
|
|
|
- $pcdesc_lipswordy = 'thin, scarcely-noticeable'
|
|
|
- $liptalk = 'thin lips'
|
|
|
- $liptalk2 = 'narrow lips'
|
|
|
- $liptalk3 = 'slender lips'
|
|
|
- $lip1 = 'thin'
|
|
|
-elseif pcs_lip = 1:
|
|
|
- !! These are average lips, originally described as normal in the calculations I first came across. I suppose you could theoretically have blistered and sunburnt lips, not soft ones, but, you know, let us worry about that use case sometime later.
|
|
|
- rand_lips = rand(0,1)
|
|
|
- if rand_lips = 0:
|
|
|
- $pcdesc_lipsrandom = 'kissable'
|
|
|
- elseif rand_lips = 1:
|
|
|
- $pcdesc_lipsrandom = 'average'
|
|
|
- end
|
|
|
- $pcdesc_lips = 'average'
|
|
|
- $pcdesc_lipswordy = 'kissable, if average'
|
|
|
- $liptalk = 'kissable lips'
|
|
|
- $liptalk2 = 'kissable lips'
|
|
|
- $liptalk3 = 'kissable lips'
|
|
|
- $lip1 = 'normal'
|
|
|
-elseif pcs_lip = 2:
|
|
|
- rand_lips = rand(0,2)
|
|
|
- if rand_lips = 0:
|
|
|
- $pcdesc_lipsrandom = 'plump'
|
|
|
- elseif rand_lips = 1:
|
|
|
- $pcdesc_lipsrandom = 'full'
|
|
|
- elseif rand_lips = 2:
|
|
|
- $pcdesc_lipsrandom = 'inviting'
|
|
|
- end
|
|
|
- $pcdesc_lips = 'plump'
|
|
|
- $pcdesc_lipswordy = 'invitingly full'
|
|
|
- $liptalk = 'plump lips'
|
|
|
- $liptalk2 = 'full lips'
|
|
|
- $liptalk3 = 'inviting lips'
|
|
|
- $lip1 = 'plump'
|
|
|
-elseif pcs_lip = 3:
|
|
|
- rand_lips = rand(0,2)
|
|
|
- if rand_lips = 0:
|
|
|
- $pcdesc_lipsrandom = 'thick'
|
|
|
- elseif rand_lips = 1:
|
|
|
- $pcdesc_lipsrandom = 'big'
|
|
|
- elseif rand_lips = 2:
|
|
|
- $pcdesc_lipsrandom = 'pouty'
|
|
|
- end
|
|
|
- $pcdesc_lips = 'pouty'
|
|
|
- $pcdesc_lipswordy = 'big, pouty and full'
|
|
|
- $liptalk = 'pouting lips'
|
|
|
- $liptalk2 = 'big lips'
|
|
|
- $liptalk3 = 'thick lips'
|
|
|
- $lip1 = 'pouting'
|
|
|
-else
|
|
|
- pcs_lip = 4
|
|
|
- rand_lips = rand(0,2)
|
|
|
- if rand_lips = 0:
|
|
|
- $pcdesc_lipsrandom = 'fat'
|
|
|
- elseif rand_lips = 1:
|
|
|
- $pcdesc_lipsrandom = 'pillowy'
|
|
|
- elseif rand_lips = 2:
|
|
|
- $pcdesc_lipsrandom = 'plush'
|
|
|
+ if pirsN > 0 and pirsN < 10000:
|
|
|
+ $pirsN = 'You are wearing a navel piercing.'
|
|
|
+ $pcdesc_navelrandom = 'pierced navel'
|
|
|
+ $pcdesc_navelwordy = 'pierced navel'
|
|
|
+ $pcdesc_navel = 'pierced navel'
|
|
|
+ else
|
|
|
+ $pirsN = ''
|
|
|
+ $pcdesc_navelrandom = 'navel'
|
|
|
+ $pcdesc_navelwordy = 'navel'
|
|
|
+ $pcdesc_navel = 'navel'
|
|
|
+ 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.'
|
|
|
+ $pcdesc_genitalsrandom = 'pierced pussy'
|
|
|
+ $pcdesc_genitalswordy = 'jewelry-adorned pussy'
|
|
|
+ $pcdesc_genitals = 'pierced pussy'
|
|
|
+ else
|
|
|
+ $pirspiz = ''
|
|
|
+ $pcdesc_genitalsrandom = 'pussy'
|
|
|
+ $pcdesc_genitalswordy = 'pussy'
|
|
|
+ $pcdesc_genitals = 'pussy'
|
|
|
end
|
|
|
- $pcdesc_lips = 'pillowy'
|
|
|
- $pcdesc_lipswordy = 'plush, pillowy and inviting'
|
|
|
- $liptalk = 'plush lips'
|
|
|
- $liptalk2 = 'pillowy lips'
|
|
|
- $liptalk3 = 'fat lips'
|
|
|
- $lip1 = 'plump, pillowy'
|
|
|
-end
|
|
|
+
|
|
|
|
|
|
-!! Lip balm is used OVER makeup, and given the descriptions already provided for what it does to lips, I feel with some certainty it is meant to be lip gloss, not lip BALM. Still, cannot change the old variables...
|
|
|
-!! $pcdesc_lipglossed is used for a past-tense descriptive, present-tense descriptives will use $pcdesc_lipgloss. In most cases, the lip balm descriptors should only add options when looking at random choices, as the additional random options are merely indicative of
|
|
|
-!! a more suggestive lip shape and fullness, not necessarily a different type of gloss. Only shiny is culled past 1, because it is boring. $pcs_lipbalm is left for backwards compatibility.
|
|
|
-if pcs_lipbalm > 0:
|
|
|
- if pcs_lip = 1:
|
|
|
- rand_lipgloss = rand(0,1)
|
|
|
- if rand_lipgloss = 0:
|
|
|
- $pcdesc_lipglossrandom = 'shiny'
|
|
|
- elseif rand_lipgloss = 1:
|
|
|
- $pcdesc_lipglossrandom = 'glossy'
|
|
|
- end
|
|
|
- $pcs_lipbalm = 'shiny'
|
|
|
- $pcdesc_lipgloss = 'shiny'
|
|
|
- $pcdesc_lipglossinsertive = ', shiny'
|
|
|
- $pcdesc_lipglossed = 'glossed'
|
|
|
- $pcdesc_lipglosswordy = 'gloss-slicked'
|
|
|
- $lip = 'You have normal<<$pcdesc_lipglossinsertive>> lips.<<$pirsB>><<$pirsA>>'
|
|
|
+ !! There were already checks to set the PC lip size to fit between 0 and 4, so I folded them into this check so as not to needlessly check the same variable multiple times. There was also some duplicate logic; it has since been culled.
|
|
|
+ !! When I got here, the $liptalk strings were all bafflingly identical, but were used interchangeably. I think it was probably something lost in translation. The intent was probably to reference lips without sounding repetitive, so for reasons of backward compatibility only,
|
|
|
+ !! I have gone ahead and added some variety to each category to help with that. In general, please do not use the $liptalk strings (I will not be documenting them), they are effectively replaced by $pcsdesc_lipsrandom.
|
|
|
+ if pcs_lip <= 0:
|
|
|
+ pcs_lip = 0
|
|
|
+ rand_lips = rand(0,2)
|
|
|
+ if rand_lips = 0:
|
|
|
+ $pcdesc_lipsrandom = 'thin'
|
|
|
+ elseif rand_lips = 1:
|
|
|
+ $pcdesc_lipsrandom = 'narrow'
|
|
|
+ elseif rand_lips = 2:
|
|
|
+ $pcdesc_lipsrandom = 'slender'
|
|
|
+ end
|
|
|
+ $pcdesc_lips = 'thin'
|
|
|
+ $pcdesc_lipswordy = 'thin, scarcely-noticeable'
|
|
|
+ $liptalk = 'thin lips'
|
|
|
+ $liptalk2 = 'narrow lips'
|
|
|
+ $liptalk3 = 'slender lips'
|
|
|
+ $lip1 = 'thin'
|
|
|
+ elseif pcs_lip = 1:
|
|
|
+ !! These are average lips, originally described as normal in the calculations I first came across. I suppose you could theoretically have blistered and sunburnt lips, not soft ones, but, you know, let us worry about that use case sometime later.
|
|
|
+ rand_lips = rand(0,1)
|
|
|
+ if rand_lips = 0:
|
|
|
+ $pcdesc_lipsrandom = 'kissable'
|
|
|
+ elseif rand_lips = 1:
|
|
|
+ $pcdesc_lipsrandom = 'average'
|
|
|
+ end
|
|
|
+ $pcdesc_lips = 'average'
|
|
|
+ $pcdesc_lipswordy = 'kissable, if average'
|
|
|
+ $liptalk = 'kissable lips'
|
|
|
+ $liptalk2 = 'kissable lips'
|
|
|
+ $liptalk3 = 'kissable lips'
|
|
|
+ $lip1 = 'normal'
|
|
|
elseif pcs_lip = 2:
|
|
|
- rand_lipgloss = rand(0,2)
|
|
|
- if rand_lipgloss = 0:
|
|
|
- $pcdesc_lipglossrandom = 'juicy'
|
|
|
- elseif rand_lipgloss = 1:
|
|
|
- $pcdesc_lipglossrandom = 'glossy'
|
|
|
- elseif rand_lipgloss = 2:
|
|
|
- $pcdesc_lipglossrandom = 'slippery'
|
|
|
- end
|
|
|
- $pcs_lipbalm = 'brilliant and juicy'
|
|
|
- $pcdesc_lipgloss = 'brilliant and juicy'
|
|
|
- $pcdesc_lipglossinsertive = ', brilliant and juicy'
|
|
|
- $pcdesc_lipglossed = 'glossed'
|
|
|
- $pcdesc_lipglosswordy = 'invitingly glossed'
|
|
|
- $lip = 'You have plump<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
+ rand_lips = rand(0,2)
|
|
|
+ if rand_lips = 0:
|
|
|
+ $pcdesc_lipsrandom = 'plump'
|
|
|
+ elseif rand_lips = 1:
|
|
|
+ $pcdesc_lipsrandom = 'full'
|
|
|
+ elseif rand_lips = 2:
|
|
|
+ $pcdesc_lipsrandom = 'inviting'
|
|
|
+ end
|
|
|
+ $pcdesc_lips = 'plump'
|
|
|
+ $pcdesc_lipswordy = 'invitingly full'
|
|
|
+ $liptalk = 'plump lips'
|
|
|
+ $liptalk2 = 'full lips'
|
|
|
+ $liptalk3 = 'inviting lips'
|
|
|
+ $lip1 = 'plump'
|
|
|
elseif pcs_lip = 3:
|
|
|
- rand_lipgloss = rand(0,4)
|
|
|
- if rand_lipgloss = 0:
|
|
|
- $pcdesc_lipglossrandom = 'juicy'
|
|
|
- elseif rand_lipgloss = 1:
|
|
|
- $pcdesc_lipglossrandom = 'glossy'
|
|
|
- elseif rand_lipgloss = 2:
|
|
|
- $pcdesc_lipglossrandom = 'slippery'
|
|
|
- elseif rand_lipgloss = 3:
|
|
|
- $pcdesc_lipglossrandom = 'gloss-slicked'
|
|
|
- elseif rand_lipgloss = 4:
|
|
|
- $pcdesc_lipglossrandom = 'gloss-stickied'
|
|
|
- end
|
|
|
- $pcs_lipbalm = 'juicy and full'
|
|
|
- $pcdesc_lipgloss = 'juicy and full'
|
|
|
- $pcdesc_lipglossinsertive = ', juicy and full'
|
|
|
- $pcdesc_lipglossed = 'glossed'
|
|
|
- $pcdesc_lipglosswordy = 'wetly-glossed'
|
|
|
- $lip = 'You have big, pouting, <<$pcdesc_lipgloss>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
- elseif pcs_lip = 4:
|
|
|
- rand_lipgloss = rand(0,6)
|
|
|
- !! I know what you are thinking -- dripping? But believe me; past a certain point it really will. It is far from the least realistic thing we would have in here anyway.
|
|
|
- if rand_lipgloss = 0:
|
|
|
- $pcdesc_lipglossrandom = 'juicy'
|
|
|
- elseif rand_lipgloss = 1:
|
|
|
- $pcdesc_lipglossrandom = 'glossy'
|
|
|
- elseif rand_lipgloss = 2:
|
|
|
- $pcdesc_lipglossrandom = 'gloss-slicked'
|
|
|
- elseif rand_lipgloss = 3:
|
|
|
- $pcdesc_lipglossrandom = 'gloss-stickied'
|
|
|
- elseif rand_lipgloss = 4:
|
|
|
- $pcdesc_lipglossrandom = 'gloss-dripping'
|
|
|
- elseif rand_lipgloss = 5:
|
|
|
- $pcdesc_lipglossrandom = 'glisteningly wet'
|
|
|
- elseif rand_lipgloss = 6:
|
|
|
- $pcdesc_lipglossrandom = 'slippery'
|
|
|
- end
|
|
|
- $pcs_lipbalm = 'wet and glossy'
|
|
|
- $pcdesc_lipgloss = 'wet and glossy'
|
|
|
- $pcdesc_lipglossinsertive = ', wet and glossy'
|
|
|
- $pcdesc_lipglossed = 'glossed'
|
|
|
- $pcdesc_lipglosswordy = 'suggestively gloss-glazed'
|
|
|
- $lip = 'You have pillowy, <<$pcdesc_lipgloss>>, suggestively full lips. <<$pirsB>> <<$pirsA>>'
|
|
|
+ rand_lips = rand(0,2)
|
|
|
+ if rand_lips = 0:
|
|
|
+ $pcdesc_lipsrandom = 'thick'
|
|
|
+ elseif rand_lips = 1:
|
|
|
+ $pcdesc_lipsrandom = 'big'
|
|
|
+ elseif rand_lips = 2:
|
|
|
+ $pcdesc_lipsrandom = 'pouty'
|
|
|
+ end
|
|
|
+ $pcdesc_lips = 'pouty'
|
|
|
+ $pcdesc_lipswordy = 'big, pouty and full'
|
|
|
+ $liptalk = 'pouting lips'
|
|
|
+ $liptalk2 = 'big lips'
|
|
|
+ $liptalk3 = 'thick lips'
|
|
|
+ $lip1 = 'pouting'
|
|
|
else
|
|
|
- !! Lip size 0
|
|
|
- $pcdesc_lipglossrandom = 'shiny'
|
|
|
- $pcs_lipbalm = 'shiny'
|
|
|
- $pcdesc_lipgloss = 'shiny'
|
|
|
- $pcdesc_lipglossinsertive = ', shiny'
|
|
|
- $pcdesc_lipglossed = 'glossed'
|
|
|
- $pcdesc_lipglosswordy = 'gloss-slicked'
|
|
|
- $lip = 'You have thin<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
- end
|
|
|
-else
|
|
|
- !! No gloss
|
|
|
- $pcdesc_lipglossrandom = 'soft'
|
|
|
- $pcs_lipbalm = 'soft'
|
|
|
- $pcdesc_lipgloss = 'soft'
|
|
|
- $pcdesc_lipglossinsertive = ''
|
|
|
- $pcdesc_lipglossed = 'softened'
|
|
|
- $pcdesc_lipglosswordy = 'soft'
|
|
|
- $lip = 'You have <<$pcdesc_lipswordy>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
-end
|
|
|
-
|
|
|
-!! A pair of ready-made lip strings for writers to use if they are unsure how to construct them themselves. Again, these are not great and should preferably not be relied on, but they are here.
|
|
|
-$pcdesc_fulllips = '<<$pcdesc_lips>><<$pcdesc_lipglossinsertive>> lips'
|
|
|
-$pcdesc_fulllipswordy = '<<$pcdesc_lipglossrandom>>, <<$pcdesc_lipswordy>> lips'
|
|
|
-
|
|
|
-!! The solarium increases tan value by 10, and the beach increases it by 1 or 3 based on whether or not you use sunblock (counterintuitively, sunblock increases it by 3, not 1 -- I think suntan lotion was meant, which is actually a different thing)
|
|
|
-if pcs_tan > 0:
|
|
|
- if pcs_tan > 0 and pcs_tan <= 5:
|
|
|
- rand_tan = rand(0,2)
|
|
|
- if rand_tan = 0:
|
|
|
- $pcdesc_tanrandom = 'lightly tanned'
|
|
|
- elseif rand_tan = 1:
|
|
|
- $pcdesc_tanrandom = 'barely tanned'
|
|
|
- elseif rand_tan = 2:
|
|
|
- $pcdesc_tanrandom = 'scarcely darkened'
|
|
|
+ pcs_lip = 4
|
|
|
+ rand_lips = rand(0,2)
|
|
|
+ if rand_lips = 0:
|
|
|
+ $pcdesc_lipsrandom = 'fat'
|
|
|
+ elseif rand_lips = 1:
|
|
|
+ $pcdesc_lipsrandom = 'pillowy'
|
|
|
+ elseif rand_lips = 2:
|
|
|
+ $pcdesc_lipsrandom = 'plush'
|
|
|
end
|
|
|
- $pcdesc_tan = 'faintly tanned'
|
|
|
- $pcdesc_tanwordy = 'just barely sun-kissed'
|
|
|
- $pcs_tan = 'faintly tanned'
|
|
|
- elseif pcs_tan > 5 and pcs_tan <= 10:
|
|
|
- rand_tan = rand(0,3)
|
|
|
- if rand_tan = 0:
|
|
|
- $pcdesc_tanrandom = 'tanned'
|
|
|
- elseif rand_tan = 1:
|
|
|
- $pcdesc_tanrandom = 'lightly bronzed'
|
|
|
- elseif rand_tan = 2:
|
|
|
- $pcdesc_tanrandom = 'sun-kissed'
|
|
|
- elseif rand_tan = 3:
|
|
|
- $pcdesc_tanrandom = 'lightly browned'
|
|
|
+ $pcdesc_lips = 'pillowy'
|
|
|
+ $pcdesc_lipswordy = 'plush, pillowy and inviting'
|
|
|
+ $liptalk = 'plush lips'
|
|
|
+ $liptalk2 = 'pillowy lips'
|
|
|
+ $liptalk3 = 'fat lips'
|
|
|
+ $lip1 = 'plump, pillowy'
|
|
|
+ end
|
|
|
+
|
|
|
+ !! Lip balm is used OVER makeup, and given the descriptions already provided for what it does to lips, I feel with some certainty it is meant to be lip gloss, not lip BALM. Still, cannot change the old variables...
|
|
|
+ !! $pcdesc_lipglossed is used for a past-tense descriptive, present-tense descriptives will use $pcdesc_lipgloss. In most cases, the lip balm descriptors should only add options when looking at random choices, as the additional random options are merely indicative of
|
|
|
+ !! a more suggestive lip shape and fullness, not necessarily a different type of gloss. Only shiny is culled past 1, because it is boring. $pcs_lipbalm is left for backwards compatibility.
|
|
|
+ if pcs_lipbalm > 0:
|
|
|
+ if pcs_lip = 1:
|
|
|
+ rand_lipgloss = rand(0,1)
|
|
|
+ if rand_lipgloss = 0:
|
|
|
+ $pcdesc_lipglossrandom = 'shiny'
|
|
|
+ elseif rand_lipgloss = 1:
|
|
|
+ $pcdesc_lipglossrandom = 'glossy'
|
|
|
+ end
|
|
|
+ $pcs_lipbalm = 'shiny'
|
|
|
+ $pcdesc_lipgloss = 'shiny'
|
|
|
+ $pcdesc_lipglossinsertive = ', shiny'
|
|
|
+ $pcdesc_lipglossed = 'glossed'
|
|
|
+ $pcdesc_lipglosswordy = 'gloss-slicked'
|
|
|
+ $lip = 'You have normal<<$pcdesc_lipglossinsertive>> lips.<<$pirsB>><<$pirsA>>'
|
|
|
+ elseif pcs_lip = 2:
|
|
|
+ rand_lipgloss = rand(0,2)
|
|
|
+ if rand_lipgloss = 0:
|
|
|
+ $pcdesc_lipglossrandom = 'juicy'
|
|
|
+ elseif rand_lipgloss = 1:
|
|
|
+ $pcdesc_lipglossrandom = 'glossy'
|
|
|
+ elseif rand_lipgloss = 2:
|
|
|
+ $pcdesc_lipglossrandom = 'slippery'
|
|
|
+ end
|
|
|
+ $pcs_lipbalm = 'brilliant and juicy'
|
|
|
+ $pcdesc_lipgloss = 'brilliant and juicy'
|
|
|
+ $pcdesc_lipglossinsertive = ', brilliant and juicy'
|
|
|
+ $pcdesc_lipglossed = 'glossed'
|
|
|
+ $pcdesc_lipglosswordy = 'invitingly glossed'
|
|
|
+ $lip = 'You have plump<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
+ elseif pcs_lip = 3:
|
|
|
+ rand_lipgloss = rand(0,4)
|
|
|
+ if rand_lipgloss = 0:
|
|
|
+ $pcdesc_lipglossrandom = 'juicy'
|
|
|
+ elseif rand_lipgloss = 1:
|
|
|
+ $pcdesc_lipglossrandom = 'glossy'
|
|
|
+ elseif rand_lipgloss = 2:
|
|
|
+ $pcdesc_lipglossrandom = 'slippery'
|
|
|
+ elseif rand_lipgloss = 3:
|
|
|
+ $pcdesc_lipglossrandom = 'gloss-slicked'
|
|
|
+ elseif rand_lipgloss = 4:
|
|
|
+ $pcdesc_lipglossrandom = 'gloss-stickied'
|
|
|
+ end
|
|
|
+ $pcs_lipbalm = 'juicy and full'
|
|
|
+ $pcdesc_lipgloss = 'juicy and full'
|
|
|
+ $pcdesc_lipglossinsertive = ', juicy and full'
|
|
|
+ $pcdesc_lipglossed = 'glossed'
|
|
|
+ $pcdesc_lipglosswordy = 'wetly-glossed'
|
|
|
+ $lip = 'You have big, pouting, <<$pcdesc_lipgloss>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
+ elseif pcs_lip = 4:
|
|
|
+ rand_lipgloss = rand(0,6)
|
|
|
+ !! I know what you are thinking -- dripping? But believe me; past a certain point it really will. It is far from the least realistic thing we would have in here anyway.
|
|
|
+ if rand_lipgloss = 0:
|
|
|
+ $pcdesc_lipglossrandom = 'juicy'
|
|
|
+ elseif rand_lipgloss = 1:
|
|
|
+ $pcdesc_lipglossrandom = 'glossy'
|
|
|
+ elseif rand_lipgloss = 2:
|
|
|
+ $pcdesc_lipglossrandom = 'gloss-slicked'
|
|
|
+ elseif rand_lipgloss = 3:
|
|
|
+ $pcdesc_lipglossrandom = 'gloss-stickied'
|
|
|
+ elseif rand_lipgloss = 4:
|
|
|
+ $pcdesc_lipglossrandom = 'gloss-dripping'
|
|
|
+ elseif rand_lipgloss = 5:
|
|
|
+ $pcdesc_lipglossrandom = 'glisteningly wet'
|
|
|
+ elseif rand_lipgloss = 6:
|
|
|
+ $pcdesc_lipglossrandom = 'slippery'
|
|
|
+ end
|
|
|
+ $pcs_lipbalm = 'wet and glossy'
|
|
|
+ $pcdesc_lipgloss = 'wet and glossy'
|
|
|
+ $pcdesc_lipglossinsertive = ', wet and glossy'
|
|
|
+ $pcdesc_lipglossed = 'glossed'
|
|
|
+ $pcdesc_lipglosswordy = 'suggestively gloss-glazed'
|
|
|
+ $lip = 'You have pillowy, <<$pcdesc_lipgloss>>, suggestively full lips. <<$pirsB>> <<$pirsA>>'
|
|
|
+ else
|
|
|
+ !! Lip size 0
|
|
|
+ $pcdesc_lipglossrandom = 'shiny'
|
|
|
+ $pcs_lipbalm = 'shiny'
|
|
|
+ $pcdesc_lipgloss = 'shiny'
|
|
|
+ $pcdesc_lipglossinsertive = ', shiny'
|
|
|
+ $pcdesc_lipglossed = 'glossed'
|
|
|
+ $pcdesc_lipglosswordy = 'gloss-slicked'
|
|
|
+ $lip = 'You have thin<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
end
|
|
|
- $pcdesc_tan = 'tanned'
|
|
|
- $pcdesc_tanwordy = 'gently sun-kissed'
|
|
|
- $pcs_tan = 'tanned'
|
|
|
- elseif pcs_tan > 10 and pcs_tan <= 25:
|
|
|
- rand_tan = rand(0,2)
|
|
|
- if rand_tan = 0:
|
|
|
- $pcdesc_tanrandom = 'bronzed'
|
|
|
- elseif rand_tan = 1:
|
|
|
- $pcdesc_tanrandom = 'browned'
|
|
|
- elseif rand_tan = 2:
|
|
|
- $pcdesc_tanrandom = 'light caramel'
|
|
|
+ else
|
|
|
+ !! No gloss
|
|
|
+ $pcdesc_lipglossrandom = 'soft'
|
|
|
+ $pcs_lipbalm = 'soft'
|
|
|
+ $pcdesc_lipgloss = 'soft'
|
|
|
+ $pcdesc_lipglossinsertive = ''
|
|
|
+ $pcdesc_lipglossed = 'softened'
|
|
|
+ $pcdesc_lipglosswordy = 'soft'
|
|
|
+ $lip = 'You have <<$pcdesc_lipswordy>> lips. <<$pirsB>> <<$pirsA>>'
|
|
|
+ end
|
|
|
+
|
|
|
+ !! A pair of ready-made lip strings for writers to use if they are unsure how to construct them themselves. Again, these are not great and should preferably not be relied on, but they are here.
|
|
|
+ $pcdesc_fulllips = '<<$pcdesc_lips>><<$pcdesc_lipglossinsertive>> lips'
|
|
|
+ $pcdesc_fulllipswordy = '<<$pcdesc_lipglossrandom>>, <<$pcdesc_lipswordy>> lips'
|
|
|
+
|
|
|
+ !! The solarium increases tan value by 10, and the beach increases it by 1 or 3 based on whether or not you use sunblock (counterintuitively, sunblock increases it by 3, not 1 -- I think suntan lotion was meant, which is actually a different thing)
|
|
|
+ if pcs_tan > 0:
|
|
|
+ if pcs_tan > 0 and pcs_tan <= 5:
|
|
|
+ rand_tan = rand(0,2)
|
|
|
+ if rand_tan = 0:
|
|
|
+ $pcdesc_tanrandom = 'lightly tanned'
|
|
|
+ elseif rand_tan = 1:
|
|
|
+ $pcdesc_tanrandom = 'barely tanned'
|
|
|
+ elseif rand_tan = 2:
|
|
|
+ $pcdesc_tanrandom = 'scarcely darkened'
|
|
|
+ end
|
|
|
+ $pcdesc_tan = 'faintly tanned'
|
|
|
+ $pcdesc_tanwordy = 'just barely sun-kissed'
|
|
|
+ $pcs_tan = 'faintly tanned'
|
|
|
+ elseif pcs_tan > 5 and pcs_tan <= 10:
|
|
|
+ rand_tan = rand(0,3)
|
|
|
+ if rand_tan = 0:
|
|
|
+ $pcdesc_tanrandom = 'tanned'
|
|
|
+ elseif rand_tan = 1:
|
|
|
+ $pcdesc_tanrandom = 'lightly bronzed'
|
|
|
+ elseif rand_tan = 2:
|
|
|
+ $pcdesc_tanrandom = 'sun-kissed'
|
|
|
+ elseif rand_tan = 3:
|
|
|
+ $pcdesc_tanrandom = 'lightly browned'
|
|
|
+ end
|
|
|
+ $pcdesc_tan = 'tanned'
|
|
|
+ $pcdesc_tanwordy = 'gently sun-kissed'
|
|
|
+ $pcs_tan = 'tanned'
|
|
|
+ elseif pcs_tan > 10 and pcs_tan <= 25:
|
|
|
+ rand_tan = rand(0,2)
|
|
|
+ if rand_tan = 0:
|
|
|
+ $pcdesc_tanrandom = 'bronzed'
|
|
|
+ elseif rand_tan = 1:
|
|
|
+ $pcdesc_tanrandom = 'browned'
|
|
|
+ elseif rand_tan = 2:
|
|
|
+ $pcdesc_tanrandom = 'light caramel'
|
|
|
+ end
|
|
|
+ $pcdesc_tan = 'bronzed'
|
|
|
+ $pcdesc_tanwordy = 'sun-swept, beach-bunny brown'
|
|
|
+ $pcs_tan = 'bronzed'
|
|
|
+ elseif pcs_tan > 25 and pcs_tan <= 50:
|
|
|
+ rand_tan = rand(0,3)
|
|
|
+ if rand_tan = 0:
|
|
|
+ $pcdesc_tanrandom = 'deeply tanned'
|
|
|
+ elseif rand_tan = 1:
|
|
|
+ $pcdesc_tanrandom = 'very dark'
|
|
|
+ elseif rand_tan = 2:
|
|
|
+ $pcdesc_tanrandom = 'richly browned'
|
|
|
+ elseif rand_tan = 3:
|
|
|
+ $pcdesc_tanrandom = 'tawny'
|
|
|
+ end
|
|
|
+ $pcdesc_tan = 'deeply tanned'
|
|
|
+ $pcdesc_tanwordy = 'dark, richly browned'
|
|
|
+ $pcs_tan = 'deeply tanned'
|
|
|
+ else
|
|
|
+ !! This would take some very intentional tanorexia
|
|
|
+ rand_tan = rand(0,2)
|
|
|
+ if rand_tan = 0:
|
|
|
+ $pcdesc_tanrandom = 'extremely darkly tanned'
|
|
|
+ elseif rand_tan = 1:
|
|
|
+ $pcdesc_tanrandom = 'nearly unnaturally darkened'
|
|
|
+ elseif rand_tan = 2:
|
|
|
+ $pcdesc_tanrandom = 'dark, desert-tanned'
|
|
|
+ end
|
|
|
+ $pcdesc_tan = 'extremely darkly tanned'
|
|
|
+ $pcdesc_tanwordy = 'practically swarthy'
|
|
|
+ $pcs_tan = 'extremely darkly tanned'
|
|
|
end
|
|
|
- $pcdesc_tan = 'bronzed'
|
|
|
- $pcdesc_tanwordy = 'sun-swept, beach-bunny brown'
|
|
|
- $pcs_tan = 'bronzed'
|
|
|
- elseif pcs_tan > 25 and pcs_tan <= 50:
|
|
|
+ else
|
|
|
rand_tan = rand(0,3)
|
|
|
if rand_tan = 0:
|
|
|
- $pcdesc_tanrandom = 'deeply tanned'
|
|
|
+ $pcdesc_tanrandom = 'pale'
|
|
|
elseif rand_tan = 1:
|
|
|
- $pcdesc_tanrandom = 'very dark'
|
|
|
+ $pcdesc_tanrandom = 'alabaster'
|
|
|
elseif rand_tan = 2:
|
|
|
- $pcdesc_tanrandom = 'richly browned'
|
|
|
+ $pcdesc_tanrandom = 'porcelain'
|
|
|
elseif rand_tan = 3:
|
|
|
- $pcdesc_tanrandom = 'tawny'
|
|
|
+ $pcdesc_tanrandom = 'fair'
|
|
|
+ end
|
|
|
+ $pcdesc_tan = 'pale'
|
|
|
+ $pcdesc_tanwordy = 'pale, alabaster'
|
|
|
+ $pcs_tan = 'pale'
|
|
|
+ end
|
|
|
+
|
|
|
+ !! Skin1 is only used in the foto location, and can be replaced at a later date. From here on out, do not use it.
|
|
|
+ if pcs_skin > 100:
|
|
|
+ pcs_skin = 100
|
|
|
+ elseif pcs_skin < 0:
|
|
|
+ pcs_skin = 0
|
|
|
+ end
|
|
|
+ if pcs_skin < 20:
|
|
|
+ rand_skin = rand(0,3)
|
|
|
+ if rand_skin = 0:
|
|
|
+ $pcdesc_skinrandom = 'terrible'
|
|
|
+ elseif rand_skin = 1:
|
|
|
+ $pcdesc_skinrandom = 'awful'
|
|
|
+ elseif rand_skin = 2:
|
|
|
+ $pcdesc_skinrandom = 'greasy'
|
|
|
+ elseif rand_skin = 3:
|
|
|
+ $pcdesc_skinrandom = 'pimple-strewn'
|
|
|
+ end
|
|
|
+ $pcdesc_skin = 'terrible'
|
|
|
+ $pcdesc_skinwordy = 'awful, greasy and pimply'
|
|
|
+ $skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
+ $skin1 = 'terrible'
|
|
|
+ elseif pcs_skin < 40:
|
|
|
+ rand_skin = rand(0,3)
|
|
|
+ if rand_skin = 0:
|
|
|
+ $pcdesc_skinrandom = 'bad'
|
|
|
+ elseif rand_skin = 1:
|
|
|
+ $pcdesc_skinrandom = 'greasy'
|
|
|
+ elseif rand_skin = 2:
|
|
|
+ $pcdesc_skinrandom = 'rough'
|
|
|
+ elseif rand_skin = 3:
|
|
|
+ $pcdesc_skinrandom = 'unappealing'
|
|
|
+ end
|
|
|
+ $pcdesc_skin = 'bad'
|
|
|
+ $pcdesc_skinwordy = 'poorly-kept, unappealing'
|
|
|
+ $skin = 'Your <<$pcs_tan>> skin is rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
+ $skin1 = 'bad'
|
|
|
+ elseif pcs_skin < 60:
|
|
|
+ rand_skin = rand(0,2)
|
|
|
+ if rand_skin = 0:
|
|
|
+ $pcdesc_skinrandom = 'average'
|
|
|
+ elseif rand_skin = 1:
|
|
|
+ $pcdesc_skinrandom = 'normal'
|
|
|
+ elseif rand_skin = 2:
|
|
|
+ $pcdesc_skinrandom = 'clear'
|
|
|
end
|
|
|
- $pcdesc_tan = 'deeply tanned'
|
|
|
- $pcdesc_tanwordy = 'dark, richly browned'
|
|
|
- $pcs_tan = 'deeply tanned'
|
|
|
+ $pcdesc_skin = 'average'
|
|
|
+ $pcdesc_skinwordy = 'normal, slightly rough'
|
|
|
+ $skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
+ $skin1 = 'average'
|
|
|
+ elseif pcs_skin < 80:
|
|
|
+ rand_skin = rand(0,4)
|
|
|
+ if rand_skin = 0:
|
|
|
+ $pcdesc_skinrandom = 'good'
|
|
|
+ elseif rand_skin = 1:
|
|
|
+ $pcdesc_skinrandom = 'nice'
|
|
|
+ elseif rand_skin = 2:
|
|
|
+ $pcdesc_skinrandom = 'smooth'
|
|
|
+ elseif rand_skin = 3:
|
|
|
+ $pcdesc_skinrandom = 'well-kept'
|
|
|
+ elseif rand_skin = 4:
|
|
|
+ $pcdesc_skinrandom = 'great'
|
|
|
+ end
|
|
|
+ $pcdesc_skin = 'good'
|
|
|
+ $pcdesc_skinwordy = 'smooth, well-kept'
|
|
|
+ $skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
+ $skin1 = 'good'
|
|
|
else
|
|
|
- !! This would take some very intentional tanorexia
|
|
|
- rand_tan = rand(0,2)
|
|
|
- if rand_tan = 0:
|
|
|
- $pcdesc_tanrandom = 'extremely darkly tanned'
|
|
|
- elseif rand_tan = 1:
|
|
|
- $pcdesc_tanrandom = 'nearly unnaturally darkened'
|
|
|
- elseif rand_tan = 2:
|
|
|
- $pcdesc_tanrandom = 'dark, desert-tanned'
|
|
|
+ rand_skin = rand(0,4)
|
|
|
+ if rand_skin = 0:
|
|
|
+ $pcdesc_skinrandom = 'excellent'
|
|
|
+ elseif rand_skin = 1:
|
|
|
+ $pcdesc_skinrandom = 'silken'
|
|
|
+ elseif rand_skin = 2:
|
|
|
+ $pcdesc_skinrandom = 'soft'
|
|
|
+ elseif rand_skin = 3:
|
|
|
+ $pcdesc_skinrandom = 'silky'
|
|
|
+ elseif rand_skin = 4:
|
|
|
+ $pcdesc_skinrandom = 'immaculate'
|
|
|
end
|
|
|
- $pcdesc_tan = 'extremely darkly tanned'
|
|
|
- $pcdesc_tanwordy = 'practically swarthy'
|
|
|
- $pcs_tan = 'extremely darkly tanned'
|
|
|
- end
|
|
|
-else
|
|
|
- rand_tan = rand(0,3)
|
|
|
- if rand_tan = 0:
|
|
|
- $pcdesc_tanrandom = 'pale'
|
|
|
- elseif rand_tan = 1:
|
|
|
- $pcdesc_tanrandom = 'alabaster'
|
|
|
- elseif rand_tan = 2:
|
|
|
- $pcdesc_tanrandom = 'porcelain'
|
|
|
- elseif rand_tan = 3:
|
|
|
- $pcdesc_tanrandom = 'fair'
|
|
|
+ $pcdesc_skin = 'excellent'
|
|
|
+ $pcdesc_skinwordy = 'immaculate, silky-soft'
|
|
|
+ $skin = 'You have <<$pcs_tan>> and very smooth skin which almost feels like silk to the touch. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
+ $skin1 = 'excellent'
|
|
|
+ end
|
|
|
+ if pcs_eyecol = 0:
|
|
|
+ rand_eyecol = rand(0,1)
|
|
|
+ if rand_eyecol = 0:
|
|
|
+ $pcdesc_eyecolourrandom = 'brown'
|
|
|
+ elseif rand_eyecol = 1:
|
|
|
+ $pcdesc_eyecolourrandom = 'hazel'
|
|
|
+ end
|
|
|
+ $pcdesc_eyecolour = 'brown'
|
|
|
+ $pcdesc_eyecolourwordy = 'warm, hazel'
|
|
|
+ $pcs_eyecol = 'brown'
|
|
|
+ elseif pcs_eyecol = 1:
|
|
|
+ rand_eyecol = rand(0,2)
|
|
|
+ if rand_eyecol = 0:
|
|
|
+ $pcdesc_eyecolourrandom = 'pale'
|
|
|
+ elseif rand_eyecol = 1:
|
|
|
+ $pcdesc_eyecolourrandom = 'grey'
|
|
|
+ elseif rand_eyecol = 2:
|
|
|
+ $pcdesc_eyecolourrandom = 'silvery'
|
|
|
+ end
|
|
|
+ $pcdesc_eyecolour = 'grey'
|
|
|
+ $pcdesc_eyecolourwordy = 'pale, silvery-grey'
|
|
|
+ $pcs_eyecol = 'grey'
|
|
|
+ elseif pcs_eyecol = 2:
|
|
|
+ rand_eyecol = rand(0,1)
|
|
|
+ if rand_eyecol = 0:
|
|
|
+ $pcdesc_eyecolourrandom = 'green'
|
|
|
+ elseif rand_eyecol = 1:
|
|
|
+ $pcdesc_eyecolourrandom = 'emerald'
|
|
|
+ end
|
|
|
+ $pcdesc_eyecolour = 'green'
|
|
|
+ $pcdesc_eyecolourwordy = 'sparkling green'
|
|
|
+ $pcs_eyecol = 'green'
|
|
|
+ elseif pcs_eyecol = 3:
|
|
|
+ rand_eyecol = rand(0,1)
|
|
|
+ if rand_eyecol = 0:
|
|
|
+ $pcdesc_eyecolourrandom = 'blue'
|
|
|
+ elseif rand_eyecol = 1:
|
|
|
+ $pcdesc_eyecolourrandom = 'sapphire'
|
|
|
+ end
|
|
|
+ $pcdesc_eyecolour = 'blue'
|
|
|
+ $pcdesc_eyecolourwordy = 'vibrant, crystal blue'
|
|
|
+ $pcs_eyecol = 'blue'
|
|
|
+ else
|
|
|
+ $pcdesc_eyecolourrandom = 'attractive'
|
|
|
+ $pcdesc_eyecolour = 'attractive'
|
|
|
+ $pcdesc_eyecolourwordy = 'attractive'
|
|
|
+ $pcs_eyecol = 'attractive'
|
|
|
end
|
|
|
- $pcdesc_tan = 'pale'
|
|
|
- $pcdesc_tanwordy = 'pale, alabaster'
|
|
|
- $pcs_tan = 'pale'
|
|
|
-end
|
|
|
|
|
|
-!! Skin1 is only used in the foto location, and can be replaced at a later date. From here on out, do not use it.
|
|
|
-if pcs_skin > 100:
|
|
|
- pcs_skin = 100
|
|
|
-elseif pcs_skin < 0:
|
|
|
- pcs_skin = 0
|
|
|
-end
|
|
|
-if pcs_skin < 20:
|
|
|
- rand_skin = rand(0,3)
|
|
|
- if rand_skin = 0:
|
|
|
- $pcdesc_skinrandom = 'terrible'
|
|
|
- elseif rand_skin = 1:
|
|
|
- $pcdesc_skinrandom = 'awful'
|
|
|
- elseif rand_skin = 2:
|
|
|
- $pcdesc_skinrandom = 'greasy'
|
|
|
- elseif rand_skin = 3:
|
|
|
- $pcdesc_skinrandom = 'pimple-strewn'
|
|
|
- end
|
|
|
- $pcdesc_skin = 'terrible'
|
|
|
- $pcdesc_skinwordy = 'awful, greasy and pimply'
|
|
|
- $skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
- $skin1 = 'terrible'
|
|
|
-elseif pcs_skin < 40:
|
|
|
- rand_skin = rand(0,3)
|
|
|
- if rand_skin = 0:
|
|
|
- $pcdesc_skinrandom = 'bad'
|
|
|
- elseif rand_skin = 1:
|
|
|
- $pcdesc_skinrandom = 'greasy'
|
|
|
- elseif rand_skin = 2:
|
|
|
- $pcdesc_skinrandom = 'rough'
|
|
|
- elseif rand_skin = 3:
|
|
|
- $pcdesc_skinrandom = 'unappealing'
|
|
|
- end
|
|
|
- $pcdesc_skin = 'bad'
|
|
|
- $pcdesc_skinwordy = 'poorly-kept, unappealing'
|
|
|
- $skin = 'Your <<$pcs_tan>> skin is rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
- $skin1 = 'bad'
|
|
|
-elseif pcs_skin < 60:
|
|
|
- rand_skin = rand(0,2)
|
|
|
- if rand_skin = 0:
|
|
|
- $pcdesc_skinrandom = 'average'
|
|
|
- elseif rand_skin = 1:
|
|
|
- $pcdesc_skinrandom = 'normal'
|
|
|
- elseif rand_skin = 2:
|
|
|
- $pcdesc_skinrandom = 'clear'
|
|
|
- end
|
|
|
- $pcdesc_skin = 'average'
|
|
|
- $pcdesc_skinwordy = 'normal, slightly rough'
|
|
|
- $skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
- $skin1 = 'average'
|
|
|
-elseif pcs_skin < 80:
|
|
|
- rand_skin = rand(0,4)
|
|
|
- if rand_skin = 0:
|
|
|
- $pcdesc_skinrandom = 'good'
|
|
|
- elseif rand_skin = 1:
|
|
|
- $pcdesc_skinrandom = 'nice'
|
|
|
- elseif rand_skin = 2:
|
|
|
- $pcdesc_skinrandom = 'smooth'
|
|
|
- elseif rand_skin = 3:
|
|
|
- $pcdesc_skinrandom = 'well-kept'
|
|
|
- elseif rand_skin = 4:
|
|
|
- $pcdesc_skinrandom = 'great'
|
|
|
- end
|
|
|
- $pcdesc_skin = 'good'
|
|
|
- $pcdesc_skinwordy = 'smooth, well-kept'
|
|
|
- $skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
- $skin1 = 'good'
|
|
|
-else
|
|
|
- rand_skin = rand(0,4)
|
|
|
- if rand_skin = 0:
|
|
|
- $pcdesc_skinrandom = 'excellent'
|
|
|
- elseif rand_skin = 1:
|
|
|
- $pcdesc_skinrandom = 'silken'
|
|
|
- elseif rand_skin = 2:
|
|
|
- $pcdesc_skinrandom = 'soft'
|
|
|
- elseif rand_skin = 3:
|
|
|
- $pcdesc_skinrandom = 'silky'
|
|
|
- elseif rand_skin = 4:
|
|
|
- $pcdesc_skinrandom = 'immaculate'
|
|
|
- end
|
|
|
- $pcdesc_skin = 'excellent'
|
|
|
- $pcdesc_skinwordy = 'immaculate, silky-soft'
|
|
|
- $skin = 'You have <<$pcs_tan>> and very smooth skin which almost feels like silk to the touch. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
|
|
|
- $skin1 = 'excellent'
|
|
|
-end
|
|
|
-if pcs_eyecol = 0:
|
|
|
- rand_eyecol = rand(0,1)
|
|
|
- if rand_eyecol = 0:
|
|
|
- $pcdesc_eyecolourrandom = 'brown'
|
|
|
- elseif rand_eyecol = 1:
|
|
|
- $pcdesc_eyecolourrandom = 'hazel'
|
|
|
+ !! extended lash functionality; pcs_lashes = n are: {2, largest natural size}, {3, with temporary false lashes on or basic 2D lash extensions}, {4, with ornate false lashes on or lavish 4D extensions}, {5, with extremely ornate, 6D-style extensions} - xerya
|
|
|
+ !! If players do not have a pcs_naturallashes value, extrapolate one as best as possible from what they currently have.
|
|
|
+ if pcs_naturallashes <= 0 and pcs_lashes <= 2 and retroactivenaturallashes <= 0:
|
|
|
+ pcs_naturallashes = pcs_lashes
|
|
|
+ retroactivenaturallashes = 1
|
|
|
end
|
|
|
- $pcdesc_eyecolour = 'brown'
|
|
|
- $pcdesc_eyecolourwordy = 'warm, hazel'
|
|
|
- $pcs_eyecol = 'brown'
|
|
|
-elseif pcs_eyecol = 1:
|
|
|
- rand_eyecol = rand(0,2)
|
|
|
- if rand_eyecol = 0:
|
|
|
- $pcdesc_eyecolourrandom = 'pale'
|
|
|
- elseif rand_eyecol = 1:
|
|
|
- $pcdesc_eyecolourrandom = 'grey'
|
|
|
- elseif rand_eyecol = 2:
|
|
|
- $pcdesc_eyecolourrandom = 'silvery'
|
|
|
- end
|
|
|
- $pcdesc_eyecolour = 'grey'
|
|
|
- $pcdesc_eyecolourwordy = 'pale, silvery-grey'
|
|
|
- $pcs_eyecol = 'grey'
|
|
|
-elseif pcs_eyecol = 2:
|
|
|
- rand_eyecol = rand(0,1)
|
|
|
- if rand_eyecol = 0:
|
|
|
- $pcdesc_eyecolourrandom = 'green'
|
|
|
- elseif rand_eyecol = 1:
|
|
|
- $pcdesc_eyecolourrandom = 'emerald'
|
|
|
- end
|
|
|
- $pcdesc_eyecolour = 'green'
|
|
|
- $pcdesc_eyecolourwordy = 'sparkling green'
|
|
|
- $pcs_eyecol = 'green'
|
|
|
-elseif pcs_eyecol = 3:
|
|
|
- rand_eyecol = rand(0,1)
|
|
|
- if rand_eyecol = 0:
|
|
|
- $pcdesc_eyecolourrandom = 'blue'
|
|
|
- elseif rand_eyecol = 1:
|
|
|
- $pcdesc_eyecolourrandom = 'sapphire'
|
|
|
- end
|
|
|
- $pcdesc_eyecolour = 'blue'
|
|
|
- $pcdesc_eyecolourwordy = 'vibrant, crystal blue'
|
|
|
- $pcs_eyecol = 'blue'
|
|
|
-else
|
|
|
- $pcdesc_eyecolourrandom = 'attractive'
|
|
|
- $pcdesc_eyecolour = 'attractive'
|
|
|
- $pcdesc_eyecolourwordy = 'attractive'
|
|
|
- $pcs_eyecol = 'attractive'
|
|
|
-end
|
|
|
|
|
|
-!! extended lash functionality; pcs_lashes = n are: {2, largest natural size}, {3, with temporary false lashes on or basic 2D lash extensions}, {4, with ornate false lashes on or lavish 4D extensions}, {5, with extremely ornate, 6D-style extensions} - xerya
|
|
|
-!! If players do not have a pcs_naturallashes value, extrapolate one as best as possible from what they currently have.
|
|
|
-if pcs_naturallashes <= 0 and pcs_lashes <= 2 and retroactivenaturallashes <= 0:
|
|
|
- pcs_naturallashes = pcs_lashes
|
|
|
- retroactivenaturallashes = 1
|
|
|
-end
|
|
|
-
|
|
|
-if pcs_lashes >= 5:
|
|
|
- rand_lashes = rand(0,3)
|
|
|
- if rand_lashes = 0:
|
|
|
- $pcdesc_lashesrandom = 'long, jewel-dusted'
|
|
|
- elseif rand_lashes = 1:
|
|
|
- $pcdesc_lashesrandom = 'incredibly extravagant'
|
|
|
- elseif rand_lashes = 2:
|
|
|
- $pcdesc_lashesrandom = 'overwhelmingly indulgent'
|
|
|
- elseif rand_lashes = 3:
|
|
|
- $pcdesc_lashesrandom = 'jewel-sparkled, showgirl'
|
|
|
- end
|
|
|
- $pcdesc_lashes = 'long, jewel-dusted'
|
|
|
- $pcdesc_lasheswordy = 'incredibly extravagant, jewel-dusted'
|
|
|
- $pcs_lashes = 'with over-the-top, jewel-dusted eyelash extensions'
|
|
|
-elseif pcs_lashes = 4:
|
|
|
- rand_lashes = rand(0,3)
|
|
|
- if false_lashes >= 1:
|
|
|
+ if pcs_lashes >= 5:
|
|
|
+ rand_lashes = rand(0,3)
|
|
|
if rand_lashes = 0:
|
|
|
- $pcdesc_lashesrandom = 'mink-feathered'
|
|
|
+ $pcdesc_lashesrandom = 'long, jewel-dusted'
|
|
|
elseif rand_lashes = 1:
|
|
|
- $pcdesc_lashesrandom = 'attention-grabbing'
|
|
|
+ $pcdesc_lashesrandom = 'incredibly extravagant'
|
|
|
elseif rand_lashes = 2:
|
|
|
- $pcdesc_lashesrandom = 'intoxicatingly seductive false'
|
|
|
+ $pcdesc_lashesrandom = 'overwhelmingly indulgent'
|
|
|
elseif rand_lashes = 3:
|
|
|
- $pcdesc_lashesrandom = 'wildly flirtatious false'
|
|
|
+ $pcdesc_lashesrandom = 'jewel-sparkled, showgirl'
|
|
|
end
|
|
|
- $pcdesc_lashes = 'mink-feathered false'
|
|
|
- $pcs_lashes = 'with fabulous, mink-feathered false lashes'
|
|
|
- $pcdesc_lasheswordy = 'fabulous, mink-feathered false'
|
|
|
- else
|
|
|
+ $pcdesc_lashes = 'long, jewel-dusted'
|
|
|
+ $pcdesc_lasheswordy = 'incredibly extravagant, jewel-dusted'
|
|
|
+ $pcs_lashes = 'with over-the-top, jewel-dusted eyelash extensions'
|
|
|
+ elseif pcs_lashes = 4:
|
|
|
+ rand_lashes = rand(0,3)
|
|
|
+ if false_lashes >= 1:
|
|
|
+ if rand_lashes = 0:
|
|
|
+ $pcdesc_lashesrandom = 'mink-feathered'
|
|
|
+ elseif rand_lashes = 1:
|
|
|
+ $pcdesc_lashesrandom = 'attention-grabbing'
|
|
|
+ elseif rand_lashes = 2:
|
|
|
+ $pcdesc_lashesrandom = 'intoxicatingly seductive false'
|
|
|
+ elseif rand_lashes = 3:
|
|
|
+ $pcdesc_lashesrandom = 'wildly flirtatious false'
|
|
|
+ end
|
|
|
+ $pcdesc_lashes = 'mink-feathered false'
|
|
|
+ $pcs_lashes = 'with fabulous, mink-feathered false lashes'
|
|
|
+ $pcdesc_lasheswordy = 'fabulous, mink-feathered false'
|
|
|
+ else
|
|
|
+ if rand_lashes = 0:
|
|
|
+ $pcdesc_lashesrandom = 'amazingly lengthy'
|
|
|
+ elseif rand_lashes = 1:
|
|
|
+ $pcdesc_lashesrandom = 'show-stealing'
|
|
|
+ elseif rand_lashes = 2:
|
|
|
+ $pcdesc_lashesrandom = 'incredibly lush'
|
|
|
+ elseif rand_lashes = 3:
|
|
|
+ $pcdesc_lashesrandom = 'stunningly dark and full'
|
|
|
+ end
|
|
|
+ $pcdesc_lashes = 'show-stealing'
|
|
|
+ $pcs_lashes = 'with stunningly dark and full lash extensions'
|
|
|
+ $pcdesc_lasheswordy = 'stunningly dark and full, show-stealing'
|
|
|
+ end
|
|
|
+ elseif pcs_lashes = 3:
|
|
|
+ rand_lashes = rand(0,3)
|
|
|
if rand_lashes = 0:
|
|
|
- $pcdesc_lashesrandom = 'amazingly lengthy'
|
|
|
+ $pcdesc_lashesrandom = 'lavish'
|
|
|
elseif rand_lashes = 1:
|
|
|
- $pcdesc_lashesrandom = 'show-stealing'
|
|
|
+ $pcdesc_lashesrandom = 'lush, dark'
|
|
|
elseif rand_lashes = 2:
|
|
|
- $pcdesc_lashesrandom = 'incredibly lush'
|
|
|
+ $pcdesc_lashesrandom = 'seductively-curled'
|
|
|
elseif rand_lashes = 3:
|
|
|
- $pcdesc_lashesrandom = 'stunningly dark and full'
|
|
|
+ $pcdesc_lashesrandom = 'flirtatiously lengthy'
|
|
|
end
|
|
|
- $pcdesc_lashes = 'show-stealing'
|
|
|
- $pcs_lashes = 'with stunningly dark and full lash extensions'
|
|
|
- $pcdesc_lasheswordy = 'stunningly dark and full, show-stealing'
|
|
|
- end
|
|
|
-elseif pcs_lashes = 3:
|
|
|
- rand_lashes = rand(0,3)
|
|
|
- if rand_lashes = 0:
|
|
|
- $pcdesc_lashesrandom = 'lavish'
|
|
|
- elseif rand_lashes = 1:
|
|
|
- $pcdesc_lashesrandom = 'lush, dark'
|
|
|
- elseif rand_lashes = 2:
|
|
|
- $pcdesc_lashesrandom = 'seductively-curled'
|
|
|
- elseif rand_lashes = 3:
|
|
|
- $pcdesc_lashesrandom = 'flirtatiously lengthy'
|
|
|
- end
|
|
|
- $pcdesc_lashes = 'lavish'
|
|
|
- if false_lashes >= 1:
|
|
|
- $pcs_lashes = 'with lavish, fluttery false lashes'
|
|
|
- $pcdesc_lasheswordy = 'lavish, attention-grabbing false'
|
|
|
- else
|
|
|
- $pcs_lashes = 'with lavishly seductive lash extensions'
|
|
|
- $pcdesc_lasheswordy = 'lavish, seductively dark'
|
|
|
- end
|
|
|
-elseif pcs_lashes = 2:
|
|
|
- rand_lashes = rand(0,3)
|
|
|
- if rand_lashes = 0:
|
|
|
- $pcdesc_lashesrandom = 'lengthy'
|
|
|
- elseif rand_lashes = 1:
|
|
|
- $pcdesc_lashesrandom = 'long'
|
|
|
- elseif rand_lashes = 2:
|
|
|
- $pcdesc_lashesrandom = 'fluttery'
|
|
|
- elseif rand_lashes = 3:
|
|
|
- $pcdesc_lashesrandom = 'seductive'
|
|
|
- end
|
|
|
- $pcdesc_lashes = 'long'
|
|
|
- $pcdesc_lasheswordy = 'long, fluttery'
|
|
|
- $pcs_lashes = 'with long eyelashes'
|
|
|
-elseif pcs_lashes = 1:
|
|
|
- $pcdesc_lashesrandom = 'average'
|
|
|
- $pcdesc_lashes = 'average'
|
|
|
- $pcdesc_lasheswordy = 'average'
|
|
|
- $pcs_lashes = 'with average eyelashes'
|
|
|
-else
|
|
|
- pcs_lashes = 0
|
|
|
- rand_lashes = rand(0,2)
|
|
|
- if rand_lashes = 0:
|
|
|
- $pcdesc_lashesrandom = 'short'
|
|
|
- elseif rand_lashes = 1:
|
|
|
- $pcdesc_lashesrandom = 'scarce'
|
|
|
- elseif rand_lashes = 2:
|
|
|
- $pcdesc_lashesrandom = 'faint'
|
|
|
+ $pcdesc_lashes = 'lavish'
|
|
|
+ if false_lashes >= 1:
|
|
|
+ $pcs_lashes = 'with lavish, fluttery false lashes'
|
|
|
+ $pcdesc_lasheswordy = 'lavish, attention-grabbing false'
|
|
|
+ else
|
|
|
+ $pcs_lashes = 'with lavishly seductive lash extensions'
|
|
|
+ $pcdesc_lasheswordy = 'lavish, seductively dark'
|
|
|
+ end
|
|
|
+ elseif pcs_lashes = 2:
|
|
|
+ rand_lashes = rand(0,3)
|
|
|
+ if rand_lashes = 0:
|
|
|
+ $pcdesc_lashesrandom = 'lengthy'
|
|
|
+ elseif rand_lashes = 1:
|
|
|
+ $pcdesc_lashesrandom = 'long'
|
|
|
+ elseif rand_lashes = 2:
|
|
|
+ $pcdesc_lashesrandom = 'fluttery'
|
|
|
+ elseif rand_lashes = 3:
|
|
|
+ $pcdesc_lashesrandom = 'seductive'
|
|
|
+ end
|
|
|
+ $pcdesc_lashes = 'long'
|
|
|
+ $pcdesc_lasheswordy = 'long, fluttery'
|
|
|
+ $pcs_lashes = 'with long eyelashes'
|
|
|
+ elseif pcs_lashes = 1:
|
|
|
+ $pcdesc_lashesrandom = 'average'
|
|
|
+ $pcdesc_lashes = 'average'
|
|
|
+ $pcdesc_lasheswordy = 'average'
|
|
|
+ $pcs_lashes = 'with average eyelashes'
|
|
|
+ else
|
|
|
+ pcs_lashes = 0
|
|
|
+ rand_lashes = rand(0,2)
|
|
|
+ if rand_lashes = 0:
|
|
|
+ $pcdesc_lashesrandom = 'short'
|
|
|
+ elseif rand_lashes = 1:
|
|
|
+ $pcdesc_lashesrandom = 'scarce'
|
|
|
+ elseif rand_lashes = 2:
|
|
|
+ $pcdesc_lashesrandom = 'faint'
|
|
|
+ end
|
|
|
+ $pcdesc_lashes = 'short'
|
|
|
+ $pcdesc_lasheswordy = 'short, barely-noticeable'
|
|
|
+ $pcs_lashes = 'with short eyelashes'
|
|
|
end
|
|
|
- $pcdesc_lashes = 'short'
|
|
|
- $pcdesc_lasheswordy = 'short, barely-noticeable'
|
|
|
- $pcs_lashes = 'with short eyelashes'
|
|
|
-end
|
|
|
|
|
|
|
|
|
-!!!CV edition: from glassvnesh = 5 to glassvnesh = 0
|
|
|
-!! I changed glassvnesh back to 5 for wearing basic glasses. Boys do not make passes at girls who wear glasses.
|
|
|
-!! Most of these descriptive variables are for describing cum, they would not be reliable for much else. They are used in the context of looking through something.
|
|
|
-if glass >= 2:
|
|
|
- rand_vision = rand(0,1)
|
|
|
- if rand_vision = 0:
|
|
|
- $pcdesc_visionrandom = 'glasses'
|
|
|
- elseif rand_vision = 1:
|
|
|
- $pcdesc_visionrandom = 'lenses'
|
|
|
- end
|
|
|
- $pcdesc_vision = 'glasses'
|
|
|
- $pcdesc_visionwordy = 'chic, stylish glasses'
|
|
|
- $glass = ' You wear glasses.'
|
|
|
- glassvnesh = 0
|
|
|
-elseif glass = 1:
|
|
|
- rand_vision = rand(0,3)
|
|
|
- if rand_vision = 0:
|
|
|
- $pcdesc_visionrandom = 'glasses'
|
|
|
- elseif rand_vision = 1:
|
|
|
- $pcdesc_visionrandom = 'lenses'
|
|
|
- elseif rand_vision = 2:
|
|
|
- $pcdesc_visionrandom = 'dorky glasses'
|
|
|
- elseif rand_vision = 3:
|
|
|
- $pcdesc_visionrandom = 'geeky lenses'
|
|
|
- end
|
|
|
- $pcdesc_vision = 'nerdy glasses'
|
|
|
- $pcdesc_visionwordy = 'cheap, utilitarian glasses'
|
|
|
- $glass = ' You wear silly glasses in a cheap frame.'
|
|
|
- glassvnesh = 10
|
|
|
-else
|
|
|
- glass = 0
|
|
|
- rand_vision = rand(0,1)
|
|
|
- if rand_vision = 0:
|
|
|
- $pcdesc_visionrandom = 'lashes'
|
|
|
- elseif rand_vision = 1:
|
|
|
- $pcdesc_visionrandom = 'eyelashes'
|
|
|
+ !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
|
|
|
+ !! I changed glassvnesh back to 5 for wearing basic glasses. Boys do not make passes at girls who wear glasses.
|
|
|
+ !! Most of these descriptive variables are for describing cum, they would not be reliable for much else. They are used in the context of looking through something.
|
|
|
+ if glass >= 2:
|
|
|
+ rand_vision = rand(0,1)
|
|
|
+ if rand_vision = 0:
|
|
|
+ $pcdesc_visionrandom = 'glasses'
|
|
|
+ elseif rand_vision = 1:
|
|
|
+ $pcdesc_visionrandom = 'lenses'
|
|
|
+ end
|
|
|
+ $pcdesc_vision = 'glasses'
|
|
|
+ $pcdesc_visionwordy = 'chic, stylish glasses'
|
|
|
+ $glass = ' You wear glasses.'
|
|
|
+ glassvnesh = 0
|
|
|
+ elseif glass = 1:
|
|
|
+ rand_vision = rand(0,3)
|
|
|
+ if rand_vision = 0:
|
|
|
+ $pcdesc_visionrandom = 'glasses'
|
|
|
+ elseif rand_vision = 1:
|
|
|
+ $pcdesc_visionrandom = 'lenses'
|
|
|
+ elseif rand_vision = 2:
|
|
|
+ $pcdesc_visionrandom = 'dorky glasses'
|
|
|
+ elseif rand_vision = 3:
|
|
|
+ $pcdesc_visionrandom = 'geeky lenses'
|
|
|
+ end
|
|
|
+ $pcdesc_vision = 'nerdy glasses'
|
|
|
+ $pcdesc_visionwordy = 'cheap, utilitarian glasses'
|
|
|
+ $glass = ' You wear silly glasses in a cheap frame.'
|
|
|
+ glassvnesh = 10
|
|
|
+ else
|
|
|
+ glass = 0
|
|
|
+ rand_vision = rand(0,1)
|
|
|
+ if rand_vision = 0:
|
|
|
+ $pcdesc_visionrandom = 'lashes'
|
|
|
+ elseif rand_vision = 1:
|
|
|
+ $pcdesc_visionrandom = 'eyelashes'
|
|
|
+ end
|
|
|
+ $pcdesc_vision = 'lashes'
|
|
|
+ $pcdesc_visionwordy = '<<$pcdesc_lasheswordy>> lashes'
|
|
|
+ $glass = ''
|
|
|
+ glassvnesh = 0
|
|
|
+ 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:
|
|
|
+ $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,1)
|
|
|
+ if rand_eyesize = 0:
|
|
|
+ $pcdesc_eyesizerandom = 'medium'
|
|
|
+ elseif rand_eyesize = 1:
|
|
|
+ $pcdesc_eyesizerandom = 'average-sized'
|
|
|
+ end
|
|
|
+ $pcdesc_eyesize = 'medium-sized'
|
|
|
+ $pcdesc_eyesizeinsertive = ''
|
|
|
+ $pcdesc_eyesizewordy = 'medium-sized'
|
|
|
+ $glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
|
|
|
+ elseif pcs_eyesize = 2:
|
|
|
+ rand_eyesize = rand(0,3)
|
|
|
+ if rand_eyesize = 0:
|
|
|
+ $pcdesc_eyesizerandom = 'big'
|
|
|
+ elseif rand_eyesize = 1:
|
|
|
+ $pcdesc_eyesizerandom = 'expressive'
|
|
|
+ elseif rand_eyesize = 2:
|
|
|
+ $pcdesc_eyesizerandom = 'wide'
|
|
|
+ elseif rand_eyesize = 3:
|
|
|
+ $pcdesc_eyesizerandom = 'large'
|
|
|
+ end
|
|
|
+ $pcdesc_eyesize = 'large'
|
|
|
+ $pcdesc_eyesizeinsertive = ' large,'
|
|
|
+ $pcdesc_eyesizewordy = 'large, expressive'
|
|
|
+ $glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
|
|
|
+ else
|
|
|
+ pcs_eyesize = 3
|
|
|
+ rand_eyesize = rand(0,3)
|
|
|
+ if rand_eyesize = 0:
|
|
|
+ $pcdesc_eyesizerandom = 'wide'
|
|
|
+ elseif rand_eyesize = 1:
|
|
|
+ $pcdesc_eyesizerandom = 'huge'
|
|
|
+ elseif rand_eyesize = 2:
|
|
|
+ $pcdesc_eyesizerandom = 'doll-like'
|
|
|
+ elseif rand_eyesize = 3:
|
|
|
+ $pcdesc_eyesizerandom = 'incredibly expressive'
|
|
|
+ end
|
|
|
+ $pcdesc_eyesize = 'huge'
|
|
|
+ $pcdesc_eyesizeinsertive = ' big, doll-like'
|
|
|
+ $pcdesc_eyesizewordy = 'huge'
|
|
|
+ $glaza = 'You have huge <<$pcs_eyecol>> eyes that almost look like they''re out of an anime, <<$pcs_lashes>>.<<$glass>>'
|
|
|
+ end
|
|
|
+
|
|
|
+ mopkoef = pcs_makupskl / 5
|
|
|
+ if pcs_makeup = 0:
|
|
|
+ rand_makeup = rand(0,2)
|
|
|
+ if rand_makeup = 0:
|
|
|
+ $pcdesc_makeuprandom = 'makeup-ruined'
|
|
|
+ elseif rand_makeup = 1:
|
|
|
+ $pcdesc_makeuprandom = 'makeup-smeared'
|
|
|
+ elseif rand_makeup = 2:
|
|
|
+ $pcdesc_makeuprandom = 'makeup-trashed'
|
|
|
+ end
|
|
|
+ $pcdesc_makeup = 'makeup-smeared'
|
|
|
+ $pcdesc_makeupwordy = 'clownishly makeup-smeared'
|
|
|
+ mopkoef = -5
|
|
|
+ $pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
|
|
|
+ $pcs_makeup_msg = 'Your makeup is smeared all over your face.'
|
|
|
+ $pcs_makeup_tooltip = 'Your makeup is ruined.'
|
|
|
+ elseif pcs_makeup = 1:
|
|
|
+ rand_makeup = rand(0,1)
|
|
|
+ if rand_makeup = 0:
|
|
|
+ $pcdesc_makeuprandom = 'natural'
|
|
|
+ elseif rand_makeup = 1:
|
|
|
+ $pcdesc_makeuprandom = 'bare'
|
|
|
+ end
|
|
|
+ $pcdesc_makeup = 'natural'
|
|
|
+ $pcdesc_makeupwordy = 'bare, natural'
|
|
|
+ mopkoef = 0
|
|
|
+ $pcs_makeup = 'You''re not wearing any kind of makeup'
|
|
|
+ $pcs_makeup_msg = 'You''re not wearing any kind of makeup.'
|
|
|
+ $pcs_makeup_tooltip = 'You''re not wearing makeup.'
|
|
|
+ elseif pcs_makeup = 2:
|
|
|
+ rand_makeup = rand(0,1)
|
|
|
+ if rand_makeup = 0:
|
|
|
+ $pcdesc_makeuprandom = 'lightly-accented'
|
|
|
+ elseif rand_makeup = 1:
|
|
|
+ $pcdesc_makeuprandom = 'subtly-highlighted'
|
|
|
+ end
|
|
|
+ $pcdesc_makeup = 'subtly-accented'
|
|
|
+ $pcdesc_makeupwordy = 'almost natural, subtly-accented'
|
|
|
+ $pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
|
|
|
+ $pcs_makeup_msg = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty.'
|
|
|
+ $pcs_makeup_tooltip = 'Your makeup is light and subtle.'
|
|
|
+ elseif pcs_makeup = 3:
|
|
|
+ rand_makeup = rand(0,1)
|
|
|
+ if rand_makeup = 0:
|
|
|
+ $pcdesc_makeuprandom = 'colourfully done-up'
|
|
|
+ elseif rand_makeup = 1:
|
|
|
+ $pcdesc_makeuprandom = 'vibrantly done-up'
|
|
|
+ end
|
|
|
+ $pcdesc_makeup = 'vibrantly done-up'
|
|
|
+ $pcdesc_makeupwordy = 'colourful, tastefully done-up'
|
|
|
+ $pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
|
|
|
+ $pcs_makeup_msg = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features.'
|
|
|
+ $pcs_makeup_tooltip = 'Your makeup has some mildly vibrant tones.'
|
|
|
+ elseif pcs_makeup = 4:
|
|
|
+ rand_makeup = rand(0,3)
|
|
|
+ if rand_makeup = 0:
|
|
|
+ $pcdesc_makeuprandom = 'painted-on'
|
|
|
+ elseif rand_makeup = 1:
|
|
|
+ $pcdesc_makeuprandom = 'makeup-caked'
|
|
|
+ elseif rand_makeup = 2:
|
|
|
+ $pcdesc_makeuprandom = 'dolled-up'
|
|
|
+ elseif rand_makeup = 3:
|
|
|
+ $pcdesc_makeuprandom = 'sultry, dramatically done-up'
|
|
|
+ end
|
|
|
+ $pcdesc_makeup = 'dolled-up'
|
|
|
+ $pcdesc_makeupwordy = 'heavily dolled-up and painted'
|
|
|
+ $pcs_makeup = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'
|
|
|
+ $pcs_makeup_msg = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips.'
|
|
|
+ $pcs_makeup_tooltip = 'Your makeup is thick enough to cover most imperfections.'
|
|
|
+ elseif pcs_makeup = 5:
|
|
|
+ rand_makeup = rand(0,3)
|
|
|
+ if rand_makeup = 0:
|
|
|
+ $pcdesc_makeuprandom = 'painted-on'
|
|
|
+ elseif rand_makeup = 1:
|
|
|
+ $pcdesc_makeuprandom = 'makeup-caked'
|
|
|
+ elseif rand_makeup = 2:
|
|
|
+ $pcdesc_makeuprandom = 'dolled-up'
|
|
|
+ elseif rand_makeup = 3:
|
|
|
+ $pcdesc_makeuprandom = 'sultry, dramatically done-up'
|
|
|
+ end
|
|
|
+ $pcdesc_makeup = 'dolled-up'
|
|
|
+ $pcdesc_makeupwordy = 'heavily dolled-up and painted'
|
|
|
+ $pcs_makeup = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair'
|
|
|
+ $pcs_makeup_msg = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair.'
|
|
|
+ $pcs_makeup_tooltip = 'Your makeup is professional grade.'
|
|
|
+ mopkoef = 30
|
|
|
+ end
|
|
|
+
|
|
|
+ if pcs_leghair <= 0:
|
|
|
+ rand_legs = rand(0,2)
|
|
|
+ if rand_legs = 0:
|
|
|
+ $pcdesc_legsrandom = 'smooth'
|
|
|
+ elseif rand_legs = 1:
|
|
|
+ $pcdesc_legsrandom = 'silky'
|
|
|
+ elseif rand_legs = 2:
|
|
|
+ $pcdesc_legsrandom = 'soft'
|
|
|
+ end
|
|
|
+ $pcdesc_legs = 'smooth'
|
|
|
+ $pcdesc_legswordy = 'soft and silky-smooth'
|
|
|
+ legkoef = 0
|
|
|
+ $pcs_leghair = 'You have smooth legs.'
|
|
|
+ elseif pcs_leghair <= 3:
|
|
|
+ rand_legs = rand(0,1)
|
|
|
+ if rand_legs = 0:
|
|
|
+ $pcdesc_legsrandom = 'slightly scratchy'
|
|
|
+ elseif rand_legs = 1:
|
|
|
+ $pcdesc_legsrandom = 'faintly stubbly'
|
|
|
+ end
|
|
|
+ $pcdesc_legs = 'faintly stubbly'
|
|
|
+ $pcdesc_legswordy = 'slightly rough, invisibly-stubbled'
|
|
|
+ legkoef = 3
|
|
|
+ $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
|
|
|
+ elseif pcs_leghair <= 6:
|
|
|
+ rand_legs = rand(0,1)
|
|
|
+ if rand_legs = 0:
|
|
|
+ $pcdesc_legsrandom = 'somewhat hairy'
|
|
|
+ elseif rand_legs = 1:
|
|
|
+ $pcdesc_legsrandom = 'lightly-furred'
|
|
|
+ end
|
|
|
+ $pcdesc_legs = 'slightly hairy'
|
|
|
+ $pcdesc_legswordy = 'lightly-furred, soft-haired'
|
|
|
+ legkoef = 6
|
|
|
+ $pcs_leghair = 'You have light and just barely visible hair on your legs.'
|
|
|
+ else
|
|
|
+ rand_legs = rand(0,2)
|
|
|
+ if rand_legs = 0:
|
|
|
+ $pcdesc_legsrandom = 'hairy'
|
|
|
+ elseif rand_legs = 1:
|
|
|
+ $pcdesc_legsrandom = 'unshaven'
|
|
|
+ elseif rand_legs = 2:
|
|
|
+ $pcdesc_legsrandom = 'ungroomed'
|
|
|
+ end
|
|
|
+ $pcdesc_legs = 'hairy'
|
|
|
+ $pcdesc_legswordy = 'hairy, unshaven'
|
|
|
+ legkoef = 9
|
|
|
+ $pcs_leghair = 'Your legs are hairy.'
|
|
|
+ end
|
|
|
+
|
|
|
+ if clit_size < 20:
|
|
|
+ rand_clit = rand(0,1)
|
|
|
+ if rand_clit = 0:
|
|
|
+ $pcdesc_clitrandom = 'small'
|
|
|
+ elseif rand_clit = 1:
|
|
|
+ $pcdesc_clitrandom = 'tiny'
|
|
|
+ end
|
|
|
+ $pcdesc_clit = 'small'
|
|
|
+ $pcdesc_clitwordy = 'small, oft-hidden'
|
|
|
+ $clitsize = 'You consider your <a href="exec:view''images/pc/body/clit/clit1.jpg''">clitoris</a> to be of an average size.'
|
|
|
+ elseif clit_size >= 20 and clit_size < 40:
|
|
|
+ rand_clit = rand(0,2)
|
|
|
+ if rand_clit = 0:
|
|
|
+ $pcdesc_clitrandom = 'large'
|
|
|
+ elseif rand_clit = 1:
|
|
|
+ $pcdesc_clitrandom = 'big'
|
|
|
+ elseif rand_clit = 2:
|
|
|
+ $pcdesc_clitrandom = 'engorged'
|
|
|
+ end
|
|
|
+ $pcdesc_clit = 'big'
|
|
|
+ $pcdesc_clitwordy = 'big, easily-found'
|
|
|
+ $clitsize = 'You feel your <a href="exec:view''images/pc/body/clit/clit2.jpg''">clitoris</a> is somewhat on the large side.'
|
|
|
+ elseif clit_size >= 40 and clit_size < 60:
|
|
|
+ rand_clit = rand(0,2)
|
|
|
+ if rand_clit = 0:
|
|
|
+ $pcdesc_clitrandom = 'meaty'
|
|
|
+ elseif rand_clit = 1:
|
|
|
+ $pcdesc_clitrandom = 'thick'
|
|
|
+ elseif rand_clit = 2:
|
|
|
+ $pcdesc_clitrandom = 'swollen'
|
|
|
+ end
|
|
|
+ $pcdesc_clit = 'meaty'
|
|
|
+ $pcdesc_clitwordy = 'thick, meaty'
|
|
|
+ $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit3.jpg''">clit</a> is quite large.'
|
|
|
+ elseif clit_size >= 60 and clit_size < 80:
|
|
|
+ rand_clit = rand(0,1)
|
|
|
+ if rand_clit = 0:
|
|
|
+ $pcdesc_clitrandom = 'oversized'
|
|
|
+ elseif rand_clit = 1:
|
|
|
+ $pcdesc_clitrandom = 'huge'
|
|
|
+ end
|
|
|
+ $pcdesc_clit = 'oversized'
|
|
|
+ $pcdesc_clitwordy = 'big, practically phallic'
|
|
|
+ $clitsize = 'You have a big <a href="exec:view''images/pc/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
|
|
|
+ else
|
|
|
+ !! If greater or equal to 80
|
|
|
+ rand_clit = rand(0,2)
|
|
|
+ if rand_clit = 0:
|
|
|
+ $pcdesc_clitrandom = 'huge'
|
|
|
+ elseif rand_clit = 1:
|
|
|
+ $pcdesc_clitrandom = 'cock-like'
|
|
|
+ elseif rand_clit = 2:
|
|
|
+ $pcdesc_clitrandom = 'massive'
|
|
|
+ end
|
|
|
+ $pcdesc_clit = 'phallic'
|
|
|
+ $pcdesc_clitwordy = 'enormous, phallic'
|
|
|
+ $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'
|
|
|
end
|
|
|
- $pcdesc_vision = 'lashes'
|
|
|
- $pcdesc_visionwordy = '<<$pcdesc_lasheswordy>> lashes'
|
|
|
- $glass = ''
|
|
|
- glassvnesh = 0
|
|
|
-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:
|
|
|
- $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,1)
|
|
|
- if rand_eyesize = 0:
|
|
|
- $pcdesc_eyesizerandom = 'medium'
|
|
|
- elseif rand_eyesize = 1:
|
|
|
- $pcdesc_eyesizerandom = 'average-sized'
|
|
|
- end
|
|
|
- $pcdesc_eyesize = 'medium-sized'
|
|
|
- $pcdesc_eyesizeinsertive = ''
|
|
|
- $pcdesc_eyesizewordy = 'medium-sized'
|
|
|
- $glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
|
|
|
-elseif pcs_eyesize = 2:
|
|
|
- rand_eyesize = rand(0,3)
|
|
|
- if rand_eyesize = 0:
|
|
|
- $pcdesc_eyesizerandom = 'big'
|
|
|
- elseif rand_eyesize = 1:
|
|
|
- $pcdesc_eyesizerandom = 'expressive'
|
|
|
- elseif rand_eyesize = 2:
|
|
|
- $pcdesc_eyesizerandom = 'wide'
|
|
|
- elseif rand_eyesize = 3:
|
|
|
- $pcdesc_eyesizerandom = 'large'
|
|
|
- end
|
|
|
- $pcdesc_eyesize = 'large'
|
|
|
- $pcdesc_eyesizeinsertive = ' large,'
|
|
|
- $pcdesc_eyesizewordy = 'large, expressive'
|
|
|
- $glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
|
|
|
-else
|
|
|
- pcs_eyesize = 3
|
|
|
- rand_eyesize = rand(0,3)
|
|
|
- if rand_eyesize = 0:
|
|
|
- $pcdesc_eyesizerandom = 'wide'
|
|
|
- elseif rand_eyesize = 1:
|
|
|
- $pcdesc_eyesizerandom = 'huge'
|
|
|
- elseif rand_eyesize = 2:
|
|
|
- $pcdesc_eyesizerandom = 'doll-like'
|
|
|
- elseif rand_eyesize = 3:
|
|
|
- $pcdesc_eyesizerandom = 'incredibly expressive'
|
|
|
+ if lashair = 1:
|
|
|
+ rand_pubes = rand(0,3)
|
|
|
+ if rand_pubes = 0:
|
|
|
+ $pcdesc_pubesrandom = 'silky-smooth'
|
|
|
+ elseif rand_pubes = 1:
|
|
|
+ $pcdesc_pubesrandom = 'hairless'
|
|
|
+ elseif rand_pubes = 2:
|
|
|
+ $pcdesc_pubesrandom = 'smooth'
|
|
|
+ elseif rand_pubes = 3:
|
|
|
+ $pcdesc_pubesrandom = 'bald'
|
|
|
+ end
|
|
|
+ $pcdesc_pubes = 'hairless'
|
|
|
+ $pcdesc_pubeswordy = 'eternally silky-smooth'
|
|
|
+ $pcs_pubes = 'You have a smooth, <a href="exec:view''<<FUNC(''$pube_image'')>>''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ end
|
|
|
+
|
|
|
+ if lashair = 0:
|
|
|
+ if pcs_pubes <= 3:
|
|
|
+ lobkoef = 3
|
|
|
+ $pcs_pubes = 'You have a smoothly <a href="exec:view''<<FUNC(''$pube_image'')>>''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ rand_pubes = rand(0,3)
|
|
|
+ if rand_pubes = 0:
|
|
|
+ $pcdesc_pubesrandom = 'silky'
|
|
|
+ elseif rand_pubes = 1:
|
|
|
+ $pcdesc_pubesrandom = 'hairless'
|
|
|
+ elseif rand_pubes = 2:
|
|
|
+ $pcdesc_pubesrandom = 'smooth-shaven'
|
|
|
+ elseif rand_pubes = 3:
|
|
|
+ $pcdesc_pubesrandom = 'freshly-shaven'
|
|
|
+ end
|
|
|
+ $pcdesc_pubes = 'smooth-shaven'
|
|
|
+ $pcdesc_pubeswordy = 'silky, freshly-shaven'
|
|
|
+ elseif pcs_pubes <= 10:
|
|
|
+ lobkoef = 0
|
|
|
+ $pcs_pubes = 'You have stubble growing around your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ rand_pubes = rand(0,2)
|
|
|
+ if rand_pubes = 0:
|
|
|
+ $pcdesc_pubesrandom = 'stubbly'
|
|
|
+ elseif rand_pubes = 1:
|
|
|
+ $pcdesc_pubesrandom = 'scratchy'
|
|
|
+ elseif rand_pubes = 2:
|
|
|
+ $pcdesc_pubesrandom = 'roughly-stubbled'
|
|
|
+ end
|
|
|
+ $pcdesc_pubes = 'stubbly'
|
|
|
+ $pcdesc_pubeswordy = 'scratchy, roughly-stubbled'
|
|
|
+ elseif pcs_pubes <= 15:
|
|
|
+ lobkoef = 0
|
|
|
+ $pcs_pubes = 'You have a tidy patch of hair growing above your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ rand_pubes = rand(0,2)
|
|
|
+ if rand_pubes = 0:
|
|
|
+ $pcdesc_pubesrandom = 'almost bare'
|
|
|
+ elseif rand_pubes = 1:
|
|
|
+ $pcdesc_pubesrandom = 'barely-haired'
|
|
|
+ elseif rand_pubes = 2:
|
|
|
+ $pcdesc_pubesrandom = 'well-kept'
|
|
|
+ end
|
|
|
+ $pcdesc_pubes = 'stubbly'
|
|
|
+ $pcdesc_pubeswordy = 'scratchy, roughly-stubbled'
|
|
|
+ elseif pcs_pubes <= 25:
|
|
|
+ lobkoef = 0
|
|
|
+ if pubestyle = 9:
|
|
|
+ $pcs_pubes = 'You have neatly trimmed section of hair around your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ elseif pubestyle = 12:
|
|
|
+ $pcs_pubes = 'You have cute little patch of bush at the top of your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ elseif pubestyle = 13:
|
|
|
+ $pcs_pubes = 'You have tidy strip of bush covering your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ elseif pubestyle = 14:
|
|
|
+ $pcs_pubes = 'You have neatly trimmed rectangle of hair just above your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ else
|
|
|
+ $pcs_pubes = 'You have a bushy but well-maintained mat of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ end
|
|
|
+ rand_pubes = rand(0,3)
|
|
|
+ if rand_pubes = 0:
|
|
|
+ $pcdesc_pubesrandom = 'wispy-haired'
|
|
|
+ elseif rand_pubes = 1:
|
|
|
+ $pcdesc_pubesrandom = 'lightly-furred'
|
|
|
+ elseif rand_pubes = 2:
|
|
|
+ $pcdesc_pubesrandom = 'trimmed'
|
|
|
+ elseif rand_pubes = 3:
|
|
|
+ $pcdesc_pubesrandom = 'well-maintained'
|
|
|
+ end
|
|
|
+ $pcdesc_pubes = 'neatly-trimmed'
|
|
|
+ $pcdesc_pubeswordy = 'trimmed, well-kept'
|
|
|
+ elseif pcs_pubes <= 30:
|
|
|
+ lobkoef = 0
|
|
|
+ $pcs_pubes = 'You have a bushy but well-maintained mat of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ rand_pubes = rand(0,2)
|
|
|
+ if rand_pubes = 0:
|
|
|
+ $pcdesc_pubesrandom = 'furred'
|
|
|
+ elseif rand_pubes = 1:
|
|
|
+ $pcdesc_pubesrandom = 'bushy'
|
|
|
+ elseif rand_pubes = 2:
|
|
|
+ $pcdesc_pubesrandom = 'partially-maintained'
|
|
|
+ end
|
|
|
+ $pcdesc_pubes = 'bushy'
|
|
|
+ $pcdesc_pubeswordy = 'bushy, thick'
|
|
|
+ elseif pcs_pubes >= 40:
|
|
|
+ lobkoef = 0
|
|
|
+ $pcs_pubes = 'You have a wild and unkempt jungle of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ rand_pubes = rand(0,2)
|
|
|
+ if rand_pubes = 0:
|
|
|
+ $pcdesc_pubesrandom = 'thickly-furred'
|
|
|
+ elseif rand_pubes = 1:
|
|
|
+ $pcdesc_pubesrandom = 'very hairy'
|
|
|
+ elseif rand_pubes = 2:
|
|
|
+ $pcdesc_pubesrandom = 'ill-maintained'
|
|
|
+ end
|
|
|
+ $pcdesc_pubes = 'hairy'
|
|
|
+ $pcdesc_pubeswordy = 'hairy, wild-maned'
|
|
|
+ end
|
|
|
end
|
|
|
- $pcdesc_eyesize = 'huge'
|
|
|
- $pcdesc_eyesizeinsertive = ' big, doll-like'
|
|
|
- $pcdesc_eyesizewordy = 'huge'
|
|
|
- $glaza = 'You have huge <<$pcs_eyecol>> eyes that almost look like they''re out of an anime, <<$pcs_lashes>>.<<$glass>>'
|
|
|
-end
|
|
|
|
|
|
-mopkoef = pcs_makupskl / 5
|
|
|
-if pcs_makeup = 0:
|
|
|
- rand_makeup = rand(0,2)
|
|
|
- if rand_makeup = 0:
|
|
|
- $pcdesc_makeuprandom = 'makeup-ruined'
|
|
|
- elseif rand_makeup = 1:
|
|
|
- $pcdesc_makeuprandom = 'makeup-smeared'
|
|
|
- elseif rand_makeup = 2:
|
|
|
- $pcdesc_makeuprandom = 'makeup-trashed'
|
|
|
- end
|
|
|
- $pcdesc_makeup = 'makeup-smeared'
|
|
|
- $pcdesc_makeupwordy = 'clownishly makeup-smeared'
|
|
|
- mopkoef = -5
|
|
|
- $pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
|
|
|
- $pcs_makeup_msg = 'Your makeup is smeared all over your face.'
|
|
|
- $pcs_makeup_tooltip = 'Your makeup is ruined.'
|
|
|
-elseif pcs_makeup = 1:
|
|
|
- rand_makeup = rand(0,1)
|
|
|
- if rand_makeup = 0:
|
|
|
- $pcdesc_makeuprandom = 'natural'
|
|
|
- elseif rand_makeup = 1:
|
|
|
- $pcdesc_makeuprandom = 'bare'
|
|
|
- end
|
|
|
- $pcdesc_makeup = 'natural'
|
|
|
- $pcdesc_makeupwordy = 'bare, natural'
|
|
|
- mopkoef = 0
|
|
|
- $pcs_makeup = 'You''re not wearing any kind of makeup'
|
|
|
- $pcs_makeup_msg = 'You''re not wearing any kind of makeup.'
|
|
|
- $pcs_makeup_tooltip = 'You''re not wearing makeup.'
|
|
|
-elseif pcs_makeup = 2:
|
|
|
- rand_makeup = rand(0,1)
|
|
|
- if rand_makeup = 0:
|
|
|
- $pcdesc_makeuprandom = 'lightly-accented'
|
|
|
- elseif rand_makeup = 1:
|
|
|
- $pcdesc_makeuprandom = 'subtly-highlighted'
|
|
|
- end
|
|
|
- $pcdesc_makeup = 'subtly-accented'
|
|
|
- $pcdesc_makeupwordy = 'almost natural, subtly-accented'
|
|
|
- $pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
|
|
|
- $pcs_makeup_msg = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty.'
|
|
|
- $pcs_makeup_tooltip = 'Your makeup is light and subtle.'
|
|
|
-elseif pcs_makeup = 3:
|
|
|
- rand_makeup = rand(0,1)
|
|
|
- if rand_makeup = 0:
|
|
|
- $pcdesc_makeuprandom = 'colourfully done-up'
|
|
|
- elseif rand_makeup = 1:
|
|
|
- $pcdesc_makeuprandom = 'vibrantly done-up'
|
|
|
- end
|
|
|
- $pcdesc_makeup = 'vibrantly done-up'
|
|
|
- $pcdesc_makeupwordy = 'colourful, tastefully done-up'
|
|
|
- $pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
|
|
|
- $pcs_makeup_msg = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features.'
|
|
|
- $pcs_makeup_tooltip = 'Your makeup has some mildly vibrant tones.'
|
|
|
-elseif pcs_makeup = 4:
|
|
|
- rand_makeup = rand(0,3)
|
|
|
- if rand_makeup = 0:
|
|
|
- $pcdesc_makeuprandom = 'painted-on'
|
|
|
- elseif rand_makeup = 1:
|
|
|
- $pcdesc_makeuprandom = 'makeup-caked'
|
|
|
- elseif rand_makeup = 2:
|
|
|
- $pcdesc_makeuprandom = 'dolled-up'
|
|
|
- elseif rand_makeup = 3:
|
|
|
- $pcdesc_makeuprandom = 'sultry, dramatically done-up'
|
|
|
- end
|
|
|
- $pcdesc_makeup = 'dolled-up'
|
|
|
- $pcdesc_makeupwordy = 'heavily dolled-up and painted'
|
|
|
- $pcs_makeup = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'
|
|
|
- $pcs_makeup_msg = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips.'
|
|
|
- $pcs_makeup_tooltip = 'Your makeup is thick enough to cover most imperfections.'
|
|
|
-elseif pcs_makeup = 5:
|
|
|
- rand_makeup = rand(0,3)
|
|
|
- if rand_makeup = 0:
|
|
|
- $pcdesc_makeuprandom = 'painted-on'
|
|
|
- elseif rand_makeup = 1:
|
|
|
- $pcdesc_makeuprandom = 'makeup-caked'
|
|
|
- elseif rand_makeup = 2:
|
|
|
- $pcdesc_makeuprandom = 'dolled-up'
|
|
|
- elseif rand_makeup = 3:
|
|
|
- $pcdesc_makeuprandom = 'sultry, dramatically done-up'
|
|
|
+ if pcs_nips < 20:
|
|
|
+ $nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
|
|
|
+ rand_nipples = rand(0,2)
|
|
|
+ if rand_nipples = 0:
|
|
|
+ $pcdesc_nipplesrandom = 'small'
|
|
|
+ elseif rand_nipples = 1:
|
|
|
+ $pcdesc_nipplesrandom = 'tiny'
|
|
|
+ elseif rand_nipples = 2:
|
|
|
+ $pcdesc_nipplesrandom = 'little'
|
|
|
+ end
|
|
|
+ $pcdesc_nipples = 'small'
|
|
|
+ $pcdesc_nippleswordy = 'small, tiny'
|
|
|
+ elseif pcs_nips >= 20 and pcs_nips < 40:
|
|
|
+ $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
|
|
|
+ rand_nipples = rand(0,1)
|
|
|
+ if rand_nipples = 0:
|
|
|
+ $pcdesc_nipplesrandom = 'slightly large'
|
|
|
+ elseif rand_nipples = 1:
|
|
|
+ $pcdesc_nipplesrandom = 'decently-sized'
|
|
|
+ end
|
|
|
+ $pcdesc_nipples = 'slightly large'
|
|
|
+ $pcdesc_nippleswordy = 'slightly large'
|
|
|
+ elseif pcs_nips >= 40 and pcs_nips < 60:
|
|
|
+ $nipplesize = 'You have large, puffy <a href="exec:view''images/pc/body/nipples/nipples3.jpg''">nipples</a>.'
|
|
|
+ rand_nipples = rand(0,2)
|
|
|
+ if rand_nipples = 0:
|
|
|
+ $pcdesc_nipplesrandom = 'puffy'
|
|
|
+ elseif rand_nipples = 1:
|
|
|
+ $pcdesc_nipplesrandom = 'swollen'
|
|
|
+ elseif rand_nipples = 2:
|
|
|
+ $pcdesc_nipplesrandom = 'large'
|
|
|
+ end
|
|
|
+ $pcdesc_nipples = 'puffy'
|
|
|
+ $pcdesc_nippleswordy = 'large, puffy'
|
|
|
+ elseif pcs_nips >= 60 and pcs_nips < 80:
|
|
|
+ $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
|
|
|
+ rand_nipples = rand(0,1)
|
|
|
+ if rand_nipples = 0:
|
|
|
+ $pcdesc_nipplesrandom = 'big'
|
|
|
+ elseif rand_nipples = 1:
|
|
|
+ $pcdesc_nipplesrandom = 'thick'
|
|
|
+ end
|
|
|
+ $pcdesc_nipples = 'big'
|
|
|
+ $pcdesc_nippleswordy = 'big, thick'
|
|
|
+ else
|
|
|
+ !! If greater or equal to 80
|
|
|
+ $nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
|
|
|
+ rand_nipples = rand(0,3)
|
|
|
+ if rand_nipples = 0:
|
|
|
+ $pcdesc_nipplesrandom = 'huge'
|
|
|
+ elseif rand_nipples = 1:
|
|
|
+ $pcdesc_nipplesrandom = 'unmistakably big'
|
|
|
+ elseif rand_nipples = 2:
|
|
|
+ $pcdesc_nipplesrandom = 'meaty'
|
|
|
+ elseif rand_nipples = 3:
|
|
|
+ $pcdesc_nipplesrandom = 'enormous'
|
|
|
+ end
|
|
|
+ $pcdesc_nipples = 'meaty'
|
|
|
+ $pcdesc_nippleswordy = 'huge, meaty'
|
|
|
+ end
|
|
|
+
|
|
|
+
|
|
|
+ if dounspell = 1:
|
|
|
+ bodytipe = pcs_hips - pcs_waist
|
|
|
+ if bodytipe < 20:
|
|
|
+ bodykoef = 0
|
|
|
+ elseif bodytipe >= 20 and bodytipe < 25:
|
|
|
+ bodykoef = 2
|
|
|
+ elseif bodytipe >= 25 and bodytipe < 30:
|
|
|
+ bodykoef = 4
|
|
|
+ elseif bodytipe >= 30 and bodytipe < 35:
|
|
|
+ bodykoef = 8
|
|
|
+ elseif bodytipe >= 35:
|
|
|
+ bodykoef = 4
|
|
|
+ end
|
|
|
end
|
|
|
- $pcdesc_makeup = 'dolled-up'
|
|
|
- $pcdesc_makeupwordy = 'heavily dolled-up and painted'
|
|
|
- $pcs_makeup = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair'
|
|
|
- $pcs_makeup_msg = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair.'
|
|
|
- $pcs_makeup_tooltip = 'Your makeup is professional grade.'
|
|
|
- mopkoef = 30
|
|
|
-end
|
|
|
|
|
|
-if pcs_leghair <= 0:
|
|
|
- rand_legs = rand(0,2)
|
|
|
- if rand_legs = 0:
|
|
|
- $pcdesc_legsrandom = 'smooth'
|
|
|
- elseif rand_legs = 1:
|
|
|
- $pcdesc_legsrandom = 'silky'
|
|
|
- elseif rand_legs = 2:
|
|
|
- $pcdesc_legsrandom = 'soft'
|
|
|
- end
|
|
|
- $pcdesc_legs = 'smooth'
|
|
|
- $pcdesc_legswordy = 'soft and silky-smooth'
|
|
|
- legkoef = 0
|
|
|
- $pcs_leghair = 'You have smooth legs.'
|
|
|
-elseif pcs_leghair <= 3:
|
|
|
- rand_legs = rand(0,1)
|
|
|
- if rand_legs = 0:
|
|
|
- $pcdesc_legsrandom = 'slightly scratchy'
|
|
|
- elseif rand_legs = 1:
|
|
|
- $pcdesc_legsrandom = 'faintly stubbly'
|
|
|
+ !!This is to force a base update if teeth changed since that is immediate
|
|
|
+ if zublast ! pcs_teeth:
|
|
|
+ gs 'body_shape', 'basebeautycalc', 1
|
|
|
+ zublast = pcs_teeth
|
|
|
end
|
|
|
- $pcdesc_legs = 'faintly stubbly'
|
|
|
- $pcdesc_legswordy = 'slightly rough, invisibly-stubbled'
|
|
|
- legkoef = 3
|
|
|
- $pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
|
|
|
-elseif pcs_leghair <= 6:
|
|
|
- rand_legs = rand(0,1)
|
|
|
- if rand_legs = 0:
|
|
|
- $pcdesc_legsrandom = 'somewhat hairy'
|
|
|
- elseif rand_legs = 1:
|
|
|
- $pcdesc_legsrandom = 'lightly-furred'
|
|
|
- end
|
|
|
- $pcdesc_legs = 'slightly hairy'
|
|
|
- $pcdesc_legswordy = 'lightly-furred, soft-haired'
|
|
|
- legkoef = 6
|
|
|
- $pcs_leghair = 'You have light and just barely visible hair on your legs.'
|
|
|
-else
|
|
|
- rand_legs = rand(0,2)
|
|
|
- if rand_legs = 0:
|
|
|
- $pcdesc_legsrandom = 'hairy'
|
|
|
- elseif rand_legs = 1:
|
|
|
- $pcdesc_legsrandom = 'unshaven'
|
|
|
- elseif rand_legs = 2:
|
|
|
- $pcdesc_legsrandom = 'ungroomed'
|
|
|
- end
|
|
|
- $pcdesc_legs = 'hairy'
|
|
|
- $pcdesc_legswordy = 'hairy, unshaven'
|
|
|
- legkoef = 9
|
|
|
- $pcs_leghair = 'Your legs are hairy.'
|
|
|
-end
|
|
|
|
|
|
-if clit_size < 20:
|
|
|
- rand_clit = rand(0,1)
|
|
|
- if rand_clit = 0:
|
|
|
- $pcdesc_clitrandom = 'small'
|
|
|
- elseif rand_clit = 1:
|
|
|
- $pcdesc_clitrandom = 'tiny'
|
|
|
- end
|
|
|
- $pcdesc_clit = 'small'
|
|
|
- $pcdesc_clitwordy = 'small, oft-hidden'
|
|
|
- $clitsize = 'You consider your <a href="exec:view''images/pc/body/clit/clit1.jpg''">clitoris</a> to be of an average size.'
|
|
|
-elseif clit_size >= 20 and clit_size < 40:
|
|
|
- rand_clit = rand(0,2)
|
|
|
- if rand_clit = 0:
|
|
|
- $pcdesc_clitrandom = 'large'
|
|
|
- elseif rand_clit = 1:
|
|
|
- $pcdesc_clitrandom = 'big'
|
|
|
- elseif rand_clit = 2:
|
|
|
- $pcdesc_clitrandom = 'engorged'
|
|
|
- end
|
|
|
- $pcdesc_clit = 'big'
|
|
|
- $pcdesc_clitwordy = 'big, easily-found'
|
|
|
- $clitsize = 'You feel your <a href="exec:view''images/pc/body/clit/clit2.jpg''">clitoris</a> is somewhat on the large side.'
|
|
|
-elseif clit_size >= 40 and clit_size < 60:
|
|
|
- rand_clit = rand(0,2)
|
|
|
- if rand_clit = 0:
|
|
|
- $pcdesc_clitrandom = 'meaty'
|
|
|
- elseif rand_clit = 1:
|
|
|
- $pcdesc_clitrandom = 'thick'
|
|
|
- elseif rand_clit = 2:
|
|
|
- $pcdesc_clitrandom = 'swollen'
|
|
|
- end
|
|
|
- $pcdesc_clit = 'meaty'
|
|
|
- $pcdesc_clitwordy = 'thick, meaty'
|
|
|
- $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit3.jpg''">clit</a> is quite large.'
|
|
|
-elseif clit_size >= 60 and clit_size < 80:
|
|
|
- rand_clit = rand(0,1)
|
|
|
- if rand_clit = 0:
|
|
|
- $pcdesc_clitrandom = 'oversized'
|
|
|
- elseif rand_clit = 1:
|
|
|
- $pcdesc_clitrandom = 'huge'
|
|
|
+ !! Calculate hotcat etc
|
|
|
+ tempclothingbonus = FUNC('body', 'calcClothesBonus', pcs_apprncbase, PXCloThinness, PXCloTopCut, PXCloBottomShortness, PCloQuality, $clothingworntype)
|
|
|
+ tempAccessoriesBonus = FUNC('body', 'calcAccessoriesBonus', bonusZ, PShoQuality, $pantyworntype, $braworntype)
|
|
|
+ tempGroomingBonus = FUNC('body', 'calcGroomingBonus', pcs_lipbalm, mopkoef, pcs_hairbsh, pcs_breath, deodorant_on)
|
|
|
+ tempGroomingPenalty = FUNC('body', 'calcGroomingPenalty', pcs_hairlng, pcs_sweat, glassvnesh, dyevmod, legkoef)
|
|
|
+ Hotcat = FUNC('body', 'calcHotcat', pcs_apprncbase, supnatvnesh, tempclothingbonus, tempAccessoriesBonus, tempGroomingBonus, tempGroomingPenalty)
|
|
|
+ pcs_apprnc = temppcs_apprnc & killvar 'temppcs_apprnc'
|
|
|
+
|
|
|
+
|
|
|
+ if StrongNarkota <= 0:
|
|
|
+ if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
|
|
|
+ if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10
|
|
|
end
|
|
|
- $pcdesc_clit = 'oversized'
|
|
|
- $pcdesc_clitwordy = 'big, practically phallic'
|
|
|
- $clitsize = 'You have a big <a href="exec:view''images/pc/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
|
|
|
-else
|
|
|
- !! If greater or equal to 80
|
|
|
- rand_clit = rand(0,2)
|
|
|
- if rand_clit = 0:
|
|
|
- $pcdesc_clitrandom = 'huge'
|
|
|
- elseif rand_clit = 1:
|
|
|
- $pcdesc_clitrandom = 'cock-like'
|
|
|
- elseif rand_clit = 2:
|
|
|
- $pcdesc_clitrandom = 'massive'
|
|
|
+
|
|
|
+ if amphCount > 3 and amphHigh <= 0:
|
|
|
+ addictChance = rand(1,10)
|
|
|
+ if addictChance > 8:
|
|
|
+ amphWithdrawl = 2
|
|
|
+ end
|
|
|
end
|
|
|
- $pcdesc_clit = 'phallic'
|
|
|
- $pcdesc_clitwordy = 'enormous, phallic'
|
|
|
- $clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'
|
|
|
-end
|
|
|
|
|
|
-if lashair = 1:
|
|
|
- rand_pubes = rand(0,3)
|
|
|
- if rand_pubes = 0:
|
|
|
- $pcdesc_pubesrandom = 'silky-smooth'
|
|
|
- elseif rand_pubes = 1:
|
|
|
- $pcdesc_pubesrandom = 'hairless'
|
|
|
- elseif rand_pubes = 2:
|
|
|
- $pcdesc_pubesrandom = 'smooth'
|
|
|
- elseif rand_pubes = 3:
|
|
|
- $pcdesc_pubesrandom = 'bald'
|
|
|
+ if StrongNarkota > 0:
|
|
|
+ if SLomka > 0:SLomka = 0
|
|
|
+ pcs_mood = 100
|
|
|
end
|
|
|
- $pcdesc_pubes = 'hairless'
|
|
|
- $pcdesc_pubeswordy = 'eternally silky-smooth'
|
|
|
- $pcs_pubes = 'You have a smooth, <a href="exec:view''<<FUNC(''$pube_image'')>>''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
-end
|
|
|
|
|
|
-if lashair = 0:
|
|
|
- if pcs_pubes <= 3:
|
|
|
- lobkoef = 3
|
|
|
- $pcs_pubes = 'You have a smoothly <a href="exec:view''<<FUNC(''$pube_image'')>>''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- rand_pubes = rand(0,3)
|
|
|
- if rand_pubes = 0:
|
|
|
- $pcdesc_pubesrandom = 'silky'
|
|
|
- elseif rand_pubes = 1:
|
|
|
- $pcdesc_pubesrandom = 'hairless'
|
|
|
- elseif rand_pubes = 2:
|
|
|
- $pcdesc_pubesrandom = 'smooth-shaven'
|
|
|
- elseif rand_pubes = 3:
|
|
|
- $pcdesc_pubesrandom = 'freshly-shaven'
|
|
|
- end
|
|
|
- $pcdesc_pubes = 'smooth-shaven'
|
|
|
- $pcdesc_pubeswordy = 'silky, freshly-shaven'
|
|
|
- elseif pcs_pubes <= 10:
|
|
|
- lobkoef = 0
|
|
|
- $pcs_pubes = 'You have stubble growing around your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- rand_pubes = rand(0,2)
|
|
|
- if rand_pubes = 0:
|
|
|
- $pcdesc_pubesrandom = 'stubbly'
|
|
|
- elseif rand_pubes = 1:
|
|
|
- $pcdesc_pubesrandom = 'scratchy'
|
|
|
- elseif rand_pubes = 2:
|
|
|
- $pcdesc_pubesrandom = 'roughly-stubbled'
|
|
|
- end
|
|
|
- $pcdesc_pubes = 'stubbly'
|
|
|
- $pcdesc_pubeswordy = 'scratchy, roughly-stubbled'
|
|
|
- elseif pcs_pubes <= 15:
|
|
|
- lobkoef = 0
|
|
|
- $pcs_pubes = 'You have a tidy patch of hair growing above your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- rand_pubes = rand(0,2)
|
|
|
- if rand_pubes = 0:
|
|
|
- $pcdesc_pubesrandom = 'almost bare'
|
|
|
- elseif rand_pubes = 1:
|
|
|
- $pcdesc_pubesrandom = 'barely-haired'
|
|
|
- elseif rand_pubes = 2:
|
|
|
- $pcdesc_pubesrandom = 'well-kept'
|
|
|
- end
|
|
|
- $pcdesc_pubes = 'stubbly'
|
|
|
- $pcdesc_pubeswordy = 'scratchy, roughly-stubbled'
|
|
|
- elseif pcs_pubes <= 25:
|
|
|
- lobkoef = 0
|
|
|
- if pubestyle = 9:
|
|
|
- $pcs_pubes = 'You have neatly trimmed section of hair around your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- elseif pubestyle = 12:
|
|
|
- $pcs_pubes = 'You have cute little patch of bush at the top of your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- elseif pubestyle = 13:
|
|
|
- $pcs_pubes = 'You have tidy strip of bush covering your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- elseif pubestyle = 14:
|
|
|
- $pcs_pubes = 'You have neatly trimmed rectangle of hair just above your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ if pcs_apprnc = -10:
|
|
|
+ $pcs_apprnc = 'Your looks are even worse than terrible. It''s god-awful. No one wants to see or talk to you and people avoid you at any cost.'
|
|
|
+ elseif pcs_apprnc < 20:
|
|
|
+ $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
|
|
|
+ elseif pcs_apprnc < 60:
|
|
|
+ $pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
|
|
|
+ elseif pcs_apprnc < 120:
|
|
|
+ $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
|
|
|
+ elseif pcs_apprnc < 160:
|
|
|
+ $pcs_apprnc = 'You''re unquestionably gorgeous. Men constantly get caught staring at you by their girlfriends.'
|
|
|
+ elseif pcs_apprnc < 200:
|
|
|
+ $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
|
|
|
+ else
|
|
|
+ $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
|
|
|
+ end
|
|
|
+
|
|
|
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
+ !!!!!!!!BODY
|
|
|
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
+
|
|
|
+ if dounspell = 1:
|
|
|
+ salocatnow = (pcs_hips / 10) - 5
|
|
|
+ if bdsetlock = 0:
|
|
|
+ if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)):
|
|
|
+ bodset = 3
|
|
|
+ elseif strenbuf >= 70:
|
|
|
+ bodset = 2
|
|
|
+ elseif strenbuf <= 40:
|
|
|
+ bodset = 0
|
|
|
+ else
|
|
|
+ bodset = 1
|
|
|
+ end
|
|
|
else
|
|
|
- $pcs_pubes = 'You have a bushy but well-maintained mat of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
+ bodset = fixbodset
|
|
|
end
|
|
|
- rand_pubes = rand(0,3)
|
|
|
- if rand_pubes = 0:
|
|
|
- $pcdesc_pubesrandom = 'wispy-haired'
|
|
|
- elseif rand_pubes = 1:
|
|
|
- $pcdesc_pubesrandom = 'lightly-furred'
|
|
|
- elseif rand_pubes = 2:
|
|
|
- $pcdesc_pubesrandom = 'trimmed'
|
|
|
- elseif rand_pubes = 3:
|
|
|
- $pcdesc_pubesrandom = 'well-maintained'
|
|
|
- end
|
|
|
- $pcdesc_pubes = 'neatly-trimmed'
|
|
|
- $pcdesc_pubeswordy = 'trimmed, well-kept'
|
|
|
- elseif pcs_pubes <= 30:
|
|
|
- lobkoef = 0
|
|
|
- $pcs_pubes = 'You have a bushy but well-maintained mat of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- rand_pubes = rand(0,2)
|
|
|
- if rand_pubes = 0:
|
|
|
- $pcdesc_pubesrandom = 'furred'
|
|
|
- elseif rand_pubes = 1:
|
|
|
- $pcdesc_pubesrandom = 'bushy'
|
|
|
- elseif rand_pubes = 2:
|
|
|
- $pcdesc_pubesrandom = 'partially-maintained'
|
|
|
- end
|
|
|
- $pcdesc_pubes = 'bushy'
|
|
|
- $pcdesc_pubeswordy = 'bushy, thick'
|
|
|
- elseif pcs_pubes >= 40:
|
|
|
- lobkoef = 0
|
|
|
- $pcs_pubes = 'You have a wild and unkempt jungle of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
|
|
|
- rand_pubes = rand(0,2)
|
|
|
- if rand_pubes = 0:
|
|
|
- $pcdesc_pubesrandom = 'thickly-furred'
|
|
|
- elseif rand_pubes = 1:
|
|
|
- $pcdesc_pubesrandom = 'very hairy'
|
|
|
- elseif rand_pubes = 2:
|
|
|
- $pcdesc_pubesrandom = 'ill-maintained'
|
|
|
+ elseif (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodet ! 3 and bdsetlock = 0:
|
|
|
+ bodset = 3
|
|
|
+ elseif preg = 0 and bodset = 3 and bdsetlock = 0:
|
|
|
+ if strenbuf >= 70:
|
|
|
+ bodset = 2
|
|
|
+ elseif strenbuf <= 40:
|
|
|
+ bodset = 0
|
|
|
+ else
|
|
|
+ bodset = 1
|
|
|
end
|
|
|
- $pcdesc_pubes = 'hairy'
|
|
|
- $pcdesc_pubeswordy = 'hairy, wild-maned'
|
|
|
- end
|
|
|
+ end
|
|
|
+
|
|
|
+ if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodset = 3:
|
|
|
+ if PregChem > 6216:
|
|
|
+ $body = $bodimgsets[((bodset * 10) + 8)]
|
|
|
+ elseif PregChem < 2688:
|
|
|
+ $body = $bodimgsets[(bodset * 10)]
|
|
|
+ else
|
|
|
+ $body = $bodimgsets[((bodset * 10)+((PregChem - 2184)/504))]
|
|
|
+ end
|
|
|
+ elseif salocatnow <= 7:
|
|
|
+ $body = $bodimgsets[((bodset * 10) + salocatnow)]
|
|
|
+ else
|
|
|
+ $body = $bodimgsets[((bodset * 10) + 7)]
|
|
|
+ end
|
|
|
+
|
|
|
+ !!Since "musle" is used all over the place
|
|
|
+ musle = strenbuf
|
|
|
+
|
|
|
+
|
|
|
+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
+
|
|
|
+ !! kill temporary variables
|
|
|
+ killvar 'rand_pussy'
|
|
|
+ killvar 'rand_anus'
|
|
|
+ killvar 'rand_breasts'
|
|
|
+ killvar 'rand_hairmess'
|
|
|
+ killvar 'rand_hairword'
|
|
|
+ killvar 'rand_bangs'
|
|
|
+ killvar 'rand_hair'
|
|
|
+ killvar 'rand_hairstyle'
|
|
|
+ killvar 'rand_hairobject'
|
|
|
+ killvar 'rand_hairlength'
|
|
|
+ killvar 'rand_tongue'
|
|
|
+ killvar 'rand_lips'
|
|
|
+ killvar 'rand_lipgloss'
|
|
|
+ killvar 'rand_tan'
|
|
|
+ killvar 'rand_skin'
|
|
|
+ killvar 'rand_eyecol'
|
|
|
+ killvar 'rand_lashes'
|
|
|
+ killvar 'rand_vision'
|
|
|
+ killvar 'rand_eyesize'
|
|
|
+ killvar 'rand_makeup'
|
|
|
+ killvar 'rand_legs'
|
|
|
+ killvar 'rand_clit'
|
|
|
+ killvar 'rand_pubes'
|
|
|
+ killvar 'rand_nipples'
|
|
|
+ killvar 'tempclothingbonus'
|
|
|
+ killvar 'tempAccessoriesBonus'
|
|
|
+ killvar 'tempGroomingBonus'
|
|
|
+ killvar 'tempGroomingPenalty'
|
|
|
end
|
|
|
|
|
|
-if pcs_nips < 20:
|
|
|
- $nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
|
|
|
- rand_nipples = rand(0,2)
|
|
|
- if rand_nipples = 0:
|
|
|
- $pcdesc_nipplesrandom = 'small'
|
|
|
- elseif rand_nipples = 1:
|
|
|
- $pcdesc_nipplesrandom = 'tiny'
|
|
|
- elseif rand_nipples = 2:
|
|
|
- $pcdesc_nipplesrandom = 'little'
|
|
|
- end
|
|
|
- $pcdesc_nipples = 'small'
|
|
|
- $pcdesc_nippleswordy = 'small, tiny'
|
|
|
-elseif pcs_nips >= 20 and pcs_nips < 40:
|
|
|
- $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
|
|
|
- rand_nipples = rand(0,1)
|
|
|
- if rand_nipples = 0:
|
|
|
- $pcdesc_nipplesrandom = 'slightly large'
|
|
|
- elseif rand_nipples = 1:
|
|
|
- $pcdesc_nipplesrandom = 'decently-sized'
|
|
|
- end
|
|
|
- $pcdesc_nipples = 'slightly large'
|
|
|
- $pcdesc_nippleswordy = 'slightly large'
|
|
|
-elseif pcs_nips >= 40 and pcs_nips < 60:
|
|
|
- $nipplesize = 'You have large, puffy <a href="exec:view''images/pc/body/nipples/nipples3.jpg''">nipples</a>.'
|
|
|
- rand_nipples = rand(0,2)
|
|
|
- if rand_nipples = 0:
|
|
|
- $pcdesc_nipplesrandom = 'puffy'
|
|
|
- elseif rand_nipples = 1:
|
|
|
- $pcdesc_nipplesrandom = 'swollen'
|
|
|
- elseif rand_nipples = 2:
|
|
|
- $pcdesc_nipplesrandom = 'large'
|
|
|
- end
|
|
|
- $pcdesc_nipples = 'puffy'
|
|
|
- $pcdesc_nippleswordy = 'large, puffy'
|
|
|
-elseif pcs_nips >= 60 and pcs_nips < 80:
|
|
|
- $nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
|
|
|
- rand_nipples = rand(0,1)
|
|
|
- if rand_nipples = 0:
|
|
|
- $pcdesc_nipplesrandom = 'big'
|
|
|
- elseif rand_nipples = 1:
|
|
|
- $pcdesc_nipplesrandom = 'thick'
|
|
|
- end
|
|
|
- $pcdesc_nipples = 'big'
|
|
|
- $pcdesc_nippleswordy = 'big, thick'
|
|
|
-else
|
|
|
- !! If greater or equal to 80
|
|
|
- $nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
|
|
|
- rand_nipples = rand(0,3)
|
|
|
- if rand_nipples = 0:
|
|
|
- $pcdesc_nipplesrandom = 'huge'
|
|
|
- elseif rand_nipples = 1:
|
|
|
- $pcdesc_nipplesrandom = 'unmistakably big'
|
|
|
- elseif rand_nipples = 2:
|
|
|
- $pcdesc_nipplesrandom = 'meaty'
|
|
|
- elseif rand_nipples = 3:
|
|
|
- $pcdesc_nipplesrandom = 'enormous'
|
|
|
+if $ARGS[0] = 'calcClothesBonus':
|
|
|
+ !! Note there is a limit of 9 args
|
|
|
+ temppcs_apprncbase = ARGS[1] & !! pcs_apprncbase
|
|
|
+ tempPXCloThinness = ARGS[2] & !! PXCloThinness
|
|
|
+ tempPXCloTopCut = ARGS[3] & !! PXCloTopCut
|
|
|
+ tempPXCloBottomShortness = ARGS[4] & !! PXCloBottomShortness
|
|
|
+ tempPCloQuality = ARGS[5] & !! PCloQuality
|
|
|
+ $tempclothingworntype = $ARGS[6] & !!$clothingworntype
|
|
|
+
|
|
|
+ tempRevealing = tempPXCloThinness + tempPXCloTopCut + tempPXCloBottomShortness
|
|
|
+
|
|
|
+ if $tempclothingworntype = 'nude':
|
|
|
+ !! needs a rethink as this is skewing the results
|
|
|
+ tempCloAdjustedBeauty = 0
|
|
|
+ else
|
|
|
+ tempCloAdjustedBeauty = temppcs_apprncbase * tempRevealing * tempPCloQuality / 10000
|
|
|
end
|
|
|
- $pcdesc_nipples = 'meaty'
|
|
|
- $pcdesc_nippleswordy = 'huge, meaty'
|
|
|
+
|
|
|
+ if $tempclothingworntype = 'exercise': tempCloAdjustedBeauty = tempCloAdjustedBeauty * 2 / 3
|
|
|
+
|
|
|
+ result = tempCloAdjustedBeauty
|
|
|
+
|
|
|
+ killvar 'temppcs_apprncbase'
|
|
|
+ killvar 'tempPXCloThinness'
|
|
|
+ killvar 'tempPXCloTopCut'
|
|
|
+ killvar 'tempPXCloBottomShortness'
|
|
|
+ killvar 'tempPCloQuality'
|
|
|
+ killvar 'tempclothingworntype'
|
|
|
+ killvar 'tempRevealing'
|
|
|
+ killvar 'tempCloAdjustedBeauty'
|
|
|
+ killvar 'tempclothingbonus'
|
|
|
end
|
|
|
|
|
|
+if $ARGS[0] = 'calcAccessoriesBonus':
|
|
|
+ tempcoatbonus = ARGS[1] & !! bonusZ
|
|
|
+ tempPShoQuality = ARGS[2] & !! PShoQuality
|
|
|
+ $temppantyworntype = $ARGS[3] & !! $pantyworntype
|
|
|
+ $tempbraworntype = $ARGS[4] & !! $braworntype
|
|
|
+
|
|
|
+ !!bonuses for certain underwear
|
|
|
+ if $temppantyworntype = 'boutique':
|
|
|
+ temppantybounus = 4
|
|
|
+ elseif $temppantyworntype = 'fashionista':
|
|
|
+ temppantybounus = 2
|
|
|
+ end
|
|
|
|
|
|
-if dounspell = 1:
|
|
|
- bodytipe = pcs_hips - pcs_waist
|
|
|
- if bodytipe < 20:
|
|
|
- bodykoef = 0
|
|
|
- elseif bodytipe >= 20 and bodytipe < 25:
|
|
|
- bodykoef = 2
|
|
|
- elseif bodytipe >= 25 and bodytipe < 30:
|
|
|
- bodykoef = 4
|
|
|
- elseif bodytipe >= 30 and bodytipe < 35:
|
|
|
- bodykoef = 8
|
|
|
- elseif bodytipe >= 35:
|
|
|
- bodykoef = 4
|
|
|
+ if $tempbraworntype = 'boutique':
|
|
|
+ tempbrabounus = 4
|
|
|
+ elseif $tempbraworntype = 'fashionista':
|
|
|
+ tempbrabounus = 2
|
|
|
end
|
|
|
-end
|
|
|
|
|
|
-if pcs_tan > 0:
|
|
|
- tanKoef = 1
|
|
|
-else
|
|
|
- tanKoef = 0
|
|
|
-end
|
|
|
+ tempAccessoriesBonus = tempcoatbonus + tempPShoQuality + temppantybounus + tempbrabounus
|
|
|
|
|
|
-!! buzzcut penalty to pcs_apprnc
|
|
|
-if pcs_hairlng < 10:
|
|
|
- hairkoef = 10
|
|
|
-else
|
|
|
- hairkoef = 0
|
|
|
+ result = tempAccessoriesBonus
|
|
|
+ killvar 'tempcoatbonus'
|
|
|
+ killvar 'tempPShoQuality'
|
|
|
+ killvar 'temppantybounus'
|
|
|
+ killvar 'tempbrabounus'
|
|
|
+ killvar '$temppantyworntype'
|
|
|
+ killvar '$tempbraworntype'
|
|
|
+ killvar 'tempAccessoriesBonus'
|
|
|
end
|
|
|
|
|
|
-if pcs_sweat < 22:
|
|
|
- sweatKoef = 0
|
|
|
-elseif pcs_sweat < 38:
|
|
|
- sweatKoef = (pcs_sweat - 10) / 4
|
|
|
-elseif pcs_sweat < 54:
|
|
|
- sweatKoef = (pcs_sweat - 10) / 2
|
|
|
-else
|
|
|
- sweatKoef = 3 * (pcs_sweat - 10) / 4
|
|
|
-end
|
|
|
+if $ARGS[0] = 'calcGroomingBonus':
|
|
|
+ !! Note there is a limit of 9 args
|
|
|
+ temppcs_lipbalm = ARGS[1] & !! pcs_lipbalm
|
|
|
+ tempmakeupkoef = ARGS[2] & !! mopkoef
|
|
|
+ temppcs_hairbsh = ARGS[3] & !! pcs_hairbsh
|
|
|
+ temppcs_breath = ARGS[4] & !! pcs_breath
|
|
|
+ tempdeodorant_on = ARGS[5] & !! deodorant_on
|
|
|
|
|
|
-if pcs_lipbalm > 0:
|
|
|
- lipbalmKoef = 5
|
|
|
-else
|
|
|
- lipbalmKoef = 0
|
|
|
-end
|
|
|
+ if temppcs_lipbalm > 0:
|
|
|
+ lipbalmKoef = 5
|
|
|
+ else
|
|
|
+ lipbalmKoef = 0
|
|
|
+ end
|
|
|
|
|
|
-!!This is to force a base update if teeth changed since that is immediate
|
|
|
-if zublast ! pcs_teeth:
|
|
|
- gs 'body_shape', 'basebeautycalc', 1
|
|
|
- zublast = pcs_teeth
|
|
|
-end
|
|
|
+ tempHairBonus = temppcs_hairbsh * 10
|
|
|
|
|
|
-!!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
|
|
|
-if $clothingworntype = 'nude':
|
|
|
- CloAdjustedBeauty = pcs_apprncbase
|
|
|
-else
|
|
|
- CloAdjustedBeauty = bonusZ + pcs_apprncbase * (PXCloThinness + PXCloTopCut + PXCloBottomShortness) * PCloQuality / 5000 + PShoQuality
|
|
|
-end
|
|
|
+ tempBreathBonus = temppcs_breath * 5
|
|
|
|
|
|
-if $clothingworntype = 'exercise': CloAdjustedBeauty = CloAdjustedBeauty * 2 / 3
|
|
|
+ tempGroomingBonus = tempmakeupkoef + tempHairBonus + lipbalmKoef + tempBreathBonus
|
|
|
|
|
|
-!!bonuses for certain underwears
|
|
|
-if $pantyworntype = 'boutique':
|
|
|
- panty_beautybounus = 4
|
|
|
-elseif $pantyworntype = 'fashionista':
|
|
|
- panty_beautybounus = 2
|
|
|
-end
|
|
|
+ !!Small bonus for wearing deodorant, if pcs_sweat is low enough
|
|
|
+ if tempdeodorant_on = 1 and temppcs_sweat < 20: tempGroomingBonus += 5
|
|
|
|
|
|
-if $braworntype = 'boutique':
|
|
|
- bra_beautybounus = 4
|
|
|
-elseif $braworntype = 'fashionista':
|
|
|
- bra_beautybounus = 2
|
|
|
-end
|
|
|
+ result = tempGroomingBonus
|
|
|
+
|
|
|
+ killvar 'temppcs_lipbalm'
|
|
|
+ killvar 'tempmakeupkoef'
|
|
|
+ killvar 'temppcs_hairbsh'
|
|
|
+ killvar 'temppcs_breath'
|
|
|
+ killvar 'tempdeodorant_on'
|
|
|
+ killvar 'tempHairBonus'
|
|
|
+ killvar 'tempBreathBonus'
|
|
|
+ killvar 'tempGroomingBonus'
|
|
|
|
|
|
-!!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / pcs_hairbsh = Hair brushed / lipbalmKoef = lip balm / pcs_breath = freash breath / sweatKoef = pcs_sweat / glassvnesh = glasses / dyevmod = hair dye fading
|
|
|
-!!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; pcs_lip = lip size; skin = skin condition; pcs_lashes = eyelashes; pcs_eyesize = eyes; bodykoef = hips:waist ratio; pcs_teeth = missing teeth; vidagebonus = youth
|
|
|
+!! commented out as not used in the original calc
|
|
|
!!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
|
|
|
-pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef + panty_beautybounus + bra_beautybounus
|
|
|
-!!Small bonus for wearing deodorant, if pcs_sweat is low enough
|
|
|
-if deodorant_on = 1 and pcs_sweat < 20: pcs_apprnc += 5
|
|
|
-!!adjustment to make max achievable
|
|
|
-pcs_apprnc = pcs_apprnc*200/170
|
|
|
-
|
|
|
-if pcs_apprnc >= 200: pcs_apprnc = 200
|
|
|
-pcs_apprnc = pcs_apprnc + supnatvnesh
|
|
|
-
|
|
|
-if pcs_apprnc < 0: pcs_apprnc = 0
|
|
|
-
|
|
|
-!!This sets the "hotness catagory" varibale for use in checks
|
|
|
-if pcs_apprnc <= 200:
|
|
|
- hotcat = pcs_apprnc / 20
|
|
|
-else
|
|
|
- hotcat = 10
|
|
|
+!! if temppcs_tan > 0:
|
|
|
+!! tanKoef = 1
|
|
|
+!! else
|
|
|
+!! tanKoef = 0
|
|
|
+!! end
|
|
|
+
|
|
|
end
|
|
|
|
|
|
-killvar'panty_beautybounus'
|
|
|
-killvar'bra_beautybounus'
|
|
|
+if $ARGS[0] = 'calcGroomingPenalty':
|
|
|
+ temppcs_hairlng = ARGS[1] & !! pcs_hairlng
|
|
|
+ temppcs_sweat = ARGS[2] & !! pcs_sweat
|
|
|
+ tempglassvnesh = ARGS[3] & !! glassvnesh
|
|
|
+ tempdyevmod = ARGS[4] & !! dyevmod
|
|
|
+ templegkoef = ARGS[5] & !! legkoef
|
|
|
|
|
|
-if StrongNarkota <= 0:
|
|
|
- if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
|
|
|
- if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10
|
|
|
-end
|
|
|
+ !! buzzcut penalty to pcs_apprnc
|
|
|
+ if temppcs_hairlng < 10:
|
|
|
+ hairkoef = 10
|
|
|
+ else
|
|
|
+ hairkoef = 0
|
|
|
+ end
|
|
|
|
|
|
-if amphCount > 3 and amphHigh <= 0:
|
|
|
- addictChance = rand(1,10)
|
|
|
- if addictChance > 8:
|
|
|
- amphWithdrawl = 2
|
|
|
+ if temppcs_sweat < 22:
|
|
|
+ sweatKoef = 0
|
|
|
+ elseif temppcs_sweat < 38:
|
|
|
+ sweatKoef = (temppcs_sweat - 10) / 4
|
|
|
+ elseif temppcs_sweat < 54:
|
|
|
+ sweatKoef = (temppcs_sweat - 10) / 2
|
|
|
+ else
|
|
|
+ sweatKoef = 3 * (temppcs_sweat - 10) / 4
|
|
|
end
|
|
|
-end
|
|
|
|
|
|
-if StrongNarkota > 0:
|
|
|
- if SLomka > 0:SLomka = 0
|
|
|
- pcs_mood = 100
|
|
|
-end
|
|
|
+ tempGroomingPenalty = sweatKoef + tempglassvnesh + tempdyevmod + hairkoef + templegkoef
|
|
|
+
|
|
|
+ result = tempGroomingPenalty
|
|
|
|
|
|
-if pcs_apprnc = -10:
|
|
|
- $pcs_apprnc = 'Your looks are even worse than terrible. It''s god-awful. No one wants to see or talk to you and people avoid you at any cost.'
|
|
|
-elseif pcs_apprnc < 20:
|
|
|
- $pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
|
|
|
-elseif pcs_apprnc < 60:
|
|
|
- $pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
|
|
|
-elseif pcs_apprnc < 120:
|
|
|
- $pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
|
|
|
-elseif pcs_apprnc < 160:
|
|
|
- $pcs_apprnc = 'You''re unquestionably gorgeous. Men constantly get caught staring at you by their girlfriends.'
|
|
|
-elseif pcs_apprnc < 200:
|
|
|
- $pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
|
|
|
-else
|
|
|
- $pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
|
|
|
+ killvar 'temppcs_hairlng'
|
|
|
+ killvar 'temppcs_sweat'
|
|
|
+ killvar 'tempglassvnesh'
|
|
|
+ killvar 'tempdyevmod'
|
|
|
+ killvar 'templegkoef'
|
|
|
+ killvar 'tempGroomingPenalty'
|
|
|
end
|
|
|
|
|
|
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
-!!!!!!!!BODY
|
|
|
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
-if dounspell = 1:
|
|
|
- salocatnow = (pcs_hips / 10) - 5
|
|
|
- if bdsetlock = 0:
|
|
|
- if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)):
|
|
|
- bodset = 3
|
|
|
- elseif strenbuf >= 70:
|
|
|
- bodset = 2
|
|
|
- elseif strenbuf <= 40:
|
|
|
- bodset = 0
|
|
|
- else
|
|
|
- bodset = 1
|
|
|
- end
|
|
|
- else
|
|
|
- bodset = fixbodset
|
|
|
- end
|
|
|
-elseif (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodet ! 3 and bdsetlock = 0:
|
|
|
- bodset = 3
|
|
|
-elseif preg = 0 and bodset = 3 and bdsetlock = 0:
|
|
|
- if strenbuf >= 70:
|
|
|
- bodset = 2
|
|
|
- elseif strenbuf <= 40:
|
|
|
- bodset = 0
|
|
|
+if $ARGS[0] = 'calcHotcat':
|
|
|
+ !!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / pcs_hairbsh = Hair brushed / lipbalmKoef = lip balm / pcs_breath = freash breath / sweatKoef = pcs_sweat / glassvnesh = glasses / dyevmod = hair dye fading
|
|
|
+ !!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; pcs_lip = lip size; skin = skin condition; pcs_lashes = eyelashes; pcs_eyesize = eyes; bodykoef = hips:waist ratio; pcs_teeth = missing teeth; vidagebonus = youth
|
|
|
+ temppcs_apprncbase = ARGS[1] & !! pcs_apprncbase
|
|
|
+ tempsupnatvnesh = ARGS[2] & !! supnatvnesh
|
|
|
+ tempCloAdjustedBeauty = ARGS[3] & !! result of calcClothesBonus
|
|
|
+ tempAccessoriesBonus = ARGS[4] & !! result of calcAccessoriesBonus
|
|
|
+ tempGroomingBonus = ARGS[4] & !! result of calcGroomingBonus
|
|
|
+ tempGroomingPenalty = ARGS[5] & !! result of calcGroomingPenalty
|
|
|
+
|
|
|
+ temppcs_apprnc = temppcs_apprncbase + tempCloAdjustedBeauty + tempAccessoriesBonus + tempGroomingBonus - tempGroomingPenalty
|
|
|
+ !!adjustment to make max achievable
|
|
|
+ temppcs_apprnc = temppcs_apprnc*200/170
|
|
|
+
|
|
|
+ if temppcs_apprnc >= 200: temppcs_apprnc = 200
|
|
|
+ temppcs_apprnc = temppcs_apprnc + tempsupnatvnesh
|
|
|
+
|
|
|
+ if temppcs_apprnc < 0: temppcs_apprnc = 0
|
|
|
+
|
|
|
+ !!This sets the "hotness catagory" varibale for use in checks
|
|
|
+ if temppcs_apprnc <= 200:
|
|
|
+ temphotcat = temppcs_apprnc / 20
|
|
|
else
|
|
|
- bodset = 1
|
|
|
+ temphotcat = 10
|
|
|
end
|
|
|
-end
|
|
|
|
|
|
-if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodset = 3:
|
|
|
- if PregChem > 6216:
|
|
|
- $body = $bodimgsets[((bodset * 10) + 8)]
|
|
|
- elseif PregChem < 2688:
|
|
|
- $body = $bodimgsets[(bodset * 10)]
|
|
|
- else
|
|
|
- $body = $bodimgsets[((bodset * 10)+((PregChem - 2184)/504))]
|
|
|
- end
|
|
|
-elseif salocatnow <= 7:
|
|
|
- $body = $bodimgsets[((bodset * 10) + salocatnow)]
|
|
|
-else
|
|
|
- $body = $bodimgsets[((bodset * 10) + 7)]
|
|
|
-end
|
|
|
+ result = tempHotcat
|
|
|
+ !! do not kill temppcs_apprnc this is used as a second returned variable set pcs_apprnc = temppcs_apprnc and kill temppcs_apprnc after calling it
|
|
|
+ killvar 'tempsupnatvnesh'
|
|
|
+ killvar 'temppcs_apprncbase'
|
|
|
+ killvar 'tempCloAdjustedBeauty'
|
|
|
+ killvar 'tempGroomingBonus'
|
|
|
+ killvar 'tempAccessoriesBonus'
|
|
|
+end
|
|
|
|
|
|
-!!Since "musle" is used all over the place
|
|
|
-musle = strenbuf
|
|
|
-
|
|
|
-
|
|
|
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
-
|
|
|
-!! kill temporary variables
|
|
|
-killvar'rand_pussy'
|
|
|
-killvar'rand_anus'
|
|
|
-killvar'rand_breasts'
|
|
|
-killvar'rand_hairmess'
|
|
|
-killvar'rand_hairword'
|
|
|
-killvar'rand_bangs'
|
|
|
-killvar'rand_hair'
|
|
|
-killvar'rand_hairstyle'
|
|
|
-killvar'rand_hairobject'
|
|
|
-killvar'rand_hairlength'
|
|
|
-killvar'rand_tongue'
|
|
|
-killvar'rand_lips'
|
|
|
-killvar'rand_lipgloss'
|
|
|
-killvar'rand_tan'
|
|
|
-killvar'rand_skin'
|
|
|
-killvar'rand_eyecol'
|
|
|
-killvar'rand_lashes'
|
|
|
-killvar'rand_vision'
|
|
|
-killvar'rand_eyesize'
|
|
|
-killvar'rand_makeup'
|
|
|
-killvar'rand_legs'
|
|
|
-killvar'rand_clit'
|
|
|
-killvar'rand_pubes'
|
|
|
-killvar'rand_nipples'
|
|
|
|
|
|
--- body ---------------------------------
|
KevinSmarts
rachels
Netuttki
hornguy6
philormand
rachels
Vengeance11