A few more changes related to clothes variables

locations/clothing.qsrc

@@ -391,7 +391,7 @@ if $ARGS[0] = 'view_clothing_list':
 			$ward_list_store = $ARGS[2]
 			i = 1
 			:loopmoncheri
-				if moncheri[i] = 1 and moncheriS[i] = cloc and ($clothingworntype ! 'moncheri' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'moncheri', i)
+				if moncheri[i] = 1 and moncheri_s[i] = cloc and ($clothingworntype ! 'moncheri' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'moncheri', i)
 				i += 1
 			if i <= ARRSIZE('moncheri'):jump 'loopmoncheri'
 

locations/gadforest.qsrc

@@ -573,7 +573,7 @@ if $ARGS[0] = 'torncloth':
 		if (PCloThinness = 1 or PCloSkirt > 0) and PCloQuality < 5:
 			!skirts, not fit, and not high-class enough by illume
 			'<font color="red">Your clothes get caught on some brush and tear slightly.</font>'
-			dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 1'
+			dynamic $clothingworntype + '_h[<<clothingwornnumber>>] -= 1'
 			!add remove clothes if worn out
 			if dyneval('RESULT = <<$clothingworntype>>_h[<<clothingwornnumber>>]') <= 0:
 				'<font color="red">Your clothes were barely holding together, but now they have fallen apart completely. You discard the remains and are left naked.</font>'

locations/portnoi.qsrc

@@ -101,7 +101,7 @@ selltot = 0
 
 	i = 1
 	:moncherimet
-		if moncheri[i] = 1 and moncheriS[i] = 2:dynamic($batch_sell, 'moncheri', i)
+		if moncheri[i] = 1 and moncheri_s[i] = 2:dynamic($batch_sell, 'moncheri', i)
 		i += 1
 	if i <= ARRSIZE('moncheri'):jump 'moncherimet'
 

locations/succubus.qsrc

@@ -640,7 +640,7 @@ if $args[0] = 'sucwalkinginit':
 
 	i = 1
 	:loopmoncheri
-		if moncheri[i] = 1 and moncheriS[i] = 0 and moncheri_h[i] > 0 and moncheri_b[i] >= (pcs_hips - 8) and moncheri_b[i] <= (pcs_hips + 8):
+		if moncheri[i] = 1 and moncheri_s[i] = 0 and moncheri_h[i] > 0 and moncheri_b[i] >= (pcs_hips - 8) and moncheri_b[i] <= (pcs_hips + 8):
 			$succlolistn[x] = 'moncheri' & succlolisti[x] = i & x += 1
 		end
 		i += 1