wild 1217

expansions/lflist.conf

@@ -66,6 +66,7 @@
 4865037 0
 4865039 0
 4865040 0
+7407235 0
 9981625 0
 9990119 0
 9990228 0
@@ -83,6 +84,7 @@
 11450903 0
 11450904 0
 11450905 0
+11450997 0
 11450998 0
 11450999 0
 11451000 0
@@ -161,6 +163,7 @@
 14824018 0
 14824033 0
 15000122 0
+15000211 0
 15000316 0
 15000317 0
 15000318 0
@@ -168,7 +171,6 @@
 15004003 0
 15090003 0
 15291627 0
-16170003 0
 16200000 0
 16200001 0
 16200003 0
@@ -190,6 +192,7 @@
 18678558 0
 19198211 0
 20220679 0
+22021680 0
 22348028 0
 22348134 0
 25000000 0
@@ -464,7 +467,6 @@
 50587164 0
 53587967 0
 53752002 0
-53752007 0
 53752008 0
 53752009 0
 53752010 0
@@ -566,6 +568,7 @@
 65130465 0
 65130470 0
 65130475 0
+65131030 0
 67200701 0
 67200702 0
 67200703 0
@@ -1331,6 +1334,9 @@
 98920308 0
 98920310 0
 98920313 0
+98920319 0
+98920320 0
+98920321 0
 98920339 0
 98920348 0
 98920358 0
@@ -1344,6 +1350,7 @@
 98920488 0
 98920489 0
 98920490 0
+98920516 0
 98920567 0
 98920594 0
 98920620 0
@@ -1986,6 +1993,10 @@
 60362066 0
 74920585 0
 77103950 1
+#231217
+22348084 0
+22348095 0
+53752007 1
 #231105
 7481445 0
 11555601 0

expansions/script/c15000211.lua

+local m=15000211
+local cm=_G["c"..m]
+cm.name="模仿者"
+cm.loaded_metatable_list={}
+function cm.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_SPSUM_PARAM+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetTargetRange(POS_FACEUP_ATTACK,0)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.spcon)
+	e1:SetValue(SUMMON_VALUE_SELF)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_SPSUM_PARAM+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetTargetRange(POS_FACEUP_ATTACK,0)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(cm.sp2con)
+	e2:SetOperation(cm.sp2op)
+	e2:SetValue(SUMMON_VALUE_SELF)
+	c:RegisterEffect(e2)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_DISABLE)
+	--e3:SetCondition(cm.condition)
+	e3:SetOperation(cm.operation)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function cm.sp2filter(c)
+	return c:IsLocation(LOCATION_MZONE) and c:GetSequence()<5
+end
+function cm.sp2con(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local rg=Duel.GetReleaseGroup(tp):Filter(Card.IsType,nil,TYPE_MONSTER)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	local ct=Duel.GetFieldGroup(tp,LOCATION_MZONE,0):Filter(cm.sp2filter,nil):GetCount()
+	return ft>-1 and rg:CheckSubGroup(aux.mzctcheckrel,1,#rg,tp)
+end
+function cm.sp2op(e,tp,eg,ep,ev,re,r,rp,c)
+	local rg=Duel.GetReleaseGroup(tp):Filter(Card.IsType,nil,TYPE_MONSTER)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,1,#rg,tp)
+	e:SetLabel(g:GetCount())
+	aux.UseExtraReleaseCount(g,tp)
+	Duel.Release(g,REASON_COST)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+SUMMON_VALUE_SELF
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local codelist={}
+	local codelist2=0
+	while codelist2==0 do
+		local l=Duel.GetRandomNumber(1,999999999)
+		local mt=cm.load_metatable(l)
+		if mt then
+			local token=Duel.CreateToken(tp,l)
+			if token and token:IsType(TYPE_MONSTER) and token:IsType(TYPE_EFFECT) and not token:IsForbidden() and token:CheckUniqueOnField(tp) then
+				c:SetHint(CHINT_CARD,l)
+				Duel.Hint(HINT_CARD,1-tp,l)
+				local tcode=l
+				c:SetEntityCode(tcode,true)
+				c:ReplaceEffect(tcode,0,0)
+				codelist2=codelist2+1
+			end
+		end
+	end
+end
+function cm.load_metatable(code)
+	local m1=_G["c"..code]
+	if m1 then return m1 end
+	local m2=cm.loaded_metatable_list[code]
+	if m2 then return m2 end
+	_G["c"..code]={}
+	if pcall(function() dofile("expansions/script/c"..code..".lua") end) or pcall(function() dofile("script/c"..code..".lua") end) then
+		local mt=_G["c"..code]
+		_G["c"..code]=nil
+		if mt then
+			cm.loaded_metatable_list[code]=mt
+			return mt
+		end
+	else
+		_G["c"..code]=nil
+	end
+end
\ No newline at end of file

expansions/script/c98920319.lua

+--闪刀姬-灼乌
+function c98920319.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcCodeFun(c,63288573,aux.FilterBoolFunction(c98920319.fusfilter),1,true,true)
+	aux.AddContactFusionProcedure(c,c98920319.cfilter,LOCATION_ONFIELD+LOCATION_GRAVE,0,Duel.Remove,POS_FACEUP,REASON_COST)
+	Duel.AddCustomActivityCounter(98920319,ACTIVITY_CHAIN,c98920319.chainfilter)
+	 --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(c98920319.splimit)
+	c:RegisterEffect(e1)
+	--cannot link material
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e4:SetCondition(c98920319.linkcon)
+	e4:SetValue(1)
+	c:RegisterEffect(e4)
+	--atk/def
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(0,LOCATION_MZONE)
+	e2:SetValue(-1500)
+	c:RegisterEffect(e2)
+	local e3=Effect.Clone(e2)
+	e3:SetCode(EFFECT_UPDATE_DEFENSE)
+	c:RegisterEffect(e3)
+	--attack all
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_ATTACK_ALL)
+	e5:SetValue(c98920319.atkfilter)
+	c:RegisterEffect(e5)
+end
+function c98920319.linkcon(e)
+	local c=e:GetHandler()
+	return c:IsStatus(STATUS_SPSUMMON_TURN)
+end
+function c98920319.splimit(e,se,sp,st)
+	return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
+end
+function c98920319.chainfilter(re,tp,cid)
+	return not (re:GetHandler():IsSetCard(0x115) and re:IsActiveType(TYPE_SPELL))
+end
+function c98920319.fusfilter(c)
+	 return c:IsSetCard(0x1115) and not c:IsAttribute(ATTRIBUTE_FIRE)
+end
+function c98920319.splimit(e,se,sp,st)
+	return e:GetHandler():GetLocation()~=LOCATION_EXTRA
+end
+function c98920319.cfilter(c,fc)
+	local tp=fc:GetControler()
+	return c:IsAbleToRemoveAsCost() and (Duel.GetCustomActivityCount(98920319,tp,ACTIVITY_CHAIN)~=0 or Duel.GetCustomActivityCount(98920319,1-tp,ACTIVITY_CHAIN)~=0) 
+end
+function c98920319.atkfilter(e,c)
+	return c:IsSummonType(SUMMON_TYPE_SPECIAL)
+end
\ No newline at end of file

expansions/script/c98920320.lua

+--闪刀姬-潮涡
+function c98920320.initial_effect(c)
+	 --fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcCodeFun(c,90673288,aux.FilterBoolFunction(c98920320.fusfilter),1,true,true)
+	aux.AddContactFusionProcedure(c,c98920320.cfilter,LOCATION_ONFIELD+LOCATION_GRAVE,0,Duel.Remove,POS_FACEUP,REASON_COST)
+	Duel.AddCustomActivityCounter(98920320,ACTIVITY_CHAIN,c98920320.chainfilter)
+	 --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(c98920320.splimit)
+	c:RegisterEffect(e1)
+	--cannot link material
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e4:SetCondition(c98920320.linkcon)
+	e4:SetValue(1)
+	c:RegisterEffect(e4)
+	--atk update
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(c98920320.atkval)
+	c:RegisterEffect(e2)
+	--recover
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(98920320,1))
+	e3:SetCategory(CATEGORY_RECOVER)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EVENT_BATTLE_DAMAGE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c98920320.reccon)
+	e3:SetTarget(c98920320.rectg)
+	e3:SetOperation(c98920320.recop)
+	c:RegisterEffect(e3)
+end
+function c98920320.linkcon(e)
+	local c=e:GetHandler()
+	return c:IsStatus(STATUS_SPSUMMON_TURN)
+end
+function c98920320.splimit(e,se,sp,st)
+	return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
+end
+function c98920320.chainfilter(re,tp,cid)
+	return not (re:GetHandler():IsSetCard(0x115) and re:IsActiveType(TYPE_SPELL))
+end
+function c98920320.fusfilter(c)
+	 return c:IsSetCard(0x1115) and not c:IsAttribute(ATTRIBUTE_WATER)
+end
+function c98920320.splimit(e,se,sp,st)
+	return e:GetHandler():GetLocation()~=LOCATION_EXTRA
+end
+function c98920320.cfilter(c,fc)
+	local tp=fc:GetControler()
+	return c:IsAbleToRemoveAsCost() and (Duel.GetCustomActivityCount(98920320,tp,ACTIVITY_CHAIN)~=0 or Duel.GetCustomActivityCount(98920320,1-tp,ACTIVITY_CHAIN)~=0) 
+end
+function c98920320.atkval(e,c)
+	return math.abs(Duel.GetLP(0)-Duel.GetLP(1))
+end
+function c98920320.reccon(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and eg:GetFirst():IsControler(tp) and eg:GetFirst():IsSetCard(0x1115)
+end
+function c98920320.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(ev)
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ev)
+end
+function c98920320.recop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Recover(p,d,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c98920321.lua

+--闪刀姬-钢蕾
+local s,id,o=GetID()
+function c98920321.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcCodeFun(c,12421694,aux.FilterBoolFunction(c98920321.fusfilter),1,true,true)
+	aux.AddContactFusionProcedure(c,c98920321.cfilter,LOCATION_ONFIELD+LOCATION_GRAVE,0,Duel.Remove,POS_FACEUP,REASON_COST)
+	Duel.AddCustomActivityCounter(98920321,ACTIVITY_CHAIN,c98920321.chainfilter)
+	 --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(c98920321.splimit)
+	c:RegisterEffect(e1)
+	--cannot link material
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e4:SetCondition(c98920321.linkcon)
+	e4:SetValue(1)
+	c:RegisterEffect(e4) 
+	--atk/def set
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SET_ATTACK_FINAL)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(0,LOCATION_MZONE)
+	e2:SetCondition(c98920321.adcon)
+	e2:SetTarget(c98920321.adtg)
+	e2:SetValue(c98920321.atkval)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_SET_DEFENSE_FINAL)
+	e3:SetValue(c98920321.defval)
+	c:RegisterEffect(e3)
+	 --bp disable
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e7:SetCode(EVENT_BE_BATTLE_TARGET)
+	e7:SetRange(LOCATION_MZONE)
+	e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e7:SetOperation(s.disop)
+	c:RegisterEffect(e7)
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_DISABLE)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetTargetRange(0,LOCATION_MZONE)
+	e5:SetTarget(s.distg)
+	c:RegisterEffect(e5)
+	local e6=e5:Clone()
+	e6:SetCode(EFFECT_DISABLE_EFFECT)
+	e6:SetValue(RESET_TURN_SET)
+	c:RegisterEffect(e6)
+	 --redirect
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_FIELD)
+	e8:SetCode(EFFECT_BATTLE_DESTROY_REDIRECT)
+	e8:SetRange(LOCATION_MZONE)
+	e8:SetTargetRange(LOCATION_MZONE,0)
+	e8:SetValue(LOCATION_REMOVED)
+	e8:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x1115))
+	c:RegisterEffect(e8)
+end
+function c98920321.linkcon(e)
+	local c=e:GetHandler()
+	return c:IsStatus(STATUS_SPSUMMON_TURN)
+end
+function c98920321.splimit(e,se,sp,st)
+	return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
+end
+function c98920321.chainfilter(re,tp,cid)
+	return not (re:GetHandler():IsSetCard(0x115) and re:IsActiveType(TYPE_SPELL))
+end
+function c98920321.fusfilter(c)
+	 return c:IsSetCard(0x1115) and not c:IsAttribute(ATTRIBUTE_EARTH)
+end
+function c98920321.splimit(e,se,sp,st)
+	return e:GetHandler():GetLocation()~=LOCATION_EXTRA
+end
+function c98920321.cfilter(c,fc)
+	local tp=fc:GetControler()
+	return c:IsAbleToRemoveAsCost() and (Duel.GetCustomActivityCount(98920321,tp,ACTIVITY_CHAIN)~=0 or Duel.GetCustomActivityCount(98920321,1-tp,ACTIVITY_CHAIN)~=0) 
+end
+function c98920321.adcon(e)
+	return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and e:GetHandler():GetBattleTarget()
+end
+function c98920321.adtg(e,c)
+	return c==e:GetHandler():GetBattleTarget()
+end
+function c98920321.atkval(e,c)
+	return c:GetBaseAttack()
+end
+function c98920321.defval(e,c)
+	return c:GetBaseDefense()
+end
+function s.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.AdjustInstantly(e:GetHandler())
+end
+function s.disfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0x1115) and c:IsControler(tp)
+end
+function s.distg(e,c)
+	local fid=e:GetHandler():GetFieldID()
+	for _,flag in ipairs({c:GetFlagEffectLabel(id)}) do
+		if flag==fid then return true end
+	end
+	local bc=c:GetBattleTarget()
+	if c:IsRelateToBattle() and bc and s.disfilter(bc,e:GetHandlerPlayer()) then
+		c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
+		return true
+	end
+	return false
+end
\ No newline at end of file

expansions/script/c98920516.lua

+--袭击队战士
+function c98920516.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),4,2)
+	c:EnableReviveLimit()
+	--rank up/down
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920516,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE) 
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetCountLimit(1,98920516)
+	e1:SetCost(c98920516.cost)
+	e1:SetTarget(c98920516.target)
+	e1:SetOperation(c98920516.operation)
+	c:RegisterEffect(e1)
+end
+function c98920516.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
+end
+function c98920516.filter(c,e,tp,mc)
+	return c:IsSetCard(0x10db,0xba,0x2073) and c:IsType(TYPE_XYZ)
+		and mc:IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
+		and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
+end
+function c98920516.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
+		and Duel.IsExistingMatchingCard(c98920516.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c98920516.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) and c:IsControler(tp) and not c:IsImmuneToEffect(e) and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,c98920516.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,c)
+		local tc=g:GetFirst()
+		if tc then
+			local mg=c:GetOverlayGroup()
+			if mg:GetCount()>0 then
+				Duel.Overlay(tc,mg)
+			end
+			tc:SetMaterial(Group.FromCards(c))
+			Duel.Overlay(tc,Group.FromCards(c))
+			if Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)~=0 then
+				tc:CompleteProcedure()
+				local fid=e:GetHandler():GetFieldID()
+				tc:RegisterFlagEffect(98920516,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
+				local e1=Effect.CreateEffect(e:GetHandler())
+				e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+				e1:SetCode(EVENT_PHASE+PHASE_END)
+				e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+				e1:SetLabel(fid)
+				e1:SetLabelObject(tc)
+				e1:SetCountLimit(1)
+				e1:SetReset(RESET_PHASE+PHASE_END)
+				e1:SetCondition(c98920516.descon)
+				e1:SetOperation(c98920516.desop)
+				Duel.RegisterEffect(e1,tp)
+			end
+		end
+	end
+end
+function c98920516.descon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	return tc:GetFlagEffectLabel(98920516)==e:GetLabel()
+end
+function c98920516.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Destroy(e:GetLabelObject(),REASON_EFFECT)
+end
\ No newline at end of file