[fixes] Change to razor uses, cost and desciption to make it a little easier to afford and more realistic

locations/din_van.qsrc

@@ -959,7 +959,7 @@ $palelady = {
 
 if $ARGS[0] = 'private':
 	menu_off = 0
-	if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
+	if stanok > 0:'Your razor will last <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
 
 	if mosolmaz > 0: 'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
 

locations/gadbana.qsrc

@@ -181,7 +181,7 @@ if mira = 0:
 			end
 		end
 	end
-	if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>.'
+	if stanok > 0:'Your razor will last <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>.'
 	'There''s a small shaving <a href="exec:gt ''mirror'', ''start''">mirror</a> resting on the window sill, which you can use to ' +iif(pcs_hairbsh = 0,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair.'
 
 	!WD: heal chafe

locations/gadmarket.qsrc

@@ -30,7 +30,7 @@ $gadmarkettab += FUNC ('$single_stock_item', 1, 'Knitting magazine', 450, 'knitm
 if preziktype = 0: $gadmarkettab += FUNC ('$stock_item', 5, 'Condoms', 600, 'prezik', 'gadmarket')
 if preziktype = 1 or preziktype = 2: $gadmarkettab += FUNC ('$stock_item', 5, 'Condoms', 600, 'prezikcount', 'gadmarket')
 $gadmarkettab += FUNC ('$stock_item', 20, 'Tampons', 250, 'tampon', 'gadmarket')
-$gadmarkettab += FUNC ('$stock_item', 40, 'Razors', 700, 'stanok', 'gadmarket')
+$gadmarkettab += FUNC ('$stock_item', 25, 'Razors (number of shaves)', 350, 'stanok', 'gadmarket')
 $gadmarkettab += FUNC ('$stock_item', 30, 'Shampoo', 250, 'shampoo', 'gadmarket')
 $gadmarkettab += FUNC ('$single_stock_item', 1, 'Bottle of water', 100, 'bottle', 'gadmarket', '', iif(bag > 0, 0, 1), 'You need a purse')
 $gadmarkettab += FUNC ('$single_stock_item', 1, 'Sandwich', 100, 'buterbrod', 'gadmarket', '', iif(bag > 0, 0, 1), 'You need a purse')

locations/preSYS2.qsrc

@@ -174,7 +174,7 @@ if $ARGS[0] = 'modite_cos':
 	*nl
 	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
 	gs 'preSYS2', 'modrel_setup2', 'kosmetica', 'Cosmetics'
-	gs 'preSYS2', 'modrel_setup2', 'stanok', 'Razors'
+	gs 'preSYS2', 'modrel_setup2', 'stanok', 'Razors (number of shaves)'
 	gs 'preSYS2', 'modrel_setup2', 'krem', 'Sunblock'
 	gs 'preSYS2', 'modrel_setup2', 'hscrunch', 'Hair scrunchies'
 	gs 'preSYS2', 'modrel_setup2', 'hpingrip', 'Hair pins'

locations/rinok.qsrc

@@ -38,7 +38,7 @@ if $ARGS[0] = 'start' or $metka = 'start':
 	*P FUNC ('$stock_item', 10, 'Clothing detergent', 400, 'poroshok', 'rinok')
 	*P FUNC ('$stock_item', 8, 'Plates', 450, 'cltarelka', 'rinok')
 	*P FUNC ('$stock_item', 20, 'Cosmetics', 1000, 'kosmetica', 'rinok')
-	*P FUNC ('$stock_item', 30, 'Razors', 600, 'stanok', 'rinok')
+	*P FUNC ('$stock_item', 25, 'Razors (number of shaves)', 300, 'stanok', 'rinok')
 	*P FUNC ('$stock_item', 10, 'Tampons', 160, 'tampon', 'rinok')
 	*P FUNC ('$stock_item', 10, 'Sanitary napkins', 80, 'sanpad', 'rinok')
 	*P FUNC ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', 'rinok', '', iif(bag > 0, 0, 1), 'You need a purse')

locations/saunawhore.qsrc

@@ -1069,7 +1069,7 @@ if $ARGS[0] = 'bathroom':
 		'You have <<stanok>> razors left. You should go to your room and ask for more razors.'
 	elseif workDolg <= 0 and stanok > 0:
 		*nl
-		'Your current pack of razors will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
+		'Your current pack of razors will last for <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
 		dynamic $brit
 	elseif workDolg = 0 and stanok = 0:
 		*nl

locations/shop.qsrc

@@ -278,7 +278,7 @@ if $shoplocation= 'cosmetics':
 	*p func ('$stock_item', 50, 'Cosmetics', 1300, 'kosmetica', $curloc)
 	*p func ('$stock_item', 10, 'Plain false lashes', 1500, 'falselashesplain',$curloc)
 	*p func ('$stock_item', 3, 'Mink false lashes', 900, 'falselashesmink',$curloc)
-	*p func ('$stock_item', 40, 'Razors', 700, 'stanok', $curloc)
+	*p func ('$stock_item', 25, 'Razors (number of shaves)', 350, 'stanok', $curloc)
 	*p func ('$stock_item', 20, 'Sunblock', 500, 'krem', $curloc)
 	*p func ('$stock_item', 40, 'Deodorant', 200, 'deodorant', $curloc)
 	*p func ('$stock_item', 20, 'Tampons', 200, 'tampon', $curloc)

locations/stwork.qsrc

@@ -237,7 +237,7 @@ if $ARGS[0] = 'toilet':
 	'You enter a dirty and smelly staff bathroom that''s probably never been cleaned.'
 	'There is no mirror, only a grimy shower, toilet, and basin'
 	*nl
-	'Your razor will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
+	'Your razor will last <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
 
 	act 'Leave the bathroom':gt 'stwork', 'start'
 !	if kosmetica >= 3: