260111 wd

expansions/lflist.conf

@@ -2253,6 +2253,14 @@
 260013028 0
 260013029 0
 260013035 0
+11513049 0
+11513050 0
+11513052 0
+11513053 0
+11513057 0
+11513058 0
+7476866 0
+7476877 0
 #Semi-Wild 1003
 31409200 0
 31409201 0
@@ -2904,6 +2912,19 @@
 60012018 0
 60012019 0
 60012020 0
+#「尸气魔」系列 - 煌武院悠阳
+91300050 0
+91300051 0
+91300053 0
+91300054 0
+91300055 0
+91300056 0
+91300057 0
+91300058 0
+91300059 0
+91300060 0
+91300061 0
+91300062 0
 #Tears are now in Japari Park Again!
 572850 1
 4928565 0
@@ -2920,6 +2941,10 @@
 60362066 0
 74920585 0
 77103950 1
+#260111
+53797028 0
+88897061 0
+12882030 1
 #251228
 13020100 0 --精灵胶囊
 13020070 1 --诅咒玩偶
@@ -7227,7 +7252,6 @@
 10200000 1
 10200006 1
 11451926 1
-66690130 1
 189116 1
 82228636 1
 11451951 1

expansions/script/c11513049.lua

+--闪刀姬 洛菈米亚
+function c11513049.initial_effect(c)
+	c:SetSPSummonOnce(11513049)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2,99,c11513049.lcheck)
+	c:EnableReviveLimit() 
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.linklimit)
+	c:RegisterEffect(e1)
+	--spsummon proc
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetCountLimit(1,11513049+EFFECT_COUNT_CODE_OATH)
+	e0:SetCondition(c11513049.hspcon)
+	e0:SetOperation(c11513049.hspop) 
+	e0:SetValue(SUMMON_TYPE_LINK) 
+	c:RegisterEffect(e0) 
+	--equip 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_EQUIP) 
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS) 
+	e1:SetProperty(EFFECT_FLAG_DELAY) 
+	e1:SetCondition(function(e) 
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK) end)
+	e1:SetTarget(c11513049.eqtg) 
+	e1:SetOperation(c11513049.eqop) 
+	c:RegisterEffect(e1) 
+	--remove 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetDescription(aux.Stringid(11513049,1))
+	e2:SetCategory(CATEGORY_REMOVE) 
+	e2:SetType(EFFECT_TYPE_IGNITION) 
+	e2:SetRange(LOCATION_MZONE) 
+	e2:SetCost(c11513049.rmcost1) 
+	e2:SetTarget(c11513049.rmtg) 
+	e2:SetOperation(c11513049.rmop) 
+	c:RegisterEffect(e2)  
+	local e3=e2:Clone() 
+	e3:SetDescription(aux.Stringid(11513049,2)) 
+	e3:SetCondition(c11513049.xrmcon) 
+	e3:SetCost(c11513049.rmcost2) 
+	c:RegisterEffect(e3) 
+end
+function c11513049.lcheck(g)
+	return g:IsExists(Card.IsLinkSetCard,1,nil,0x1115) 
+end
+function c11513049.rlfil(c) 
+	return c:IsAttackAbove(1500) and c:IsReleasable() and c:IsSetCard(0x1115)   
+end 
+function c11513049.rlgck(g,tp) 
+	return Duel.GetMZoneCount(tp,g)>0  
+end 
+function c11513049.hspcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler() 
+	local g=Duel.GetMatchingGroup(c11513049.rlfil,tp,LOCATION_MZONE,0,nil)
+	return g:CheckSubGroup(c11513049.rlgck,2,2,tp)  
+end
+function c11513049.hspop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.GetMatchingGroup(c11513049.rlfil,tp,LOCATION_MZONE,0,nil) 
+	local sg=g:SelectSubGroup(tp,c11513049.rlgck,false,2,2,tp)
+	Duel.Release(sg,REASON_COST)
+end
+function c11513049.eqfil(c) 
+	return c:IsType(TYPE_LINK) and c:IsSetCard(0x1115) and not c:IsForbidden()  
+end 
+function c11513049.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11513049.eqfil,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end  
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_GRAVE)
+end 
+function c11513049.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c11513049.eqfil,tp,LOCATION_GRAVE,0,nil)
+	if c:IsRelateToEffect(e) and g:GetCount()>0 then 
+		local tc=g:Select(tp,1,1,nil):GetFirst() 
+		if not Duel.Equip(tp,tc,c) then return end 
+		local e1=Effect.CreateEffect(c)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(function(e,c)
+		return e:GetOwner()==c end)
+		tc:RegisterEffect(e1)
+		local lk=tc:GetLink()
+		if lk>0 then
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_EQUIP)
+			e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_IGNORE_IMMUNE)
+			e2:SetCode(EFFECT_UPDATE_ATTACK)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e2:SetValue(lk*1500) 
+			tc:RegisterEffect(e2) 
+			tc:RegisterFlagEffect(13430900,RESET_EVENT+RESETS_STANDARD,0,1,lk)
+		end
+	end 
+end 
+function c11513049.xrmcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_SPELL)>=3	
+end 
+function c11513049.rctfil1(c) 
+	return c:IsAbleToGraveAsCost() and c:IsSetCard(0x1115)  
+end 
+function c11513049.rmcost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11513049.rctfil1,tp,LOCATION_ONFIELD,0,1,nil) end 
+	local g=Duel.SelectMatchingCard(tp,c11513049.rctfil1,tp,LOCATION_ONFIELD,0,1,1,nil) 
+	Duel.SendtoGrave(g,REASON_COST) 
+end   
+function c11513049.rctfil2(c) 
+	return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x115) and c:IsType(TYPE_SPELL)   
+end 
+function c11513049.rmcost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11513049.rctfil2,tp,LOCATION_GRAVE,0,1,nil) end  
+	local tc=Duel.SelectMatchingCard(tp,c11513049.rctfil2,tp,LOCATION_GRAVE,0,1,1,nil):GetFirst() 
+	Duel.Remove(tc,POS_FACEUP,REASON_COST) 
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_REMOVE)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c11513049.rmlimit) 
+	e1:SetLabelObject(e) 
+	e1:SetLabel(tc:GetCode())
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c11513049.rmlimit(e,c,tp,r,re)
+	return c:IsCode(e:GetLabel()) and re and re==e and r==REASON_COST 
+end 
+function c11513049.eqckfil(c) 
+	return c:GetFlagEffectLabel(13430900)~=nil   
+end 
+function c11513049.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	local c=e:GetHandler()  
+	local fck=0 
+	local eqg=c:GetEquipGroup():Filter(c11513049.eqckfil,nil) 
+	local ec=eqg:GetFirst() 
+	while ec do 
+	fck=fck+ec:GetFlagEffectLabel(13430900)
+	ec=eqg:GetNext() 
+	end 
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) and fck and c:GetFlagEffect(11513049)<fck end 
+	c:RegisterFlagEffect(11513049,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_ONFIELD)
+end 
+function c11513049.rmop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,nil) 
+	if g:GetCount()>0 then 
+		local dg=g:Select(tp,1,1,nil) 
+		Duel.Remove(dg,POS_FACEUP,REASON_EFFECT) 
+	end 
+end 
+
+
+
+
+
+
+
+
+

expansions/script/c11513050.lua

+--闪刀姬 械音
+function c11513050.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x1115),4,2,c11513050.ovfilter,aux.Stringid(11513050,0))
+	c:EnableReviveLimit()   
+	--to grave 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_TOGRAVE) 
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS) 
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,11513050)   
+	e1:SetCost(c11513050.tgcost)
+	e1:SetTarget(c11513050.tgtg) 
+	e1:SetOperation(c11513050.tgop) 
+	c:RegisterEffect(e1)
+	--tdd
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetCondition(c11513050.tddcon)
+	e2:SetOperation(c11513050.tddop)
+	c:RegisterEffect(e2)
+	Duel.AddCustomActivityCounter(11513050,ACTIVITY_SPSUMMON,c11513050.counterfilter)
+end
+function c11513050.tddcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_LINK and c:GetReasonCard():IsSetCard(0x1115)
+end
+function c11513050.tddop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1,11503050)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetTarget(c11513050.thtg)
+	e1:SetOperation(c11513050.thop)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	c:RegisterEffect(e1)
+end
+function c11513050.tdfilter(c)
+	return not c:IsSetCard(0x115)
+end
+function c11513050.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,4,c) and (Duel.IsExistingMatchingCard(c11513050.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c) or Duel.IsPlayerCanDraw(tp,1)) end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c11513050.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(nil),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,4,4,c)
+	tg:AddCard(c)
+	if tg:GetCount()>0 then
+		Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+		local g=Duel.GetOperatedGroup()
+		if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
+		local ttg=g:Filter(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
+		if ttg:GetCount()>0 and ttg:IsExists(Card.IsSetCard,ttg:GetCount(),nil,0x115) then
+			Duel.BreakEffect()
+			Duel.ConfirmCards(1-tp,ttg)
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+	end
+end
+
+
+
+
+
+
+
+
+
+
+
+function c11513050.counterfilter(c)
+	return not c:IsSummonLocation(LOCATION_EXTRA) or c:IsSetCard(0x1115)
+end
+function c11513050.ovfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x1115) and c:GetSequence()>4 
+end
+function c11513050.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(11513050,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c11513050.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c11513050.splimit(e,c,sump,sumtype,sumpos,targetp)
+	return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1115)
+end
+function c11513050.tgfil(c) 
+	return c:IsAbleToGrave() and c:IsSetCard(0x115)  
+end 
+function c11513050.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11513050.tgfil,tp,LOCATION_DECK,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end 
+function c11513050.tgop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c11513050.tgfil,tp,LOCATION_DECK,0,nil) 
+	if g:GetCount()>0 then 
+		local tc=g:Select(tp,1,1,nil):GetFirst()  
+		Duel.SendtoGrave(tc,REASON_EFFECT)  
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e1:SetTargetRange(1,0)
+		e1:SetValue(c11513050.aclimit)
+		e1:SetLabel(tc:GetCode())
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp) 
+		if tc:IsType(TYPE_SPELL+TYPE_TRAP) then 
+			local e1=Effect.CreateEffect(c) 
+			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) 
+			e1:SetCode(EVENT_PHASE+PHASE_END)
+			e1:SetRange(LOCATION_GRAVE)  
+			e1:SetCountLimit(1)
+			e1:SetCondition(c11513050.setcon) 
+			e1:SetOperation(c11513050.setop) 
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) 
+			tc:RegisterEffect(e1)
+		end 
+	end 
+end
+function c11513050.aclimit(e,re,tp)
+	local tc=e:GetLabelObject()
+	return re:GetHandler():IsCode(e:GetLabel())
+end
+function c11513050.setcon(e,tp,eg,ep,ev,re,r,rp) 
+	return e:GetHandler():IsSSetable()  
+end 
+function c11513050.setop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	Duel.Hint(HINT_CARD,0,11513050) 
+	if Duel.SSet(tp,c)~=0 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 
+end 
+
+
+
+
+
+
+
+
+
+
+
+

expansions/script/c11513052.lua

+--闪刀术式-银河跳跃
+function c11513052.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND) 
+	e1:SetType(EFFECT_TYPE_ACTIVATE) 
+	e1:SetCode(EVENT_FREE_CHAIN) 
+	e1:SetCondition(c11513052.condition) 
+	e1:SetTarget(c11513052.target) 
+	e1:SetOperation(c11513052.operation) 
+	c:RegisterEffect(e1) 
+end
+function c11513052.cfilter(c)
+	return c:GetSequence()<5
+end
+function c11513052.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(c11513052.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c11513052.rmgck(g,tp) 
+	local b1=g:IsExists(Card.IsLocation,1,nil,LOCATION_ONFIELD) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,0,2,nil) 
+	local b2=g:IsExists(Card.IsLocation,1,nil,LOCATION_HAND) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_HAND,0,2,nil) 
+	local b3=g:IsExists(Card.IsLocation,1,nil,LOCATION_GRAVE) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,2,nil) 
+	local b4=g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_DECK,0,2,nil) 
+	local b5=g:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,2,nil) 
+	return b1 or b2 or b3 or b4 or b5  
+end 
+function c11513052.target(e,tp,eg,ep,ev,re,r,rp,chk) 
+	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK+LOCATION_EXTRA,nil)   
+	if chk==0 then return g:CheckSubGroup(c11513052.rmgck,1,1,tp) end 
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK+LOCATION_EXTRA) 
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK+LOCATION_EXTRA) 
+end 
+function c11513052.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK+LOCATION_EXTRA,nil) 
+	local b1=g:IsExists(Card.IsLocation,1,nil,LOCATION_ONFIELD) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,0,2,nil) 
+	local b2=g:IsExists(Card.IsLocation,1,nil,LOCATION_HAND) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_HAND,0,2,nil) 
+	local b3=g:IsExists(Card.IsLocation,1,nil,LOCATION_GRAVE) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,2,nil) 
+	local b4=g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_DECK,0,2,nil) 
+	local b5=g:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,2,nil) 
+	local sg=Group.CreateGroup() 
+	if b1 then  
+		sg:Merge(g:Filter(Card.IsLocation,nil,LOCATION_ONFIELD))
+	end 
+	if b2 then  
+		sg:AddCard(g:Filter(Card.IsLocation,nil,LOCATION_HAND):GetFirst())
+	end 
+	if b3 then  
+		sg:Merge(g:Filter(Card.IsLocation,nil,LOCATION_GRAVE))
+	end 
+	if b4 then  
+		sg:AddCard(g:Filter(Card.IsLocation,nil,LOCATION_DECK):GetFirst())
+	end 
+	if b5 then  
+		sg:AddCard(g:Filter(Card.IsLocation,nil,LOCATION_EXTRA):GetFirst())
+	end 
+	if sg:GetCount()>0 then 
+		local tc=sg:Select(tp,1,1,nil):GetFirst() 
+		local loc=tc:GetLocation()
+		if bit.band(loc,LOCATION_MZONE+LOCATION_SZONE)~=0 then loc=LOCATION_ONFIELD end 
+		if tc:IsLocation(LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA) then 
+			local rdg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,loc,nil) 
+			tc=rdg:RandomSelect(tp,1,REASON_EFFECT):GetFirst() 
+		end  
+		if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,loc,0,2,nil) then 
+
+			local rg=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,loc,0,2,2,nil) 
+			if Duel.Remove(rg,POS_FACEDOWN,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,3,nil,TYPE_SPELL) and tc:IsAbleToHand() and Duel.SelectYesNo(tp,aux.Stringid(11513052,0)) then 
+				Duel.SendtoHand(tc,tp,REASON_EFFECT) 
+				Duel.ConfirmCards(1-tp,tc) 
+			end 
+		end 
+	end 
+end 
+
+
+
+
+
+
+
+
+
+
+
+
+
+

expansions/script/c11513053.lua

+--闪刀姬 宙翼
+function c11513053.initial_effect(c) 
+	c:SetSPSummonOnce(11513053)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2,99,c11513053.lcheck)
+	c:EnableReviveLimit() 
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(aux.linklimit)
+	c:RegisterEffect(e0)
+	--attribute
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e0:SetCode(EFFECT_ADD_ATTRIBUTE)
+	e0:SetRange(0xff)
+	e0:SetValue(ATTRIBUTE_DARK)
+	c:RegisterEffect(e0)
+	--atk 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetType(EFFECT_TYPE_SINGLE) 
+	e1:SetCode(EFFECT_UPDATE_ATTACK) 
+	e1:SetRange(LOCATION_MZONE)  
+	e1:SetValue(c11513053.atkval) 
+	e1:SetCondition(c11513053.atkcon) 
+	c:RegisterEffect(e1) 
+	--cannot target
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e2:SetValue(aux.tgoval) 
+	e2:SetCondition(c11513053.idcon)
+	c:RegisterEffect(e2)
+	--indes
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetValue(aux.indoval)
+	e3:SetCondition(c11513053.idcon)
+	c:RegisterEffect(e3)
+	if not c11513053.global_check then
+		c11513053.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_SUMMON_SUCCESS) 
+		ge1:SetLabelObject(e1) 
+		ge1:SetOperation(c11513053.checkop)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0) 
+		local g=Group.CreateGroup() 
+		g:KeepAlive() 
+		ge1:GetLabelObject():SetLabelObject(g)
+	end
+end
+function c11513053.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	while tc do 
+		local te=e:GetLabelObject() 
+		local xg=te:GetLabelObject() 
+		if tc:IsSetCard(0x1115) and not xg:IsExists(Card.IsCode,1,nil,tc:GetCode()) then 
+			xg:AddCard(tc)   
+		end 
+		tc=eg:GetNext() 
+	end
+end
+function c11513053.lcheck(g)
+	return g:IsExists(Card.IsLinkSetCard,1,nil,0x1115) 
+end 
+function c11513053.atkval(e)  
+	local g=e:GetLabelObject()
+	return g and g:GetClassCount(Card.GetCode)*600   
+end 
+function c11513053.atkcon(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.GetMatchingGroup(function(c) return c:IsSetCard(0x1115) and c:IsType(TYPE_MONSTER) end,tp,LOCATION_GRAVE,0,nil):GetClassCount(Card.GetCode)>=3
+end 
+function c11513053.idcon(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_SPELL)>=3 
+end 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

expansions/script/c11513057.lua

+--闪刀术式-轮舞
+function c11513057.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_ACTION+CATEGORY_GRAVE_SPSUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE) 
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCondition(c11513057.condition)
+	e1:SetTarget(c11513057.target)
+	e1:SetOperation(c11513057.activate)
+	c:RegisterEffect(e1)
+end
+function c11513057.cfilter(c)
+	return c:GetSequence()<5
+end 
+function c11513057.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(c11513057.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c11513057.xxfil(c) 
+	return c:IsFaceup() and c:IsSetCard(0x115) 
+end 
+function c11513057.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local spchk=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_SPELL)>=3 
+	if chk==0 then return Duel.IsExistingTarget(c11513057.xxfil,tp,LOCATION_ONFIELD,0,1,nil) and Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end  
+	local g=Duel.SelectTarget(tp,c11513057.xxfil,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) 
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_ONFIELD) 
+end
+function c11513057.activate(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local tc=Duel.GetFirstTarget() 
+	local x=1
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_SPELL)>=3 then x=x+1 end 
+	local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
+	if g:GetCount()>0 then 
+		local dg=g:Select(tp,1,x,nil) 
+		if Duel.Destroy(dg,REASON_EFFECT)~=0 and tc:IsRelateToEffect(e) then  
+			Duel.BreakEffect() 
+			Duel.Destroy(tc,REASON_EFFECT) 
+		end 
+	end 
+end 
+
+
+

