风族相关脚本修改

script/c100211003.lua

@@ -30,9 +30,9 @@ function s.rfilter(c,tp)
 end
 function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return Duel.CheckReleaseGroup(tp,s.rfilter,1,c,1,tp) end
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,s.rfilter,1,c,1,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectReleaseGroup(tp,s.rfilter,1,1,c,tp)
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,s.rfilter,1,1,c,tp)
 	Duel.Release(g,REASON_COST)
 end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)

script/c100211098.lua

@@ -53,9 +53,9 @@ function s.costfilter(c)
 	return c:IsType(TYPE_MONSTER)
 end
 function s.discost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,s.costfilter,1,nil) end
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,s.costfilter,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectReleaseGroup(tp,s.costfilter,1,1,nil)
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,s.costfilter,1,1,nil)
 	Duel.Release(g,REASON_COST)
 end
 function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)

script/c100211124.lua

@@ -7,11 +7,11 @@ function s.initial_effect(c)
 	--cannot release(uncompleted)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_UNRELEASABLE_NONSUM)
+	e1:SetCode(EFFECT_CANNOT_RELEASE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	e1:SetTargetRange(0xff,0xff)
-	e1:SetValue(s.limval)
+	e1:SetTargetRange(1,1)
+	e1:SetTarget(s.rellimit)
 	c:RegisterEffect(e1)
 	--tohand/extra & summon bonus
 	local e2=Effect.CreateEffect(c)
@@ -37,8 +37,8 @@ function s.initial_effect(c)
 	e3:SetOperation(s.rmop)
 	c:RegisterEffect(e3)
 end
-function s.limval(e,c,tp,re)
-	return re and re:IsActivated() and c:IsReason(REASON_COST)
+function s.rellimit(e,c,tp,r)
+	return r&REASON_COST~=0
 end
 function s.bfilter(c)
 	return c:IsSetCard(0xb5) and c:IsFaceup() and c:IsAbleToHand()

script/c100212005.lua

@@ -48,8 +48,8 @@ function c100212005.cfilter(c,tp)
 		and (c:IsFaceup() or c:IsControler(tp))
 end
 function c100212005.pspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c100212005.cfilter,1,nil,tp) end
-	local g=Duel.SelectReleaseGroup(tp,c100212005.cfilter,1,1,nil,tp)
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,c100212005.cfilter,1,nil,tp) end
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,c100212005.cfilter,1,1,nil,tp)
 	Duel.Release(g,REASON_COST)
 end
 function c100212005.psptg(e,tp,eg,ep,ev,re,r,rp,chk)

script/c101203050.lua

@@ -90,8 +90,8 @@ function s.cfilter(c,g)
 end
 function s.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local lg=e:GetHandler():GetLinkedGroup()
-	if chk==0 then return Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,lg) end
-	local g=Duel.SelectReleaseGroup(tp,s.cfilter,1,1,nil,lg)
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,s.cfilter,1,nil,lg) end
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,s.cfilter,1,1,nil,lg)
 	Duel.Release(g,REASON_COST)
 end
 function s.rmfilter(c,e,tp)

script/c101203069.lua

@@ -27,10 +27,10 @@ function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:SetLabel(0)
 	local res=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp)
-	if Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,tp)
+	if Duel.CheckReleaseGroup(REASON_COST,tp,s.cfilter,1,nil,tp)
 		and (not res or Duel.SelectYesNo(tp,aux.Stringid(id,1))) then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-		local g=Duel.SelectReleaseGroup(tp,s.cfilter,1,1,nil,tp)
+		local g=Duel.SelectReleaseGroup(REASON_COST,tp,s.cfilter,1,1,nil,tp)
 		Duel.Release(g,REASON_COST)
 		e:SetLabel(LOCATION_DECK)
 	end
@@ -38,7 +38,7 @@ end
 function s.target(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+LOCATION_HAND,0,1,nil,e,tp)
-		or e:IsCostChecked() and e:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,tp)
+		or e:IsCostChecked() and e:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.CheckReleaseGroup(REASON_COST,tp,s.cfilter,1,nil,tp)
 			and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)) end
 	if not e:IsCostChecked() then e:SetLabel(0) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND+e:GetLabel())

script/c101203070.lua

@@ -30,9 +30,9 @@ function c101203070.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		if e:GetLabel()~=100 then return false end
 		e:SetLabel(0)
-		return ft>-1 and Duel.CheckReleaseGroup(tp,c101203070.filter1,1,nil,e,tp,ft)
+		return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c101203070.filter1,1,nil,e,tp,ft)
 	end
-	local rg=Duel.SelectReleaseGroup(tp,c101203070.filter1,1,1,nil,e,tp,ft)
+	local rg=Duel.SelectReleaseGroup(REASON_COST,tp,c101203070.filter1,1,1,nil,e,tp,ft)
 	e:SetLabel(rg:GetFirst():GetLevel())
 	Duel.Release(rg,REASON_COST)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)

script/c101204055.lua

@@ -85,9 +85,9 @@ function c101204055.activate(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c101204055.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil,tp) end
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,nil,1,nil,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectReleaseGroup(tp,nil,1,1,nil,tp)
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,nil,1,1,nil,tp)
 	Duel.Release(g,REASON_COST)
 end
 function c101204055.drtg(e,tp,eg,ep,ev,re,r,rp,chk)

script/c12766474.lua

