upd 42

expansions/script/c114064005.lua

 function c114064005.initial_effect(c)
+    aux.AddCodeList(c,40640057)
     local e1=Effect.CreateEffect(c)
     e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
     e1:SetRange(LOCATION_HAND+LOCATION_DECK)
@@ -67,7 +68,7 @@ function c114064005.repop(e,tp,eg,ep,ev,re,r,rp)
     Duel.SendtoGrave(e:GetHandler(),REASON_REPLACE+REASON_EFFECT)
 end
 function c114064005.actfilter(c)
-    return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsCode(80831721,15471265,20065322,25573054,40703222,85787173,89086566)
+    return c:IsType(TYPE_SPELL+TYPE_TRAP) and aux.IsCodeListed(c,40640057)
 end
 function c114064005.thop(e,tp,eg,ep,ev,re,r,rp)
     if Duel.GetFlagEffect(tp,114064006)>0 then return end
@@ -103,7 +104,7 @@ end
 function c114064005.actcon(con)
     return function(e,tp,eg,ep,ev,re,r,rp)
         local c=e:GetHandler()
-        return (not con or con(e,tp,eg,ep,ev,re,r,rp)) and c:IsCode(80831721,15471265,20065322,25573054,40703222,85787173,89086566) and ((c:IsType(TYPE_TRAP) or (c:IsType(TYPE_SPELL) and c:IsType(TYPE_QUICKPLAY))) or (Duel.GetTurnPlayer()==tp and Duel.GetCurrentChain()==0 and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2))) and c:IsLocation(LOCATION_DECK)
+        return (not con or con(e,tp,eg,ep,ev,re,r,rp)) and aux.IsCodeListed(c,40640057) and ((c:IsType(TYPE_TRAP) or (c:IsType(TYPE_SPELL) and c:IsType(TYPE_QUICKPLAY))) or (Duel.GetTurnPlayer()==tp and Duel.GetCurrentChain()==0 and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2))) and c:IsLocation(LOCATION_DECK)
     end
 end
 function c114064005.actarget(e,te,tp)

expansions/script/c11451767.lua

+--汐击龙的汐叹
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(TIMING_DRAW_PHASE)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetRange(LOCATION_DECK)
+	e2:SetCost(cm.cost)
+	c:RegisterEffect(e2)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_ACTIVATE_COST)
+	e4:SetRange(LOCATION_DECK)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetTarget(cm.actarget)
+	e4:SetOperation(cm.costop)
+	c:RegisterEffect(e4)
+	--act in hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	c:RegisterEffect(e3)
+	--spsummon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(m,1))
+	e5:SetCategory(CATEGORY_TODECK)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e5:SetProperty(EFFECT_FLAG_DELAY)
+	e5:SetRange(LOCATION_REMOVED)
+	e5:SetCondition(cm.spcon)
+	e5:SetTarget(cm.sptg)
+	e5:SetOperation(cm.spop)
+	c:RegisterEffect(e5)
+	if not cm.global_check then
+		cm.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD)
+		ge1:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+		ge1:SetCondition(function() return Duel.GetFlagEffect(0,11451761)>0 end)
+		ge1:SetTargetRange(LOCATION_HAND,LOCATION_HAND)
+		Duel.RegisterEffect(ge1,tp)
+	end
+end
+function cm.actarget(e,te,tp)
+	e:SetLabelObject(te)
+	return te:GetHandler()==e:GetHandler()
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+	local te=e:GetLabelObject()
+	Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,false)
+	e:GetHandler():CreateEffectRelation(te)
+	local c=e:GetHandler()
+	local ev0=Duel.GetCurrentChain()+1
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_CHAIN_SOLVED)
+	e1:SetCountLimit(1)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return ev==ev0 end)
+	e1:SetOperation(cm.rsop)
+	e1:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_CHAIN_NEGATED)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if e:GetCode()==EVENT_CHAIN_SOLVED and rc:IsRelateToEffect(re) then
+		rc:SetStatus(STATUS_EFFECT_ENABLED,true)
+	end
+	if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) then
+		rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
+	end
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+	if chk==0 then return ft>1 end
+end
+function cm.refilter(c)
+	return c:IsAbleToRemove() and c:IsSetCard(0x9977) and c:IsType(TYPE_MONSTER) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup())
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ct=math.abs(Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)-Duel.GetFieldGroupCount(tp,0,LOCATION_HAND))
+	if e:GetHandler():IsLocation(LOCATION_HAND) then ct=math.abs(Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)-Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)-1) end
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.refilter,tp,LOCATION_HAND+LOCATION_MZONE,LOCATION_HAND+LOCATION_MZONE,ct,nil) end
+	Duel.RegisterFlagEffect(0,11451760,RESET_CHAIN,0,1)
+	Duel.RegisterFlagEffect(0,11451761,RESET_CHAIN,0,1)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,ct,PLAYER_ALL,LOCATION_HAND+LOCATION_MZONE)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local ct=math.abs(Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)-Duel.GetFieldGroupCount(tp,0,LOCATION_HAND))
+	if not Duel.IsExistingMatchingCard(cm.refilter,tp,LOCATION_HAND+LOCATION_MZONE,LOCATION_HAND+LOCATION_MZONE,ct,nil) then return end
+	local g=Duel.SelectMatchingCard(tp,cm.refilter,tp,LOCATION_HAND+LOCATION_MZONE,LOCATION_HAND+LOCATION_MZONE,ct,ct,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+end
+function cm.spfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x9977)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.spfilter,1,nil)
+end
+function cm.refilter(c)
+	return c:IsAbleToRemove() and c:IsSetCard(0x9977)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToDeck() and c:GetFlagEffect(m)==0 end
+	c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,0,1)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+	end
+	--add setcode
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetCode(EFFECT_ADD_SETCODE)
+	e2:SetValue(0x9977)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
\ No newline at end of file

expansions/script/c116227966.lua

+--星遗物的起动
+local m=116227966
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    e1:SetCountLimit(1,m)
+    e1:SetTarget(cm.target)
+    e1:SetOperation(cm.activate)
+    c:RegisterEffect(e1)
+    local e3=e1:Clone()
+    e3:SetRange(LOCATION_DECK)
+    e3:SetTarget(cm.target2)
+    e3:SetOperation(cm.activate2)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_FIELD)
+    e4:SetCode(EFFECT_ACTIVATE_COST)
+    e4:SetRange(LOCATION_DECK)
+    e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e4:SetTargetRange(1,0)
+    e4:SetTarget(cm.actarget)
+    e4:SetOperation(cm.costop)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD)
+    e5:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e5:SetRange(LOCATION_DECK)
+    e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
+    c:RegisterEffect(e5)
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetCode(EVENT_LEAVE_FIELD)
+    e2:SetRange(LOCATION_GRAVE)
+    e2:SetCountLimit(1,m+1)
+    e2:SetCondition(cm.rmcon)
+    e2:SetCost(aux.bfgcost)
+    e2:SetTarget(cm.rmtg)
+    e2:SetOperation(cm.rmop)
+    c:RegisterEffect(e2)
+end
+function cm.spfilter(c,e,tp)
+    return c:IsSetCard(0x10c) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.tffilter(c)
+    return c:IsSetCard(0xfe) and c:IsType(TYPE_CONTINUOUS) and not c:IsForbidden()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then
+        local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+        if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ft=ft-1 end
+        return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) and ft>0 and Duel.IsExistingMatchingCard(cm.tffilter,tp,LOCATION_DECK,0,1,nil)
+    end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
+    if g:GetCount()<=0 then return end
+    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+    Duel.BreakEffect()
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+    local tc=Duel.SelectMatchingCard(tp,cm.tffilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
+    if tc then
+        Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+    end
+end
+function cm.actarget(e,te,tp)
+    return te:GetHandler()==e:GetHandler()
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+end
+function cm.cfilter(c)
+    return c:GetColumnGroupCount()>0
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then
+        local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+        if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ft=ft-1 end
+        return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) and ft>0 and Duel.IsExistingMatchingCard(cm.tffilter,tp,LOCATION_DECK,0,1,nil)
+    end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.activate2(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+    if g:GetCount()<=0 then return end
+    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+    Duel.BreakEffect()
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+    local tc=Duel.SelectMatchingCard(tp,cm.tffilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
+    if tc then
+        Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+    end
+end
+function cm.egfilter(c,tp)
+    return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and c:IsPreviousSetCard(0x10c) and c:GetReasonPlayer()==1-tp
+end
+function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
+    return eg:IsExists(cm.egfilter,1,nil,tp)
+end
+function cm.fselect(g,tp)
+    return Duel.IsExistingMatchingCard(cm.lkfilter,tp,LOCATION_EXTRA,0,1,nil,g)
+end
+function cm.lkfilter(c,g)
+    return c:IsSetCard(0x10c) and c:IsLinkSummonable(g,nil,g:GetCount(),g:GetCount())
+end
+function cm.chkfilter(c,tp)
+    return c:IsType(TYPE_LINK) and c:IsSetCard(0x10c) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then
+        if not Duel.IsPlayerCanSpecialSummonCount(tp,2) then return false end
+        local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+        if ft<=0 then return false end
+        if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+        local cg=Duel.GetMatchingGroup(cm.chkfilter,tp,LOCATION_EXTRA,0,nil,tp)
+        if #cg==0 then return false end
+        local _,maxlink=cg:GetMaxGroup(Card.GetLink)
+        if maxlink>ft then maxlink=ft end
+        local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,nil,e,tp)
+        return g:CheckSubGroup(cm.fselect,1,maxlink,tp)
+    end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE)
+end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+    if not Duel.IsPlayerCanSpecialSummonCount(tp,2) then return end
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+    local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,nil,e,tp)
+    local cg=Duel.GetMatchingGroup(cm.chkfilter,tp,LOCATION_EXTRA,0,nil,tp)
+    local _,maxlink=cg:GetMaxGroup(Card.GetLink)
+    if ft>0 and maxlink then
+        if maxlink>ft then maxlink=ft end
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+        local sg=g:SelectSubGroup(tp,cm.fselect,false,1,maxlink,tp)
+        if not sg then return end
+        local tc=sg:GetFirst()
+        while tc do
+            Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
+            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=e1:Clone()
+            e2:SetCode(EFFECT_DISABLE_EFFECT)
+            e2:SetValue(RESET_TURN_SET)
+            tc:RegisterEffect(e2)
+            tc=sg:GetNext()
+        end
+        Duel.SpecialSummonComplete()
+        local og=Duel.GetOperatedGroup()
+        Duel.AdjustAll()
+        if og:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<sg:GetCount() then return end
+        local tg=Duel.GetMatchingGroup(cm.lkfilter,tp,LOCATION_EXTRA,0,nil,og)
+        if og:GetCount()==sg:GetCount() and tg:GetCount()>0 then
+            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+            local rg=tg:Select(tp,1,1,nil)
+            Duel.LinkSummon(tp,rg:GetFirst(),og,nil,#og,#og)
+        end
+    end
+end

expansions/script/c116968003.lua

+--教导的始祖 艾莉西亚
+local m=116968003
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:EnableReviveLimit()
+    aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x145),aux.FilterBoolFunction(Card.IsSummonLocation,LOCATION_EXTRA),true)
+    aux.AddContactFusionProcedure(c,cm.cfilter,LOCATION_MZONE,LOCATION_MZONE,Duel.SendtoGrave,REASON_COST+REASON_MATERIAL)
+    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(cm.splimit)
+    c:RegisterEffect(e0)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e1:SetOperation(cm.negop)
+    c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e2:SetCode(EVENT_TO_GRAVE)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetTarget(cm.pentg)
+    e2:SetOperation(cm.penop)
+    c:RegisterEffect(e2)
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(m,0))
+    e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_PZONE)
+    e3:SetCountLimit(1)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(m,1))
+    e4:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
+    e4:SetType(EFFECT_TYPE_IGNITION)
+    e4:SetRange(LOCATION_PZONE)
+    e4:SetCountLimit(1,m)
+    e4:SetCondition(cm.spcon)
+    e4:SetTarget(cm.sptg)
+    e4:SetOperation(cm.spop)
+    c:RegisterEffect(e4)
+    local e5=e4:Clone()
+    e5:SetType(EFFECT_TYPE_QUICK_O)
+    e5:SetCode(EVENT_FREE_CHAIN)
+    e5:SetCondition(cm.spcon2)
+    c:RegisterEffect(e5)
+end
+function cm.splimit(e,se,sp,st)
+    return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION or e:GetHandler()==se:GetHandler()
+end
+function cm.cfilter(c,fc)
+    return c:IsAbleToGraveAsCost() and (c:IsControler(fc:GetControler()) or c:IsFaceup())
+end
+function cm.negop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    local g=Duel.GetMatchingGroup(Card.IsSummonLocation,tp,LOCATION_MZONE,LOCATION_MZONE,nil,LOCATION_EXTRA)
+    local tc=g:GetFirst()
+    while tc do
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_DISABLE)
+        e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+        tc:RegisterEffect(e1)
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_SINGLE)
+        e2:SetCode(EFFECT_DISABLE_EFFECT)
+        e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+        tc:RegisterEffect(e2)
+        if tc:IsType(TYPE_TRAPMONSTER) then
+            local e3=Effect.CreateEffect(c)
+            e3:SetType(EFFECT_TYPE_SINGLE)
+            e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
+            e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+            tc:RegisterEffect(e3)
+        end
+        tc=g:GetNext()
+    end
+end
+function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
+end
+function cm.penop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) then
+        Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+    end
+end
+function cm.thfilter(c)
+    return c:IsSetCard(0x145) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+    if #g<=0 then return end
+    Duel.SendtoHand(g,nil,REASON_EFFECT)
+    Duel.ConfirmCards(1-tp,g)
+    Duel.BreakEffect()
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_CHANGE_LSCALE)
+    e1:SetValue(9)
+    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+    c:RegisterEffect(e1)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_CHANGE_RSCALE)
+    c:RegisterEffect(e2)
+end
+function cm.setcfilter(c)
+    return c:IsFaceup() and c:IsSetCard(0x145)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.IsExistingMatchingCard(Card.IsSummonLocation,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,LOCATION_EXTRA) and not Duel.IsExistingMatchingCard(cm.setcfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.IsExistingMatchingCard(Card.IsSummonLocation,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,LOCATION_EXTRA) and Duel.IsExistingMatchingCard(cm.setcfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.tgfilter(c)
+    return c:IsSetCard(0x145) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,true) end
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+    local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+    if #g<=0 then return end
+    Duel.SendtoGrave(g,REASON_EFFECT)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+    local g2=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,1,nil)
+    if #g2<=0 then return end
+    Duel.SendtoGrave(g2,REASON_EFFECT)
+    Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)
+    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(cm.spexlimit)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    Duel.RegisterEffect(e1,tp)
+end
+function cm.spexlimit(e,c)
+    return c:IsLocation(LOCATION_EXTRA)
+end

expansions/script/c117485040.lua

@@ -86,8 +86,7 @@ function c117485040.activate2(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
     if not c:IsRelateToEffect(e) then return end
     local tc=Duel.GetFirstTarget()
-    if tc:IsRelateToEffect(e) and tc:IsFaceup() then
-        Duel.Destroy(tc,REASON_EFFECT)
+    if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.Destroy(tc,REASON_EFFECT)>0 then
         local g=Duel.GetMatchingGroup(c117485040.filter3,tp,LOCATION_DECK,0,nil,e,tp,tc:GetCode())
         local b1=g:GetCount()>0
         local b2=Duel.IsChainNegatable(ev) and c:IsDestructable()
@@ -106,4 +105,4 @@ function c117485040.activate2(e,tp,eg,ep,ev,re,r,rp)
             Duel.Destroy(c,REASON_EFFECT)
         end
     end
-end
\ No newline at end of file
+end

expansions/script/c118038143.lua

@@ -13,8 +13,7 @@ function c118038143.initial_effect(c)
     c:RegisterEffect(e2)
 end
 function c118038143.target(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-        and Duel.IsExistingMatchingCard(Card.IsCanBeSpecialSummoned,tp,LOCATION_HAND,0,1,nil,e,0,tp,false,false) end
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(Card.IsCanBeSpecialSummoned,tp,LOCATION_HAND,0,1,nil,e,0,tp,false,false) end
     Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
 function c118038143.activate(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c121082832.lua

@@ -23,33 +23,58 @@ function c121082832.repfilter(c,tc)
     return c==tc and c:IsFacedown()
 end
 function c121082832.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return eg:IsExists(c121082832.repfilter,1,nil,e:GetLabelObject()) end
+    if chk==0 then return eg:IsExists(c121082832.repfilter,1,nil,e:GetOwner()) end
     return true
 end
 function c121082832.desrepval(e,c)
-    return c121082832.repfilter(c,e:GetLabelObject())
+    return c121082832.repfilter(c,e:GetOwner())
+end
+function c121082832.con(e)
+    return e:GetOwner():GetFlagEffect(121082832)>0 and e:GetOwner():IsFacedown()
+end
+function c121082832.actlimit(e,re,tp)
+    return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler()~=e:GetOwner()
+end
+function c121082832.setlimit(e,c,tp)
+    return c:IsType(TYPE_FIELD) and c~=e:GetOwner()
 end
 function c121082832.op(e,tp,eg,ep,ev,re,r,rp,chk)
     local c=e:GetHandler()
     Duel.MoveToField(c,tp,tp,LOCATION_FZONE,POS_FACEDOWN,true)
     Duel.ConfirmCards(1-tp,c)
-    local e2=Effect.CreateEffect(c)
-    e2:SetType(EFFECT_TYPE_FIELD)
-    e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-    e2:SetTargetRange(1,1)
-    e2:SetCondition(c121082832.effcon)
-    e2:SetCode(EFFECT_CHANGE_CODE)
-    e2:SetValue(121082832)
-    Duel.RegisterEffect(e2,tp)
+    c:RegisterFlagEffect(121082832,RESET_EVENT+RESETS_STANDARD,0,1)
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_FIELD)
+    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+    e3:SetTargetRange(1,1)
+    e3:SetCondition(c121082832.effcon)
+    e3:SetCode(EFFECT_CHANGE_CODE)
+    e3:SetValue(121082832)
+    Duel.RegisterEffect(e3,tp)
     local e7=Effect.CreateEffect(c)
     e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
     e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
     e7:SetRange(LOCATION_FZONE)
     e7:SetCode(EFFECT_SEND_REPLACE)
-    e7:SetLabelObject(c)
     e7:SetTarget(c121082832.desreptg)
     e7:SetValue(c121082832.desrepval)
     Duel.RegisterEffect(e7,tp)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e1:SetTargetRange(1,0)
+    e1:SetCondition(c121082832.con)
+    e1:SetValue(c121082832.actlimit)
+    Duel.RegisterEffect(e1,tp)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_CANNOT_SSET)
+    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e2:SetTargetRange(1,0)
+    e2:SetCondition(c121082832.con)
+    e2:SetTarget(c121082832.setlimit)
+    Duel.RegisterEffect(e2,tp)
 end
 function c121082832.target(e,tp,eg,ep,ev,re,r,rp,chk)
     if chk==0 then return true end
@@ -59,7 +84,7 @@ function c121082832.target(e,tp,eg,ep,ev,re,r,rp,chk)
     e1:SetCode(EVENT_PHASE+PHASE_END)
     e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
     e1:SetCountLimit(1)
-    e1:SetRange(LOCATION_SZONE)
+    e1:SetRange(LOCATION_FZONE)
     e1:SetCondition(c121082832.descon)
     e1:SetOperation(c121082832.desop)
     e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3)
@@ -79,7 +104,7 @@ function c121082832.desop(e,tp,eg,ep,ev,re,r,rp)
         e1:SetCategory(CATEGORY_DESTROY)
         e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
         e1:SetCode(EVENT_PHASE+PHASE_END)
-        e1:SetRange(LOCATION_SZONE)
+        e1:SetRange(LOCATION_FZONE)
         e1:SetCountLimit(1+EFFECT_COUNT_CODE_DUEL)
         e1:SetTarget(c121082832.target2)
         e1:SetOperation(c121082832.operation2)

expansions/script/c4058.lua

@@ -141,7 +141,7 @@ function c4058.initial_effect(c)
     e16:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
     e16:SetRange(LOCATION_ONFIELD)
     e16:SetTargetRange(LOCATION_DECK,0)
-    e16:SetTarget(c4058.eftg)
+    e16:SetTarget(aux.TargetBoolFunction(Card.IsCode,16067089))
     e16:SetLabelObject(e15)
     c:RegisterEffect(e16)
     --出场
@@ -157,7 +157,7 @@ function c4058.initial_effect(c)
     e18:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
     e18:SetRange(LOCATION_ONFIELD)
     e18:SetTargetRange(LOCATION_DECK,0)
-    e18:SetTarget(c4058.eftg4)
+    e18:SetTarget(aux.TargetBoolFunction(Card.IsCode,93217231,80678380,16067089,1683982))
     e18:SetLabelObject(e17)
     c:RegisterEffect(e18)
     --negate
@@ -175,7 +175,7 @@ function c4058.initial_effect(c)
     e20:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
     e20:SetRange(LOCATION_ONFIELD)
     e20:SetTargetRange(LOCATION_DECK,0)
-    e20:SetTarget(c4058.eftg2)
+    e20:SetTarget(aux.TargetBoolFunction(Card.IsCode,80678380))
     e20:SetLabelObject(e19)
     c:RegisterEffect(e20)
     --Activate
@@ -186,22 +186,33 @@ function c4058.initial_effect(c)
     e21:SetCode(EVENT_FREE_CHAIN)
     e21:SetRange(LOCATION_DECK)
     e21:SetCountLimit(1,93217231)
-    e21:SetHintTiming(0,0x1e0)
     e21:SetTarget(c4058.target6)
     e21:SetOperation(c4058.activate6)
     local e22=Effect.CreateEffect(c)
     e22:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
     e22:SetRange(LOCATION_ONFIELD)
     e22:SetTargetRange(LOCATION_DECK,0)
-    e22:SetTarget(c4058.eftg3)
+    e22:SetTarget(aux.TargetBoolFunction(Card.IsCode,93217231))
     e22:SetLabelObject(e21)
     c:RegisterEffect(e22)
+    local e27=Effect.CreateEffect(c)
+    e27:SetType(EFFECT_TYPE_ACTIVATE)
+    e27:SetCode(EVENT_FREE_CHAIN)
+    e27:SetRange(LOCATION_DECK)
+    e27:SetCountLimit(1,16839820)
+    local e28=Effect.CreateEffect(c)
+    e28:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+    e28:SetRange(LOCATION_ONFIELD)
+    e28:SetTargetRange(LOCATION_DECK,0)
+    e28:SetTarget(aux.TargetBoolFunction(Card.IsCode,1683982))
+    e28:SetLabelObject(e27)
+    c:RegisterEffect(e28)
     --activate from hand
     local e23=Effect.CreateEffect(c)
     e23:SetType(EFFECT_TYPE_FIELD)
     e23:SetCode(EFFECT_TRAP_ACT_IN_HAND)
     e23:SetRange(LOCATION_ONFIELD)
-    e23:SetTarget(aux.TargetBoolFunction(Card.IsCode,93217231,80678380,16067089))
+    e23:SetTarget(aux.TargetBoolFunction(Card.IsCode,93217231,80678380,16067089,1683982))
     e23:SetTargetRange(LOCATION_HAND,0)
     c:RegisterEffect(e23)
     --activate cost
@@ -225,7 +236,7 @@ function c4058.initial_effect(c)
     e26:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
     e26:SetRange(LOCATION_ONFIELD)
     e26:SetTargetRange(LOCATION_DECK,0)
-    e26:SetTarget(c4058.eftg4)
+    e26:SetTarget(aux.TargetBoolFunction(Card.IsCode,93217231,80678380,16067089,1683982))
     e26:SetLabelObject(e25)
     c:RegisterEffect(e26)
 end
@@ -417,18 +428,6 @@ function c4058.activate4(e,tp,eg,ep,ev,re,r,rp)
         tc:CompleteProcedure()
     end
 end
-function c4058.eftg(e,c)
-    return c:IsCode(16067089) 
-end
-function c4058.eftg2(e,c)
-    return c:IsCode(80678380) 
-end
-function c4058.eftg3(e,c)
-    return c:IsCode(93217231) 
-end
-function c4058.eftg4(e,c)
-    return c:IsCode(16067089,80678380,93217231) 
-end
 function c4058.actarget(e,te,tp) 
     return te:GetHandler()==e:GetHandler()
 end
@@ -516,4 +515,4 @@ function c4058.spcon(e,c)
     if c==nil then return true end
     local tp=c:GetControler()
     return not c:IsPublic()
-end
\ No newline at end of file
+end

expansions/script/c89390000.lua

@@ -76,7 +76,7 @@ function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.sretop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,1,REASON_EFFECT)>0 and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.GetFlagEffect(tp,m)==0 then
+    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)>0 and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.GetFlagEffect(tp,m)==0 then
         local copyt=cm[tp]
         local exg=Group.CreateGroup()
         for k,v in pairs(copyt) do
@@ -84,10 +84,10 @@ function cm.sretop(e,tp,eg,ep,ev,re,r,rp)
         end
         if exg:GetClassCount(Card.GetOriginalCode)>=3 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
             Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
-            local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+            local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
             if g:GetCount()==1 then
                 Duel.HintSelection(g)
-                Duel.SendtoHand(g,nil,REASON_EFFECT)
+                Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
                 Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
             end
         end

expansions/script/c89390001.lua

@@ -76,7 +76,7 @@ function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.sretop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,1,REASON_EFFECT)>0 and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) and Duel.GetFlagEffect(tp,m)==0 then
+    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)>0 and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) and Duel.GetFlagEffect(tp,m)==0 then
         local copyt=cm[tp]
         local exg=Group.CreateGroup()
         for k,v in pairs(copyt) do
@@ -84,8 +84,8 @@ function cm.sretop(e,tp,eg,ep,ev,re,r,rp)
         end
         if exg:GetClassCount(Card.GetOriginalCode)>=3 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
             Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-            local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
-            if g:GetCount()==1 then
+            local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,3,nil)
+            if g:GetCount()>0 then
                 Duel.HintSelection(g)
                 Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
                 Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)

expansions/script/c89390002.lua

@@ -76,7 +76,7 @@ function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.sretop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,1,REASON_EFFECT)>0 and cm.ckecktarget(e,tp) and Duel.GetFlagEffect(tp,m)==0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)>0 and cm.ckecktarget(e,tp) and Duel.GetFlagEffect(tp,m)==0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
         local chkf=tp
         local mg1=Duel.GetFusionMaterial(tp)
         local copyt=cm[tp]

expansions/script/c89390004.lua

+--原生种·阿露菲米
+local m=89390004
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_REMOVE)
+    e2:SetType(EFFECT_TYPE_IGNITION)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCountLimit(1,m)
+    e2:SetTarget(cm.target)
+    e2:SetOperation(cm.operation)
+    c:RegisterEffect(e2)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_TODECK+CATEGORY_REMOVE)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e1:SetCode(EVENT_REMOVE)
+    e1:SetTarget(cm.srettg)
+    e1:SetOperation(cm.sretop)
+    c:RegisterEffect(e1)
+    if not cm.global_check then
+        cm.global_check=true
+        local ge1=Effect.CreateEffect(c)
+        ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        ge1:SetCode(EVENT_CHAINING)
+        ge1:SetOperation(cm.check)
+        Duel.RegisterEffect(ge1,0)
+        local ge2=Effect.CreateEffect(c)
+        ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        ge2:SetCode(EVENT_CHAIN_SOLVED)
+        ge2:SetCondition(cm.clearcon)
+        ge2:SetOperation(cm.clear)
+        Duel.RegisterEffect(ge2,0)
+        local ge3=ge2:Clone()
+        ge3:SetCode(EVENT_CHAIN_NEGATED)
+        Duel.RegisterEffect(ge3,0)
+        local ge4=ge1:Clone()
+        ge4:SetCode(EVENT_CHAIN_NEGATED)
+        ge4:SetCondition(cm.rscon)
+        ge4:SetOperation(cm.reset)
+        --when the trigger=true, if the activation of the last effect "c4" was negated, this card effect's applying or not will depend on "c3". when the trigger=false, it will depend on "c4".
+        local trigger=true
+        if trigger then Duel.RegisterEffect(ge4,0) end
+    end
+end
+function cm.check(e,tp,eg,ep,ev,re,r,rp)
+    cm[ev]={re,rp}
+end
+function cm.rscon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetCurrentChain()>1
+end
+function cm.reset(e,tp,eg,ep,ev,re,r,rp)
+    cm[ev]={re,2}
+end
+function cm.clearcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetCurrentChain()==1
+end
+function cm.clear(e,tp,eg,ep,ev,re,r,rp)
+    local i=1
+    while cm[i] do
+        cm[i]=nil
+        i=i+1
+    end
+end
+function cm.filter(c)
+    return c:IsRace(RACE_PSYCHO) and not c:IsCode(m) and c:IsAbleToRemove()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    local res=true
+    local i=1
+    while type(cm[i])=="table" do
+        local re,rp=table.unpack(cm[i])
+        if rp==tp then res=true end
+        if rp==1-tp then res=false end
+        i=i+1
+    end
+    if not res then return end
+    local c=e:GetHandler()
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+    if not g or g:GetCount()<=0 then return end
+    local tc=g:GetFirst()
+    if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)<1 then return end
+    if not c:IsRelateToEffect(e) or not c:IsFaceup() then return end
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+    e1:SetCode(EFFECT_UPDATE_ATTACK)
+    e1:SetValue(tc:GetBaseAttack())
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    c:RegisterEffect(e1)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_UPDATE_DEFENSE)
+    e2:SetValue(tc:GetBaseDefense())
+    c:RegisterEffect(e2)
+    c:CopyEffect(tc:GetOriginalCode(),RESET_EVENT+0x1fe0000)
+end
+
+function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsAbleToDeck() end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,PLAYER_ALL,LOCATION_DECK)
+end
+function cm.sretop(e,tp,eg,ep,ev,re,r,rp)
+    local res=true
+    local i=1
+    while type(cm[i])=="table" do
+        local re,rp=table.unpack(cm[i])
+        if rp==tp then res=true end
+        if rp==1-tp then res=false end
+        i=i+1
+    end
+    if not res then return end
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)>0 then
+        Duel.BreakEffect()
+        local g1=Duel.GetDecktopGroup(tp,2)
+        local g2=Duel.GetDecktopGroup(1-tp,2)
+        g1:Merge(g2)
+        Duel.DisableShuffleCheck()
+        if Duel.Remove(g1,POS_FACEUP,REASON_EFFECT)>0 then
+            local ct=Duel.GetCurrentChain()
+            if type(cm[ct+1])=="table" then
+                local re,rp=table.unpack(cm[ct+1])
+                if rp==tp then
+                    Duel.BreakEffect()
+                    Duel.Draw(tp,1,REASON_EFFECT)
+                end
+            end
+        end
+    end
+end

expansions/script/c89390005.lua

+--心神不宁的炼金术师
+local m=89390005
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_CHAINING)
+    e1:SetCondition(cm.condition)
+    e1:SetTarget(cm.target)
+    e1:SetOperation(cm.operation)
+    c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+    e2:SetCode(EVENT_REMOVE)
+    e2:SetOperation(cm.regop)
+    c:RegisterEffect(e2)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_TOHAND)
+    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e3:SetCode(EVENT_PHASE+PHASE_END)
+    e3:SetRange(LOCATION_REMOVED)
+    e3:SetCountLimit(1,m)
+    e3:SetCondition(cm.thcon)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE)
+    e4:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+    e4:SetCondition(cm.handcon)
+    c:RegisterEffect(e4)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+    return rp==1-tp
+end
+function cm.filter1(c)
+    return c:IsRace(RACE_PSYCHO) and c:IsAbleToRemove() and not c:IsPublic() and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_DECK,0,1,nil,c)
+end
+function cm.filter2(c,mc)
+    return c:IsType(TYPE_MONSTER) and not c:IsAttribute(mc:GetAttribute()) and c:IsAbleToRemove()
+end
+function cm.filter3(c,mc)
+    return c:IsCode(mc:GetCode()) and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_HAND,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+    local g1=Duel.SelectMatchingCard(tp,cm.filter1,tp,LOCATION_HAND,0,1,1,nil)
+    if g1:GetCount()==0 then return end
+    Duel.ConfirmCards(1-tp,g1)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g2=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_DECK,0,1,1,nil,g1:GetFirst())
+    if g2:GetCount()~=0 and Duel.Remove(g1,POS_FACEUP,REASON_EFFECT)>0 and Duel.Remove(g2,POS_FACEUP,REASON_EFFECT)>0 then
+        local tc=g2:GetFirst()
+        if tc:IsRace(RACE_PSYCHO) and Duel.IsExistingMatchingCard(cm.filter3,tp,LOCATION_DECK,0,1,nil,tc) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+            local g3=Duel.SelectMatchingCard(tp,cm.filter3,tp,LOCATION_DECK,0,1,1,nil,tc)
+            if g3:GetCount()>0 then
+                Duel.SendtoHand(g3,nil,REASON_EFFECT)
+                Duel.ConfirmCards(1-tp,g3)
+            end
+        end
+    end
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return e:GetHandler():GetFlagEffect(m)>0
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToHand() end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function cm.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
+function cm.handcon(e)
+    return Duel.GetCurrentChain()==1
+end

expansions/script/c89390006.lua

+--魂之座
+local m=89390006
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:SetSPSummonOnce(m)
+    c:EnableReviveLimit()
+    aux.AddFusionProcFunRep(c,cm.ffilter,2,true)
+    aux.AddContactFusionProcedure(c,cm.mfilter,LOCATION_DECK,0,Duel.Remove,POS_FACEUP,REASON_COST)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.fuslimit)
+    c:RegisterEffect(e1)
+    local e7=Effect.CreateEffect(c)
+    e7:SetType(EFFECT_TYPE_IGNITION)
+    e7:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
+    e7:SetRange(LOCATION_MZONE)
+    e7:SetCountLimit(1)
+    e7:SetCondition(cm.descon)
+    e7:SetOperation(cm.desop)
+    c:RegisterEffect(e7)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+    e2:SetCode(EVENT_REMOVE)
+    e2:SetOperation(cm.regop)
+    c:RegisterEffect(e2)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e3:SetCode(EVENT_PHASE+PHASE_END)
+    e3:SetRange(LOCATION_REMOVED)
+    e3:SetCondition(cm.thcon)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    if not cm.global_check then
+        cm.global_check=true
+        cm[0]={}
+        cm[1]={}
+        local ge1=Effect.CreateEffect(c)
+        ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        ge1:SetCode(EVENT_CHAINING)
+        ge1:SetOperation(cm.checkop)
+        Duel.RegisterEffect(ge1,0)
+        local ge2=ge1:Clone()
+        ge2:SetCode(EVENT_CHAIN_NEGATED)
+        ge2:SetOperation(cm.regop2)
+        Duel.RegisterEffect(ge2,0)
+        local ge4=Effect.CreateEffect(c)
+        ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        ge4:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+        ge4:SetOperation(cm.clearop)
+        Duel.RegisterEffect(ge4,0)
+    end
+end
+function cm.ffilter(c,fc,sub,mg,sg)
+    return c:IsRace(RACE_PSYCHO) and (not sg or not sg:IsExists(Card.IsFusionAttribute,1,c,c:GetFusionAttribute()))
+end
+function cm.mfilter(c)
+    local tp=c:GetControler()
+    local copyt=cm[tp]
+    local exg=Group.CreateGroup()
+    for k,v in pairs(copyt) do
+        if k and v then exg:AddCard(k) end
+    end
+    return exg:IsExists(Card.IsFusionCode,1,nil,c:GetFusionCode()) and c:IsAbleToRemoveAsCost()
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+    return e:GetHandler():GetMaterial():IsExists(Card.IsFusionCode,1,nil,89390004)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
+    local ac=Duel.AnnounceCard(tp,TYPE_MONSTER,OPCODE_ISTYPE)
+    c:SetHint(CHINT_CARD,ac)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e1:SetCode(EVENT_CHAIN_SOLVING)
+    e1:SetRange(LOCATION_MZONE)
+    e1:SetLabel(ac)
+    e1:SetCondition(cm.discon)
+    e1:SetOperation(cm.disop)
+    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_SELF_TURN)
+    c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e2:SetCode(EVENT_ADJUST)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetLabel(ac)
+    e2:SetOperation(cm.adjustop)
+    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_SELF_TURN)
+    c:RegisterEffect(e2)
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+    return re:GetHandler():IsCode(e:GetLabel())
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Remove(re:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end
+function cm.adjfilter(c,code)
+    return c:IsFaceup() and c:IsCode(code)
+end
+function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
+    local phase=Duel.GetCurrentPhase()
+    if (phase==PHASE_DAMAGE and not Duel.IsDamageCalculated()) or phase==PHASE_DAMAGE_CAL then return end
+    local g=Duel.GetMatchingGroup(cm.adjfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,e:GetLabel())
+    if g:GetCount()>0 then
+        Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+        Duel.Readjust()
+    end
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return e:GetHandler():GetFlagEffect(m)>0
+end
+function cm.spfilter1(c,e,tp,tid)
+    return c:GetTurnID()==tid and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    local tid=Duel.GetTurnCount()
+    if chk==0 then return e:GetHandler():IsAbleToDeck() and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c,e,tp,tid) end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    local tid=Duel.GetTurnCount()
+    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)==1 and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c,e,tp,tid) then
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+        local tg=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,c,e,tp,tid)
+        if tg:GetCount()<=0 then return end
+        Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+    local rc=re:GetHandler()
+    if re:IsActiveType(TYPE_MONSTER) and rc:IsRace(RACE_PSYCHO) then
+        cm[rp][rc]=1
+    end
+end
+function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
+    cm[rp][re:GetHandler()]=nil
+end
+function cm.clearop(e,tp,eg,ep,ev,re,r,rp)
+    cm[0]={}
+    cm[1]={}
+end

expansions/script/c98730013.lua

 --焰征龙-爆龙
 function c98730013.initial_effect(c)
-	--pendulum summon
-	aux.EnablePendulumAttribute(c,false)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(98730013,0))
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	c:RegisterEffect(e1)
-	--destroy
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(98730013,3))
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_PZONE)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e3:SetCountLimit(1,98730013)
-	e3:SetCondition(c98730013.descon)
-	e3:SetTarget(c98730013.destg1)
-	e3:SetOperation(c98730013.desop1)
-	c:RegisterEffect(e3)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(98730013,1))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,98730014)
-	e1:SetCost(c98730013.hspcost)
-	e1:SetTarget(c98730013.hsptg)
-	e1:SetOperation(c98730013.hspop)
-	c:RegisterEffect(e1)
-	--return
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(98730013,2))
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,98730014)
-	e2:SetCode(EVENT_PHASE+PHASE_END)
-	e2:SetCondition(c98730013.retcon)
-	e2:SetTarget(c98730013.rettg)
-	e2:SetOperation(c98730013.retop)
-	c:RegisterEffect(e2)
-	--destroy
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(98730013,3))
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_HAND)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e3:SetCountLimit(1,98730014)
-	e3:SetCost(c98730013.descost)
-	e3:SetTarget(c98730013.destg)
-	e3:SetOperation(c98730013.desop)
-	c:RegisterEffect(e3)
-	--search
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(98730013,4))
-	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_REMOVE)
-	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e4:SetCountLimit(1,98730014)
-	e4:SetTarget(c98730013.thtg)
-	e4:SetOperation(c98730013.thop)
-	c:RegisterEffect(e4)
-	--special summon
-	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(98730013,5))
-	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_PZONE)
-	e5:SetCountLimit(1,98730013)
-	e5:SetCost(c98730013.pspcost)
-	e5:SetTarget(c98730013.psptg)
-	e5:SetOperation(c98730013.pspop)
-	c:RegisterEffect(e5)
-	--return to hand
-	local e6=Effect.CreateEffect(c)
-	e6:SetDescription(aux.Stringid(98730013,6))
-	e6:SetCategory(CATEGORY_TOHAND)
-	e6:SetType(EFFECT_TYPE_IGNITION)
-	e6:SetRange(LOCATION_PZONE)
-	e6:SetCountLimit(1,98730013)
-	e6:SetTarget(c98730013.rettg)
-	e6:SetOperation(c98730013.retop)
-	c:RegisterEffect(e6)
+    --pendulum summon
+    aux.EnablePendulumAttribute(c,false)
+    --Activate
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(98730013,0))
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    c:RegisterEffect(e1)
+    --destroy
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(98730013,3))
+    e3:SetCategory(CATEGORY_DESTROY)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_PZONE)
+    e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e3:SetCountLimit(1,98730013)
+    e3:SetCondition(c98730013.descon)
+    e3:SetTarget(c98730013.destg1)
+    e3:SetOperation(c98730013.desop1)
+    c:RegisterEffect(e3)
+    --special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(98730013,1))
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+    e1:SetCountLimit(1,98730014)
+    e1:SetCost(c98730013.hspcost)
+    e1:SetTarget(c98730013.hsptg)
+    e1:SetOperation(c98730013.hspop)
+    c:RegisterEffect(e1)
+    --return
+    local e2=Effect.CreateEffect(c)
+    e2:SetDescription(aux.Stringid(98730013,2))
+    e2:SetCategory(CATEGORY_TOHAND)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCountLimit(1,98730014)
+    e2:SetCode(EVENT_PHASE+PHASE_END)
+    e2:SetCondition(c98730013.retcon)
+    e2:SetTarget(c98730013.rettg)
+    e2:SetOperation(c98730013.retop)
+    c:RegisterEffect(e2)
+    --destroy
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(98730013,3))
+    e3:SetCategory(CATEGORY_DESTROY)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e3:SetCountLimit(1,98730014)
+    e3:SetCost(c98730013.descost)
+    e3:SetTarget(c98730013.destg)
+    e3:SetOperation(c98730013.desop)
+    c:RegisterEffect(e3)
+    --search
+    local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(98730013,4))
+    e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_REMOVE)
+    e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+    e4:SetCountLimit(1,98730014)
+    e4:SetTarget(c98730013.thtg)
+    e4:SetOperation(c98730013.thop)
+    c:RegisterEffect(e4)
+    --special summon
+    local e5=Effect.CreateEffect(c)
+    e5:SetDescription(aux.Stringid(98730013,5))
+    e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e5:SetType(EFFECT_TYPE_IGNITION)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetCountLimit(1,98730013)
+    e5:SetCost(c98730013.pspcost)
+    e5:SetTarget(c98730013.psptg)
+    e5:SetOperation(c98730013.pspop)
+    c:RegisterEffect(e5)
+    --return to hand
+    local e6=Effect.CreateEffect(c)
+    e6:SetDescription(aux.Stringid(98730013,6))
+    e6:SetCategory(CATEGORY_TOHAND)
+    e6:SetType(EFFECT_TYPE_IGNITION)
+    e6:SetRange(LOCATION_PZONE)
+    e6:SetCountLimit(1,98730013)
+    e6:SetTarget(c98730013.rettg)
+    e6:SetOperation(c98730013.retop)
+    c:RegisterEffect(e6)
 end
 function c98730013.descon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(Card.IsAttribute,tp,LOCATION_PZONE,0,1,e:GetHandler(),ATTRIBUTE_FIRE)
