For Tobias (Simple)

Function EndSwap()

	int ListSize = BearFormList.GetSize()
	int CurrentPelts = 0
	int PeltsLeft = 10

	while CurrentPelts < ListSize && PeltsLeft > 0
		Form CurrentItem = BearFormList.GetAt(CurrentPelts)
		int PeltCount = PlayerREF.GetItemCount(CurrentItem)
		if PeltCount >= PeltsLeft
			PeltsLeft = 0
		else
			PeltsLeft -= PeltCount
		endif

		PlayerREF.RemoveItem(CurrentItem,PeltCount)
		CurrentPelts += 1
	endwhile

endFunction