byd

expansions/script/c1090001.lua

@@ -10,26 +10,13 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_CHAINING)
 	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
 	e1:SetCondition(cm.condition)
-	e1:SetCost(cm.cost)
+	e1:SetCost(Tenka.MiuCost)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 end
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and rp==1-tp
 end
-function cm.costfilter(c)
-	return c:IsCode(1090000) and c:IsAbleToDeckAsCost()
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil)
-		or Duel.IsPlayerAffectedByEffect(tp,1090006) end
-	if Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil)
-		and not Duel.IsPlayerAffectedByEffect(tp,1090006) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-		local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-		Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_COST)
-	end
-end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)

expansions/script/c1090002.lua

@@ -12,7 +12,7 @@ function cm.initial_effect(c)
 	e1:SetHintTiming(0,TIMING_BATTLE_START)
 	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
 	e1:SetCondition(cm.condition)
-	e1:SetCost(cm.cost)
+	e1:SetCost(Tenka.MiuCost)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
@@ -20,19 +20,6 @@ end
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetCurrentPhase()==PHASE_BATTLE_START and Duel.GetTurnPlayer()==1-tp
 end
-function cm.costfilter(c)
-	return c:IsCode(1090000) and c:IsAbleToDeckAsCost()
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil)
-		or Duel.IsPlayerAffectedByEffect(tp,1090006) end
-	if Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil)
-		and not Duel.IsPlayerAffectedByEffect(tp,1090006) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-		local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-		Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_COST)
-	end
-end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and Duel.IsPlayerCanSpecialSummonMonster(tp,1000804,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_AQUA,ATTRIBUTE_WATER) end

expansions/script/c81000000.lua

@@ -278,3 +278,27 @@ end
 function Tenka.EmptyPigeon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL) or e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM)
 end
+--
+function Tenka.YunaHeath(c)
+	local ea=Effect.CreateEffect(c)
+	ea:SetType(EFFECT_TYPE_SINGLE)
+	ea:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+	ea:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	ea:SetRange(LOCATION_MZONE)
+	ea:SetValue(aux.TRUE)
+	c:RegisterEffect(ea)
+end
+--
+function Tenka.MiuCost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil)
+		or Duel.IsPlayerAffectedByEffect(tp,1090006) end
+	if Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil)
+		and not Duel.IsPlayerAffectedByEffect(tp,1090006) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_COST)
+	end
+end
+function Tenka.costfilter(c,tp)
+	return c:IsCode(1090000) and c:IsAbleToDeckAsCost()
+end