wild

expansions/lflist.conf

@@ -987,7 +987,6 @@
 113705774 0
 114064005 0
 114303426 0
-114427368 0
 114431144 0
 114439429 0
 114562761 0
@@ -996,7 +995,6 @@
 114707556 0
 114722253 0
 114890515 0
-114967855 0
 115072031 0
 115284026 0
 115399521 0
@@ -1005,11 +1003,9 @@
 115850474 0
 116227966 0
 116301233 0
-116472626 0
 116511113 0
 116839253 0
 116968003 0
-117066828 0
 117179181 0
 117485040 0
 117681594 0
@@ -1022,7 +1018,6 @@
 118776531 0
 118817732 0
 118824150 0
-118875971 0
 119150521 0
 119638197 0
 119828752 0
@@ -1070,6 +1065,19 @@
 130006024 0
 151194046 0
 192746535 0
+14010283 0
+58510970 0
+79200001 0
+79200002 0
+79200003 0
+79200004 0
+89390007 0
+98920339 0
+98920377 0
+98940000 0
+9990228 0
+9990233 0
+99991009 0
 #Semi-Wild 1003
 31409200 0
 31409201 0
@@ -1222,9 +1230,45 @@
 30005040 0
 30005045 0
 30005000 0
+#「乱色狂歌」系列
+60001129 0
+60001130 0
+60001131 0
+60001132 0
+60001133 0
+60001134 0
+60001135 0
+60001136 0
+60001137 0
+60001138 0
+60001139 0
+60001140 0
+60001141 0
+60001142 0
+60001143 0
+60001143 0
+#230305
+30000330 0
+31400031 0
+40009546 0
+40010820 0
+60001141 0
+64800147 0
+72100214 0
+82206104 0
+90700000 0
+29010007 1
+37629203 1
+871100007 1
+9910078 2
+10113033 2
+22348156 2
+40009425 2
+82224022 2
+76029004 2
+98920204 2
 #230226
 12852002 0
-89990016 0
 11612601 0
 11612602 0
 11612603 0
@@ -1277,7 +1321,6 @@
 131000021 0
 82206103 1
 46260001 2
-82206104 2
 82206106 2
 #230129
 6102001 0
@@ -1315,7 +1358,6 @@
 33310214 0
 35300121 0
 60002094 0
-40009546 2
 #230115
 13131366 0
 25809001 0
@@ -2011,7 +2053,6 @@
 99988038 0
 15000108 1
 14010001 2
-37629203 2
 #220605
 10888915 0
 10888918 0
@@ -8588,7 +8629,6 @@
 82206083 0
 82206086 1
 82206103 1
-82206104 2
 82206106 2
 82207007 0
 82207032 1

expansions/script/c112640060.lua

+--メタファイズ－タイダル
 function c112640060.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,112640060)
-	e1:SetCost(c112640060.hspcost)
-	e1:SetTarget(c112640060.hsptg)
-	e1:SetOperation(c112640060.hspop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,112640061)
-	e2:SetCode(EVENT_PHASE+PHASE_END)
-	e2:SetCondition(c112640060.retcon)
-	e2:SetTarget(c112640060.rettg)
-	e2:SetOperation(c112640060.retop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_TOGRAVE)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCountLimit(1,112640062)
-	e3:SetCost(c112640060.tgcon)
-	e3:SetTarget(c112640060.tgtg)
-	e3:SetOperation(c112640060.tgop)
-	c:RegisterEffect(e3)
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-	e4:SetRange(LOCATION_REMOVED)
-	e4:SetCountLimit(1,112640063)
-	e4:SetCondition(c112640060.thcon)
-	e4:SetCost(c112640060.thcost)
-	e4:SetTarget(c112640060.thtg)
-	e4:SetOperation(c112640060.thop)
-	c:RegisterEffect(e4)
-end
+    --special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+    e1:SetCountLimit(1,112640060)
+    e1:SetCost(c112640060.hspcost)
+    e1:SetTarget(c112640060.hsptg)
+    e1:SetOperation(c112640060.hspop)
+    c:RegisterEffect(e1)
+    --return
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_TOHAND)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCountLimit(1,112640061)
+    e2:SetCode(EVENT_PHASE+PHASE_END)
+    e2:SetCondition(c112640060.retcon)
+    e2:SetTarget(c112640060.rettg)
+    e2:SetOperation(c112640060.retop)
+    c:RegisterEffect(e2)
+    --tograve
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_TOGRAVE)
+    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e3:SetProperty(EFFECT_FLAG_DELAY)
+    e3:SetCountLimit(1,112640062)
+    e3:SetCondition(c112640060.tgcon)
+    e3:SetTarget(c112640060.tgtg)
+    e3:SetOperation(c112640060.tgop)
+    c:RegisterEffect(e3)
+    --search
+    local e4=Effect.CreateEffect(c)
+    e4:SetCategory(CATEGORY_REMOVE)
+    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
+    e4:SetCountLimit(1,112640063)
+    e4:SetRange(LOCATION_REMOVED)
+    e4:SetCondition(c112640060.rmcon)
+    e4:SetCost(c112640060.rmcost)
+    e4:SetTarget(c112640060.rmtg)
+    e4:SetOperation(c112640060.rmop)
+    c:RegisterEffect(e4)
+end
+
 function c112640060.rfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
 end
 function c112640060.hspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c112640060.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c112640060.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(c112640060.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,c112640060.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,e:GetHandler())
+    Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c112640060.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 c112640060.hspop(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)
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) then
+        Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+    end
 end
+
 function c112640060.retcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()~=tp
-		and e:GetHandler():IsSummonType(SUMMON_TYPE_SPECIAL)
+    return Duel.GetTurnPlayer()~=tp
+        and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
 end
 function c112640060.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
 end
 function c112640060.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 c112640060.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
+    return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
 end
 function c112640060.tgfilter(c)
-	return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+    return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
 end
 function c112640060.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c112640060.tgfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+    if chk==0 then return Duel.IsExistingMatchingCard(c112640060.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
 end
 function c112640060.tgop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c112640060.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoGrave(g,REASON_EFFECT)
-	end
-end
-function c112640060.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
-end
-function c112640060.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
-	Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
-end
-function c112640060.thfilter(c)
-	return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
-end
-function c112640060.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c112640060.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c112640060.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c112640060.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
\ No newline at end of file
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+    local g=Duel.SelectMatchingCard(tp,c112640060.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoGrave(g,REASON_EFFECT)
+    end
+end
+
+function c112640060.rmcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
+end
+function c112640060.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+    Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
+end
+function c112640060.rmfilter(c)
+    return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
+end
+function c112640060.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c112640060.rmfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c112640060.rmop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c112640060.rmfilter,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

expansions/script/c112741551.lua

+--メタファイズ-ストリーム
 function c112741551.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,112741550)
-	e1:SetCost(c112741551.spcost)
-	e1:SetTarget(c112741551.sptg)
-	e1:SetOperation(c112741551.spop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,112741551)
-	e2:SetTarget(c112741551.rmtg)
-	e2:SetOperation(c112741551.rmop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
+    --spsummon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND)
+    e1:SetCountLimit(1,112741551)
+    e1:SetCost(c112741551.spcost)
+    e1:SetTarget(c112741551.sptg)
+    e1:SetOperation(c112741551.spop)
+    c:RegisterEffect(e1)
+    --remove
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e2:SetCode(EVENT_SUMMON_SUCCESS)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetCountLimit(1,112741552)
+    e2:SetTarget(c112741551.rmtg)
+    e2:SetOperation(c112741551.rmop)
+    c:RegisterEffect(e2)
+    local e3=e2:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)
 end
+
 function c112741551.costfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
 end
 function c112741551.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable()
-		and Duel.IsExistingMatchingCard(c112741551.costfilter,tp,LOCATION_HAND,0,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-	local g=Duel.SelectMatchingCard(tp,c112741551.costfilter,tp,LOCATION_HAND,0,1,1,c)
-	g:AddCard(c)
-	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable()
+        and Duel.IsExistingMatchingCard(c112741551.costfilter,tp,LOCATION_HAND,0,1,c) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+    local g=Duel.SelectMatchingCard(tp,c112741551.costfilter,tp,LOCATION_HAND,0,1,1,c)
+    g:AddCard(c)
+    Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
 end
 function c112741551.spfilter(c,e,tp)
-	return c:IsCode(112640060) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+    return c:IsCode(112640060) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c112741551.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c112741551.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingMatchingCard(c112741551.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
 function c112741551.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local tc=Duel.GetFirstMatchingCard(c112741551.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
-	if tc and 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_CANNOT_ATTACK)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		Duel.SpecialSummonComplete()
-	end
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    local tc=Duel.GetFirstMatchingCard(c112741551.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
+    if tc and 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_CANNOT_ATTACK)
+        e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+        tc:RegisterEffect(e1)
+        Duel.SpecialSummonComplete()
+    end
 end
+
 function c112741551.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetDecktopGroup(tp,3)
-	if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
+    local rg=Duel.GetDecktopGroup(tp,3)
+    if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
 end
 function c112741551.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetDecktopGroup(tp,3)
-	if g:GetCount()>0 then
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-	end
-end
\ No newline at end of file
+    local c=e:GetHandler()
+    local g=Duel.GetDecktopGroup(tp,3)
+    if g:GetCount()<=0 then return end
+    Duel.DisableShuffleCheck()
+    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c114427368.lua

-function c114427368.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,114427368)
-	e1:SetCost(c114427368.spcost)
-	e1:SetTarget(c114427368.sptg)
-	e1:SetOperation(c114427368.spop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_BE_MATERIAL)
-	e2:SetCondition(c114427368.effcon)
-	e2:SetOperation(c114427368.effop)
-	c:RegisterEffect(e2)
-end
-function c114427368.cfilter(c)
-	return c:IsType(TYPE_SPELL) and c:IsAbleToGraveAsCost()
-end
-function c114427368.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c114427368.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
-	Duel.DiscardHand(tp,c114427368.cfilter,1,1,REASON_COST)
-end
-function c114427368.thfilter(c)
-	return not c:IsCode(114427368) and c:IsSetCard(0x86) and c:IsAbleToHand()
-end
-function c114427368.spfilter(c,e,tp)
-	return c:IsSetCard(0x86) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c114427368.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c114427368.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function c114427368.spop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local tg=Duel.SelectMatchingCard(tp,c114427368.thfilter,tp,LOCATION_DECK,0,1,2,nil)
-	if tg:GetCount()>0 then
-		Duel.SendtoHand(tg,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tg)
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c114427368.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(114427368,0)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-			local g=Duel.SelectMatchingCard(tp,c114427368.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-			if g:GetCount()>0 then
-				Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-			end
-		end
-	end 
-end
-function c114427368.effcon(e,tp,eg,ep,ev,re,r,rp)
-	return r==REASON_XYZ and e:GetHandler():GetReasonCard():GetMaterial():IsExists(Card.IsPreviousLocation,3,nil,LOCATION_MZONE)
-end
-function c114427368.effop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,114427368)
-	local c=e:GetHandler()
-	local rc=c:GetReasonCard()
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(114427368,1))
-	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1)
-	e1:SetCost(c114427368.cost)
-	e1:SetTarget(c114427368.target1)
-	e1:SetOperation(c114427368.operation1)
-	e1:SetReset(RESET_EVENT+0x1fe0000)
-	rc:RegisterEffect(e1)
-	if not rc: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+0x1fe0000)
-		rc:RegisterEffect(e2,true)
-	end
-end
-function c114427368.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c114427368.filter1(c)
-	return c:IsSetCard(0x86) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
-end
-function c114427368.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingMatchingCard(c114427368.filter1,tp,LOCATION_GRAVE,0,3,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,tp,3)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function c114427368.operation1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local tg=Duel.SelectMatchingCard(tp,c114427368.filter1,tp,LOCATION_GRAVE,0,3,3,nil)
-	if not tg then return end
-	Duel.SendtoDeck(tg,nil,0,REASON_EFFECT)
-	local g=Duel.GetOperatedGroup()
-	if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
-	local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
-	if ct==3 then
-		Duel.BreakEffect()
-		Duel.Draw(tp,1,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c114967855.lua

-function c114967855.initial_effect(c)
-	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),4,3)
-	c:EnableReviveLimit()
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(114967855,0))
-	e1:SetCategory(CATEGORY_DISABLE+CATEGORY_ATKCHANGE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1)
-	e1:SetCost(c114967855.cost)
-	e1:SetTarget(c114967855.target)
-	e1:SetOperation(c114967855.operation)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(114967855,1))
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1)
-	e2:SetCost(c114967855.cost)
-	e2:SetTarget(c114967855.srtg)
-	e2:SetOperation(c114967855.srop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCondition(c114967855.indcon)
-	e3:SetValue(aux.TRUE)
-	c:RegisterEffect(e3)
-	local e4=e3:Clone()
-	e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
-	e4:SetValue(c114967855.indvalue)
-	c:RegisterEffect(e4)
-end
-function c114967855.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c114967855.filter(c)
-	return c:IsFaceup()
-end
-function c114967855.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c114967855.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c114967855.filter,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectTarget(tp,c114967855.filter,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
-end
-function c114967855.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
-		e1:SetValue(tc:GetAttack()/2)
-		e1:SetReset(RESET_EVENT+0x1fe0000)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_DISABLE)
-		e2:SetReset(RESET_EVENT+0x1fe0000)
-		tc:RegisterEffect(e2)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_SINGLE)
-		e3:SetCode(EFFECT_DISABLE_EFFECT)
-		e3:SetValue(RESET_TURN_SET)
-		e3:SetReset(RESET_EVENT+0x1fe0000)
-		tc:RegisterEffect(e3)
-	end
-end
-function c114967855.srfilter(c)
-	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_FAIRY) and c:GetLevel()==4
-end
-function c114967855.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c114967855.srfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_SEARCH+CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function c114967855.srop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c114967855.srfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tc)
-	end
-end
-function c114967855.indcon(e)
-	return e:GetHandler():GetOverlayGroup():FilterCount(Card.IsSetCard,nil,0x86)>0
-end
-function c114967855.indvalue(e,re)
-	return re:GetHandlerPlayer()~=e:GetHandlerPlayer()
-end
\ No newline at end of file

expansions/script/c115379763.lua

+--メタファイズ-バーナー
 function c115379763.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,115379760)
-	e1:SetCost(c115379763.spcost)
-	e1:SetTarget(c115379763.sptg)
-	e1:SetOperation(c115379763.spop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,115379763)
-	e2:SetTarget(c115379763.rmtg)
-	e2:SetOperation(c115379763.rmop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
+    --spsummon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND)
+    e1:SetCountLimit(1,115379763)
+    e1:SetCost(c115379763.spcost)
+    e1:SetTarget(c115379763.sptg)
+    e1:SetOperation(c115379763.spop)
+    c:RegisterEffect(e1)
+    --remove
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e2:SetCode(EVENT_SUMMON_SUCCESS)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetCountLimit(1,115379764)
+    e2:SetTarget(c115379763.rmtg)
+    e2:SetOperation(c115379763.rmop)
+    c:RegisterEffect(e2)
+    local e3=e2:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)
 end
+
 function c115379763.costfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
 end
 function c115379763.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable()
-		and Duel.IsExistingMatchingCard(c115379763.costfilter,tp,LOCATION_HAND,0,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-	local g=Duel.SelectMatchingCard(tp,c115379763.costfilter,tp,LOCATION_HAND,0,1,1,c)
-	g:AddCard(c)
-	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable()
+        and Duel.IsExistingMatchingCard(c115379763.costfilter,tp,LOCATION_HAND,0,1,c) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+    local g=Duel.SelectMatchingCard(tp,c115379763.costfilter,tp,LOCATION_HAND,0,1,1,c)
+    g:AddCard(c)
+    Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
 end
 function c115379763.spfilter(c,e,tp)
-	return c:IsCode(115380430) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+    return c:IsCode(115380430) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c115379763.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c115379763.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingMatchingCard(c115379763.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
 function c115379763.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local tc=Duel.GetFirstMatchingCard(c115379763.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
-	if tc and 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_CANNOT_ATTACK)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		Duel.SpecialSummonComplete()
-	end
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    local tc=Duel.GetFirstMatchingCard(c115379763.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
+    if tc and 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_CANNOT_ATTACK)
+        e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+        tc:RegisterEffect(e1)
+        Duel.SpecialSummonComplete()
+    end
 end
+
 function c115379763.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetDecktopGroup(tp,3)
-	if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
+    local rg=Duel.GetDecktopGroup(tp,3)
+    if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
 end
 function c115379763.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetDecktopGroup(tp,3)
-	if g:GetCount()>0 then
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-	end
-end
\ No newline at end of file
+    local c=e:GetHandler()
+    local g=Duel.GetDecktopGroup(tp,3)
+    if g:GetCount()<=0 then return end
+    Duel.DisableShuffleCheck()
+    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c115380430.lua

+--メタファイズ－ブラスター
 function c115380430.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,115380430)
-	e1:SetCost(c115380430.hspcost)
-	e1:SetTarget(c115380430.hsptg)
-	e1:SetOperation(c115380430.hspop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,115380431)
-	e2:SetCode(EVENT_PHASE+PHASE_END)
-	e2:SetCondition(c115380430.retcon)
-	e2:SetTarget(c115380430.rettg)
-	e2:SetOperation(c115380430.retop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e3:SetCountLimit(1,115380432)
-	e3:SetCost(c115380430.tgcon)
-	e3:SetTarget(c115380430.destg)
-	e3:SetOperation(c115380430.desop)
-	c:RegisterEffect(e3)
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-	e4:SetRange(LOCATION_REMOVED)
-	e4:SetCountLimit(1,115380433)
-	e4:SetCondition(c115380430.thcon)
-	e4:SetCost(c115380430.thcost)
-	e4:SetTarget(c115380430.thtg)
-	e4:SetOperation(c115380430.thop)
-	c:RegisterEffect(e4)
+    --special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+    e1:SetCountLimit(1,115380430)
+    e1:SetCost(c115380430.hspcost)
+    e1:SetTarget(c115380430.hsptg)
+    e1:SetOperation(c115380430.hspop)
+    c:RegisterEffect(e1)
+    --return
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_TOHAND)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCountLimit(1,115380431)
+    e2:SetCode(EVENT_PHASE+PHASE_END)
+    e2:SetCondition(c115380430.retcon)
+    e2:SetTarget(c115380430.rettg)
+    e2:SetOperation(c115380430.retop)
+    c:RegisterEffect(e2)
+    --destroy
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_DESTROY)
+    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+    e3:SetCountLimit(1,115380432)
+    e3:SetCondition(c115380430.descon)
+    e3:SetTarget(c115380430.destg)
+    e3:SetOperation(c115380430.desop)
+    c:RegisterEffect(e3)
+    --search
+    local e4=Effect.CreateEffect(c)
+    e4:SetCategory(CATEGORY_REMOVE)
+    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
+    e4:SetCountLimit(1,115380433)
+    e4:SetRange(LOCATION_REMOVED)
+    e4:SetCondition(c115380430.rmcon)
+    e4:SetCost(c115380430.rmcost)
+    e4:SetTarget(c115380430.rmtg)
+    e4:SetOperation(c115380430.rmop)
+    c:RegisterEffect(e4)
 end
+
 function c115380430.rfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
 end
 function c115380430.hspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c115380430.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c115380430.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(c115380430.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,c115380430.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,e:GetHandler())
+    Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c115380430.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 c115380430.hspop(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)
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) then
+        Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+    end
 end
+
 function c115380430.retcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()~=tp
-		and e:GetHandler():IsSummonType(SUMMON_TYPE_SPECIAL)
+    return Duel.GetTurnPlayer()~=tp
+        and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
 end
 function c115380430.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
 end
 function c115380430.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 c115380430.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
+
+function c115380430.descon(e,tp,eg,ep,ev,re,r,rp)
+    return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
+end
+function c115380430.desfilter(c)
+    return c:IsDestructable()
 end
 function c115380430.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() end
-	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+    if chkc then return chkc:IsOnField() and c115380430.desfilter(chkc) end
+    if chk==0 then return Duel.IsExistingTarget(c115380430.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+    local g=Duel.SelectTarget(tp,c115380430.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function c115380430.desop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
-end
-function c115380430.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
-end
-function c115380430.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
-	Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
-end
-function c115380430.thfilter(c)
-	return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
-end
-function c115380430.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c115380430.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c115380430.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c115380430.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
\ No newline at end of file
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.Destroy(tc,REASON_EFFECT)
+    end
+end
+
+function c115380430.rmcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
+end
+function c115380430.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+    Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
+end
+function c115380430.rmfilter(c)
+    return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
+end
+function c115380430.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c115380430.rmfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c115380430.rmop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c115380430.rmfilter,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

expansions/script/c115848157.lua

@@ -31,7 +31,7 @@ function c115848157.initial_effect(c)
 end
 
 function c115848157.darklawcon(e,tp,eg,ep,ev,re,r,rp)
-    return Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_GRAVE,0)==0
+    return Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)==0
 end
 function c115848157.darklawcost(e,tp,eg,ep,ev,re,r,rp,chk)
     if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end

expansions/script/c116472626.lua

-function c116472626.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,116472626)
-	e1:SetCondition(c116472626.srcon)
-	e1:SetTarget(c116472626.srtg)
-	e1:SetOperation(c116472626.srop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DAMAGE)
-	e2:SetType(EFFECT_TYPE_ACTIVATE)
-	e2:SetCode(EVENT_DESTROYED)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	e2:SetCondition(c116472626.spcon)
-	e2:SetTarget(c116472626.sptg)
-	e2:SetOperation(c116472626.spop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCondition(aux.AND(c116472626.spcon,aux.exccon))
-	e3:SetCost(aux.bfgcost)
-	c:RegisterEffect(e3)
-end
-function c116472626.srcon(e,tp,eg,ep,ev,re,r,rp)
-	return not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_MZONE,0,1,nil,0x86)
-end
-function c116472626.srfilter(c)
-	return c:IsSetCard(0x86) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-end
-function c116472626.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c116472626.srfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_SEARCH+CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c116472626.srop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c116472626.srfilter,tp,LOCATION_DECK,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tc)
-	end
-end
-function c116472626.cfilter(c,p)
-	return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==p
-end
-function c116472626.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:FilterCount(c116472626.cfilter,nil,1-tp)>0 and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_MZONE,0,1,nil,0x86)
-end
-function c116472626.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(1-tp)
-	Duel.SetTargetParam(1000)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000)
-end
-function c116472626.spop(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Damage(p,d,REASON_EFFECT)
-end
\ No newline at end of file

expansions/script/c117066828.lua

-function c117066828.initial_effect(c)
-    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(c117066828.spcon)
-    c:RegisterEffect(e1)
-    local e2=Effect.CreateEffect(c)
-    e2:SetType(EFFECT_TYPE_IGNITION)
-    e2:SetRange(LOCATION_MZONE)
-    e2:SetCountLimit(1,117066828)
-    e2:SetCost(c117066828.spcost)
-    e2:SetTarget(c117066828.target)
-    e2:SetOperation(c117066828.operation)
-    c:RegisterEffect(e2)
-    local e3=Effect.CreateEffect(c)
-    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-    e3:SetCode(EVENT_BE_MATERIAL)
-    e3:SetCondition(c117066828.efcon)
-    e3:SetOperation(c117066828.efop)
-    c:RegisterEffect(e3)
-end
-function c117066828.spfilter(c)
-    return c:IsSetCard(0x86) and c:IsType(TYPE_MONSTER) and c:IsFaceup()
-end
-function c117066828.spcon(e,c)
-    if c==nil then return true end
-    return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
-        and Duel.IsExistingMatchingCard(c117066828.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil)
-end
-function c117066828.spcostfilter(c)
-    return c:IsSetCard(0x86) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
-end
-function c117066828.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(c117066828.spcostfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end
-    Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil)
-    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-    local g=Duel.SelectMatchingCard(tp,c117066828.spcostfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil)
-    Duel.SendtoGrave(g,REASON_COST)
-    e:SetLabelObject(g:GetFirst())
-end
-function c117066828.target(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return true end
-end
-function c117066828.operation(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    local tc=e:GetLabelObject()
-    if c:IsRelateToEffect(e) and c:IsFaceup() then
-        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)
-        c:CopyEffect(tc:GetOriginalCode(),RESET_EVENT+0x1fe0000,1)
-    end
-end
-function c117066828.efcon(e,tp,eg,ep,ev,re,r,rp)
-    return r==REASON_XYZ and e:GetHandler():GetReasonCard():GetMaterial():IsExists(Card.IsPreviousLocation,3,nil,LOCATION_MZONE)
-end
-function c117066828.efop(e,tp,eg,ep,ev,re,r,rp)
-    Duel.Hint(HINT_CARD,0,117066828)
-    local c=e:GetHandler()
-    local rc=c:GetReasonCard()
-    local e1=Effect.CreateEffect(rc)
-    e1:SetDescription(aux.Stringid(117066828,0))
-    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-    e1:SetCondition(c117066828.atkcon)
-    e1:SetOperation(c117066828.atkop)
-    e1:SetReset(RESET_EVENT+0x1fe0000)
-    rc:RegisterEffect(e1,true)
-    local e2=Effect.CreateEffect(c)
-    e2:SetDescription(aux.Stringid(117066828,1))
-    e2:SetCategory(CATEGORY_DESTROY)
-    e2:SetType(EFFECT_TYPE_QUICK_O)
-    e2:SetRange(LOCATION_MZONE)
-    e2:SetCode(EVENT_FREE_CHAIN)
-    e2:SetCountLimit(1)
-    e2:SetCost(c117066828.cost)
-    e2:SetTarget(c117066828.target1)
-    e2:SetOperation(c117066828.operation1)
-    e2:SetReset(RESET_EVENT+0x1fe0000)
-    rc:RegisterEffect(e2,true)
-    if not rc:IsType(TYPE_EFFECT) then
-        local e3=Effect.CreateEffect(c)
-        e3:SetType(EFFECT_TYPE_SINGLE)
-        e3:SetCode(EFFECT_ADD_TYPE)
-        e3:SetValue(TYPE_EFFECT)
-        e3:SetReset(RESET_EVENT+0x1fe0000)
-        rc:RegisterEffect(e3,true)
-    end
-end
-function c117066828.atkcon(e,tp,eg,ep,ev,re,r,rp)
-    return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
-end
-function c117066828.atkop(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    if c:IsRelateToEffect(e) and c:IsFaceup() then
-        local e1=Effect.CreateEffect(c)
-        e1:SetType(EFFECT_TYPE_SINGLE)
-        e1:SetCode(EFFECT_UPDATE_ATTACK)
-        e1:SetValue(1000)
-        e1:SetReset(RESET_EVENT+0x1ff0000)
-        c:RegisterEffect(e1)
-    end
-end
-function c117066828.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c117066828.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-    if chk==0 then return true end
-    Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,0,1)
-end
-function c117066828.operation1(e,tp,eg,ep,ev,re,r,rp)
-    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
-end
\ No newline at end of file

expansions/script/c118824150.lua

@@ -132,4 +132,3 @@ function c118824150.rvop(e,tp,eg,ep,ev,re,r,rp)
         Duel.SpecialSummonComplete()
     end
 end
-

expansions/script/c118875971.lua

-function c118875971.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(118875971,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetTarget(c118875971.thtg)
-	e1:SetOperation(c118875971.thop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(118875971,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetRange(LOCATION_HAND+LOCATION_MZONE)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetCountLimit(1,118875971)
-	e2:SetCost(c118875971.spcost)
-	e2:SetTarget(c118875971.target)
-	e2:SetOperation(c118875971.operation)
-	c:RegisterEffect(e2)
-end
-function c118875971.filter(c)
-	return c:IsSetCard(0x86) and not c:IsCode(118875971) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-end
-function c118875971.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c118875971.filter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c118875971.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c118875971.filter,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 c118875971.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
-	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,e:GetHandler())
-end
-function c118875971.spfilter(c,e,tp)
-	return c:IsSetCard(0x86) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c118875971.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c118875971.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function c118875971.operation(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c118875971.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-	if g:GetCount()==0 then return end
-	Duel.SpecialSummon(g,nil,tp,tp,false,false,POS_FACEUP)
-end
\ No newline at end of file

expansions/script/c118918574.lua

+--メタファイズ-ライトニング
 function c118918574.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,118918570)
-	e1:SetCost(c118918574.spcost)
-	e1:SetTarget(c118918574.sptg)
-	e1:SetOperation(c118918574.spop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,118918574)
-	e2:SetTarget(c118918574.rmtg)
-	e2:SetOperation(c118918574.rmop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
+    --spsummon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND)
+    e1:SetCountLimit(1,118918574)
+    e1:SetCost(c118918574.spcost)
+    e1:SetTarget(c118918574.sptg)
+    e1:SetOperation(c118918574.spop)
+    c:RegisterEffect(e1)
+    --remove
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e2:SetCode(EVENT_SUMMON_SUCCESS)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetCountLimit(1,118918575)
+    e2:SetTarget(c118918574.rmtg)
+    e2:SetOperation(c118918574.rmop)
+    c:RegisterEffect(e2)
+    local e3=e2:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)
 end
+
 function c118918574.costfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
 end
 function c118918574.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable()
-		and Duel.IsExistingMatchingCard(c118918574.costfilter,tp,LOCATION_HAND,0,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-	local g=Duel.SelectMatchingCard(tp,c118918574.costfilter,tp,LOCATION_HAND,0,1,1,c)
-	g:AddCard(c)
-	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable()
+        and Duel.IsExistingMatchingCard(c118918574.costfilter,tp,LOCATION_HAND,0,1,c) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+    local g=Duel.SelectMatchingCard(tp,c118918574.costfilter,tp,LOCATION_HAND,0,1,1,c)
+    g:AddCard(c)
+    Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
 end
 function c118918574.spfilter(c,e,tp)
-	return c:IsCode(118939991) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+    return c:IsCode(118939991) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c118918574.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c118918574.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingMatchingCard(c118918574.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
 function c118918574.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local tc=Duel.GetFirstMatchingCard(c118918574.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
-	if tc and 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_CANNOT_ATTACK)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		Duel.SpecialSummonComplete()
-	end
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    local tc=Duel.GetFirstMatchingCard(c118918574.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
+    if tc and 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_CANNOT_ATTACK)
+        e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+        tc:RegisterEffect(e1)
+        Duel.SpecialSummonComplete()
+    end
 end
+
 function c118918574.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetDecktopGroup(tp,3)
-	if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
+    local rg=Duel.GetDecktopGroup(tp,3)
+    if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
 end
 function c118918574.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetDecktopGroup(tp,3)
-	if g:GetCount()>0 then
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-	end
-end
\ No newline at end of file
+    local c=e:GetHandler()
+    local g=Duel.GetDecktopGroup(tp,3)
+    if g:GetCount()<=0 then return end
+    Duel.DisableShuffleCheck()
+    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c118939991.lua

+--メタファイズ－テンペスト
 function c118939991.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,118939990)
-	e1:SetCost(c118939991.hspcost)
-	e1:SetTarget(c118939991.hsptg)
-	e1:SetOperation(c118939991.hspop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,118939991)
-	e2:SetCode(EVENT_PHASE+PHASE_END)
-	e2:SetCondition(c118939991.retcon)
-	e2:SetTarget(c118939991.rettg)
-	e2:SetOperation(c118939991.retop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCountLimit(1,118939992)
-	e3:SetCost(c118939991.tgcon)
-	e3:SetTarget(c118939991.shtg)
-	e3:SetOperation(c118939991.shop)
-	c:RegisterEffect(e3)
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-	e4:SetRange(LOCATION_REMOVED)
-	e4:SetCountLimit(1,118939993)
-	e4:SetCondition(c118939991.thcon)
-	e4:SetCost(c118939991.thcost)
-	e4:SetTarget(c118939991.thtg)
-	e4:SetOperation(c118939991.thop)
-	c:RegisterEffect(e4)
-end
+    --special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+    e1:SetCountLimit(1,118939991)
+    e1:SetCost(c118939991.hspcost)
+    e1:SetTarget(c118939991.hsptg)
+    e1:SetOperation(c118939991.hspop)
+    c:RegisterEffect(e1)
+    --return
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_TOHAND)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCountLimit(1,118939992)
+    e2:SetCode(EVENT_PHASE+PHASE_END)
+    e2:SetCondition(c118939991.retcon)
+    e2:SetTarget(c118939991.rettg)
+    e2:SetOperation(c118939991.retop)
+    c:RegisterEffect(e2)
+    --search summon
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e3:SetProperty(EFFECT_FLAG_DELAY)
+    e3:SetCountLimit(1,118939993)
+    e3:SetCondition(c118939991.shcon)
+    e3:SetTarget(c118939991.shtg)
+    e3:SetOperation(c118939991.shop)
+    c:RegisterEffect(e3)
+    --search
+    local e4=Effect.CreateEffect(c)
+    e4:SetCategory(CATEGORY_REMOVE)
+    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
+    e4:SetCountLimit(1,118939994)
+    e4:SetRange(LOCATION_REMOVED)
+    e4:SetCondition(c118939991.rmcon)
+    e4:SetCost(c118939991.rmcost)
+    e4:SetTarget(c118939991.rmtg)
+    e4:SetOperation(c118939991.rmop)
+    c:RegisterEffect(e4)
+end
+
 function c118939991.rfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
 end
 function c118939991.hspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c118939991.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c118939991.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(c118939991.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,c118939991.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,e:GetHandler())
+    Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c118939991.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 c118939991.hspop(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)
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) then
+        Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+    end
 end
+
 function c118939991.retcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()~=tp
-		and e:GetHandler():IsSummonType(SUMMON_TYPE_SPECIAL)
+    return Duel.GetTurnPlayer()~=tp
+        and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
 end
 function c118939991.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
 end
 function c118939991.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 c118939991.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
+
+function c118939991.shcon(e,tp,eg,ep,ev,re,r,rp)
+    return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
 end
 function c118939991.shfilter(c)
-	return c:IsRace(RACE_WYRM) and c:IsAbleToHand()
+    return c:IsRace(RACE_WYRM) and c:IsAbleToHand()
 end
 function c118939991.shtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c118939991.shfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+    if chk==0 then return Duel.IsExistingMatchingCard(c118939991.shfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
 function c118939991.shop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c118939991.shfilter,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 c118939991.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
-end
-function c118939991.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
-	Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
-end
-function c118939991.thfilter(c)
-	return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
-end
-function c118939991.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c118939991.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c118939991.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c118939991.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
\ No newline at end of file
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c118939991.shfilter,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 c118939991.rmcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
+end
+function c118939991.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+    Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
+end
+function c118939991.rmfilter(c)
+    return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
+end
+function c118939991.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c118939991.rmfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c118939991.rmop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c118939991.rmfilter,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

expansions/script/c119041155.lua

+--メタファイズ－レドックス
 function c119041155.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,119041150)
-	e1:SetCost(c119041155.hspcost)
-	e1:SetTarget(c119041155.hsptg)
-	e1:SetOperation(c119041155.hspop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,119041151)
-	e2:SetCode(EVENT_PHASE+PHASE_END)
-	e2:SetCondition(c119041155.retcon)
-	e2:SetTarget(c119041155.rettg)
-	e2:SetOperation(c119041155.retop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e3:SetCountLimit(1,119041152)
-	e3:SetCost(c119041155.tgcon)
-	e3:SetTarget(c119041155.sptg)
-	e3:SetOperation(c119041155.spop)
-	c:RegisterEffect(e3)
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-	e4:SetRange(LOCATION_REMOVED)
-	e4:SetCountLimit(1,119041153)
-	e4:SetCondition(c119041155.thcon)
-	e4:SetCost(c119041155.thcost)
-	e4:SetTarget(c119041155.thtg)
-	e4:SetOperation(c119041155.thop)
-	c:RegisterEffect(e4)
-end
+    --special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+    e1:SetCountLimit(1,119041155)
+    e1:SetCost(c119041155.hspcost)
+    e1:SetTarget(c119041155.hsptg)
+    e1:SetOperation(c119041155.hspop)
+    c:RegisterEffect(e1)
+    --return
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_TOHAND)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCountLimit(1,119041156)
+    e2:SetCode(EVENT_PHASE+PHASE_END)
+    e2:SetCondition(c119041155.retcon)
+    e2:SetTarget(c119041155.rettg)
+    e2:SetOperation(c119041155.retop)
+    c:RegisterEffect(e2)
+    --destroy
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_DESTROY)
+    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+    e3:SetCountLimit(1,119041157)
+    e3:SetCondition(c119041155.spcon)
+    e3:SetTarget(c119041155.sptg)
+    e3:SetOperation(c119041155.spop)
+    c:RegisterEffect(e3)
+    --search
+    local e4=Effect.CreateEffect(c)
+    e4:SetCategory(CATEGORY_REMOVE)
+    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
+    e4:SetCountLimit(1,119041158)
+    e4:SetRange(LOCATION_REMOVED)
+    e4:SetCondition(c119041155.rmcon)
+    e4:SetCost(c119041155.rmcost)
+    e4:SetTarget(c119041155.rmtg)
+    e4:SetOperation(c119041155.rmop)
+    c:RegisterEffect(e4)
+end
+
 function c119041155.rfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsAbleToRemoveAsCost()
 end
 function c119041155.hspcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c119041155.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c119041155.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(c119041155.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,c119041155.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,e:GetHandler())
+    Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c119041155.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 c119041155.hspop(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)
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) then
+        Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+    end
 end
+
 function c119041155.retcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()~=tp
-		and e:GetHandler():IsSummonType(SUMMON_TYPE_SPECIAL)
+    return Duel.GetTurnPlayer()~=tp
+        and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
 end
 function c119041155.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
 end
 function c119041155.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 c119041155.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
+
+function c119041155.spcon(e,tp,eg,ep,ev,re,r,rp)
+    return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsSetCard(0x105)
 end
 function c119041155.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+    return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c119041155.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c119041155.spfilter(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c119041155.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c119041155.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c119041155.spfilter(chkc,e,tp) end
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingTarget(c119041155.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+    local g=Duel.SelectTarget(tp,c119041155.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
 end
 function c119041155.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 c119041155.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
-end
-function c119041155.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
-	Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
-end
-function c119041155.thfilter(c)
-	return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
-end
-function c119041155.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c119041155.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c119041155.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c119041155.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
\ No newline at end of file
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
+
+function c119041155.rmcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnCount()==e:GetHandler():GetTurnID()+1
+end
+function c119041155.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+    Duel.SendtoDeck(e:GetHandler(),tp,2,REASON_COST)
+end
+function c119041155.rmfilter(c)
+    return c:IsRace(RACE_WYRM) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
+end
+function c119041155.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c119041155.rmfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c119041155.rmop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c119041155.rmfilter,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

expansions/script/c119102057.lua

+--メタファイズ-リアクタン
 function c119102057.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,119102050)
-	e1:SetCost(c119102057.spcost)
-	e1:SetTarget(c119102057.sptg)
-	e1:SetOperation(c119102057.spop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,119102057)
-	e2:SetTarget(c119102057.rmtg)
-	e2:SetOperation(c119102057.rmop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
+    --spsummon
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND)
+    e1:SetCountLimit(1,119102057)
+    e1:SetCost(c119102057.spcost)
+    e1:SetTarget(c119102057.sptg)
+    e1:SetOperation(c119102057.spop)
+    c:RegisterEffect(e1)
+    --remove
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e2:SetCode(EVENT_SUMMON_SUCCESS)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetCountLimit(1,119102058)
+    e2:SetTarget(c119102057.rmtg)
+    e2:SetOperation(c119102057.rmop)
+    c:RegisterEffect(e2)
+    local e3=e2:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)
 end
+
 function c119102057.costfilter(c)
-	return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
+    return (c:IsRace(RACE_WYRM) or c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsDiscardable()
 end
 function c119102057.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable()
-		and Duel.IsExistingMatchingCard(c119102057.costfilter,tp,LOCATION_HAND,0,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-	local g=Duel.SelectMatchingCard(tp,c119102057.costfilter,tp,LOCATION_HAND,0,1,1,c)
-	g:AddCard(c)
-	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable()
+        and Duel.IsExistingMatchingCard(c119102057.costfilter,tp,LOCATION_HAND,0,1,c) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+    local g=Duel.SelectMatchingCard(tp,c119102057.costfilter,tp,LOCATION_HAND,0,1,1,c)
+    g:AddCard(c)
+    Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
 end
 function c119102057.spfilter(c,e,tp)
-	return c:IsCode(119041155) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+    return c:IsCode(119041155) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c119102057.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c119102057.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingMatchingCard(c119102057.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
 function c119102057.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local tc=Duel.GetFirstMatchingCard(c119102057.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
-	if tc and 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_CANNOT_ATTACK)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		Duel.SpecialSummonComplete()
-	end
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    local tc=Duel.GetFirstMatchingCard(c119102057.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
+    if tc and 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_CANNOT_ATTACK)
+        e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+        tc:RegisterEffect(e1)
+        Duel.SpecialSummonComplete()
+    end
 end
+
 function c119102057.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetDecktopGroup(tp,3)
-	if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
+    local rg=Duel.GetDecktopGroup(tp,3)
+    if chk==0 then return rg:FilterCount(Card.IsAbleToRemove,nil)==3 end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,3,0,0)
 end
 function c119102057.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetDecktopGroup(tp,3)
-	if g:GetCount()>0 then
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-	end
-end
\ No newline at end of file
+    local c=e:GetHandler()
+    local g=Duel.GetDecktopGroup(tp,3)
+    if g:GetCount()<=0 then return end
+    Duel.DisableShuffleCheck()
+    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c121082832.lua

@@ -92,7 +92,7 @@ function c121082832.chop(e,tp,eg,ep,ev,re,r,rp)
     if not c:IsLocation(LOCATION_DECK+LOCATION_HAND) then return end
     local g=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND)
     if g:GetCount()>0 then Duel.SendtoDeck(g,nil,2,REASON_RULE) end
-    if c:GetActivateEffect():IsActivatable(tp) and Duel.SelectYesNo(tp,aux.Stringid(121082832,0)) then  
+    if c:GetActivateEffect():IsActivatable(tp) then  
         Duel.SSet(tp,c)
         c:RegisterFlagEffect(121082832,RESET_EVENT+0x1fe0000,0,1)
         --cannot activate

expansions/script/c121082833.lua

---新混沌
-local m=121082833
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-    local e0=Effect.CreateEffect(c)
-    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
-    e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-    e0:SetCode(EVENT_PREDRAW)
-    e0:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
-    e0:SetRange(LOCATION_HAND+LOCATION_DECK)
-    e0:SetOperation(cm.op)
-    c:RegisterEffect(e0)
-    local e8=Effect.CreateEffect(c)
-    e8:SetType(EFFECT_TYPE_SINGLE)
-    e8:SetCode(EFFECT_CANNOT_SSET)
-    e8:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
-    c:RegisterEffect(e8)
-end
-function cm.effilter(c)
-    return c:IsFaceup() and c:GetOriginalCode()==m
+--混沌(エラッタ前)
+function c121082833.initial_effect(c)
+    --duel start
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e1:SetCode(EVENT_TO_HAND)
+    e1:SetRange(LOCATION_DECK+LOCATION_HAND)
+    e1:SetCondition(c121082833.chcon)
+    e1:SetOperation(c121082833.chop)
+    c:RegisterEffect(e1)
+    --Activate
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_ACTIVATE)
+    e2:SetCode(EVENT_FREE_CHAIN)
+    c:RegisterEffect(e2)
 end
-function cm.effcon(e)
-    return Duel.IsExistingMatchingCard(cm.effilter,e:GetHandlerPlayer(),LOCATION_FZONE,0,1,nil)
+
+function c121082833.chcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnCount()==0
 end
-function cm.op(e,tp,eg,ep,ev,re,r,rp,chk)
+function c121082833.chop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    Duel.MoveToField(c,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
-    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(cm.effcon)
-    e2:SetCode(EFFECT_CHANGE_CODE)
-    e2:SetValue(m)
-    Duel.RegisterEffect(e2,tp)
-    local e7=Effect.CreateEffect(c)
-    e7:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
-    e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-    e7:SetRange(LOCATION_FZONE)
-    e7:SetCode(EFFECT_SEND_REPLACE)
-    e7:SetTarget(aux.TRUE)
-    e7:SetValue(aux.TRUE)
-    c:RegisterEffect(e7)
+    local tp=c:GetOwner()
+    if not c:IsLocation(LOCATION_DECK+LOCATION_HAND) then return end
+    local g=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND)
+    if g:GetCount()>0 then Duel.SendtoDeck(g,nil,2,REASON_RULE) end
+--  Duel.ShuffleDeck(Duel.GetTurnPlayer())
+    if c:GetActivateEffect():IsActivatable(tp) then
+        Duel.MoveToField(c,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+--      Duel.ShuffleDeck(tp)
+        --cannot set/activate
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_FIELD)
+        e1:SetCode(EFFECT_CANNOT_SSET)
+        e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+        e1:SetRange(LOCATION_FZONE)
+        e1:SetTargetRange(1,0)
+        e1:SetTarget(c121082833.setlimit)
+        e1:SetReset(RESET_EVENT+0x1fe0000)
+        c:RegisterEffect(e1)
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_FIELD)
+        e2:SetCode(EFFECT_CANNOT_ACTIVATE)
+        e2:SetRange(LOCATION_FZONE)
+        e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+        e2:SetTargetRange(1,0)
+        e2:SetValue(c121082833.actlimit)
+        e2:SetReset(RESET_EVENT+0x1fe0000)
+        c:RegisterEffect(e2)
+        local e3=Effect.CreateEffect(c)
+        e3:SetType(EFFECT_TYPE_FIELD)
+        e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+        e:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+        e3:SetRange(LOCATION_FZONE)
+        e3:SetTargetRange(1,1)
+        e3:SetValue(c121082833.nofilter)
+        e3:SetReset(RESET_EVENT+0x1fe0000)
+        c:RegisterEffect(e3)
+        --indes
+        local e4=Effect.CreateEffect(c)
+        e4:SetType(EFFECT_TYPE_SINGLE)
+        e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+        e4:SetRange(LOCATION_FZONE)
+        e4:SetCode(EFFECT_INDESTRUCTABLE)
+        e4:SetValue(1)
+        e4:SetReset(RESET_EVENT+0x1fe0000)
+        c:RegisterEffect(e4)
+        local e5=e4:Clone()
+        e5:SetCode(EFFECT_CANNOT_REMOVE)
+        c:RegisterEffect(e5)
+        local e6=e4:Clone()
+        e6:SetCode(EFFECT_CANNOT_TO_DECK)
+        c:RegisterEffect(e6)
+        local e7=e4:Clone()
+        e7:SetCode(EFFECT_CANNOT_TO_HAND)
+        c:RegisterEffect(e7)
+        local e8=e4:Clone()
+        e8:SetCode(EFFECT_UNRELEASABLE_SUM)
+        c:RegisterEffect(e8)
+        local e9=e4:Clone()
+        e9:SetCode(EFFECT_UNRELEASABLE_NONSUM)
+        c:RegisterEffect(e9)
+        local e10=e4:Clone()
+        e10:SetCode(EFFECT_CANNOT_TO_GRAVE)
+        c:RegisterEffect(e10)
+        --chage name
+        local e0=Effect.CreateEffect(c)
+        e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_REPEAT+EFFECT_FLAG_DELAY+EFFECT_FLAG_SET_AVAILABLE)
+        e0:SetType(EFFECT_TYPE_FIELD)
+        e0:SetCode(EFFECT_CHANGE_CODE)
+        e0:SetRange(LOCATION_FZONE)
+        e0:SetTargetRange(0xff,0xff)
+        e0:SetValue(121082833)
+        c:RegisterEffect(e0)
+        Duel.RegisterFlagEffect(tp,10469,0,0,0)
+        Duel.RegisterFlagEffect(1-tp,10469,0,0,0)
+    end
+    Duel.BreakEffect()
+    Duel.ShuffleDeck(tp)
+    Duel.Draw(Duel.GetTurnPlayer(),5,REASON_RULE)
+end
+function c121082833.efilter(e,te)
+    return te:GetOwner()~=e:GetOwner()
+end
+function c121082833.setlimit(e,c,tp)
+    return c:IsType(TYPE_FIELD)
+end
+function c121082833.actlimit(e,re,tp)
+    return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function c121082833.nofilter(e,re,tp)
+    return re:GetHandler():IsCode(73468603)
 end

