|
@@ -27,7 +27,7 @@ if $ARGS[0] = 'start':
|
|
|
'Vibrator - 800 <b>₽</b>'
|
|
|
'Butt plug - 800 <b>₽</b>'
|
|
|
'Strap-on harness - 500 <b>₽</b>'
|
|
|
- 'Dildo - starting at 800 <b>₽</b>'
|
|
|
+ 'Dildos - starting at 800 <b>₽</b>'
|
|
|
*nl
|
|
|
'Private booths are available in the basement for viewing porn. (50 <b>₽</b> for 15 minutes)'
|
|
|
|
|
@@ -37,92 +37,43 @@ if $ARGS[0] = 'start':
|
|
|
|
|
|
if mc_inventory['buttplug'] = 1 and mc_inventory['dildo_small'] = 1 and hotcat >= 5 and Peter = 0:
|
|
|
if rand(0,1) = 1:
|
|
|
- 'You see an interesting looking middle-aged man. Apparently, he is the owner of this store.'
|
|
|
+ 'You see an interesting looking middle-aged man, the apparent owner of the store.'
|
|
|
|
|
|
act 'Introduce yourself':
|
|
|
*clr & cla
|
|
|
menu_off = 1
|
|
|
'<center><img <<$set_imgh>> src="images/characters/city/peter/peter.jpg"></center>'
|
|
|
'You approach the counter and introduce yourself. "Hey there, I''m <<$pcs_nickname>>."'
|
|
|
- '"I''m Peter," he replies. "I''ve been watching you for a while and I find you rather...interesting. Do you want to come back to my place for some ''fun''?"'
|
|
|
+ '"I''m Peter," he replies. "I''ve been watching you for a while and I find you rather... interesting. Do you want to come back to my place for some ''fun''?"'
|
|
|
act 'Leave': minut += 5 & gt 'city_redlight', 'start'
|
|
|
act 'Go with him': gt 'Peterroom', 'start'
|
|
|
- ! Where will Peter be set to non 0?
|
|
|
+ !! Peter needs to be set to 1
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
|
|
|
- act 'Go to the basement':gt 'sexshop', 'podval'
|
|
|
+ act 'Go to the basement': gt 'sexshop', 'podval'
|
|
|
|
|
|
if ghnow['sexshop_total'] >= 20 and pornstudio = 0:
|
|
|
- 'You notice the salesman trying to get your attention.'
|
|
|
+ 'You notice a shady looking man trying to get your attention.'
|
|
|
|
|
|
- act 'Approach':
|
|
|
+ act 'Approach him':
|
|
|
*clr & cla
|
|
|
minut += 5
|
|
|
menu_off = 1
|
|
|
- '"You give a great blowjob, so why not put that mouth to use and work as a porn actress? The pay is certainly better than here."'
|
|
|
+ pornstudio = 1
|
|
|
+ gs 'stat'
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre.jpg"></center>'
|
|
|
+ '"You give a great blowjob girl, so why not put that mouth to better use and work as a porn actress?"'
|
|
|
|
|
|
act 'Agree':
|
|
|
- *clr & cla
|
|
|
+ cla
|
|
|
minut += 5
|
|
|
gs 'stat'
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_1.jpg"></center>'
|
|
|
- 'You head to the porn studio with the man, where you''re approached by a man who introduces himself as Dimitri.'
|
|
|
- '"Okay, I''ve got to get back to work, but Dimitri here is our manager. He can explain everything you need to know." the salesman says before disappearing.'
|
|
|
- act 'Explain the purpose of your visit':
|
|
|
- *clr & cla
|
|
|
- minut = minut + 60
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
|
|
|
- 'Dimitri smiles. "New actresses are always welcome, but if they''re terrible, the studio won''t take them. The auditions are made public, so remember that if you ever consider it."'
|
|
|
- '"I''ll tell you everything else under one condition - you have to undress."'
|
|
|
-
|
|
|
- act 'Undress':
|
|
|
- *clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_3.jpg"></center>'
|
|
|
- 'You strip out of your clothes. Once you''re nude, Dimitri smiles and starts his tour.'
|
|
|
- '"We start with the casting auditions. As I said, if you''re terrible, then you have no hope. This can be overlooked if you have an attractive appearance, however."'
|
|
|
-
|
|
|
- act 'Continue':
|
|
|
- *clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/model_0.jpg"></center>'
|
|
|
- '"Then a girl is chosen for the lead role. Only the most attractive of girls are chosen."'
|
|
|
-
|
|
|
- act 'Continue':
|
|
|
- *clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/film_0.jpg"></center>'
|
|
|
- '"Then she shoots the scenes, an interesting and exciting process that can take hours. The films we shoot...'
|
|
|
-
|
|
|
- act 'Continue':
|
|
|
- *clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/dvd-disx.jpg"></center>'
|
|
|
- 'He pulls a DVD off the top of a nearby stack. "Are how we make money."'
|
|
|
-
|
|
|
- act 'How and where is it all sold?':
|
|
|
- *clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
|
|
|
- '"We mostly sell it digitally on our premium websites, but we have guys at the sauna in the residential area and in the sex shop for those who want to buy physically.'
|
|
|
- 'We''re thinking of moving in on the university as well- and not just selling our films there. We could possibly shoot a few films on campus. There''s a huge market for young college students and we want a slice."'
|
|
|
-
|
|
|
- act 'Is that legal?':
|
|
|
- *clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/ment_0.jpg"></center>'
|
|
|
- '"It doesn''t matter since we bribe the cops. Maybe in the future you''ll be able to help us with that? In the meantime, I''ve told you everything you need to know."'
|
|
|
-
|
|
|
- act 'You understand':
|
|
|
- *clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
|
|
|
- '"Enjoy yourself. I hope to see you around here more often." he says before returning to his business.'
|
|
|
- pornstudio = 3
|
|
|
- act 'Continue': gt 'pornstudio', 'start'
|
|
|
- end
|
|
|
- end
|
|
|
- end
|
|
|
- end
|
|
|
- end
|
|
|
- end
|
|
|
- end
|
|
|
- end
|
|
|
+ 'You nod your head. "Okay, where do I sign up?" you ask.'
|
|
|
+ 'The man smiles and hands you a business card. "Just come to this location and ask for Dimitri. He''ll tell you everything you need to know and do. I do hope I''ll see you working there soon," he says before returning to his business.'
|
|
|
+ 'You look over the card and see that the porn studio apparently operates out of the city''s industrial district. You then pocket the card and return to what you were doing.'
|
|
|
+ act 'Continue': gt 'sexshop', 'start'
|
|
|
end
|
|
|
gs 'willpower', 'prostitution', 'resist', 'medium'
|
|
|
if will_cost <= pcs_willpwr:
|
|
@@ -130,14 +81,20 @@ if $ARGS[0] = 'start':
|
|
|
*clr & cla
|
|
|
gs 'willpower', 'pay', 'resist'
|
|
|
gs 'stat'
|
|
|
- pornstudio = 1
|
|
|
- 'You shake your head and quickly move away from the man, feeling his gaze on the back of your head the entire time.'
|
|
|
- gt 'sexshop', 'start'
|
|
|
+ 'You shake your head and quickly move away from the man, feeling his gaze on the back of your head the entire time.'
|
|
|
+ act 'Leave': gt 'sexshop', 'start'
|
|
|
end
|
|
|
else
|
|
|
act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
|
|
|
end
|
|
|
end
|
|
|
+ act 'Ignore him':
|
|
|
+ cla
|
|
|
+ minut += 2
|
|
|
+ gs 'stat'
|
|
|
+ 'You ignore the man and quickly move away from him, feeling his gaze on the back of your head the entire time.'
|
|
|
+ act 'Leave': gt 'sexshop', 'start'
|
|
|
+ end
|
|
|
end
|
|
|
|
|
|
act 'Look through the fetish dresses': minut += 1 & gt 'sexshop', 'dress'
|
|
@@ -159,7 +116,7 @@ if $ARGS[0] = 'sexshop_menu' or $ARGS[0] = '':
|
|
|
gs 'themes', 'indoors'
|
|
|
$backimage= 'images/locations/city/redlight/erotomaniac/sexshop.jpg'
|
|
|
|
|
|
- act 'Stop browsing':gt 'sexshop', 'start'
|
|
|
+ act 'Stop browsing': gt 'sexshop', 'start'
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'dress':
|
|
@@ -450,11 +407,11 @@ if $ARGS[0] = 'podval':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/gloryholebooths1.jpg"></center>'
|
|
|
*nl
|
|
|
|
|
|
- act 'Leave the basement':gt 'sexshop', 'start'
|
|
|
- act 'Enter a free booth':gt 'sexshop', 'pip'
|
|
|
- act 'Enter the bathroom':gt 'sexshop', 'toi'
|
|
|
+ act 'Leave the basement': gt 'sexshop', 'start'
|
|
|
+ act 'Enter a free booth': gt 'sexshop', 'pip'
|
|
|
+ act 'Enter the bathroom': gt 'sexshop', 'toi'
|
|
|
|
|
|
- if masharab = 1:act 'Go to Masha':gt 'masharoom', 'start'
|
|
|
+ if masharab = 1: act 'Go to Masha': gt 'masharoom', 'start'
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'toi':
|
|
@@ -473,7 +430,7 @@ if $ARGS[0] = 'toi':
|
|
|
'<center><b><font color="maroon">WC</font></b></center>'
|
|
|
'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
|
|
|
|
|
|
- act 'Leave the toilet':gt 'sexshop', 'podval'
|
|
|
+ act 'Leave the toilet': gt 'sexshop', 'podval'
|
|
|
|
|
|
act 'Look in the mirror': gt 'mirror', 'start'
|
|
|
if pcs_hairbsh < 1: act 'Brush your hair': gt 'mirror', 'brush'
|
|
@@ -491,7 +448,6 @@ if $ARGS[0] = 'pip':
|
|
|
minut += 5
|
|
|
gs 'stat'
|
|
|
gs 'themes', 'indoors'
|
|
|
-
|
|
|
'<center><b><font color="maroon">Movie Booth</font></b></center>'
|
|
|
'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghbooths.jpg"></center>'
|
|
|
'The small booth has a TV on the wall, a terminal to choose films and a chair to sit in. There is also two holes in the walls at waist level.'
|
|
@@ -503,19 +459,19 @@ if $ARGS[0] = 'pip':
|
|
|
ghnowcheck = ghnow * 2
|
|
|
end
|
|
|
|
|
|
- if ghnow > 0:'You served <<ghnow>> cocks this visit.'
|
|
|
+ if ghnow > 0: 'You served <<ghnow>> cocks on this visit.'
|
|
|
|
|
|
- act 'Leave the booth':gt 'sexshop', 'podval'
|
|
|
+ act 'Leave the booth': gt 'sexshop', 'podval'
|
|
|
|
|
|
if money >= 50 and (hour >= 11 or hour < 3):
|
|
|
act 'Watch porn':
|
|
|
cla
|
|
|
money -= 50
|
|
|
minut += 10
|
|
|
- 'You insert 50 <b>₽</b> into the terminal and the TV on the wall begins showing a pornographic film.'
|
|
|
- 'You sit in the chair and watch the porn, feeling yourself becoming a little excited.'
|
|
|
+ 'You insert 50 <b>₽</b> into the terminal and the TV on the wall starts showing a pornographic film.'
|
|
|
+ 'You sit in the chair and watch the film, feeling yourself becoming a little excited.'
|
|
|
|
|
|
- act 'The film ends':minut += 5 & gt 'sexshop', 'pip'
|
|
|
+ act 'The film ends': minut += 5 & gt 'sexshop', 'pip'
|
|
|
|
|
|
act 'Masturbate':
|
|
|
cla
|
|
@@ -524,7 +480,7 @@ if $ARGS[0] = 'pip':
|
|
|
gs 'arousal', 'end'
|
|
|
gs 'stat'
|
|
|
|
|
|
- act 'The film ends':gt 'sexshop', 'pip'
|
|
|
+ act 'The film ends': minut += 5 & gt 'sexshop', 'pip'
|
|
|
end
|
|
|
|
|
|
|
|
@@ -532,8 +488,7 @@ if $ARGS[0] = 'pip':
|
|
|
'You hear the TV in the next stall turn on.'
|
|
|
|
|
|
act 'Stick a finger in the hole (serve a stranger)':
|
|
|
- cla
|
|
|
- *clr
|
|
|
+ *clr & cla
|
|
|
ghnow += 1
|
|
|
ghnow['sexshop_total'] += 1
|
|
|
if ghnow < 5:
|
|
@@ -546,10 +501,9 @@ if $ARGS[0] = 'pip':
|
|
|
'The stranger slips ' + iif(ghnow < 5, '300', '150') + '<b>₽</b> into the hole, followed by his erect cock.'
|
|
|
|
|
|
act 'Suck his dick':
|
|
|
+ *clr & cla
|
|
|
gs 'npcgeneratec', 0, 'Guy at the gloryhole', rand(21,50)
|
|
|
gs 'boyStat', $npclastgenerated
|
|
|
- cla
|
|
|
- *clr
|
|
|
stat['gloryhole'] += 1
|
|
|
gs 'cum_call', 'mouth_swallow', $boy
|
|
|
ghprand = rand(1, 38)
|
|
@@ -564,7 +518,7 @@ if $ARGS[0] = 'pip':
|
|
|
'You have sucked <<mistressqwest - 1>> cocks for Mistress.'
|
|
|
end
|
|
|
|
|
|
- act 'Wipe your face':gt 'sexshop', 'pip'
|
|
|
+ act 'Wipe your face': gt 'sexshop', 'pip'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -608,16 +562,16 @@ if $ARGS[0] = 'kendra':
|
|
|
gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
|
|
|
gs 'stat'
|
|
|
if kendratoy = 1:
|
|
|
- act 'Use the dildo':gt 'sexshop', 'kendra1'
|
|
|
+ act 'Use the dildo': gt 'sexshop', 'kendra1'
|
|
|
else
|
|
|
- act 'Use the strap-on':gt 'sexshop', 'kendra2'
|
|
|
+ act 'Use the strap-on': gt 'sexshop', 'kendra2'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
elseif kendraslave >= 1:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend.jpg"></center>'
|
|
|
'As you browse the store, you see Kendra trying on latex clothes. She smiles when she notices you looking at her.'
|
|
|
- '"Who do we have here? My favorite bitch. Come and service me. I just bought a new toy and I''m eager to try it out." she laughs as she motions for you to follow her.'
|
|
|
+ '"Who do we have here? My favorite bitch. Come and service me. I just bought a new toy and I''m eager to try it out," she laughs as she motions for you to follow her.'
|
|
|
gs 'willpower', 'sex', 'resist', 'medium'
|
|
|
if will_cost <= pcs_willpwr:
|
|
|
act 'Leave (<<will_cost>> Willpower)':
|
|
@@ -642,9 +596,9 @@ if $ARGS[0] = 'kendra':
|
|
|
gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
|
|
|
gs 'stat'
|
|
|
if kendratoy = 1:
|
|
|
- act 'Use the dildo':gt 'sexshop', 'kendra1'
|
|
|
+ act 'Use the dildo': gt 'sexshop', 'kendra1'
|
|
|
else
|
|
|
- act 'Use the dildo':gt 'sexshop', 'kendra2'
|
|
|
+ act 'Use the dildo': gt 'sexshop', 'kendra2'
|
|
|
end
|
|
|
end
|
|
|
elseif hotcat >= 5:
|
|
@@ -655,7 +609,7 @@ if $ARGS[0] = 'kendra':
|
|
|
'She smiles. "<<$pcs_nickname>>, what a pretty name. I''m Kendra, but you can call me Mistress Kendra," she says with confidence.'
|
|
|
'"Oh..." you reply. She''s one of those people.'
|
|
|
act 'Leave': minut += 5 & gt 'city_redlight', 'start'
|
|
|
- act 'Go back to shopping':gt 'sexshop', 'start'
|
|
|
+ act 'Go back to shopping': gt 'sexshop', 'start'
|
|
|
act 'Talk to her':
|
|
|
*clr & cla
|
|
|
meet_kendra = 1
|
|
@@ -673,7 +627,7 @@ if $ARGS[0] = 'kendra':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend.jpg"></center>'
|
|
|
'You smile at her. "Sorry, but I don''t belong to anyone."'
|
|
|
'She sighs softly. "Such a waste. Oh well, there''s plenty of pretty little white Russian bitches that love being owned by an ebony Mistress. Perhaps we''ll meet again and you''ll change your mind?" She gives you directions to her dorm room and you both return to shopping.'
|
|
|
- act 'Go back to shopping':gt 'sexshop', 'start'
|
|
|
+ act 'Go back to shopping': gt 'sexshop', 'start'
|
|
|
end
|
|
|
act 'Call her Mistress Kendra':
|
|
|
*clr & cla
|
|
@@ -691,9 +645,9 @@ if $ARGS[0] = 'kendra':
|
|
|
gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
|
|
|
gs 'stat'
|
|
|
if kendratoy = 1:
|
|
|
- act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
|
|
|
+ act 'She pulls out a dildo': gt 'sexshop', 'kendra1'
|
|
|
else
|
|
|
- act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
|
|
|
+ act 'She pulls out a strap-on': gt 'sexshop', 'kendra2'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -702,7 +656,7 @@ if $ARGS[0] = 'kendra':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend0.jpg"></center>'
|
|
|
'As you browse the store, you see a very attractive young black woman trying on latex clothes. She notices you and gives you a quick once over before she goes back to what she was doing. After a few minutes, she moves to another section of the store.'
|
|
|
act 'Leave': minut += 5 & gt 'city_redlight', 'start'
|
|
|
- act 'Go back to shopping':gt 'sexshop', 'start'
|
|
|
+ act 'Go back to shopping': gt 'sexshop', 'start'
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -736,7 +690,7 @@ if $ARGS[0] = 'kendra1':
|
|
|
'"Now it''s time for your reward," she says as she pulls a strap-on out of her bag.'
|
|
|
gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
|
|
|
gs 'stat'
|
|
|
- act 'Yes, Mistress':gt 'sexshop', 'kendra2'
|
|
|
+ act 'Yes, Mistress': gt 'sexshop', 'kendra2'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -768,9 +722,9 @@ if $ARGS[0] = 'kendra2':
|
|
|
gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'deepthroat'
|
|
|
gs 'stat'
|
|
|
if pcs_vag = 0:
|
|
|
- act 'Anal':gt 'sexshop', 'kendraanal'
|
|
|
+ act 'Anal': gt 'sexshop', 'kendraanal'
|
|
|
else
|
|
|
- act 'Vaginal':gt 'sexshop', 'kendravag'
|
|
|
+ act 'Vaginal': gt 'sexshop', 'kendravag'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
@@ -794,7 +748,7 @@ if $ARGS[0] = 'kendravag':
|
|
|
gs 'arousal', 'masturbate', 5, 'lesbian', 'sub'
|
|
|
minut -= 5
|
|
|
gs 'stat'
|
|
|
- act 'Anal':gt 'sexshop', 'kendraanal'
|
|
|
+ act 'Anal': gt 'sexshop', 'kendraanal'
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -924,7 +878,7 @@ if $ARGS[0] = 'kendrafinish':
|
|
|
gs 'arousal', 'foreplay', 5, 'lesbian', 'sub'
|
|
|
gs 'arousal', 'end'
|
|
|
gs 'stat'
|
|
|
- act 'Return to the store':gt 'sexshop', 'start'
|
|
|
+ act 'Return to the store': gt 'sexshop', 'start'
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'shprod':
|
|
@@ -935,7 +889,7 @@ if $ARGS[0] = 'shprod':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/shprod.jpg"></center>'
|
|
|
'The cashier stands in front of you, holding a miniskirt and offering to help you. "Girl, this is very you. Will you try it on?"'
|
|
|
|
|
|
- act 'Refuse':gt 'sexshop', 'start'
|
|
|
+ act 'Refuse': gt 'sexshop', 'start'
|
|
|
|
|
|
act 'Try it on':
|
|
|
*clr & cla
|