My edits to lipbalm and clothing repair

locations/clothing.qsrc

@@ -511,11 +511,11 @@ if $ARGS[0] = 'view_clothing_item':
 					cla
 					'You can repair this thanks to your sewing skill.'
 					act 'Repair item':
-						if rand (1, 100) < 30:
+						if rand (1, 100) >= 30:
 							cla
 							tkan -= 1
 							minut += 30
-							dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
+							dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += rand(30,pcs_sewng)'
 							'You spend 30 minutes fixing the outfit.'
 							act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
 						else

locations/mirror.qsrc

@@ -494,7 +494,7 @@ if $ARGS[0] = 'applyLipbalm':
 	if lipbalm > 0 and pcs_lipbalm <= 0:
 		minut += 1
 		lipbalm -= 1
-		lipkoef += rand(0, 1)
+		lipkoef += rand(1,2)
 		if lipkoef > 50:
 			lipkoef = 0
 			pcs_lip += 1

locations/succubus.qsrc

@@ -647,7 +647,7 @@ if $args[0] = 'sucwalkinginit':
 			if pcs_hairbsh = 0: pcs_hairbsh = 1
 			if lipbalm > 0 and pcs_lipbalm <= 0:
 				lipbalm -= 1
-				lipkoef += rand(0, 1)
+				lipkoef += rand(1,2)
 				if lipkoef > 50:
 					lipkoef = 0
 					pcs_lip += 1