// Sewing Quoter v1.0
// Gives a price quote for sewing
// Usage: sq shirtprice pantsprice shoesprice
// Gives quote in the format: shirt/pants/shoes = total
// Macro created by Serra Lorne
// Notify serralorne@anybrowser.org if you find a mistake or want to suggest an improvement

"sq"
{
 set quotemsg ""
 set @result 0
 if @text.num_words > 0
  set person @text.word[0]
  set quotemsg person
  set quotemsg + ": "
  if @text.num_words > 1
   set shirt @text.word[1]
   set @result + shirt
   set quotemsg + shirt
   set quotemsg + "c"
   if @text.num_words > 2
    set pants @text.word[2]
    set @result + pants
	set quotemsg + "/"
	set quotemsg + pants
	set quotemsg + "c"
    if @text.num_words > 3
     set shoes @text.word[3]
     set @result + shoes
	 set quotemsg + "/"
	 set quotemsg + shoes
	 set quotemsg + "c"
    end if
   end if
   set quotemsg + " = "
   set quotemsg + @result
   set quotemsg + "c"
  else
   set quotemsg "No mendin required"
  end if
 else
  set quotemsg ""
  message "You need to specify a person"
 end if
 quotemsg "\r"
}