123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541 |
- # body
- if throat = 0:
- thpic = 0
- $throat = 'You have a chaste <a href="exec:view''images/body/th0.jpg''">mouth</a>.'
- $throattipe = 'absolutely unusual'
- elseif throat <= 5:
- thpic = 1
- $throat = 'You have an inexperienced <a href="exec:view''images/body/th1.jpg''">mouth</a>.'
- $throattipe = 'virgin'
- elseif throat <= 10:
- thpic = 2
- $throat = 'Your working mouth leads to a sensitive <a href="exec:view''images/body/th2.jpg''">throat</a>.'
- $throattipe = 'sensitive'
- elseif throat <= 15:
- thpic = 3
- $throat = 'You have an experienced mouth and slightly stretched <a href="exec:view''images/body/th3.jpg''">throat</a>.'
- $throattipe = 'slightly stretched'
- elseif throat <= 25:
- thpic = 4
- $throat = 'You have a capacious mouth and trained <a href="exec:view''images/body/th4.jpg''">throat</a>.'
- $throattipe = 'stretched'
- elseif throat <= 35:
- thpic = 5
- $throat = 'Your deep tunnel of a <a href="exec:view''images/body/th5.jpg''">throat</a> may adopt any member.'
- $throattipe = 'tinned'
- else
- thpic = 6
- $throat = 'Your gag reflex is completely absent and your <a href="exec:view''images/body/th6.jpg''">throat</a> is like a bottomless pit.'
- $throattipe = 'bottomless'
- end
- if fbreath = 1:$throat += ' Which smelled fresh and minty last time you checked.'
- if vagina = 0:
- puspic = 0
- $vagina = 'Your virgin <a href="exec:view''images/body/vag0.jpg''">pussy</a> still has a membrane.'
- $vaginatipe = 'virgin'
- elseif vagina <= 5:
- puspic = 1
- $vagina = 'You have a tight <a href="exec:view''images/body/vag1.jpg''">pussy</a>.'
- $vaginatipe = 'narrow'
- elseif vagina <= 10:
- puspic = 2
- $vagina = 'You have closed, similar to a slit <a href="exec:view''images/body/vag2.jpg''">vagina</a>.'
- $vaginatipe = 'close'
- elseif vagina <= 15:
- puspic = 3
- $vagina = 'You have a slightly stretched, elastic <a href="exec:view''images/body/vag3.jpg''">vagina</a>.'
- $vaginatipe = 'tight'
- elseif vagina <= 25:
- puspic = 4
- $vagina = 'You have a well-developed <a href="exec:view''images/body/vag4.jpg''">vagina</a>.'
- $vaginatipe = 'developed'
- elseif vagina <= 35:
- puspic = 5
- $vagina = 'Between your legs you have a gaping <a href="exec:view''images/body/vag5.jpg''">tunnel</a>.'
- $vaginatipe = 'broken-down'
- else
- puspic = 6
- $vagina = 'The fact is, in place of a pussy, you have a <a href="exec:view''images/body/vag6.jpg''">well</a> as deep as the Mariana Trench.'
- $vaginatipe = 'dimensionless'
- end
- if analplugIN = 0:
- if anus = 0:
- anpic = 0
- $anus = 'You have a virgin <a href="exec:view''images/body/0.jpg''">anus</a>.'
- elseif anus <= 5:
- anpic = 1
- $anus = 'Your <a href="exec:view''images/body/1.jpg''">anus</a> is barely used, and looking at it none would know it was used for sex.'
- elseif anus <= 10:
- anpic = 2
- $anus = 'Your <a href="exec:view''images/body/2.jpg''">anus</a> has the shape of an asterisk.'
- elseif anus <= 15:
- anpic = 3
- $anus = 'Your <a href="exec:view''images/body/3.jpg''">anus</a> is slightly parted, it has been used quite often.'
- elseif anus <= 25:
- anpic = 4
- $anus = 'Your <a href="exec:view''images/body/4.jpg''">anus</a> look like a wide hole, anyone would think that the only thing you do is anal sex.'
- elseif anus <= 35:
- anpic = 5
- $anus = 'Your <a href="exec:view''images/body/5.jpg''">anus</a> doesn''t fully close on its own anymore. You could put a fist through it and it wouldn''t stretch at all.'
- else
- anpic = 6
- $anus = 'Your <a href="exec:view''images/body/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
- end
- elseif analplugIN = 1 and tanga = 1:
- $anus = 'Your <a href="exec:view''images/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'
- elseif analplugIN = 1 and tanga = 0:
- if pirsG = 1 and pirsGL = 1:
- $anus = 'Your <a href="exec:view''images/picb/analplugpirscligub.jpg''">anus</a> is currently filled with your butt plug.'
- elseif pirsG ! 1 and pirsGL = 1:
- $anus = 'Your <a href="exec:view''images/picb/analplugpirsclit.jpg''">anus</a> is currently filled with your butt plug.'
- elseif pirsG = 1 and pirsGL ! 1:
- $anus = 'Your <a href="exec:view''images/picb/analplugpirsring.jpg''">anus</a> is currently filled with your butt plug.'
- else
- $anus = 'Your <a href="exec:view''images/picb/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
- end
- end
- !!!!!!!!!!!!!!!!
- !!!!!SIZE AND WEIGHT!!!
- !!!!!!!!!!!!!!!!
- if dounspell = 0:
- bedra = (rost * hratio) / 100 + vhips
- talia = (bedra * wratio) / 100 + vofat
- grutal = (talia * bratio) / 100 + vofat
- grudi = (talia * bratio) / 100 + nbsize + magicf2b + silicone
- titK = grudi - grutal
- if titK <= 5:
- tits = 0
- $titsize = 'A cup'
- elseif titK <= 10:
- tits = 1
- $titsize = 'B cup'
- elseif titK <= 15:
- tits = 2
- $titsize = 'C cup'
- elseif titK <= 20:
- tits = 3
- $titsize = 'D cup'
- elseif titK <= 25:
- tits = 4
- $titsize = 'E cup'
- elseif titK <= 30:
- tits = 5
- $titsize = 'F cup'
- elseif titK <= 35:
- tits = 6
- $titsize = 'G cup'
- elseif titK <= 40:
- tits = 7
- $titsize = 'H cup'
- elseif titK <= 45:
- tits = 8
- $titsize = 'I cup'
- elseif titK <= 50:
- tits = 9
- $titsize = 'J cup'
- else
- tits = 10
- $titsize = 'K cup'
- end
- !!!
- !!This sets weight
- ves = (rost * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
- else
- fat = 0
- bedra = bedraDoun
- talia = TaliaDoun
- grudi = talia + 14 + silicone + nbsize
- ves = TaliaDoun
- titK = grudi - talia
- if titK <= 10:
- tits = 0
- $titsize = 'A cup'
- elseif titK <= 15:
- tits = 1
- $titsize = 'B cup'
- elseif titK <= 20:
- tits = 2
- $titsize = 'C cup'
- elseif titK <= 25:
- tits = 3
- $titsize = 'D cup'
- elseif titK <= 30:
- tits = 4
- $titsize = 'E cup'
- elseif titK <= 35:
- tits = 5
- $titsize = 'F cup'
- elseif titK <= 40:
- tits = 6
- $titsize = 'G cup'
- elseif titK <= 45:
- tits = 7
- $titsize = 'H cup'
- elseif titK <= 50:
- tits = 8
- $titsize = 'I cup'
- elseif titK <= 55:
- tits = 9
- $titsize = 'J cup'
- else
- tits = 10
- $titsize = 'K cup'
- end
- end
- !!! Maruda Hair Mod
- if hairlength <= 80:
- hpigtail = 0
- hscrunchw = 0
- hpingripw = 0
- curly = 0
- hbraids = 0
- if hairlength <= 30 and hbangs = 1:hbangs = 0
- end
- if hairlength > 400:
- hpingripw = 0
- hbraids = 0
- end
- if hairlength > 400 and hpigtail >= 1:
- hscrunchw = 0
- hpigtail = 0
- end
- if hbraids >= 1:
- curly = 0
- hscrunchw = 0
- hpingripw = 0
- hbangs = 0
- hpigtail = 0
- end
- if hapri = 0:$hapri = '<b>tangled</b>. You should comb it to keep it healthy'
- if hapri = 1:$hapri = 'neatly arranged'
- if curly <= 0:$curly = 'straight, slightly wavy '
- if curly > 0:$curly = 'curly '
- if hbangs <= 0:$hbangs = ''
- if hbangs > 0:$hbangs = ', with a fringe covering your forehead'
- if hscrunchw <= 0:$hscrunch = ''
- if hscrunchw = 1:$hscrunch = ' A hair-tie holds your hair in place with a ponytail.'
- if hpingripw <= 0:$hpingrip = ''
- if hpingripw > 0:$hpingrip = 'The Hair-pins hold your hair in place in an updo hairstyle.'
- if hscrunchw <= 0:$hpigtail = ''
- if hscrunchw = 2:$hpigtail = ' Two scrunchies hold your hair in place in twin tail style.'
- if hbraids <= 0:$hbraids = ''
- if hbraids > 0:$hbraids = ' Your hair is beautifully braided.'
- if hcol = 0:$hcol = 'black'
- if hcol = 1:$hcol = 'brown'
- if hcol = 2:$hcol = 'red'
- if hcol = 3:$hcol = 'blonde'
- if avatar_hair = 1:
- $hair = $av_hair
- else
- if hairlength <= 30:$hair = 'You have very short <<$hcol>> hair. It doesn''t cover your ears, with some masculine complexions. One might mistake you for a man. Nonetheless, some people like this style as it''s easy to take care off.'
- if hairlength > 30 and hairlength <= 80:$hair = 'You have short <<$hcol>> hair which may cover your ears to the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
- if hairlength > 80 and hairlength <= 160:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair goes down to your chin line and can be considered of a medium length. It fits almost all face shapes. Your hair is at the moment <<$hapri>>. <<$hscrunch>><<$hpingrip>><<$hpigtail>>'
- if hairlength > 160 and hairlength <= 260:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair reaches your shoulders with several strains going beyond. Currently your hair is <<$hapri>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
- if hairlength > 260 and hairlength <= 400:$hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra strap line, hairdressers would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$hapri>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
- if hairlength > 400:$hair = 'You have very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>. <<$hscrunch>><<$hbraids>>'
- end
- !!! Maruda Hair Mod
- $milk_me = {
- cla
- *clr
- minut += 15
-
- if $location_type ! 'bathroom':
- 'You can''t use it here.'
- elseif lactatemv > 0 and pain['nipples'] < 60:
- '<center><img src="images/pics/pump_lactating.jpg"></center>'
- 'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.<br>You give it a few more pumps and detach the pump.<br>You filled the bottle with <<lactatemv>>ml of your milk.'
- breastcounter += 1
- lactatemv = 0
- if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
- breastpumped = 1
- temp = rand(0,1)
- if bcream_used = 1:temp += 1
- nipple_size += temp
-
- elseif lactate = 0 and pain['nipples'] < 60:
- if rand(1,100) + breastcounter >= rand(100,200):
- '<center><img src="images/pics/lactate_start.jpg"></center>'
- 'As usual, you attach the pump but after a few pumps white liquid suddenly starts spurting from your nipples.<br>You started lactating!'
- lactate = 1
- lactatemv = 0
- lactatemm = 10
- else
- 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.<br>A few droplets of liquid come out of your nipples but it is not milk.'
- breastcounter += 1
- if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
- breastpumped = 1
- temp = rand(0,1)
- if bcream_used = 1:temp += 1
- nipple_size += temp
- end
- else
- 'Your nipples feel too sore to use the pump right now.'
- end
- act 'Finish':gt $locM, $metkaM
- }
- !! Appearance factors and calculations
- if lip > 4:lip = 4
- if lip < 0:lip = 0
- if lipbalmstat > 0:
- if lip = 0:$lipbalmstat = ' shiny'
- if lip = 1:$lipbalmstat = ' shiny'
- if lip = 2:$lipbalmstat = ' brilliant and juicy'
- if lip = 3:$lipbalmstat = ' juicy'
- if lip = 4:$lipbalmstat = ' glossy'
- else
- $lipbalmstat = ''
- end
- if pirsA = 1:$pirsA = 'When you are talking to people, they can get a glimpse of your tongue piercing.'
- if pirsA ! 1:$pirsA = ''
- if pirsB = 1:$pirsB = 'You lower lip is pierced with a ring.'
- if pirsB ! 1:$pirsB = ''
- if lip = 0:$lip = 'You have thin<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
- if lip = 1:$lip = 'You have normal<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
- if lip = 2:$lip = 'You have plump<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
- if lip = 3:$lip = 'You have big, pouting,<<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
- if lip = 4:$lip = 'You have thick<<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
- if tan <= 0:$tan = 'pale'
- if tan > 0:$tan = 'tanned'
- if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
- if pirsC ! 1:$pirsC = ''
- if pirsD = 1:$pirsD = 'You have a nosering inserted in your nose.'
- if pirsD ! 1:$pirsD = ''
- if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
- if pirsE ! 1:$pirsE = ''
- if skinvan > 100: skinvan = 100
- if skinvan < 0: skinvan = 0
- if skinvan < 20:
- $skin = 'Your <<$tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
- elseif skinvan < 40:
- $skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
- elseif skinvan < 60:
- $skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
- elseif skinvan < 80:
- $skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
- else
- $skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
- end
- if glacol = 0:$glacol = 'brown'
- if glacol = 1:$glacol = 'gray'
- if glacol = 2:$glacol = 'green'
- if glacol = 3:$glacol = 'blue'
- if resnic > 2:resnic = 2
- if resnic = 0:$resnic = 'with short eyelashes'
- if resnic = 1:$resnic = 'normal eyelashes'
- if resnic = 2:$resnic = 'with long eyelashes'
- if brow = 0 and browper = 0:$brow = 'natural eyebrows'
- if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
- if glass <= 0:$glass = '' & glassvnesh = 0
- if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
- !!!CV edition: from glassvnesh = 5 to glassvnesh = 0
- if glass = 2:$glass = ' You wear glasses.' & glassvnesh = 0
- !!!
- if glaraz > 3:glaraz = 3
- if glaraz = 0:$glaza = 'You have little <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
- if glaraz = 1:$glaza = 'You have medium-sized <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
- if glaraz = 2:$glaza = 'You have large <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
- if glaraz = 3:$glaza = 'You have huge <<$glacol>> eyes that almost look like they''re out of an anime, <<$resnic>> and <<$brow>>.<<$glass>>'
- if mop = 0: mopkoef = -5 & $mop = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
- if mop = 1: mopkoef = 0 & $mop = 'You''re not wearing any kind of makeup'
- if mop = 2: mopkoef = 5 & $mop = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
- if mop = 3: mopkoef = 10 & $mop = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
- if mop = 4: mopkoef = 20 & $mop = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'
- if age < 18: leghair = -5
- if leghair <= 0: legkoef = 0 & $leghair = 'You have smooth legs.'
- if leghair > 0 and leghair <= 2: legkoef = 3 & $leghair = 'You can''t see any hair, but your legs are rough to the touch'
- if leghair > 2 and leghair <= 5: legkoef = 6 & $leghair = 'You clearly have visible thin hairs on the legs.'
- if leghair > 5: legkoef = 9 & $leghair = 'You have long hair standing out on your legs.'
- if pirsG = 1 and pirsGL ! 1:$pirspiz = 'There are several rings hanging from the lips of your vagina.'
- if pirsG ! 1 and pirsGL = 1:$pirspiz = 'A barbell is inserted into your clitoris.'
- if pirsG = 1 and pirsGL = 1:$pirspiz = 'You have a piercing through your clit and several rings hanging from your labia.'
- if clit_size < 20:$clitsize = 'You consider your <a href="exec:view''images/body/clit/clit1.jpg''">clitoris</a> to be of an average size.'
- if clit_size >= 20 and clit_size < 40:$clitsize = 'You feel your <a href="exec:view''images/body/clit/clit2.jpg''">clitoris</a> is somewhat on the large side.'
- if clit_size >= 40 and clit_size < 60:$clitsize = 'Your <a href="exec:view''images/body/clit/clit3.jpg''">clit</a> is quite large.'
- if clit_size >= 60 and clit_size < 80:$clitsize = 'You have a big <a href="exec:view''images/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
- if clit_size >= 80:$clitsize = 'Your <a href="exec:view''images/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'
- ! WD: Move missing Image ~ "pussy.jpg" from "images/picb" to "images/body"
- if lashair = 1:$lobok = 'You have a smooth, <a href="exec:view''images/body/pussy.jpg''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
- if lashair = 0 and lobok <= 0:lobkoef = 3 & $lobok = 'You have a smoothly <a href="exec:view''images/body/pussy.jpg''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
- if lashair = 0 and lobok > 0 and lobok <= 2:lobkoef = 0 & $lobok = 'You have light but visible hair above your <a href="exec:view''images/body/spussy.jpg''">crotch</a>. <<$pirspiz>><br><<$clitsize>>'
- if nipple_size < 20:$nipplesize = 'You have average <a href="exec:view''images/body/nipples/nipples1.jpg''">nipples</a>.'
- if nipple_size >= 20 and nipple_size < 40:$nipplesize = 'Your <a href="exec:view''images/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
- if nipple_size >= 40 and nipple_size < 60:$nipplesize = 'You have large, puffy <a href="exec:view''images/body/nipples/nipples3.jpg''">nipples</a>.'
- if nipple_size >= 60 and nipple_size < 80:$nipplesize = 'Your <a href="exec:view''images/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
- if nipple_size >= 80:$nipplesize = 'You have huge <a href="exec:view''images/body/nipples/nipples5.jpg''">nipples</a>.'
- ! WD: Move missing Image ~ "hpussy.jpg" from "images/picb" to "images/body"
- if lobok > 2:lobkoef = 0 & $lobok = 'You have a full triangle of thick <a href="exec:view''images/body/hpussy.jpg''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
- If dounspell = 1:
- bodytipe = bedra - talia
- if bodytipe < 20: bodykoef = 0
- if bodytipe >= 20 and bodytipe < 25: bodykoef = 2
- if bodytipe >= 25 and bodytipe < 30: bodykoef = 4
- if bodytipe >= 30 and bodytipe < 35: bodykoef = 8
- if bodytipe >= 35: bodykoef = 4
- end
- if tan > 0:tanKoef = 1
- if tan = 0:tanKoef = 0
- !! buzzcut penalty to vnesh
- if hairlength < 10:
- hairkoef = 10
- else
- hairkoef = 0
- end
- if sweat < 22:
- sweatKoef = 0
- elseif sweat < 38:
- sweatKoef = (sweat - 10) / 4
- elseif sweat < 54:
- sweatKoef = (sweat - 10) / 2
- else
- sweatKoef = 3 * (sweat - 10) / 4
- end
- if lipbalmstat > 0:
- lipbalmKoef = 5
- else
- lipbalmKoef = 0
- end
- !!This is to force a base update if teeth changed since that is immediate
- if zublast ! zub:
- gs 'body_shape', 'basebeautycalc', 1
- zublast = zub
- end
- !!Clothing appearance factors to appearance; bonusZ = coat (if cold); PXClo variables, see "clothing"
- CloAdjustedBeauty = bonusZ + vneshbase * (PXCloThinness + PXCloTopCut + PXCloSkirtShortness + PXCloPantsShortness) / 1500
- !!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / hapri = Hair brushed / lipbalmKoef = lip balm / fbreath = freash breath / sweatKoef = sweat / glassvnesh = glasses / dyevmod = hair dye fading
- !!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; lip = lip size; skin = skin condition; resnic = eyelashes; glaraz = eyes; bodykoef = hips:waist ratio; zub = missing teeth; vidagebonus = youth
- !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
- vnesh = vneshbase + CloAdjustedBeauty + mopkoef + (hapri * 10) + lipbalmKoef + (fbreath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef
- if vnesh >= 200: vnesh = 200 + supnatvnesh
- if vnesh < 0: vnesh = 0
- !!This sets the "hotness catagory" varibale for use in checks
- if vnesh <= 200:
- hotcat = vnesh / 20
- else
- hotcat = 11
- end
- if StrongNarkota <= 0:
- if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
- if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:vnesh = -10
- end
- if StrongNarkota > 0:
- if SLomka > 0:SLomka = 0
- manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
- end
- if vnesh = -10:
- $vnesh = 'Your looks are even worse than terrible. It''s terribad. No one wants to see or talk to you and people avoid you at any cost.'
- elseif vnesh < 20:
- $vnesh = 'Your looks are terrible. People try to avoid looking and talking to you.'
- elseif vnesh < 60:
- $vnesh = 'You''re a wallflower. Hardly anyone notices you.'
- elseif vnesh < 120:
- $vnesh = 'You have good looks. Men and women check you out when they think you aren''t looking.'
- elseif vnesh < 200:
- $vnesh = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
- else
- $vnesh = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !!!!!!!!BODY
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- If dounspell = 1:
- musle = strenbuf + vitalbuf
- elseif normbuffpick = 2:
- musle = salo + 1
- else
- musle = salo - 1
- end
- if musle >= salo:
- !!muscular type
- if bedra < 60:
- $body = 'You are very thin with virtually no fat on your body, your muscles show through the skin.'
- elseif bedra >= 60 and bedra < 70:
- $body = 'You are really thin and there is little fat on your body, your muscles show through the skin.'
- elseif bedra >= 70 and bedra < 80:
- $body = 'You are and there is little fat on your body, your muscles show through the skin.'
- elseif bedra >= 80 and bedra < 90:
- $body = 'You are thin and there is little fat on your body, your muscles show through the skin.'
- elseif bedra >= 90 and bedra < 100:
- $body = 'You are thin and there is little fat on your body. Large muscles show through your skin.'
- elseif bedra >= 100 and bedra < 110:
- $body = 'You have little fat on your body, Large muscles show through your skin.'
- elseif bedra >= 110 and bedra < 120:
- $body = 'You have little fat on your body. Massive muscles show through your skin.'
- elseif bedra >= 120:
- $body = 'You have little fat on your body. Massive muscles show through your skin.'
- end
- else
- !!bold type
- if bedra < 60:
- $body = 'You are very lean and have virtually no muscle.'
- elseif bedra >= 60 and bedra < 70:
- $body = 'You have a very thin body with a small soft booty and have virtually no muscle.'
- elseif bedra >= 70 and bedra < 80:
- $body = 'You have a very skinny body.'
- elseif bedra >= 80 and bedra < 90:
- $body = 'You have a slender body.'
- elseif bedra >= 90 and bedra < 100:
- $body = 'You have a curvy body.'
- elseif bedra >= 100 and bedra < 110:
- $body = 'You have a chubby body.'
- elseif bedra >= 110 and bedra < 120:
- $body = 'You have a plump body.'
- elseif bedra >= 120:
- $body = 'You are very fat.'
- end
- end
- $fat = $body
- --- body ---------------------------------
|