[changed] gave the sexshop toys a proper menu to reduce actions and shorten code required

locations/sexshop.qsrc

@@ -23,14 +23,16 @@ if $ARGS[0] = 'start':
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
 	'The main counter displays various sex toys:'
 	'Lubricant - 145 <b>₽</b>'
-	'Dildo - starting at 800 <b>₽</b>'
 	'Vibrator - 800 <b>₽</b>'
-	'Strap-on harness - starting at 1,200 <b>₽</b>'
-	'Butt plug - 1,200 <b>₽</b>'
+	'Butt plug - 800 <b>₽</b>'
+	'Strap-on harness - 500 <b>₽</b>'
+	'Dildo - starting at 800 <b>₽</b>'
 	*nl
 	'Private booths are available in the basement for viewing porn. (50 <b>₽</b> for 15 minutes)'
 
 	act 'Leave': minut += 5 & gt 'city_redlight', 'start'
+	act 'Check the main counter': gt 'sexshop', 'sexshop_menu'
+	
 
 	if analplug = 1 and dildo = 1 and hotcat >= 5 and Peter = 0:
 		if rand(0,1) = 1:
@@ -142,498 +144,44 @@ if $ARGS[0] = 'start':
 	act 'Look through the panties':	minut += 1 & gt 'sexshop', 'panties'
 	act 'Look through the bras': minut += 1 & gt 'sexshop', 'bras'
 	act 'Look through the fetish shoes': minut += 1 & gt 'sexshop', 'shoes'
-	
-	if money < 145 and karta + bankDebtLimit < 145:
-		'You can''t afford lubricant.'
-	else
-		if money >= 145:
-			act 'Buy lubricant 145 <b>₽</b> (cash)':
-				*clr & cla
-				menu_off = 1
-				lubri += 20
-				money -= 145
-				minut += 5
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy some lubricant and pay the cashier.'
-				gs 'stat'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-		if karta + bankDebtLimit >= 145:
-			act 'Buy lubricant 145 <b>₽</b> (card)':
-				*clr & cla
-				menu_off = 1
-				lubri += 20
-				karta -= 145
-				minut += 5
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy some lubricant and pay the cashier.'
-				gs 'stat'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-	end
-	
-	if pornMagazine <= 1 and (money < 400 and karta + bankDebtLimit < 400):
-		'You can''t afford the porn magazine.'
-	else
-		if pornMagazine <= 1 and money >= 400:
-			act 'Buy a porn magazine 400 <b>₽</b> (cash)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				money -= 400
-				pornMagazine = 50
-				gs 'stat'
-				'You buy a porn magazine and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-		if pornMagazine <= 1 and karta + bankDebtLimit >= 400:
-			act 'Buy a porn magazine 400 <b>₽</b> (card)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				karta -= 400
-				pornMagazine = 50
-				gs 'stat'
-				'You buy a porn magazine and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-	end
-
-	if dildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
-		'You can''t afford the 10cm dildo.'
-	else
-		if money >= 800 and dildo = 0:
-			act 'Buy 10cm dildo 800 <b>₽</b> (cash)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				dildo = 1
-				money -= 800
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-		if karta + bankDebtLimit >= 800 and dildo = 0:
-			act 'Buy 10cm dildo 800 <b>₽</b> (card)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				dildo = 1
-				karta -= 800
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-	end
-
-	if middildo = 0 and (money < 850 and karta + bankDebtLimit < 850):
-		'You can''t afford the 15cm dildo.'
-	else
-		if money >= 850 and middildo = 0:
-			act 'Buy 15cm long dildo 850 <b>₽</b> (cash)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				middildo = 1
-				money -= 850
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 15cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-		if karta + bankDebtLimit >= 850 and middildo = 0:
-			act 'Buy 15cm long dildo 850 <b>₽</b> (card)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				middildo = 1
-				karta -= 850
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 15cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-	end
-
-	if largedildo = 0 and (money < 900 and karta + bankDebtLimit < 900):
-		'You can''t afford the 20cm dildo.'
-	else
-		if money >= 900 and largedildo = 0:
-			act 'Buy 20cm long dildo 900 <b>₽</b> (cash)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				largedildo = 1
-				money -= 900
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 20cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-		if karta + bankDebtLimit >= 900 and largedildo = 0:
-			act 'Buy 20cm long dildo 900 <b>₽</b> (card)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				largedildo = 1
-				karta -= 900
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 20cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-	end
-	
-	if suction_dildo = 0 and money >= 1000:
-		act 'Buy a 15cm suction dildo 1000 <b>₽</b> (cash)':
-			cla
-			minut += 5
-			suction_dildo += 1
-			money -= 1000
-			pcs_horny += 10
-			'<center><img <<$set_imgh>> src="images/pc/items/sextoys/15cm.jpg"></center>'
-			if  pcs_inhib < 35:
-				'You buy the dildo and hastily hide it as your face blushes with embarrassment.'
-			else
-				'You buy the dildo and calmly hide it.'
-			end
-			act 'Move away from the counter':gt'sexshop','start'
-		end
-	elseif suction_dildo > 0 and money >= 1000:
-		act 'Buy another 15cm suction dildo 1000 <b>₽</b> (cash)':
-			cla
-			minut += 5
-			suction_dildo += 1
-			money -= 1000
-			pcs_horny += 10
-			'<center><img <<$set_imgh>> src="images/pc/items/sextoys/15cm.jpg"></center>'
-			if  pcs_inhib < 35:
-				'You buy the dildo and hastily hide it as your face blushes with embarrassment.'
-			else
-				'You buy the dildo and calmly hide it.'
-			end
-			act 'Move away from the counter':gt'sexshop','start'
-		end
-	end
-
-	if suction_dildo > 0 and (karta + bankDebtLimit >= 950):
-		act 'Buy another 15cm suction dildo 1000 <b>₽</b> (card)':
-			cla
-			minut += 5
-			suction_dildo += 1
-			karta -= 1000
-			pcs_horny += 10
-			'<center><img <<$set_imgh>> src="images/pc/items/sextoys/15cm.jpg"></center>'
-			if  pcs_inhib < 35:
-				'You buy the dildo and hastily hide it as your face blushes with embarrassment.'
-			else
-				'You buy the dildo and calmly hide it.'
-			end
-			act 'Move away from the counter':gt'sexshop','start'
-		end
-	elseif (karta + bankDebtLimit >= 950):
-		act 'Buy 15cm suction dildo 1000 <b>₽</b> (card)':
-			cla
-			minut += 5
-			suction_dildo += 1
-			karta -= 1000
-			pcs_horny += 10
-			'<center><img <<$set_imgh>> src="images/pc/items/sextoys/15cm.jpg"></center>'
-			if  pcs_inhib < 35:
-				'You buy the dildo and hastily hide it as your face blushes with embarrassment.'
-			else
-				'You buy the dildo and calmly hide it.'
-			end
-			act 'Move away from the counter':gt 'sexshop','start'
-		end	
-	end
-
-	if bigdildo = 0 and (money < 950 and karta + bankDebtLimit < 950):
-		'You can''t afford the 25cm dildo.'
-	else
-		if money >= 950 and bigdildo = 0:
-			act 'Buy 25cm long dildo 950 <b>₽</b> (cash)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				bigdildo = 1
-				money -= 950
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 25cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-		if karta + bankDebtLimit >= 950 and bigdildo = 0:
-			act 'Buy 25cm long dildo 950 <b>₽</b> (card)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				bigdildo = 1
-				karta -= 950
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 25cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-	end
-
-	if extradildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
-		'You can''t afford the 30cm dildo.'
-	else
-		if money >= 1000 and extradildo = 0:
-			act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				extradildo = 1
-				money -= 1000
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 30cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-		if karta + bankDebtLimit >= 1000 and extradildo = 0:
-			act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				extradildo = 1
-				karta -= 1000
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 30cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-	end
-
-	if superdildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
-		'You can''t afford the 35cm dildo.'
-	else
-		if money >= 1100 and superdildo = 0:
-			act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				superdildo = 1
-				money -= 1100
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 35cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-		if karta + bankDebtLimit >= 1100 and superdildo = 0:
-			act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				superdildo = 1
-				karta -= 1100
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 35cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-	end
-
-	if maddildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
-		'You can''t afford the 40cm dildo.'
-	else
-		if money >= 1200 and maddildo = 0:
-			act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				maddildo = 1
-				money -= 1200
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 40cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-		if karta + bankDebtLimit >= 1200 and maddildo = 0:
-			act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				maddildo = 1
-				karta -= 1200
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a 40cm long dildo and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop','start'
-			end
-		end
-	end
 
