[added] Flag to coat file so wear and tear will work

locations/coats.qsrc

@@ -15,6 +15,8 @@ end
 if $ARGS[0] = 'wear':
 	$coatworntype = $ARGS[1]
 	coatwornnumber = ARGS[2]
+
+	dynamic $ARGS[1] + '_w[<<ARGS[2]>>] = 1'
 end
 
 if $ARGS[0] = 'view_coat_list':