1+1=3

expansions/script/c12812006.lua

@@ -15,12 +15,10 @@ function c12812006.initial_effect(c)
 	--special summon
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_CHAINING)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_PZONE)
 	e2:SetCountLimit(1,12812106)
-	e2:SetCondition(cm.discon)
 	e2:SetTarget(cm.distg)
 	e2:SetOperation(cm.disop)
 	c:RegisterEffect(e2)
@@ -44,18 +42,24 @@ function cm.psplimit(e,c,tp,sumtp,sumpos)
 	return not c:IsSetCard(0xa73) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
 end
 --效果1
-function cm.discon(e,tp,eg,ep,ev,re,r,rp)
-	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp==1-tp and re:IsActiveType(TYPE_MONSTER) 
-	and Duel.IsChainDisablable(ev) and Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.GetTurnPlayer()==tp
-end
 function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDestructable() end
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+	if chk==0 then return e:GetHandler():IsDestructable()
+		and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
+	e:SetLabel(Duel.AnnounceType(tp))
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
 end
 function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	   if Duel.Destroy(e:GetHandler(),REASON_EFFECT)~=0 then
-		Duel.NegateEffect(ev)
+	if Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)==0 then return end
+	Duel.ConfirmDecktop(tp,1)
+	local g=Duel.GetDecktopGroup(tp,1)
+	local tc=g:GetFirst()
+	local opt=e:GetLabel()
+	if Duel.Destroy(e:GetHandler(),REASON_EFFECT)~=0 and (opt==0 and tc:IsType(TYPE_MONSTER)) 	or (opt==1 and tc:IsType(TYPE_SPELL)) or (opt==2 and tc:IsType(TYPE_TRAP)) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	else
+		Duel.MoveSequence(tc,SEQ_DECKBOTTOM)
 	end
 end
 --效果2

expansions/script/c16114233.lua

@@ -4,7 +4,7 @@ local m,cm=rk.set(16114233)
 function cm.initial_effect(c)
 	aux.AddCodeList(c,16114235)
 	--Synchro summon
-	aux.AddSynchroProcedure(c,aux.Tuner(cm.checksyn),aux.NonTuner(aux.FilterBoolFunction(Card.IsRace,RACE_FAIRY)),1)
+	aux.AddSynchroProcedure(c,cm.checksyn,aux.NonTuner(aux.FilterBoolFunction(Card.IsRace,RACE_FAIRY)),1)
 	c:EnableReviveLimit()
 	--Set
 	local e1=Effect.CreateEffect(c)

expansions/script/c16114263.lua

@@ -44,14 +44,14 @@ function cm.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
 end
 function cm.tgfilter(c)
-	return c:IsSetCard(0xccf) and c:IsAbleToGrave()
+	return c:IsSetCard(0xccf) and c:IsAbleToGrave() and c:IsType(TYPE_MONSTER)
 end
 function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
 end
 function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local tg=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,2,nil)
 	Duel.SendtoGrave(tg,REASON_EFFECT)
 end

expansions/script/c16114265.lua

@@ -13,7 +13,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function cm.tgcheck(c,tp)
-	return c:IsAbleToGraveAsCost() and Duel.IsExistingMatchingCard(cm.tfcheck,tp,LOCATION_DECK,0,1,c,tp)
+	return c:IsAbleToGraveAsCost() and c:IsSetCard(0xccf) and Duel.IsExistingMatchingCard(cm.tfcheck,tp,LOCATION_DECK,0,1,c,tp)
 end
 function cm.tfcheck(c,tp)
 	return c:IsRace(RACE_DRAGON) and c:CheckUniqueOnField(tp) and not c:IsForbidden()

expansions/script/c16120004.lua

@@ -50,6 +50,7 @@ function cm.initial_effect(c)
 	e6:SetRange(LOCATION_MZONE)
 	e6:SetCountLimit(1,m)
 	e6:SetCondition(cm.thcon)
+	e6:SetCost(cm.cost)
 	e6:SetTarget(cm.thtg)
 	e6:SetOperation(cm.thop)
 	c:RegisterEffect(e6)