-	if vibrator = 0 and (money < 800 and karta + bankDebtLimit < 800):
-		'You can''t afford the vibrator.'
-	else
-		if money >= 800 and vibrator = 0:
-			act 'Buy vibrator (800 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				vibrator = 1
-				money -= 800
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a vibrator and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-		if karta + bankDebtLimit >= 800 and vibrator = 0:
-			act 'Buy vibrator (800 <b>₽</b>)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				vibrator = 1
-				karta -= 800
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a vibrator and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-	end
-
-	if strapon = 0:
-		if (money > 1200 and karta + bankDebtLimit > 1200) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo = 0):
-			'You can''t afford the strap-on.'
-			if money >= 1200:
-				act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (cash)':
-					*clr & cla
-					menu_off = 1
-					minut += 5
-					strapon = 1
-					middildo = 1
-					strapnumber = 2
-					money -= 1200
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-					'You buy a strap-on and pay the cashier.'
-
-					act 'Move away from the counter':gt 'sexshop', 'start'
-				end
-			end
-			if karta + bankDebtLimit >= 1200:
-				act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (card)':
-					*clr & cla
-					menu_off = 1
-					minut += 5
-					strapon = 1
-					middildo = 1
-					strapnumber = 2
-					karta -= 1200
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-					'You buy a strap-on and pay the cashier.'
-
-					act 'Move away from the counter':gt 'sexshop', 'start'
-				end
-			end
-		elseif (money > 500 or karta + bankDebtLimit > 500) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0):
-			if money >= 500:
-				act 'Buy a strap-on harness 500 <b>₽</b> (cash)':
-					*clr & cla
-					menu_off = 1
-					minut += 5
-					strapon = 1
-					money -= 500
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-					'You buy a strap-on and pay the cashier. You have to attach one of your dildos to it.'
+end
 
-					act 'Move away from the counter':gt 'sexshop', 'start'
-				end
-			end
-			if karta + bankDebtLimit >= 500:
-				act 'Buy a strap-on harness 500 <b>₽</b> (card)':
-					*clr & cla
-					menu_off = 1
-					minut += 5
-					strapon = 1
-					karta -= 500
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-					'You buy a strap-on and pay the cashier. You have to attach one of your dildos to it.'
+if $ARGS[0] = 'sexshop_menu' or $ARGS[0] = '':
+	$loc_arg = 'sexshop_menu'
+	$loc = 'sexshop'
+	$menu_loc = 'sexshop'
+	$menu_arg = 'sexshop_menu'
+	menu_off = 0
+	*clr & cla
+	gs 'stat'
 
-					act 'Move away from the counter':gt 'sexshop', 'start'
-				end
-			end
-		end
-	end
+	'<center><b><font color="maroon">Main Counter</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
 
-	if analplug = 0 and (money < 800 and karta + bankDebtLimit < 800):
-		'You can''t afford the butt plug.'
+	if $message ! '':
+		'<center>'+$message+'</center>'
+		killvar '$message'
 	else
-		if money >= 800 and analplug = 0:
-			act 'Buy butt plug 800 <b>₽</b> (cash)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				analplug = 1
-				money -= 800
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a butt plug and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-		if karta + bankDebtLimit >= 800 and analplug = 0:
-			act 'Buy butt plug 800 <b>₽</b> (card)':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				analplug = 1
-				karta -= 800
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
-				'You buy a butt plug and pay the cashier.'
-
-				act 'Move away from the counter':gt 'sexshop', 'start'
-			end
-		end
-	end
+		''
+	end	
+	*pl '<center><table align="center" width=80%>'
+	*P func ('$stock_item', 20, 'Lubricant', 145, 'lubri', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 50, 'Porn magazine', 400, 'pornMagazine', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, 'Vibrator', 800, 'vibrator', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, 'Butt plug', 800, 'analplug', 'sexshop', 'sexshop_menu')
+	*p func ('$stock_item', 1, '15cm suction dildo', 1000, 'suction_dildo', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, 'Strap-on harness', 500, 'strapon', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, '10cm dildo', 800, 'dildo', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, '15cm dildo', 850, 'middildo', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, '20cm dildo', 900, 'largedildo', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, '25cm dildo', 950, 'bigdildo', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, '30cm dildo', 1000, 'extradildo', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, '35cm dildo', 1100, 'superdildo', 'sexshop', 'sexshop_menu')
+	*p func ('$single_stock_item', 1, '40cm dildo', 1200, 'maddildo', 'sexshop', 'sexshop_menu')
+	*p '</table></center>'
+
+	act 'Step away from the main counter': gt 'sexshop', 'start'
 end
 
 if $ARGS[0] = 'dress':