expansions/script/c14010283.lua

+--死境母神·赫拉
+local m=14010283
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(1166)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SET_AVAILABLE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetCondition(cm.LinkCondition(nil,3,3))
+	e0:SetTarget(cm.LinkTarget(nil,3,3))
+	e0:SetOperation(cm.LinkOperation(nil,3,3))
+	e0:SetValue(SUMMON_TYPE_LINK)
+	c:RegisterEffect(e0)
+	c:EnableReviveLimit()
+	--extra material
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE)
+	e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
+	e1:SetCondition(cm.matcon)
+	e1:SetValue(cm.matval)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsFacedown))
+	c:RegisterEffect(e1)
+	--atkup
+	local e2=Effect.CreateEffect(c)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(cm.val)
+	c:RegisterEffect(e2)
+	--cannot be target
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e3:SetTargetRange(LOCATION_ONFIELD,0)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsFacedown))
+	e3:SetValue(aux.tgoval)
+	c:RegisterEffect(e3)
+	--return to ex
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(m,1))
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCategory(CATEGORY_TOEXTRA)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetCondition(cm.rtcon)
+	e4:SetTarget(cm.rttg)
+	e4:SetOperation(cm.rtop)
+	c:RegisterEffect(e4)
+end
+function cm.matf(c,lc)
+	return c:IsFacedown() and c:IsCanBeLinkMaterial(lc)
+end
+function cm.LinkCondition(f,minc,maxc,gf)
+	return  function(e,c,og,lmat,min,max)
+				if c==nil then return true end
+				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
+				local minc=minc
+				local maxc=maxc
+				if min then
+					if min>minc then minc=min end
+					if max<maxc then maxc=max end
+					if minc>maxc then return false end
+				end
+				local tp=c:GetControler()
+				local mg=nil
+				if og then
+					mg=og:Filter(aux.LConditionFilter,nil,f,c,e)
+				else
+					mg=aux.GetLinkMaterials(tp,f,c,e)
+				end
+				if Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_ONFIELD,0,1,nil) then
+					local m1=Duel.GetMatchingGroup(cm.matf,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c,c)
+					mg:Merge(m1)
+				end
+				if lmat~=nil then
+					if not aux.LConditionFilter(lmat,f,c,e) then return false end
+					mg:AddCard(lmat)
+				end
+				local fg=aux.GetMustMaterialGroup(tp,EFFECT_MUST_BE_LMATERIAL)
+				if fg:IsExists(aux.MustMaterialCounterFilter,1,nil,mg) then return false end
+				Duel.SetSelectedCard(fg)
+				return mg:CheckSubGroup(aux.LCheckGoal,minc,maxc,tp,c,gf,lmat)
+			end
+end
+function cm.LinkTarget(f,minc,maxc,gf)
+	return  function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,lmat,min,max)
+				local minc=minc
+				local maxc=maxc
+				if min then
+					if min>minc then minc=min end
+					if max<maxc then maxc=max end
+					if minc>maxc then return false end
+				end
+				local mg=nil
+				if og then
+					mg=og:Filter(aux.LConditionFilter,nil,f,c,e)
+				else
+					mg=aux.GetLinkMaterials(tp,f,c,e)
+				end
+				if Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_ONFIELD,0,1,nil) then
+					local m1=Duel.GetMatchingGroup(cm.matf,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c,c)
+					mg:Merge(m1)
+				end
+				if lmat~=nil then
+					if not aux.LConditionFilter(lmat,f,c,e) then return false end
+					mg:AddCard(lmat)
+				end
+				local fg=aux.GetMustMaterialGroup(tp,EFFECT_MUST_BE_LMATERIAL)
+				Duel.SetSelectedCard(fg)
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
+				local cancel=Duel.IsSummonCancelable()
+				local sg=mg:SelectSubGroup(tp,aux.LCheckGoal,cancel,minc,maxc,tp,c,gf,lmat)
+				if sg then
+					sg:KeepAlive()
+					e:SetLabelObject(sg)
+					return true
+				else return false end
+			end
+end
+function cm.LinkOperation(f,minc,maxc,gf)
+	return  function(e,tp,eg,ep,ev,re,r,rp,c,og,lmat,min,max)
+				local g=e:GetLabelObject()
+				c:SetMaterial(g)
+				aux.LExtraMaterialCount(g,c,tp)
+				Duel.SendtoGrave(g,REASON_MATERIAL+REASON_LINK)
+				g:DeleteGroup()
+			end
+end
+function cm.matcon(e,c)
+	return Duel.IsExistingMatchingCard(Card.IsFacedown,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
+end
+function cm.matval(e,lc,mg,c,tp)
+	if e:GetHandler()~=lc then return false,nil end
+	return true,true
+end
+function cm.val(e,c)
+	return Duel.GetMatchingGroupCount(Card.IsFacedown,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)*1000
+end
+function cm.cfilter(c)
+	return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN)
+end
+function cm.rtcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil)
+end
+function cm.rttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToExtra() end
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
+end
+function cm.rtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c20579535.lua

@@ -44,7 +44,7 @@ function c20579535.resetcount(e,tp,eg,ep,ev,re,r,rp)
 end
 function c20579535.checkop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=re:GetHandler()
-	if tc:IsSetCard(0x90) and tc:GetLocation()==LOCATION_GRAVE 
+	if (re:IsHasType(EFFECT_TYPE_TRIGGER_O) or re:IsHasType(EFFECT_TYPE_TRIGGER_F)) and tc:IsSetCard(0x90) and tc:GetLocation()==LOCATION_GRAVE 
 	   and not tc:IsCode(20579535) and tc:GetPreviousLocation()==LOCATION_DECK then
 	   c20579535.count=c20579535.count+1
 	   c20579535[c20579535.count]=re

expansions/script/c40010962.lua

@@ -41,7 +41,7 @@ function cm.initial_effect(c)
 	e4:SetType(EFFECT_TYPE_FIELD)
 	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
 	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetRange(LOCATION_FZONE)
+	e4:SetRange(LOCATION_SZONE)
 	e4:SetTargetRange(0,1)
 	e4:SetCondition(cm.limcon)
 	e4:SetValue(cm.aclimit)

expansions/script/c40010968.lua

@@ -39,7 +39,7 @@ function cm.initial_effect(c)
 	e4:SetType(EFFECT_TYPE_FIELD)
 	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
 	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetRange(LOCATION_FZONE)
+	e4:SetRange(LOCATION_SZONE)
 	e4:SetTargetRange(0,1)
 	e4:SetCondition(cm.limcon)
 	e4:SetValue(cm.aclimit)

expansions/script/c58510970.lua

+--単一空間
+function c58510970.initial_effect(c)
+    --duel start
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e1:SetCode(EVENT_TO_HAND)
+    e1:SetRange(LOCATION_DECK+LOCATION_HAND)
+    e1:SetCondition(c58510970.chcon)
+    e1:SetOperation(c58510970.chop)
+    c:RegisterEffect(e1)
+    --Activate
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_ACTIVATE)
+    e2:SetCode(EVENT_FREE_CHAIN)
+    c:RegisterEffect(e2)
+    --cannnot spsummon
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e3:SetRange(LOCATION_FZONE)
+    e3:SetOperation(c58510970.sumop)
+    c:RegisterEffect(e3)
+    --cannot activate
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+    e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+    e4:SetCode(EVENT_CHAINING)
+    e4:SetRange(LOCATION_FZONE)
+    e4:SetOperation(aux.chainreg)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+    e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+    e5:SetCode(EVENT_CHAINING)
+    e5:SetRange(LOCATION_FZONE)
+    e5:SetOperation(c58510970.actop)
+    c:RegisterEffect(e5)
+    --negate
+    local e6=Effect.CreateEffect(c)
+    e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+    e6:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+    e6:SetRange(LOCATION_FZONE)
+    e6:SetCode(EVENT_BATTLE_START)
+    e6:SetOperation(c58510970.attackop)
+    c:RegisterEffect(e6)
+end
+
+function c58510970.chcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnCount()==0
+end
+function c58510970.chop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    local tp=c:GetOwner()
+    if not c:IsLocation(LOCATION_DECK+LOCATION_HAND) then return end
+    local g=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND)
+    if g:GetCount()>0 then Duel.SendtoDeck(g,nil,2,REASON_RULE) end
+    if c:GetActivateEffect():IsActivatable(tp) then
+        Duel.MoveToField(c,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+        Duel.ShuffleDeck(tp)
+        --unaffectable
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+        e1:SetRange(LOCATION_FZONE)
+        e1:SetCode(EFFECT_IMMUNE_EFFECT)
+        e1:SetValue(c58510970.efilter)
+        c:RegisterEffect(e1)
+        --cannot set/activate
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_FIELD)
+        e2:SetCode(EFFECT_CANNOT_SSET)
+        e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+        e2:SetRange(LOCATION_FZONE)
+        e2:SetTargetRange(1,0)
+        e2:SetTarget(c58510970.setlimit)
+        c:RegisterEffect(e2)
+        local e3=Effect.CreateEffect(c)
+        e3:SetType(EFFECT_TYPE_FIELD)
+        e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+        e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+        e3:SetRange(LOCATION_FZONE)
+        e3:SetTargetRange(1,0)
+        e3:SetValue(c58510970.actlimit)
+        c:RegisterEffect(e3)
+        local e4=Effect.CreateEffect(c)
+        e4:SetType(EFFECT_TYPE_FIELD)
+        e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+        e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+        e4:SetRange(LOCATION_FZONE)
+        e4:SetTargetRange(1,1)
+        e4:SetValue(c58510970.nofilter)
+        c:RegisterEffect(e4)
+        --cannot disable
+        local e5=Effect.CreateEffect(c)
+        e5:SetType(EFFECT_TYPE_SINGLE)
+        e5:SetCode(EFFECT_CANNOT_DISABLE)
+        c:RegisterEffect(e5)
+    end
+    Duel.BreakEffect()
+    Duel.ShuffleDeck(tp)
+    Duel.Draw(Duel.GetTurnPlayer(),5,REASON_RULE)
+end
+function c58510970.efilter(e,te)
+    return te:GetOwner()~=e:GetOwner()
+end
+function c58510970.setlimit(e,c,tp)
+    return c:IsType(TYPE_FIELD)
+end
+function c58510970.actlimit(e,re,tp)
+    return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function c58510970.nofilter(e,re,tp)
+    local code1,code2=re:GetHandler():GetOriginalCodeRule()
+    return (code1==re:GetHandler():IsCode(73468603) or code2==re:GetHandler():IsCode(73468603))
+end
+
+function c58510970.sumfilter(c)
+    return c:IsType(TYPE_MONSTER)
+end
+function c58510970.sumop(e,tp,eg,ep,ev,re,r,rp)
+    local g=eg:Filter(c58510970.sumfilter,nil)
+    local tc=g:GetFirst()
+    while tc do
+        local code=tc:GetOriginalCode()
+        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,1)
+        e1:SetLabel(code)
+        e1:SetTarget(c58510970.splimit)
+        e1:SetReset(RESET_PHASE+PHASE_END)
+        Duel.RegisterEffect(e1,tp)
+        tc=g:GetNext()
+    end
+end
+function c58510970.splimit(e,c)
+    return c:IsCode(e:GetLabel())
+end
+
+function c58510970.actfilter(c)
+    return c:IsType(TYPE_MONSTER)
+end
+function c58510970.actop(e,tp,eg,ep,ev,re,r,rp)
+    local rc=re:GetHandler()
+    local code=rc:GetOriginalCode()
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+    e1:SetTargetRange(1,1)
+    e1:SetValue(c58510970.aclimit)
+    e1:SetLabel(code)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    Duel.RegisterEffect(e1,tp)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_CANNOT_TRIGGER)
+    Duel.RegisterEffect(e2,tp)
+end
+function c58510970.aclimit(e,re,tp)
+    return re:GetHandler():IsCode(e:GetLabel())
+end
+
+function c58510970.attackop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetAttacker()
+    local code=tc:GetOriginalCode()
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_CANNOT_ATTACK)
+    e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+    e1:SetTarget(c58510970.atktg)
+    e1:SetLabel(code)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    Duel.RegisterEffect(e1,tp)
+end
+function c58510970.atktg(e,c)
+    return c:IsCode(e:GetLabel())
+end

