Browse Source

[added] Menu variable for R

Blatte 5 years ago
parent
commit
0fc7cac205

+ 1 - 0
locations/RimmaSexQW.qsrc

@@ -2,6 +2,7 @@
 cls
 minut += 15
 rimmaday = daystart
+menu_off = 1
 gs 'stat'
 'You go over to Rima who smiles affably as she greets you.'
 '"Hi <<$pcs_nickname>>. My shift is almost over. Do you want to do something?"'

+ 3 - 3
locations/RynokHoz.qsrc

@@ -16,7 +16,7 @@
 
 if $ARGS[0] = 'the_beginning':
 	minut += 15
-
+	menu_off = 1
 	if arturplan > 4000:arturplan -= 1000
 
 	gs 'stat'
@@ -212,7 +212,7 @@ end
 
 !!Artur and friends.
 if $ARGS[0] = 'group':
-
+	menu_off = 1
 	money += 5000
 
 	if repa < 6:repa = 6
@@ -277,7 +277,7 @@ end
 
 !!Just Artur
 if $ARGS[0] = 'sex':
-
+	menu_off = 1
     gs 'boyStat', 'A73'
 	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj15.jpg"></center>'
 	'The Artur takes you into the warehouse, and with you on your knees in front of him pulls out his <<dick>>cm <<$dick_girth>> dick. He smacks you in the face with it and then rubs the tip against your lips, when you open your mouth he shoves his dick in your mouth and roughly fucks your mouth.'

+ 1 - 0
locations/restoranM.qsrc

@@ -1,6 +1,7 @@
 # restoranM
 
 $location_type = 'public_indoors'
+menu_off = 1
 
 if $ARGS[0] = 'start':
 	minut += 30

+ 3 - 0
locations/rinok.qsrc

@@ -19,6 +19,9 @@ if $ARGS[0] = 'start' or $metka = 'start':
 	mag = 1
 	$metka = 'start'
 	$loc = 'rinok'
+	$menu_loc = 'rinok'
+	$menu_arg = 'start'
+	
 	'<center><b><font color="maroon">Marketplace</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/market/rinok.jpg"></center>'
 	''

+ 4 - 1
locations/rinwork.qsrc

@@ -27,7 +27,10 @@ $location_type = 'event_outdoors'
 if $ARGS[0] = 'start':
 	$metka = 'start'
 	$loc = 'rinwork'
-	cls
+	cla & *clr
+	$menu_loc = 'rinwork'
+	$menu_arg = 'start'
+	menu_off = 0
 	gs 'stat'
 	'<center><b><font color="maroon">Marketplace</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/market/rinok.jpg"></center>'

+ 32 - 19
locations/road.qsrc

@@ -4,9 +4,12 @@ $location_type = 'public_outdoors'
 if $ARGS[0] = '':
 	CLOSE ALL
 	if sound = 0:PLAY 'sound/highway.mp3',50
-	$metka = $ARGS[0]
-	$loc = $CURLOC
-	cls
+	$metka = ''
+	$loc = 'road'
+	cla & *clr
+	$menu_loc = 'road'
+	$menu_arg = ''
+	menu_off = 0
 	gs 'stat'
 	'<center><h2>Main road between St. Petersburg and Pavlovsk</h2></center>'
 	if month >= 11 or month <= 3:
@@ -129,15 +132,12 @@ end
 
 if $ARGS[0] = 'drive_sex1':
 	$location_type = 'event_outdoors'
-	cls
+	cla & *clr
+	menu_off = 1
 	gs 'npcgeneratec', 0, 'truck driver', rand(14,22)
 	gs 'boyStat', $npclastgenerated
-	gs'stat'
+	gs 'stat'
 	autostop_price = 0
-	pcs_horny += RAND(20,30)
-	guy += 1
-	stat['bj'] += 1
-	hja += 1
 	swallow += 1
 	spafinloc = 12
 	gs 'cum_manage'
@@ -164,19 +164,24 @@ if $ARGS[0] = 'drive_sex1':
 	'You eagerly bob your head up and down while he drives, totally forgetting about your earlier doubts and do your best to get him off.'
 	'With success: in no time at all, the man groans and his cock erupts inside your mouth, shooting gobs of his hot sperm onto your tongue while you keep your lips closed around his cock to not make a mess.'
 	'Realizing you can''t spit it out anywhere, you have no option but to swallow his load while he keeps driving.'
+	
+	gs 'arousal', 'hj', 15, 'prostitution'
+	gs 'arousal', 'bj', 15, 'prostitution'
+	minut -= 15
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act'To go further': gt 'road', 'autospot_drive'
 end
 
 if $ARGS[0] = 'drive_sex2':
 	$location_type = 'event_outdoors'
-	cls
+	cla & *clr
+	menu_off = 1
 	gs 'npcgeneratec', 0, 'truck driver', rand(14,22)
 	gs 'boyStat', $npclastgenerated
-	gs'stat'
+	gs 'stat'
 	autostop_price = 0
-	pcs_horny += RAND(20,30)
-	guy += 1
-	hja += 1
 	spafinloc = 7
 	gs 'cum_manage'
 	if $road_textrand0 = 'Gadukino':