+    return Duel.IsExistingMatchingCard(Card.IsAttribute,tp,LOCATION_PZONE,0,1,e:GetHandler(),ATTRIBUTE_FIRE)
+end
+function c98730013.desfilter1(c,tp)
+    return c:IsDestructable() and not (c:IsLocation(LOCATION_PZONE) and c:IsControler(tp))
 end
 function c98730013.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c98730013.desfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c98730013.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,c98730013.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+    if chkc then return chkc:IsOnField() and c98730013.desfilter1(chkc,tp) end
+    if chk==0 then return Duel.IsExistingTarget(c98730013.desfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+    local g=Duel.SelectTarget(tp,c98730013.desfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function c98730013.desop1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	local pc=Duel.GetMatchingGroup(Card.IsAttribute,tp,LOCATION_PZONE,0,e:GetHandler(),ATTRIBUTE_FIRE):GetFirst()
-	if not pc then return end
-	local dg=Group.FromCards(c,pc)
-	if Duel.Destroy(dg,REASON_EFFECT)~=2 then return end
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    local pc=Duel.GetMatchingGroup(Card.IsAttribute,tp,LOCATION_PZONE,0,e:GetHandler(),ATTRIBUTE_FIRE):GetFirst()
+    if not pc then return end
+    local dg=Group.FromCards(c,pc)
+    if Duel.Destroy(dg,REASON_EFFECT)~=2 then return end
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.Destroy(tc,REASON_EFFECT)
+    end
 end
 function c98730013.rfilter(c)
-	return (c:IsRace(RACE_DRAGON) or c:IsAttribute(ATTRIBUTE_FIRE)) and c:IsAbleToRemoveAsCost()
+    return (c:IsRace(RACE_DRAGON) or c:IsAttribute(ATTRIBUTE_FIRE)) and c:IsAbleToRemoveAsCost()
 end
 function c98730013.hspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c98730013.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c98730013.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,e:GetHandler())
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
+    if chk==0 then return Duel.IsExistingMatchingCard(c98730013.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,c98730013.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,e:GetHandler())
+    Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c98730013.hsptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
 function c98730013.hspop(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
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) then
+        Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+    end
 end
 function c98730013.retcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()~=tp
-		and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
+    return Duel.GetTurnPlayer()~=tp
+        and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
 end
 function c98730013.rettg(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)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
 end
 function c98730013.retop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and c:IsFaceup() then
-		Duel.SendtoHand(c,nil,REASON_EFFECT)
-	end
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) and c:IsFaceup() then
+        Duel.SendtoHand(c,nil,REASON_EFFECT)
+    end
 end
 function c98730013.dfilter(c)
-	return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsDiscardable() and c:IsAbleToGraveAsCost()
+    return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsDiscardable() and c:IsAbleToGraveAsCost()
 end
 function c98730013.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() and e:GetHandler():IsAbleToGraveAsCost()
-		and Duel.IsExistingMatchingCard(c98730013.dfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-	local g=Duel.SelectMatchingCard(tp,c98730013.dfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	g:AddCard(e:GetHandler())
-	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
+    if chk==0 then return e:GetHandler():IsDiscardable() and e:GetHandler():IsAbleToGraveAsCost()
+        and Duel.IsExistingMatchingCard(c98730013.dfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+    local g=Duel.SelectMatchingCard(tp,c98730013.dfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler())
+    g:AddCard(e:GetHandler())
+    Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
 end
 function c98730013.desfilter(c)
-	return c:IsDestructable()
+    return c:IsDestructable()
 end
 function c98730013.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c98730013.desfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c98730013.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,c98730013.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+    if chkc then return chkc:IsOnField() and c98730013.desfilter(chkc) end
+    if chk==0 then return Duel.IsExistingTarget(c98730013.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+    local g=Duel.SelectTarget(tp,c98730013.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function c98730013.desop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.Destroy(tc,REASON_EFFECT)
+    end
 end
 function c98730013.thfilter(c)
-	return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand()
+    return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand()
 end
 function c98730013.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c98730013.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+    if chk==0 then return Duel.IsExistingMatchingCard(c98730013.thfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
 function c98730013.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c98730013.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
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c98730013.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 c98730013.cfilter(c)
-	return (c:IsRace(RACE_DRAGON) or c:IsAttribute(ATTRIBUTE_FIRE)) and c:IsFaceup() and c:IsType(TYPE_PENDULUM)
-		and c:IsAbleToRemoveAsCost()
+    return (c:IsRace(RACE_DRAGON) or c:IsAttribute(ATTRIBUTE_FIRE)) and c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+        and c:IsAbleToRemoveAsCost()
 end
 function c98730013.pspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c98730013.cfilter,tp,LOCATION_EXTRA,0,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c98730013.cfilter,tp,LOCATION_EXTRA,0,2,2,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
+    if chk==0 then return Duel.IsExistingMatchingCard(c98730013.cfilter,tp,LOCATION_EXTRA,0,2,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,c98730013.cfilter,tp,LOCATION_EXTRA,0,2,2,nil)
+    Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c98730013.psptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
+        and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
 function c98730013.pspop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
-		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then
-		Duel.SendtoGrave(c,REASON_RULE)
-	end
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
+        and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then
+        Duel.SendtoGrave(c,REASON_RULE)
+    end
 end

expansions/script/c98730113.lua

@@ -91,9 +91,9 @@ function c98730113.desfilter(c)
 end
 function c98730113.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
     if chkc then return chkc:IsOnField() and c98730113.desfilter(chkc) end
-    if chk==0 then return Duel.IsExistingTarget(c98730113.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+    if chk==0 then return Duel.IsExistingTarget(c98730113.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
     Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-    local g=Duel.SelectTarget(tp,c98730113.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+    local g=Duel.SelectTarget(tp,c98730113.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
     Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
     Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end