expansions/script/c79200001.lua

+--字界眼龙
+function c79200001.initial_effect(c)
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetCondition(c79200001.lkcon)
+	e0:SetOperation(c79200001.lkop)
+	e0:SetValue(SUMMON_TYPE_LINK)
+	c:RegisterEffect(e0)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_ADD_TYPE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(TYPE_NORMAL)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(79200001,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DECKDES)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetCountLimit(1,79200001)
+	e2:SetTarget(c79200001.thtg)
+	e2:SetOperation(c79200001.thop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(79200001,0))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c79200001.tg)
+	e3:SetOperation(c79200001.op)
+	c:RegisterEffect(e3)
+end
+function c79200001.lkfilter(c,lc,tp)
+	local flag=c:IsFaceup() and c:IsCanBeLinkMaterial(lc)
+	if c:IsType(TYPE_MONSTER) then
+		return flag and c:IsSetCard(0x681)
+	elseif c:IsType(TYPE_EQUIP) and c:IsFaceup() then
+		return c:GetEquipTarget():IsCode(79200002) and c:IsType(TYPE_SPELL)
+	end
+end
+function c79200001.lvfilter(c)
+	if c:IsType(TYPE_EQUIP) and c:IsFaceup() then
+		if c:GetEquipTarget():IsCode(79200002) and c:IsType(TYPE_SPELL) then
+			return 2
+		else 
+			return 1 
+		end
+	else
+		return 1 
+	end
+end
+function c79200001.lcheck(tp,sg,lc,minc,ct)
+	return ct>=minc and sg:CheckWithSumEqual(c79200001.lvfilter,lc:GetLink(),ct,ct) and Duel.GetLocationCountFromEx(tp,tp,sg,lc)>0
+end
+function c79200001.lkchenk(c,tp,sg,mg,lc,ct,minc,maxc)
+	sg:AddCard(c)
+	ct=ct+1
+	local res=c79200001.lcheck(tp,sg,lc,minc,ct) or (ct<maxc and mg:IsExists(c79200001.lkchenk,1,sg,tp,sg,mg,lc,ct,minc,maxc))
+	sg:RemoveCard(c)
+	ct=ct-1
+	return res
+end
+--
+function c79200001.lkcon(e,c)
+	if c==nil then return true end
+	if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
+	local tp=c:GetControler()
+	local mg=Duel.GetMatchingGroup(c79200001.lkfilter,tp,LOCATION_ONFIELD,0,nil,c,tp)
+	local sg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_LMATERIAL)}) do
+		local pc=pe:GetHandler()
+		if not mg:IsContains(pc) then return false end
+		sg:AddCard(pc)
+	end
+	local ct=sg:GetCount()
+	local minc=2
+	local maxc=3
+	if ct>maxc then return false end
+	return c79200001.lcheck(tp,sg,c,minc,ct) or mg:IsExists(c79200001.lkchenk,1,nil,tp,sg,mg,c,ct,minc,maxc) and (not sg or not sg:IsExists(Card.IsLocation,1,c,LOCATION_SZONE)) and Duel.IsExistingMatchingCard(c79200001.cs,tp,LOCATION_MZONE,0,1,nil)
+end
+function c79200001.cs(c)
+	return c:IsSetCard(0x681)
+end
+function c79200001.lkop(e,tp,eg,ep,ev,re,r,rp,c)
+	local mg=Duel.GetMatchingGroup(c79200001.lkfilter,tp,LOCATION_MZONE+LOCATION_SZONE,0,nil,c,tp)
+	local sg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_LMATERIAL)}) do
+		sg:AddCard(pe:GetHandler())
+	end
+	local ct=sg:GetCount()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
+	sg:Select(tp,ct,ct,nil)
+	local minc=2
+	local maxc=3
+	for i=ct,maxc-1 do
+		local cg=mg:Filter(c79200001.lkchenk,sg,tp,sg,mg,c,i,minc,maxc)
+		if cg:GetCount()==0 then break end
+		local minct=1
+		if c79200001.lcheck(tp,sg,c,minc,i) then
+			if not Duel.SelectYesNo(tp,210) then break end
+			minct=0
+		end
+		if not sg or not sg:IsExists(Card.IsLocation,1,c,LOCATION_SZONE) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
+			local g=cg:Select(tp,minct,1,nil)
+			if g:GetCount()==0 then break end
+			sg:Merge(g)
+		else
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
+			tg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND,0,nil,TYPE_SPELL)
+			cg:Sub(tg)
+			local g=cg:Select(tp,minct,1,nil)
+			if g:GetCount()==0 then break end
+			sg:Merge(g)
+		end
+	end
+	c:SetMaterial(sg)
+	Duel.SendtoGrave(sg,REASON_MATERIAL+REASON_LINK)
+end
+function c79200001.thfilter(c)
+	return c:IsSetCard(0x681) and c:IsAbleToHand()
+end
+function c79200001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) end
+end
+function c79200001.thop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.IsPlayerCanDiscardDeck(tp,5) then
+		Duel.ConfirmDecktop(tp,5)
+		local g=Duel.GetDecktopGroup(tp,5)
+		if g:GetCount()>0 then
+			Duel.DisableShuffleCheck()
+			if g:IsExists(c79200001.thfilter,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(79200001,1)) then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+				local sg=g:FilterSelect(tp,c79200001.thfilter,1,1,nil)
+				Duel.SendtoHand(sg,nil,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,sg)
+				Duel.ShuffleHand(tp)
+				g:Sub(sg)
+			end
+			Duel.SendtoGrave(g,REASON_EFFECT+REASON_REVEAL)
+		end
+	end
+end
+function c79200001.thfilter1(c)
+	return c:IsType(TYPE_EQUIP) and c:IsAbleToHand()
+end
+function c79200001.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c79200001.thfilter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c79200001.thfilte1r,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,c79200001.thfilter1,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
+end
+function c79200001.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		if not Duel.Equip(tp,tc,c,false) then return end
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(c79200001.eqlimit)
+		tc:RegisterEffect(e1)
+	end
+end
+function c79200001.eqlimit(e,c)
+	return e:GetOwner()==c and not c:IsDisabled()
+end
\ No newline at end of file

expansions/script/c79200002.lua

+--字界眼半导龙
+function c79200002.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(79200002,0))
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,79200002+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c79200002.spcon)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(79200002,0))
+	e2:SetCategory(CATEGORY_DECKDES)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetCountLimit(1,79210002)
+	e2:SetTarget(c79200002.ddtg)
+	e2:SetOperation(c79200002.ddop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+end
+function c79200002.filter(c)
+	return c:IsSetCard(0x681) and c:IsFaceup()
+end
+function c79200002.spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c79200002.filter,c:GetControler(),LOCATION_ONFIELD,0,1,nil)
+end
+function c79200002.ddtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3)
+end
+function c79200002.ddop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.DiscardDeck(tp,3,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c79200003.lua

+--字界眼天照
+function c79200003.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetCode(EVENT_PHASE+PHASE_DRAW)
+	e1:SetRange(LOCATION_DECK)
+	e1:SetCountLimit(1,89200003+EFFECT_COUNT_CODE_DUEL)
+	e1:SetTarget(c79200003.target)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(79200003,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,79200003)
+	e2:SetTarget(c79200003.thtg)
+	e2:SetOperation(c79200003.thop)
+	c:RegisterEffect(e2)
+end
+function c79200003.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,0)
+	if fc then
+		Duel.SendtoGrave(fc,REASON_RULE)
+		Duel.BreakEffect()
+	end
+	local c=e:GetHandler()
+	Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	if e:IsHasType(EFFECT_TYPE_QUICK_O) then
+		Duel.SetChainLimit(c79200003.chainlm)
+	end
+end
+function c79200003.chainlm(e,rp,tp)
+	return not e:GetHandler():IsCode()
+end
+function c79200003.filter(c)
+	return c:IsSetCard(0x681) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c79200003.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c79200003.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c79200003.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c79200003.filter,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
\ No newline at end of file

expansions/script/c79200004.lua

+--字界眼小樱
+function c79200004.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetCode(EVENT_PHASE+PHASE_DRAW)
+	e1:SetRange(LOCATION_DECK)
+	e1:SetCountLimit(1,79200004+EFFECT_COUNT_CODE_DUEL)
+	e1:SetTarget(c79200004.target)
+	c:RegisterEffect(e1)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetTargetRange(LOCATION_ONFIELD,0)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x682))
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EFFECT_CANNOT_REMOVE)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetTargetRange(LOCATION_ONFIELD,0)
+	e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x682))
+	c:RegisterEffect(e4)
+end
+function c79200004.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,0)
+	if fc then
+		Duel.SendtoGrave(fc,REASON_RULE)
+		Duel.BreakEffect()
+	end
+	local c=e:GetHandler()
+	Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	if e:IsHasType(EFFECT_TYPE_QUICK_O) then
+		Duel.SetChainLimit(c79200004.chainlm)
+	end
+end
+function c79200004.chainlm(e,rp,tp)
+	return not e:GetHandler():IsCode()
+end
\ No newline at end of file

expansions/script/c89390006.lua

@@ -14,10 +14,11 @@ function cm.initial_effect(c)
     c:RegisterEffect(e1)
     local e7=Effect.CreateEffect(c)
     e7:SetType(EFFECT_TYPE_IGNITION)
-    e7:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
+    e7:SetProperty(EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_CARD_TARGET)
     e7:SetRange(LOCATION_MZONE)
     e7:SetCountLimit(1)
     e7:SetCondition(cm.descon)
+    e7:SetTarget(cm.destg)
     e7:SetOperation(cm.desop)
     c:RegisterEffect(e7)
     local e2=Effect.CreateEffect(c)
@@ -66,21 +67,27 @@ 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.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+    if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+    Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
 function cm.desop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-    local tg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
-    if tg:GetCount()<=0 then return end
-    local ac=tg:GetFirst():GetCode()
-    c:SetHint(CHINT_CARD,ac)
-    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)
+    local tc=Duel.GetFirstTarget()
+    if tc and c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+        local ac=tc:GetCode()
+        c:SetHint(CHINT_CARD,ac)
+        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
 end
 function cm.adjfilter(c,code)
     return c:IsFaceup() and c:IsCode(code)

expansions/script/c89390007.lua

