new cards SR08

c24721709.lua

+--救魔の標
+function c24721709.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,24721709+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c24721709.target)
+	e1:SetOperation(c24721709.activate)
+	c:RegisterEffect(e1)
+end
+function c24721709.filter(c)
+	return c:IsRace(RACE_SPELLCASTER) and c:IsType(TYPE_EFFECT) and c:IsAbleToHand()
+end
+function c24721709.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c24721709.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c24721709.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c24721709.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c24721709.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end

c3611830.lua

+--創聖魔導王 エンディミオン
+function c3611830.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
+	c:EnableCounterPermit(0x1)
+	--destory
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(3611830,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY+CATEGORY_COUNTER)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1,3611830)
+	e1:SetCost(c3611830.descost)
+	e1:SetTarget(c3611830.destg)
+	e1:SetOperation(c3611830.desop)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(3611830,1))
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetCountLimit(1)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c3611830.negcon)
+	e2:SetTarget(c3611830.negtg)
+	e2:SetOperation(c3611830.negop)
+	c:RegisterEffect(e2)
+	--cannot target
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c3611830.ctcon)
+	e3:SetValue(aux.tgoval)
+	c:RegisterEffect(e3)
+	--indes
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(c3611830.ctcon)
+	e4:SetValue(aux.indoval)
+	c:RegisterEffect(e4)
+	--search
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_LEAVE_FIELD_P)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e5:SetOperation(c3611830.regop)
+	c:RegisterEffect(e5)
+	local e6=Effect.CreateEffect(c)
+	e6:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e6:SetCode(EVENT_BATTLE_DESTROYED)
+	e6:SetCondition(c3611830.thcon)
+	e6:SetTarget(c3611830.thtg)
+	e6:SetOperation(c3611830.thop)
+	e6:SetLabelObject(e5)
+	c:RegisterEffect(e6)
+end
+function c3611830.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,6,REASON_COST) end
+	Duel.RemoveCounter(tp,1,0,0x1,6,REASON_COST)
+end
+function c3611830.cfilter(c)
+	return c:IsCanAddCounter(0x1,1)
+end
+function c3611830.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingMatchingCard(c3611830.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end
+	local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c3611830.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		local ct=Duel.GetMatchingGroupCount(c3611830.cfilter,tp,LOCATION_ONFIELD,0,nil)
+		if ct==0 then return end
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
+		Duel.HintSelection(g)
+		local oc=Duel.Destroy(g,REASON_EFFECT)
+		if oc==0 then return end
+		e:GetHandler():AddCounter(0x1,oc)
+	end
+end
+function c3611830.negcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
+	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev)
+end
+function c3611830.thfilter(c)
+	return c:GetCounter(0x1)>0 and c:IsAbleToHand()
+end
+function c3611830.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c3611830.thfilter,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_ONFIELD)
+end
+function c3611830.negop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,c3611830.thfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+	local tc=g:GetFirst()
+	if not tc then return end
+	local count=tc:GetCounter(0x1)
+	if Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) and Duel.NegateActivation(ev)~=0
+		and re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then
+		if c:IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(3611830,2)) then
+			Duel.BreakEffect()
+			c:AddCounter(0x1,count)
+		end
+	end
+end
+function c3611830.ctcon(e)
+	return e:GetHandler():GetCounter(0x1)>0
+end
+function c3611830.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetCounter(0x1)
+	e:SetLabel(ct)
+end
+function c3611830.thcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabelObject():GetLabel()
+	return ct>0 and c:IsReason(REASON_BATTLE)
+end
+function c3611830.thfilter1(c)
+	return c:GetType()==TYPE_SPELL and c:IsAbleToHand()
+end
+function c3611830.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(c3611830.thfilter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c3611830.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c3611830.thfilter1,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

c38943357.lua

+--魔力統轄
+function c38943357.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,38943357+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c38943357.target)
+	e1:SetOperation(c38943357.operation)
+	c:RegisterEffect(e1)
+end
+function c38943357.filter(c)
+	return c:IsSetCard(0x12a) and c:IsAbleToHand()
+end
+function c38943357.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c38943357.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c38943357.cfilter(c)
+	return c:IsCode(38943357,75014062) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
+end
+function c38943357.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c38943357.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
+		Duel.ConfirmCards(1-tp,g)
+		local ct=Duel.GetMatchingGroupCount(c38943357.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
+		if ct>0 and Duel.GetMatchingGroupCount(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,nil,0x1,1)>0
+			and Duel.SelectYesNo(tp,aux.Stringid(38943357,0)) then
+			while ct>0 do
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
+				local tc=Duel.SelectMatchingCard(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,1,1,nil,0x1,1):GetFirst()
+				if not tc then break end
+				tc:AddCounter(0x1,1)
+				ct=ct-1
+			end
+		end
+	end
+end

c39000945.lua

+--エンプレス・オブ・エンディミオン
+function c39000945.initial_effect(c)
+	--Pendulum Summon
+	c:EnableCounterPermit(0x1,LOCATION_PZONE+LOCATION_MZONE)
+	aux.EnablePendulumAttribute(c)
+	c:SetSPSummonOnce(39000945)
+	--Add Counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetOperation(aux.chainreg)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e2:SetCode(EVENT_CHAIN_SOLVED)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetOperation(c39000945.counterop)
+	c:RegisterEffect(e2)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(39000945,0))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_PZONE)
+	e3:SetCost(c39000945.spcost)
+	e3:SetTarget(c39000945.sptg)
+	e3:SetOperation(c39000945.spop)
+	c:RegisterEffect(e3)
+	--Special Summon Success
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(39000945,1))
+	e4:SetCategory(CATEGORY_TOHAND)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e4:SetTarget(c39000945.rthtg)
+	e4:SetOperation(c39000945.rthop)
+	c:RegisterEffect(e4)
+	--Deck Search
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(39000945,2))
+	e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e5:SetCode(EVENT_BATTLE_DESTROYED)
+	e5:SetCondition(c39000945.thcon)
+	e5:SetTarget(c39000945.thtg)
+	e5:SetOperation(c39000945.thop)
+	c:RegisterEffect(e5)
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e6:SetCode(EVENT_LEAVE_FIELD_P)
+	e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e6:SetOperation(c39000945.regop)
+	e6:SetLabelObject(e5)
+	c:RegisterEffect(e6)
+end
+function c39000945.counterop(e,tp,eg,ep,ev,re,r,rp)
+	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then
+		e:GetHandler():AddCounter(0x1,1)
+	end
+end
+function c39000945.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end
+	e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST)
+end
+function c39000945.spfilter(c,e,tp)
+	return c:IsCanAddCounter(0x1,1,false,LOCATION_MZONE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c39000945.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=2 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanAddCounter(0x1,1,false,LOCATION_MZONE)
+		and Duel.IsExistingMatchingCard(c39000945.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_PZONE)
+end
+function c39000945.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c39000945.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		g:AddCard(c)
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		for tc in aux.Next(g) do
+			tc:AddCounter(0x1,1)
+		end
+	end
+end
+function c39000945.rthfilter(c)
+	return c:IsAbleToHand() and c:GetCounter(0x1)>0
+end
+function c39000945.rthtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	if chk==0 then return Duel.IsExistingTarget(c39000945.rthfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler())
+		and Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g1=Duel.SelectTarget(tp,c39000945.rthfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g2=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
+	g1:Merge(g2)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,g1:GetCount(),0,LOCATION_ONFIELD)
+end
+function c39000945.rthop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local g=tg:Filter(Card.IsRelateToEffect,nil,e)
+	local ct=0
+	for tc in aux.Next(g) do
+		if tc:IsControler(tp) then
+			ct=ct+tc:GetCounter(0x1)
+		end
+	end
+	Duel.SendtoHand(g,nil,REASON_EFFECT)
+	if Duel.GetOperatedGroup():GetCount()>0 then
+		e:GetHandler():AddCounter(0x1,ct)
+	end
+end
+function c39000945.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetLabel()>0
+end
+function c39000945.thfilter(c)
+	return c:IsSetCard(0x12a) and c:IsAbleToHand()
+end
+function c39000945.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c39000945.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c39000945.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c39000945.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c39000945.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetLabelObject():SetLabel(e:GetHandler():GetCounter(0x1))
+end

c40732515.lua

---神聖魔導王エンディミオン
+--神聖魔導王 エンディミオン
 function c40732515.initial_effect(c)
 	--special summon
 	local e1=Effect.CreateEffect(c)
@@ -35,15 +35,30 @@ function c40732515.initial_effect(c)
 	e3:SetOperation(c40732515.desop)
 	c:RegisterEffect(e3)
 end
+function c40732515.spcfilter(c,tp)
+	return c:IsCode(39910367) and c:IsCanRemoveCounter(tp,0x1,1,REASON_COST)
+end
 function c40732515.spcon(e,c)
 	if c==nil then return true end
-	local fd=Duel.GetFieldCard(c:GetControler(),LOCATION_SZONE,5)
-	return fd and fd:IsCode(39910367) and fd:IsCanRemoveCounter(c:GetControler(),0x1,6,REASON_COST)
-		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+	local tp=c:GetControler()
+	local g=Duel.GetMatchingGroup(c40732515.spcfilter,tp,LOCATION_ONFIELD,0,nil,tp)
+	local ct=0
+	for tc in aux.Next(g) do
+		ct=ct+tc:GetCounter(0x1)
+	end
+	return ct>=6 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 end
 function c40732515.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	local fd=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
-	fd:RemoveCounter(tp,0x1,6,REASON_RULE)
+	local g=Duel.GetMatchingGroup(c40732515.spcfilter,tp,LOCATION_ONFIELD,0,nil,tp)
+	if #g==1 then
+		g:GetFirst():RemoveCounter(tp,0x1,6,REASON_COST)
+	else
+		for i=1,6 do
+		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(40732515,2))
+		local tg=Duel.SelectMatchingCard(tp,c40732515.spcfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
+		tg:GetFirst():RemoveCounter(tp,0x1,1,REASON_COST)
+		end
+	end
 end
 function c40732515.condition(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1

c65342096.lua

+--魔法都市の実験施設
+function c65342096.initial_effect(c)
+	c:EnableCounterPermit(0x1,LOCATION_SZONE)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,65342096+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+	--Code Change
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_CHANGE_CODE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetValue(39910367)
+	c:RegisterEffect(e2)
+	--Add Counter
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(aux.chainreg)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e4:SetCode(EVENT_CHAIN_SOLVED)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetOperation(c65342096.counterop)
+	c:RegisterEffect(e4)
+	--Special Summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(65342096,0))
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e5:SetCode(EVENT_BATTLED)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetCondition(c65342096.spcon)
+	e5:SetCost(c65342096.spcost)
+	e5:SetTarget(c65342096.sptg)
+	e5:SetOperation(c65342096.spop)
+	c:RegisterEffect(e5)
+end
+function c65342096.counterop(e,tp,eg,ep,ev,re,r,rp)
+	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then
+		e:GetHandler():AddCounter(0x1,1)
+	end
+end
+function c65342096.spconcheck(c,tp)
+	return c and c:IsRace(RACE_SPELLCASTER) and c:IsControler(tp) and c:IsStatus(STATUS_BATTLE_DESTROYED)
+end
+function c65342096.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetAttackTarget()~=nil
+		and (c65342096.spconcheck(Duel.GetAttacker(),tp)
+		or c65342096.spconcheck(Duel.GetAttackTarget(),tp))
+end
+function c65342096.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x1,6,REASON_COST) end
+	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x1,6,REASON_COST)
+end
+function c65342096.spfilter(c,e,tp)
+	return c:IsRace(RACE_SPELLCASTER) and c:IsLevelAbove(7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c65342096.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c65342096.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c65342096.spop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65342096.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

c66104644.lua

+--マギステル・オブ・エンディミオン
+function c66104644.initial_effect(c)
+	--Pendulum Summon
+	c:EnableCounterPermit(0x1,LOCATION_PZONE+LOCATION_MZONE)
+	aux.EnablePendulumAttribute(c)
+	c:SetSPSummonOnce(66104644)
+	--Add Counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetOperation(aux.chainreg)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e2:SetCode(EVENT_CHAIN_SOLVED)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetOperation(c66104644.counterop)
+	c:RegisterEffect(e2)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(66104644,0))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_PZONE)
+	e3:SetCost(c66104644.spcost)
+	e3:SetTarget(c66104644.sptg)
+	e3:SetOperation(c66104644.spop)
+	c:RegisterEffect(e3)
+	--add counter
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(66104644,1))
+	e4:SetCategory(CATEGORY_COUNTER)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e4:SetTarget(c66104644.countertg2)
+	e4:SetOperation(c66104644.counterop2)
+	c:RegisterEffect(e4)
+	--special summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(66104644,2))
+	e5:SetType(EFFECT_TYPE_QUICK_O)
+	e5:SetCode(EVENT_FREE_CHAIN)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetCountLimit(1)
+	e5:SetHintTiming(0,TIMING_END_PHASE)
+	e5:SetCondition(c66104644.spcon2)
+	e5:SetCost(c66104644.spcost2)
+	e5:SetTarget(c66104644.sptg2)
+	e5:SetOperation(c66104644.spop2)
+	c:RegisterEffect(e5)
+	--pendulum set
+	local e6=Effect.CreateEffect(c)
+	e6:SetDescription(aux.Stringid(66104644,1))
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e6:SetProperty(EFFECT_FLAG_DELAY)
+	e6:SetCode(EVENT_DESTROYED)
+	e6:SetCondition(c66104644.pencon)
+	e6:SetTarget(c66104644.pentg)
+	e6:SetOperation(c66104644.penop)
+	c:RegisterEffect(e6)
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e7:SetCode(EVENT_LEAVE_FIELD_P)
+	e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e7:SetOperation(c66104644.regop)
+	e7:SetLabelObject(e6)
+	c:RegisterEffect(e7)
+end
+function c66104644.counterop(e,tp,eg,ep,ev,re,r,rp)
+	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then
+		e:GetHandler():AddCounter(0x1,1)
+	end
+end
+function c66104644.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end
+	e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST)
+end
+function c66104644.spfilter(c,e,tp)
+	return c:IsFaceup() and c:IsCanAddCounter(0x1,1,false,LOCATION_MZONE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c66104644.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCountFromEx(tp)>=1 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=1
+		and Duel.GetUsableMZoneCount(tp)>=2 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanAddCounter(0x1,1,false,LOCATION_MZONE)
+		and Duel.IsExistingMatchingCard(c66104644.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_EXTRA+LOCATION_PZONE)
+end
+function c66104644.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.GetLocationCountFromEx(tp)<1 or Duel.GetLocationCount(tp,LOCATION_MZONE)<1
+		or Duel.GetUsableMZoneCount(tp)<1 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c66104644.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP)
+		Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP)
+		Duel.SpecialSummonComplete()
+		g:AddCard(c)
+		for tc in aux.Next(g) do
+			tc:AddCounter(0x1,1)
+		end
+	end
+end
+function c66104644.countertg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanAddCounter(0x1,1) end
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0)
+end
+function c66104644.counterop2(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():AddCounter(0x1,1)
+end
+function c66104644.spcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==1-tp
+end
+function c66104644.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,3,REASON_COST) end
+	Duel.RemoveCounter(tp,1,0,0x1,3,REASON_COST)
+end
+function c66104644.spfilter2(c,e,tp)
+	return c:IsCanAddCounter(0x1,1,false,LOCATION_MZONE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c66104644.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c66104644.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c66104644.spop2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tc=Duel.SelectMatchingCard(tp,c66104644.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c66104644.pencon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
+end
+function c66104644.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
+end
+function c66104644.penop(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if c:IsRelateToEffect(e) and Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+		and ct>0 then
+		c:AddCounter(0x1,ct)
+	end
+end
+function c66104644.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetLabelObject():SetLabel(e:GetHandler():GetCounter(0x1))
+end

c91336701.lua

+--魔導耀士 デイブレイカー
+function c91336701.initial_effect(c)
+	c:EnableCounterPermit(0x1)
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_SPELLCASTER),2,2)
+	--counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(91336701,0))
+	e1:SetCategory(CATEGORY_COUNTER)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(c91336701.ctcon1)
+	e1:SetTarget(c91336701.cttg)
+	e1:SetOperation(c91336701.ctop)
+	c:RegisterEffect(e1)
+	--counter
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(91336701,1))
+	e2:SetCategory(CATEGORY_COUNTER)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,91336701)
+	e2:SetCondition(c91336701.ctcon2)
+	e2:SetTarget(c91336701.cttg)
+	e2:SetOperation(c91336701.ctop)
+	c:RegisterEffect(e2)
+	--attackup
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_UPDATE_ATTACK)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetValue(c91336701.atkval)
+	c:RegisterEffect(e3)
+	--destroy
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(91336701,2))
+	e4:SetCategory(CATEGORY_DESTROY)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1,91336702)
+	e4:SetCost(c91336701.descost)
+	e4:SetTarget(c91336701.destg)
+	e4:SetOperation(c91336701.desop)
+	c:RegisterEffect(e4)
+end
+function c91336701.ctcon1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c91336701.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1)
+end
+function c91336701.ctop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		e:GetHandler():AddCounter(0x1,1)
+	end
+end
+function c91336701.cfilter(c,g)
+	return c:IsFaceup() and g:IsContains(c) and c:IsRace(RACE_SPELLCASTER)
+end
+function c91336701.ctcon2(e,tp,eg,ep,ev,re,r,rp)
+	local lg=e:GetHandler():GetLinkedGroup()
+	return lg and eg:IsExists(c91336701.cfilter,1,nil,lg)
+end
+function c91336701.atkval(e,c)
+	return c:GetCounter(0x1)*300
+end
+function c91336701.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,2,REASON_COST) end
+	e:GetHandler():RemoveCounter(tp,0x1,2,REASON_COST)
+end
+function c91336701.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c91336701.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