expansions/script/c11513058.lua

+--闪刀姬 堕翼
+function c11513058.initial_effect(c)
+	c:SetSPSummonOnce(11513058)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,nil,2,2,c11513058.lcheck)
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.linklimit)
+	c:RegisterEffect(e1)	
+	--to hand and tg 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TOGRAVE) 
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS) 
+	e2:SetProperty(EFFECT_FLAG_DELAY)  
+	e2:SetCountLimit(1,11513058) 
+	e2:SetCost(c11513058.thtcost)
+	e2:SetTarget(c11513058.thttg) 
+	e2:SetOperation(c11513058.thtop) 
+	c:RegisterEffect(e2)
+	--indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
+	e2:SetCondition(c11513058.indcon)
+	e2:SetOperation(c11513058.indop)
+	c:RegisterEffect(e2)
+	Duel.AddCustomActivityCounter(11513058,ACTIVITY_SPSUMMON,c11513058.counterfilter)
+end
+function c11513058.counterfilter(c)
+	return not c:IsSummonLocation(LOCATION_EXTRA) or c:IsSetCard(0x1115)
+end
+function c11513058.lcheck(g,lc)
+	return g:IsExists(Card.IsLinkSetCard,1,nil,0x1115)
+end
+function c11513058.thtcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(11513058,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c11513058.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end 
+function c11513058.splimit(e,c,sump,sumtype,sumpos,targetp)
+	return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1115)
+end  
+function c11513058.tgfil(c,e,tp) 
+	return c:IsAbleToGrave() and Duel.IsExistingMatchingCard(c11513058.thfil,tp,LOCATION_DECK,0,1,nil,c)
+end  
+function c11513058.thfil(c,sc) 
+	return c:IsAbleToHand() and c:IsSetCard(0x115) and not c:IsCode(sc:GetCode()) 
+end 
+function c11513058.thttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11513058.tgfil,tp,LOCATION_ONFIELD,0,1,e:GetHandler(),e,tp) end  
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_ONFIELD) 
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) 
+end 
+function c11513058.thtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local tc=Duel.SelectMatchingCard(tp,c11513058.tgfil,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler(),e,tp):GetFirst() 
+	if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then 
+		local g=Duel.GetMatchingGroup(c11513058.thfil,tp,LOCATION_DECK,0,nil,tc) 
+		if g:GetCount()>0 then 
+			local sg=g:Select(tp,1,1,nil) 
+			Duel.SendtoHand(sg,tp,REASON_EFFECT)  
+			Duel.ConfirmCards(1-tp,sg)   
+		end 
+	end  
+end 
+function c11513058.indcon(e,tp,eg,ep,ev,re,r,rp)
+	return r==REASON_LINK
+end
+function c11513058.indop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=c:GetReasonCard()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE) 
+	e1:SetCode(EFFECT_UPDATE_ATTACK) 
+	e1:SetRange(LOCATION_MZONE) 
+	e1:SetValue(1500) 
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	rc:RegisterEffect(e1,true)
+end 
+
+
+
+
+
+
+
+

expansions/script/c7476866.lua