+--原生种·铁
+local m=89390007
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_REMOVE)
+    e2:SetType(EFFECT_TYPE_QUICK_O)
+    e2:SetCode(EVENT_CHAINING)
+    e2:SetRange(LOCATION_MZONE+LOCATION_HAND)
+    e2:SetCondition(cm.thcon)
+    e2:SetCost(cm.thcost)
+    e2:SetTarget(cm.thtg)
+    e2:SetOperation(cm.thop)
+    c:RegisterEffect(e2)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND)
+    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
+        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.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return rp==1-tp
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
+    Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+end
+function cm.thfilter(c)
+    return c:IsRace(RACE_PSYCHO) and not c:IsCode(m) and c:IsType(TYPE_MONSTER) 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) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,e:GetHandler()) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+    Duel.SetChainLimit(aux.FALSE)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local tg=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
+    if tg:GetCount()>0 then
+        local tc=tg:GetFirst()
+        if Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)==0 or not tc:IsLocation(LOCATION_REMOVED) 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:GetCount()>0 then
+            Duel.SendtoHand(g,nil,REASON_EFFECT)
+            Duel.ConfirmCards(1-tp,g)
+        end
+    end
+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.SetChainLimit(aux.FALSE)
+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,2,REASON_EFFECT)>0 and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND,1,nil,tp) and Duel.GetFlagEffect(tp,m)==0 then
+        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
+        if exg:GetClassCount(Card.GetOriginalCode)>=3 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+            local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil,tp)
+            if g:GetCount()>0 then
+                local rg=g:RandomSelect(tp,1)
+                local tc=rg:GetFirst()
+                Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
+                tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
+                local e1=Effect.CreateEffect(c)
+                e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+                e1:SetCode(EVENT_PHASE+PHASE_END)
+                e1:SetCountLimit(1)
+                e1:SetLabelObject(tc)
+                e1:SetReset(RESET_PHASE+PHASE_END)
+                e1:SetOperation(cm.retop)
+                Duel.RegisterEffect(e1,tp)
+                Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+            end
+        end
+    end
+end
+function cm.retop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=e:GetLabelObject()
+    Duel.SendtoHand(tc,1-tp,REASON_EFFECT)
+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/c98920339.lua

+--进化帝·猎龙
+function c98920339.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_DINOSAUR),2)
+	c:EnableReviveLimit()
+	--indestructable
+	local e10=Effect.CreateEffect(c)
+	e10:SetType(EFFECT_TYPE_SINGLE)
+	e10:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e10:SetRange(LOCATION_MZONE)
+	e10:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e10:SetCondition(c98920339.indcon)
+	e10:SetValue(1)
+	c:RegisterEffect(e10)
+	local e2=e10:Clone()
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	c:RegisterEffect(e2)
+	local e4=e10:Clone()
+	e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e4:SetValue(aux.tgoval)
+	c:RegisterEffect(e4)
+--act limit
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920339,0))
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(c98920339.target)
+	e1:SetOperation(c98920339.operation)
+	c:RegisterEffect(e1)
+end
+function c98920339.lkfilter(c)
+	return c:IsFaceup() and (c:IsRace(RACE_DINOSAUR) or c:IsRace(RACE_REPTILE))
+end
+function c98920339.indcon(e)
+	return e:GetHandler():GetLinkedGroup():IsExists(c98920339.lkfilter,1,nil)
+end
+function c98920339.cfilter(c,g)
+	return c:IsType(TYPE_XYZ) and g:IsContains(c)
+end
+function c98920339.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
+	s=Duel.SelectOption(tp,aux.Stringid(98920339,0),aux.Stringid(98920339,1))
+	e:SetLabel(s)
+end
+function c98920339.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e1:SetTargetRange(0,1)
+	if e:GetLabel()==0 then
+		e1:SetDescription(aux.Stringid(98920339,0))
+		e1:SetValue(c98920339.aclimit1)
+	else
+		e1:SetDescription(aux.Stringid(98920339,1))
+		e1:SetValue(c98920339.aclimit2)
+	end
+	e1:SetReset(RESET_PHASE+PHASE_END,1)
+	Duel.RegisterEffect(e1,tp)
+end
+function c98920339.aclimit1(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER)
+end
+function c98920339.aclimit2(e,re,tp)
+	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP)
+end
\ No newline at end of file

expansions/script/c98920377.lua

+--自奏圣乐·皮格马利翁
+function c98920377.initial_effect(c)
+	 --link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,c98920377.lcheck)
+	c:EnableReviveLimit()
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98920377,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_EXTRA)
+	e2:SetCountLimit(1,98930377)
+	e2:SetCondition(c98920377.spcon2)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c98920377.sptg2)
+	e2:SetOperation(c98920377.spop2)
+	c:RegisterEffect(e2)
+ --Trap activate in set turn
+	local e12=Effect.CreateEffect(c)
+	e12:SetType(EFFECT_TYPE_FIELD)
+	e12:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+	e12:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e12:SetRange(LOCATION_REMOVED)
+	e12:SetTargetRange(LOCATION_SZONE,0)
+	e12:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x11b))
+	c:RegisterEffect(e12)
+	local e13=e12:Clone()
+	e13:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+	c:RegisterEffect(e13)
+--activate from hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e1:SetRange(LOCATION_REMOVED)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x11b))
+	e1:SetTargetRange(LOCATION_HAND,0)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	c:RegisterEffect(e2)
+	--todeck
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98920377,0))
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,98920377)
+	e2:SetCondition(c98920377.tdcon1)
+	e2:SetTarget(c98920377.tdtg)
+	e2:SetOperation(c98920377.tdop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(c98920377.tdcon2)
+	c:RegisterEffect(e3) 
+   --change effect type
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(98920377)
+	e1:SetRange(LOCATION_REMOVED)
+	e1:SetTargetRange(1,0)
+	c:RegisterEffect(e1)
+--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_REMOVED)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetOperation(c98920377.regop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAIN_SOLVED)
+	e3:SetRange(LOCATION_REMOVED)
+	e3:SetTarget(c98920377.tg)
+	e3:SetCondition(c98920377.recon)
+	e3:SetOperation(c98920377.reop)
+	c:RegisterEffect(e3)
+	local e6=e3:Clone()
+	e6:SetCode(EVENT_CHAIN_NEGATED)
+	c:RegisterEffect(e6)
+--
+if not c98920377.globle_check then
+		c98920377.globle_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD)
+		ge1:SetCode(EFFECT_ACTIVATE_COST)
+		ge1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
+		ge1:SetCost(c98920377.costchk)
+		ge1:SetTargetRange(1,0)
+		ge1:SetTarget(c98920377.actarget)
+		ge1:SetOperation(c98920377.costop)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		Duel.RegisterEffect(ge2,1)
+		local ge3=Effect.CreateEffect(c)
+		ge3:SetType(EFFECT_TYPE_FIELD)
+		ge3:SetCode(EFFECT_ACTIVATE_COST)
+		ge3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
+		ge3:SetCost(aux.FALSE)
+		ge3:SetTargetRange(1,1)
+		ge3:SetTarget(c98920377.actarget2)
+		Duel.RegisterEffect(ge3,0)
+		local g=Duel.GetMatchingGroup(c98920377.filter2,0,0xff,0xff,nil)
+		for tc in aux.Next(g) do
+			local te=tc:GetActivateEffect()
+			local ge2=te:Clone()
+			ge2:SetDescription(aux.Stringid(98920377,1))
+			ge2:SetType(EFFECT_TYPE_QUICK_O)
+			ge2:SetCode(EVENT_FREE_CHAIN)
+			ge2:SetRange(LOCATION_HAND)
+			ge2:SetHintTiming(TIMING_STANDBY_PHASE+TIMING_END_PHASE,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+			tc:RegisterEffect(ge2)
+		end
+	end
+end
+function c98920377.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAIN_SOLVED)
+	e3:SetOperation(c98920377.sop)
+	e3:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e3,tp)
+end
+function c98920377.sop(e,tp,eg,ep,ev,re,r,rp)
+	if ep~=tp then e:GetHandler():RegisterFlagEffect(98920377,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN,0,1) end
+end
+function c98920377.filter(c)
+	return c:IsSetCard(0x11b) and c:IsType(TYPE_MONSTER)
+end
+function c98920377.cfilter(c,syn)
+	return syn:IsSynchroSummonable(c)
+end
+function c98920377.scfilter(c,mg)
+	return mg:IsExists(c98920377.cfilter,1,nil,c)
+end
+function c98920377.recon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentChain()==1 and (e:GetHandler():GetFlagEffect(98920377)>0 or (ep~=tp and e:GetCode()~=EVENT_CHAIN_NEGATED))
+end
+function c98920377.tg(e,tp,eg,ep,ev,re,r,rp,chk)	
+	local mg=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_MZONE,0,nil,0x11b)
+	if chk==0 then return Duel.IsExistingMatchingCard(c98920377.filter,tp,LOCATION_EXTRA,0,1,nil,mg) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c98920377.reop(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_MZONE,0,nil,0x11b)
+	local g1=Duel.GetMatchingGroup(Card.IsXyzSummonable,tp,LOCATION_EXTRA,0,nil,nil,mg)
+	local g2=Duel.GetMatchingGroup(Card.IsLinkSummonable,tp,LOCATION_EXTRA,0,nil,mg)
+	if mg:GetCount()>0 and (g1:GetCount()>0 or g2:GetCount()>0) then
+	  if Duel.SelectYesNo(tp,aux.Stringid(98920377,0)) then	 
+		if g1:GetCount()>0 and (g2:GetCount()==0 or Duel.SelectOption(tp,1165,1166)==0) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg1=g1:Select(tp,1,1,nil)
+			Duel.XyzSummon(tp,sg1:GetFirst(),nil)
+		elseif g2:GetCount()>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg2=g2:Select(tp,1,1,nil)
+			Duel.LinkSummon(tp,sg2:GetFirst(),mg)
+		 end
+	   end
+	end
+end
+function c98920377.spcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
+end
+function c98920377.spfilter(c,e,tp)
+	return c:IsSetCard(0x11b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920377.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c98920377.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c98920377.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,c98920377.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if #g>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c98920377.lcheck(g)
+	return g:IsExists(Card.IsLinkSetCard,1,nil,0x11b)
+end
+function c98920377.indcon(e)
+	return e:GetHandler():IsLinkState()
+end
+function c98920377.tdcon1(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsPlayerAffectedByEffect(tp,90351981)
+end
+function c98920377.tdcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsPlayerAffectedByEffect(tp,90351981)
+end
+function c98920377.tdfilter(c)
+	return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsAbleToDeck()
+end
+function c98920377.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c98920377.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c98920377.tdfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c98920377.tdfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c98920377.filter1(c,e,tp)
+	return c:IsSetCard(0x11b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920377.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+		if Duel.SelectYesNo(tp,aux.Stringid(98920377,5)) then
+		   local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c98920377.filter1),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
+		   if g:GetCount()>0 then	 
+			  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			  Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		   end
+		end
+	end
+end
+function c98920377.costchk(e,te_or_c,tp)
+	return Duel.IsPlayerAffectedByEffect(tp,98920377) 
+end
+function c98920377.actarget(e,te,tp)
+	local tc=te:GetHandler()
+	e:SetLabelObject(te)
+	return tc:IsSetCard(0x11b) and te:IsHasType(EFFECT_TYPE_QUICK_O) and tc:IsLocation(LOCATION_HAND)
+end
+function c98920377.costop(e,tp,eg,ep,ev,re,r,rp)
+	local te=e:GetLabelObject()
+	local tc=te:GetHandler()
+	local tp=te:GetHandlerPlayer()
+	te:SetType(EFFECT_TYPE_ACTIVATE)
+	if tc:IsType(TYPE_FIELD) then
+		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,false)
+	else
+		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,false)
+	end
+	local ge3=Effect.CreateEffect(tc)
+	ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	ge3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	ge3:SetCode(EVENT_CHAIN_SOLVED)
+	ge3:SetLabelObject(te)
+	ge3:SetReset(RESET_PHASE+PHASE_END)
+	ge3:SetOperation(c98920377.resetop)
+	Duel.RegisterEffect(ge3,tp)
+	local ge4=ge3:Clone()
+	ge4:SetCode(EVENT_CHAIN_NEGATED)
+	Duel.RegisterEffect(ge4,tp)
+end
+function c98920377.actarget2(e,te,tp)
+	local tc=te:GetHandler()
+	return tc:IsSetCard(0x11b) and te:IsHasType(EFFECT_TYPE_QUICK_O) and tc:IsLocation(LOCATION_SZONE)
+end
+function c98920377.resetop(e,tp,eg,ep,ev,re,r,rp)
+	if re==e:GetLabelObject() and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		re:SetType(EFFECT_TYPE_QUICK_O)
+		e:Reset()
+	end
+end
+function c98920377.filter2(c)
+	return c:IsSetCard(0x11b) and c:IsType(TYPE_SPELL) and not c:IsType(TYPE_QUICKPLAY) 
+end
\ No newline at end of file