c92559258.lua

+--サーヴァント・オブ・エンディミオン
+function c92559258.initial_effect(c)
+	--Pendulum Summon
+	c:EnableCounterPermit(0x1,LOCATION_PZONE+LOCATION_MZONE)
+	aux.EnablePendulumAttribute(c)
+	c:SetSPSummonOnce(92559258)
+	--Add Counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetOperation(aux.chainreg)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e2:SetCode(EVENT_CHAIN_SOLVED)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetOperation(c92559258.counterop)
+	c:RegisterEffect(e2)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(92559258,0))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_PZONE)
+	e3:SetCost(c92559258.spcost)
+	e3:SetTarget(c92559258.sptg)
+	e3:SetOperation(c92559258.spop)
+	c:RegisterEffect(e3)
+	--direct attack
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_DIRECT_ATTACK)
+	e4:SetCondition(c92559258.dacon)
+	c:RegisterEffect(e4)
+	--add counter
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(66104644,2))
+	e5:SetType(EFFECT_TYPE_QUICK_O)
+	e5:SetCode(EVENT_FREE_CHAIN)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetCountLimit(1)
+	e5:SetHintTiming(0,TIMING_END_PHASE)
+	e5:SetCondition(c92559258.countercon2)
+	e5:SetCost(c92559258.countercost2)
+	e5:SetTarget(c92559258.countertg2)
+	e5:SetOperation(c92559258.counterop2)
+	c:RegisterEffect(e5)
+	--pendulum set
+	local e6=Effect.CreateEffect(c)
+	e6:SetDescription(aux.Stringid(92559258,1))
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e6:SetProperty(EFFECT_FLAG_DELAY)
+	e6:SetCode(EVENT_DESTROYED)
+	e6:SetCondition(c92559258.pencon)
+	e6:SetTarget(c92559258.pentg)
+	e6:SetOperation(c92559258.penop)
+	c:RegisterEffect(e6)
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e7:SetCode(EVENT_LEAVE_FIELD_P)
+	e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e7:SetOperation(c92559258.regop)
+	e7:SetLabelObject(e6)
+	c:RegisterEffect(e7)
+end
+function c92559258.counterop(e,tp,eg,ep,ev,re,r,rp)
+	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then
+		e:GetHandler():AddCounter(0x1,1)
+	end
+end
+function c92559258.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end
+	e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST)
+end
+function c92559258.spfilter(c,e,tp)
+	return c:IsAttackAbove(1000) and c:IsCanAddCounter(0x1,1,false,LOCATION_MZONE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c92559258.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=2 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanAddCounter(0x1,1,false,LOCATION_MZONE)
+		and Duel.IsExistingMatchingCard(c92559258.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK+LOCATION_PZONE)
+end
+function c92559258.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c92559258.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		g:AddCard(c)
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		for tc in aux.Next(g) do
+			tc:AddCounter(0x1,1)
+		end
+	end
+end
+function c92559258.dacon(e)
+	return e:GetHandler():GetCounter(0x1)>0
+end
+function c92559258.countercon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==1-tp
+end
+function c92559258.countercost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c92559258.countertg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsCanAddCounter(0x1,1)
+		and Duel.IsExistingMatchingCard(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,1,c,0x1,1) end
+	local g=Duel.GetMatchingGroup(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,c,0x1,1)
+	g:AddCard(c)
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,#g,0,0)
+end
+function c92559258.counterop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,c,0x1,1)
+	if c:IsRelateToEffect(e) then g:AddCard(c) end
+	for tc in aux.Next(g) do
+		if tc:IsCanAddCounter(0x1,1) then
+			tc:AddCounter(0x1,1)
+		end
+	end
+end
+function c92559258.pencon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
+end
+function c92559258.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
+end
+function c92559258.penop(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if c:IsRelateToEffect(e) and Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+		and ct>0 then
+		c:AddCounter(0x1,ct)
+	end
+end
+function c92559258.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetLabelObject():SetLabel(e:GetHandler():GetCounter(0x1))
+end