@@ -198,13 +203,19 @@ if $ARGS[0] = 'drive_sex2':
 	if dick >= 20: $raod_text_sex = 'huge'
 	'You gentle massage his cock between your fingers while the man gets comfortable. It''s <<$raod_text_sex>>, roughly <<dick>> centimetres long and quite girthy. You manage to massage him to a full erection in no time at all, and begin to jerk him off while he drives, rubbing your fingertips over his glans.'
 	'Even though you feel a bit awkward for having to service this man to get where you need to be, you''re serious about what you promised him and jerk him off diligently. In no time at all, your soft touch brings him to an orgasm. Unfortunately his cock was pointing straight at you when it happened, and most of his sperm ends up on your clothes.'
+	
+	gs 'arousal', 'hj', 15, 'prostitution'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act'Continue': gt 'road', 'autospot_drive'
 end
 
 if $ARGS[0] = 'autospot_drive':
 	$location_type = 'event_outdoors'
-	cls
-	gs'stat'
+	cla & *clr
+	menu_off = 1
+	gs 'stat'
 	money -= autostop_price * 100
 	if $road_textrand0 = 'Gadukino':
 		minut += 15
@@ -238,8 +249,9 @@ end
 
 if $ARGS[0] = 'autostpo_money':
 	$location_type = 'event_outdoors'
-	cls
-	gs'stat'
+	cla & *clr
+	menu_off = 1
+	gs 'stat'
 	autostop_price = RAND(3,6)
 	textrand = RAND(1,3)
 	if textrand = 1:$road_textrand4 = 'I''ll take you there for <<autostop_price*100>> <b>₽</b>.'
@@ -350,7 +362,8 @@ if $ARGS[0] = 'autostpo_money':
 end
 
 if $ARGS[0] = 'autostop_d':
-	cls
+	cla & *clr
+	menu_off = 1
 	gs'stat'
 	truck_drive = 0
 	bandit_drive = 0

+ 14 - 0
locations/rolanapt.qsrc

@@ -9,6 +9,9 @@ if $ARGS[0] = 'home':
 	$metka = 'home'
 	$loc = 'rolanapt'
 	$location_type = 'private'
+	$menu_loc = 'rolanapt'
+	$menu_arg = 'start'
+	menu_off = 0
 	clr
 	popolaini = 0
 	saunaYouRoom = 0
@@ -48,6 +51,7 @@ if $ARGS[0] = 'hallway':
 	*clr
 	minut += 1
 	$location_type = 'private'
+	menu_off = 1
 	killvar '$locclass'
 	gs 'stat'
 	!gs 'rolanapt' , 'rolanroute'
@@ -120,6 +124,7 @@ if $ARGS[0] = 'room':
 	minut += 1
 	$location_type = 'private'
 	$locclass = 'bedr'
+	menu_off = 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Rolan''s bedroom</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bedroom.jpg"></center>'
@@ -141,6 +146,7 @@ if $ARGS[0] = 'guestroom':
 	minut += 1
 	$location_type = 'private'
 	$locclass = 'bedr'
+	menu_off = 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Guest Room</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/guestroom.jpg"></center>'
@@ -155,6 +161,7 @@ if $ARGS[0] = 'livingroom':
 	*clr
 	minut += 1
 	$locclass = 'livingr'
+	menu_off = 1
 	gs 'stat'
 	'<center><b><font color = maroon>Living Room</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/livingroom.jpg"></center>'
@@ -187,6 +194,7 @@ if $ARGS[0] = 'kitchen':
 	*clr
 	minut += 1
 	$locclass = 'kitr'
+	menu_off = 1
 	gs 'stat'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/kitchen.jpg"></center>'
@@ -473,6 +481,7 @@ if $ARGS[0] = 'grandmaroom':
 	*clr & cla
 	minut += 1
 	temp = rand(0,1)
+	menu_off = 1
 	gs 'stat'
 	'<center><b><font color = maroon>Grandma''s room</font></b></center>'
 	if rolanworker = 4 and rolanknow = 1:
@@ -557,6 +566,7 @@ end
 if $ARGS[0] = 'kuh_buh':
 	*clr & cla
 	minut += 1
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/kitch/rolanapple0.jpg"></center>'
 	'"Hello Miss <<$pcs_lastname>>! Great day, isn''t it?" he shouts cheerfully.'
@@ -574,6 +584,7 @@ end
 if $ARGS[0] = 'bend':
 	*clr & cla
 	minut += 1
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/kitch/rolanapple1.jpg"></center>'
 	'"Miss <<$pcs_lastname>>, would you be so kind as to help an old man"?'
@@ -616,6 +627,7 @@ end
 
 if $ARGS[0] = 'kuhbaz':
 	minut += 2
+	menu_off = 1
 	gs 'stat'
 	if rolan_kuhbaz_count = 0:
 		*clr & cla
@@ -657,6 +669,7 @@ if $ARGS[0] = 'drawer':
 	CLOSE ALL
 	cla
 	*clr
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/drawer/private'+rand(0,1)+'.jpg"></center>'
@@ -735,6 +748,7 @@ if $ARGS[0] = 'mypanty':
 		*clr
 		minut += 1
 		npc_rel['A133']-= 30
+		menu_off = 1
 		gs 'stat'
 		'<center><b><font color = maroon>Guilty</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/headrol.jpg"></center>'

+ 3 - 0
locations/rolanbath.qsrc

@@ -7,6 +7,9 @@ if $ARGS[0] = 'start':
 	$metkaM = 'start'
 	$locM = 'rolanbath'
 	$location_type = 'bathroom'
+	$menu_loc = 'rolanbath'
+	$menu_arg = 'start'
+	menu_off = 0
 	cla & *clr
 	gs 'stat'
 	if RolanLoc[hour] = 7: