[added] New quick access to get price and directly buy outfits for use in events that call for it

locations/clothing.qsrc

@@ -1656,7 +1656,7 @@ if $ARGS[0] = 'view_clothing_item_buy':
 	dynamic $ARGS[2] + '_b[<<ARGS[3]>>] = pcs_hips'
 	dynamic $ARGS[2] + '_s[<<ARGS[3]>>] = 0'
 	gs 'stat'
-	gt $loc, $loc_arg
+	if $ARGS[1] ! 'skip': gt $loc, $loc_arg
 end
 
 if $ARGS[0] = 'strip_all':
@@ -1920,5 +1920,30 @@ if $ARGS[0] = 'swamp_clothes':
 	end
 end
 
+!! Used to get price of an outfit uses the variable "price"
+!! $ARGS[1] set to outfit type
+!! ARGS[2] for outfit number
+!! ARGS[3] the store base price
+if ARGS[0] = 'get_price':
+	gs 'clothing_attributes', '$ARGS[1]', ARGS[3]
+	price = (3000 * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[2]]) * 3 / 2
+	price = price / 50 * 50
+end
+
+!! use to buy outfit automatically, use with gosub
+!! ARGS[1] = store price
+!! $ARGS[2] = item_type
+!! ARGS[3] = item number
+if ARGS[0] = 'quick_buy':
+	price = ('<<ARGS[1]>>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
+	price = price / 50 * 50
+	h = 0
+	if CloStyle = 2:h = 10
+	if CloStyle = 5:h = 20
+	h += (3 * CloQuality)
+	money -= price
+	gs 'clothing', 'view_clothing_item_buy', 'skip', $ARGS[2], ARGS[3], ARGS[1]
+end
+
 --- clothing ---------------------------------