---影王デュークシェード
-function c12766474.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(12766474,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,12766474)
-	e1:SetCost(c12766474.spcost)
-	e1:SetTarget(c12766474.sptg)
-	e1:SetOperation(c12766474.spop)
-	c:RegisterEffect(e1)
-	--to hand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(12766474,1))
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetCountLimit(1,12766475)
-	e2:SetCost(c12766474.thcost)
-	e2:SetTarget(c12766474.thtg)
-	e2:SetOperation(c12766474.thop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	Duel.AddCustomActivityCounter(12766474,ACTIVITY_SPSUMMON,c12766474.counterfilter)
-end
-function c12766474.counterfilter(c)
-	return c:IsAttribute(ATTRIBUTE_DARK)
-end
-function c12766474.relfilter(c,g)
-	return g:IsContains(c)
-end
-function c12766474.rfilter(c)
-	return c:IsReleasable() and c:IsAttribute(ATTRIBUTE_DARK)
-end
-function c12766474.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c12766474.rfilter,nil)
-	if chk==0 then return Duel.GetCustomActivityCount(12766474,tp,ACTIVITY_SPSUMMON)==0
-		and rg:CheckSubGroup(aux.mzctcheckrel,1,#rg,tp) 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(c12766474.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-	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 c12766474.splimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return not c:IsAttribute(ATTRIBUTE_DARK)
-end
-function c12766474.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c12766474.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
-		local ct=e:GetLabel()
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(ct*500)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-		c:RegisterEffect(e1)
-	end
-	Duel.SpecialSummonComplete()
-end
-function c12766474.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetCustomActivityCount(12766474,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(c12766474.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c12766474.thfilter(c)
-	return c:IsLevelAbove(5) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand()
-end
-function c12766474.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c12766474.thfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c12766474.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectTarget(tp,c12766474.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-end
-function c12766474.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tc)
-	end
-end

script/c15717011.lua

---融合呪印生物－光
-function c15717011.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetDescription(aux.Stringid(15717011,0))
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCost(c15717011.cost)
-	e1:SetTarget(c15717011.target)
-	e1:SetOperation(c15717011.operation)
-	c:RegisterEffect(e1)
-	--fusion substitute
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_FUSION_SUBSTITUTE)
-	e2:SetCondition(c15717011.subcon)
-	c:RegisterEffect(e2)
-end
-function c15717011.subcon(e)
-	return e:GetHandler():IsLocation(LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE)
-end
-function c15717011.filter(c,e,tp,m,gc,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_LIGHT)
-		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
-end
-function c15717011.mfilter(c,tp)
-	return c:IsReleasable() and c:IsLocation(LOCATION_MZONE) and c:IsCanBeFusionMaterial() and (c:IsControler(tp) or c:IsFaceup())
-end
-function c15717011.fcheck(tp,sg,fc)
-	return Duel.CheckReleaseGroup(tp,aux.IsInGroup,#sg,nil,sg)
-end
-function c15717011.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local mg=Duel.GetReleaseGroup(tp):Filter(c15717011.mfilter,nil,tp)
-	local chkf=tp+0x100
-	if chk==0 then
-		aux.FCheckAdditional=c15717011.fcheck
-		if c59160188 then c59160188.re_activated=true end
-		local res=Duel.IsExistingMatchingCard(c15717011.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,c,chkf)
-		aux.FCheckAdditional=nil
-		if c59160188 then c59160188.re_activated=false end
-		return res
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	aux.FCheckAdditional=c15717011.fcheck
-	if c59160188 then c59160188.re_activated=true end
-	local g=Duel.SelectMatchingCard(tp,c15717011.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,mg,c,chkf)
-	local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c,chkf)
-	aux.FCheckAdditional=nil
-	if c59160188 then c59160188.re_activated=false end
-	aux.UseExtraReleaseCount(mat,tp)
-	Duel.Release(mat,REASON_COST)
-	e:SetLabel(g:GetFirst():GetCode())
-end
-function c15717011.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:IsCostChecked() end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c15717011.filter2(c,e,tp,code)
-	return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c15717011.operation(e,tp,eg,ep,ev,re,r,rp)
-	local code=e:GetLabel()
-	local tc=Duel.GetFirstMatchingCard(c15717011.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,code)
-	if tc then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c17197110.lua

---氷結界に至る晴嵐
-function c17197110.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(17197110,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,17197110)
-	e1:SetCost(c17197110.cost)
-	e1:SetTarget(c17197110.target)
-	e1:SetOperation(c17197110.activate)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(17197110,1))
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,17197111)
-	e2:SetCondition(aux.exccon)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c17197110.thtg)
-	e2:SetOperation(c17197110.thop)
-	c:RegisterEffect(e2)
-end
-function c17197110.rfilter(c,tp)
-	return c:IsReleasable() and c:IsSetCard(0x2f) and c:IsType(TYPE_MONSTER) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c17197110.spfilter(c,e,tp)
-	return c:IsSetCard(0x2f) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c17197110.fselect(g,tp)
-	return Duel.GetMZoneCount(tp,g)>=g:GetCount() and Duel.CheckReleaseGroup(tp,aux.IsInGroup,#g,nil,g)
-end
-function c17197110.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(100)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c17197110.rfilter,nil,tp)
-	local sg=Duel.GetMatchingGroup(c17197110.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
-	local ft=Duel.IsPlayerAffectedByEffect(tp,59822133) and 1 or 5
-	local maxc=math.min(ft,rg:GetCount(),(Duel.GetMZoneCount(tp,rg)),sg:GetClassCount(Card.GetCode))
-	if chk==0 then return maxc>0 and rg:CheckSubGroup(c17197110.fselect,1,maxc,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,c17197110.fselect,false,1,maxc,tp)
-	e:SetLabel(g:GetCount())
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c17197110.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetLabel()==100 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,e:GetLabel(),tp,LOCATION_DECK)
-end
-function c17197110.activate(e,tp,eg,ep,ev,re,r,rp)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if ft>0 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
-	local ct=e:GetLabel()
-	if ft<ct or ft<=0 then return end
-	local g=Duel.GetMatchingGroup(c17197110.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg=g:SelectSubGroup(tp,aux.dncheck,false,ct,ct)
-	if sg then
-		Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c17197110.thfilter(c)
-	return c:IsSetCard(0x2f) and c:IsType(TYPE_MONSTER) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsAbleToHand()
-end
-function c17197110.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and c17197110.thfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c17197110.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local sg=Duel.SelectTarget(tp,c17197110.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0)
-end
-function c17197110.thop(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

script/c23969415.lua

---超越進化薬β
-local s,id,o=GetID()
-function s.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(id,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(s.target)
-	e1:SetOperation(s.activate)
-	c:RegisterEffect(e1)
-end
-function s.costfilter(c,tp)
-	return c:IsReleasable() and (c:IsControler(tp) or c:IsFaceup())
-end
-function s.gcheck(g,e,tp)
-	return g:IsExists(Card.IsRace,1,nil,RACE_DINOSAUR)
-		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp,g,g:GetSum(Card.GetAttack))
-end
-function s.spfilter(c,e,tp,g,atk)
-	local check=false
-	if c:IsLocation(LOCATION_DECK) then
-		check=Duel.GetMZoneCount(tp,g)>0
-	elseif c:IsLocation(LOCATION_EXTRA) then
-		check=Duel.GetLocationCountFromEx(tp,tp,g,c)>0
-	end
-	return check and c:IsLevelAbove(5) and c:IsRace(RACE_DINOSAUR) and c:IsAttackAbove(atk)
-		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp,true):Filter(s.costfilter,nil,tp)
-	if chk==0 then return e:IsCostChecked()
-		and g:CheckSubGroup(s.gcheck,2,2,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local sg=g:SelectSubGroup(tp,s.gcheck,false,2,2,e,tp)
-	local atk=sg:GetSum(Card.GetAttack)
-	Duel.Release(sg,REASON_COST)
-	e:SetLabel(atk)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
-end
-function s.activate(e,tp,eg,ep,ev,re,r,rp)
-	local atk=e:GetLabel()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil,e,tp,nil,atk)
-	if #g>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-		e1:SetTargetRange(1,0)
-		e1:SetTarget(s.splimit)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
-function s.splimit(e,c)
-	return not c:IsRace(RACE_DRAGON+RACE_DINOSAUR+RACE_SEASERPENT+RACE_WYRM) and c:IsLocation(LOCATION_EXTRA)
-end

script/c26866984.lua

---トリアス・ヒエラルキア
-function c26866984.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(26866984,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
-	e1:SetCountLimit(1,26866984)
-	e1:SetCondition(c26866984.spcon)
-	e1:SetCost(c26866984.spcost)
-	e1:SetTarget(c26866984.sptg)
-	e1:SetOperation(c26866984.spop)
-	c:RegisterEffect(e1)
-end
-function c26866984.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
-end
-function c26866984.cfilter(c,tp)
-	return c:IsReleasable() and c:IsRace(RACE_FAIRY) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c26866984.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c26866984.cfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,1,3,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,1,3,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	e:SetLabel(Duel.Release(g,REASON_COST))
-end
-function c26866984.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	local ct=e:GetLabel()
-	local cat=CATEGORY_SPECIAL_SUMMON
-	if ct==3 then
-		cat=cat+CATEGORY_DRAW
-		Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
-	end
-	e:SetCategory(cat)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c26866984.spop(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 e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-		e1:SetValue(LOCATION_REMOVED)
-		e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e1,true)
-		local ct=e:GetLabel()
-		local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
-		if (ct>=2 and g:GetCount()>0) or ct==3 then
-			if ct>=2 and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(26866984,1)) then
-				Duel.BreakEffect()
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-				local dg=g:Select(tp,1,1,nil)
-				Duel.HintSelection(dg)
-				Duel.Destroy(dg,REASON_EFFECT)
-			end
-			if ct==3 and Duel.IsPlayerCanDraw(tp,2) and Duel.SelectYesNo(tp,aux.Stringid(26866984,2)) then
-				Duel.BreakEffect()
-				Duel.Draw(tp,2,REASON_EFFECT)
-			end
-		end
-	end
-end

script/c27198001.lua

---九尾の狐
-function c27198001.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE+LOCATION_HAND)
-	e1:SetCountLimit(1,27198001)
-	e1:SetCost(c27198001.spcost)
-	e1:SetTarget(c27198001.sptg)
-	e1:SetOperation(c27198001.spop)
-	c:RegisterEffect(e1)
-	--pierce
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_PIERCE)
-	e2:SetCondition(c27198001.pcon)
-	c:RegisterEffect(e2)
-	--token
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetCondition(c27198001.condition)
-	e3:SetTarget(c27198001.target)
-	e3:SetOperation(c27198001.operation)
-	c:RegisterEffect(e3)
-end
-function c27198001.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c27198001.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c27198001.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c27198001.pcon(e)
-	return e:GetHandler():IsSummonLocation(LOCATION_GRAVE)
-end
-function c27198001.condition(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT)
-end
-function c27198001.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanSpecialSummonMonster(tp,27198002,0,TYPES_TOKEN_MONSTER,500,500,2,RACE_ZOMBIE,ATTRIBUTE_FIRE)
-		and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
-		and not Duel.IsPlayerAffectedByEffect(tp,59822133) end
-	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0)
-end
-function c27198001.operation(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1
-		or Duel.IsPlayerAffectedByEffect(tp,59822133)
-		or not Duel.IsPlayerCanSpecialSummonMonster(tp,27198002,0,TYPES_TOKEN_MONSTER,500,500,2,RACE_ZOMBIE,ATTRIBUTE_FIRE) then return end
-	for i=1,2 do
-		local token=Duel.CreateToken(tp,27198002)
-		Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
-	end
-	Duel.SpecialSummonComplete()
-end

script/c27693363.lua

---ベアルクティ－ポラリィ
-function c27693363.initial_effect(c)
-	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)
-	c:RegisterEffect(e1)
-	--special summon rule
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_SPSUMMON_PROC)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetRange(LOCATION_EXTRA)
-	e2:SetCondition(c27693363.sprcon)
-	e2:SetOperation(c27693363.sprop)
-	c:RegisterEffect(e2)
-	--activate card
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(27693363,0))
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCountLimit(1,27693363)
-	e3:SetTarget(c27693363.acttg)
-	e3:SetOperation(c27693363.actop)
-	c:RegisterEffect(e3)
-	--to hand/spsummon
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(27693363,1))
-	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_ACTION+CATEGORY_GRAVE_SPSUMMON)
-	e4:SetType(EFFECT_TYPE_IGNITION)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1,27693364)
-	e4:SetCost(c27693363.thcost)
-	e4:SetTarget(c27693363.thtg)
-	e4:SetOperation(c27693363.thop)
-	c:RegisterEffect(e4)
-end
-function c27693363.tgrfilter(c)
-	return c:IsFaceup() and c:IsLevelAbove(1) and c:IsAbleToGraveAsCost()
-end
-function c27693363.mnfilter(c,g)
-	return g:IsExists(c27693363.mnfilter2,1,c,c)
-end
-function c27693363.mnfilter2(c,mc)
-	return c:GetLevel()-mc:GetLevel()==1
-end
-function c27693363.fselect(g,tp,sc)
-	return g:GetCount()==2
-		and g:IsExists(Card.IsType,1,nil,TYPE_TUNER) and g:IsExists(aux.NOT(Card.IsType),1,nil,TYPE_TUNER)
-		and g:IsExists(c27693363.mnfilter,1,nil,g)
-		and Duel.GetLocationCountFromEx(tp,tp,g,sc)>0
-end
-function c27693363.sprcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local g=Duel.GetMatchingGroup(c27693363.tgrfilter,tp,LOCATION_MZONE,0,nil)
-	return g:CheckSubGroup(c27693363.fselect,2,2,tp,c)
-end
-function c27693363.sprop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.GetMatchingGroup(c27693363.tgrfilter,tp,LOCATION_MZONE,0,nil)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local tg=g:SelectSubGroup(tp,c27693363.fselect,false,2,2,tp,c)
-	Duel.SendtoGrave(tg,REASON_COST)
-end
-function c27693363.actfilter(c,tp)
-	return c:IsCode(89264428) and c:GetActivateEffect():IsActivatable(tp,true,true)
-end
-function c27693363.acttg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c27693363.actfilter,tp,LOCATION_DECK,0,1,nil,tp) end
-end
-function c27693363.actop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
-	local g=Duel.SelectMatchingCard(tp,c27693363.actfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
-	local tc=g:GetFirst()
-	if tc then
-		local te=tc:GetActivateEffect()
-		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
-		if fc then
-			Duel.SendtoGrave(fc,REASON_RULE)
-			Duel.BreakEffect()
-		end
-		Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
-		te:UseCountLimit(tp,1,true)
-		local tep=tc:GetControler()
-		local cost=te:GetCost()
-		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
-		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
-	end
-end
-function c27693363.rfilter(c,tp)
-	return c:IsReleasable() and c:IsLevelAbove(7) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c27693363.excostfilter(c,tp)
-	return c:IsAbleToRemove() and (c:IsHasEffect(16471775,tp) or c:IsHasEffect(89264428,tp))
-end
-function c27693363.costfilter(c,e,tp)
-	local check=Duel.GetMZoneCount(tp,c)>0
-	return Duel.IsExistingMatchingCard(c27693363.tgfilter,tp,LOCATION_GRAVE,0,1,c,e,tp,check)
-end
-function c27693363.tgfilter(c,e,tp,check)
-	return c:IsSetCard(0x163) and c:IsType(TYPE_MONSTER)
-		and (c:IsAbleToHand() or check and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
-end
-function c27693363.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g1=Duel.GetReleaseGroup(tp):Filter(c27693363.rfilter,nil,tp)
-	local g2=Duel.GetMatchingGroup(c27693363.excostfilter,tp,LOCATION_GRAVE,0,nil,tp)
-	g1:Merge(g2)
-	if chk==0 then return g1:IsExists(c27693363.costfilter,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g1:FilterSelect(tp,c27693363.costfilter,1,1,nil,e,tp)
-	local tc=rg:GetFirst()
-	local te=tc:IsHasEffect(16471775,tp) or tc:IsHasEffect(89264428,tp)
-	if te then
-		te:UseCountLimit(tp)
-		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
-	else
-		aux.UseExtraReleaseCount(rg,tp)
-		Duel.Release(tc,REASON_COST)
-	end
-end
-function c27693363.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c27693363.tgfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,true) end
-end
-function c27693363.thop(e,tp,eg,ep,ev,re,r,rp)
-	local check=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c27693363.tgfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp,check)
-	local tc=g:GetFirst()
-	if tc then
-		if tc:IsAbleToHand() and (not tc:IsCanBeSpecialSummoned(e,0,tp,false,false) or not check
-			or Duel.SelectOption(tp,1190,1152)==0) then
-			Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		else
-			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-		end
-	end
-end

script/c34419588.lua

---クリベー
-function c34419588.initial_effect(c)
-	aux.AddCodeList(c,40640057)
-	--atkup
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(34419588,0))
-	e1:SetCategory(CATEGORY_ATKCHANGE)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetHintTiming(TIMING_DAMAGE_STEP)
-	e1:SetCondition(aux.dscon)
-	e1:SetCost(c34419588.atkcost)
-	e1:SetTarget(c34419588.atktg)
-	e1:SetOperation(c34419588.atkop)
-	c:RegisterEffect(e1)
-	--tohand
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(34419588,1))
-	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SUMMON)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCost(c34419588.thcost)
-	e3:SetTarget(c34419588.thtg)
-	e3:SetOperation(c34419588.thop)
-	c:RegisterEffect(e3)
-end
-c34419588.spchecks=aux.CreateChecks(Card.IsCode,{44632120,71036835,7021574,40640057})
-function c34419588.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
-end
-function c34419588.atkfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0xa4)
-end
-function c34419588.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c34419588.atkfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c34419588.atkfilter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c34419588.atkfilter,tp,LOCATION_MZONE,0,1,1,nil)
-end
-function c34419588.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(1500)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)
-	end
-end
-function c34419588.rlfilter(c,tp)
-	return c:IsReleasable() and (c:IsCode(44632120,71036835,7021574,40640057) and (c:IsControler(tp) or c:IsFaceup()))
-end
-function c34419588.rlcheck(sg,c,tp)
-	local g=sg:Clone()
-	g:AddCard(c)
-	return Duel.GetMZoneCount(tp,g)>0 and Duel.CheckReleaseGroupEx(tp,aux.IsInGroup,#g,nil,g)
-end
-function c34419588.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local g=Duel.GetReleaseGroup(tp,true):Filter(c34419588.rlfilter,c,tp)
-	if chk==0 then return c:IsReleasable() and g:CheckSubGroupEach(c34419588.spchecks,c34419588.rlcheck,c,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroupEach(tp,c34419588.spchecks,false,c34419588.rlcheck,c,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	rg:AddCard(c)
-	Duel.Release(rg,REASON_COST)
-end
-function c34419588.thfilter(c)
-	return c:IsCode(16404809) and c:IsAbleToHand()
-end
-function c34419588.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c34419588.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function c34419588.sumfilter(c)
-	return c:IsSummonable(true,nil) and c:IsRace(RACE_FIEND)
-end
-function c34419588.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c34419588.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
-		Duel.ConfirmCards(1-tp,g)
-		if Duel.IsExistingMatchingCard(c34419588.sumfilter,tp,LOCATION_HAND,0,1,nil)
-			and Duel.SelectYesNo(tp,aux.Stringid(34419588,2)) then
-			Duel.BreakEffect()
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-			local sg=Duel.SelectMatchingCard(tp,c34419588.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
-			if sg:GetCount()>0 then
-				local tc=sg:GetFirst()
-				Duel.Summon(tp,tc,true,nil)
-			end
-		end
-	end
-end

script/c37799519.lua

---スターダスト・シンクロン
-function c37799519.initial_effect(c)
-	aux.AddCodeList(c,44508094)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(37799519,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,37799519)
-	e1:SetCost(c37799519.spcost)
-	e1:SetTarget(c37799519.sptg)
-	e1:SetOperation(c37799519.spop)
-	c:RegisterEffect(e1)
-	--to hand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(37799519,1))
-	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,37799520)
-	e2:SetTarget(c37799519.thtg)
-	e2:SetOperation(c37799519.thop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-end
-function c37799519.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return g:CheckSubGroup(aux.mzctcheckrel,1,1,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,1,1,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c37799519.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c37799519.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
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetTargetRange(1,0)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	e2:SetTarget(c37799519.splimit)
-	Duel.RegisterEffect(e2,tp)
-end
-function c37799519.splimit(e,c)
-	return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
-end
-function c37799519.thfilter(c)
-	return aux.IsCodeListed(c,44508094) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
-end
-function c37799519.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c37799519.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c37799519.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c37799519.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

script/c4059313.lua

---ゴッド・ブレイズ・キャノン
-function c4059313.initial_effect(c)
-	aux.AddCodeList(c,10000010)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
-	e1:SetTarget(c4059313.target)
-	e1:SetOperation(c4059313.activate)
-	c:RegisterEffect(e1)
-end
-function c4059313.filter(c)
-	return c:IsFaceup() and c:IsCode(10000010) and c:GetFlagEffect(4059313)==0
-end
-function c4059313.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c4059313.filter,tp,LOCATION_MZONE,0,1,nil) end
-end
-function c4059313.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
-	local g=Duel.SelectMatchingCard(tp,c4059313.filter,tp,LOCATION_MZONE,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.HintSelection(g)
-		local e1=Effect.CreateEffect(tc)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_IMMUNE_EFFECT)
-		e1:SetValue(c4059313.efilter)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(tc)
-		e2:SetCategory(CATEGORY_ATKCHANGE)
-		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-		e2:SetCode(EVENT_ATTACK_ANNOUNCE)
-		e2:SetRange(LOCATION_MZONE)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		e2:SetCondition(c4059313.atkcon)
-		e2:SetCost(c4059313.atkcost)
-		e2:SetTarget(c4059313.atktg)
-		e2:SetOperation(c4059313.atkop)
-		tc:RegisterEffect(e2)
-		local e3=Effect.CreateEffect(tc)
-		e3:SetCategory(CATEGORY_TOGRAVE)
-		e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-		e3:SetCode(EVENT_BATTLED)
-		e3:SetRange(LOCATION_MZONE)
-		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		e3:SetCondition(c4059313.tgcon)
-		e3:SetTarget(c4059313.tgtg)
-		e3:SetOperation(c4059313.tgop)
-		tc:RegisterEffect(e3)
-		if not tc:IsType(TYPE_EFFECT) then
-			local e4=Effect.CreateEffect(e:GetHandler())
-			e4:SetType(EFFECT_TYPE_SINGLE)
-			e4:SetCode(EFFECT_ADD_TYPE)
-			e4:SetValue(TYPE_EFFECT)
-			e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e4)
-		end
-		tc:RegisterFlagEffect(4059313,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(4059313,0))
-	end
-end
-function c4059313.efilter(e,re)
-	return e:GetHandlerPlayer()~=re:GetOwnerPlayer()
-end
-function c4059313.atkcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return (Duel.GetAttacker()==c or Duel.GetAttackTarget()==c)
-end
-function c4059313.atkfilter(c,tp)
-	return c:IsReleasable() and c:GetAttackAnnouncedCount()==0 and c:GetTextAttack()>0 and (c:IsControler(tp) or c:IsFaceup())
-end
-function c4059313.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(100,0)
-	local g=Duel.GetReleaseGroup(tp):Filter(c4059313.atkfilter,e:GetHandler(),tp)
-	if chk==0 then return g:GetCount()>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:Select(tp,1,g:GetCount(),nil)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-	local atk=rg:GetSum(Card.GetTextAttack)
-	e:SetLabel(100,atk)
-end
-function c4059313.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local label,atk=e:GetLabel()
-	if chk==0 then
-		e:SetLabel(0,0)
-		if label~=100 then return false end
-		return true
-	end
-	e:SetLabel(0,0)
-	Duel.SetTargetParam(atk)
-end
-function c4059313.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsFaceup() and c:IsRelateToEffect(e) then
-		local atk=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-		e1:SetRange(LOCATION_MZONE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(atk)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
-		c:RegisterEffect(e1)
-	end
-end
-function c4059313.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetAttacker()==e:GetHandler()
-end
-function c4059313.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_MZONE,nil)
-	if chk==0 then return g:GetCount()>0 end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
-end
-function c4059313.tgop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_MZONE,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoGrave(g,REASON_EFFECT)
-	end
-end

script/c41002238.lua

---カイザー・グライダー－ゴールデン・バースト
-function c41002238.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(41002238,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCountLimit(1,41002238)
-	e1:SetCost(c41002238.spcost)
-	e1:SetTarget(c41002238.sptg)
-	e1:SetOperation(c41002238.spop)
-	c:RegisterEffect(e1)
-	--atk change
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(41002238,1))
-	e2:SetCategory(CATEGORY_ATKCHANGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetTarget(c41002238.atktg)
-	e2:SetOperation(c41002238.atkop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-end
-function c41002238.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return g:CheckSubGroup(aux.mzctcheckrel,1,1,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,1,1,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c41002238.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c41002238.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c41002238.filter(c,atk)
-	return c:IsFaceup() and not c:IsAttack(atk)
-end
-function c41002238.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local c=e:GetHandler()
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c41002238.filter(chkc,c:GetAttack()) end
-	if chk==0 then return c:IsRelateToEffect(e)
-		and Duel.IsExistingTarget(c41002238.filter,tp,0,LOCATION_MZONE,1,nil,c:GetAttack()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c41002238.filter,tp,0,LOCATION_MZONE,1,1,nil,c:GetAttack())
-end
-function c41002238.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
-		e1:SetValue(tc:GetAttack())
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
-		c:RegisterEffect(e1)
-	end
-end

script/c41329458.lua

---幻獣機グリーフィン
-function c41329458.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(41329458,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,41329458)
-	e1:SetCost(c41329458.spcost)
-	e1:SetTarget(c41329458.sptg)
-	e1:SetOperation(c41329458.spop)
-	c:RegisterEffect(e1)
-	--
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e2:SetCondition(c41329458.indcon)
-	e2:SetValue(1)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e3)
-	--token
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(41329458,1))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
-	e4:SetType(EFFECT_TYPE_IGNITION)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetCost(c41329458.spcost2)
-	e4:SetTarget(c41329458.sptg2)
-	e4:SetOperation(c41329458.spop2)
-	c:RegisterEffect(e4)
-end
-function c41329458.indcon(e)
-	return Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,TYPE_TOKEN)
-end
-function c41329458.rfilter(c,tp)
-	return c:IsReleasable() and c:IsSetCard(0x101b) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c41329458.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c41329458.rfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c41329458.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c41329458.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-end
-function c41329458.cfilter(c)
-	return c:IsSetCard(0x101b) and c:IsType(TYPE_MONSTER) and c:IsDiscardable()
-end
-function c41329458.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c41329458.cfilter,tp,LOCATION_HAND,0,1,nil) end
-	Duel.DiscardHand(tp,c41329458.cfilter,1,1,REASON_COST+REASON_DISCARD)
-end
-function c41329458.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,TYPES_TOKEN_MONSTER,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) end
-	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
-end
-function c41329458.spop2(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	if Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,TYPES_TOKEN_MONSTER,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then
-		local token=Duel.CreateToken(tp,41329459)
-		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c44097050.lua

---幻獣機アウローラドン
-function c44097050.initial_effect(c)
-	--link summon
-	c:EnableReviveLimit()
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_MACHINE),2)
-	--token
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(44097050,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCondition(c44097050.tkcon)
-	e1:SetTarget(c44097050.tktg)
-	e1:SetOperation(c44097050.tkop)
-	c:RegisterEffect(e1)
-	--release
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(44097050,1))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1)
-	e2:SetCost(c44097050.rlcost)
-	e2:SetTarget(c44097050.rltg)
-	e2:SetOperation(c44097050.rlop)
-	c:RegisterEffect(e2)
-end
-function c44097050.tkcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
-end
-function c44097050.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
-		and Duel.GetLocationCount(tp,LOCATION_MZONE)>2
-		and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,TYPES_TOKEN_MONSTER,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0)
-end
-function c44097050.tkop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
-		and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,TYPES_TOKEN_MONSTER,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then
-		local ct=3
-		while ct>0 do
-			local token=Duel.CreateToken(tp,44097051)
-			Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
-			ct=ct-1
-		end
-		Duel.SpecialSummonComplete()
-	end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(c44097050.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c44097050.splimit(e,c,tp,sumtp,sumpos)
-	return bit.band(sumtp,SUMMON_TYPE_LINK)==SUMMON_TYPE_LINK
-end
-function c44097050.costfilter(c,tp)
-	return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c)
-end
-function c44097050.spfilter(c,e,tp)
-	return c:IsSetCard(0x101b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c44097050.thfilter(c)
-	return c:IsType(TYPE_TRAP) and c:IsAbleToHand()
-end
-function c44097050.rlcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	local b1=Duel.CheckReleaseGroup(tp,c44097050.costfilter,1,nil,tp)
-	local b2=g:GetCount()>1 and g:CheckSubGroup(aux.mzctcheck,2,2,tp)
-		and Duel.IsExistingMatchingCard(c44097050.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
-	local b3=Duel.CheckReleaseGroup(tp,nil,3,nil) and Duel.IsExistingMatchingCard(c44097050.thfilter,tp,LOCATION_GRAVE,0,1,nil)
-	if chk==0 then return b1 or b2 or b3 end
-	local off=0
-	local ops={}
-	local opval={}
-	off=1
-	if b1 then
-		ops[off]=aux.Stringid(44097050,2)
-		opval[off-1]=1
-		off=off+1
-	end
-	if b2 then
-		ops[off]=aux.Stringid(44097050,3)
-		opval[off-1]=2
-		off=off+1
-	end
-	if b3 then
-		ops[off]=aux.Stringid(44097050,4)
-		opval[off-1]=3
-		off=off+1
-	end
-	local op=Duel.SelectOption(tp,table.unpack(ops))
-	e:SetLabel(opval[op])
-	local rg=nil
-	if opval[op]==1 then
-		rg=Duel.SelectReleaseGroup(tp,c44097050.costfilter,1,1,nil,tp)
-	elseif opval[op]==2 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-		rg=g:SelectSubGroup(tp,aux.mzctcheck,false,2,2,tp)
-		aux.UseExtraReleaseCount(rg,tp)
-	else
-		rg=Duel.SelectReleaseGroup(tp,nil,3,3,nil)
-	end
-	Duel.Release(rg,REASON_COST)
-end
-function c44097050.rltg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local sel=e:GetLabel()
-	local cat=0
-	if sel==1 then
-		local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-		e:SetCategory(bit.bor(cat,CATEGORY_DESTROY))
-		Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,1,0,0)
-	elseif sel==2 then
-		e:SetCategory(bit.bor(cat,CATEGORY_SPECIAL_SUMMON))
-		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-	else
-		e:SetCategory(bit.bor(cat,CATEGORY_TOHAND))
-		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
-	end
-end
-function c44097050.rlop(e,tp,eg,ep,ev,re,r,rp)
-	local sel=e:GetLabel()
-	if sel==1 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-		if g:GetCount()>0 then
-			Duel.HintSelection(g)
-			Duel.Destroy(g,REASON_EFFECT)
-		end
-	elseif sel==2 then
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,c44097050.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-		if g:GetCount()>0 then
-			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-		end
-	else
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c44097050.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
-		if g:GetCount()>0 then
-			Duel.SendtoHand(g,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,g)
-		end
-	end
-end

script/c44632120.lua

---クリバー
-function c44632120.initial_effect(c)
-	aux.AddCodeList(c,40640057)
-	--Destroyed
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(44632120,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_BATTLE_DESTROYED)
-	e1:SetCountLimit(1,44632120)
-	e1:SetTarget(c44632120.sptg)
-	e1:SetOperation(c44632120.spop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c44632120.spcon)
-	c:RegisterEffect(e2)
-	--Special Summon
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(44632120,1))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCost(c44632120.spcost2)
-	e3:SetTarget(c44632120.sptg2)
-	e3:SetOperation(c44632120.spop2)
-	c:RegisterEffect(e3)
-end
-c44632120.spchecks=aux.CreateChecks(Card.IsCode,{71036835,7021574,34419588,40640057})
-function c44632120.spfilter(c,e,tp)
-	return c:IsDefense(200) and c:IsAttack(300) and not c:IsCode(44632120) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c44632120.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c44632120.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c44632120.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,c44632120.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c44632120.cfilter(c,tp)
-	return c:IsControler(tp) and c:IsPreviousControler(tp) and c:IsPreviousSetCard(0xa4)
-end
-function c44632120.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c44632120.cfilter,1,nil,tp)
-end
-function c44632120.rlfilter(c,tp)
-	return c:IsReleasable() and c:IsCode(71036835,7021574,34419588,40640057) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c44632120.rlcheck(sg,c,tp)
-	local g=sg:Clone()
-	g:AddCard(c)
-	return Duel.GetMZoneCount(tp,g)>0 and Duel.CheckReleaseGroupEx(tp,aux.IsInGroup,#g,nil,g)
-end
-function c44632120.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local g=Duel.GetReleaseGroup(tp,true):Filter(c44632120.rlfilter,c,tp)
-	if chk==0 then return c:IsReleasable() and g:CheckSubGroupEach(c44632120.spchecks,c44632120.rlcheck,c,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroupEach(tp,c44632120.spchecks,false,c44632120.rlcheck,c,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	rg:AddCard(c)
-	Duel.Release(rg,REASON_COST)
-end
-function c44632120.spfilter2(c,e,tp)
-	return c:IsCode(70914287) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c44632120.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c44632120.spfilter2,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK)
-end
-function c44632120.spop2(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,aux.NecroValleyFilter(c44632120.spfilter2),tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c45898858.lua

---ボンディング－H2O
-function c45898858.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCost(c45898858.cost)
-	e1:SetTarget(c45898858.target)
-	e1:SetOperation(c45898858.activate)
-	c:RegisterEffect(e1)
-end
-c45898858.spchecks=aux.CreateChecks(Card.IsCode,{22587018,22587018,58071123})
-function c45898858.costfilter(c,tp)
-	return c:IsReleasable() and c:IsCode(22587018,58071123) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c45898858.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	local g=Duel.GetReleaseGroup(tp):Filter(c45898858.costfilter,nil,tp)
-	if chk==0 then return g:CheckSubGroupEach(c45898858.spchecks,aux.mzctcheckrel,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroupEach(tp,c45898858.spchecks,false,aux.mzctcheckrel,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c45898858.filter(c,e,tp)
-	return c:IsCode(85066822) and c:IsCanBeSpecialSummoned(e,0,tp,true,true)
-end
-function c45898858.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local res=e:GetLabel()==1 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	if chk==0 then
-		e:SetLabel(0)
-		return res and Duel.IsExistingMatchingCard(c45898858.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
-end
-function c45898858.activate(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,aux.NecroValleyFilter(c45898858.filter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP)
-		g:GetFirst():CompleteProcedure()
-	end
-end

script/c46290741.lua

---城塞クジラ
-function c46290741.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(46290741,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,46290741)
-	e1:SetCost(c46290741.spcost)
-	e1:SetTarget(c46290741.sptg)
-	e1:SetOperation(c46290741.spop)
-	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(46290741,1))
-	e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetTarget(c46290741.settg)
-	e2:SetOperation(c46290741.setop)
-	c:RegisterEffect(e2)
-	--negate
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(46290741,2))
-	e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e3:SetCode(EVENT_CHAINING)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCondition(c46290741.discon)
-	e3:SetTarget(c46290741.distg)
-	e3:SetOperation(c46290741.disop)
-	c:RegisterEffect(e3)
-end
-function c46290741.rfilter(c,tp)
-	return c:IsReleasable() and c:IsAttribute(ATTRIBUTE_WATER) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c46290741.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c46290741.rfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c46290741.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c46290741.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-end
-function c46290741.filter(c)
-	return c:IsCode(19089195) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
-end
-function c46290741.settg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingMatchingCard(c46290741.filter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c46290741.setop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-	local g=Duel.SelectMatchingCard(tp,c46290741.filter,tp,LOCATION_DECK,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SSet(tp,tc)
-	end
-end
-function c46290741.tfilter(c,tp)
-	return c:IsLocation(LOCATION_MZONE) and c:IsAttribute(ATTRIBUTE_WATER) and c:IsControler(tp)
-end
-function c46290741.discon(e,tp,eg,ep,ev,re,r,rp)
-	if rp==tp or e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end
-	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
-	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
-	return tg and tg:GetCount()==1 and tg:IsExists(c46290741.tfilter,1,nil,tp) and Duel.IsChainNegatable(ev)
-end
-function c46290741.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true 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
-end
-function c46290741.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
-		Duel.Destroy(eg,REASON_EFFECT)
-	end
-end

script/c47171541.lua

---オルフェゴール・リリース
-function c47171541.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetHintTiming(0,TIMING_END_PHASE)
-	e1:SetCountLimit(1,47171541+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(c47171541.cost)
-	e1:SetTarget(c47171541.target)
-	e1:SetOperation(c47171541.activate)
-	c:RegisterEffect(e1)
-end
-function c47171541.rfilter(c,tp)
-	return c:IsReleasable() and c:IsRace(RACE_MACHINE) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c47171541.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c47171541.rfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c47171541.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c47171541.cfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_LINK)
-end
-function c47171541.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local res=e:GetLabel()==1 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	if chk==0 then
-		e:SetLabel(0)
-		return res and Duel.IsExistingTarget(c47171541.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
-	end
-	local ct=math.min(2,(Duel.GetLocationCount(tp,LOCATION_MZONE)))
-	if Duel.IsPlayerAffectedByEffect(tp,59822133)
-		or not Duel.IsExistingMatchingCard(c47171541.cfilter,tp,0,LOCATION_MZONE,1,nil) then
-		ct=1
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c47171541.spfilter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0)
-end
-function c47171541.activate(e,tp,eg,ep,ev,re,r,rp)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if ft<=0 then return end
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	if g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
-	if g:GetCount()>ft then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		g=g:Select(tp,ft,ft,nil)
-	end
-	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-end

script/c47826112.lua

---海皇龍 ポセイドラ
-function c47826112.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(47826112,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCost(c47826112.spcost)
-	e1:SetTarget(c47826112.sptg)
-	e1:SetOperation(c47826112.spop)
-	c:RegisterEffect(e1)
-	--return
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(47826112,1))
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetCondition(c47826112.thcon)
-	e2:SetTarget(c47826112.thtg)
-	e2:SetOperation(c47826112.thop)
-	c:RegisterEffect(e2)
-end
-function c47826112.cfilter(c,tp)
-	return c:IsReleasable() and c:IsLevelBelow(3) and c:IsAttribute(ATTRIBUTE_WATER) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c47826112.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c47826112.cfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,3,3,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,3,3,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c47826112.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c47826112.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	Duel.SpecialSummon(c,SUMMON_VALUE_SELF,tp,tp,false,false,POS_FACEUP)
-end
-function c47826112.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+SUMMON_VALUE_SELF
-end
-function c47826112.thfilter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
-end
-function c47826112.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local g=Duel.GetMatchingGroup(c47826112.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
-end
-function c47826112.thop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c47826112.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	Duel.SendtoHand(g,nil,REASON_EFFECT)
-	local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_HAND)
-	if ct>=3 then
-		local mg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
-		local tc=mg:GetFirst()
-		while tc do
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_UPDATE_ATTACK)
-			e1:SetValue(-ct*300)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1)
-			tc=mg:GetNext()
-		end
-	end
-end

script/c4918855.lua

---竜血公ヴァンパイア
-function c4918855.initial_effect(c)
-	--Special Summon up to 2 Zombie monsters
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(4918855,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetCountLimit(1,4918855)
-	e1:SetTarget(c4918855.sptg1)
-	e1:SetOperation(c4918855.spop1)
-	c:RegisterEffect(e1)
-	--Negate the activation with the same name
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(4918855,1))
-	e2:SetCategory(CATEGORY_NEGATE)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_CHAINING)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,4918856)
-	e2:SetCondition(c4918855.negcon)
-	e2:SetTarget(c4918855.negtg)
-	e2:SetOperation(c4918855.negop)
-	c:RegisterEffect(e2)
-	--Special Summon this card from your GY
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(4918855,2))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCountLimit(1,4918857)
-	e3:SetCondition(c4918855.spcon2)
-	e3:SetCost(c4918855.spcost2)
-	e3:SetTarget(c4918855.sptg2)
-	e3:SetOperation(c4918855.spop2)
-	c:RegisterEffect(e3)
-end
-function c4918855.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
-end
-function c4918855.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and c4918855.spfilter(chkc,e,tp) end
-	if chk==0 then return ct>0
-		and Duel.IsExistingTarget(c4918855.spfilter,tp,0,LOCATION_GRAVE,1,nil,e,tp) end
-	if ct>2 then ct=2 end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c4918855.spfilter,tp,0,LOCATION_GRAVE,1,ct,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0)
-end
-function c4918855.spop1(e,tp,eg,ep,ev,re,r,rp)
-	local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if ct<1 then return end
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	if g:GetCount()==0 then return end
-	if g:GetCount()>ct or (g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		g=g:Select(tp,1,1,nil)
-	end
-	local tc=g:GetFirst()
-	while tc do
-		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(e:GetHandler())
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_DISABLE_EFFECT)
-		e2:SetValue(RESET_TURN_SET)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e2)
-		tc=g:GetNext()
-	end
-	Duel.SpecialSummonComplete()
-end
-function c4918855.negcon(e,tp,eg,ep,ev,re,r,rp)
-	return re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
-		and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,re:GetHandler():GetCode())
-end
-function c4918855.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-end
-function c4918855.negop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.NegateActivation(ev)
-end
-function c4918855.cfilter(c,tp)
-	return c:IsSummonLocation(LOCATION_GRAVE) and c:IsPreviousControler(1-tp)
-end
-function c4918855.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c4918855.cfilter,1,nil,tp)
-end
-function c4918855.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c4918855.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c4918855.spop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c52101615.lua

---融合呪印生物－闇
-function c52101615.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetDescription(aux.Stringid(52101615,0))
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCost(c52101615.cost)
-	e1:SetTarget(c52101615.target)
-	e1:SetOperation(c52101615.operation)
-	c:RegisterEffect(e1)
-	--fusion substitute
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_FUSION_SUBSTITUTE)
-	e2:SetCondition(c52101615.subcon)
-	c:RegisterEffect(e2)
-end
-function c52101615.subcon(e)
-	return e:GetHandler():IsLocation(LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE)
-end
-function c52101615.filter(c,e,tp,m,gc,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_DARK)
-		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
-end
-function c52101615.mfilter(c,tp)
-	return c:IsReleasable() and c:IsLocation(LOCATION_MZONE) and c:IsCanBeFusionMaterial() and (c:IsControler(tp) or c:IsFaceup())
-end
-function c52101615.fcheck(tp,sg,fc)
-	return Duel.CheckReleaseGroup(tp,aux.IsInGroup,#sg,nil,sg)
-end
-function c52101615.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local mg=Duel.GetReleaseGroup(tp):Filter(c52101615.mfilter,nil,tp)
-	local chkf=tp+0x100
-	if chk==0 then
-		aux.FCheckAdditional=c52101615.fcheck
-		if c59160188 then c59160188.re_activated=true end
-		local res=Duel.IsExistingMatchingCard(c52101615.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,c,chkf)
-		aux.FCheckAdditional=nil
-		if c59160188 then c59160188.re_activated=false end
-		return res
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	aux.FCheckAdditional=c52101615.fcheck
-	if c59160188 then c59160188.re_activated=true end
-	local g=Duel.SelectMatchingCard(tp,c52101615.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,mg,c,chkf)
-	local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c,chkf)
-	aux.FCheckAdditional=nil
-	if c59160188 then c59160188.re_activated=false end
-	aux.UseExtraReleaseCount(mat,tp)
-	Duel.Release(mat,REASON_COST)
-	e:SetLabel(g:GetFirst():GetCode())
-end
-function c52101615.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:IsCostChecked() end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c52101615.filter2(c,e,tp,code)
-	return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c52101615.operation(e,tp,eg,ep,ev,re,r,rp)
-	local code=e:GetLabel()
-	local tc=Duel.GetFirstMatchingCard(c52101615.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,code)
-	if tc then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c54813225.lua

