add cards VX02

c54878729.lua

+--クロニクル・ソーサレス
+function c54878729.initial_effect(c)
+	aux.AddCodeList(c,89631139,46986414)
+	--to graveyard
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(54878729,0))
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,54878729)
+	e1:SetTarget(c54878729.target)
+	e1:SetOperation(c54878729.operation)
+	c:RegisterEffect(e1)
+end
+function c54878729.filter(c,code)
+	return not c:IsCode(54878729) and (c:IsCode(code) or aux.IsCodeListed(c,code)) and c:IsAbleToGrave()
+end
+function c54878729.chkfunc(g,attr,tp,code)
+	return g:IsExists(Card.IsAttribute,1,nil,attr) and Duel.IsExistingMatchingCard(c54878729.filter,tp,LOCATION_DECK,0,1,nil,code)
+end
+function c54878729.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
+	local b1=c54878729.chkfunc(g,ATTRIBUTE_LIGHT,tp,89631139)
+	local b2=c54878729.chkfunc(g,ATTRIBUTE_DARK,tp,46986414)
+	if chk==0 then return b1 or b2 end
+	local off=1
+	local ops={}
+	local opval={}
+	if b1 then
+		ops[off]=aux.Stringid(54878729,1)
+		opval[off-1]=1
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(54878729,2)
+		opval[off-1]=2
+		off=off+1
+	end
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	e:SetLabel(opval[op])
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c54878729.operation(e,tp,eg,ep,ev,re,r,rp)
+	local opt=e:GetLabel()
+	local code=89631139
+	if opt==2 then code=46986414 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c54878729.filter,tp,LOCATION_DECK,0,1,1,nil,code)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end

c91262474.lua

+--スターダスト・ヴルム
+function c91262474.initial_effect(c)
+	--spsummon(self)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(91262474,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetCountLimit(1,91262474)
+	e1:SetCondition(c91262474.spcon)
+	e1:SetTarget(c91262474.sptg)
+	e1:SetOperation(c91262474.spop)
+	c:RegisterEffect(e1)
+	--spsummon(others)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(91262474,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,91262475)
+	e2:SetCost(c91262474.spcost)
+	e2:SetTarget(c91262474.sptg2)
+	e2:SetOperation(c91262474.spop2)
+	c:RegisterEffect(e2)
+end
+function c91262474.spfilter(c)
+	return c:IsFaceup() and c:IsLevelAbove(8) and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_SYNCHRO)
+end
+function c91262474.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c91262474.spfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c91262474.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c91262474.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+			e1:SetValue(LOCATION_REMOVED)
+			c:RegisterEffect(e1)
+		end
+		Duel.SpecialSummonComplete()
+	end
+end
+function c91262474.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetMZoneCount(tp,c)>0 and c:IsReleasable() end
+	Duel.Release(c,REASON_COST)
+end
+function c91262474.spfilter2(c,e,tp)
+	return not c:IsCode(91262474) and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsLevel(1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c91262474.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c91262474.spfilter2,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
+end
+function c91262474.spop2(e,tp,eg,ep,ev,re,r,rp)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft<=0 then return end
+	ft=math.min(ft,2)
+	if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c91262474.spfilter2),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,ft,nil,e,tp)
+	local tc=g:GetFirst()
+	while tc do
+		if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_CANNOT_TRIGGER)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+		end
+		tc=g:GetNext()
+	end
+	Duel.SpecialSummonComplete()
+end