Update c43990067.lua

expansions/script/c43990067.lua

+--世 间 万 物 的 破 坏 神
+local m=43990067
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--act in hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	c:RegisterEffect(e0)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c43990067.target)
+	e1:SetOperation(c43990067.activate)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_DECK)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCondition(c43990067.thcon)
+	e2:SetTarget(c43990067.thtg)
+	e2:SetOperation(c43990067.thop)
+	c:RegisterEffect(e2)
+end
+function c43990067.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousPosition(POS_FACEUP)
+end
+function c43990067.thfilter(c)
+	return c:IsCode(43990066) and c:IsAbleToHand()
+end
+function c43990067.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(c43990067.thfilter,tp,LOCATION_DECK,0,1,nil) and c:IsAbleToHand() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
+end
+function c43990067.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c43990067.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 and c:IsRelateToEffect(e) and c:IsAbleToHand() then
+		Group.AddCard(g,c)
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+
+
+
+
+function c43990067.filter(c,e,tp)
+	return c:IsCode(43990066)
+end
+function c43990067.RitualCheck(g,tp,c)
+	return Duel.GetMZoneCount(tp,g,tp)>0
+end
+function c43990067.RitualUltimateFilter(c,filter,e,tp,m1,m2,chk)
+	if bit.band(c:GetType(),0x81)~=0x81 or (filter and not filter(c,e,tp,chk)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end
+	local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c)
+	if m2 then
+		mg:Merge(m2)
+	end
+	if c.mat_filter then
+		mg=mg:Filter(c.mat_filter,c,tp)
+	else
+		mg:RemoveCard(c)
+	end
+	local res=mg:CheckSubGroup(c43990067.RitualCheck,1,99,tp,c)
+	return res
+end
+function c43990067.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg1=Duel.GetRitualMaterial(tp)
+		return Duel.IsExistingMatchingCard(c43990067.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,c43990067.filter,e,tp,mg1,nil)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function c43990067.adfilter(c,f)
+	return math.max(f(c),0)
+end
+function c43990067.activate(e,tp,eg,ep,ev,re,r,rp)
+	::cancel::
+	local mg1=Duel.GetRitualMaterial(tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tg=Duel.SelectMatchingCard(tp,c43990067.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,c43990067.filter,e,tp,mg1,nil)
+	local tc=tg:GetFirst()
+	if tc then
+		local mg=mg1:Filter(Card.IsCanBeRitualMaterial,tc,tc)
+		if tc.mat_filter then
+			mg=mg:Filter(tc.mat_filter,tc,tp)
+		else
+			mg:RemoveCard(tc)
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+		local mat=mg:SelectSubGroup(tp,c43990067.RitualCheck,true,1,99,tp,tc)
+		if not mat then goto cancel end
+		tc:SetMaterial(mat)
+		Duel.ReleaseRitualMaterial(mat)
+		Duel.BreakEffect()
+				local e1=Effect.CreateEffect(e:GetHandler())
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetCode(EFFECT_SET_BASE_ATTACK)
+				e1:SetValue(mat:GetSum(c43990067.adfilter,Card.GetTextAttack))
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
+				tc:RegisterEffect(e1)
+				local e2=Effect.CreateEffect(e:GetHandler())
+				e2:SetType(EFFECT_TYPE_SINGLE)
+				e2:SetCode(EFFECT_SET_BASE_DEFENSE)
+				e2:SetValue(mat:GetSum(c43990067.adfilter,Card.GetTextDefense))
+				e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
+				tc:RegisterEffect(e2)
+				local e3=Effect.CreateEffect(e:GetHandler())
+				e3:SetType(EFFECT_TYPE_SINGLE)
+				e3:SetCode(EFFECT_UPDATE_LEVEL)
+				e3:SetValue(mat:GetSum(c43990067.adfilter,Card.GetLevel))
+				e3:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
+				tc:RegisterEffect(e3)
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		tc:CompleteProcedure()
+	end
+end