Name:Shrouded Lore
ManaCost:B
Types:Sorcery
A:SP$ ChooseCard | Cost$ B | ValidTgts$ Opponent | ChoiceZone$ Graveyard | Choices$ Card.YouOwn | AILogic$ WorstCard | Mandatory$ True | RememberChosen$ True | SubAbility$ DBRepeat | SpellDescription$ Target opponent chooses a card in your graveyard. You may pay {B}. If you do, repeat this process except that opponent can't choose a card already chosen for CARDNAME. Then put the last chosen card into your hand.
SVar:DBRepeat:DB$ Repeat | RepeatSubAbility$ DBChooseAgain | ConditionCheckSVar$ ChoiceNum | ConditionSVarCompare$ GE1 | References$ ChoiceNum,CheckNotPaid,CheckRepeat | SubAbility$ DBMoveChosen | RepeatCheckSVar$ CheckRepeat | RepeatSVarCompare$ GT0 | StackDescription$ You may pay B. If you do, repeat this process except that opponent can't choose a card already chosen for CARDNAME.
SVar:DBChooseAgain:DB$ ChooseCard | Defined$ ParentTarget | ChoiceZone$ Graveyard | Choices$ Card.YouOwn+IsNotRemembered | Mandatory$ True | AILogic$ WorstCard | RememberChosen$ True | UnlessCost$ B | UnlessPayer$ You | UnlessSwitched$ True | UnlessResolveSubs$ WhenNotPaid | SubAbility$ DBStoreSVar | ShowCurrentCard$ ChosenCard
SVar:DBStoreSVar:DB$ StoreSVar | SVar$ CheckNotPaid | Type$ Number | Expression$ 0 | References$ CheckNotPaid
SVar:DBMoveChosen:DB$ ChangeZone | Defined$ ChosenCard | Origin$ Graveyard | Destination$ Hand | SubAbility$ DBReset
SVar:DBReset:DB$ StoreSVar | SVar$ CheckNotPaid | Type$ Number | Expression$ 1 | References$ CheckNotPaid
SVar:ChoiceNum:Count$ValidGraveyard Card.YouOwn+IsNotRemembered
SVar:CheckNotPaid:Number$1
SVar:CheckRepeat:SVar$ChoiceNum/Times.CheckNotPaid
SVar:RemAIDeck:True
SVar:Picture:http://www.wizards.com/global/images/magic/general/shrouded_lore.jpg
Oracle:Target opponent chooses a card in your graveyard. You may pay {B}. If you do, repeat this process except that opponent can't choose a card already chosen for Shrouded Lore. Then put the last chosen card into your hand.