 			BGem()	
 		if (SubStr(ParentStr, StrPos + 1, 1) = "r")
 			RGem()	
+		if (SubStr(ParentStr, StrPos + 1, 1) = "r")
+			WGem()				
 		if (SubStr(ParentStr, StrPos + 1, 1) = "g") {
 			if (LastGemPos != StrPos + 1) 
 				GGem()		

	MouseMove, CraftingField[1]-(2*FieldWidth), CraftingField[2]
	send d
}

AddtoStk() {
	global CraftingField

		else
			AddtoStk()		
	}
	if (SubStr(ParentStr, StrPos, 1) = "w") {
		WGem()
		if (SubStr(ParentStr, StrPos - 1, 1) = "(")
			MovetoStk()
		else
			AddtoStk()		
	}
	if ((SubStr(ParentStr, StrPos, 1) = "g") or (SubStr(ParentStr, StrPos, 1) = "k") or (SubStr(ParentStr, StrPos, 1) = "m")) {
		if (LastGemPos != StrPos)
			GGem()