expansions/script/c98940000.lua

+--自奏圣乐·世纪末的通天塔
+function c98940000.initial_effect(c)
+	c:EnableReviveLimit()
+--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetValue(aux.FALSE)
+	c:RegisterEffect(e0)
+--field
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98940000,0))
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCountLimit(1,98940000)
+	e1:SetCost(c98940000.cost)
+	e1:SetOperation(c98940000.operation)
+	c:RegisterEffect(e1)
+--change effect type
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(90351981)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(1,0)
+	c:RegisterEffect(e2)
+--inactivatable
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_CANNOT_INACTIVATE)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetValue(c98940000.effectfilter)
+	c:RegisterEffect(e4)
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_CANNOT_DISEFFECT)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetValue(c98940000.effectfilter)
+	c:RegisterEffect(e5)
+--SpecialSummon
+   local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetOperation(c98940000.op)
+	e1:SetCondition(c98940000.con)
+	c:RegisterEffect(e1)
+ --to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(98940000,0))
+	e3:SetCategory(CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1,98950000)
+	e3:SetCondition(c98940000.atkcon1)
+	e3:SetCost(c98940000.thcost)
+	--e3:SetTarget(c98940000.thtg)
+	e3:SetOperation(c98940000.thop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetHintTiming(0,TIMING_DAMAGE_STEP+TIMING_END_PHASE)
+	e4:SetCondition(c98940000.atkcon2)
+	c:RegisterEffect(e4)
+end
+function c98940000.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToExtra() end
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
+end
+function c98940000.atkcon1(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsPlayerAffectedByEffect(tp,90351981)
+end
+function c98940000.atkcon2(e,tp,eg,ep,ev,re,r,rp)
+	return aux.dscon() and Duel.IsPlayerAffectedByEffect(tp,90351981)
+end
+function c98940000.filter(c)
+	return c:IsSetCard(0x11b) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
+end
+function c98940000.cost(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(c98940000.filter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c98940000.filter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c98940000.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetCode(EFFECT_CHANGE_TYPE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
+		e1:SetValue(TYPE_SPELL+TYPE_FIELD)
+		c:RegisterEffect(e1)
+		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+		Duel.MoveSequence(c,5)
+	end
+end
+function c98940000.effectfilter(e,ct)
+	local p=e:GetHandler():GetControler()
+	local te,tp,loc=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER,CHAININFO_TRIGGERING_LOCATION)
+	return p==tp and te:GetHandler():IsSetCard(0x11b) and bit.band(loc,LOCATION_GRAVE)~=0
+end
+function c98940000.con(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return ep~=tp and e:GetHandler():GetFlagEffect(98940000)<=0
+end
+function c98940000.spfilter2(c,e,tp)
+	return c:IsLevelAbove(0) and c:IsSetCard(0x11b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98940000.op(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(98940000,2)) then
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c98940000.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if g:GetCount()~=0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+	e:GetHandler():RegisterFlagEffect(98940000,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(98940000,3))
+	end
+end
+function c98940000.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsAbleToGraveAsCost,1,1,REASON_COST)
+end
+function c98940000.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if e:GetHandler():IsRelateToEffect(e) then		
+		if Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+		and Duel.IsExistingMatchingCard(c98940000.cfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(c98940000.dfilter,tp,0,LOCATION_MZONE,1,nil)
+		and Duel.SelectYesNo(tp,aux.Stringid(98940000,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+		  local sg=Duel.SelectMatchingCard(tp,c98940000.dfilter,tp,0,LOCATION_MZONE,1,1,nil)
+		  Duel.BreakEffect()
+		  Duel.HintSelection(sg)
+		  Duel.GetControl(sg,tp,PHASE_END,1)
+		  local tc=sg:GetFirst()
+		  local e4=Effect.CreateEffect(tc)
+			e4:SetType(EFFECT_TYPE_SINGLE)
+			e4:SetCode(EFFECT_ADD_SETCODE)
+			e4:SetValue(0x11b)
+			e4:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,1)
+			tc:RegisterEffect(e4)
+		end
+	end
+end
+function c98940000.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x11b) and c:IsType(TYPE_LINK)
+end
+function c98940000.dfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsControlerCanBeChanged()
+end
\ No newline at end of file

expansions/script/c9990228.lua

+--深洋传说的追想 
+function c9990228.initial_effect(c)
+	aux.AddCodeList(c,22702055)
+	--spsummon from hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,9990228)
+	e1:SetCondition(c9990228.spcon1)
+	e1:SetTarget(c9990228.sptg1)
+	e1:SetOperation(c9990228.spop1)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,9990229)
+	e2:SetTarget(c9990228.thtg)
+	e2:SetOperation(c9990228.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--immune
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_IMMUNE_EFFECT)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetTargetRange(LOCATION_ONFIELD,0)
+	e4:SetTarget(c9990228.indtg)
+	e4:SetCondition(c9990228.scon)
+	e4:SetValue(c9990228.efilter)
+	c:RegisterEffect(e4)
+	--Activate
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_QUICK_O)
+	e5:SetCode(EVENT_FREE_CHAIN)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e5:SetCountLimit(1)
+	e5:SetTarget(c9990228.target)
+	e5:SetOperation(c9990228.operation)
+	c:RegisterEffect(e5)
+	--immune spell
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_SINGLE)
+	e6:SetCode(EFFECT_IMMUNE_EFFECT)
+	e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetValue(c9990228.efilter)
+	c:RegisterEffect(e6)
+end
+function c9990228.cfilter(c)
+	return c:IsFaceup() and c:IsCode(99990743)
+end
+function c9990228.spcon1(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c9990228.cfilter,tp,LOCATION_GRAVE,0,1,nil)
+end
+function c9990228.sptg1(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)
+end
+function c9990228.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=Duel.GetFirstTarget()
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	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(c9990228.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c9990228.splimit(e,c)
+	return not aux.IsCodeListed(c,22702055)
+end
+function c9990228.spfilter1(c,e,tp)
+	return aux.IsCodeListed(c,22702055) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c9990228.spfilter2(c)
+	return aux.IsCodeListed(c,22702055) and c:IsType(TYPE_MONSTER)
+end
+function c9990228.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local g=Duel.GetMatchingGroup(c9990228.spfilter1,tp,LOCATION_DECK,0,nil,e,tp)
+		return g:GetCount()>=3
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
+end
+function c9990228.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c9990228.spfilter2,tp,LOCATION_DECK,0,nil)
+	if g:GetCount()>=3 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,3,3,nil)
+		Duel.ConfirmCards(1-tp,sg)
+		local tg=sg:RandomSelect(1-tp,1)
+		Duel.ShuffleDeck(tp)
+			Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
+	   end  
+   end  
+function c9990228.sfilter(c)
+	return c:IsFaceup() and c:IsCode(22702055)
+end
+function c9990228.indtg(e,c)
+	return aux.IsCodeListed(c,22702055) and c~=e:GetHandler()
+end
+function c9990228.scon(e)
+	local tp=e:GetHandlerPlayer()
+	return Duel.IsExistingMatchingCard(c9990228.sfilter,tp,LOCATION_ONFIELD,0,1,nil)
+end
+function c9990228.efilter(e,re)
+	return re:IsActiveType(TYPE_SPELL) and e:GetHandlerPlayer()~=re:GetOwnerPlayer() 
+end
+function c9990228.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
+function c9990228.operation(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_CANNOT_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
+function c9990228.efilter1(e,te)
+	return te:IsActiveType(TYPE_SPELL) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
+end
\ No newline at end of file

expansions/script/c9990233.lua

+--冰电龙 狂欢曲
+function c9990233.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),aux.NonTuner(Card.IsAttribute,ATTRIBUTE_WATER),1)
+	c:EnableReviveLimit()
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(9990233,0))
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,9990233)
+	e1:SetTarget(c9990233.target)
+	e1:SetOperation(c9990233.activate)
+	c:RegisterEffect(e1)
+	--confirm 
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(9990233,1))
+	e2:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCountLimit(1,9990234)
+	e2:SetTarget(c9990233.target2)
+	e2:SetOperation(c9990233.operation)
+	c:RegisterEffect(e2)
+	--public
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_PUBLIC)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_HAND)
+	c:RegisterEffect(e3)
+end
+function c9990233.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	local gc=g:GetCount()
+	if chk==0 then return gc>0 and g:FilterCount(Card.IsAbleToRemove,nil)==gc and Duel.IsPlayerCanDraw(1-tp,gc) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,gc,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,gc)
+end
+function c9990233.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	local gc=g:GetCount()
+	if gc>0 and g:FilterCount(Card.IsAbleToRemove,nil)==gc then
+		local oc=Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+		if oc>0 then
+			Duel.Draw(1-tp,oc,REASON_EFFECT)
+		end
+	end
+end
+function c9990233.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,LOCATION_DECK)>0 end
+end
+function c9990233.operation(e,tp,eg,ep,ev,re,r,rp)
+		local cm1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
+		local cm2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
+		if cm1>10 then cm1=10 end
+		if cm2>10 then cm2=10 end
+		local g=Duel.GetDecktopGroup(tp,cm1)
+		  Duel.ConfirmCards(tp,g)
+		  Duel.SortDecktop(tp,tp,cm1)
+		local g=Duel.GetDecktopGroup(1-tp,cm2)
+		  Duel.ConfirmCards(tp,g)
+		  Duel.SortDecktop(tp,1-tp,cm2)
+end
+

expansions/script/c99991009.lua

+--吸血鬼·德古拉伯爵
+function c99991009.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),1)
+	c:EnableReviveLimit()
+	--indestructable
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--Remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_RECOVER)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_DAMAGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(c99991009.rctg)
+	e2:SetOperation(c99991009.rcop)
+	c:RegisterEffect(e2)
+	--damage
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetOperation(c99991009.regop)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_CHAIN_SOLVED)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(c99991009.damcon)
+	e4:SetOperation(c99991009.damop)
+	c:RegisterEffect(e4)
+	--spsummon
+	local e7=Effect.CreateEffect(c)
+	e7:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e7:SetProperty(EFFECT_FLAG_DELAY)
+	e7:SetCode(EVENT_TO_GRAVE)
+	e7:SetCountLimit(1,99991009+EFFECT_COUNT_CODE_DUEL)
+	e7:SetTarget(c99991009.sptg1)
+	e7:SetOperation(c99991009.spop1)
+	c:RegisterEffect(e7)
+end
+function c99991009.indcon(e)
+	return e:GetHandler():GetOverlayCount()>0
+end
+function c99991009.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RegisterFlagEffect(99991009,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN,0,1)
+end
+function c99991009.damcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return ep~=tp and c:GetFlagEffect(99991009)~=0
+end
+function c99991009.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,99991009)
+	Duel.Damage(1-tp,500,REASON_EFFECT)
+end
+function c99991009.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,99991009)
+	Duel.Damage(1-tp,1000,REASON_EFFECT)
+end
+function c99991009.rctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(ev)
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ev)
+end
+function c99991009.rcop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) and ep==tp then return end
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Recover(p,d,REASON_EFFECT)
+end
+function c99991009.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,true) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end
+	Duel.PayLPCost(tp,Duel.GetLP(tp)/2)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c99991009.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsPreviousLocation(LOCATION_ONFIELD) then
+		Duel.SpecialSummon(e:GetHandler(),1,tp,tp,true,true,POS_FACEUP)
+	end
+end