# start
killall
close all
!addqst 'car.qsp'
usehtml = 1
debug = 1
showstat 0
showobjs 0
showinput 0
disablescroll = 1
!nosave 0
$ongload = 'loadg'
$ongsave = 'saveg'
$onnewloc = 'LOCA'
$onobjsel = 'onobjsel'
$counter = 'counter'
$usercom = 'inputProcessing'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
$fname = 'Tahoma'
fsize = 12
$version = '0.2.5e (Minor G & M bugfix) (If you haven''t updated your image library recently, you may need to do so for hairstyles to work properly)'
*nl
*nl
'
'
'Girl Life [English Community Version]
'
*nl
'This is game is based on the russian game ЭТО by DeGross.'
*nl
'
'
*nl
'Version <<$version>>'
*nl
*nl
'Children under 18 years are strictly forbidden to play'
*nl
*nl
'This game is about the simulated life of a woman containing elements of RPG, strategy, porn and magical combat.'
'You may choose what kind of life the character will leave according to your play style, conscience or even personal beliefs.'
'We will try to avoid rights and wrongs during the game.'
!!!! Recent Version Tracking Block !!!!!
*nl
'Recent Version Tracking:'
*nl
"0.2.5e"
'- Fixed bug making G & M officewear un-buyable'
'- Fixed bang-less buns not calling images correctly'
'- Updated start-selection screen to be actually relevant'
*nl
'0.2.5d:'
'- Fixed a bug that prevented you to work as a Prostitute at the street near the park'
'- Created subfolders for the different hairstyles. It makes it easier to find missing pictures or replace them. (Image library update!)'
*nl
'0.2.5c (released by TFGS-User centerflag982, accidently named 0.2.5b aswell):'
'- Fixed a bug, that prevented your from removing your pigtails.'
*nl
'0.2.5b (released by TFGS-User Maruda):'
'- Added the Hairsalon in the Citycenter and the Barbershop in the small town.'
'- Fixed a bug with the tailor, who bought some of your clothes instead of resizing them.'
*nl
'0.2.5a:'
'- Fixed a bug, which didn''t allow you to see your breasts.'
'- Fixed a bug, which caused a DEBUG-Error to appear at the tailor and the nightclub.'
*nl
'0.2.5:'
'- Added a lot more hairstyles'
'-- For the numberphiles between you, there are 216 ways to style your hair, 175 have pictures.'
'-- Cheat Menu to tinker around with your hair, it also tells you how your current hair looks.'
'- Added the Hairsalon in the Mall'
'- Added the Barbershop in the small town, cheaper & faster than the hairsalon, but doesn''t do braided hair'
'- While I''m not a native english speaker, I tried to fix some of the broken english'
'-- Done in following locations: street, down, Nord, club, park'
'- Additional conditions to get into the club.'
'-- Jeans, Shorts, Pants and Kis-Clothes can get you in.'
'--- Jeans, Shorts and Pants require a certain level of looks/beauty (vnesh) to get you in.'
'---- When you wear a skirt or shorts, you now should make sure, you shaved your legs. The folks guarding the entrance don''t like hairy legs.'
'- Excluded the rape events at the home street for now.'
'- VIP-Card price at the night club lowered from 50.000 to 10.000 rubles, as the price of one card stood in no, for me at least, comprehensible relation to other prices.'
'- The park is now a central park, from where you can walk to the others citys districts if you so desire.'
'-- Homestreet -> Park => roughly 20 Minute Walk'
'-- City Center -> Park => roughly 48 Minute Walk'
'-- Northern District -> Park => roughly an hour of walking.'
'--- Once you are in the park, it takes the same amount of time to get to another respectable area.'
'- Excluded the direction argument ''prost'' inside the location ''park'', as nothing links to it (anymore). Prostitution itself takes place in a location called ''prostitute''. ''prost'' seems to be the remnant of an older version of ETO. It should be safe to remove, if no gamebreaking bugs appear.'
'- TFGS-user "kevlar" pointed out a bug in the fitness studio, you get a Debug-Message once you win the amateur fight. This bug occured due to a spelling mistake and has been fixed.'
!!!! Recent Version Tracking Block !!!!!
StoryLine = 0
MagikDostup = 0
$name = 'Michael'
$surname = 'Kuznetsov'
age = 35
vidage = 35
year = 2010
month = 5
week = 1
hour = 7
day = 25
!!body
rost = 186
fat = 130
dick = 0
energy = 15
water = 15
son = 16
!!stats
stren = 160
speed = 50
agil = 50
vital = 160
intel = 50
will = 100
react = 50
health = vital * 10
willpower = intel * 5 + will * 5
manna = (intel * magik) + vital * 5
BDSMfilm = 0
pornstudio = 0
pfilmSTOP = 0
money = 1500
opPRE = 1
tanga = 1
clrbelo = 1
GameUpdate = 1
update_2014_08_28 = 1
act 'Start':
cla
gt 'begin'
end
if music_on = 0:
inited = 1
music_on = 1
volume = 100
$music_theme = 'sukizaebali'
gs 'init_music'
end
--- start ---------------------------------
# gameover
'GAME OVER'
if over = 1:
gs 'stat'
'You died'
elseif over = 2:
'
'
'You''re mad and started to run around town naked screaming "I am a man!". You quickly alerted the police and you were taken to a metal hospital. There you got put in a straitjacket and placed in a room with soft walls. You spent the rest of your days in happy delusions about your family and about being a man again. But the delusions never became reality.'
*nl
'Hint:'
'When your mood falls, your mind weakens and finally breaks. Do not forget, it is difficult for a normal man to come to terms with the fact that he is now a woman. In order to keep your mood and psyche at an acceptable level make sure you are of healthy weight, have at least a TV and visit the psychotherapist. Strengthening your will and intellect also increases the maximum value of your mood, such that the harmful effects will not be as devastating.'
elseif over = 3:
'You have died of starvation. A stupid way to die, but apparently it''s one of the consequences of anorexia.'
elseif over = 4:
'You died from complications in childbirth.'
elseif over = 5:
'You tried to jump, but immediately found themselves in a strange place around some dilapidated walls with obscene graffiti, you could not move do not cry, when suddenly the door opened and entered what that fat guy, he undid his pants and turned his back to you situated above you your ass. Here you''ve got it, witch kept her promise and turned you into a jerk at the station.'
'So you spent the rest of your days swallowing shit until 50 years later, the train station is not started to repair and you just broke and took the pieces to the dump.'
elseif over = 6:
'You suddenly feel a sharp piercing pain in the abdomen, then another and another. "Greetings to you from the boys" says a figure with downcast eyes while it moves away. You realize you are standing in a puddle of your own blood, and have multiple stab wounds in your stomach. The last thing you saw was the fast approaching land.'
elseif over = 7:
'The last thing you saw was a police baton, flying into your face. You were beaten to death, and your early surmise was written in as an accident.'
elseif over = 8:
'
'
'"At some point in time you can turn off this path ?" - you are trying to understand, mouth open under another batch of golden rain or Cum. And, without finding an answer, regularly swallow all.'
end
act 'End?':gt 'gameover', 'endscreen'
if $ARGS[0] = 'endscreen':
showstat 0
showobjs 0
showinput 0
fcolor = RGB(255,255,255)
bcolor = RGB(0,0,0)
lcolor = RGB(106,90,205)
cls
cla
if over = 8:
*nl & *nl
'end
'
'Open-ended - heroin whore!
'
*nl & *nl
'
'
else
*nl & *nl & *nl & *nl & *nl & *nl & *nl & *nl & *nl & *nl
'end
'
end
act 'Main menu':gt 'start'
act 'Upload preservation':opengame
act 'Download the latest cars-preservation':gt 'gameover', 'load_autosave'
end
if $ARGS[0] = 'Load autosave':
if StoryLine = 0:
opengame 'autosave.sav'
else
opengame 'autosave_alt.sav'
end
end
--- gameover ---------------------------------
# begin
'CHOOSE GAME START'
*nl
'Original Start:'
'You are Michael Kuznetsov, a fairly average, 35 year old businessman whose life is about to be turned inside out. Features magic and an (incomplete) over-arching plot. Beware of unintelligible translations.'
*nl
'Alternate Start:'
'You are a 15-year-old small-town girl about to start her first year of high school. Name and starting stats are customizable, no magic and no major ''plot'' other than life. Not to say that your classmates and family don''t have their own stories, though!'
act 'Original start':
cla
music_on = 0
showstat 1
showobjs 1
addobj 'Player'
gt 'roomPRE'
end
act 'Original start (skip intro)':
music_on = 0
gs 'begin1'
gt 'street'
end
act 'Start the alternative game':
cla
gt 'alterStart'
end
--- begin ---------------------------------
# begin1
showstat 1
showobjs 1
$name = 'Svetlana'
$surname = 'Lebedev'
!!!0.2.6 addition
$nickname = 'Svetski'
!!!
$name = input("What is your first name?")
if $name = '':$name = 'Svetlana'
$surname = input("What is your last name?")
if $surname = '':$surname = 'Lebedev'
!!!0.2.6 addition
$nickname = input("What is your nick name?")
if $nickname = '':$nickname = 'Svetski'
!!!
age = 18
vidage = 16
year = 2010
month = 5
week = 3
hour = 13
!!body
rost = 170
fat = 60
salo = 60
dick = 0
energy = 15
water = 15
son = 16
!!stats
stren = 10
strenbuf = 10
speed = 10
agil = 10
agilbuf = 10
vital = 10
vitalbuf = 10
intel = 10
will = 10
react = 10
magik = 0
health = vital * 10 + stren * 5
willpower = intel * 5 + will * 5
manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
nastjaQW = 0
money = 16500
vidageday = 300
housrA = 1
sarafan[1] = 1
sarafanH[1] = 30
nude = 0
odevnesh = 0
lobok = 3
leghair = 3
mop = 1
housr = 1
tanga = 1
!!!!!!!!!!!!!! Maruda Hair Mod
hairlength = 165
!!!!!!!!!!!!!! Maruda Hair Mod
hcol = 1
clr
gs 'stat'
numdres = 1
odetjeans = 1
numdress = 1
jeans[1] = 1
jeansH[1] = 100
jeansB[1] = 70
cltarelka = 1
fairy = 10
eda = 5
clrbelo = 2
poroshok = 5
shampoo = 5
clr
gs 'stat'
opPRE = 0
daystart = 0
addobj 'Character'
addobj 'See'
addobj 'Others'
addobj 'Menu'
--- begin1 ---------------------------------
# onobjsel
$din_show_tits = {
view
view 'images/body/t<>.jpg'
}
!!$objbody
$objdescrip = {
clr
pl 'Your name is <<$name>> <<$surname>>.'
pl 'You are <> <<$letgoda>>, but looking at you, people would guess you are <> <<$letgoda2>>.'
!!!0.2.6 extension
if StoryLine > 0:
pl 'Friends and family sometimes call you <<$nickname>>'
else
pl 'Friends sometimes call you <<$nickname>>'
end
!!!
if birthday > 0 and birthmonth > 0:pl 'Your date of birth is <>.0<>.<>, the'
pl 'You are <> cm tall, you weigh <> pounds.'
pl '<<$body>>'
pl '<> - <> - <> , the size of your breasts are <>, the difference between your hips and your waist is <> cm'
pl '<<$anus>>'
pl '<<$vnesh>>'
pl '<<$hair>>'
pl '<<$lip>>'
pl'<<$throat>>'
pl '<<$skin>>'
pl '<<$glaza>>'
pl '<<$mop>>'
pl '<<$leghair>>'
pl '<<$lobok>>'
pl'<<$vagina>>'
nl
if salo = 0 and musle > 0 and dounspell = 0:pl 'You are showing signs undernourishment. You should probably eat more and more often.'
if salo = 0 and musle = 0 and dounspell = 0:pl 'You are dangerously malnourished, which has led to a loss in muscle mass. You''re in a critical condition and likely to pass out!'
if curly > 0:pl 'Your curls are good for another <> days.'
if zub = 1:$zuba = ' tooth'
if zub >= 2:$zuba = ' teeth'
if zub > 0:pl 'You have <><<$zuba>>.'
!!pl 'vnesh <>'
!!pl 'curlykoef <> a maximum of 1'
!!pl 'tits <> A maximum of 6'
!!pl 'lip <> a maximum of 4'
!!pl 'tanKoef <> a maximum of 1'
!!pl 'skin <> a maximum of 4'
!!pl 'mop <> a maximum of 4'
!!pl 'resnic <> a maximum of 2'
!!pl 'glaraz <> a maximum of 3'
!!pl 'bodykoef <> a maximum of 8'
!!pl 'legkoef <> a maximum of 3'
!!pl 'lobkoef <> a maximum of 3'
!!pl 'odevnesh <> a maximum of 15'
!!pl 'sweat <> the maximum 0'
!!pl 'hapri <> a maximum of 1'
!!!!!!!! Maruda Hair Mod
if hairlength > 41 and hscrunch >= 1:
if hscrunchw = 0 and hpingripw = 0:pl 'As you have a scrunchy, you can arrange your hair into a ponytail. You have <> scrunchies left.'
if hscrunchw = 1:pl 'Remove the scrunchie to get rid of the ponytail.'
end
if hairlength > 41 and hpingrip >= 1:
if hscrunchw = 0 and hpingripw = 0:pl 'You have several clips, pins and grips for you hair. Hence, you can updo your hair. You have <> hair accessories at your disposal.'
if hpingripw = 1:pl 'Let your hair flow free.'
end
if hairlength > 80 and hscrunch >= 2:
if hscrunchw = 0 and hpingripw = 0:pl 'You can use two hair ties to make yourself some pigtails.'
if hscrunchw = 2:pl 'Remove your scrunchies and let your hair flow free again.'
end
if hscrunch < 1:hscrunchw = 0
if hpingrip < 1:hpingripw = 0
if hscrunch < 2:hpigtail = 0
!!!!!!!! Maruda Hair Mod
}
$objskills = {
clr
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1remake
!!if salo > musle * 4:$fat = 'You have a chubby disposition'
!!if salo <= musle * 4 and fat > musle * 2:$fat = 'You have a soft curvy body that still carries an elastic finesse.'
!!if salo <= musle * 2 and fat > musle:$fat = 'You have an average body showing signs that you take care of yourself.'
!!if salo <= musle and fat >= musle / 2:$fat = 'Your body is slim and trim. You probably workout often '
!!if salo < musle / 2:$fat = 'Your body is a prayer to the god of fitness! Your skin is taught against your lithe musculature.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
pl 'Attractiveness <>'
pl 'Power <>'
pl 'Speed <>'
pl 'Agility <>'
pl 'Endurance <>'
pl 'Intelligence <>'
pl 'Willpower <>'
pl 'Reaction <>'
pl '<<$fat>>'
!!pl 'Bezstydstvo <>'
if SUB > 0:pl 'Subordination <>'
if DOM > 0:pl 'Dominance <>'
!!pl 'Muscles <<$musle>>'
if magik > 0:pl 'Magic <>'
if Jab > 0:pl 'Jab - <>'
if Punch > 0:pl 'Power Strikes - <>'
if Kik > 0:pl 'Kicks - <>'
if KikDef > 0:pl 'Protection against - <>'
if beg > 0:pl 'Skill Run - <>'
if volleyboll > 0:pl 'Skill volleyball - <>'
if oficiant > 0:pl 'Skills waitresses - <>'
if vokal > 0:pl 'Vocal skills <>'
if dance > 0:pl 'Skill Dance - <>'
if dancePRO > 0:pl 'Regular dancing skilllevel - <>'
if stripdance > 0:pl 'Striptease skilllevel - <>'
if poledance > 0:pl 'Poledancing skilllevel- <>'
if shoot > 0:pl 'Shooting Accuracy - <>'
if kid = 1:pl 'You have a child, <<$polreb[1]>> name <<$kidname[1]>>. Born <>.<>.<>y. Age <>'
if workPTU > 1:pl'Reputation teachers <>'
if SchoolAtestat = 0 and StoryLine > 0:
if Suspeh >= 90:pl 'You are an A+ student.'
if Suspeh >= 80 and Suspeh < 90:pl 'You are a bright student, just not the top of your class.'
if Suspeh >= 70 and Suspeh < 80:pl 'You are an above average student, but you have to work hard to keep up.'
if Suspeh >= 60 and Suspeh < 70:pl "You are the typical average student. You're good in the fields you like, but can't be bothered with the rest."
if Suspeh >= 50 and Suspeh < 60:pl 'You''re not very good in school, you wish you could be somewhere else and your grades show it.'
if Suspeh >= 40 and Suspeh < 50:pl 'You are not cut out for school, you skip out most of the time. You wonder how you''re going to manage to get passing grades.'
if Suspeh < 40:pl 'You are the class nitwit. You''re still not sure how you got this far in the first place.'
if schoolprogul > 1:pl 'Absenteeism in school <>'
end
}
$objstatistika = {
clr
if opPRE = 0:pl 'It has been <> the game has started.'
if BuyHous = 2 and ArendHouseSL >0:pl 'You have rented an apartment in the residential area <> days.'
if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
pl 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
pl '<> (<>KO) - <> (<>KO) - <>'
nl
end
if Win > 0 or Loss > 0:pl 'Wins in fights <>, losses in fights <>' & nl
if KisameDead = 1:pl 'You killed Kisame.'& nl
if razradKik > 0:pl'<<$razradKik>>'
if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
pl 'Amateur Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
pl '<> (<>KO) - <> (<>KO) - <>'
nl
end
if razradKik > 0:
if razradKik = 1:$razradKik = 'You''re ranked III in amateur kickboxing'
if razradKik = 2:$razradKik = 'You''re ranked II in amateur kickboxing'
if razradKik = 3:$razradKik = 'You''re ranked I in amateur kickboxing'
if razradKik = 4:$razradKik = 'You are a candidate for the title of Master in Kickboxing'
if razradKik = 5:$razradKik = 'You have the title of Master Kickboxer'
nl
end
if kolsorev > 0:pl 'You have participate <> in a running race'
if bronzebeg > 0:pl '<> - bronze medals on the run'
if silverbeg > 0:pl '<> - silver medals for event'
if goldbeg > 0:pl '<> - gold medals in running'
if razradbegEB > 0:pl '<> times bronze medalist of European Championship'
if razradbegES > 0:pl '<> fold vice champion of Europe'
if razradbegEG > 0:pl '<> time European champion.'
if razradbeg > 0:
if razradbeg = 1:pl 'You have third sports category for event'
if razradbeg = 2:pl 'You 2nd sports category for event'
if razradbeg = 3:pl 'You 1st sports category for event'
if razradbeg = 4:pl 'You have the title of Candidate Master of Sports for event'
if razradbeg = 5:pl 'You have the title of Master of Sports in the run'
if razradbeg >= 6:pl 'You have the title of International Master of Sports for event'
nl
end
if nastjaQW > 0:pl 'Friendship with Nastya <>'
if kat > 0:pl 'Friendship with Kate <>'
if vika > 0:pl 'Friendship with Vika <>'
if Irina > 0:pl 'Friendship with Irene <>'
if Tamara > 0:pl 'Friendship with Tamara <>'
if alla > 0:pl 'Friendship with Alla <>'
if masha > 0:pl 'Friendship with Masha <>'
if Givi > 0:pl 'Friendship Givi K. <>'
if Ashot > 0:pl 'Friendship with Ashot <>'
if Dmitry > 0:pl 'Friendship with Dima <>'
if afra > 0:pl 'Friendship with blacks <>'
!!!WD: Formatting
if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0:nl
!!!
if exhibi > 0:pl 'Experienced exhibitionism <>'
if maxdamage > 0:pl 'The impact force on the dynamometer <> kN' & nl
if modelfoto > 0:pl 'You filmed naked <> times'
if stripdancesum > 0:pl '<> times dancing in the stripclub'
if profiDanceTime > 0:pl 'You danced <> professionally.'
if SchoolAtestat = 1:pl 'You have finished school.'
if diplom = 1:pl 'You graduated.'
if teachlevel > 0:pl 'Your credibility as a teacher is <>'
!!!WD:FORMATING
if (exhibi + maxdamage + modelfoto + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:nl
!!!
if mastr > 0:pl 'Masturbated <> time'
if throat > 0:pl 'Capacity of the throat <>'
if vagina > 0:pl 'Elasticity of the vagina <>'
if vagina = 0 and sex = 0:pl 'You are a virgin.'
if anus > 0:pl '<<$anus>>'
nl
if GorSlut > 0:
if GorSlut = 1:pl 'In the town you are known as a flirt.'
if GorSlut = 2:pl 'In the town you are known to have sucked a few cocks.'
if GorSlut = 3:pl 'In the town you are known as a great cocksucker.'
if GorSlut = 4:pl 'In the town you are known to have fucked several boys.'
if GorSlut = 5:pl 'In the town you are known the slut that would do anything.'
if GorSlut = 6:pl 'In the town you are known as a prostitute who will take money for most extreme sex acts.'
nl
end
if guy > 0:pl 'You had <> guys.'
if divorced > 0:pl 'You have <> husbands.'
if suprdolg > 0:pl 'Performed conjugal duty to her husband <> time'
if gang > 0:pl 'Group sex <> times'
if sex > 0 and sexa = 0:pl 'Vaginal sex <> times.'
if sex > 0 and sexa > 0:pl 'Vaginal sex <> times from them <> times with her boyfriend.'
if bj > 0:
if gloryhole = 0 and balls = 0 and bja = 0:pl 'Blowjob done <> times.'
if gloryhole = 0 and balls = 0 and bja > 0:pl 'Blowjob done <> times, of which <> times her boyfriend'
if gloryhole > 0 and balls = 0 and bja = 0:pl 'Blowjob done <> times, of which you <> time suck strangers through a hole in the wall.'
if gloryhole > 0 and balls = 0 and bja > 0:pl 'Blowjob done <> times, of which you <> time suck strangers through a hole in the wall. Just one <> times her boyfriend'
if gloryhole = 0 and balls > 0 and bja = 0:pl 'Blowjob done <> times, sucked balls <> times.'
if gloryhole = 0 and balls > 0 and bja > 0:pl 'Blowjob done <> times, sucked balls <> times. Just one <> times her boyfriend'
if gloryhole > 0 and balls > 0 and bja = 0:pl 'Blowjob done <> times, of which you <> time suck strangers through a hole in the wall. Sucked balls <> times.'
if gloryhole > 0 and balls > 0 and bja > 0:pl 'Blowjob done <> times, of which you <> time suck strangers through a hole in the wall. Sucked balls <> times. Just one <> times her boyfriend'
end
if hj > 0:
if hja = 0:pl 'Guys jerking off <> times'
if hja > 0:pl 'Guys jerking off <> times from them <> times masturbate her boyfriend'
end
if hump > 0:pl 'About you wanker member <> times'
if rape > 0:pl 'You have been raped <> times'
if anal > 0:
if anala = 0:pl 'Anal <> times'
if anala > 0:pl 'Anal <> times from them <> times with her boyfriend'
end
if kuni > 0:pl 'You did cunnilingus <> times'
if pegging > 0:pl 'Pegging <> times'
if spank > 0:pl 'You ran your ass <> times'
!!!WD:FORMATING
if (guy + divorced + suprdolg + gang + sex + bj + hj + hump + rape + anal + kuni + pegging + spank) > 0:nl
!!!
if slutty > 0:
if bordelslutty = 0:pl 'Sold your love <> time.'
if bordelslutty > 0:pl 'Sold your love <> times, including in a brothel <> times.'
end
if pfilmSTOP = 1:pl '<<$pfilmstory_new>>'
if film > 0:
pl 'In the porn industry you know the name of <<$pfname>>. You starred in porn <> times.'
pl '<<$pfilmhistory>>'
nl
end
if orgasm > 0:pl'Experienced orgasm <> times.'
if analorgasm > 0 :pl 'You''ve had <> anal orgasms.'
if swallow > 0:pl 'Sperm swallowed <> times.'
if facial > 0:pl 'You have taken <> facials.'
if frot > 0:pl 'Come on you truck <> times.'
if VAF > 0:pl 'Vaflizm <>.'
if zoo > 0:pl 'Having sex with animals <> times.'
if pee > 0:pl 'You pissing <> times.'
if swallowpee > 0:pl'You swallow urine <> time.'
!!!WD:FORMATING
if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + VAF + zoo + pee) > 0:nl
!!!
if girl > 0:pl 'You have <> girls.'
if lesbian > 0:pl 'You do lecbiyskim sex <> times.'
if sexfuta > 0:pl 'You''ve had sex with tgirls <> times.'
}
$din_exhibiTakeOffBimbo = {
cloth_vid = 0
gs 'stat'
'You removed the outfit bimbo'
}
$din_exhibiHideNewCloth = {
exhibiHideNewCloth = 1
gs 'stat'
}
$din_cheat_work = {
if cheatWork = 0:
cheatWork = 1
dynamic $din_cheat_menu_permanent
exit
elseif cheatWork = 1:
cheatWork = 0
dynamic $din_cheat_menu_permanent
end
}
$din_cheat_hapri = {
if cheatHapri = 0:
cheatHapri = 1
gs 'stat'
dynamic $din_cheat_menu_permanent
exit
else
cheatHapri = 0
dynamic $din_cheat_menu_permanent
end
}
$din_cheat_klisma = {
if cheatKlisma = 0:
cheatKlisma = 1
dynamic $din_cheat_menu_permanent
exit
elseif cheatKlisma = 1:
cheatKlisma = 0
dynamic $din_cheat_menu_permanent
end
}
$din_cheat_nomakeup = {
if cheatNomakeup = 0:
cheatNomakeup = 1
dynamic $din_cheat_menu_permanent
exit
else
cheatNomakeup = 0
dynamic $din_cheat_menu_permanent
end
}
$din_cheat_Nosweat = {
if cheatNosweat = 0:
cheatNosweat = 1
dynamic $din_cheat_menu_permanent
exit
else
cheatNosweat = 0
dynamic $din_cheat_menu_permanent
end
}
$din_cheat_NoEat = {
if cheatNoEat = 0:
cheatNoEat = 1
dynamic $din_cheat_menu_permanent
exit
else
cheatNoEat = 0
dynamic $din_cheat_menu_permanent
end
}
$din_cheat_age = {
age = input("How old are you in years?")
if age <= 15:age = 15
dynamic $din_cheat_menu_look
}
$din_cheat_agel = {
vidage = input("How old do you want to look?")
if vidage <= 14:vidage = 14
dynamic $din_cheat_menu_look
}
$din_cheat_money = {
money = input("How much money do you want to have?")
if money < 0:money = 0
dynamic $objcheat_menu
}
$din_cheat_menu_permanent = {
gs 'stat'
clr
if cheatWork = 0:$cheatWork = 'TURNED_OFF'
if cheatWork = 1:$cheatWork = 'ON'
if cheatHapri = 0:$cheatHapri = 'TURNED_OFF'
if cheatHapri = 1:$cheatHapri = 'ON'
if cheatKlisma = 0:$cheatKlisma = 'TURNED_OFF'
if cheatKlisma = 1:$cheatKlisma = 'ON'
if cheatNomakeup = 0:$cheatNomakeup = 'TURNED_OFF'
if cheatNomakeup = 1:$cheatNomakeup = 'ON'
if cheatNosweat = 0:$cheatNosweat = 'TURNED_OFF'
if cheatNosweat = 1:$cheatNosweat = 'ON'
if cheatNoEat = 0:$cheatNoEat = 'TURNED_OFF'
if cheatNoEat = 1:$cheatNoEat = 'ON'
pl 'cheat menu'
pl ''
pl 'Disable the requirement of labor: <<$cheatWork>>'
pl 'always combed: <<$cheatHapri>>'
pl 'Always do an enema: <<$cheatKlisma>>'
pl 'Cosmetics never smeared: <<$cheatNomakeup>>'
pl 'Never sweat: <<$cheatNosweat>>'
pl 'Never eat or drink: <<$cheatNoEat>>'
}
$din_cheat_menu_look = {
gs 'stat'
clr
pl 'cheat menu'
pl ''
pl 'Show design parameters of the body'
pl ''
pl 'now you <> years_old'
if age >= 0:pl'change age'
pl 'You look for <> years_old'
if vidage >= 0:pl'Change the visibility of age'
pl ''
pl '<<$lip>>'
if lip < 4:pl'augment the lips'
if lip > 0:pl'reduce lips'
pl ''
pl '<<$skin>>'
if skin < 4:pl'improve the skin'
if skin > 0:pl'worsen the skin'
if tan >= 0:pl'become sunburnt'
if tan > 0:pl'remove tan'
pl ''
pl '<<$glaza>>'
if resnic < 2:pl'Enlarge eyelashes'
if resnic > 0:pl'reduce eyelashes'
if glaraz < 3:pl'Increase the size of the eye'
if glaraz > 0:pl'Reduce the size of the eye'
pl ''
if salo ! fat:pl'balance the fat'
if salo > 0:pl'reduce fat'
if salo > 0:pl'reset fat'
pl 'fat (<>): +5 +10 +25 +50'
pl ''
pl 'Tattoo Removal'
}
$din_cheat_menu_param = {
gs 'stat'
clr
pl'Cheat menu - Outward Appearance'
pl ''
pl '<> - strenbuf'
pl '<> - vitalbuf'
pl '<> - vmeat'
pl '<> - vfat'
pl '<> - Kves'
pl '<> - krost'
pl '<> - ves'
pl '<> - talia - Waist measurement in cm'
pl '<> - grudi - Chest measurement in cm'
pl '<> - bedra'
pl '<> - tits'
pl '<> - silicone'
pl '<> - <> - <>, breast size <>, the difference between the hips and waist <> cm'
pl 'Indicator muscularity <> - musle, <> - salo <> - salo * 2 <> - fat'
}
$din_cheat_menu_tatoo = {
gs 'stat'
clr
pl 'cheat menu - Outward Appearance'
pl ''
if tatlip = 0:pl'You do not have tattoos on his lips'
if tatlip >= 1:pl'Flatten with a tattoo of lips'
if tatplech = 0:pl'You do not have tattoos on their shoulders'
if tatplech >= 1:pl'Flatten with a shoulder tattoo'
if tatback = 0:pl'You have not got a tattoo on her back'
if tatback >= 1:pl'Flatten with the back tattoo'
if tatupb = 0:pl'You do not have tattoos on the lower back'
if tatupb >= 1:pl'Reduce a tattoo with lumbar'
if tatvag = 0:pl'You do not have a tattoo in the groin'
if tatvag >= 1:pl'Reduce a tattoo with groin'
if tatleg = 0:pl'You do not have a tattoo on the ankle'
if tatleg >= 1:pl'Flatten with a tattoo ankle'
}
$din_cheat_menu_stats = {
gs 'stat'
clr
pl 'Cheat menu'
pl ''
pl 'Power (<>): +1 +5 +10 +25 -1 -5 -10 -25'
pl 'Speed (<>): +1 +5 +10 +25 -1 -5 -10 -25'
pl 'Agility (<>): +1 +5 +10 +25 -1 -5 -10 -25'
pl 'Reaction (<>): +1 +5 +10 +25 -1 -5 -10 -25'
pl 'Endurance (<>): +1 +5 +10 +25 -1 -5 -10 -25'
pl 'Will (<>): +1 +5 +10 +25 -1 -5 -10 -25'
pl 'Intelligence (<>): +1 +5 +10 +25 -1 -5 -10 -25'
pl ''
pl 'Dominance (<>): +1 +5 +10 -1 -5 -10'
pl 'Submission (<>): +1 +5 +10 -1 -5 -10'
pl ''
if beg >= 0:pl 'The_Run: <>'
if volleyboll >= 0:pl 'volleyball: <>'
pl ''
if dance >= 0:pl 'dancing: <>'
if dancePRO >= 0:pl 'Prof.. dancing: <>'
if stripdance >= 0:pl 'striptease: <>'
if poledance >= 0:pl 'Dancing in the six: <>'
pl ''
if Jab >= 0:pl 'Jeb: <>'
if Punch >= 0:pl 'power Strokes: <>'
if Kik >= 0:pl 'kicks: <>'
if KikDef >= 0:pl 'protection: <>'
if vokal > 0:pl 'vocal skills: <>'
pl ''
if workPTU > 1:pl 'Reputation teachers: <>'
if suspeh >= 0:pl 'improve their academic performance: <>'
if schoolprogul >= 0:pl 'reset Absenteeism: <>'
pl ''
pl 'Test options are present in the mechanism of the game, but not involved in the game quests.'
if mutagenP = 0:pl 'Mutagen force 1st Level'
if mutagenP = 1:pl 'Mutagen force level 2'
if mutagenP = 2:pl 'Mutagen force level 3'
if mutagenP > 0:pl 'Mutagen force Zero'
if mutagenV = 0:pl 'Mutagen endurance 1st Level'
if mutagenV = 1:pl 'Mutagen endurance level 2'
if mutagenV = 2:pl 'Mutagen endurance level 3'
if mutagenV > 0:pl 'Mutagen endurance Zero'
if mutagenA = 0:pl 'Mutagen Agility 1st Level'
if mutagenA = 1:pl 'Mutagen Agility level 2'
if mutagenA = 2:pl 'Mutagen Agility level 3'
if mutagenA > 0:pl 'Mutagen Agility Zero'
}
$din_cheat_menu_reputation = {
gs 'stat'
clr
pl 'cheat menu'
pl ''
if nastjaQW >= 0:pl 'Friendship with Nastya: <>'
if kat >= 0:pl'Friendship with Kate: <>'
if vika >= 0:pl'Friendship with Vika: <>'
if Irina >= 0:pl'Friendship with Irina: <>'
if Tamara >= 0:pl'Friendship with Tamara: <>'
if alla >= 0:pl'Friendship with Alla: <>'
if masha >= 0:pl'Friendship with Masha: <>'
if Givi >= 0:pl'Friendship with Givi Karapetovich: <>'
if Ashot >= 0:pl'Friendship with Ashot: <>'
if Dmitry >= 0:pl'Friendship with Dima: <>'
if afra >= 0:pl'Friendship with blacks: <>'
pl ''
if GorSlut > 0:pl'In the town you are known as <<$gnikname>> (<>)'
if GorSlut = 0:pl'You have a good reputation in the town (0)'
if GorSlut ! 1:pl'Back reputation "davalka" (1)'
if GorSlut ! 2:pl'Back reputation "vaflersha" (2)'
if GorSlut ! 3:pl'Back reputation "Total huesoska" (3)'
if GorSlut ! 4:pl'Back reputation "Total hole" (4)'
if GorSlut ! 5:pl'Back reputation "lowered slut" (5)'
if GorSlut ! 6:pl'Back reputation "prostitute" (6)'
if GorSlut > 0:pl'Clear reputation in town (0)'
if opusk > 0 or sipovka > 0 or rozetka > 0:pl'Clear reputation with Gopnik'
}
$din_cheat_menu_documents = {
gs 'stat'
clr
pl 'cheat menu'
pl ''
if diplom = 0:pl'Get Diploma'
if diplom = 1:pl'You already have a diploma'
if secrdiplom = 0:pl'Get Secretarial Diploma'
if secrdiplom = 1:pl'You already have a diploma Secretary'
if masash < 10:pl'Get Certificate Masseur'
if masash >= 10:pl'You already have a certificate masseur'
if prava = 0:pl'Get the right'
if prava = 1:pl'Do you already have rights'
}
$din_cheat_menu_time = {
gs 'stat'
clr
pl 'cheat menu'
pl ''
pl 'Right_Now <<$week>> <> the_number, <<$month>>, <> a_year.'
pl 'Select Day of the Week'
pl '+1 The_Day'
pl '-1 The_Day'
pl 'select Month'
pl '+1 The_Year'
pl '-1 The_Year'
}
$din_cheat_menu_week = {
gs 'stat'
clr
pl 'cheat menu - period_Of'
pl ''
pl 'Right_Now <<$week>> <> the_number, <<$month>>, <> a_year.'
pl 'Monday'
pl 'Tuesday'
pl 'Wednesday'
pl 'Thursday'
pl 'Friday'
pl 'Saturday'
pl 'Sunday'
}
$din_cheat_menu_month = {
gs 'stat'
clr
pl 'cheat menu - period_Of'
pl ''
pl 'Right_Now <<$week>> <> the_number, <<$month>>, <> a_year.'
pl 'January'
pl 'February'
pl 'March'
pl 'April'
pl 'May'
pl 'June'
pl 'July'
pl 'August'
pl 'September'
pl 'October'
pl 'November'
pl 'December'
}
$din_cheat_menu_magic = {
gs 'stat'
clr
pl 'cheat menu'
pl ''
pl 'is_magical: <>'
pl ''
if spelltuman = 0:pl'Cover the area fog'
if spellklon = 0:pl'Substitute itself clone'
if spellstun = 0:pl'paralyze the enemy'
if spellweap = 0:pl'Invest in energy weapons (requires weapons)'
if spellwind = 0:pl'blow away the fog'
if spellklon2 = 0:pl'Substitute itself clones (3 pieces)'
if spellenergo = 0:pl'Create weak energy shield'
if spellinit = 0:pl'Write a slight deceleration time'
if spellhel = 0:pl'Battle Heal'
if spellfire0 = 0 or spellfire2 = 0 or spellfire3 = 0 or spellfire4 = 0 or spellfire5 = 0:
pl ''
pl 'Elements of Fire Spells:'
end
if spellfire0 = 0:pl'Flame'
if spellfire2 = 0:pl'The release of fire'
if spellfire3 = 0:pl'fire barrier'
if spellfire4 = 0:pl'firestorm'
if spellfire5 = 0:pl'Flame Shield'
if spellele0 = 0 or spellele2 = 0 or spellele3 = 0 or spellele4 = 0 or spellele5 = 0:
pl ''
pl 'Elements Lightning Spells:'
end
if spellele0 = 0:pl'discharge'
if spellele2 = 0:pl'lightning'
if spellele3 = 0:pl'electric barrier'
if spellele4 = 0:pl'Dance of thousands of birds'
if spellele5 = 0:pl'dancing sphere'
if spellert0 = 0 or spellert2 = 0 or spellert3 = 0 or spellert4 = 0 or spellert5 = 0:
pl ''
pl 'Spells Earth Elements:'
end
if spellert0 = 0:pl'quicksand'
if spellert2 = 0:pl'active protection'
if spellert3 = 0:pl'abyss'
if spellert4 = 0:pl'absolute protection'
if spellert5 = 0:pl'Sando'
if spellwind0 = 0 or spellwind2 = 0 or spellwind3 = 0 or spellwind4 = 0 or spellwind5 = 0:
pl ''
pl 'Spells with wind energy:'
end
if spellwind0 = 0:pl'wind gust'
if spellwind2 = 0:pl'terrifying pressure'
if spellwind3 = 0:pl'vacuum sphere'
if spellwind4 = 0:pl'vacuum shells'
if spellwind5 = 0:pl'devouring vacuum'
if spellwater0 = 0 or spellwater2 = 0 or spellwater3 = 0 or spellwater4 = 0 or spellwater5 = 0:
pl ''
pl 'Water Elemental spells:'
end
if spellwater0 = 0:pl'creek manna'
if spellwater2 = 0:pl'flooding'
if spellwater3 = 0:pl'blister'
if spellwater4 = 0:pl'Water shark missile'
if spellwater5 = 0:pl'The Great Flood'
}
$objcheat_menu = {
gs 'stat'
clr
pl 'Get out of the cheat menu'
pl ''
pl 'permanent'
pl 'Appearance'
pl 'Characteristics of'
pl 'Relationships and Reputation'
pl 'documents'
pl 'manipulation of time'
if StoryLine = 0:pl'Magic'
pl ''
pl 'Complete recovery, manna, reason.'
pl 'Change the amount of money'
pl 'Zero the money'
}
$objmagic = {
clr
if magik = 0:
pl 'You are unable to use magic.'
else
pl 'Available to you <> units of manna.'
!!' Rikudo forces available to you <> units'
nl
pl 'BASIC SPELL:' & nl
if spelltuman > 0:pl 'Cover the area fog, a great way to hide their actions from the attacking enemy and not a bad way to increase the chance to dodge enemy attacks, as he can not see you in your fog (mana cost of 10 units)' & nl
if spellklon > 0:pl 'Substitute itself clone powerful way to avoid enemy attacks substituting itself clone opponent gets to clone and not on you, he just wasted power (mana cost of 15 units)' & nl
if spellstun > 0:pl 'Paralyze a great way to stop the enemy, he will not be able to defend and attack. (Cost 20 mana units)' & nl
if spellweap > 0 and weapon > 0:pl 'Invest in energy weapons'
if spellwind > 0:pl 'Blow away the fog, mist spell any scattering over the battlefield.' & nl
if spellklon2 > 0:pl 'Substitute themselves clones (3 pieces), the enemy will not be able to get to you until you destroy all of your clones. (Cost 45 mana units)' & nl
if spellenergo > 0:pl 'Create weak energy shield spell protects against all attacks of the physical nature, even if the enemy attack exceeds the capabilities of the shield and the shield will be destroyed by the first blow, you can still protect yourself from the damage (cost 50 mana units)' & nl
if spellinit > 0:pl 'Create weak deceleration time powerful spell allowing you to move faster, you can snatch the initiative with this spell that would strike another spell to increase your chance to hit too, because you will move very quickly (cost 60 mana units)' & nl
if spellhel > 0:pl 'Martial treatment restores or adds 400 health units in exchange for 400 units of manna.' & nl
if stihia = 1:pl 'SPELL elements of fire' & nl
if spellfire1 = 1:pl 'Flame. Inflicts little damage. (Cost 10 mana)' & nl
if spellfire2 = 1:pl 'Release of fire. A damage. (100 mana cost)' & nl
if spellfire3 = 1:pl 'Fire barrier, creates a shield of 750 units. (150 mana cost)' & nl
if spellfire4 = 1:pl 'Firestorm. Causes great damage to an enemy difficult to dodge. (250 mana cost)' & nl
if spellfire5 = 1:pl 'Flame Shield creates a shield of 2,500 units. (500 mana cost)' & nl
if stihia = 2:pl 'SPELL element of lightning' & nl
if spellele1 = 1:pl 'Discharge. Inflicts very little damage. (Cost 10 mana)' & nl
if spellele2 = 1:pl 'Lightning. Inflicts above average. (100 mana cost)' & nl
if spellele3 = 1:pl 'Electrical barrier creates a shield of 1,500. (150 mana cost)' & nl
if spellele4 = 1:pl 'Dance of thousands of birds. Inflicts very high damage. (250 mana cost)' & nl
if spellele5 = 1:pl 'Plyaschuschaya sphere creates a shield of 5,000 units. (500 mana cost)' & nl
if stihia = 3:pl 'SPELL Element Earth' & nl
if spellert1 = 1:pl 'Quicksand trap catches the enemy in quicksand and causes little damage. (Cost 10 mana)' & nl
if spellert2 = 1:pl 'Active protection, creates a protective sphere of earth, stone and sand 2,500 mana and health protection, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (100 mana cost)' & nl
if spellert3 = 1:pl 'Abyss earth asunder underfoot enemy inflicting damage above average and depriving him of the ability to move. (150 mana cost)' & nl
if spellert4 = 1:pl 'Absolute protection, creates a huge protective sphere of the earth, which regenerates itself every move and attack the enemy. (250 mana cost)' & nl
if spellert5 = 1:pl 'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting massive damage and depriving him of his ability to move. 500 mana cost.' & nl
if stihia = 4:pl 'Spells with wind energy' & nl
if spellwind1 = 1:pl 'A gust of wind, causing very little damage and destroy clones and fog, it is very difficult to dodge. (Cost 10 mana)' & nl
if spellwind2 = 1:pl 'Horrendous pressure, causing moderate damage and destroying clones and fog, it is very difficult to dodge. (100 mana cost)' & nl
if spellwind3 = 1:pl 'Vacuum sphere, creates a shield of 1,500. (150 mana cost)' & nl
if spellwind4 = 1:pl 'Vacuum shells do more damage and destroy clones and fog, it is very difficult to dodge. (250 mana cost)' & nl
if spellwind5 = 1:pl 'Devouring vacuum sucks shield enemy destroying it whatever strength he was not. (500 mana cost)' & nl
if stihia = 5:pl 'SPELL elements of water' & nl
if spellwater1 = 1:pl 'Creek manna causes very little damage and absorbs a lot of mana. Cost 10 mana.' & nl
if spellwater2 = 1:pl 'Flooding, causing moderate damage and absorbs manna above average. 100 mana cost.' & nl
if spellwater3 = 1:pl 'Water bubble creates a protective sphere of water 1,500 protection from all influences, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (150 mana cost)' & nl
if spellwater4 = 1:pl 'Water shark missile, causing great damage and absorbs a lot of mana. Cost 250 mana.' & nl
if spellwater5 = 1:pl 'Great flood, the water creates a huge sphere that absorbs enemy and deflating manna from it and handing it to provide increased protection. 500 mana cost.' & nl
end
}
!!!Maruda hair mod
$objface = {
!!if hcol = 0 and curly <= 0:view 'images/body/hcol.jpg'
!!if hcol = 1 and curly <= 0:view 'images/body/hcol1.jpg'
!!if hcol = 2 and curly <= 0:view 'images/body/hcol2.jpg'
!!if hcol = 3 and curly <= 0:view 'images/body/hcol3.jpg'
!!if hcol = 0 and curly > 0:view 'images/body/hcolcurly.jpg'
!!if hcol = 1 and curly > 0:view 'images/body/hcolcurly1.jpg'
!!if hcol = 2 and curly > 0:view 'images/body/hcolcurly2.jpg'
!!if hcol = 3 and curly > 0:view 'images/body/hcolcurly3.jpg'
if curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol0.jpg'
if hcol = 1 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol1.jpg'
if hcol = 2 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol2.jpg'
if hcol = 3 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol3.jpg'
if hcol = 0 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol0.jpg'
if hcol = 1 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol1.jpg'
if hcol = 2 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol2.jpg'
if hcol = 3 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol3.jpg'
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol3.jpg'
end
if curly >= 1 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol3.jpg'
end
if hbangs >= 1 and curly <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol0.jpg'
if hcol = 1 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol1.jpg'
if hcol = 2 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol2.jpg'
if hcol = 3 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol3.jpg'
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol3.jpg'
end
if curly >= 1 and hbangs >= 1 and hpingripw = 0 and hscrunchw <= 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol3.jpg'
end
if curly >= 1 and hscrunchw = 1 and hbangs >= 1 and hpingripw <= 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol3.jpg'
end
if curly >= 1 and hpingripw = 1 and hbangs <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol3.jpg'
end
if curly >= 1 and hpingripw = 1 and hbangs >= 1 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol3.jpg'
end
if hpingripw = 1 and hbangs = 0 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol3.jpg'
end
if hpingripw >= 1 and hbangs >= 1 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol3.jpg'
end
if hscrunchw = 1 and hbangs = 0 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol3.jpg'
end
if hscrunchw = 1 and hbangs = 0 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol3.jpg'
end
if hscrunchw = 1 and hbangs >= 1 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol3.jpg'
end
if hscrunchw = 1 and hbangs >= 1 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol3.jpg'
if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol0.jpg'
if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol1.jpg'
if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol2.jpg'
if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol3.jpg'
end
if hpigtail = 1 and hscrunchw = 2 and hpingripw = 0 and hbraids <= 0 and curly <= 0 and hbraids <= 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol3.jpg'
end
if hbraids >= 1 and curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail = 0:
if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol0.jpg'
if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol1.jpg'
if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol2.jpg'
if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol3.jpg'
if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol0.jpg'
if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol1.jpg'
if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol2.jpg'
if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol3.jpg'
if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol0.jpg'
if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol1.jpg'
if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol2.jpg'
if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol3.jpg'
end
!!! Maruda Hair Mod
if shorthair=1:view 'images/body/SHcol<>.jpg'
if glass = 1:view 'images/body/nerd.jpg'
if glass = 2:view 'images/body/hcolglass<>.jpg'
}
$objbody = {
if musle >= salo:
!!muscular type
if bedra < 60:view 'images/body/fit.jpg'
if bedra >= 60 and bedra < 70:view 'images/body/fit1.jpg'
if bedra >= 70 and bedra < 80:view 'images/body/fit2.jpg'
if bedra >= 80 and bedra < 90:view 'images/body/fit3.jpg'
if bedra >= 90 and bedra < 100:view 'images/body/fit4.jpg'
if bedra >= 100 and bedra < 110:view 'images/body/fit5.jpg'
if bedra >= 110 and bedra < 120:view 'images/body/fit6.jpg'
if bedra >= 120:view 'images/body/fit7.jpg'
else
!!bold type
if bedra < 60:view 'images/body/fat.jpg'
if bedra >= 60 and bedra < 65:view 'images/body/fat1.jpg'
if bedra >= 65 and bedra < 70:view 'images/body/fat2.jpg'
if bedra >= 70 and bedra < 75:view 'images/body/fat3.jpg'
if bedra >= 75 and bedra < 80:view 'images/body/fat4.jpg'
if bedra >= 80 and bedra < 85:view 'images/body/fat5.jpg'
if bedra >= 85 and bedra < 90:view 'images/body/fat6.jpg'
if bedra >= 90 and bedra < 95:view 'images/body/fat7.jpg'
if bedra >= 95 and bedra < 100:view 'images/body/fat8.jpg'
if bedra >= 100 and bedra < 105:view 'images/body/fat9.jpg'
if bedra >= 105 and bedra < 110:view 'images/body/fat10.jpg'
if bedra >= 110 and bedra < 115:view 'images/body/fat11.jpg'
if bedra >= 115 and bedra < 120:view 'images/body/fat12.jpg'
if bedra >= 120:view 'images/body/fat13.jpg'
end
}
$objclothes = {
clr
if nude = 0:
if vatnik = 2:view 'images/clothes/vatnik.jpg'
if odetjeans > 0:
view 'images/clothes/jeans<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetyoga > 0:
view 'images/clothes/yoga<>.jpg'
pl '(strength <>)'
elseif odetsarafan > 0:
view 'images/clothes/sarafan<>.jpg'
pl '(strength <>)'
elseif odetshort > 0:
view 'images/clothes/short<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetskirt > 0:
view 'images/clothes/skirt<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetdress > 0:
view 'images/clothes/dress<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetprofi > 0:
view 'images/clothes/profi<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetpants > 0:
view 'images/clothes/pants<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetlatex > 0:
view 'images/clothes/latex<>.jpg'
pl '(strength <>, hip size <>)'
elseif odethooker > 0:
view 'images/clothes/hooker<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetkis > 0:
view 'images/clothes/k<>.jpg'
pl '(strength <>, hip size <>)'
elseif odetnewclo > 0:
view 'images/clothes/newclo/<>.jpg'
pl '(strength <>, hip size <>)'
end
if odetero > 0:view 'images/img/dress/ero<>.jpg'
if cloth_vid = 1:view 'images/etogame/bimboView.jpg' & pl 'You are dressed in the image bimbo'
else
view 'images/clothes/nude.jpg'
pl 'You´re not dressed.'
end
}
$objtattoos = {
$tatlipdi = {
view 'images/Body/tatlip<>.jpg'
}
$tatpledi = {
view 'images/body/tatplech<>.jpg'
}
$tatbackdi = {
view 'images/body/tatb<>.jpg'
}
$tatupbdi = {
view 'images/body/tatupb<>.jpg'
}
$tatvagdi = {
view 'images/body/tatvag<>.jpg'
}
$tatlegdi = {
view 'images/body/tatleg<>.jpg'
}
clr
if tatlip > 0:pl 'tattoo on the lip.'
if tatplech > 0:pl 'tattoo on the shoulders'
if tatback > 0:pl 'tattoo on the back'
if tatupb > 0:pl 'tattoo on the lower back'
if tatvag > 0:pl 'Tattoos in the groin'
if tatleg > 0:pl 'tattoo on the legs'
if tatvag = 0 and tatlip = 0 and tatplech = 0 and tatback = 0 and tatupb = 0 and tatleg = 0:pl 'You pristine pure body. Not in terms of corruption, but in terms of tattoos.'
}
$objpirsing = {
$dipirsA = {
view 'images/body/pirsA.jpg'
}
$dipirsB = {
view 'images/body/pirsB.jpg'
}
$dipirsC = {
view 'images/body/pirsC.jpg'
}
$dipirsD = {
view 'images/body/pirsD.jpg'
}
$dipirsE = {
view 'images/body/pirsE.jpg'
}
$dipirsF = {
view 'images/body/pirsF.jpg'
}
$dipirsG = {
view 'images/body/pirsG.jpg'
}
$dipirsN = {
view 'images/body/pirsN.jpg'
}
clr
if pirsA = 1:pl 'Your tongue pierced and there is inserted a small bar that is constantly felt in the mouth. view'
if pirsB = 1:pl 'You pierced lower lip and there vdet ring. view'
if pirsC = 1:pl 'On your ears hang earrings. view'
if pirsD = 1:pl 'You have a small ring in the nose. view'
if pirsE = 1:pl 'In your eyebrow barbell inserted. view'
if pirsF = 1:pl 'You have pierced nipples and inserted them in small metal rod. view'
if pirsG = 1:pl 'You pierced lips on the vagina and there inserted rings. view'
if pirsN = 1:pl 'You pierced navel, and there is inserted rod. view'
}
$objobnovit = {
gs 'stat'
}
$objbloknot = {
clr
pl 'Diary'
if housr > 0:pl 'I live in a two-room apartment in a residential area. Payment for the apartment is taken automatically in the amount of 3,000 rubles each 25e number. Plus a light bill.' & nl
if work > 0 or stripwork > 0 or workPTU > 2:pl '-- My Job --'
if workPTU > 2:pl'I work as a teacher in the Lyceum. Working days Mon-Sat from 14.00 to 16.00. Salary 300 rubles / day. Dress code - office, strict. The road from the apartment to the Lyceum takes 2 hours and 10 minutes.' & nl
if (work = 1 or cheatWork = 1) and workKafe > 0:pl'I work as a waitress in a cafe. Need to come to work with 11 to 12 working days, Tuesday, Wednesday, Thursday. At work every day you get tips from customers and automatically transferred to the 25th salary number.' & nl
if (work = 1 or cheatWork = 1) and workhosp > 0:pl'I work as a nurse in the clinic. Need to come to work from 8 to 9 on weekdays. Salary is automatically transferred to the 25th number.' & nl
if (work = 1 or cheatWork = 1) and worksalon > 0:pl'I work as a masseuse in the cabin. Need to come to work from 9 to 10 working days, Monday, Wednesday and Friday. Salary is automatically transferred to the 25th number.' & nl
if (work = 1 or cheatWork = 1) and workhosp > 0:pl'I work as a secretary in the office. Need to come to work until 9 on weekdays. Salary is automatically transferred to the 25th number.' & nl
if (work = 1 or cheatWork = 1) and tanwork > 0:pl'I work as a governess at Tani. Salary is automatically transferred to the 25th number.' & nl
if (work = 1 or cheatWork = 1) and young_shop_work = 1:pl'I work in a store saleswoman Keys Pussy. Need to come to work in 15 workdays all except Saturday and Sunday. Salary is issued once a week on Fridays.' & nl
if workrin = 1:pl 'I work in a tent on the market Arthur clothing saleswoman. Work on Tuesdays, Thursdays and Saturdays, come at 8 o´clock. Salary depends on the sales.' & nl
if stripwork >= 1:pl 'I work as a stripper, schedule a free, on any day from 15 up to 2 nights. Salary only tip.' & nl
if bumtolik = 4:pl'Service for the Homeless is located in the Northern Region.' & nl
if bumtolik = 5:pl'You volunteer to help the homeless service. Office hours 9 prior_to 17, Weekend Saturday and Sunday.' & nl
if husband > 0 or kid > 0 :'-- My Family --'
if husband > 0:pl 'I ve been married for <> days. My husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <> Relationships <>' & nl
if kid > 0:pl 'I have a child <<$kidname[kidDiary]>>, age <> days.' & nl
if $bfsex > 0:pl '<<$bfsex>>'
if bfA > 1:pl 'My current boyfriend, <<$boyA>>, is a <<$boybodyA>> <<$boybodA>> <<$boyfaceA>>. He is usually <<$boyCloA>> Our relationship is <> and we have met <> times.' & nl
if harakBoyA = 0 and bfA > 1:pl 'He is calm and self-possessed character.' & nl
if harakBoyA = 1 and bfA > 1:pl 'He is cheerful and sociable nature.' & nl
if harakBoyA = 2 and bfA > 1:pl 'He is irascible and very rigid.' & nl
if bfB > 1:pl 'Another boyfriend, <<$boyB>>, is a <<$boybodyB>> <<$boybodB>> <<$boyfaceB>>. He is usually <<$boyCloB>>. Our relationship is <> and we have met <> times.' & nl
if bfC > 1:pl 'My third boyfriend, <<$boyC>>, is a <<$boybodyC>> <<$boybodC>> <<$boyfaceC>>. He is usually <<$boyCloC>>. Our relationship is <> and we have met <> times.' & nl
gs 'Menu.Create', 'zapisMenu'
gs 'Menu.Add', 'zapisMenu', 'Recording from today', '', 'MenuLoc', 'zapisosn'
gs 'Menu.Add', 'zapisMenu', 'To record on 1th line', '', 'MenuLoc', 'zapis'
gs 'Menu.Add', 'zapisMenu', 'With a red line 1th line', '', 'MenuLoc', 'ot'
gs 'Menu.Add', 'zapisMenu', 'To record on 2th line', '', 'MenuLoc', 'zapis2'
gs 'Menu.Add', 'zapisMenu', 'With a red line 2th line', '', 'MenuLoc', 'ot2'
gs 'Menu.Add', 'zapisMenu', 'To record on 3th line', '', 'MenuLoc', 'zapis3'
gs 'Menu.Add', 'zapisMenu', 'With a red line 3th line', '', 'MenuLoc', 'ot3'
gs 'Menu.Add', 'zapisMenu', 'To record on 4th line', '', 'MenuLoc', 'zapis4'
gs 'Menu.Add', 'zapisMenu', 'With a red line 4th line', '', 'MenuLoc', 'ot4'
gs 'Menu.Add', 'zapisMenu', 'To record on 5th line', '', 'MenuLoc', 'zapis5'
gs 'Menu.Add', 'zapisMenu', 'With a red line 5th line', '', 'MenuLoc', 'ot5'
gs 'Menu.Add', 'zapisMenu', 'To record on 6th line', '', 'MenuLoc', 'zapis6'
gs 'Menu.Add', 'zapisMenu', 'With a red line 6th line', '', 'MenuLoc', 'ot6'
gs 'Menu.Add', 'zapisMenu', 'To record on 7th line', '', 'MenuLoc', 'zapis7'
gs 'Menu.Add', 'zapisMenu', 'With a red line 7th line', '', 'MenuLoc', 'ot7'
gs 'Menu.Add', 'zapisMenu', 'To record on 8th line', '', 'MenuLoc', 'zapis8'
gs 'Menu.Add', 'zapisMenu', 'With a red line 8th line', '', 'MenuLoc', 'ot8'
gs 'Menu.Add', 'zapisMenu', 'To record on 9th line', '', 'MenuLoc', 'zapis9'
gs 'Menu.Add', 'zapisMenu', 'With a red line 9th line', '', 'MenuLoc', 'ot9'
gs 'Menu.Add', 'zapisMenu', 'To record on 10th line', '', 'MenuLoc', 'zapis10'
gs 'Menu.Add', 'zapisMenu', 'With a red line 10th line', '', 'MenuLoc', 'ot10'
gs 'Menu.Create', 'disMenu'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 1st row', '', 'MenuLoc', 'diszapis'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 2nd row', '', 'MenuLoc', 'diszapis2'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 3rd row', '', 'MenuLoc', 'diszapis3'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 4th row', '', 'MenuLoc', 'diszapis4'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 5th row', '', 'MenuLoc', 'diszapis5'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 6th row', '', 'MenuLoc', 'diszapis6'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 7th row', '', 'MenuLoc', 'diszapis7'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 8th row', '', 'MenuLoc', 'diszapis8'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 9th row', '', 'MenuLoc', 'diszapis9'
gs 'Menu.Add', 'disMenu', 'Delete an entry from the 10th row', '', 'MenuLoc', 'diszapis10'
pl 'Make an entry or delete the record'
pl '<<$zapisOsn>>'
pl '<<$zapis>>'
pl '<<$zapis2>>'
pl '<<$zapis3>>'
pl '<<$zapis4>>'
pl '<<$zapis5>>'
pl '<<$zapis6>>'
pl '<<$zapis7>>'
pl '<<$zapis8>>'
pl '<<$zapis9>>'
pl '<<$zapis10>>'
}
$objavariya = {
'YOU HAVE JUST BEEN USED EMERGENCY LEAVE BLANK SCREEN Bagan'
*nl
'not use this feature without a good reason, can cause STABLE ERROR THAT WILL RUIN YOUR CONSERVATION'
*nl
if StoryLine = 1:gt 'gorodok'
gt 'street'
}
$objnewmenu = {
killobj
oldobjmenu = 0
addobj 'Character'
addobj 'See'
addobj 'Others'
addobj 'Menu'
}
$objoldmenu = {
killobj
oldobjmenu = 1
addobj 'Character'
addobj 'Skills'
addobj 'Statistics'
if magik > 0:addobj 'The_Magic'
addobj 'Face'
addobj 'Body'
addobj 'Clothing'
addobj 'Tattoos'
addobj 'Piercing'
if mobila > 0:addobj 'Phone'
addobj 'Diary'
addobj 'Emergency exit'
addobj 'Update'
addobj 'Menu'
addobj 'New Menu'
addobj 'Cheat menu'
if disable_autosave = 1:
addobj 'Enable autosave'
else
addobj 'Disable autosave'
end
}
$objautosave = {
if oldobjmenu = 0:
if disable_autosave = 1:
disable_autosave = 0
else
disable_autosave = 1
end
elseif oldobjmenu = 1:
if disable_autosave = 1:
disable_autosave = 0
delobj 'Enable autosave'
addobj 'Disable autosave'
else
disable_autosave = 1
delobj 'Disable autosave'
addobj 'Enable autosave'
end
end
gs 'stat'
}
$menu_character[0] = 'Description:$menu_descrip'
$menu_character[1] = 'Characteristics:$menu_skills'
$menu_character[2] = 'Usage:$menu_statistika'
if magik > 0:$menu_character[3] = 'Magic:$menu_magic'
$menu_lookon[0] = 'Face:$menu_face'
$menu_lookon[1] = 'Body:$menu_body'
$menu_lookon[2] = 'Clothing:$menu_clothes'
$menu_lookon[3] = 'Tattoos:$menu_tattoos'
$menu_lookon[4] = 'Piercing:$menu_pirs'
$menu_other[0] = 'Update:$menu_obnovit'
$menu_other[1] = 'Diary:$menu_bloknot'
$menu_other[2] = 'Emergency exit:$menu_avariya'
$menu_other[3] = 'Old menu:$menu_addoldmenu'
$menu_other[4] = 'Cheat menu:$menu_cheat'
if disable_autosave = 1:
$menu_other[5] = 'Enable autosave:$menu_autosave'
else
$menu_other[5] = 'Disable autosave:$menu_autosave'
end
if mobila > 0:$menu_other[6] = 'Phone:$menu_mobila'
!!old menu: beginning
if $selobj = 'Character':dynamic $objdescrip
if $selobj = 'Skills':dynamic $objskills
if $selobj = 'Statistics':dynamic $objstatistika
if magik > 0:if $selobj = 'Magic':dynamic $objmagic
if $selobj = 'Face':dynamic $objface
if $selobj = 'Body':dynamic $objbody
if $selobj = 'Clothing':dynamic $objclothes
if $selobj = 'Tattoos':dynamic $objtattoos
if $selobj = 'Piercing':dynamic $objpirsing
if $selobj = 'Diary':dynamic $objbloknot
if $selobj = 'Emergency exit':dynamic $objavariya
if $selobj = 'Update':gs 'stat'
if $selobj = 'New Menu':dynamic $objnewmenu
if $selobj = 'Cheat menu':dynamic $objcheat_menu
if disable_autosave = 1:
if $selobj = 'Enable autosave':dynamic $objautosave
else
if $selobj = 'Disable autosave':dynamic $objautosave
end
!!old menu: end
!!The new menu: beginning
if $selobj = 'Character':menu '$menu_character'
if $selobj = 'See':menu '$menu_lookon'
if $selobj = 'Others':menu '$menu_other'
!!The new menu: end
if $selobj = 'Player':
clr
pl 'Your name <<$name>> <<$surname>>. You <> years. <<$vneshPRE>>'
pl 'You have short black hair and flashing starting gray, small brown eyes and willed jaw covered by blue Shaved bristle.'
pl 'Growth <> cm, weight 100 kg.'
end
if $selobj = 'Menu':
clr
gs 'Menu.Create', 'mainMenu'
gs 'Menu.Add', 'mainMenu', 'status bar', '', 'MenuMainLoc', '0'
gs 'Menu.Add', 'mainMenu', 'text notation', '', 'MenuMainLoc', '1'
gs 'Menu.Call', 'mainMenu'
end
unselect
--- onobjsel ---------------------------------
# scale.table
!'
"Scale rendering using the table:"
$func('scale.table', 275, 420) + ' 275 / 420'
$func('scale.table', 400, 420) + ' 400 / 420'
$func('scale.table', 420, 420) + ' 420 / 420'
$func('scale.table', 157, 420) + ' 157 / 420'
$func('scale.table', 42, 420) + ' 42 / 420'
$func('scale.table', 0, 420) + ' 0 / 420'
'!
!!-----scale.table------
args[0] = args[0] & ! the current value of the parameter
args[1] = args[1] & ! the maximum value
if args[2] = 0:args[2] = 200 & ! Span (tables) pixels. default 350 px
if $ARGS[3] = "":$ARGS[3] = "FF0000" & ! the color of the filled part of the scale in the format RRGGBB. default - red
$ARGS['table'] = ''
args['x'] = (args[0] * 100) / args[1]
args['empty'] = 100 - args['x']
if args['x'] > 0:
$ARGS['table'] += ' | '
elseif args['empty'] > 0:
$ARGS['table'] + = " | "
end
$ARGS['table'] += '
'
$result = $ARGS['table']
--- scale.table ---------------------------------
# counter
if music_on <> music_on_prev or $music_theme <> $music_theme_prev:
close $cur_theme[track[$music_theme_prev]]
music_on_prev = music_on
$music_theme_prev = $music_theme
if $music_theme <> '':
copyarr 'cur_theme', 'tracklist_<<$music_theme>>'
track[$music_theme] = track[$music_theme] - 1
if track[$music_theme] < 0:track[$music_theme] = arrsize('cur_theme')
end
end
if music_on = 1 and $music_theme <> '':
if no isplay ($cur_theme[track[$music_theme]]):
track[$music_theme] += 1
if arrsize('cur_theme') <= track[$music_theme]:track[$music_theme] = 0
end
play $cur_theme[track[$music_theme]], volume
end
if race_start = 1:
bcolor = rgb(255, 255, 255)
refint
*clr
if race_hit = 0:
race_miss += 1
race_hit = 1
elseif $race1[race_row] <> ' ' and race_row > 0:
race_hit = 0
end
'<<$car>>'
!!interior of the vehicle and the line route
*pl $showcar
*p $race1[race_row]
if $race1[race_row] = '-------FINISH--------':
race_start = 0
!!return timer
settimer 500
wait 2000
$metka = 'finish'
$loc = 'RACE_COUNT'
gt $loc, $metka
end
race_row += 1
end
--- counter ---------------------------------
# init_music
$tracklist_start[0] = 'music/start.mp3'
$tracklist_pivbar[0] = 'music/pivbar.mp3'
$tracklist_kafe[0] = 'music/kafe.mp3'
$tracklist_kafe[1] = 'music/kafe1.mp3'
$tracklist_gdis[0] = 'music/komb.mp3'
$tracklist_gnewyear[0] = 'music/newyear.mp3'
$tracklist_sukizaebali[0] = 'music/suki.mp3'
$tracklist_club[0] = 'music/club.mp3'
$tracklist_club[1] = 'music/club1.mp3'
$tracklist_club[2] = 'music/club2.mp3'
$tracklist_club[3] = 'music/club3.mp3'
$tracklist_club[4] = 'music/club4.mp3'
$tracklist_fight[0] = 'music/fight.mp3'
$tracklist_fight[1] = 'music/fight1.mp3'
$tracklist_orochimaru[0] = 'music/orochimaru.mp3'
if club = 1:
clubrand = rand(0, 5)
if clubrand = 0:
$tracklist_club[0] = 'music/club.mp3'
elseif clubrand = 1:
$tracklist_club[0] = 'music/club1.mp3'
elseif clubrand = 2:
$tracklist_club[0] = 'music/club2.mp3'
elseif clubrand = 3:
$tracklist_club[0] = 'music/club3.mp3'
elseif clubrand = 4:
$tracklist_club[0] = 'music/club4.mp3'
elseif clubrand = 5:
$tracklist_club[0] = 'music/club5.mp3'
end
end
--- init_music ---------------------------------
# loadg
--- loadg ---------------------------------
# LOCA
--- LOCA ---------------------------------
# saveg
--- saveg ---------------------------------
# inputProcessing
--- inputProcessing ---------------------------------
# body
if analplugIN = 0:
if anus = 0:anpic = 0 & $anus = 'You have a virgin anus.'
if anus > 0 and anus <= 5:anpic = 1 & $anus = 'Your anus is barely used, but you wouldn''t really see that.'
if anus > 5 and anus <= 10:anpic = 2 & $anus = 'Your anus has the shape of an asterisk.'
if anus > 10 and anus <= 15:anpic = 3 & $anus = 'Your anus is now slightly parted, has it has been used quite often.'
if anus > 15 and anus <= 25:anpic = 4 & $anus = 'Your anus look like a wide hole, anyone will definitely think that the only thing you do is anal sex.'
if anus > 25 and anus <= 35:anpic = 5 & $anus = 'Your anus doesn''t fully close on its own anymore. You could put a fist through it and it wouldn''t stretch at all.'
if anus > 35:anpic = 6 & $anus = 'Your anus is almost completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
else
$anus = 'Your anus is currently filled with your butt plug.'
end
if throat = 0:thpic = 0 & $throat = 'You chaste mouth.' & $throattipe = 'absolutely unusual'
if throat > 0 and throat <= 5:thpic = 1 & $throat = 'You inexperienced mouth.' & $throattipe = 'virgin'
if throat > 5 and throat <= 10:thpic = 2 & $throat = 'You work her mouth and sensitive throat.' & $throattipe = 'sensitive'
if throat > 10 and throat <= 15:thpic = 3 & $throat = 'You have experienced mouth and slightly stretched throat.' & $throattipe = 'slightly stretched'
if throat > 15 and throat <= 25:thpic = 4 & $throat = 'You capacious mouth and trained throat.' & $throattipe = 'stretched'
if throat > 25 and throat <= 35:thpic = 5 & $throat = 'Your deep tin throat may adopt any member.' & $throattipe = 'tinned'
if throat > 35:thpic = 6 & $throat = 'You completely absent gag reflex, Your razebannaya throat like a bottomless pit' & $throattipe = 'bottomless'
if vagina = 0:puspic = 0 & $vagina = 'You virgin membrane.' & $vaginatipe = 'virgin'
if vagina > 0 and vagina <= 5:puspic = 1 & $vagina = 'Your pussy pussy has a tiny hole.' & $vaginatipe = 'narrow'
if vagina > 5 and vagina <= 10:puspic = 2 & $vagina = 'You close, similar to the slit vagina.' & $vaginatipe = 'close'
if vagina > 10 and vagina <= 15:puspic = 3 & $vagina = 'You have a slightly stretched elastic vagina.' & $vaginatipe = 'tight'
if vagina > 15 and vagina <= 25:puspic = 4 & $vagina = 'You have a well-developed vagina.' & $vaginatipe = 'developed'
if vagina > 25 and vagina <= 35:puspic = 5 & $vagina = 'Between the legs you have not closed a hefty dyren' & $vaginatipe = 'broken-down'
if vagina > 35:puspic = 6 & $vagina = 'The fact that you have in place pussy, more like well with deep Mariana Trench' & $vaginatipe = 'dimensionless'
!!!!!!!!!!!!!!!!
!!!!!SIZE AND WEIGHT!!!
!!!!!!!!!!!!!!!!
if dounspell = 0:
strenbuf = stren
vitalbuf = vital
vmeat = (strenbuf + vitalbuf) / 8
vfat = salo / 10
Kves = vmeat + vfat
krost -= 130
ves = Kves + krost - (agilbuf / 10)
talia = ves - (agilbuf / 10)
grudi = talia + 10 + vfat + silicone
grutal = talia
bedra = talia + 15 + (vmeat / 2) + vfat
titK = grudi - talia
if (bedra - talia) > 45 and musle < salo:
if ves < 70:koefvesbt = 0
if ves >= 70:koefvesbt = ves - 70
koefbt = koefvesbt + ((bedra - talia) - 45)
talia += koefbt
end
if titK <= 10:tits = 0
if titK > 10 and titK <= 15:tits = 1
if titK > 15 and titK <= 20:tits = 2
if titK > 20 and titK <= 25:tits = 3
if titK > 25 and titK <= 30:tits = 4
if titK > 30 and titK <= 35:tits = 5
!!!Probably CV edition
if titK > 35 and titK <= 40:tits = 6
if titK > 40 and titK <= 45:tits = 7
if titK > 45 and titK <= 50:tits = 8
if titK > 50 and titK <= 55:tits = 9
if titK > 55:tits = 10
!!!
else
fat = 0
bedra = bedraDoun
talia = TaliaDoun
grudi = talia + 14 + silicone
ves = TaliaDoun
titK = grudi - talia
if titK <= 10:tits = 0
if titK > 10 and titK <= 15:tits = 1
if titK > 15 and titK <= 20:tits = 2
if titK > 20 and titK <= 25:tits = 3
if titK > 25 and titK <= 30:tits = 4
if titK > 30 and titK <= 35:tits = 5
!!!Probably CV edition
if titK > 35 and titK <= 40:tits = 6
if titK > 40 and titK <= 45:tits = 7
if titK > 45 and titK <= 50:tits = 8
if titK > 50 and titK <= 55:tits = 9
if titK > 55:tits = 10
!!!
end
!!! Maruda Hair Mod
if hairlength <= 80:
hpigtail = 0
hscrunchw = 0
hpingripw = 0
curly = 0
end
if hairlength > 400:hpingripw = 0
if hairlength > 400 and hpigtail >= 1:
hscrunchw = 0
hpigtail = 0
end
if hairlength <= 80:hbraids = 0
if hbraids >= 1:
curly = 0
hscrunchw = 0
hpingripw = 0
hbangs = 0
hpigtail = 0
end
if hapri = 0:$hapri = 'tangled, 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 holds your hair in place with an updo-hairstyle.'
if hscrunchw <= 0:$hpigtail = ''
if hscrunchw = 2:$hpigtail = ' Two scrunchies holds your hair in place with a twin-tail pigtail style.'
if hbraids <= 0:$hbraids = ''
if hbraids > 0:$hbraids = ' You have your hair beautifully braided.'
if hcol = 0:$hcol = 'black'
if hcol = 1:$hcol = 'brown'
if hcol = 2:$hcol = 'red'
if hcol = 3:$hcol = 'blonde'
if hairlength <= 30:$hair = 'You have a very short <<$hcol>> hair. It doesn''t cover your ears, with some masculine complexions, someone 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 a short <<$hcol>> hair, which may cover your ears to the the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
if hairlength > 80 and hairlength <= 160:$hair = 'You have a <<$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 a <<$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 a <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra-strapline, 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 a very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
!!if hcol = 0 and curly <= 0:$hair = 'You have a <<$hapri>> straight, black hair.'
!!if hcol = 1 and curly <= 0:$hair = 'You have a <<$hapri>> straight, brown hair.'
!!if hcol = 2 and curly <= 0:$hair = 'You have a <<$hapri>> straight, red hair.'
!!if hcol = 3 and curly <= 0:$hair = 'You have a <<$hapri>> straight, blonde hair.'
!!if hcol = 0 and curly > 0:$hair = 'You have a <<$hapri>> curly, black hair.'
!!if hcol = 1 and curly > 0:$hair = 'You have a <<$hapri>> curly, brown hair.'
!!if hcol = 2 and curly > 0:$hair = 'You have a <<$hapri>> curly red hair.'
!!if hcol = 3 and curly > 0:$hair = 'You have a <<$hapri>> curly blonde hair.'
!!if hcol = 0:$hair = 'You have a <<$hapri>> <<$curly>>, black hair.'
!!if hcol = 1:$hair = 'You have a <<$hapri>> <<$curly>>, brown hair.'
!!if hcol = 2:$hair = 'You have a <<$hapri>> <<$curly>>, red hair.'
!!if hcol = 3:$hair = 'You have a <<$hapri>> <<$curly>>, blonde hair.'
!!! Maruda Hair Mod
if lip > 4:lip = 4
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 talk, your conversation partner can get a glance at your tongue piercing.'
if pirsA = 0:$pirsA = ''
if pirsB = 1:$pirsB = 'You lower lip is pierced by a ring.'
if pirsB = 0:$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 skin > 4:skin = 4
if skin < 0:skin = 0
if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
if pirsC = 0:$pirsC = ''
if pirsD = 1:$pirsD = 'Into your nose is a nosering inserted.'
if pirsD = 0:$pirsD = ''
if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
if pirsE = 0:$pirsE = ''
if skin = 0:$skin = 'Your <<$tan>> skin is rough and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
if skin = 1:$skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
if skin = 2:$skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
if skin = 3:$skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
if skin = 4:$skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
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 = 'little neat eyebrows'
if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
if browper > 0:$brow = 'permanent tattooed eyebrows' & brokoef = 2
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 = ' Do 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 a 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 a huge <<$glacol>> eyes that almost look like they''re out of anime, <<$resnic>> and <<$brow>>.<<$glass>>'
if mop = 0:$mop = 'Your makeup is smeared all over your face'
if mop = 1:$mop = 'You''re not wearing any kind of makeup'
if mop = 2:$mop = 'Your makeup is very light, just with a very few touch-ups here and there'
if mop = 3:$mop = 'You have "everyday"-like makeup applied'
if mop = 4:$mop = 'You have thick makeup, possible a bit too flashy for daytime wear'
if leghair <= 0:legkoef = 3 & $leghair = 'You have smooth legs.'
if leghair > 0 and leghair <= 2:legkoef = 0 & $leghair = 'You can not see with your eyes but you have hair rough to touch on your leg.'
if leghair > 2 and leghair <= 5:legkoef = 0 & $leghair = 'You clearly have visible thin hairs on the legs.'
if leghair > 5:legkoef = 0 & $leghair = 'You have long hair standing out on your legs.'
if pirsG = 1:$pirsG = 'There are several piercings hanging from the lips of your vagina.'
if pirsG = 0:$pirsG = ''
if lobok <= 0:lobkoef = 3 & $lobok = 'You have a smoothly shaved pussy. <<$pirsG>>'
if lobok > 0 and lobok <= 2:lobkoef = 0 & $lobok = 'You have a light but visible hair above your crotch. <<$pirsG>>'
if lobok > 2:lobkoef = 0 & $lobok = 'You have a full delta of thick pubic hair. <<$pirsG>>'
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
if tan > 0:
tanKoef = 1
else
tanKoef = 0
end
if curly > 0:
curlykoef = 1
else
curlykoef = 0
end
if sweat <= 0:
sweatKoef = 0
else
sweatKoef = sweat * 5
end
if lipbalmstat > 0:
lipbalmKoef = 1
else
lipbalmKoef = 0
end
if vidage < 21:vidagebonus = 0
if vidage >= 21 and vidage < 26:vidagebonus = 1
if vidage >= 26 and vidage < 30:vidagebonus = 3
if vidage >= 30 and vidage < 34:vidagebonus = 6
if vidage >= 34 and vidage < 36:vidagebonus = 9
if vidage >= 36 and vidage < 38:vidagebonus = 12
if vidage >= 38 and vidage < 40:vidagebonus = 16
if vidage >= 40 and vidage < 45:vidagebonus = 25
if vidage >= 45:vidagebonus = 50
if age < 18:leghair = -5
!!CV edition: tits and lobkoef (pubic hair) removed from calc, replaced with flat bonus of 9 (6 tits, 3 hair)
vnesh = (9 + curlykoef + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + odevnesh + hapri + bonusZ + lipbalmKoef) - sweatKoef + vidagebonus - (zub * 2) + tatKeof - glassvnesh
!!!
if vnesh < 0:vnesh = 0
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 is even worse than terrible. It''s terribad. No one want to see or talk to you and avoid you at any cost necessary.'
if vnesh < 5 and vnesh> - 10:$vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
if vnesh >= 5 and vnesh < 15:$vnesh = 'You''re a wallflower. Barely anyone notices you.'
if vnesh >= 15 and vnesh < 30:$vnesh = 'You have good looks. Men and women like to take a glance at you.'
if vnesh >= 30 and vnesh < 50:$vnesh = 'You have a simply stunning appearence. Other girls are a bit jealous and guys constantly check you out.'
if vnesh >= 50:$vnesh = 'Your appearence is divine! No one is able to take his or her eyes off of you.'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!BODY
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
musle = strenbuf + vitalbuf
if musle >= salo:
!!muscular type
if bedra < 60:$body = 'You are very thin and virtually there is no fat on your body,your muscles appear through the skin.'
if bedra >= 60 and bedra < 70:$body = 'You are really thin and there is little fat on your body ,your muscles appear through the skin.'
if bedra >= 70 and bedra < 80:$body = 'You are and there is little fat on your body ,your muscles appear through the skin.'
if bedra >= 80 and bedra < 90:$body = 'You are thin and there is little fat on your body ,your muscles appear through the skin.'
if bedra >= 90 and bedra < 100:$body = 'You are thin and there is little fat on your body . Large muscles appear through your skin.'
if bedra >= 100 and bedra < 110:$body = 'You have little fat on your body, Large muscles appear through your skin.'
if bedra >= 110 and bedra < 120:$body = 'You have little fat on your body. Massive muscles appear through your skin.'
if bedra >= 120:$body = 'You have little fat on your body. Massive muscles appear through your skin.'
else
!!bold type
if bedra < 60:$body = 'You are very lean and you have virtually no muscle.'
if bedra >= 60 and bedra < 70:$body = 'You have a very thin body with a small soft booty and virtually you have no muscle.'
if bedra >= 70 and bedra < 80:$body = 'You have a very skinny body.'
if bedra >= 80 and bedra < 90:$body = 'You have a slender body.'
if bedra >= 90 and bedra < 100:$body = 'You have a curvy body.'
if bedra >= 100 and bedra < 110:$body = 'You have a chubby body.'
if bedra >= 110 and bedra < 120:$body = 'You have a plump body.'
if bedra >= 120:$body = 'You are very fat.'
end
$fat = $body
--- body ---------------------------------
# cikl
if curly > 0:curly -= 1
sweat += 1
if tan > 0:tan -= 1
if tabletki > 0:tabletki -= 1
leghair += 1
lobok += 1
if suhbelo > 0:suhbelo2 = suhbelo & suhbelo = 0
manna -= 10
!'
if salo > fat:
salo -= 1
fat += 1
else
salo += 1
fat -= 1
end
if strenbuf > stren:strenbuf -= 1
if strenbuf < stren:strenbuf += 1
if vitalbuf > vital:vitalbuf -= 1
if vitalbuf < vital:vitalbuf += 1
if agilbuf > agil:agilbuf -= 1
if agilbuf < agil:agilbuf += 1
'!
if anus > 1:
if anusK < 0:anusK = 0
if anusK < 3:anusK += 1
if anusK >= 3:anus -= 1 & anusK = 0
end
if vagina > 10:
if vaginaK < 0:vaginaK = 0
if vaginaK < 6:vaginaK += 1
if vaginaK >= 6:vaginaK = 0 & vagina -= 1
end
lipkoef -= 1
!!!!!!!!!!!!
!!!jobs!!!
!!!!!!!!!!!!
if isprok = 1:isprok = 0 & 'You threw away your used tampon.'
!!CYCLE 28 days 4 days mentsruatsiya
if preg = 0:
if mesec > 0:mesec -= 1
if mesec = 0:cikl += 1
if cikl >= 23 and preg ! 1:mesec = 4 & cikl = 0
elseif preg = 1 and pregtime < 280:
pregtime += 1
if pregtimes = 0:pregtimes = 1
elseif preg = 1 and pregtime = 280 and hourpreg ! hour:
hourpreg = hour
'A sharp pain ran through your stomach, and something flows down your legs. Snap, you water broke! You have to get to the clinic fast!'
elseif preg = 1 and pregtime > 280:
cla
*clr
over = 4
'A horrible pain shots through your body.'
xgt 'gameover'
exit
end
if StoryLine = 0:
if horny < 100:horny += vagina
else
if vagina = 0:
razeba = 0
if horny > 0 and horny <= 50:horny -= 10
if horny > 50:horny -= 25
elseif vagina > 0:
if pregtimes = 0:
if age < 18:
razeba = 1
if horny > 0 and horny <= 50:horny -= 5
if horny > 50 and horny < 80:horny -= 10
if horny >= 80:horny -= 20
elseif age >= 18 and age < 21:
razeba = 2
if horny > 0 and horny <= 50:horny -= 1
if horny > 50 and horny < 80:horny -= 5
if horny >= 80:horny -= 10
elseif age >= 21 and age < 25:
razeba = 3
if horny > 0 and horny <= 50:horny += 1
if horny > 50 and horny < 80:horny -= 1
if horny >= 80:horny -= 5
elseif age >= 25 and age < 30:
razeba = 4
if horny > 0 and horny <= 50:horny += 5
if horny > 50 and horny < 80:horny += 1
if horny >= 80:horny -= 5
elseif age >= 30:
razeba = 5
if horny > 0 and horny <= 50:horny += 10
if horny > 50 and horny < 80:horny += 5
if horny >= 80:horny += 1
end
elseif pregtimes > 0:
if preg = 0:
razeba = 5
if horny > 0 and horny <= 50:horny += 10
if horny > 50 and horny < 80:horny += 5
if horny >= 80:horny += 1
elseif preg > 0:
razeba = 6
if horny < 100:horny += pregtime / 10
end
end
end
end
if horny < 0:horny = 0
if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
!!Fall muscularity
if downmusl >= 5:
downmusl = 0
stren -= 1
vital -= 1
fat += 4
salo += 4
else
downmusl += 1
end
end
!!! Maruda Hair Mod
!!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
!!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
if hairlength < 601:hairlength += 1
if hscrunch > 0:
hscrunchrand = rand(1, 100)
if hscrunchrand <= 8:hscrunch -= 1
end
!!! Maruda Hair Mod
gs 'starenie'
--- cikl ---------------------------------
# dina
gs 'dinSex'
gs 'dinBoroda'
$d_read_porn = {
act 'Read the porn magazine':
cls
'
'
if pornMagazine = 1:
'Boring, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
else
pornMagazine -= 1
horny += 10
minut += 5
gs 'stat'
'You are flipping through the porno magazine, reading the stories and looking at the pictures and a small excitement begins to cover your body.'
end
act 'Put away':gt $curloc
end
}
!!!WD: Doesn''t exists anymore in 1.0.5
$sitr_tread_d = {
cla
*clr
minut += 15
treadmillday = day
agil += 2
sweat += 1
beg += 1
manna -= 1
fat -= 2
'
'
'You''ve spent fifteen minutes running in the treadmill.'
act 'Leave':gt $curloc
}
!!!
$sitrobrd = {
cla
*clr
minut += 15
obruchday = day
agil += 1
sweat += 1
manna -= 1
fat -= 1
'
'
'You develop your dexterity by using the hula hoop.'
act 'Leave':gt $curloc
}
$sitryogd = {
cla
*clr
minut += 15
bookYogday = day
will += 1
manna += 5
!!!CV extension
!!'
'
if nude = 0:'
'
if nude = 1 and tanga = 1:'
'
if nude = 1 and tanga = 0:'
'
!!!
'You meditate for fifteen minutes, developing your will.'
act 'Leave':gt $curloc
}
$sitrskakd = {
cla
*clr
minut += 15
skakday = day
speed += 1
sweat += 1
manna -= 1
fat -= 1
!!!CV extension
!!'
'
if nude = 0:'
'
if nude = 1 and tanga = 0:'
'
if nude = 1 and tanga = 1:'
'
!!!
'You''re rope jumping for fifteen minutes, developing your speed.'
act 'Leave':gt $curloc
}
$sitrpressd = {
cla
*clr
minut += 15
pressday = day
vital += 1
sweat += 1
manna -= 1
fat -= 1
!!!CV extension
!!'
'
if nude = 0:'
'
if nude = 1 and tanga = 1:'
'
if nude = 1 and tanga = 0:'
'
!!!
'You do a series of abdominal exercises for fifteen minutes, developing your endurance.'
act 'Leave':gt $curloc
}
$sitrpushd = {
cla
*clr
minut += 15
pushday = day
stren += 1
sweat += 1
manna -= 1
fat -= 1
!!!CV extension
!!'
'
if nude = 0:'
'
if nude = 1 and tanga = 1:'
'
if nude = 1 and tanga = 0:'
'
!!!
'You do push-ups for fifteen minutes, developing your strength.'
pushnum = rand(stren / 10, stren / 5)
'
You managed to do <> push-ups. Your previous record is <>.'
if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
act 'Leave':gt $curloc
}
$gladbelo = {
cla
*clr
minut += suhbelo2 * 3
clrbelo += suhbelo2
suhbelo2 = 0
manna -= 10
elektro += 10
!!!CV extension
!!'
'
if nude = 0:'
'
if nude = 1 and tanga = 1:'
'
if nude = 1 and tanga = 0:'
'
!!!
'You iron your underwear.'
act 'Leave':gt $curloc
}
$showerdin = {
cumpussy = 0
cumbelly = 0
cumass = 0
cumanus = 0
cumlip = 0
cumface = 0
}
!!WD: Kioks event replaced with new code from Przemar!Przemar:** KIOSK ** ver 02
!!Przemar:IMAGE NEEDED 'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles'
!!WD:"SUB >= 15" for act - Will need balancing / playtesting
$kiosksig = {
cls
gs 'stat'
'
'
'A pack of cigarettes costs 50 rubles.'
*pl
if money >= 50:
if hour >= 12 and hour <= 15:
'
'
'There''s a long line in front of the kiosk.'
act 'Wait in line and buy cigarettes (30 Minutes)':
minut += 30
siga += 20
money -= 50
gt $curloc
act 'Leave':gt $curloc
end
if exhibi >= 4:
act 'Flash both your tits and your pussy':
cls
gs 'stat'
minut += 10
siga += 20
money -= 50
if kioskflash = 0:
exhibi += 1
kioskflash = 1
end
'
'
'The people in front of you are shocked, as they see you flashing your tits and your pussy. As a small thank you, some of them let you move further up in the line.'
act 'Buy and leave':gt $curloc
end
end
if exhibi >= 3:
act 'Flash your pussy':
cls
gs 'stat'
minut += 10
siga += 20
money -= 50
if kioskflash = 0:
exhibi += 1
kioskflash = 1
end
if lobok >= 2:'
'
if lobok <= 2:'
'
'The people in front of you are shocked, as they see you flashing your pussy. As a small thank you, some of them let you move further up in the line.'
act 'Buy and leave':gt $curloc
end
end
if exhibi >= 2:
act 'Flash your tits':
cls
gs 'stat'
minut += 10
siga += 20
money -= 50
if kioskflash = 0:
exhibi += 1
kioskflash = 1
end
'
'
'The people in front of you are shocked, as they see you flashing your tits. As a small thank you, some of them let you move further up in the line.'
act 'Buy and leave':gt $curloc
end
end
if SUB >= 15:
act 'Suggest to blow someone in front of you':
cls
gs 'stat'
minut += 10
siga += 20
money -= 50
throat += 1
bj += 1
if cumlip = 0:
'
'
'A man agrees to your suggestion and let you move in front of him.'
act 'Cum on your face':
cls
'
'
'The man cums on your face.'
cumface += 1
act 'Go away and buy cigarettes':gt $curloc
end
act 'Cum on your mouth':
cls
'
'
'The man cums inside your mouth.'
cumlip += 1
act 'Go away and buy cigarettes':gt $curloc
end
else
!!Przemar:IMAGE NEEDED
'
'
'Man punched you and say " Go away bitch, your mouth is full of sperm " - in this case you are needed to wait 4 hours and pays 200 rubles.'
minut += 240
siga += 20
money -= 200
act 'Leave':gt $curloc
end
end
end
else
act 'Buy a pack of cigarettes':
siga += 20
money -= 50
minut += 5
gt $curloc
end
end
else
'You don''t have enough money to buy cigarettes.'
end
act 'Leave':gt $curloc
exit
}
$budilnik = {
'