---ダックファイター
-function c54813225.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(54813225,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,54813225)
-	e1:SetCost(c54813225.spcost)
-	e1:SetTarget(c54813225.sptg)
-	e1:SetOperation(c54813225.spop)
-	c:RegisterEffect(e1)
-end
-function c54813225.relgoal(sg,tp)
-	Duel.SetSelectedCard(sg)
-	return sg:CheckWithSumGreater(Card.GetLevel,3) and aux.mzctcheckrel(sg,tp)
-end
-function c54813225.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local mg=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil):Filter(Card.IsType,nil,TYPE_TOKEN)
-	if chk==0 then return mg:CheckSubGroup(c54813225.relgoal,1,3,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local sg=mg:SelectSubGroup(tp,c54813225.relgoal,false,1,3,tp)
-	aux.UseExtraReleaseCount(sg,tp)
-	Duel.Release(sg,REASON_COST)
-end
-function c54813225.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c54813225.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-end

script/c54913680.lua

---六武ノ書
-function c54913680.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCost(c54913680.cost)
-	e1:SetTarget(c54913680.target)
-	e1:SetOperation(c54913680.activate)
-	c:RegisterEffect(e1)
-end
-function c54913680.rfilter(c)
-	return c:IsReleasable() and c:IsFaceup() and c:IsSetCard(0x3d)
-end
-function c54913680.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c54913680.rfilter,nil)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local sg=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(sg,tp)
-	Duel.Release(sg,REASON_COST)
-end
-function c54913680.spfilter(c,e,tp)
-	return c:IsCode(63176202) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c54913680.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local res=e:GetLabel()==1 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	if chk==0 then
-		e:SetLabel(0)
-		return res and Duel.IsExistingMatchingCard(c54913680.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c54913680.activate(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,c54913680.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c61160289.lua

---溟界妃－アミュネシア
-function c61160289.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(61160289,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,61160289)
-	e1:SetCost(c61160289.spcost)
-	e1:SetTarget(c61160289.sptg)
-	e1:SetOperation(c61160289.spop)
-	c:RegisterEffect(e1)
-	--to grave
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(61160289,1))
-	e2:SetCategory(CATEGORY_TOGRAVE)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,61160290)
-	e2:SetCondition(c61160289.tgcon)
-	e2:SetTarget(c61160289.tgtg)
-	e2:SetOperation(c61160289.tgop)
-	c:RegisterEffect(e2)
-	--spsummon2
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(61160289,2))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,61160291)
-	e3:SetCondition(c61160289.spcon2)
-	e3:SetTarget(c61160289.sptg2)
-	e3:SetOperation(c61160289.spop2)
-	c:RegisterEffect(e3)
-end
-function c61160289.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return g:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c61160289.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c61160289.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c61160289.cfilter(c,tp)
-	return c:IsPreviousControler(1-tp) and c:IsPreviousLocation(LOCATION_GRAVE) and c:GetOriginalType()&TYPE_MONSTER~=0
-end
-function c61160289.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c61160289.cfilter,1,nil,tp)
-end
-function c61160289.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
-	if chk==0 then return #g>0 end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
-end
-function c61160289.tgop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
-	if #g>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-		local sg=g:Select(tp,1,1,nil)
-		Duel.HintSelection(sg)
-		Duel.SendtoGrave(sg,REASON_EFFECT)
-	end
-end
-function c61160289.cfilter2(c,tp)
-	return c:IsType(TYPE_MONSTER) and c:IsPreviousControler(1-tp) and c:IsPreviousLocation(LOCATION_HAND+LOCATION_DECK)
-end
-function c61160289.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c61160289.cfilter2,1,nil,tp)
-end
-function c61160289.spfilter(c,e,tp)
-	return not c:IsCode(61160289) and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c61160289.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c61160289.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
-end
-function c61160289.spop2(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,aux.NecroValleyFilter(c61160289.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

script/c61411502.lua

---エレメンタルバースト
-function c61411502.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
-	e1:SetCost(c61411502.cost)
-	e1:SetTarget(c61411502.target)
-	e1:SetOperation(c61411502.activate)
-	c:RegisterEffect(e1)
-end
-c61411502.rchecks=aux.CreateChecks(Card.IsAttribute,{ATTRIBUTE_WIND,ATTRIBUTE_WATER,ATTRIBUTE_FIRE,ATTRIBUTE_EARTH})
-function c61411502.rgoal(g,tp)
-	return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,g)
-end
-function c61411502.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return g:CheckSubGroupEach(c61411502.rchecks,c61411502.rgoal,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroupEach(tp,c61411502.rchecks,false,c61411502.rgoal,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c61411502.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
-	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
-end
-function c61411502.activate(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
-	Duel.Destroy(g,REASON_EFFECT)
-end

script/c62383431.lua

---溟界の黄昏－カース
-function c62383431.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(62383431,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,62383431)
-	e1:SetCost(c62383431.spcost)
-	e1:SetTarget(c62383431.sptg)
-	e1:SetOperation(c62383431.spop)
-	c:RegisterEffect(e1)
-	--spsummon2
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(62383431,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,62383432)
-	e2:SetTarget(c62383431.sptg2)
-	e2:SetOperation(c62383431.spop2)
-	c:RegisterEffect(e2)
-end
-function c62383431.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return g:CheckSubGroup(aux.mzctcheckrel,1,1,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,1,1,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c62383431.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c62383431.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,1-tp,false,false)
-end
-function c62383431.spop(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
-		and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(c62383431.spfilter),tp,0,LOCATION_GRAVE,1,nil,e,tp)
-		and Duel.SelectYesNo(1-tp,aux.Stringid(62383431,2)) then
-		Duel.BreakEffect()
-		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
-		local tc=Duel.SelectMatchingCard(1-tp,aux.NecroValleyFilter(c62383431.spfilter),tp,0,LOCATION_GRAVE,1,1,nil,e,tp):GetFirst()
-		if Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEUP) then
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_DISABLE)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1)
-			local e2=Effect.CreateEffect(c)
-			e2:SetType(EFFECT_TYPE_SINGLE)
-			e2:SetCode(EFFECT_DISABLE_EFFECT)
-			e2:SetValue(RESET_TURN_SET)
-			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e2)
-		end
-		Duel.SpecialSummonComplete()
-	end
-end
-function c62383431.spfilter2(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsSetCard(0x161) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c62383431.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c62383431.spfilter2(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c62383431.spfilter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c62383431.spfilter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
-end
-function c62383431.spop2(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		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_LEAVE_FIELD_REDIRECT)
-			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
-			e1:SetValue(LOCATION_REMOVED)
-			tc:RegisterEffect(e1)
-		end
-		Duel.SpecialSummonComplete()
-	end
-end

script/c62714453.lua

---ベアルクティ－ポーラ＝スター
-local s,id,o=GetID()
-function s.initial_effect(c)
-	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)
-	c:RegisterEffect(e1)
-	--special summon rule
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_SPSUMMON_PROC)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetRange(LOCATION_EXTRA)
-	e2:SetCondition(s.sprcon)
-	e2:SetOperation(s.sprop)
-	c:RegisterEffect(e2)
-	--special summon
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(id,0))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCost(s.spcost)
-	e3:SetTarget(s.sptg)
-	e3:SetOperation(s.spop)
-	c:RegisterEffect(e3)
-end
-function s.tgrfilter(c)
-	return c:IsFaceup() and c:IsLevelAbove(1) and c:IsAbleToGraveAsCost()
-end
-function s.mnfilter(c,g)
-	return g:IsExists(s.mnfilter2,1,c,c)
-end
-function s.mnfilter2(c,mc)
-	return math.abs(c:GetLevel()-mc:GetLevel())==1
-end
-function s.fselect(g,tp,sc)
-	return g:GetCount()==2 and g:IsExists(Card.IsType,1,nil,TYPE_TUNER) and g:IsExists(aux.NOT(Card.IsType),1,nil,TYPE_TUNER)
-		and g:IsExists(s.mnfilter,1,nil,g) and Duel.GetLocationCountFromEx(tp,tp,g,sc)>0
-end
-function s.sprcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local g=Duel.GetMatchingGroup(s.tgrfilter,tp,LOCATION_MZONE,0,nil)
-	return g:CheckSubGroup(s.fselect,2,2,tp,c)
-end
-function s.sprop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.GetMatchingGroup(s.tgrfilter,tp,LOCATION_MZONE,0,nil)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local tg=g:SelectSubGroup(tp,s.fselect,false,2,2,tp,c)
-	Duel.SendtoGrave(tg,REASON_COST)
-end
-function s.checkrelrep(c,tp)
-	return c:IsHasEffect(16471775,tp) or c:IsHasEffect(89264428,tp)
-end
-function s.rfilter(c,tp)
-	return c:IsReleasable() and c:IsLevel(8) and c:IsSetCard(0x163) and (c:IsControler(tp) or c:IsFaceup())
-end
-function s.excostfilter(c,tp)
-	return c:IsAbleToRemove() and s.checkrelrep(c,tp)
-end
-function s.costfilter(c,handler,e,tp)
-	if not handler:IsReleasable() and not s.excostfilter(c,tp) then return false end
-	local excg=s.checkrelrep(c,tp) and c or Group.FromCards(c,handler)
-	return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,c,e,tp,excg)
-end
-function s.spfilter(c,e,tp,g)
-	return c:IsLevel(7) and c:IsSetCard(0x163) and c:IsType(TYPE_SYNCHRO)
-		and Duel.GetLocationCountFromEx(tp,tp,g,c)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
-end
-function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local g1=Duel.GetReleaseGroup(tp,true):Filter(s.rfilter,c,tp)
-	local g2=Duel.GetMatchingGroup(s.excostfilter,tp,LOCATION_GRAVE,0,nil,tp)
-	g1:Merge(g2)
-	if chk==0 then return g1:IsExists(s.costfilter,1,c,c,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g1:FilterSelect(tp,s.costfilter,1,1,c,c,e,tp)
-	local tc=rg:GetFirst()
-	local te=tc:IsHasEffect(16471775,tp) or tc:IsHasEffect(89264428,tp)
-	if te then
-		te:UseCountLimit(tp)
-		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
-	else
-		rg:AddCard(c)
-		aux.UseExtraReleaseCount(rg,tp)
-		Duel.Release(rg,REASON_COST)
-	end
-end
-function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:IsCostChecked()
-		or Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function s.spop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
-	if #g>0 then
-		local tc=g:GetFirst()
-		if Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)>0 then
-			local c=e:GetHandler()
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_FIELD)
-			e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-			e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-			e1:SetRange(LOCATION_MZONE)
-			e1:SetTargetRange(0,1)
-			e1:SetValue(s.aclimit)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1,true)
-			if not tc:IsType(TYPE_EFFECT) then
-				local e2=Effect.CreateEffect(c)
-				e2:SetType(EFFECT_TYPE_SINGLE)
-				e2:SetCode(EFFECT_ADD_TYPE)
-				e2:SetValue(TYPE_EFFECT)
-				e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-				tc:RegisterEffect(e2,true)
-			end
-			tc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,1))
-		end
-	end
-end
-function s.aclimit(e,re)
-	local rc=re:GetHandler()
-	return re:IsActiveType(TYPE_MONSTER) and rc:IsLevelAbove(1) and rc:IsSummonLocation(LOCATION_EXTRA)
-end

script/c63180841.lua

---シューティング・スター・ドラゴン・TG－EX
-function c63180841.initial_effect(c)
-	c:EnableReviveLimit()
-	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.NonTuner(Card.IsSynchroType,TYPE_SYNCHRO),1)
-	--negate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(63180841,0))
-	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(c63180841.discon)
-	e1:SetCost(c63180841.discost)
-	e1:SetTarget(c63180841.distg)
-	e1:SetOperation(c63180841.disop)
-	c:RegisterEffect(e1)
-	--disable attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(63180841,1))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,63180841)
-	e2:SetCondition(c63180841.atkcon)
-	e2:SetOperation(c63180841.atkop)
-	c:RegisterEffect(e2)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(63180841,2))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetRange(LOCATION_GRAVE)
-	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e3:SetCountLimit(1,63180842)
-	e3:SetCondition(c63180841.spcon)
-	e3:SetCost(c63180841.spcost)
-	e3:SetTarget(c63180841.sptg)
-	e3:SetOperation(c63180841.spop)
-	c:RegisterEffect(e3)
-end
-c63180841.material_type=TYPE_SYNCHRO
-function c63180841.tfilter(c,tp)
-	return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp)
-end
-function c63180841.disfilter(c)
-	return c:IsType(TYPE_TUNER) and c:IsAbleToRemoveAsCost()
-end
-function c63180841.discon(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end
-	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) or not re:IsActiveType(TYPE_MONSTER) then return false end
-	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
-	return tg and tg:IsExists(c63180841.tfilter,1,nil,tp) and Duel.IsChainNegatable(ev)
-end
-function c63180841.discost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c63180841.disfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c63180841.disfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function c63180841.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true 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
-end
-function c63180841.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
-		Duel.Destroy(eg,REASON_EFFECT)
-	end
-end
-function c63180841.atkcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetAttacker():IsControler(1-tp)
-end
-function c63180841.atkop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.NegateAttack()
-end
-function c63180841.spfilter(c,tp)
-	return c:IsReleasable() and c:IsType(TYPE_SYNCHRO) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c63180841.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()==1-tp
-end
-function c63180841.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(c63180841.spfilter,nil,tp)
-	if chk==0 then return g:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	local rg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c63180841.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c63180841.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c63972571.lua

---獣神王バルバロス
-function c63972571.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(63972571,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,63972571)
-	e1:SetCost(c63972571.spcost)
-	e1:SetTarget(c63972571.sptg)
-	e1:SetOperation(c63972571.spop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(63972571,1))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,63972572)
-	e2:SetCost(c63972571.descost)
-	e2:SetTarget(c63972571.destg)
-	e2:SetOperation(c63972571.desop)
-	c:RegisterEffect(e2)
-	--attack all
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_ATTACK_ALL)
-	e3:SetValue(1)
-	c:RegisterEffect(e3)
-end
-function c63972571.rfilter(c,tp)
-	return c:IsReleasable() and c:IsLevelAbove(1) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c63972571.fselect(g,tp)
-	Duel.SetSelectedCard(g)
-	return g:CheckWithSumGreater(Card.GetLevel,8) and aux.mzctcheckrel(g,tp)
-end
-function c63972571.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(c63972571.rfilter,nil,tp)
-	if chk==0 then return g:CheckSubGroup(c63972571.fselect,1,g:GetCount(),tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,c63972571.fselect,false,1,g:GetCount(),tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c63972571.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c63972571.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c63972571.cfilter(c)
-	return c:IsSetCard(0x13e) and c:IsType(TYPE_MONSTER) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
-		and c:IsAbleToRemoveAsCost()
-end
-function c63972571.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c63972571.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c63972571.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function c63972571.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return false end
-	if chk==0 then return Duel.IsExistingTarget(aux.TURE,tp,0,LOCATION_ONFIELD,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,aux.TURE,tp,0,LOCATION_ONFIELD,2,2,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
-end
-function c63972571.desop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	Duel.Destroy(tg,REASON_EFFECT)
-end

script/c66425726.lua

---オッドアイズ・ペンデュラムグラフ・ドラゴン
-function c66425726.initial_effect(c)
-	aux.EnablePendulumAttribute(c)
-	--revive limit
-	aux.EnableReviveLimitPendulumSummonable(c,LOCATION_HAND)
-	--spsummon condition
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e0:SetValue(aux.ritlimit)
-	c:RegisterEffect(e0)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(66425726,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_PHASE+PHASE_END)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCountLimit(1,66425726)
-	e1:SetTarget(c66425726.thtg)
-	e1:SetOperation(c66425726.thop)
-	c:RegisterEffect(e1)
-	--damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCondition(c66425726.damcon1)
-	e2:SetOperation(c66425726.damop1)
-	c:RegisterEffect(e2)
-	--sp_summon effect
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCondition(c66425726.regcon)
-	e3:SetOperation(c66425726.regop)
-	c:RegisterEffect(e3)
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-	e4:SetCode(EVENT_CHAIN_SOLVED)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCondition(c66425726.damcon2)
-	e4:SetOperation(c66425726.damop2)
-	c:RegisterEffect(e4)
-	--disable
-	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(66425726,1))
-	e5:SetCategory(CATEGORY_DISABLE)
-	e5:SetType(EFFECT_TYPE_QUICK_O)
-	e5:SetCode(EVENT_CHAINING)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCondition(c66425726.discon)
-	e5:SetTarget(c66425726.distg)
-	e5:SetOperation(c66425726.disop)
-	c:RegisterEffect(e5)
-end
-function c66425726.thfilter(c)
-	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
-end
-function c66425726.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c66425726.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) and e:GetHandler():IsAbleToHand() end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
-end
-function c66425726.thop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c66425726.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
-		Duel.ConfirmCards(1-tp,tc)
-		if c:IsRelateToEffect(e) then
-			Duel.BreakEffect()
-			Duel.SendtoHand(c,nil,REASON_EFFECT)
-		end
-	end
-end
-function c66425726.filter(c,sp)
-	return c:IsSummonPlayer(sp) and c:IsSummonLocation(LOCATION_EXTRA)
-end
-function c66425726.damcon1(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c66425726.filter,1,nil,1-tp)
-		and (not re:IsHasType(EFFECT_TYPE_ACTIONS) or re:IsHasType(EFFECT_TYPE_CONTINUOUS))
-end
-function c66425726.damop1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,66425726)
-	Duel.Damage(1-tp,300,REASON_EFFECT)
-end
-function c66425726.regcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c66425726.filter,1,nil,1-tp)
-		and re:IsHasType(EFFECT_TYPE_ACTIONS) and not re:IsHasType(EFFECT_TYPE_CONTINUOUS)
-end
-function c66425726.regop(e,tp,eg,ep,ev,re,r,rp)
-	e:GetHandler():RegisterFlagEffect(66425726,RESET_CHAIN,0,1)
-end
-function c66425726.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetFlagEffect(66425726)>0
-end
-function c66425726.damop2(e,tp,eg,ep,ev,re,r,rp)
-	local n=e:GetHandler():GetFlagEffect(66425726)
-	e:GetHandler():ResetFlagEffect(66425726)
-	Duel.Hint(HINT_CARD,0,66425726)
-	Duel.Damage(1-tp,n*300,REASON_EFFECT)
-end
-function c66425726.discon(e,tp,eg,ep,ev,re,r,rp)
-	return ep==1-tp and re:IsActiveType(TYPE_SPELL) and Duel.IsChainDisablable(ev)
-		and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
-end
-function c66425726.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():GetOriginalType()&TYPE_PENDULUM~=0
-		and (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)) end
-	if e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL) then
-		e:SetCategory(CATEGORY_DISABLE+CATEGORY_SPECIAL_SUMMON)
-	else
-		e:SetCategory(CATEGORY_DISABLE)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
-end
-function c66425726.spfilter(c,e,tp)
-	return c:IsSetCard(0x99) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c66425726.disop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and not c:IsImmuneToEffect(e) then
-		if Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true) and c:IsLocation(LOCATION_PZONE) then
-			if Duel.NegateEffect(ev) and c:IsSummonType(SUMMON_TYPE_RITUAL)
-				and Duel.IsExistingMatchingCard(c66425726.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp)
-				and Duel.SelectYesNo(tp,aux.Stringid(66425726,2)) then
-				Duel.BreakEffect()
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-				local g=Duel.SelectMatchingCard(tp,c66425726.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-				Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-			end
-		end
-	end
-end

script/c66607691.lua

---フォトン・ジェネレーター・ユニット
-function c66607691.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCost(c66607691.cost)
-	e1:SetTarget(c66607691.target)
-	e1:SetOperation(c66607691.activate)
-	c:RegisterEffect(e1)
-end
-function c66607691.rfilter(c,tp)
-	return c:IsReleasable() and c:IsCode(70095154) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c66607691.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c66607691.rfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c66607691.spfilter(c,e,tp)
-	return c:IsCode(4162088) and c:IsCanBeSpecialSummoned(e,0,tp,true,true)
-end
-function c66607691.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local res=e:GetLabel()==1 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	if chk==0 then
-		e:SetLabel(0)
-		return res and Duel.IsExistingMatchingCard(c66607691.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
-end
-function c66607691.activate(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,aux.NecroValleyFilter(c66607691.spfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP)
-		g:GetFirst():CompleteProcedure()
-	end
-end

script/c70456282.lua

---A BF－霧雨のクナイ
-function c70456282.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(c70456282.spcon)
-	e1:SetOperation(c70456282.spop)
-	c:RegisterEffect(e1)
-	--lv change
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1)
-	e2:SetTarget(c70456282.lvtg)
-	e2:SetOperation(c70456282.lvop)
-	c:RegisterEffect(e2)
-end
-c70456282.treat_itself_tuner=true
-function c70456282.spfilter(c,ft,tp)
-	return c:IsSetCard(0x33)
-		and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c70456282.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	return ft>-1 and Duel.CheckReleaseGroup(tp,c70456282.spfilter,1,nil,ft,tp)
-end
-function c70456282.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	local g=Duel.SelectReleaseGroup(tp,c70456282.spfilter,1,1,nil,ft,tp)
-	Duel.Release(g,REASON_COST)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_ADD_TYPE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e1:SetValue(TYPE_TUNER)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
-	c:RegisterEffect(e1)
-end
-function c70456282.filter(c)
-	return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:GetLevel()>0
-end
-function c70456282.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c70456282.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c70456282.filter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectTarget(tp,c70456282.filter,tp,LOCATION_MZONE,0,1,1,nil)
-	local lv=g:GetFirst():GetLevel()
-	Duel.Hint(HINT_SELECTMSG,tp,HINGMSG_LVRANK)
-	e:SetLabel(Duel.AnnounceLevel(tp,1,8,lv))
-end
-function c70456282.lvop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_CHANGE_LEVEL)
-		e1:SetValue(e:GetLabel())
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-	end
-end

script/c72549351.lua

---ドラゴニック・タクティクス
-function c72549351.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCost(c72549351.cost)
-	e1:SetTarget(c72549351.target)
-	e1:SetOperation(c72549351.activate)
-	c:RegisterEffect(e1)
-end
-function c72549351.rfilter(c,tp)
-	return c:IsReleasable() and c:IsRace(RACE_DRAGON) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c72549351.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c72549351.rfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c72549351.spfilter(c,e,tp)
-	return c:IsRace(RACE_DRAGON) and c:IsLevel(8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c72549351.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local res=e:GetLabel()==1 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	if chk==0 then
-		e:SetLabel(0)
-		return res and Duel.IsExistingMatchingCard(c72549351.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c72549351.activate(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,c72549351.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c72621670.lua

---ダブルマジックアームバインド
-function c72621670.initial_effect(c)
-	--activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_CONTROL)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCost(c72621670.cost)
-	e1:SetTarget(c72621670.target)
-	e1:SetOperation(c72621670.activate)
-	c:RegisterEffect(e1)
-end
-function c72621670.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	return true
-end
-function c72621670.filter(c,check)
-	return c:IsFaceup() and c:IsAbleToChangeControler(check)
-end
-function c72621670.fselect(g,tp)
-	return Duel.GetMZoneCount(tp,g,tp,LOCATION_REASON_CONTROL)>1
-		and Duel.CheckReleaseGroup(tp,aux.IsInGroup,g:GetCount(),nil,g)
-		and Duel.IsExistingTarget(c72621670.filter,tp,0,LOCATION_MZONE,2,g,true)
-end
-function c72621670.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c72621670.filter(chkc,false) end
-	if chk==0 then
-		if e:GetLabel()==1 then
-			e:SetLabel(0)
-			local rg=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-			return rg:CheckSubGroup(c72621670.fselect,2,2,tp)
-		else
-			return Duel.IsExistingTarget(c72621670.filter,tp,0,LOCATION_MZONE,2,nil,false)
-		end
-	end
-	if e:GetLabel()==1 then
-		e:SetLabel(0)
-		local rg=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-		local sg=rg:SelectSubGroup(tp,c72621670.fselect,false,2,2,tp)
-		aux.UseExtraReleaseCount(sg,tp)
-		Duel.Release(sg,REASON_COST)
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
-	local g=Duel.SelectTarget(tp,c72621670.filter,tp,0,LOCATION_MZONE,2,2,nil,false)
-	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,2,0,0)
-end
-function c72621670.tfilter(c,e)
-	return c:IsRelateToEffect(e) and c:IsFaceup()
-end
-function c72621670.activate(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c72621670.tfilter,nil,e)
-	if g:GetCount()<2 then return end
-	local rct=1
-	if Duel.GetTurnPlayer()~=tp then rct=2 end
-	Duel.GetControl(g,tp,PHASE_END,rct)
-end

script/c744887.lua

---虚の王 ウートガルザ
-function c744887.initial_effect(c)
-	c:SetUniqueOnField(1,0,744887)
-	--remove
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(744887,0))
-	e1:SetCategory(CATEGORY_REMOVE)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,744887)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCost(c744887.rmcost)
-	e1:SetTarget(c744887.rmtg)
-	e1:SetOperation(c744887.rmop)
-	c:RegisterEffect(e1)
-end
-function c744887.costfilter(c)
-	return c:IsReleasable() and (c:IsSetCard(0x134) or c:IsRace(RACE_ROCK))
-end
-function c744887.fselect(g,tp)
-	return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,g)
-		and Duel.CheckReleaseGroup(tp,aux.IsInGroup,#g,nil,g)
-end
-function c744887.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(c744887.costfilter,nil)
-	if chk==0 then return g:CheckSubGroup(c744887.fselect,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,c744887.fselect,false,2,2,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c744887.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and chkc:IsAbleToRemove() end
-	if chk==0 then return true end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
-end
-function c744887.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
-	end
-end

script/c77522571.lua

---デストーイ・マイスター
-function c77522571.initial_effect(c)
-	--pendulum summon
-	aux.EnablePendulumAttribute(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(77522571,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCountLimit(1,77522571)
-	e1:SetCost(c77522571.spcost1)
-	e1:SetTarget(c77522571.sptg1)
-	e1:SetOperation(c77522571.spop1)
-	c:RegisterEffect(e1)
-	--special summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(77522571,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,77522572)
-	e2:SetTarget(c77522571.sptg2)
-	e2:SetOperation(c77522571.spop2)
-	c:RegisterEffect(e2)
-	--level fusion
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(77522571,2))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,77522573)
-	e3:SetCost(c77522571.spcost3)
-	e3:SetTarget(c77522571.sptg3)
-	e3:SetOperation(c77522571.spop3)
-	c:RegisterEffect(e3)
-end
-function c77522571.costfilter1(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsSetCard(0xa9,0xad,0xc3)
-		and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
-		and Duel.IsExistingMatchingCard(c77522571.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetLevel(),c:GetCode())
-end
-function c77522571.spfilter1(c,e,tp,lv,code)
-	return c:IsRace(RACE_FIEND) and c:IsLevel(lv) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c77522571.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c77522571.costfilter1,1,nil,e,tp) end
-	local rg=Duel.SelectReleaseGroup(tp,c77522571.costfilter1,1,1,nil,e,tp)
-	e:SetLabel(rg:GetFirst():GetLevel())
-	e:SetValue(rg:GetFirst():GetCode())
-	Duel.Release(rg,REASON_COST)
-end
-function c77522571.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c77522571.spop1(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local lv=e:GetLabel()
-	local code=e:GetValue()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c77522571.spfilter1,tp,LOCATION_DECK,0,1,1,nil,e,tp,lv,code)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c77522571.spfilter2(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsSetCard(0xa9,0xad,0xc3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c77522571.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c77522571.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c77522571.spop2(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,c77522571.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-		if g:GetCount()>0 then
-			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-		end
-	end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(c77522571.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c77522571.splimit(e,c)
-	return not c:IsType(TYPE_FUSION) and c:IsLocation(LOCATION_EXTRA)
-end
-function c77522571.costfilter(c)
-	return c:IsReleasable() and c:IsLevelAbove(1) and c:IsRace(RACE_FIEND)
-end
-function c77522571.fgoal(sg,e,tp)
-	local lv=sg:GetSum(Card.GetLevel)
-	return Duel.CheckReleaseGroup(tp,aux.IsInGroup,#sg,nil,sg)
-		and Duel.IsExistingMatchingCard(c77522571.spfilter3,tp,LOCATION_EXTRA,0,1,nil,e,tp,lv,sg)
-end
-function c77522571.spfilter3(c,e,tp,lv,sg)
-	return c:IsSetCard(0xad) and c:IsType(TYPE_FUSION) and c:IsLevel(lv)
-		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial()
-		and Duel.GetLocationCountFromEx(tp,tp,sg,c)>0
-end
-function c77522571.spcost3(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c77522571.costfilter,nil)
-	if chk==0 then return rg:CheckSubGroup(c77522571.fgoal,2,rg:GetCount(),e,tp) end
-	local g=rg:SelectSubGroup(tp,c77522571.fgoal,false,2,rg:GetCount(),e,tp)
-	local lv=g:GetSum(Card.GetLevel)
-	e:SetLabel(lv)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c77522571.sptg3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c77522571.spop3(e,tp,eg,ep,ev,re,r,rp)
-	if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL) then return end
-	local lv=e:GetLabel()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c77522571.spfilter3,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv,nil)
-	local tc=g:GetFirst()
-	if tc then
-		tc:SetMaterial(nil)
-		if Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)~=0 then
-			tc:CompleteProcedure()
-		end
-	end
-end

script/c79402185.lua

---ボンディング－D2O
-function c79402185.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCost(c79402185.cost)
-	e1:SetTarget(c79402185.target)
-	e1:SetOperation(c79402185.activate)
-	c:RegisterEffect(e1)
-	--to hand
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetCode(EVENT_TO_GRAVE)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,79402185)
-	e2:SetCondition(c79402185.thcon)
-	e2:SetTarget(c79402185.thtg)
-	e2:SetOperation(c79402185.thop)
-	c:RegisterEffect(e2)
-end
-c79402185.spchecks=aux.CreateChecks(Card.IsCode,{43017476,43017476,58071123})
-function c79402185.costfilter(c,tp)
-	return c:IsReleasable() and c:IsCode(43017476,58071123) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c79402185.fgoal(g,tp)
-	return Duel.GetMZoneCount(tp,g)>0 and Duel.CheckReleaseGroupEx(tp,aux.IsInGroup,#g,nil,g)
-end
-function c79402185.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	local g=Duel.GetReleaseGroup(tp,true):Filter(c79402185.costfilter,nil,tp)
-	if chk==0 then return g:CheckSubGroupEach(c79402185.spchecks,c79402185.fgoal,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroupEach(tp,c79402185.spchecks,false,c79402185.fgoal,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c79402185.filter(c,e,tp)
-	return c:IsCode(85066822,6022371) and c:IsCanBeSpecialSummoned(e,0,tp,true,true)
-end
-function c79402185.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local res=e:GetLabel()==1 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	if chk==0 then
-		e:SetLabel(0)
-		return res and Duel.IsExistingMatchingCard(c79402185.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
-end
-function c79402185.activate(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,aux.NecroValleyFilter(c79402185.filter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP)
-		g:GetFirst():CompleteProcedure()
-	end
-end
-function c79402185.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c79402185.thfilter,1,nil) and not eg:IsContains(e:GetHandler())
-end
-function c79402185.thfilter(c)
-	return (c:IsCode(85066822) or c:IsCode(6022371)) and c:IsPreviousLocation(LOCATION_ONFIELD)
-end
-function c79402185.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
-end
-function c79402185.thop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SendtoHand(c,nil,REASON_EFFECT)
-	end
-end

script/c80086070.lua

---ベアルクティ－グラン＝シャリオ
-function c80086070.initial_effect(c)
-	c:EnableReviveLimit()
-	--special summon rule
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	c:RegisterEffect(e1)
-	--spsummon condition
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_SPSUMMON_PROC)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetRange(LOCATION_EXTRA)
-	e2:SetCondition(c80086070.sprcon)
-	e2:SetOperation(c80086070.sprop)
-	c:RegisterEffect(e2)
-	--destroy
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(80086070,0))
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetTarget(c80086070.destg)
-	e3:SetOperation(c80086070.desop)
-	c:RegisterEffect(e3)
-	--negate
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(80086070,1))
-	e4:SetCategory(CATEGORY_NEGATE)
-	e4:SetType(EFFECT_TYPE_QUICK_O)
-	e4:SetCode(EVENT_CHAINING)
-	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetCondition(c80086070.negcon)
-	e4:SetCost(c80086070.negcost)
-	e4:SetTarget(c80086070.negtg)
-	e4:SetOperation(c80086070.negop)
-	c:RegisterEffect(e4)
-end
-function c80086070.tgrfilter(c)
-	return c:IsFaceup() and c:IsLevelAbove(1) and c:IsAbleToGraveAsCost()
-end
-function c80086070.tgrfilter1(c)
-	return c:IsType(TYPE_TUNER) and c:IsLevelAbove(8)
-end
-function c80086070.tgrfilter2(c)
-	return not c:IsType(TYPE_TUNER) and c:IsType(TYPE_SYNCHRO)
-end
-function c80086070.mnfilter(c,g)
-	return g:IsExists(c80086070.mnfilter2,1,c,c)
-end
-function c80086070.mnfilter2(c,mc)
-	return c:GetLevel()-mc:GetLevel()==7
-end
-function c80086070.fselect(g,tp,sc)
-	return g:GetCount()==2
-		and g:IsExists(c80086070.tgrfilter1,1,nil) and g:IsExists(c80086070.tgrfilter2,1,nil)
-		and g:IsExists(c80086070.mnfilter,1,nil,g)
-		and Duel.GetLocationCountFromEx(tp,tp,g,sc)>0
-end
-function c80086070.sprcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local g=Duel.GetMatchingGroup(c80086070.tgrfilter,tp,LOCATION_MZONE,0,nil)
-	return g:CheckSubGroup(c80086070.fselect,2,2,tp,c)
-end
-function c80086070.sprop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.GetMatchingGroup(c80086070.tgrfilter,tp,LOCATION_MZONE,0,nil)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local tg=g:SelectSubGroup(tp,c80086070.fselect,false,2,2,tp,c)
-	Duel.SendtoGrave(tg,REASON_COST)
-end
-function c80086070.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(tp) and chkc:IsOnField() end
-	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local dg=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0)
-end
-function c80086070.desop(e,tp,eg,ep,ev,re,r,rp)
-	local dg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	if #dg>0 then
-		Duel.Destroy(dg,REASON_EFFECT)
-	end
-end
-function c80086070.negfilter(c,tp)
-	return c:IsFaceup() and c:IsSetCard(0x163) and c:IsOnField() and c:IsControler(tp)
-end
-function c80086070.negcon(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end
-	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
-	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
-	return tg and tg:IsExists(c80086070.negfilter,1,nil,tp) and Duel.IsChainNegatable(ev)
-end
-function c80086070.costfilter(c,tp)
-	return c:IsReleasable() and c:IsType(TYPE_MONSTER) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c80086070.excostfilter(c,tp)
-	return c:IsAbleToRemove() and (c:IsHasEffect(16471775,tp) or c:IsHasEffect(89264428,tp))
-end
-function c80086070.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g1=Duel.GetReleaseGroup(tp,true):Filter(c80086070.costfilter,nil,tp)
-	local g2=Duel.GetMatchingGroup(c80086070.excostfilter,tp,LOCATION_GRAVE,0,nil,tp)
-	g1:Merge(g2)
-	if chk==0 then return #g1>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g1:Select(tp,1,1,nil)
-	local tc=rg:GetFirst()
-	local te=tc:IsHasEffect(16471775,tp) or tc:IsHasEffect(89264428,tp)
-	if te then
-		te:UseCountLimit(tp)
-		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
-	else
-		aux.UseExtraReleaseCount(rg,tp)
-		Duel.Release(tc,REASON_COST)
-	end
-end
-function c80086070.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-end
-function c80086070.negop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.NegateActivation(ev)
-end

script/c85059922.lua

---超魔導戦士-マスター・オブ・カオス
-function c85059922.initial_effect(c)
-	--fusion material
-	c:EnableReviveLimit()
-	aux.AddFusionProcCodeFun(c,46986414,c85059922.matfilter,1,true,true)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(85059922,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCountLimit(1,85059922)
-	e1:SetCondition(c85059922.spcon)
-	e1:SetTarget(c85059922.sptg)
-	e1:SetOperation(c85059922.spop)
-	c:RegisterEffect(e1)
-	--remove
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(85059922,1))
-	e2:SetCategory(CATEGORY_REMOVE)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,85059923)
-	e2:SetCost(c85059922.remcost)
-	e2:SetTarget(c85059922.remtg)
-	e2:SetOperation(c85059922.remop)
-	c:RegisterEffect(e2)
-	--to hand
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(85059922,2))
-	e3:SetCategory(CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCountLimit(1,85059924)
-	e3:SetCondition(c85059922.thcon)
-	e3:SetTarget(c85059922.thtg)
-	e3:SetOperation(c85059922.thop)
-	c:RegisterEffect(e3)
-end
-function c85059922.matfilter(c)
-	return c:IsSetCard(0xcf) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_RITUAL)
-end
-function c85059922.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
-end
-function c85059922.spfilter(c,e,tp)
-	return c:IsAttribute(ATTRIBUTE_DARK+ATTRIBUTE_LIGHT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c85059922.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c85059922.spfilter(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c85059922.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c85059922.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
-end
-function c85059922.spop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c85059922.remcostfilter(c,tp)
-	return c:IsReleasable() and c:IsAttribute(ATTRIBUTE_DARK+ATTRIBUTE_LIGHT) and (c:IsControler(tp) or c:IsFaceup())
-		and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,c)
-end
-function c85059922.remcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(c85059922.remcostfilter,nil,tp)
-	if chk==0 then return g:CheckSubGroup(aux.gfcheck,2,2,Card.IsAttribute,ATTRIBUTE_LIGHT,ATTRIBUTE_DARK) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local sg=g:SelectSubGroup(tp,aux.gfcheck,false,2,2,Card.IsAttribute,ATTRIBUTE_LIGHT,ATTRIBUTE_DARK)
-	aux.UseExtraReleaseCount(sg,tp)
-	Duel.Release(sg,REASON_COST)
-end
-function c85059922.remtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,nil)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
-end
-function c85059922.remop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-end
-function c85059922.thcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_FUSION) and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
-end
-function c85059922.thfilter(c)
-	return c:IsType(TYPE_SPELL) and c:IsAbleToHand()
-end
-function c85059922.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c85059922.thfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c85059922.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectTarget(tp,c85059922.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-end
-function c85059922.thop(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

script/c88000953.lua

---ラスタライガー
-function c88000953.initial_effect(c)
-	--link summon
-	c:EnableReviveLimit()
-	aux.AddLinkProcedure(c,aux.NOT(aux.FilterBoolFunction(Card.IsLinkType,TYPE_TOKEN)),2)
-	--atkup
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(88000953,0))
-	e1:SetCategory(CATEGORY_ATKCHANGE)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,88000953)
-	e1:SetTarget(c88000953.atktg)
-	e1:SetOperation(c88000953.atkop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(88000953,1))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,88000954)
-	e2:SetCost(c88000953.descost)
-	e2:SetTarget(c88000953.destg)
-	e2:SetOperation(c88000953.desop)
-	c:RegisterEffect(e2)
-end
-function c88000953.atkfilter(c)
-	return c:IsType(TYPE_LINK) and c:IsAttackAbove(1)
-end
-function c88000953.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c88000953.atkfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c88000953.atkfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c88000953.atkfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
-end
-function c88000953.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	local c=e:GetHandler()
-	if c:IsFaceup() and c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(tc:GetAttack())
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		c:RegisterEffect(e1)
-	end
-end
-function c88000953.costfilter(c,tp,g)
-	return g:IsContains(c)
-		and Duel.IsExistingMatchingCard(c88000953.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c,Group.FromCards(c))
-end
-function c88000953.desfilter(c,g)
-	local ec=c:GetEquipTarget()
-	return not ec or not g:IsContains(ec)
-end
-function c88000953.fselect(g,tp)
-	return Duel.IsExistingMatchingCard(c88000953.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,g:GetCount(),g,g)
-		and Duel.CheckReleaseGroup(tp,aux.IsInGroup,#g,nil,g)
-end
-function c88000953.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local lg=e:GetHandler():GetLinkedGroup()
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c88000953.costfilter,1,nil,tp,lg) end
-	local rg=Duel.GetReleaseGroup(tp):Filter(c88000953.costfilter,nil,tp,lg)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local sg=rg:SelectSubGroup(tp,c88000953.fselect,false,1,rg:GetCount(),tp)
-	aux.UseExtraReleaseCount(sg,tp)
-	local ct=Duel.Release(sg,REASON_COST)
-	e:SetLabel(ct)
-end
-function c88000953.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local ct=e:GetLabel()
-	local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0)
-end
-function c88000953.desop(e,tp,eg,ep,ev,re,r,rp)
-	local ct=e:GetLabel()
-	local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
-	if g:GetCount()>=ct then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-		local dg=g:Select(tp,ct,ct,nil)
-		Duel.HintSelection(dg)
-		Duel.Destroy(dg,REASON_EFFECT)
-	end
-end

