[fixed] Coat quality and warmth wasn't being set and removed old "cloakroom" file

locations/coats.qsrc

@@ -10,11 +10,16 @@ menu_off = 1
 if $ARGS[0] = 'remove':
 	$coatworntype = 'none'
 	coatwornnumber = 0
+	killvar 'PCoatWarm'
+	killvar 'PCoatQuality'
 end
 
 if $ARGS[0] = 'wear':
 	$coatworntype = $ARGS[1]
 	coatwornnumber = ARGS[2]
+	FUNC('$coat_attributes', $ARGS[1], ARGS[2])
+	PCoatWarm = CoatWarm
+	PCoatQuality = CoatQuality
 
 	dynamic $ARGS[1] + '_w[<<ARGS[2]>>] = 1'
 end