fot

expansions/script/c33400113.lua

@@ -8,7 +8,7 @@ function cm.initial_effect(c)
 	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCondition(cm.thcon2)
+	e1:SetCountLimit(1,m+10000+EFFECT_COUNT_CODE_OATH)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 	--to hand   
@@ -32,11 +32,8 @@ function cm.initial_effect(c)
 	e4:SetOperation(aux.chainreg)
 	c:RegisterEffect(e4)
 end
-function cm.thcon2(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetFlagEffect(tp,m)==0
-end
 function cm.thfilter1(c)
-	return  c:IsSetCard(0x3340) and c:IsAbleToHand()
+	return c:IsSetCard(0x3340) and c:IsAbleToHand()
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
@@ -46,7 +43,6 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		local sg=g:Select(tp,1,1,nil)
 		Duel.SendtoHand(sg,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,sg)
-		Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
 	end
 end
 function cm.thcon(e,tp,eg,ep,ev,re,r,rp)