script/c88696724.lua

---融合呪印生物－地
-function c88696724.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetDescription(aux.Stringid(88696724,0))
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCost(c88696724.cost)
-	e1:SetTarget(c88696724.target)
-	e1:SetOperation(c88696724.operation)
-	c:RegisterEffect(e1)
-	--fusion substitute
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_FUSION_SUBSTITUTE)
-	e2:SetCondition(c88696724.subcon)
-	c:RegisterEffect(e2)
-end
-function c88696724.subcon(e)
-	return e:GetHandler():IsLocation(LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE)
-end
-function c88696724.filter(c,e,tp,m,gc,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_EARTH)
-		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
-end
-function c88696724.mfilter(c,tp)
-	return c:IsReleasable() and c:IsLocation(LOCATION_MZONE) and c:IsCanBeFusionMaterial() and (c:IsControler(tp) or c:IsFaceup())
-end
-function c88696724.fcheck(tp,sg,fc)
-	return Duel.CheckReleaseGroup(tp,aux.IsInGroup,#sg,nil,sg)
-end
-function c88696724.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local mg=Duel.GetReleaseGroup(tp):Filter(c88696724.mfilter,nil,tp)
-	local chkf=tp+0x100
-	if chk==0 then
-		aux.FCheckAdditional=c88696724.fcheck
-		if c59160188 then c59160188.re_activated=true end
-		local res=Duel.IsExistingMatchingCard(c88696724.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,c,chkf)
-		aux.FCheckAdditional=nil
-		if c59160188 then c59160188.re_activated=false end
-		return res
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	aux.FCheckAdditional=c88696724.fcheck
-	if c59160188 then c59160188.re_activated=true end
-	local g=Duel.SelectMatchingCard(tp,c88696724.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,mg,c,chkf)
-	local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c,chkf)
-	aux.FCheckAdditional=nil
-	if c59160188 then c59160188.re_activated=false end
-	aux.UseExtraReleaseCount(mat,tp)
-	Duel.Release(mat,REASON_COST)
-	e:SetLabel(g:GetFirst():GetCode())
-end
-function c88696724.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:IsCostChecked() end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c88696724.filter2(c,e,tp,code)
-	return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c88696724.operation(e,tp,eg,ep,ev,re,r,rp)
-	local code=e:GetLabel()
-	local tc=Duel.GetFirstMatchingCard(c88696724.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,code)
-	if tc then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

