# obj_din if $ARGS[0] = 'chartabs': cla !0: Character !1: Skills !2: Stats !4: Pain !5: Traits !6: Renown !7: Magic '
' if menu_page = 0:''+iif(pcs_magik = 0,'','')+'' if menu_page = 1:''+iif(pcs_magik = 0,'','')+'' if menu_page = 2:''+iif(pcs_magik = 0,'','')+'' if menu_page = 3:''+iif(pcs_magik = 0,'','')+'' if menu_page = 4:''+iif(pcs_magik = 0,'','')+'' if menu_page = 5:''+iif(pcs_magik = 0,'','')+'' if menu_page = 6:''+iif(pcs_magik = 0,'','')+'' '
CharacterSkillsStatisticsPainTraitsRenownMagicCharacterSkillsStatisticsPainTraitsRenownMagicCharacterSkillsStatisticsPainTraitsRenownMagicCharacterSkillsStatisticsPainTraitsRenownMagicCharacterSkillsStatisticsPainTraitsRenownMagicCharacterSkillsStatisticsPainTraitsRenownMagicCharacterSkillsStatisticsPainTraitsRenownMagic
' act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit' end if $ARGS[0] = 'bodytabs': cla !0: Face !1: Body !2: Clothes !3: Bra !4: Panties !5: Shoes !6: Tattoos !7: Magic '
' if menu_page = 0:'' if menu_page = 1:'' if menu_page = 2:'' if menu_page = 3:'' if menu_page = 4:'' if menu_page = 5:'' if menu_page = 6:'' if menu_page = 7:'' '
LooksBodyClothesBraPantiesShoesTattoosPiercingsLooksBodyClothesBraPantiesShoesTattoosPiercingsLooksBodyClothesBraPantiesShoesTattoosPiercingsLooksBodyClothesBraPantiesShoesTattoosPiercingsLooksBodyClothesBraPantiesShoesTattoosPiercingsLooksBodyClothesBraPantiesShoesTattoosPiercingsLooksBodyClothesBraPantiesShoesTattoosPiercingsLooksBodyClothesBraPantiesShoesTattoosPiercings
' act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit' end if $ARGS[0] = 'settingtabs': cla !0: Gameplay !1: Display !2: Status !3: Phone !4: Mods '
' if menu_page = 0:''+iif(settingmode = 1,'','')+'' if menu_page = 1:''+iif(settingmode = 1,'','')+'' if menu_page = 2:''+iif(settingmode = 1,'','')+'' if menu_page = 3:''+iif(settingmode = 1,'','')+'' if menu_page = 4:''+iif(settingmode = 1,'','')+'' '
Gameplay SettingsDisplay SettingsStatus Window SettingsPhone Theme SettingsModsGameplay SettingsDisplay SettingsStatus Window SettingsPhone Theme SettingsModsGameplay SettingsDisplay SettingsStatus Window SettingsPhone Theme SettingsModsGameplay SettingsDisplay SettingsStatus Window SettingsPhone Theme SettingsModsGameplay SettingsDisplay SettingsStatus Window SettingsPhone Theme SettingsMods
' if settingmode = 1: act '
Return to character creation
': killvar 'menu_page' settingmode = 0 gt 'begin', 'start' end else !call from Menu - Game settings act 'Enter cheat menu': killvar 'menu_page' & gs '$menu_cheat' act 'Emergency Exit': killvar 'menu_page' & gt 'obj_din', 'emergency' act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit' end end if $ARGS[0] = 'cheattabs': cla !0: Index !1: Recurrent !2: State !3: Appearance !4: Skill !5: Relationships !6: Documents !7: Magic !8: Time !9: NPCChanger !10: Pain !11: DNA !12: ImageSets '
' if menu_page = 0:''+iif(pcs_magik = 0,'','')+'' if menu_page = 1:''+iif(pcs_magik = 0,'','')+'' if menu_page = 2:''+iif(pcs_magik = 0,'','')+'' if menu_page = 3:''+iif(pcs_magik = 0,'','')+'' if menu_page = 4:''+iif(pcs_magik = 0,'','')+'' if menu_page = 5:''+iif(pcs_magik = 0,'','')+'' if menu_page = 6:''+iif(pcs_magik = 0,'','')+'' if menu_page = 7:''+iif(pcs_magik = 0,'','')+'' if menu_page = 8:''+iif(pcs_magik = 0,'','')+'' if menu_page = 9:''+iif(pcs_magik = 0,'','')+'' if menu_page = 10:''+iif(pcs_magik = 0,'','')+'' if menu_page = 11:''+iif(pcs_magik = 0,'','')+'' if menu_page = 12:''+iif(pcs_magik = 0,'','')+'' '
IndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage SetsIndexRecurrentStateAppearanceSkillRelationshipsDocuments
MagicTimeNPC EditorPainDNAImage Sets
' act 'Settings menu': killvar 'menu_page' & gs '$menu_setting' act 'Emergency Exit': killvar 'menu_page' & gt 'obj_din', 'emergency' act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit' end if $ARGS[0] = 'menu_exit': !gt $loc, $metka gt '<<$menu_loc>>', '<<$menu_arg>>' end if $ARGS[0] = 'menu_disabled': 'Menu is disabled for this event' end if $ARGS[0] = 'description': *clr & cla gs 'obj_din','chartabs' gs 'body' !'

' '

Character Description

' '
' 'Your name is <<$pcs_firstname>> <<$pcs_lastname>>.' !!!0.2.6 extension if StoryLine > 0: 'Your friends and family sometimes call you <<$pcs_nickname>>.' else 'Your friends sometimes call you <<$pcs_nickname>>.' end !!! if ARRSIZE('home_owned') = 0: 'You have nowhere to live, if this is an error set your current home here.' else 'Your current home is <<$home_name>>.' end if succubusflag = 1 and sucpcinfo >= 4: 'You are a Succubus.' 'Succubus Level: <>' end if age = vidage: 'You are <> years old.' else 'You are <> years old, but you appear to be <>.' end if birthday <= 9 and birthmonth <= 9: $birthdayD = '0<>.0<>.<>.' elseif birthday > 9 and birthmonth <= 9: $birthdayD = '<>.0<>.<>.' elseif birthday > 9 and birthmonth > 9: $birthdayD = '<>.<>.<>.' else $birthdayD = '0<>.<>.<>.' end 'Your date of birth is <<$birthdayD>>' *nl '<<$pcs_apprnc>>' *nl 'You are <>cm tall and <<$body>>.' 'Your breasts would be considered an EU <<$titsize>>.' '<<$nipplesize>>' *nl if preg = 1: if denypreg = 1 and pregchem > 2688: 'You seem to be putting on a bit of weight, your belly is definitely bigger.' *nl elseif pregchem > 4704: 'You''re rapidly approaching the finish line and have entered the third trimester. Your belly is so big now that you can barely remember what your toes look like. Your back hurts most of the time and it is a struggle to get to your feet if you sit down. The baby seems to think that your bladder makes a nice punching bag.' *nl elseif pregchem > 3696: 'Your belly is quite swollen now and shows under even the loosest of clothes. You find yourself constantly caressing your belly without realizing it.' *nl elseif pregchem > 3192 and knowpreg = 1: 'You are showing for sure now. Your tummy is starting to become rounder as it grows larger each day, although you can still wear baggy clothes to hide it. At least the morning sickness and nausea seem to have gone away for the most part.' *nl elseif pregchem > 3192 and knowpreg = 0: 'You can''t seem to stop gaining weight and your belly looks like it is getting bigger everyday, although you can still wear baggy clothes to hide it. At least the flu you''ve been fighting lately seems to have finally gone away for the most part.' *nl elseif pregchem > 1800 and knowpreg = 1: 'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.' *nl elseif pregchem > 1800 and knowpreg = 0: 'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.' *nl elseif pregchem > 1200: 'You''ve noticed that your breasts seem firmer lately and your nipples seem to be sticking out more.' *nl end end '<<$lip>>' '<<$pcs_throat>>' '<<$skin>>' '<<$glaza>>' '<<$pcs_makeup>>.' '<<$pcs_leghair>>' '<<$pcs_pubes>>' '<<$pcs_vag>>' '<<$pcs_ass>>' *nl if avatar_hair = 1: 'Your hair: <<$av_hair>>.' else '<<$hair>>' end if defcurly = 0 and curly > 0: 'Your curls are good for another <> days.' if defcurly = 1 and straight > 0: 'Your hair should be straight for another <> days.' *nl if salo < 10 and musle > 0 and dounspell = 0: 'You are showing signs of malnourishment. You should probably eat more and more often.' if salo < 10 and musle = 0 and dounspell = 0: '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 pcs_teeth = 1:$zuba = ' tooth' if pcs_teeth >= 2:$zuba = ' teeth' if pcs_teeth > 0: 'You have lost <><<$zuba>>.' !! 'pcs_apprnc <>' !! 'curlykoef <> a maximum of 1' !! 'tits <> A maximum of 6' !! 'pcs_lip <> a maximum of 4' !! 'tanKoef <> a maximum of 1' !! 'skin <> a maximum of 4' !! 'pcs_makeup <> a maximum of 4' !! 'pcs_lashes <> a maximum of 2' !! 'pcs_eyesize <> a maximum of 3' !! 'bodykoef <> a maximum of 8' !! 'legkoef <> a maximum of 3' !! 'lobkoef <> a maximum of 3' !! 'odevnesh <> a maximum of 15' !! 'pcs_sweat <> the maximum 0' !! 'pcs_hairbsh <> a maximum of 1' !!!!!!!! Maruda Hair Mod if pcs_hairlng > 41 and hscrunch >= 1: if hscrunchw = 0 and hpingripw = 0: 'As you have a scrunchy, you can arrange your hair into a ponytail. You have <> scrunchies left.' if hscrunchw = 1: 'Remove the scrunchie to get rid of the ponytail.' end if pcs_hairlng > 41 and hpingrip >= 1: if hscrunchw = 0 and hpingripw = 0: '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: 'Let your hair flow free.' end if pcs_hairlng > 80 and hscrunch >= 2: if hscrunchw = 0 and hpingripw = 0: 'You can use two hair ties to make yourself some pigtails.' if hscrunchw = 2: '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 '
' end if $ARGS[0] = 'cur_home': *clr & cla !'

' '

<<$pcs_firstname>>''s Home Location

