|
|
@@ -50,14 +50,13 @@ if $ARGS[0] = 'start':
|
|
|
minut += 5
|
|
|
workDisk = 2
|
|
|
gs 'stat'
|
|
|
- 'You are given a thumb drive, and asked if you remember all the instructions. You quietly nod and leave.'
|
|
|
- 'As you leave the studio, you hear someone exit a nearby building and start following you.'
|
|
|
- 'You reassure yourself and carry on.'
|
|
|
+ 'You''re given a thumb drive and asked if you remember all the instructions. You quietly nod and leave.'
|
|
|
+ 'As you leave the studio, you hear someone exit a nearby building and start following you, but you reassure yourself and carry on.'
|
|
|
|
|
|
act 'Leave': gt 'city_redlight', 'start'
|
|
|
end
|
|
|
elseif workDisk = 3 and week = 5:
|
|
|
- act 'Give the envelope':
|
|
|
+ act 'Hand over the envelope':
|
|
|
cla
|
|
|
menu_off = 1
|
|
|
minut += 5
|
|
|
@@ -114,7 +113,7 @@ if $ARGS[0] = 'pa':
|
|
|
*clr & cla
|
|
|
menu_off = 1
|
|
|
gs 'stat'
|
|
|
- '"Is it possible for me to change my stage name?"'
|
|
|
+ '"Is it possible for me to change my stage name?" you ask.'
|
|
|
'"Of course! Just give me a minute to register it in the database. So, what would you like to be called?" he replies.'
|
|
|
act '"I want to be called..."':
|
|
|
$pfname = input("Enter the name you want to be known as.")
|
|
|
@@ -133,17 +132,17 @@ if $ARGS[0] = 'pa':
|
|
|
'"You''ve made <<film>> films."'
|
|
|
|
|
|
if porn_fame < 10:
|
|
|
- '"Nobody knows your name. You''re one of hundreds of amateur actresses who only play minor roles in big movies. Your own movies sold really cheap."'
|
|
|
+ '"Nobody knows your name. You''re one of hundreds of amateur actresses whose fims are sold really cheap."'
|
|
|
elseif porn_fame < 20:
|
|
|
- '"You''re still unknown, but your name is mentioned in the credits. You''re unlikely to be recognized, and your own movies are still sold cheap."'
|
|
|
+ '"You''re still unknown and are unlikely to be recognized. Your own films are still sold cheap."'
|
|
|
elseif porn_fame < 40:
|
|
|
- '"You''re mentioned here and there, but you still mostly get secondary roles in most of your movies. Your name is slowly emerging and you have your own fanbase."'
|
|
|
+ '"You''re mentioned here and there, but still mostly get minor roles. Your name is slowly emerging and you have your own fanbase."'
|
|
|
elseif porn_fame < 60:
|
|
|
- '"You''re a minor, but known porn actress. You get the occasional primary role and back cover appearance. Your movies are getting more popular, which means more fans and more money."'
|
|
|
+ '"You get the occasional back cover appearance and your films are getting more popular, which means more fans and more money."'
|
|
|
elseif porn_fame < 80:
|
|
|
- '"You''re a known porn actress who mostly plays primary roles, and you appear on the front cover. Your movies are sold at a decent price, and in big numbers. You may also appear in a variety of adult magazines."'
|
|
|
+ '"You''re a known porn actress who appears on the front cover. Your films are sold at a decent price, and in big numbers."'
|
|
|
else
|
|
|
- '"You''re a famous porn starlet and always play the main role. You''re a brand name, with sex toys and T-shirts among the items sold as part of your own line of merchandise."'
|
|
|
+ '"You''re a very well known porn actress and your films are sold at a premium. You''re likely to recieve offers to work with renowned studios and producers."'
|
|
|
end
|
|
|
|
|
|
if porn_fame >= 20:
|
|
|
@@ -199,7 +198,7 @@ if $ARGS[0] = 'pa':
|
|
|
films_stop_payment = film * 40000
|
|
|
gs 'stat'
|
|
|
'"Seeing as you''re not well known, it''s unlikely anyone would notice. However, to remove them you''d have to cover the loss of the studio''s profits- 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>."'
|
|
|
- '"Also, it would piss off your co-stars and director, and likely end your porn career. You should also know that there''s no guarantee that there''s no other copies of your movies out there anyway, so think carefully."'
|
|
|
+ '"Also, it would piss off your co-stars and director, and likely end your porn career. You should also know that there''s no guarantee there''s no other copies out there, so think carefully."'
|
|
|
|
|
|
if money >= films_stop_payment:
|
|
|
act 'Remove them':
|
|
|
@@ -242,7 +241,7 @@ if $ARGS[0] = 'delivery':
|
|
|
minut += 15
|
|
|
menu_off = 1
|
|
|
gs 'stat'
|
|
|
- '"We made inquiries about you, and everything seems in order. Essentially, we give you a thumb drive, you deliver it to the sauna, they give you an envelope and you bring it to us. Immediately."'
|
|
|
+ '"We made inquiries about you, and everything seems in order. In short, we give you a thumb drive and you deliver it to the sauna. They give you an envelope and you bring it to us. Immediately."'
|
|
|
'"Upon delivery of the envolope, you get 5000 <b>₽</b>. Deliveries are available every Friday, after the studio has opened. If you agree, then visit any Friday, and choose a safe mode of transport."'
|
|
|
|
|
|
act 'Disagree':bomzQW = -1 & gt 'city_redlight', 'start'
|
|
|
@@ -268,7 +267,7 @@ if $ARGS[0] = 'delivery':
|
|
|
'This sauna is located near your home. You find it strange that you didn''t notice it before.'
|
|
|
end
|
|
|
|
|
|
- 'You go to the sauna, and are introduced to the local managers. It''s explained to you who you need to deliver to, and are reminded that it is necessary to return the envelope the same day you receive it.'
|
|
|
+ 'You''re introduced to the local managers and it''s explained to you who you need to deliver to. You''re also reminded that it''s necessary to return the envelope the same day you receive it.'
|
|
|
'"Don''t forget to use secure transport. We''ll see you on Fridays. <i>Don''t</i> fuck up."'
|
|
|
|
|
|
act 'Leave':bomzQW = 2 & gt 'city_residential'
|
|
|
@@ -322,7 +321,6 @@ if $ARGS[0] = 'manager':
|
|
|
'You walk into the manager''s office and find Dimitri at his desk.'
|
|
|
|
|
|
if firstkasting = 0: gt 'pornstudio', 'first'
|
|
|
-
|
|
|
if pregchem >= 2688 and pregtalkpornstudio = 0: gt 'pornstudio', 'pregreact'
|
|
|
|
|
|
if pfilmNoVenera = 1:
|
|
|
@@ -399,7 +397,7 @@ if $ARGS[0] = 'manager':
|
|
|
!! Your first movie offer
|
|
|
if firstoffer = 0:
|
|
|
firstoffer = 1
|
|
|
- if tits >= 5:
|
|
|
+ if tits >= 4:
|
|
|
'"So you''re the new girl, huh? As luck would have it, we''re looking for someone fresh for our next shoot. It''s called ''Girls Jerk Guys #36''. For 500 <b>₽</b>, you would jerk a guy off and have him cum on your tits. However, in your case, you''ll be using those puppies instead. Titfucking is a market we want to break into," he says while looking at your well endowed chest.'
|
|
|
'"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He''s rather... proud of being in this line of work."'
|
|
|
else
|
|
|
@@ -407,7 +405,7 @@ if $ARGS[0] = 'manager':
|
|
|
'"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He''s rather... proud of being in this line of work."'
|
|
|
end
|
|
|
else
|
|
|
- if tits >= 5:
|
|
|
+ if tits >= 4:
|
|
|
'"Hello. Since you''re new, all I can offer you is an introductory movie called ''Girls Jerk Guys #36''. For 500 <b>₽</b>, you would jerk a guy off and have him cum on your tits. However, in your case, you''ll be using those puppies instead. Titfucking is a market we want to break into," he says while looking at your well endowed chest.'
|
|
|
'"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He''s rather... proud of being in this line of work."'
|
|
|
else
|
|
|
@@ -799,14 +797,18 @@ if $ARGS[0] = 'yes':
|
|
|
'You confirm your enthusiasm to be in porn and he nods. "Let''s see your papers. You are 18 or older, yes?"'
|
|
|
if age >= 18 and age < 20:
|
|
|
'"Yes I am," you answer while handing him your passport.'
|
|
|
- 'He looks it over with a grin. "A teen, huh? Perfect. You need to do a casting first. Take off your clothes."'
|
|
|
- elseif age >= 18:
|
|
|
+ 'He looks it over with a smirk. "A teen, huh? Perfect. You need to do a casting first, so take off your clothes."'
|
|
|
+ elseif age >= 20 and age < 25:
|
|
|
+ '"Yes I am," you answer while handing him your passport.'
|
|
|
+ 'He looks it over and nods. "Looks good, but you need to do a casting first. Take off your clothes."'
|
|
|
+ elseif age >= 25:
|
|
|
'"Yes I am," you answer while handing him your passport.'
|
|
|
- 'He looks it over and nods. "Looks good. You need to do a casting first. Take off your clothes."'
|
|
|
+ 'He looks it over and frowns. "You''re a bit old to start doing porn, no?"'
|
|
|
+ '"What do you mean?" you ask with a frown.'
|
|
|
+ '"Most of our girls started when they were 18. The oldest was 20," he replies. "We can work with you, but you need to do a casting first. Take off your clothes."'
|
|
|
elseif fakepassport = 1:
|
|
|
'"Yes I am," you answer while handing him your fake passport.'
|
|
|
- 'You see him frown as he checks your passport with suspicion.'
|
|
|
- '"Well, I guess everything is in order. You need to do a casting first. Take off your clothes."'
|
|
|
+ 'You see him frown as he checks your passport with suspicion. "You need to do a casting first. Take off your clothes."'
|
|
|
else
|
|
|
'"Nearly..." you plead.'
|
|
|
'"Right... Come back when you''re old enough, kid."'
|
|
|
@@ -835,10 +837,10 @@ if $ARGS[0] = 'yes':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting2.jpg"></center>'
|
|
|
'You lie down on the sofa and spread your legs as he takes a few pictures, explaining that they''re for your portfolio.'
|
|
|
if tits >= 4:
|
|
|
- '"Are these puppies real?" he asks while fondling one of your large breasts in his hand with an approving grin.'
|
|
|
- if age < 20: '"A big tit teen is the kind of fresh talent we''re looking for right now."'
|
|
|
- elseif tits <= 2:
|
|
|
- 'He stares at your clear lack of sizeable breasts while muttering something to himself. "No worries. We can work with these."'
|
|
|
+ '"Are these puppies real?" he asks while fondling one of your large breasts in his hand with an approving grin. "These things bouncing around as you get fucked will certainly draw in the views."'
|
|
|
+ if age < 20: '"A big tit teen like you is who studios dream of signing on. Those puppies are going to make you <i>very</i> popular, and not just with the viewers."'
|
|
|
+ elseif tits < 2:
|
|
|
+ 'He notices your clear lack of sizeable breasts. "No worries. Small tits are just as popular in porn as big ones."'
|
|
|
else
|
|
|
'"Nice tits. Always good to give the viewers something to look at," he smiles while fondling one of your breasts in his hand.'
|
|
|
end
|
|
|
@@ -857,7 +859,7 @@ if $ARGS[0] = 'yes':
|
|
|
'"Turn around," he orders and you get on all fours and show him your bubble butt. "Nice," he says while squeezing it in his hand and taking some pictures. "I highly recommend doing anal if you have an ass like this."'
|
|
|
if tits >= 4 and age < 20:
|
|
|
'"A teen with big tits and a nice bubble butt. You really are the perfect little porn star in the making," he says with a grin.'
|
|
|
- elseif tits >= 5:
|
|
|
+ elseif tits >= 4:
|
|
|
'"Big tits and a bubble butt? You really are the complete package," he says with a grin.'
|
|
|
end
|
|
|
end
|
|
|
@@ -1063,12 +1065,12 @@ if $ARGS[0] = 'postvideo':
|
|
|
end
|
|
|
else
|
|
|
if $pstory = '' and editpornname = 1:
|
|
|
- $pornfilmstory[film] = input('You can enter the story of the porn movie. This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')
|
|
|
+ $pornfilmstory[film] = input('You can enter the story for the film. This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')
|
|
|
else
|
|
|
$pornfilmstory[film] = $pstory
|
|
|
end
|
|
|
if editpornname = 1:
|
|
|
- $porntitle[film] = input("Enter the name of the porn movie. <i>This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
|
|
|
+ $porntitle[film] = input("Enter the name of the film. <i>This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
|
|
|
end
|
|
|
end
|
|
|
|
|
|
@@ -1114,27 +1116,27 @@ if $ARGS[0] = 'postvideo':
|
|
|
if pfType ! 0:
|
|
|
unprotfilm = -1
|
|
|
if succubusflag = 1:
|
|
|
-!! May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STDs)
|
|
|
+ !!May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STDs)
|
|
|
if pfcash > 0:
|
|
|
$tmp = '"I almost can''t believe they paid me <<pfcash>><b>₽</b> for such a wonderful meal!"'
|
|
|
else
|
|
|
$tmp = '"And they think I''m doing this for free. If only they knew they were paying me in another way..."'
|
|
|
end
|
|
|
- 'You let slip a satisfied smirk and think to yourself, <<$tmp>>'
|
|
|
+ '<<$tmp>> you think to yourself as you smirk in satisfaction.'
|
|
|
elseif knowpreg = 0 and thinkpreg = 0 and pillcon2 < 1000:
|
|
|
pornDanger[film] = 1
|
|
|
-!! Left "ppreg" pending its eventual use
|
|
|
+ !!Left "ppreg" pending its eventual use
|
|
|
if ppreg = 0:
|
|
|
if pfcash > 0:
|
|
|
- $tmp = ' Was <<pfcash>> <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you''ll probably never see again?'
|
|
|
+ $tmp = 'Was <<pfcash>> <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you''ll probably never see again?'
|
|
|
else
|
|
|
$tmp = 'You didn''t even get paid to risk pregnancy! You''ll likely never see the guy again.'
|
|
|
end
|
|
|
- 'With a growing sense of horror, you realize that you aren''t on the shot and have no idea when you last took a birth control pill.<<$tmp>>'
|
|
|
+ 'With a growing sense of horror, you realize that you aren''t on the shot and have no idea when you last took a birth control pill. <<$tmp>>'
|
|
|
else
|
|
|
!{If she has birth control and deliberately isn''t using it, obviously she wants to get pregnant or just doesn''t care.}
|
|
|
if pfcash > 0:
|
|
|
- $tmp = 'Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you end up pregnant.'
|
|
|
+ $tmp = 'Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you do end up pregnant.'
|
|
|
else
|
|
|
$tmp = 'The fact that you weren''t even paid to take this risk excites you more than you''d like to admit.'
|
|
|
end
|
|
|
@@ -1283,7 +1285,7 @@ end
|
|
|
|
|
|
if $ARGS[0] = 'pregreact':
|
|
|
'"Wow. I''m surprised you still want to do the shoot considering how far along you are. The good news is, we''ve been looking into appealing to people with different fetishes, so this is the perfect opportunity to start marketing to pregnancy fetishists. However, this is also going to change the shoots you can do."'
|
|
|
- '"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. Don''t worry though, if we can find a way to make money off of you, we definitely will." the manager ends with a smile.'
|
|
|
+ '"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. Don''t worry; if we can find a way to make money off of you, we definitely will," Dimitri says with a smile.'
|
|
|
act 'Continue': pregtalkpornstudio = 1 & gt 'pornstudio', 'manager'
|
|
|
end
|
|
|
|
