new

c43490025.lua

+--FNo.0 未来皇ホープ－フューチャー・スラッシュ
+function c43490025.initial_effect(c)
+	--xyz summon
+	c:EnableReviveLimit()
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetCondition(c43490025.xyzcon)
+	e1:SetOperation(c43490025.xyzop)
+	e1:SetValue(SUMMON_TYPE_XYZ)
+	c:RegisterEffect(e1)
+	--atkup
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(c43490025.atkval)
+	c:RegisterEffect(e2)
+	--indes
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+	--multi attack
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(43490025,0))
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1)
+	e4:SetCondition(c43490025.atkcon)
+	e4:SetCost(c43490025.atkcost)
+	e4:SetTarget(c43490025.atktg)
+	e4:SetOperation(c43490025.atkop)
+	c:RegisterEffect(e4)
+end
+c43490025.xyz_number=0
+function c43490025.ovfilter(c,xyzc)
+	return c:IsFaceup() and (c:IsSetCard(0x107f) or c:IsCode(65305468)) and c:IsCanBeXyzMaterial(xyzc)
+end
+function c43490025.mfilter(c,xyzc)
+	return c:IsFaceup() and c:IsType(TYPE_XYZ) and not c:IsSetCard(0x48) and c:IsCanBeXyzMaterial(xyzc)
+end
+function c43490025.xyzfilter1(c,g)
+	return g:IsExists(c43490025.xyzfilter2,1,c,c:GetRank())
+end
+function c43490025.xyzfilter2(c,rk)
+	return c:GetRank()==rk
+end
+function c43490025.xyzcon(e,c,og,min,max)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	local ct=-ft
+	if 2<=ct then return false end
+	if min and (min>2 or max<2) then return false end
+	local mg=nil
+	local altmg = nil
+	if og then
+		mg=og:Filter(c43490025.mfilter,nil,c)
+		altmg = og
+	else
+		mg=Duel.GetMatchingGroup(c43490025.mfilter,tp,LOCATION_MZONE,0,nil,c)
+		altmg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
+	end
+	if ct<1 and (not min or min<=1) and altmg:IsExists(c43490025.ovfilter,1,nil,c) then
+		return true
+	end
+	return mg:IsExists(c43490025.xyzfilter1,1,nil,mg)
+end
+function c43490025.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
+	local g=nil
+	local sg=Group.CreateGroup()
+	if og and not min then
+		g=og
+		local tc=og:GetFirst()
+		while tc do
+			sg:Merge(tc:GetOverlayGroup())
+			tc=og:GetNext()
+		end
+		Duel.SendtoGrave(sg,REASON_RULE)
+		c:SetMaterial(g)
+		Duel.Overlay(c,g)
+	else
+		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+		local ct=-ft
+		local mg=nil
+		local altmg=nil
+		if og then
+			mg=og:Filter(c43490025.mfilter,nil,c)
+			altmg=og
+		else
+			mg=Duel.GetMatchingGroup(c43490025.mfilter,tp,LOCATION_MZONE,0,nil,c)
+			altmg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
+		end
+		local b1=mg:IsExists(c43490025.xyzfilter1,1,nil,mg)
+		local b2=ct<1 and (not min or min<=1) and altmg:IsExists(c43490025.ovfilter,1,nil,c)
+		local g=nil
+		if b2 and (not b1 or Duel.SelectYesNo(tp,aux.Stringid(43490025,1))) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+			g=altmg:FilterSelect(tp,c43490025.ovfilter,1,1,nil,c)
+			local g2=g:GetFirst():GetOverlayGroup()
+			if g2:GetCount()~=0 then
+				Duel.Overlay(c,g2)
+			end
+			c:SetMaterial(g)
+			Duel.Overlay(c,g)
+		else
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+			g=mg:FilterSelect(tp,c43490025.xyzfilter1,1,1,nil,mg)
+			local tc1=g:GetFirst()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+			local g2=mg:FilterSelect(tp,c43490025.xyzfilter2,1,1,tc1,tc1:GetRank())
+			local tc2=g2:GetFirst()
+			g:Merge(g2)
+			sg:Merge(tc1:GetOverlayGroup())
+			sg:Merge(tc2:GetOverlayGroup())
+			Duel.SendtoGrave(sg,REASON_RULE)
+			Duel.Overlay(c,g)
+		end
+	end
+end
+function c43490025.atkfilter(c)
+	return c:IsType(TYPE_XYZ) and c:IsSetCard(0x48)
+end
+function c43490025.atkval(e,c)
+	return Duel.GetMatchingGroupCount(c43490025.atkfilter,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)*500
+end
+function c43490025.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsAbleToEnterBP()
+end
+function c43490025.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c43490025.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end
+end
+function c43490025.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_EXTRA_ATTACK)
+		e1:SetValue(1)
+		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+	end
+end

c79985120.lua

+--RR－レヴォリューション・ファルコン－エアレイド
+function c79985120.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),6,3,c79985120.ovfilter,aux.Stringid(79985120,0),2,c79985120.xyzop)
+	c:EnableReviveLimit()
+	--atkup
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(79985120,1))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(c79985120.descon)
+	e1:SetTarget(c79985120.destg)
+	e1:SetOperation(c79985120.desop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(79985120,2))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCondition(c79985120.spcon)
+	e2:SetTarget(c79985120.sptg)
+	e2:SetOperation(c79985120.spop)
+	c:RegisterEffect(e2)
+end
+function c79985120.cfilter(c)
+	return c:IsSetCard(0x95) and c:IsType(TYPE_SPELL) and c:IsDiscardable()
+end
+function c79985120.ovfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xba) and c:IsType(TYPE_XYZ) and c:IsRankBelow(5)
+end
+function c79985120.xyzop(e,tp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c79985120.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,c79985120.cfilter,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function c79985120.descon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ
+end
+function c79985120.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetAttack()/2)
+end
+function c79985120.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local dam=tc:GetAttack()
+		if dam<0 or tc:IsFacedown() then dam=0 end
+		if Duel.Destroy(tc,REASON_EFFECT)~=0 then
+			Duel.Damage(1-tp,dam,REASON_EFFECT)
+		end
+	end
+end
+function c79985120.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:GetPreviousControler()==tp and rp==1-tp and c:IsReason(REASON_DESTROY)
+end
+function c79985120.spfilter(c,e,tp)
+	return c:IsCode(81927732) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c79985120.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c79985120.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c79985120.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c79985120.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 and c:IsRelateToEffect(e) then
+		Duel.Overlay(g:GetFirst(),Group.FromCards(c))
+	end
+end