+--芳香法师-黑莲花
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--effect draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EFFECT_DRAW_COUNT)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(1,0)
+	e2:SetValue(3)
+	e2:SetCondition(s.drcon)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(id,0))
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_RECOVER)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(s.limcon)
+	e3:SetOperation(s.limop)
+	c:RegisterEffect(e3)
+	
+end
+function s.drcon(e)
+	local tp=e:GetHandlerPlayer()
+	return Duel.GetLP(tp)>Duel.GetLP(1-tp)
+end
+function s.limcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp
+end
+function s.limop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=1
+	if Duel.GetTurnPlayer()==tp then
+		ct=2
+	end
+	--effect count
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetOperation(s.scount)
+	e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,ct)
+	Duel.RegisterEffect(e1,tp)
+	local e4=e1:Clone()
+	e4:SetOperation(s.ocount)
+	Duel.RegisterEffect(e4,tp)
+	--activate limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e3:SetTargetRange(1,0)
+	e3:SetCondition(s.econ1)
+	e3:SetValue(s.elimit)
+	e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,ct)
+	Duel.RegisterEffect(e3,tp)
+	local e6=e3:Clone()
+	e6:SetCondition(s.econ2)
+	e6:SetTargetRange(0,1)
+	Duel.RegisterEffect(e6,tp)
+end
+function s.scount(e,tp,eg,ep,ev,re,r,rp)
+	if ep~=tp or not re:IsActiveType(TYPE_MONSTER) or (re:GetHandler() and not re:GetHandler():IsSetCard(0xc9)) then return end
+	Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
+end
+function s.econ1(e)
+	return Duel.GetFlagEffect(tp,id)>2
+end
+function s.ocount(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp or not re:IsActiveType(TYPE_MONSTER) or (re:GetHandler() and not re:GetHandler():IsSetCard(0xc9)) then return end
+	Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
+end
+function s.econ2(e)
+	local tp=e:GetHandlerPlayer()
+	return Duel.GetFlagEffect(tp,id+o)>2
+end
+function s.elimit(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsSetCard(0xc9)
+end

expansions/script/c7476877.lua

+--芳香莉莉丝-黑莲花
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_PLANT),2,3)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)
+	--tograve
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_RECOVER)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e2:SetCountLimit(1,id+o)
+	e2:SetCondition(s.tgcon)
+	e2:SetTarget(s.tgtg)
+	e2:SetOperation(s.tgop)
+	c:RegisterEffect(e2)
+	--damage
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(s.drcon1)
+	e3:SetOperation(s.drop1)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e4:SetCode(EVENT_TO_HAND)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(s.regcon)
+	e4:SetOperation(s.regop)
+	c:RegisterEffect(e4)
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e5:SetCode(EVENT_CHAIN_SOLVED)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetCondition(s.drcon2)
+	e5:SetOperation(s.drop2)
+	c:RegisterEffect(e5)
+end
+function s.spfilter(c,e,tp)
+	return c:IsSetCard(0xc9) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp
+end
+function s.tgfilter(c)
+	return c:IsSetCard(0xc9) and c:IsAbleToGrave()
+end
+function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function s.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+		if not c:IsLocation(LOCATION_MZONE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+			and c:IsRelateToChain()
+			and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+			and aux.NecroValleyFilter()(c)
+			and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function s.drcon1(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(Card.IsControler,1,nil,1-tp) and Duel.GetLP(tp)>Duel.GetLP(1-tp) and not Duel.IsChainSolving()
+end
+function s.drop1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,id)
+	Duel.Draw(tp,1,REASON_EFFECT)
+end
+function s.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(Card.IsControler,1,nil,1-tp) and Duel.IsChainSolving()
+end
+function s.regop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=eg:FilterCount(Card.IsControler,nil,1-tp)
+	e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,0,1,ct)
+end
+function s.drcon2(e,tp,eg,ep,ev,re,r,rp)
+	local tp=e:GetHandlerPlayer()
+	return e:GetHandler():GetFlagEffect(id)>0 and Duel.GetLP(tp)>Duel.GetLP(1-tp)
+end
+function s.drop2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,id)
+	local n=Duel.GetFlagEffect(tp,id)
+	Duel.ResetFlagEffect(tp,id)
+	Duel.Draw(tp,n,REASON_EFFECT)
+	--[[local labels={e:GetHandler():GetFlagEffectLabel(id)}
+	local ct=0
+	for i=1,#labels do ct=ct+labels[i] end
+	e:GetHandler():ResetFlagEffect(id)
+	Duel.Damage(1-tp,ct*200,REASON_EFFECT)]]
+end