script/c9341993.lua

---魔救の救砕
-function c9341993.initial_effect(c)
-	--activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCost(c9341993.cost)
-	e1:SetTarget(c9341993.target)
-	e1:SetOperation(c9341993.activate)
-	c:RegisterEffect(e1)
-end
-function c9341993.costfilter(c,tp)
-	return c:IsReleasable() and c:IsSetCard(0x140) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c9341993.fselect(g,tp,exc)
-	local dg=g:Clone()
-	if exc then dg:AddCard(exc) end
-	if Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,g:GetCount()+1,dg) then
-		Duel.SetSelectedCard(g)
-		return Duel.CheckReleaseGroup(tp,nil,0,nil)
-	else return false end
-end
-function c9341993.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(100,0)
-	local exc=nil
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then exc=e:GetHandler() end
-	local g=Duel.GetReleaseGroup(tp):Filter(c9341993.costfilter,nil,tp)
-	if chk==0 then return g:CheckSubGroup(c9341993.fselect,1,g:GetCount(),tp,exc) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,c9341993.fselect,false,1,g:GetCount(),tp,exc)
-	aux.UseExtraReleaseCount(rg,tp)
-	e:SetLabel(100,Duel.Release(rg,REASON_COST))
-end
-function c9341993.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local exc=nil
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then exc=e:GetHandler() end
-	local check,ct=e:GetLabel()
-	if chkc then return chkc:IsOnField() end
-	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,exc) end
-	if check~=100 then ct=0 end
-	e:SetLabel(0,0)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct+1,ct+1,exc)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
-end
-function c9341993.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	if tg:GetCount()>0 then
-		Duel.Destroy(tg,REASON_EFFECT)
-	end
-end

script/c96733134.lua

---覇王眷竜オッドアイズ
-function c96733134.initial_effect(c)
-	aux.EnablePendulumAttribute(c)
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(96733134,0))
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCost(c96733134.thcost)
-	e1:SetTarget(c96733134.thtg)
-	e1:SetOperation(c96733134.thop)
-	c:RegisterEffect(e1)
-	--special summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(96733134,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCost(c96733134.hspcost)
-	e2:SetTarget(c96733134.hsptg)
-	e2:SetOperation(c96733134.hspop)
-	c:RegisterEffect(e2)
-	--double damage
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(LOCATION_MZONE,0)
-	e3:SetTarget(c96733134.damtg)
-	e3:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
-	c:RegisterEffect(e3)
-	--special summon
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(96733134,2))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4:SetType(EFFECT_TYPE_QUICK_O)
-	e4:SetCode(EVENT_FREE_CHAIN)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetHintTiming(0,TIMING_BATTLE_START)
-	e4:SetCondition(c96733134.spcon)
-	e4:SetCost(c96733134.spcost)
-	e4:SetTarget(c96733134.sptg)
-	e4:SetOperation(c96733134.spop)
-	c:RegisterEffect(e4)
-end
-function c96733134.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x20f8) end
-	local sg=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x20f8)
-	Duel.Release(sg,REASON_COST)
-end
-function c96733134.thfilter(c)
-	return c:IsType(TYPE_PENDULUM) and c:IsAttackBelow(1500) and c:IsAbleToHand()
-end
-function c96733134.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c96733134.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c96733134.thop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) or Duel.Destroy(c,REASON_EFFECT)==0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c96733134.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 c96733134.rfilter(c,tp)
-	return c:IsReleasable() and c:IsSetCard(0x20f8) and (c:IsControler(tp) or c:IsFaceup())
-end
-function c96733134.hspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetReleaseGroup(tp):Filter(c96733134.rfilter,nil,tp)
-	if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,2,2,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
-	aux.UseExtraReleaseCount(g,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c96733134.hsptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
-end
-function c96733134.hspop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c96733134.damtg(e,c)
-	return c:IsType(TYPE_PENDULUM) and c:GetBattleTarget()~=nil
-end
-function c96733134.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE
-end
-function c96733134.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsReleasable() end
-	Duel.Release(c,REASON_COST)
-end
-function c96733134.spfilter(c,e,tp,rc)
-	return c:IsFaceup() and c:IsSetCard(0x10f8,0x20f8)
-		and c:IsType(TYPE_PENDULUM) and not c:IsCode(96733134)
-		and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
-		and Duel.GetLocationCountFromEx(tp,tp,rc,c)>0
-end
-function c96733134.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c96733134.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,e:GetHandler()) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c96733134.spop(e,tp,eg,ep,ev,re,r,rp)
-	local ft=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
-	if ft==0 then return end
-	ft=math.min(ft,2)
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then
-		ft=1
-	end
-	local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
-	if ect~=nil then ft=math.min(ft,ect) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c96733134.spfilter,tp,LOCATION_EXTRA,0,1,ft,nil,e,tp,nil)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
-	end
-end

script/c97565997.lua

---溟界神－オグドアビス
-function c97565997.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(97565997,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,97565997)
-	e1:SetCost(c97565997.spcost)
-	e1:SetTarget(c97565997.sptg)
-	e1:SetOperation(c97565997.spop)
-	c:RegisterEffect(e1)
-	--to grave
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(97565997,1))
-	e2:SetCategory(CATEGORY_TOGRAVE)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e2:SetCountLimit(1,97565998)
-	e2:SetTarget(c97565997.tgtg)
-	e2:SetOperation(c97565997.tgop)
-	c:RegisterEffect(e2)
-end
-function c97565997.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return g:CheckSubGroup(aux.mzctcheckrel,3,3,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,3,3,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c97565997.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c97565997.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c97565997.tgfilter(c)
-	return not (c:IsFaceup() and c:IsSummonLocation(LOCATION_GRAVE) and c:GetOriginalType()&TYPE_MONSTER~=0) and c:IsAbleToGrave()
-end
-function c97565997.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(c97565997.tgfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
-	if chk==0 then return #g>0 end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,#g,0,0)
-end
-function c97565997.tgop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c97565997.tgfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
-	if #g>0 then
-		Duel.SendtoGrave(g,REASON_EFFECT)
-	end
-end

script/c98585345.lua

@@ -22,7 +22,7 @@ function c98585345.initial_effect(c)
 	e2:SetOperation(c98585345.desop)
 	c:RegisterEffect(e2)
 end
-c98585345.lvdn={33776734,100212002}
+c98585345.lvdn={33776734,100212002,48486809}
 function c98585345.descon(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
 end

script/c98787535.lua

---溟界の昏闇－アレート
-function c98787535.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(98787535,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_ACTION)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,98787535)
-	e1:SetCost(c98787535.spcost)
-	e1:SetTarget(c98787535.sptg)
-	e1:SetOperation(c98787535.spop)
-	c:RegisterEffect(e1)
-	--return to grave
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(98787535,1))
-	e2:SetCategory(CATEGORY_TOGRAVE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,98787536)
-	e2:SetTarget(c98787535.rgtg)
-	e2:SetOperation(c98787535.rgop)
-	c:RegisterEffect(e2)
-end
-function c98787535.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetReleaseGroup(tp):Filter(Card.IsReleasable,nil)
-	if chk==0 then return g:CheckSubGroup(aux.mzctcheckrel,1,1,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,1,1,tp)
-	aux.UseExtraReleaseCount(rg,tp)
-	Duel.Release(rg,REASON_COST)
-end
-function c98787535.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c98787535.thfilter(c,tp)
-	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand(1-tp)
-end
-function c98787535.spop(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
-		and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(c98787535.thfilter),tp,0,LOCATION_GRAVE,1,nil,tp)
-		and Duel.SelectYesNo(1-tp,aux.Stringid(98787535,2)) then
-		Duel.BreakEffect()
-		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND)
-		local g=Duel.SelectMatchingCard(1-tp,aux.NecroValleyFilter(c98787535.thfilter),tp,0,LOCATION_GRAVE,1,1,nil,tp)
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(tp,g)
-	end
-end
-function c98787535.rgfilter(c,e)
-	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanBeEffectTarget(e)
-end
-function c98787535.fselect(g)
-	return g:IsExists(Card.IsRace,1,nil,RACE_REPTILE)
-end
-function c98787535.rgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return false end
-	local g=Duel.GetMatchingGroup(c98787535.rgfilter,tp,LOCATION_REMOVED,0,nil,e)
-	if chk==0 then return g:CheckSubGroup(c98787535.fselect,2,2) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local sg=g:SelectSubGroup(tp,c98787535.fselect,false,2,2)
-	Duel.SetTargetCard(sg)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,sg,2,0,0)
-end
-function c98787535.rgop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	if #g>0 then
-		Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN)
-	end
-end