' '
' act 'Return to main description': gt 'obj_din', 'description' *nl !!This is correct it just looks wrong if home_owned[1] > 0: 'Set current home as City residential apartment' if home_owned[2] = 1: 'Set current home as Parent''s home in Pavlovsk' if home_owned[3] > 0: 'Set current home as My cottage in the cooperative farm' if home_owned[4] = 1: 'Set current home as Old town apartment' if home_owned[5] > 2: 'Set current home as My mansion' if home_owned[6] = 1: 'Set current home as My hotel room in Pavlovsk' if home_owned[7] = 1: 'Set current home as Nicholas'' apartment' if home_owned[8] = 1: 'Set current home as Niko''s apartment' if home_owned[9] = 1: 'Set current home as Uncle Sergey''s apartment' if home_owned[10] = 1: 'Set current home as Lyceum school' if home_owned[11] = 1: 'Set current home as University halls' if home_owned[12] = 1: 'Set current home as Hunter''s lodge in Gadukino' if home_owned[13] = 1: 'Set current home as Shared apartment in Pavlovsk' !!Apostrophe colour correction - KS '''' '
' end if $ARGS[0] = 'skills': *clr & cla gs 'obj_din','chartabs' !'

' '

Character Skills

' '
' '
' 'Base Skills' *nl 'base / modified' *nl 'Strength - <> / <>' 'Agility - <> / <>' 'Endurance - <> / <>' 'Intelligence - <> / <>' 'Spirit - <> / <>' 'Reaction - <> / <>' 'Charisma - <> / <>' 'Perception - <> / <>' if pcs_magik > 0: 'Magic - <>' 'Attractiveness - <>' !'Speed <>' - not used *nl 'Mental Skills' *nl if pcs_scstng > 0: 'Spell Casting - <>' if pcs_humint > 0:'People skills - <>' if pcs_persuas > 0:'Persuasion - <>' if pcs_observ > 0:'Observation - <>' '' 'Sport Skills' *nl if pcs_jab > 0: 'Jabs - <>' if pcs_punch > 0: 'Power Strikes - <>' if pcs_kick > 0: 'Kicks - <>' if pcs_def > 0: 'Defense - <>' if pcs_run > 0: 'Running - <>' if pcs_vball > 0: 'Volleyball - <>' if pcs_ftbll > 0: 'Football - <>' if pcs_wrstlng > 0: 'Wrestling - <>' if pcs_shoot > 0: 'Shooting Accuracy - <>' if pcs_bushcraft > 0: 'Bushcraft - <>' if pcs_chess > 0: 'Chess - <>' if pcs_icesktng > 0: 'Ice Skating - <>' if pcs_gaming > 0: 'Gaming - <>' if pcs_pool > 0: 'Pool - <>' *nl 'Artistic Skills' *nl if pcs_vokal > 0: 'Singing <>' if pcs_instrmusic > 0: 'Instrumental Music - <>' if pcs_photoskl > 0: 'Photography - <>' if pcs_artskls > 0: 'Artistic Skills - <>' '' 'Job Skills' *nl if pcs_compskl > 0: 'Computer Skill - <>' if pcs_comphckng > 0: 'Hacking - <>' if pcs_hndiwrk > 0: 'Handy-work - <>' if pcs_sewng > 0: 'Tailoring - <>' if pcs_servng > 0: 'Serving - <>' if pcs_medcn > 0: 'Medicine - <>' if teachlevel > 0: 'Teacher - credibility <>' *nl 'Other Skills' *nl if SchoolAtestat = 0 and StoryLine > 0: if pcs_grades > 0: 'School Grades - <>' if schoolprogul > 0: 'Schhool absenteesim - <>' end '' 'Beauty Skills' *nl if pcs_makeup > 0: 'Makeup Skill - <>' if pcs_danc > 0: 'Modern Dancing - <>' if pcs_dancero > 0: 'Erotic Dancing - <>' if pcs_dancpol > 0: 'Pole Dancing - <>' if pcs_mdlng > 0: 'Modelling - <>' *nl 'Sexual Skills' *nl 'Inhibition <<100-pcs_inhib>>' 'Exhibitionist preference: <>' 'Exhibitionist sex: <>' if SUB > 0: 'Submissiveness <>' if pcs_dom > 0: 'Dominance <>' 'Submissive sex: <>' 'Dominant sex: <>' 'Lesbian sex preference: <>' 'Lesbian sex: <>' '
' end if $ARGS[0] = 'husb_cheat_count': if husband > 0: if guy > before_h_guy : guy_cheat += guy - guy_cheat before_h_guy = guy end if girl > before_h_girl: girl_cheat += girl - before_h_girl before_h_girl = girl end end if before_h_girl > 0 and before_h_guy > 0: 'During your marriage you have cheated with your husband with <> guys and <> girls.' elseif before_h_guy > 0: 'During your marriage you have cheated with your husband with <> guys.' elseif before_h_girl > 0: 'During your marriage you have cheated with your husband with <> girls.' end end if $ARGS[0] = 'stats': *clr & cla gs 'obj_din','chartabs' gs 'housing', 'rent' !'

' '

Character Statistics

' '
' '
' '
General Statistics
' *nl if opPRE = 0: 'It has been <> days since the game started.' *nl if SchoolAtestat = 0 and StoryLine > 0: if pcs_grades >= 90: 'You''re an A+ student.' elseif pcs_grades >= 80: 'You''re a bright student, just not the top of your class.' elseif pcs_grades >= 70: 'You''re an above average student, but you have to work hard to keep up.' elseif pcs_grades >= 60: 'You''re the typical average student. You''re good in the fields you like, but can''t be bothered with the rest.' elseif pcs_grades >= 50: 'You''re not very good in school, you wish you could be somewhere else and your grades show it.' elseif pcs_grades >= 40: 'You''re not cut out for school, you skip out most of the time. You wonder how you''re going to manage to get passing grades.' else 'You''re the class nitwit. You''re still not sure how you got this far in the first ace.' end if schoolprogul > 1: 'Absenteeism in school - <> days' end *nl if (home_owned[1] = 1 and ArendHouseSL > 0) or (home_owned[4] > 0 and ArendHouseSL4 > 0): *nl if home_owned[1] = 1 and home_owned[4] > 0: 'You have rented an apartment in the city residential area, which is paid up for <> days, and you also have an apartment in Pushkin, which is paid up for <> days. Utilities are due on the 25th of <<$month>>.' elseif home_owned[1] = 1: 'You have rented an apartment in the city residential area, and you''re paid up for <> days. Utilities are due on the 25th of <<$month>>.' elseif home_owned[4] > 0: 'You have rented an apartment in Pushkin, and you''re paid up for <> days. Utilities are due on the 25th of <<$month>>.' end if home_owned[1] = 1: if karta >= home_rent[1] or money >= home_rent[1] or money + stolmoney >= home_rent[1] or karta + bankDebtLimit >= home_rent[1]: *nl *p 'The monthly rent for your city apartment is <> . ' if karta >= home_rent[1]: !From bank *p 'You can make an advance payment from your bank account.' elseif money >= home_rent[1]: !From cash *p 'You can make an advance payment from your on-hand cash.' *nl elseif stolmoney >= home_rent[1]: !From drawer *p 'You can make an advance payment from the cash you have in your stash drawer.' *nl elseif money + stolmoney >= home_rent[1]: !From cash and drawer *p 'You can make an advance payment from your on-hand cash and the cash in your stash drawer.' *nl elseif karta + bankDebtLimit >= home_rent[1]: !From bank and overdraw *p 'You can make an advance payment from your bank account and overdraw facility.' *nl else *p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.' *nl end end end if home_owned[4] > 0: if karta >= home_rent[4] or money >= home_rent[4] or money + stolmoney >= home_rent[4] or karta + bankDebtLimit >= home_rent[4]: *nl *p 'The monthly rent for your Pushkin apartment is <> . ' if karta >= home_rent[4]: !From bank *p 'You can make an advance payment from your bank account.' *nl elseif money >= home_rent[4]: !From cash *p 'You can make an advance payment from your on-hand cash.' *nl elseif stolmoney >= home_rent[4]: !From drawer *p 'You can make an advance payment from the cash you have in your stash drawer.' *nl elseif money + stolmoney >= home_rent[4]: !From cash and drawer *p 'You can make an advance payment from your on-hand cash and the cash in your stash drawer.' *nl elseif karta + bankDebtLimit >= home_rent[4]: !From bank and overdraw *p 'You can make an advance payment from your bank account and overdraw facility.' *nl else *p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.' *nl end end end end if kid = 1: *nl 'You have 1 child:' else 'You have <> children:' end if kid > 0: k = 0 :kidloop if k < kid: gs 'obj_din','kidlist',k k += 1 jump 'kidloop' end end if workPTU > 1: 'Reputation as a teacher <>' *nl if npc_QW['A192'] > 0: 'Friendship with Nastya <>' if npc_rel['A218'] > 0: 'Friendship with Tanya <>' if npc_rel['A219'] > 0: 'Friendship with Kat <>' if npc_rel['A220'] > 0: 'Friendship with Vika <>' if npc_rel['A93'] > 0: 'Friendship with Ira <>' if npc_rel['A43'] > 0: 'Friendship with Tamara <>' if alla > 0: 'Friendship with Alla <>' if masha > 0: 'Friendship with Masha <>' if npc_rel['A41'] > 0: 'Friendship with Givi K. <>' if npc_rel['A42'] > 0: 'Friendship with Ashot <>' if Dmitry > 0: 'Friendship with Dima <>' if afra > 0: 'Friendship with blacks <>' if npc_rel['A69'] > 0:'Friendship with Mikhail Nikolaevich <>' !!!WD: Formatting if (npc_rel['A93'] + npc_rel['A41'] + npc_rel['A42'] + npc_rel['A43'] + afra + gosh + npc_rel['A220'] + npc_rel['A219'] + npc_QW['A192'] + npc_rel['A218']) > 0:*nl *nl if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0: 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw' '<> (<>KO) - <> (<>KO) - <>' end if Win > 0 or Loss > 0: 'Wins in fights <>, losses in fights <>' & *nl if razradKik > 0: '<<$razradKik>>' if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0: 'Amateur Kickboxing Record:
Wins: <> (<> by KO) - Losses: <> (<> by KO) - Draws: <>' *nl end if razradKik > 0: if razradKik = 1:$razradKik = 'You have earned green sash(rank 4) in kickboxing' if razradKik = 2:$razradKik = 'You have earned purple sash(rank 5) in kickboxing' if razradKik = 3:$razradKik = 'You have earned blue sash(rank 6) in kickboxing' if razradKik = 4:$razradKik = 'You have earned brown sash(rank 7) in kickboxing' if razradKik = 5:$razradKik = 'You have earned black sash, 1st dan in kickboxing' *nl end if kolsorev > 0: 'You have run in <> races' if swinbeg >= 1: 'You have <> trophies from local racing competitions' if bronzebeg > 0: '<> - bronze medals for running' if silverbeg > 0: '<> - silver medals for running' if goldbeg > 0: '<> - gold medals for running' if razradbegEB > 0: '<> times bronze medalist at European Championship' if razradbegES > 0: '<> runner up at European Championship' if razradbegEG > 0: '<> times European champion.' if razradbegIB > 0: '<> times bronze medalist at World Championship' if razradbegIS > 0: '<> runner up at World Championship' if razradbegIG > 0: '<> times World champion' if razradbeg > 0: if razradbeg = 1: 'You have third sports category for event' if razradbeg = 2: 'You 2nd sports category for event' if razradbeg = 3: 'You 1st sports category for event' if razradbeg = 4: 'You have the title of Candidate Master of Sports for event' if razradbeg = 5: 'You have the title of Master of Sports in the run' if razradbeg >= 6: 'You have the title of International Master of Sports for event' *nl end if chess_win > 0 or chess_loss > 0:'Chess Record: Win <>, Loss <>' if chess_rank > 0: if chess_rank = 1:'You have mastered the basics of chess' if chess_rank = 2:'You''re starting to get good at chess' if chess_rank = 3:'You''re a good chess player' if chess_rank = 4:'You''re an excellent chess player' if chess_rank = 5:'You''re a candidate for chess master' if chess_rank = 6:'You''re a chess master' if chess_rank = 7:'You''re a chess Grandmaster' end if chess_world_rank > 0: if chess_world_rank = 1:'The title of FIDE Master Chess' if chess_world_rank = 2:'The title of International Chess Master' if chess_world_rank = 3:'The title of International Grandmaster Chess' end *nl !!! if modelfoto > 0: 'Modelling Statistics' *nl '<> - Number of times you have worked as a model' '<> - The amount of money you''ve made modelling' if modelfoto_fashion > 0: '<> - Number of fashion shoots you have participated in' if modelfoto_ero_clo > 0: '<> - Number of erotic clothing shoots you have participated in' if modelfoto_bikini > 0: '<> - Number of swimsuit shoots you have modelled in' if modelfoto_lingerie > 0: '<> - Number of lingerie shoots you have participated in' if modelfoto_nip > 0: '<> - Number of times your nipples have been visible as a model' if modelfoto_topless > 0: '<> - Number of shoots where you have been topless' if modelfoto_nude > 0: '<> - Number of nude modelling shoots you have participated in' if modelfoto_pussy > 0: '<> - Number of shoots your vagina has been visible' *nl end if slavafuck > 0:'You have let Borislav fuck you <> times' if slava_bj > 0:'You have given Borislav <<$slava_bj>> blowjobs' if maxdamage > 0: 'The impact force on the dynamometer <> kgN' & *nl if stripdancesum > 0 and hidden_stripdancesum = 0: 'You have danced <> times in the stripclub' elseif stripdancesum = 0 and hidden_stripdancesum > 0: 'You have danced <> times in the stripclub, but you do nor remember it' elseif stripdancesum > 0 and hidden_stripdancesum > 0: 'You have danced <> times in the stripclub, but you only remember <> times' end if profiDanceTime > 0: 'You danced <> times professionally.' if SchoolAtestat = 1: 'You have finished school.' if diplom = 1: 'You graduated.' if teachlevel > 0: 'Your credibility as a teacher is <>' !WD:FORMATING if (maxdamage + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:*nl '
' '
Sex Statistics
' *nl !Sex stats if mastr > 0 or stat['mast'] > 0: 'Times you have masturbated: <>' if stat['porn'] > 0: 'Times you have watched porn: <>' if stat['flashlite'] > 0 or stat['flash'] > 0: 'Times you have flashed: <>' if stat['voyeur'] > 0: 'Times you have watched other people fuck: <>' if spank > 0: 'You have had your ass spanked <> times' temp = func('shortgs','guy') if guy+temp > 0 and hidden_guy = 0: 'You had sex with <> guys.' elseif guy+temp = 0 and hidden_guy > 0: 'You had sex with <> guys, but you do not have any recollection of it. You still think of yourself as a virgin.' elseif guy+temp > 0 and hidden_guy > 0: 'You had sex with <> guys, but you know only about <> of them.' end temp = func('shortgs','girl') if girl+temp > 0 and hidden_girl = 0: 'You had sex with <> girls.' elseif girl+temp = 0 and hidden_girl > 0: 'You had sex with <> girls, but you do not have any recollection of any of it.' elseif girl+temp > 0 and hidden_girl > 0: 'You had sex with <> girls, but you know only about <> of them.' end if divorced > 0: 'You were married <> times.' if suprdolg > 0: 'You performed your conjugal duty for your husband <> times' if rape > 0 and hidden_rape = 0: 'You have been raped <> times' elseif rape = 0 and hidden_rape > 0: 'You have been raped <> times, but you do not remember any of it' elseif rape > 0 and hidden_rape > 0: 'You have been raped <> times, but you only remember <> of them' end if slutty > 0 or hidden_slutty > 0: if bordelslutty = 0: 'Sold your body <> times.' if bordelslutty > 0: 'Sold your body <> times, including <> times in a brothel.' if hidden_slutty > 0: 'Sold your body <> times, and gave all the money to your therapist. You do not remember any of it.' end if orgasm > 0: 'Experienced orgasm <> times.' if analorgasm > 0 : 'You''ve had <> anal orgasms.' if swallow > 0: 'Sperm swallowed <> times.' if facial > 0: 'You have taken <> facials.' if frot > 0 or hump > 0: 'Your clothes have been come on <> times.' if zoo > 0: 'Had sex with animals <> times.' if pee > 0: 'You pissing <> times.' if swallowpee > 0: 'You swallowed urine <> times.' !!!WD:FORMATING if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + zoo + pee) > 0:*nl !!! gs 'obj_din', 'husb_cheat_count' if hj > 0 or stat['hj'] > 0 or stat['hidden_hj'] > 0: 'Jerked men off (known/unknown): <>/<>' if hja > 0: 'Jerked off your boyfriend: <>' end if stat['footjob'] > 0 or stat['hidden_footjob'] > 0: 'Jerked men off with your feet (known/unknown): <>/<>' if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0: 'Sucked cock (known/unknown): <>/<>' if bja > 0: 'Sucked your boyfriends cock: <>' if gloryhole > 0 or hidden_gloryhole > 0: 'Sucked cock in a gloryhole (known/unknown): <>/<>' end if sex > 0 or stat['vaginal'] > 0 or stat['hidden_vaginal'] > 0: 'Vaginal sex (known/unknown): <>/<>' if sexa > 0: 'Vaginal sex with your boyfriend: <>' if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0: ' Known vaginal creampies:' if pcs_cp_safe_known > 0:' Safe: <>' if pcs_cp_notsafe_known > 0:' Likely safe: <>' if pcs_cp_risky_known > 0:' Risky: <>' end if (pcs_cp_safe_unknown + pcs_cp_notsafe_unknown + pcs_cp_risky_unknown) > 0: ' Unknown vaginal creampies:' if pcs_cp_safe_unknown > 0:' Safe: <>' if pcs_cp_notsafe_unknown > 0:' Likely safe: <>' if pcs_cp_risky_unknown > 0:' Risky: <>' end if lesbian > 0 or hidden_lesbian > 0: if hidden_lesbian = 0: 'Lesbian sex (known/unknown): <>/<>' end if futa > 0 or hidden_futa > 0: 'Sex with tgirls (known/unknown): <>/<>' if anal > 0 or stat['anal'] or stat['hidden_anal']: 'Anal sex (known/unknown): <>/<>' if anala > 0: 'Anal sex with your boyfriend: <>' end if pcs_acp_known > 0: ' Known anal creampies: <>' if pcs_acp_unknown > 0: ' Unknown anal creampies: <>' if gang > 0 or hidden_gang > 0: 'Group sex (known/unknown): <>/<>' if kuni > 0 or stat['cuni'] > 0: 'Received cunnilingus: <>' if stat['vaginal_finger'] > 0: 'Fingered: <>' if stat['vaginal_fist'] > 0: 'Fisted: <>' if stat['vaginal_dildo'] > 0: 'Fucked a dildo: <>' if stat['vaginal_strap'] > 0: 'Fucked with a strap-on: <>' if stat['vaginal_vibe'] > 0: 'Clitoral / Vaginal vibrator: <>' if stat['trib'] > 0: 'Tribalism: <>' if stat['anal_finger'] > 0: 'Anally fingered: <>' if stat['anal_fist'] > 0: 'Anally fisted: <>' if stat['rimming'] > 0: 'Ass rimmed: <>' if stat['anal_dildo'] > 0: 'Anal sex with a dildo: <>' if stat['anal_strap'] > 0: 'Ass fucked with a strap-on: <>' if stat['anal_vibe'] > 0: 'Anal vibrator: <>' if stat['cuni_give'] > 0: 'Performed cunnilingus: <>' if stat['vaginal_finger_give'] > 0: 'Fingered a girl: <>' if stat['vaginal_fist_give'] > 0: 'Fisted a girl: <>' if stat['vaginal_dildo_give'] > 0: 'Dildoed a girl: <>' if stat['vaginal_strap_give'] > 0: 'Strap-on fucked a girl: <>' if stat['vaginal_vibe_give'] > 0: 'Used vibrator on a girl: <>' if stat['rimming_give'] > 0: 'Rimmed someone: <>' if stat['anal_finger_give'] > 0: 'Fingered someone else''s ass: <>' if stat['anal_fist_give'] > 0: 'Fisted someone else''s ass: <>' if stat['anal_dildo_give'] > 0: 'Dildoed someone else''s ass: <>' if stat['anal_vibe_give'] > 0: 'Used a vibrator on someone else''s ass: <>' if stat['anal_strap_give'] > 0 or stat['anal_strap_give'] > 0: 'Fucked someone else''s ass with a strap-on: <>' '
' '
Fetish Statistics
' *nl 'Feet preference: <>' 'Foot jobs / worship: <>' 'Deepthroat preference: <>' 'Deepthroated: <>' 'Group preference: <>' 'Group sex: <>' 'Gangbang preference: <>' 'Gangbangs: <>' 'Humiliation preference: <>' 'Humiliation experiences: <>' 'Prostitution preference: <>' 'Prostituted yourself: <>' 'Bondage preference: <>' 'Bondage play: <>' 'Masochism preference: <>' 'Masochism experiences: <>' 'Bestiality encounters: <>' 'Bestiality experience: <>' 'Rough sex preference: <>' 'Rough sex: <>' 'Incest preference: <>' 'Incestuous sex: <>' '
' end if $ARGS[0] = 'stats_gen': *clr & cla gs 'housing', 'rent' !'

' '

General Statistics

' '
' '
' act 'Return to the statistics index': gt 'obj_din', 'stats' *nl if opPRE = 0: 'It has been <> days since the game started.' *nl if SchoolAtestat = 0 and StoryLine > 0: if pcs_grades >= 90: 'You are an A+ student.' elseif pcs_grades >= 80: 'You are a bright student, just not the top of your class.' elseif pcs_grades >= 70: 'You are an above average student, but you have to work hard to keep up.' elseif pcs_grades >= 60: 'You are the typical average student. You''re good in the fields you like, but can''t be bothered with the rest.' elseif pcs_grades >= 50: 'You''re not very good in school, you wish you could be somewhere else and your grades show it.' elseif pcs_grades >= 40: '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.' else 'You are the class nitwit. You''re still not sure how you got this far in the first ace.' end if schoolprogul > 1: 'Absenteeism in school - <> days' end *nl if (home_owned[1] = 1 and ArendHouseSL > 0) or (home_owned[4] > 0 and ArendHouseSL4 > 0): *nl if home_owned[1] = 1 and home_owned[4] > 0: 'You have rented an apartment in the city residential area, which is paid up for <> days, and you also have an apartment in Pushkin, which is paid up for <> days. Utilities are due on the 25th of <<$month>>.' elseif home_owned[1] = 1: 'You have rented an apartment in the city residential area, and you''re paid up for <> days. Utilities are due on the 25th of <<$month>>.' elseif home_owned[4] > 0: 'You have rented an apartment in Pushkin, and you''re paid up for <> days. Utilities are due on the 25th of <<$month>>.' end if home_owned[1] = 1: if karta >= home_rent[1] or money >= home_rent[1] or money + stolmoney >= home_rent[1] or karta + bankDebtLimit >= home_rent[1]: *nl *p 'The monthly rent for your city apartment is <> . ' if karta >= home_rent[1]: !From bank *p 'You can make an advance payment from your bank account.' elseif money >= home_rent[1]: !From cash *p 'You can make an advance payment from your on-hand cash.' *nl elseif stolmoney >= home_rent[1]: !From drawer *p 'You can make an advance payment from the cash you have in your stash drawer.' *nl elseif money + stolmoney >= home_rent[1]: !From cash and drawer *p 'You can make an advance payment from your on-hand cash and the cash in your stash drawer.' *nl elseif karta + bankDebtLimit >= home_rent[1]: !From bank and overdraw *p 'You can make an advance payment from your bank account and overdraw facility.' *nl else *p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.' *nl end end end if home_owned[4] > 0: if karta >= home_rent[4] or money >= home_rent[4] or money + stolmoney >= home_rent[4] or karta + bankDebtLimit >= home_rent[4]: *nl *p 'The monthly rent for your Pushkin apartment is <> . ' if karta >= home_rent[4]: !From bank *p 'You can make an advance payment from your bank account.' *nl elseif money >= home_rent[4]: !From cash *p 'You can make an advance payment from your on-hand cash.' *nl elseif stolmoney >= home_rent[4]: !From drawer *p 'You can make an advance payment from the cash you have in your stash drawer.' *nl elseif money + stolmoney >= home_rent[4]: !From cash and drawer *p 'You can make an advance payment from your on-hand cash and the cash in your stash drawer.' *nl elseif karta + bankDebtLimit >= home_rent[4]: !From bank and overdraw *p 'You can make an advance payment from your bank account and overdraw facility.' *nl else *p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.' *nl end end end end if kid = 1: *nl 'You have 1 child:' else 'You have <> children:' end if kid > 0: k = 0 :kidloop if k < kid: gs 'obj_din','kidlist',k k += 1 jump 'kidloop' end end if workPTU > 1: 'Reputation as a teacher <>' *nl if npc_QW['A192'] > 0: 'Friendship with Nastya <>' if npc_rel['A218'] > 0: 'Friendship with Tanya <>' if npc_rel['A219'] > 0: 'Friendship with Kat <>' if npc_rel['A220'] > 0: 'Friendship with Vika <>' if npc_rel['A93'] > 0: 'Friendship with Ira <>' if npc_rel['A43'] > 0: 'Friendship with Tamara <>' if alla > 0: 'Friendship with Alla <>' if masha > 0: 'Friendship with Masha <>' if npc_rel['A41'] > 0: 'Friendship with Givi K. <>' if npc_rel['A42'] > 0: 'Friendship with Ashot <>' if Dmitry > 0: 'Friendship with Dima <>' if afra > 0: 'Friendship with blacks <>' if npc_rel['A69'] > 0:'Friendship with Mikhail Nikolaevich <>' !!!WD: Formatting if (npc_rel['A93'] + npc_rel['A41'] + npc_rel['A42'] + npc_rel['A43'] + afra + gosh + npc_rel['A220'] + npc_rel['A219'] + npc_QW['A192'] + npc_rel['A218']) > 0:*nl *nl if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0: 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw' '<> (<>KO) - <> (<>KO) - <>' end if Win > 0 or Loss > 0: 'Wins in fights <>, losses in fights <>' & *nl if razradKik > 0: '<<$razradKik>>' if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0: 'Amateur Kickboxing Record:
Wins: <> (<> by KO) - Losses: <> (<> by KO) - Draws: <>' *nl end if razradKik > 0: if razradKik = 1:$razradKik = 'You have earned green sash(rank 4) in kickboxing' if razradKik = 2:$razradKik = 'You have earned purple sash(rank 5) in kickboxing' if razradKik = 3:$razradKik = 'You have earned blue sash(rank 6) in kickboxing' if razradKik = 4:$razradKik = 'You have earned brown sash(rank 7) in kickboxing' if razradKik = 5:$razradKik = 'You have earned black sash, 1st dan in kickboxing' *nl end if kolsorev > 0: 'You have run in <> races' if swinbeg >= 1: 'You have <> trophies from local racing competitions' if bronzebeg > 0: '<> - bronze medals for running' if silverbeg > 0: '<> - silver medals for running' if goldbeg > 0: '<> - gold medals for running' if razradbegEB > 0: '<> times bronze medalist at European Championship' if razradbegES > 0: '<> runner up at European Championship' if razradbegEG > 0: '<> times European champion.' if razradbegIB > 0: '<> times bronze medalist at World Championship' if razradbegIS > 0: '<> runner up at World Championship' if razradbegIG > 0: '<> times World champion' if razradbeg > 0: if razradbeg = 1: 'You have third sports category for event' if razradbeg = 2: 'You 2nd sports category for event' if razradbeg = 3: 'You 1st sports category for event' if razradbeg = 4: 'You have the title of Candidate Master of Sports for event' if razradbeg = 5: 'You have the title of Master of Sports in the run' if razradbeg >= 6: 'You have the title of International Master of Sports for event' *nl end if chess_win > 0 or chess_loss > 0:'Chess Record: Win <>, Loss <>' if chess_rank > 0: if chess_rank = 1:'You have mastered the basics of chess' if chess_rank = 2:'You are starting to get good at chess' if chess_rank = 3:'You are a good chess player' if chess_rank = 4:'You are an excellent chess player' if chess_rank = 5:'You are a candidate for chess master' if chess_rank = 6:'You are a chess master' if chess_rank = 7:'You are a chess Grandmaster' end if chess_world_rank > 0: if chess_world_rank = 1:'The title of FIDE Master Chess' if chess_world_rank = 2:'The title of International Chess Master' if chess_world_rank = 3:'The title of International Grandmaster Chess' end *nl !!! if modelfoto > 0: 'Modelling Stats' '<> - Number of times you have worked as a model' '<> - The amount of money you''ve made modelling' if modelfoto_fashion > 0: '<> - Number of fashion shoots you have participated in' if modelfoto_ero_clo > 0: '<> - Number of erotic clothing shoots you have participated in' if modelfoto_bikini > 0: '<> - Number of swimsuit shoots you have modelled in' if modelfoto_lingerie > 0: '<> - Number of lingerie shoots you have participated in' if modelfoto_nip > 0: '<> - Number of times your nipples have been visible as a model' if modelfoto_topless > 0: '<> - Number of shoots where you have been topless' if modelfoto_nude > 0: '<> - Number of nude modelling shoots you have participated in' if modelfoto_pussy > 0: '<> - Number of shoots your vagina has been visible' *nl end if slavafuck > 0:'You have let Borislav fuck you <> times' if slava_bj > 0:'You have given Borislav <<$slava_bj>> blowjobs' if maxdamage > 0: 'The impact force on the dynamometer <> kgN' & *nl if stripdancesum > 0 and hidden_stripdancesum = 0: 'You have danced <> times in the stripclub' elseif stripdancesum = 0 and hidden_stripdancesum > 0: 'You have danced <> times in the stripclub, but you do nor remember it' elseif stripdancesum > 0 and hidden_stripdancesum > 0: 'You have danced <> times in the stripclub, but you only remember <> times' end if profiDanceTime > 0: 'You danced <> times professionally.' if SchoolAtestat = 1: 'You have finished school.' if diplom = 1: 'You graduated.' if teachlevel > 0: 'Your credibility as a teacher is <>' !WD:FORMATING if (maxdamage + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:*nl '
' end if $ARGS[0] = 'kidlist': kidnumber = ARGS[1] if kidage[kidnumber] < 1: if (month - monthkid[kidnumber]) < 1 and (day-daykid[kidnumber]) < 7: kiddaycalc[kidnumber] = day - daykid[kidnumber] if kiddaycalc[kidnumber] = 0: $kidagetext[kidnumber] = 'was born today' elseif kiddaycalc[kidnumber] = 1: $kidagetext[kidnumber] = 'is <> day old' else $kidagetext[kidnumber] = 'is <> days old' end elseif (month - monthkid[kidnumber]) < 1 : kiddaycalc[kidnumber] = (day - daykid[kidnumber]) / 7 if kiddaycalc[kidnumber] = 1: $kidagetext[kidnumber] = 'is <> week old' else $kidagetext[kidnumber] = 'is <> weeks old' end else kidmonthcalc[kidnumber] = (month - monthkid[kidnumber]) if kidmonthcalc[kidnumber] = 1: $kidagetext[kidnumber] = 'is <> month old' else $kidagetext[kidnumber] = 'is <> months old' end end else if kidage[kidnumber] = 1: $kidagetext[kidnumber] = 'is <> year old' else $kidagetext[kidnumber] = 'is <> years old' end end if polkid[kidnumber] = 0: $sdtext[kidnumber] = 'daughter' else $sdtext[kidnumber] = 'son' end if polkid[kidnumber] = 0: $kidPosProPN[kidnumber] = 'She' else $kidPosProPN[kidnumber] = 'He' end *p'You have a <<$sdtext[kidnumber]>> named <<$kidname[kidnumber]>>. <<$kidPosProPN[kidnumber]>> <<$kidagetext[kidnumber]>>. <<$kidname[kidnumber]>>''s date of birth is <>-<>-<>' '.' *nl killvar 'kidnumber' end if $ARGS[0] = 'stats_sex': *clr & cla !'

' '

Sex Statistics

' '
' '
' act 'Return to the statistics index': gt 'obj_din', 'stats' !Sex stats if mastr > 0 or stat['mast'] > 0: 'Times you have masturbated: <>' if stat['porn'] > 0: 'Times you have watched porn: <>' if stat['flashlite'] > 0 or stat['flash'] > 0: 'Times you have flashed: <>' if stat['voyeur'] > 0: 'Times you have watched other people fuck: <>' if spank > 0: 'You have had your ass spanked <> times' temp = func('shortgs','guy') if guy+temp > 0 and hidden_guy = 0: 'You had sex with <> guys.' elseif guy+temp = 0 and hidden_guy > 0: 'You had sex with <> guys, but you do not have any recollection of it. You still think of yourself as a virgin.' elseif guy+temp > 0 and hidden_guy > 0: 'You had sex with <> guys, but you know only about <> of them.' end temp = func('shortgs','girl') if girl+temp > 0 and hidden_girl = 0: 'You had sex with <> girls.' elseif girl+temp = 0 and hidden_girl > 0: 'You had sex with <> girls, but you do not have any recollection of any of it.' elseif girl+temp > 0 and hidden_girl > 0: 'You had sex with <> girls, but you know only about <> of them.' end if divorced > 0: 'You were married <> times.' if suprdolg > 0: 'You performed your conjugal duty for your husband <> times' if rape > 0 and hidden_rape = 0: 'You have been raped <> times' elseif rape = 0 and hidden_rape > 0: 'You have been raped <> times, but you do not remember any of it' elseif rape > 0 and hidden_rape > 0: 'You have been raped <> times, but you only remember <> of them' end *nl if slutty > 0 or hidden_slutty > 0: if bordelslutty = 0: 'Sold your body <> times.' if bordelslutty > 0: 'Sold your body <> times, including <> times in a brothel.' if hidden_slutty > 0: 'Sold your body <> times, and gave all the money to your therapist. You do not remember any of it.' end if orgasm > 0: 'Experienced orgasm <> times.' if analorgasm > 0 : 'You''ve had <> anal orgasms.' if swallow > 0: 'Sperm swallowed <> times.' if facial > 0: 'You have taken <> facials.' if frot > 0 or hump > 0: 'Your clothes have been come on <> times.' if zoo > 0: 'Had sex with animals <> times.' if pee > 0: 'You pissing <> times.' if swallowpee > 0: 'You swallowed urine <> times.' !!!WD:FORMATING if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + zoo + pee) > 0:*nl !!! gs 'obj_din', 'husb_cheat_count' '' if hj > 0 or stat['hj'] > 0 or stat['hidden_hj'] > 0: 'Jerked men off (known/unknown): <>/<>' if hja > 0: 'Jerked off your boyfriend: <>' end if stat['footjob'] > 0 or stat['hidden_footjob'] > 0: 'Jerked men off with your feet (known/unknown): <>/<>' if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0: 'Sucked cock (known/unknown): <>/<>' if bja > 0: 'Sucked your boyfriends cock: <>' if gloryhole > 0 or hidden_gloryhole > 0: 'Sucked cock in a gloryhole (known/unknown): <>/<>' end if sex > 0 or stat['vaginal'] > 0 or stat['hidden_vaginal'] > 0: 'Vaginal sex (known/unknown): <>/<>' if sexa > 0: 'Vaginal sex with your boyfriend: <>' if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0: ' Known vaginal creampies:' if pcs_cp_safe_known > 0: ' Safe: <>' if pcs_cp_notsafe_known > 0: ' Likely safe: <>' if pcs_cp_risky_known > 0: ' Risky: <>' end if (pcs_cp_safe_unknown + pcs_cp_notsafe_unknown + pcs_cp_risky_unknown) > 0: ' Unknown vaginal creampies:' if pcs_cp_safe_unknown > 0: ' Safe: <>' if pcs_cp_notsafe_unknown > 0: ' Likely safe: <>' if pcs_cp_risky_unknown > 0: ' Risky: <>' end if lesbian > 0 or hidden_lesbian > 0: if hidden_lesbian = 0: 'Lesbian sex (known/unknown): <>/<>' end if futa > 0 or hidden_futa > 0: 'Sex with tgirls (known/unknown): <>/<>' if anal > 0 or stat['anal'] or stat['hidden_anal']: 'Anal sex (known/unknown): <>/<>' if anala > 0: 'Anal sex with your boyfriend: <>' end if pcs_acp_known > 0: ' Known anal creampies: <>' if pcs_acp_unknown > 0: ' Unknown anal creampies: <>' if gang > 0 or hidden_gang > 0: 'Group sex (known/unknown): <>/<>' if kuni > 0 or stat['cuni'] > 0: 'Received cunnilingus: <>' if stat['vaginal_finger'] > 0: 'Fingered: <>' if stat['vaginal_fist'] > 0: 'Fisted: <>' if stat['vaginal_dildo'] > 0: 'Fucked a dildo: <>' if stat['vaginal_strap'] > 0: 'Fucked with a strap-on: <>' if stat['vaginal_vibe'] > 0: 'Clitoral / Vaginal vibrator: <>' if stat['trib'] > 0: 'Tribalism: <>' if stat['anal_finger'] > 0: 'Anally fingered: <>' if stat['anal_fist'] > 0: 'Anally fisted: <>' if stat['rimming'] > 0: 'Ass rimmed: <>' if stat['anal_dildo'] > 0: 'Anal sex with a dildo: <>' if stat['anal_strap'] > 0: 'Ass fucked with a strap-on: <>' if stat['anal_vibe'] > 0: 'Anal vibrator: <>' *nl if stat['cuni_give'] > 0: 'Performed cunnilingus: <>' if stat['vaginal_finger_give'] > 0: 'Fingered a girl: <>' if stat['vaginal_fist_give'] > 0: 'Fisted a girl: <>' if stat['vaginal_dildo_give'] > 0: 'Dildoed a girl: <>' if stat['vaginal_strap_give'] > 0: 'Strap-on fucked a girl: <>' if stat['vaginal_vibe_give'] > 0: 'Used vibrator on a girl: <>' if stat['rimming_give'] > 0: 'Rimmed someone: <>' if stat['anal_finger_give'] > 0: 'Fingered someone else''s ass: <>' if stat['anal_fist_give'] > 0: 'Fisted someone else''s ass: <>' if stat['anal_dildo_give'] > 0: 'Dildoed someone else''s ass: <>' if stat['anal_vibe_give'] > 0: 'Used a vibrator on someone else''s ass: <>' if stat['anal_strap_give'] > 0 or stat['anal_strap_give'] > 0: 'Fucked someone else''s ass with a strap-on: <>' '
' end if $ARGS[0] = 'stats_fetish': *clr & cla act 'Return to the statistics index': gt 'obj_din', 'stats' !'

' '

Fetishes

' '
' '
' 'Feet preference: <>' 'Foot jobs / worship: <>' 'Deepthroat preference: <>' 'Deepthroated: <>' 'Group preference: <>' 'Group sex: <>' 'Gangbang preference: <>' 'Gangbangs: <>' 'Humiliation preference: <>' 'Humiliation experiences: <>' 'Prostitution preference: <>' 'Prostituted yourself: <>' 'Bondage preference: <>' 'Bondage play: <>' 'Masochism preference: <>' 'Masochism experiences: <>' 'Bestiality encounters: <>' 'Bestiality experience: <>' 'Rough sex preference: <>' 'Rough sex: <>' 'Incest preference: <>' 'Incestuous sex: <>' '
' end if $ARGS[0] = 'reputation': *clr & cla gs 'obj_din','chartabs' !'

' '

Renown

' '
' '
' '
Family Renown
' if Enable_family_Reputation = 0: '
Show details
' end if Enable_family_Reputation = 1: '
Hide details
' *nl if rinslut > 0 or kavslut > 0:'In the residential area of ​​you are known as a whore that sleeps with Caucasians.' if afra > 80: 'In the student hostel, you are known for bedding blacks.' if opusk > 0 or gnewQW >= 5: 'In the residential area it is well known by all the guys that you are a whore.' if StoryLine = 1: *nl if motherKnowSpravka > 0 and motherKnowWhore > 0: 'Your mother knows, that you are sexually active and considers you a slut.' elseif motherKnowWhore > 0: 'Your mother thinks you are a whore.' elseif motherKnowSpravka > 0: 'Your mother knows that you are sexually active.' else 'Your mother thinks that you are a virgin.' end if evgenQW >= 4 and brotherSex >= 1: 'Your brother thinks you are a total whore.' elseif brotherSex >= 1: 'Your brother thinks you are a slut.' elseif evgenQW >= 3: 'Your brother thinks you are a slut.' elseif brotherknowslut = 1: 'Your brother saw semen on your body and thinks that you fuck around.' elseif brotherknowslut >= 2: 'Your brother saw you in the park screwing Gopniks.' else 'Your brother has a good opinion of you.' end if sisterknowslut > 1 and sisboypartyQW = 2: 'Your sister thinks you are a slut' elseif sisterknowslut > 0: 'Your sister knows that you sleep around.' else 'Your sister has a good opinion of you.' end if brothershowertalk > 0:'<> - Number of conversations you''ve had with your brother in the shower.' if brothershowerlook = 1:'You let your brother look at you when you''re shower' if brothershave > 0:'<> - Number of times you''ve let your brother watch you shave your pussy' if brotherkiss > 0: '<> - Number of times you and your brother have kissed' if brotherbj > 0:'<> - Number of times you''ve given your brother blowjobs' if brotherfuck > 0:'<> - Number of times you''ve had sex with your brother' end end *nl '
Regional Renown
' if Enable_glo_Reputation = 0: '
Show details
' end if Enable_glo_Reputation = 1: '
Hide details
' *nl 'Regional renown as a performer = <>' if global_performer = 0: 'You are not famous enough as a performer to be known outside of any local areas.' end *nl 'Regional renown in the sex industry = <>' if global_sexind = 0: 'You are not famous enough in the industry to be known outside of any local areas.' end *nl 'Regional renown as a slut = <>' if global_slut = 0: 'You are not famous enough as a slut to be known outside of any local areas.' end *nl 'Regional renown in sports = <>' if global_sport = 0: 'You are not a famous enough athlete to be known outside of any local areas.' end *nl 'Regional renown as an intellectual = <>' if global_int = 0: 'You are not famous enough as an intellectual to be known outside of any local areas.' end *nl 'Regional renown through social media = <>' if global_social = 0: 'You are not famous enough on social media to be known outside of any local areas.' end end '
' '
Renown in Pavlovsk
' if Enable_pav_Reputation = 0: '
Show details
' end if Enable_pav_Reputation = 1: '
Hide details
' *nl 'Performer = <>' ' Actor = <>' ' Dancer = <>' ' Glamour model = <>' ' Painter = <>' ' Musician = <>' ' Ballet dancer = <>' 'Sex Industry = <>' ' Porn actor = <>' ' Stripper = <>' 'Slut = <>' ' Sex = <>' ' Prostitution = <>' 'Sports = <>' ' Kickboxer = <>' ' Runner = <>' ' Volleyball player = <>' 'Intellectual = <>' ' Chess player = <>' ' Teacher = <>' 'Social = <>' ' Social media = <>' end *nl '
Renown in the city
' if Enable_city_Reputation = 0: '
Show details
' end if Enable_city_Reputation = 1: '
Hide details
' *nl 'Performer = <>' ' Actor = <>' ' Dancer = <>' ' Glamour model = <>' ' Painter = <>' ' Musician = <>' ' Ballet dancer = <>' 'Sex Industry = <>' ' Porn actor = <>' ' Stripper = <>' 'Slut = <>' ' Sex = <>' ' Prostitution = <>' 'Sports = <>' ' Kickboxer = <>' ' Runner = <>' ' Volleyball player = <>' 'Intellectual = <>' ' Chess player = <>' ' Teacher = <>' 'Social = <>' ' Social media = <>' end *nl '
Renown in the old town
' if Enable_oldtown_Reputation = 0: '
Show details
' end if Enable_oldtown_Reputation = 1: '
Hide details
' *nl 'Performer = <>' ' Actor = <>' ' Dancer = <>' ' Glamour model = <>' ' Painter = <>' ' Musician = <>' ' Ballet dancer = <>' 'Sex Industry = <>' ' Porn actor = <>' ' Stripper = <>' 'Slut = <>' ' Sex = <>' ' Prostitution = <>' 'Sports = <>' ' Kickboxer = <>' ' Runner = <>' ' Volleyball player = <>' 'Intellectual = <>' ' Chess player = <>' ' Teacher = <>' 'Social = <>' ' Social media = <>' end *nl '
Renown in the village
' if Enable_village_Reputation = 0: '
Show details
' end if Enable_village_Reputation = 1: '
Hide details
' *nl 'Performer = <>' ' Actor = <>' ' Dancer = <>' ' Glamour model = <>' ' Painter = <>' ' Musician = <>' ' Ballet dancer = <>' 'Sex Industry = <>' ' Porn actor = <>' ' Stripper = <>' 'Slut = <>' ' Sex = <>' ' Prostitution = <>' 'Sports = <>' ' Kickboxer = <>' ' Runner = <>' ' Volleyball player = <>' 'Intellectual = <>' ' Chess player = <>' ' Teacher = <>' 'Social = <>' ' Social media = <>' end '
' '
' if film > 0: 'Pornographic Filmography' gs 'pornhist', 'short' if pfilmSTOP = 0: *nl '<<$pfname>> has starred in <> porn films:' *nl else *nl '<<$pfname>> retired after <> porn films:' *nl end 'View detailed Filmography' *nl *p '<<$pfilmhistory>>' end '
' end if $ARGS[0] = 'magic': *clr & cla gs 'obj_din','chartabs' '

Magic

' '
' '
' if pcs_magik = 0: 'You are unable to use magic.' elseif pcs_magik > 0: 'You have <> units of manna available to you.' !!' Forces Rikudo available to you <> units' *nl $SpellListStr = "
" i = 0 :ObDinSpellLoop $ThisSpellName = $combatSpells[i] if i < arrsize('$combatSpells'): if spellKnown[$ThisSpellName] = 1: $SpellListStr = $SpellListStr + " " end i += 1 jump 'ObDinSpellLoop' end i = 0 :ObDinSpellLoop2 $ThisSpellName = $nonComSpells[i] if i < arrsize('$nonComSpells'): if spellKnown[$ThisSpellName] = 1: $SpellListStr = $SpellListStr + " " end i += 1 jump 'ObDinSpellLoop2' end $SpellListStr = $SpellListStr + "
Spell Mana Description
<<$spellName[$ThisSpellName]>> <> <<$spellDesc[$ThisSpellName]>>
<<$spellName[$ThisSpellName]>> <> <<$spellDesc[$ThisSpellName]>>
" $SpellListStr killvar 'i' killvar '$ThisSpellName' killvar '$SpellListStr' end if succubusflag = 1 and sucpcinfo >= 4 and sucskill >= 1: '
Succubus Stats
' *nl 'Succubus Level = <>' 'Succubus XP = <>' '"Food" Energy Reserve = <<0 - succhungry>> day(s)' 'Stored Sexual Energy = <>' 'Sexual Energy Storage Capacity = <>' *nl if sucskill >= 2: 'You have learned to increase your storage capacity and to store energy before using it.' if sucskill >= 3: 'You have learned to be more efficient in your energy handling.' if sucskill >= 4: 'You have learned the accommodation ability.' *nl !! More to come end '
' end if $ARGS[0] = 'pain': *clr & cla gs 'obj_din','chartabs' '

Pain

' '
' '
' if pain['head'] > 0: if pain['head'] > 70: 'Your head is in extreme pain.' elseif pain['head'] > 40: 'Your head is very sore.' else 'Your head hurts.' end end if pain['hair'] > 0: if pain['hair'] > 70: 'Your scalp is in extreme pain.' elseif pain['hair'] > 40: 'Your scalp is very sore.' else 'Your scalp hurts.' end end if pain['ears'] > 0: if pain['ears'] > 70: 'Your ears are in extreme pain.' elseif pain['ears'] > 40: 'Your ears are very sore.' else 'Your ears hurt.' end end if pain['eyebrows'] > 0: if pain['eyebrows'] > 70: 'Your eyebrows are in extreme pain.' elseif pain['eyebrows'] > 40: 'Your eyebrows are very sore.' else 'Your eyebrows hurt.' end end if pain['eyes'] > 0: if pain['eyes'] > 70: 'Your eyes are in extreme pain.' elseif pain['eyes'] > 40: 'Your eyes are very sore.' else 'Your eyes hurt.' end end if pain['cheeks'] > 0: if pain['cheeks'] > 70: 'Your cheeks are in extreme pain.' elseif pain['cheeks'] > 40: 'Your cheeks are very sore.' else 'Your cheeks hurt.' end end if pain['nose'] > 0: if pain['nose'] > 70: 'Your nose is in extreme pain.' elseif pain['nose'] > 40: 'Your nose is very sore.' else 'Your nose hurts.' end end if pain['mouth'] > 0: if pain['mouth'] > 70: 'Your mouth is in extreme pain.' elseif pain['mouth'] > 40: 'Your mouth is very sore.' else 'Your mouth hurts.' end end if pain['lips'] > 0: if pain['lips'] > 70: 'Your lips are in extreme pain.' elseif pain['lips'] > 40: 'Your lips are very sore.' else 'Your lips hurt.' end end if pain['tongue'] > 0: if pain['tongue'] > 70: 'Your tongue is in extreme pain.' elseif pain['tongue'] > 40: 'Your tongue is very sore.' else 'Your tongue hurts.' end end if pain['throat'] > 0: if pain['throat'] > 70: 'Your throat is in extreme pain.' elseif pain['throat'] > 40: 'Your throat is very sore.' else 'Your throat hurts.' end end if pain['neck'] > 0: if pain['neck'] > 70: 'Your neck is in extreme pain.' elseif pain['neck'] > 40: 'Your neck is very sore.' else 'Your neck hurts.' end end if pain['back'] > 0: if pain['back'] > 70: 'Your back is in extreme pain.' elseif pain['back'] > 40: 'Your back is very sore.' else 'Your back hurts.' end end if pain['asscheeks'] + (spanked * 24) > 0: if pain['asscheeks'] + (spanked * 24) > 70: 'Your asscheeks are in extreme pain.' elseif pain['asscheeks'] + (spanked * 24) > 40: 'Your asscheeks are very sore.' else 'Your asscheeks hurt.' end end if pain['asshole'] + (agape * 10) > 0: if pain['asshole'] + (agape * 10) > 70: 'You an extremely sore anus and it is bleeding.' elseif pain['asshole'] + (agape * 10) > 40: 'You have a very sore anus.' else 'You have a sore and itchy anus.' end end if pain['hips'] > 0: if pain['hips'] > 70: 'Your hips are in extreme pain.' elseif pain['hips'] > 40: 'Your hips are very sore.' else 'Your hips hurt.' end end if pain['thighs'] > 0: if pain['thighs'] > 70: 'Your thighs are in extreme pain.' elseif pain['thighs'] > 40: 'Your thighs are very sore.' else 'Your thighs hurt.' end end if pain['legL'] > 0: if pain['legL'] > 70: 'Your left leg is in extreme pain.' elseif pain['legL'] > 40: 'Your left leg is very sore.' else 'Your left leg hurts.' end end if pain['legR'] > 0: if pain['legR'] > 70: 'Your right leg is in extreme pain.' elseif pain['legR'] > 40: 'Your right leg is very sore.' else 'Your right leg hurts.' end end if pain['feet'] > 0: if pain['feet'] > 70: 'Your feet are in extreme pain.' elseif pain['feet'] > 40: 'Your feet are very sore.' else 'Your feet hurt.' end end if pain['toes'] > 0: if pain['toes'] > 70: 'Your toes are in extreme pain.' elseif pain['toes'] > 40: 'Your toes are very sore.' else 'Your toes foot hurt.' end end if pain['shoulders'] > 0: if pain['shoulders'] > 70: 'Your shoulders are in extreme pain.' elseif pain['shoulders'] > 40: 'Your shoulders are very sore.' else 'Your shoulders hurt.' end end if pain['armL'] > 0: if pain['armL'] > 70: 'Your left arm is in extreme pain.' elseif pain['armL'] > 40: 'Your left arm is very sore.' else 'Your left arm hurts.' end end if pain['armR'] > 0: if pain['armR'] > 70: 'Your right arm is in extreme pain.' elseif pain['armR'] > 40: 'Your right arm is very sore.' else 'Your right arm hurts.' end end if pain['hands'] > 0: if pain['hands'] > 70: 'Your hands are in extreme pain.' elseif pain['hands'] > 40: 'Your hands are very sore.' else 'Your hands hurt.' end end if pain['fingers'] > 0: if pain['fingers'] > 70: 'Your fingers are in extreme pain.' elseif pain['fingers'] > 40: 'Your fingers are very sore.' else 'Your fingers hurt.' end end if pain['chest'] > 0: if pain['chest'] > 70: 'Your chest is in extreme pain.' elseif pain['chest'] > 40: 'Your chest is very sore.' else 'Your chest hurts.' end end if pain['breasts'] > 0: if pain['breasts'] > 70: 'Your breasts are in extreme pain.' elseif pain['breasts'] > 40: 'Your breasts are very sore.' else 'Your breasts hurt.' end end if pain['nipples'] > 0: if pain['nipples'] > 70: 'Your nipples are in extreme pain.' elseif pain['nipples'] > 40: 'Your nipples are very sore.' else 'Your nipples hurt.' end end if pain['ribs'] > 0: if pain['ribs'] > 70: 'Your ribs are in extreme pain.' elseif pain['ribs'] > 40: 'Your ribs are very sore.' else 'Your ribs hurt.' end end if pain['tummy'] > 0: if pain['tummy'] > 70: 'Your tummy is in extreme pain.' elseif pain['tummy'] > 40: 'Your tummy is very sore.' else 'Your tummy hurts.' end end if pain['pubic'] > 0: if pain['pubic'] > 70: 'Your pubis is extremely painful.' elseif pain['pubic'] > 40: 'Your pubis is very sore.' else 'Your pubis hurts.' end end if pain['labia'] > 0: if pain['labia'] > 70: 'Your labia is extremely painful.' elseif pain['labia'] > 40: 'Your labia is very sore.' else 'Your labia hurts.' end end if pain['vaginal'] + (vgape * 8) > 0: if pain['vaginal'] + (vgape * 8) > 70: 'You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.' elseif pain['vaginal'] + (vgape * 8) > 40: 'You have a very sore vagina and you can hardly keep your feet together.' else 'You have a sore vagina.' end end if pain['clitoris'] > 0: if pain['clitoris'] > 70: 'Your clitoris is in extreme pain.' elseif pain['clitoris'] > 40: 'Your clitoris is very sore.' else 'Your clitoris hurts.' end end if pain['urethra'] > 0: if pain['urethra'] > 70: 'Your urethra is extremely painful.' elseif pain['urethra'] > 40: 'Your urethra is very sore.' else 'Your urethra hurts.' end end if pain['cervix'] > 0: if pain['cervix'] > 70: 'Your cervix is in extreme pain.' elseif pain['cervix'] > 40: 'Your cervix is very sore.' else 'Your cervix hurts.' end end '
' end if $ARGS[0] = 'face': !disay image and escription for menu *clr gs 'obj_din','bodytabs' '

Looks

' '
' '
' $img_temp = FUNC('$face_image') '
> src="<<$img_temp>>">
' killvar 'img_temp' if avatar_hair = 1: 'Your hair: <<$av_hair>>.' else '<<$hair>>' end if defcurly = 0 and curly > 0: 'Your curls are good for another <> days.' if defcurly = 1 and straight > 0: 'Your hair should be straight for another <> days.' *nl '<<$lip>>' '<<$pcs_throat>>' '<<$skin>>' '<<$glaza>>' '<<$pcs_makeup>>.' '
' end if $ARGS[0] = 'body': *clr gs 'obj_din','bodytabs' '

Body

' '
' '
' !! This displays the body image; $bodimgsets[x9] is the folder name !some in-game script may call this to display image, so leave it be $img_temp = FUNC('$body_image','body') '
> src="<<$img_temp>>">
' '<<$body_image_msg>>' killvar 'img_temp' killvar 'body_image_msg' '
' end if $ARGS[0] = 'clothes': *clr gs 'obj_din','bodytabs' '

Clothes

' '
' '' '
' !move image define to $body_image !display cloth $img_temp = FUNC('$body_image','clothes') '
> src="<<$img_temp>>">
' '<<$body_image_msg>>' '
' !display coat $img_temp = FUNC('$body_image','coat') '
> src="<<$img_temp>>">
' '<<$body_image_msg>>' '
' killvar 'img_temp' killvar 'body_image_msg' '' end if $ARGS[0] = 'panties': *clr gs 'obj_din','bodytabs' '

Panties

' '
' '
' $img_temp = FUNC('$body_image','panties') '
> src="<<$img_temp>>">
' '<<$body_image_msg>>' killvar 'img_temp' killvar 'body_image_msg' '
' end if $ARGS[0] = 'bra': *clr gs 'obj_din','bodytabs' '

Bra

' '
' '
' $img_temp = FUNC('$body_image','bra') '
> src="<<$img_temp>>">
' '<<$body_image_msg>>' killvar 'img_temp' killvar 'body_image_msg' '
' end if $ARGS[0] = 'show_tits': view 'images/pc/body/tits/t<>.jpg' end if $ARGS[0] = 'show_body': $img_temp = FUNC('$body_image','body') view '<<$img_temp>>' killvar 'img_temp' end if $ARGS[0] = 'shoes': *clr gs 'obj_din','bodytabs' '

Shoes

' '
' '
' $img_temp = FUNC('$body_image','shoes') '
> src="<<$img_temp>>">
' '<<$body_image_msg>>' killvar 'img_temp' killvar 'body_image_msg' '
' end if $ARGS[0] = 'tattoos': *clr & cla gs 'obj_din','bodytabs' '

Tattoos

' tatcounter = 0 '
' *pl if tatfce > 0: tatcounter = 1 & *p 'Face | ' else *p 'Face | ' end if tatlip > 0: tatcounter = 1 & *p 'Lip | ' else *p 'Lip | ' end if tatneck > 0: tatcounter = 1 & *p 'Neck | ' else *p 'Neck | ' end if tatback > 0: tatcounter = 1 & *p 'Back | ' else *p 'Back | ' end if tatlech > 0: tatcounter = 1 & *p 'Shoulder | ' else *p 'Shoulder | ' end if tatbrst > 0: tatcounter = 1 & *p 'Breast | ' else *p 'Breast | ' end if tatunder > 0: tatcounter = 1 & *p 'Under Breast | ' else *p 'Under Breast | ' end if tatchst > 0: tatcounter = 1 & *p 'Chest | ' else *p 'Chest | ' end if tatside > 0: tatcounter = 1 & *p 'Side | ' else *p 'Side | ' end if tatblly > 0: tatcounter = 1 & *p 'Belly' else *p 'Belly' end *pl if tatarm > 0: tatcounter = 1 & *p 'Arm | ' else *p 'Arm | ' end if tatwrist > 0: tatcounter = 1 & *p 'Wrist | ' else *p 'Wrist | ' end if tathand > 0: tatcounter = 1 & *p 'Hand | ' else *p 'Hand | ' end if tatleg > 0: tatcounter = 1 & *p 'Leg | ' else *p 'Leg | ' end if tatankle > 0: tatcounter = 1 & *p 'Foot | ' else *p 'Foot | ' end if tatupb > 0: tatcounter = 1 & *p '"Tramp Stamp" | ' else *p 'Tramp Stamp | ' end if tatass > 0: tatcounter = 1 & *p 'Butt | ' else *p 'Butt | ' end if tatvag > 0: tatcounter = 1 & *p 'Groin' else *p 'Groin' end '
' if tatcounter = 0: 'You have a pristine body. Not in terms of debauchery, but in terms of tattoos.' end end !!Image displays for tattoos if $ARGS[0] = 'tattooarm': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/arms/tatarm<>.jpg">
' end if $ARGS[0] = 'tattooass': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/ass/tatass<>.jpg">
' end if $ARGS[0] = 'tattooback': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/back/tatback<>.jpg">
' end if $ARGS[0] = 'tattoobelly': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/belly/tatblly<>.jpg">
' end if $ARGS[0] = 'tattoobreast': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/breasts/tatbrst<>.jpg">
' end if $ARGS[0] = 'tattoochest': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/chest/tatchst<>.jpg">
' end if $ARGS[0] = 'tattooface': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/face/tatfce<>.jpg">
' end if $ARGS[0] = 'tattoofoot': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/foot/tatankle<>.jpg">
' end if $ARGS[0] = 'tattooleg': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/legs/tatleg<>.jpg">
' end if $ARGS[0] = 'tattoolip': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/lip/tatlip<>.jpg">
' end if $ARGS[0] = 'tattooneck': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/neck/tatnck<>.jpg">
' end if $ARGS[0] = 'tattoovag': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/pubic/tatvag<>.jpg">
' end if $ARGS[0] = 'tattooshoulder': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/shoulder/tatshldr<>.jpg">
' end if $ARGS[0] = 'tattooside': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/side/tatside<>.jpg">
' end if $ARGS[0] = 'tattootramp': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/trampstamp/tatlowbck<>.jpg">
' end if $ARGS[0] = 'tattoounder': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/underbreast/tatundbreast<>.jpg">
' end if $ARGS[0] = 'tattoowrist': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/wrists/tatwrst<>.jpg">
' end if $ARGS[0] = 'tattoohand': *clr gs 'obj_din', 'tattoos' *nl '
> src="images/pc/body/tattoos/hand/tathnd<>.jpg">
' end if $ARGS[0] = 'piercing': *clr & cla gs 'obj_din','bodytabs' '

Piercings

' '
' if pirsA = 0 and pirsB = 0 and pirsC = 0 and pirsD = 0 and pirsE = 0 and pirsF = 0 and pirsN = 0 and pirsG = 0 and pirsGL = 0: 'You have no piercings.' elseif pirsA = 10000 and pirsB = 10000 and pirsC = 10000 and pirsD = 10000 and pirsE = 10000 and pirsF = 10000 and pirsN = 10000 and pirsG = 10000 and pirsGL = 10000: 'You are not wearing any piercings' else *pl if pirsA > 0 and pirsA < 10000: *p 'Tongue | ' else *p 'Tongue | ' end if pirsB > 0 and pirsB < 10000: *p 'Lips | ' else *p 'lips | ' end if pirsC > 0 and pirsC < 10000: *p 'Ears | ' else *p 'Ears | ' end if pirsD > 0 and pirsD < 10000: *p 'Nose | ' else *p 'Nose | ' end if pirsE > 0 and pirsE < 10000: *p 'Eyebrows | ' else *p 'Eyebrows | ' end if pirsF > 0 and pirsF < 10000: *p 'Nipples | ' else *p 'Nipples | ' end if pirsN > 0 and pirsN < 10000: *p 'Navel | ' else *p 'Navel | ' end if pirsG > 0 and pirsG < 10000: *p 'Pussy' else *p 'Pussy' end end '
' end !! piercing images. if $ARGS[0] = 'pirsA': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/a<>.jpg">
' end if $ARGS[0] = 'pirsB': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/b<>.jpg">
' end if $ARGS[0] = 'pirsC': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/c<>.jpg">
' end if $ARGS[0] = 'pirsD': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/d<>.jpg">
' end if $ARGS[0] = 'pirsE': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/e<>.jpg">
' end if $ARGS[0] = 'pirsF': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/f<>.jpg">
' end if $ARGS[0] = 'pirsN': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/n<>.jpg">
' end if $ARGS[0] = 'pirsG': *clr gs 'obj_din', 'piercing' *nl '
> src="images/pc/body/piercings/g<>.jpg">
' end if $ARGS[0] = 'records': *clr & cla '

Notebook

' gs 'housing', 'rent' act 'Put your notebook down': gt $loc, $metka if pavSharedAptEnabled = 1:'You share an apartment with three others in Pavlovsk. Bills are paid by the other tennants in exchange for your house services' *nl if home_owned[1] = 1:'You rent a two-room apartment, in the city residential area. Rent for the apartment is subtracted automatically, in sum of <> us electric bill on 25th of each month. You are currently paid up for <> days' *nl if home_owned[1] = 2:'You own a two-room apartment, in the city residential area. Utility bills are on the 25th of each month.' *nl if home_owned[1] = 3:'You own a two-room apartment, in the city residential area. It''s currently occupied by your tenants.' *nl if home_owned[2] > 0:'You live in a two-room apartment, in a large apartment complex, with your parents and siblings in Pavlovsk.' *nl if home_owned[3] > 0:'You own small holiday cottage with an adjacent allotment in the communal village.' *nl if home_owned[4] > 0:'You rent a two-room apartment, in Pushkin. Rent for the apartment is subtracted automatically, in sum of <> us electric bill on 25th of each month. You are currently paid up for <> days' *nl if home_owned[5] = 1:'You own a vacant block, in the city suburbs. Utility bills are on the 25th of each month.' *nl if home_owned[5] = 2:'You own a block in the city suburbs, upon which, you are building a house. Utility bills are on the 25th of each month.' *nl if home_owned[5] = 3:'You own an impressive manion in the suburbs of St. Petersburg. Utility bills are on the 25th of each month.' *nl if workPTU > 2:'You work as a teacher at the Lycée. Working days Mon-Sat, with 14.00 to 16.00. Salary 300r/day. Dress code - office clothes, Strict. The road from the apartment to the Lyceum takes 2 hours 10 minutes.' *nl if (work = 1 or cheatWork = 1) and workKafe > 0:'You are working as a waitress at The Roadhouse cafe. You need to come to work between 11 and 12, working days: Tuesday, Wednesday and Thursday. At work, you can receive tips from customers, and payment is received on 25th of each month.' *nl if (work = 1 or cheatWork = 1) and workhosp > 0:'You work as a nurse in the city residential area clinic. You need to come to work between 8 and 9, during the week. Salary is automatically transferred on 25th of each month.' *nl if (work = 1 or cheatWork = 1) and worksalon > 0:'You work as a masseuse in the city at the Beauty Bar. You need to come to work with 9 to 10, working days, Monday, Wednesday, Friday. Salary is automatically transferred on 25th of each month.' *nl if (work = 1 or cheatWork = 1) and workSec > 0:'You work as a secretary at Titran-Express. At work you need to come up 9, during the week. Salary is automatically transferred on 25th of each month.' *nl if (work = 1 or cheatWork = 1) and tanwork > 0:'You work as a governess for Tanya, at Nicholas'' luxury city apartment. Salary is automatically transferred on the 25th of each month.' *nl if (work = 1 or cheatWork = 1) and young_shop_work = 1:'You work in the city as a store clerk at Pussy-Cats - youth clothing store. Work starts at 15, Monday to Friday. The salary shall be issued once a week on Fridays.' *nl if (work = 1 or cheatWork = 1) and young_shop_work1 = 1:'You work in the city as a store clerk at Pussy-Cats - youth clothing store. Work starts at 9, Saturday and Sunday. The salary shall be issued once a week on Fridays.' *nl if (work = 1 or cheatWork = 1) and young_shop_work2 = 1:'You work in the city as a store clerk at Pussy-Cats - youth clothing store. Work starts at 9, Monday to Friday. The salary shall be issued once a week on Fridays.' *nl if (work = 1 or cheatWork = 1) and workFabrika = 1:'You work as a seamstress in a factory in Pavlovsk. Work is every day except Saturday and Sunday. Salary is automatically transferred on 25th of each month.' *nl if workrin = 1:'You are working at the market in Arthur''s tent as clothing saleswoman. Work on Tuesday, Thursday and Saturday, starting at 8 AM. Salary depends on sales.' *nl if maidqw = 1:'You can work in Pavlovsk hotel as a maid. Work is every day from 16 to 19. Salary is 250 plus tips.' *nl if postjobQW = 2 or postjobQW = 4:'You can deliver mail for the postmaster. Work starts each Saturday between 11:00 and 12:00. Salary is 450.' *nl if (work = 1 or cheatWork = 1) and gpoliuborka > 1:'You can work part-time as a cleaner in pavlovo clinic. Work is from 16 to 21.' *nl if stripwork >= 1:'You can work as a stripper in the city industrial region. Free schedule, every day from 15 to midnight. No salary, only tips.' *nl if film > 0:'You are working in the city industrial region as pornographic actress under the name <<$pfname>>' *nl if bumtolik = 4:'You have been asked to help the homeless at the Mercy Clinic in the city industrial region.' *nl if bumtolik >= 5:'You volunteer at the Mercy Clinic in the city industrial region, working with the homeless. Working hours are from 9 to 17, Saturday and Sunday.' *nl if husband > 0:'You have been married for <> days. Your husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <> Relationship <>.' if kid > 0: i = 0 if kid = 1: 'You have a child, a <<$polreb[0]>> named <<$kidname[0]>>. Born <>-<>-<>. Aged <>.' else 'You have children:' :LoopKidCounter if i <= kid + 1: ' a <<$polreb[i]>> named <<$kidname[i]>>. Born <>-<>-<>. Aged <>.' i += 1 jump 'LoopKidCounter' end end *nl end *nl if $bfsex > 0:'<<$bfsex>>' *nl if loverGender[0] = 0: $obj_loverintro = 'Your boyfriend' $obj_loverpron = 'He' else $obj_loverintro = 'Your girlfriend' $obj_loverpron = 'She' end if pcs_lovers[0] = 1:'<<$obj_loverintro>> <<$loverdesc[0]>> is <<$loverbody[0]>> height and <<$loverbod[0]>> build with <<$loverface[0]>> hair. <<$loverdesc[0]>> is <<$loverClo[0]>>. Your relationship is <> after <> days dating.' if haraklover[0] = 0 and loverrelation[0] > 1:'<<$obj_loverpron>>''s timid and lacks confidence.' if haraklover[0] = 1 and loverrelation[0] > 1:'<<$obj_loverpron>> has a cheerful and sociable personality.' if haraklover[0] = 2 and loverrelation[0] > 1:'<<$obj_loverpron>>''s short-tempered and strict.' *nl if loverGender[1] = 0: $obj_loverintro = 'Your boyfriend' $obj_loverpron = 'He' else $obj_loverintro = 'Your girlfriend' $obj_loverpron = 'She' end if pcs_lovers[1] = 1:'<<$obj_loverintro>> <<$loverdesc[1]>> is <<$loverbody[1]>> height and <<$loverbod[1]>> build with <<$loverface[1]>> hair. <<$loverdesc[1]>> is <<$loverClo[1]>>. Your relationship is <> after <> days dating.' if haraklover[1] = 0 and loverrelation[1] > 1:'<<$obj_loverpron>>''s timid and lacks confidence.' if haraklover[1] = 1 and loverrelation[1] > 1:'<<$obj_loverpron>> has a cheerful and sociable personality.' if haraklover[1] = 2 and loverrelation[1] > 1:'<<$obj_loverpron>>''s short-tempered and strict.' *nl if loverGender[2] = 0: $obj_loverintro = 'Your boyfriend' $obj_loverpron = 'He' else $obj_loverintro = 'Your girlfriend' $obj_loverpron = 'She' end if pcs_lovers[2] = 1:'<<$obj_loverintro>> <<$loverdesc[2]>> is <<$loverbody[2]>> height and <<$loverbod[2]>> build with <<$loverface[2]>> hair. <<$loverdesc[2]>> is <<$loverClo[2]>>. Your relationship is <> after <> days dating.' if haraklover[2] = 0 and loverrelation[2] > 1:'<<$obj_loverpron>>''s timid and lacks confidence.' if haraklover[2] = 1 and loverrelation[2] > 1:'<<$obj_loverpron>> has a cheerful and sociable personality.' if haraklover[2] = 2 and loverrelation[2] > 1:'<<$obj_loverpron>>''s short-tempered and strict.' *nl !! Not implemented !! if firstvag ! 0: !! 'Your hymen is broken:' !! '<<$firstvagstat>>' !! else !! 'Your vaginal virginity is intact' !! end !! !! if firstanal ! 0: !! 'Your anal virginity has been taken:' !! '<<$firstanalstat>>' !! else !! 'Your anal virginity is intact' !! end !! !! if firstoral ! 0: !! 'Your mouth has been used:' !! '<<$firstoralstat>>' !! else !! 'Your oral virginity is intact' !! end *nl gs'Menu.Create','zapisMenu' gs'Menu.Add','zapisMenu','Make a note with current date','','MenuLoc','zapisosn' gs'Menu.Add','zapisMenu','Make a note on the 1st row','','MenuLoc','zapis' gs'Menu.Add','zapisMenu','With a red row on the 1st row','','MenuLoc','ot' gs'Menu.Add','zapisMenu','Make a note on the 2nd row','','MenuLoc','zapis2' gs'Menu.Add','zapisMenu','With a red row on the 2nd row','','MenuLoc','ot2' gs'Menu.Add','zapisMenu','Make a note on the 3rd row','','MenuLoc','zapis3' gs'Menu.Add','zapisMenu','With a red row on the 3rd row','','MenuLoc','ot3' gs'Menu.Add','zapisMenu','Make a note on the 4th row','','MenuLoc','zapis4' gs'Menu.Add','zapisMenu','With a red row on the 4th row','','MenuLoc','ot4' gs'Menu.Add','zapisMenu','Make a note on the 5th row','','MenuLoc','zapis5' gs'Menu.Add','zapisMenu','With a red row on the 5th row','','MenuLoc','ot5' gs'Menu.Add','zapisMenu','Make a note on the 6th row','','MenuLoc','zapis6' gs'Menu.Add','zapisMenu','With a red row on the 6th row','','MenuLoc','ot6' gs'Menu.Add','zapisMenu','Make a note on the 7th row','','MenuLoc','zapis7' gs'Menu.Add','zapisMenu','With a red row on the 7th row','','MenuLoc','ot7' gs'Menu.Add','zapisMenu','Make a note on the 8th row','','MenuLoc','zapis8' gs'Menu.Add','zapisMenu','With a red row on the 8th row','','MenuLoc','ot8' gs'Menu.Add','zapisMenu','Make a note on the 9th row','','MenuLoc','zapis9' gs'Menu.Add','zapisMenu','With a red row on the 9th row','','MenuLoc','ot9' gs'Menu.Add','zapisMenu','Make a note on the 10th row','','MenuLoc','zapis10' gs'Menu.Add','zapisMenu','With a red row on the 10th row','','MenuLoc','ot10' gs'Menu.Create','disMenu' gs'Menu.Add','disMenu','Delete the entry on the 1st row','','MenuLoc','diszapis' gs'Menu.Add','disMenu','Delete the entry on the 2nd row','','MenuLoc','diszapis2' gs'Menu.Add','disMenu','Delete the entry on the 3rd row','','MenuLoc','diszapis3' gs'Menu.Add','disMenu','Delete the entry on the 4th row','','MenuLoc','diszapis4' gs'Menu.Add','disMenu','Delete the entry on the 5th row','','MenuLoc','diszapis5' gs'Menu.Add','disMenu','Delete the entry on the 6th row','','MenuLoc','diszapis6' gs'Menu.Add','disMenu','Delete the entry on the 7th row','','MenuLoc','diszapis7' gs'Menu.Add','disMenu','Delete the entry on the 8th row','','MenuLoc','diszapis8' gs'Menu.Add','disMenu','Delete the entry on the 9th row','','MenuLoc','diszapis9' gs'Menu.Add','disMenu','Delete the entry on the 10th row','','MenuLoc','diszapis10' 'Make a note or Delete a note' '<<$zapisOsn>>' '<<$zapis>>' '<<$zapis2>>' '<<$zapis3>>' '<<$zapis4>>' '<<$zapis5>>' '<<$zapis6>>' '<<$zapis7>>' '<<$zapis8>>' '<<$zapis9>>' '<<$zapis10>>' end if $ARGS[0] = 'emergency': '
YOU JUST had to use emergency exit, this is only for use when you get a BLANK SCREEN.
' *nl '
DO NOT use this option without a good reason, doing so can cause instability and could damage your save game.
' *nl '
If this was the result of a bug in the game, then please report the issue and when / how it was trigger with as much info as you can on the tfgamesite.com forum.
' *nl cla if StoryLine = 1:act 'Go to Pavlovsk':gt 'pavResidential' act 'Go to City Residental':gt 'street' if $loc ! '' and $metka ! '': act 'Cancel':gt $loc, $metka elseif $loc ! '': act 'Cancel':gt $loc elseif $curloc ! '': act 'Cancel':gt $curloc end end !!quick time changes from the object menu if $ARGS[0] = '-1 Hour': hour -= 1 gs 'stat' gt $loc, $metka end if $ARGS[0] = '+1 Hour': hour += 1 gs 'stat' gt $loc, $metka end ! remnants of old menu for testing if $ARGS[0] = 'old': killobj oldobjmenu = 1 ! addobj '
Character
' ! addobj '
Skills
' ! addobj '
Statistics
' ! addobj '
Pain
' ! addobj '
Traits
' ! addobj '
Renown
' ! if pcs_magik > 0:addobj '
Magic
' ! addobj '
Face
' ! addobj '
Body
' ! addobj '
Clothing
' ! addobj '
Panties
' ! addobj '
Shoes
' ! addobj '
Tattoos
' ! addobj '
Piercing
' ! addobj '
Phone
' ! if bag > 0:addobj '
Purse
' ! addobj '
Notebook
' addobj '
Refresh
' !addobj '
Settings
' !addobj '
Cheats
' if cheatConsole = 0: addobj '
Console
' ! if disable_autosave = 1: ! addobj '
[Autosave]
' ! else ! addobj '
[Autosave]
' ! end if cheatTime = 1: addobj '
-1 Hour
' addobj '
+1 Hour
' end addobj '' addobj '
Emergency
' addobj '' if debug_warning_closed = 0: addobj '
This window is for debug only and can be safely closed.
' addobj '
Remove debug info
' end end if $ARGS[0] = 'wait': cla waiting = input ("How long would you like to wait?
(maximum 120 minutes, leave blank or press cancel to wait 15 minutes)") if waiting = '': minut += 15 elseif waiting > 0 and waiting <= 120: minut += waiting elseif waiting <= 0 or waiting > 120: 'Invalid time.' end gs 'stat' gt $loc, $metka end if $ARGS[0] = 'rest': cla waiting = input ("How long would you like to rest?
(Default 15 minutes, maximum 120 minutes)") if waiting = '': minut += 15 elseif waiting > 0 and waiting <= 120: minut += waiting pcs_mood += 10 pcs_willpwr += 10 if pcs_sleep < 90 and waiting >= 60: pcs_sleep += 10 end elseif waiting <= 0 or waiting > 120: 'Invalid time.' end gs 'stat' gt $loc, $metka end --- obj_din ---------------------------------