fix

expansions/script/c113946872.lua

+--アラドヴァルの影霊衣
+function c113946872.initial_effect(c)
+    c:EnableReviveLimit()
+    --Cannot Special Summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.ritlimit)
+    c:RegisterEffect(e1)
+    --Burialing
+    local e2=Effect.CreateEffect(c)
+    e2:SetDescription(aux.Stringid(113946872,0))
+    e2:SetCategory(CATEGORY_TOGRAVE)
+    e2:SetType(EFFECT_TYPE_IGNITION)
+    e2:SetRange(LOCATION_HAND)
+    e2:SetCountLimit(1,113946872)
+    e2:SetCost(c113946872.tgcost)
+    e2:SetTarget(c113946872.tgtg)
+    e2:SetOperation(c113946872.tgop)
+    c:RegisterEffect(e2)
+    --Negate
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(113946872,1))
+    e3:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
+    e3:SetType(EFFECT_TYPE_QUICK_O)
+    e3:SetCode(EVENT_CHAINING)
+    e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+    e3:SetRange(LOCATION_MZONE)
+    e3:SetCountLimit(1,39468725)
+    e3:SetCondition(c113946872.negcon)
+    e3:SetCost(c113946872.negcost)
+    e3:SetTarget(c113946872.negtg)
+    e3:SetOperation(c113946872.negop)
+    c:RegisterEffect(e3)
+    --special summon
+    local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(113946872,2))
+    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e4:SetType(EFFECT_TYPE_IGNITION)
+    e4:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+    e4:SetCountLimit(1,113946872)
+    e4:SetCost(c113946872.hspcost)
+    e4:SetTarget(c113946872.hsptg)
+    e4:SetOperation(c113946872.hspop)
+    c:RegisterEffect(e4)
+    --return
+    local e5=Effect.CreateEffect(c)
+    e5:SetDescription(aux.Stringid(113946872,3))
+    e5:SetCategory(CATEGORY_TOHAND)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+    e5:SetRange(LOCATION_MZONE)
+    e5:SetCountLimit(1,113946872)
+    e5:SetCode(EVENT_PHASE+PHASE_END)
+    e5:SetCondition(c113946872.retcon)
+    e5:SetTarget(c113946872.rettg)
+    e5:SetOperation(c113946872.retop)
+    c:RegisterEffect(e5)
+    --search
+    local e6=Effect.CreateEffect(c)
+    e6:SetDescription(aux.Stringid(113946872,4))
+    e6:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e6:SetCode(EVENT_REMOVE)
+    e6:SetCountLimit(1,113946872)
+    e6:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+    e6:SetTarget(c113946872.thtg)
+    e6:SetOperation(c113946872.thop)
+    c:RegisterEffect(e6)
+end
+function c113946872.mat_filter(c)
+    return not c:IsLevel(10)
+end
+function c113946872.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+end
+function c113946872.filter(c)
+    return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x10b4) and c:IsReleasableByEffect()
+end
+function c113946872.tgfilter(c)
+    return c:IsSetCard(0x10b4) and c:IsAbleToGrave()
+end
+function c113946872.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c113946872.tgfilter,tp,LOCATION_DECK,0,1,nil)
+        and Duel.CheckReleaseGroupEx(tp,c113946872.filter,1,e:GetHandler()) end
+    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c113946872.tgop(e,tp,eg,ep,ev,re,r,rp)
+    local ct=Duel.GetMatchingGroupCount(c113946872.tgfilter,tp,LOCATION_DECK,0,nil)
+    if ct==0 then ct=1 end
+    if ct>2 then ct=2 end
+    local g=Duel.SelectReleaseGroupEx(tp,c113946872.filter,1,ct,nil)
+    if g:GetCount()>0 then
+        local rct=Duel.Release(g,REASON_EFFECT)
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+        local tg=Duel.SelectMatchingCard(tp,c113946872.tgfilter,tp,LOCATION_DECK,0,rct,rct,nil)
+        Duel.SendtoGrave(tg,REASON_EFFECT)
+    end
+end
+function c113946872.negcon(e,tp,eg,ep,ev,re,r,rp)
+    return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_MONSTER)
+end
+function c113946872.negfilter(c,tp)
+    return c:IsType(TYPE_MONSTER) and c:IsReleasable()
+end
+function c113946872.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.CheckReleaseGroupEx(tp,c113946872.negfilter,1,nil,tp) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+    local g=Duel.SelectReleaseGroupEx(tp,c113946872.negfilter,1,1,nil,tp)
+    Duel.Release(g,REASON_COST)
+end
+function c113946872.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return aux.nbcon(tp,re) end
+    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+    if re:GetHandler():IsRelateToEffect(re) then
+        Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
+    end
+end
+function c113946872.negop(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+        Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
+    end
+end
+
+function c113946872.rfilter(c)
+    return c:IsSetCard(0x10b4) and c:IsAbleToRemoveAsCost()
+end
+function c113946872.hspcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c113946872.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,e:GetHandler()) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,c113946872.rfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,e:GetHandler())
+    Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c113946872.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,true,true) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c113946872.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,true,true,POS_FACEUP)
+end
+function c113946872.retcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnPlayer()~=tp
+        and e:GetHandler():IsSummonType(SUMMON_TYPE_SPECIAL) and not e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
+end
+function c113946872.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function c113946872.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
+end
+function c113946872.thfilter(c)
+    return c:IsSetCard(0x10b4) and c:IsRace(RACE_WARRIOR) and c:IsAbleToHand()
+end
+function c113946872.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c113946872.thfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c113946872.thop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c113946872.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

expansions/script/c11451631.lua

@@ -205,14 +205,16 @@ function cm.resop(e,tp,eg,ep,ev,re,r,rp)
 	e:Reset()
 end
 function cm.cfilter4(c,tp)
-	return c:IsPreviousLocation(LOCATION_SZONE) and c:IsPreviousControler(tp) and c:GetPreviousSequence()<5
+	return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousSequence()<5 --and c:IsPreviousControler(tp)
 end
 function cm.condition4(e,tp,eg,ep,ev,re,r,rp)
 	local g=eg:Filter(cm.cfilter4,nil,1-tp)
 	if not cm.flag(e,tp,m+4) or #g==0 then return false end
 	local lab=0
 	for tc in aux.Next(g) do
-		lab=lab|1<<tc:GetPreviousSequence()
+		local seq=tc:GetPreviousSequence()
+		if tc:IsPreviousControler(tp) then seq=4-seq end
+		lab=lab|1<<seq
 	end
 	e:SetLabel(lab)
 	return true

expansions/script/c11451635.lua

@@ -107,7 +107,7 @@ function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.filter(c,tp)
-	return c:IsCode(11451631) and not c:IsForbidden() and (c:GetActivateEffect():IsActivatable(tp,true,true) or c:CheckActivateEffect(false,false,false)~=nil)
+	return c:IsCode(11451631) and not c:IsForbidden() and c:CheckUniqueOnField(tp) --and (c:GetActivateEffect():IsActivatable(tp,true,true) or c:CheckActivateEffect(false,false,false)~=nil)
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
@@ -117,7 +117,17 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp)
 	local tc=g:GetFirst()
 	if tc then
-		local te=tc:GetActivateEffect()
+		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+		if fc then
+			Duel.SendtoGrave(fc,REASON_RULE)
+			Duel.BreakEffect()
+		end
+		Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+		if fc and tc:IsLocation(LOCATION_FZONE) then
+			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))
+			Duel.RaiseEvent(e:GetHandler(),11451675,e,m,tp,tp,Duel.GetCurrentChain())
+		end
+		--[[local te=tc:GetActivateEffect()
 		if te:IsActivatable(tp,true,true) and (not tc:CheckActivateEffect(false,false,false) or Duel.SelectOption(tp,aux.Stringid(11451631,3),aux.Stringid(11451631,4))==0) then
 			local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
 			if fc then
@@ -148,7 +158,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 				Duel.RaiseEvent(e:GetHandler(),11451675,e,m,tp,tp,Duel.GetCurrentChain())
 			end
 			Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
-		end
+		end--]]
 	end
 end
 function cm.actfilter(c)

expansions/script/c11451676.lua

@@ -55,6 +55,7 @@ function cm.cfcon(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.cfop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetDecktopGroup(tp,1)
+	if not g or #g==0 then return end
 	Duel.ConfirmCards(tp,g)
 	local tc=g:GetFirst()
 	local opt=Duel.SelectOption(tp,aux.Stringid(m,0),aux.Stringid(m,1))

expansions/script/c13257251.lua

@@ -93,7 +93,7 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,ct,nil,e,tp)
 		if g:GetCount()>0 then
-			Duel.SpecialSummonStep(t1,0,tp,tp,false,false,POS_FACEUP)
+			Duel.SpecialSummonStep(g,0,tp,tp,false,false,POS_FACEUP)
 			for tc in aux.Next(g) do
 				local e1=Effect.CreateEffect(e:GetHandler())
 				e1:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c40009070.lua

---苍岚龙 灾漩
-function c40009070.initial_effect(c)
-	--atk
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(40009070,0))
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,40009070)
-	e1:SetOperation(c40009070.atkop1)
-	c:RegisterEffect(e1)   
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(40009070,1))
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
-	e2:SetCountLimit(1)
-	e2:SetCost(c40009070.thcost)
-	e2:SetCondition(c40009070.condition)
-	e2:SetOperation(c40009070.atkop)
-	c:RegisterEffect(e2)
-end
-function c40009070.check(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	if Duel.GetBattledCount(tp) then
-		c40009070[tc:GetControler()]=c40009070[tc:GetControler()]+1
-		if c40009070[tc:GetControler()]==1 then
-			c40009070[2]=tc
-			tc:RegisterFlagEffect(40009070,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
-		elseif c40009070[tc:GetControler()]==2 or c40009070[tc:GetControler()]==3 then
-			Duel.RaiseEvent(tc,EVENT_CUSTOM+40009070,e,0,0,0,0)
-		end
-	end
-end
-function c40009070.check2(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	if tc:GetFlagEffect(40009070)~=0 and Duel.GetAttacker()==tp then
-		c40009070[tc:GetControler()]=c40009070[tc:GetControler()]+1
-	end
-end
-function c40009070.clear(e,tp,eg,ep,ev,re,r,rp)
-	c40009070[0]=0
-	c40009070[1]=0
-end
-function c40009070.atkop1(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_UPDATE_ATTACK)
-	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetValue(600)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c40009070.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetBattledCount(tp)==2 or Duel.GetBattledCount(tp)==1 
-end
-function c40009070.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
-	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
-end
-function c40009070.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_EXTRA_ATTACK)
-	e1:SetValue(1)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
-	c:RegisterEffect(e1)
-end
\ No newline at end of file

expansions/script/c40009129.lua

---苍岚霸龙 荣光灾漩
-function c40009129.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),7,2,c40009129.ovfilter,aux.Stringid(40009129,0),2,c40009129.xyzop)
-	c:EnableReviveLimit() 
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(40009129,0))
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetCountLimit(1)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(c40009129.condition)
-	e1:SetCost(c40009129.cost)
-	e1:SetTarget(c40009129.target)
-	e1:SetOperation(c40009129.operation)
-	c:RegisterEffect(e1)
-	--disable spsummon
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetTargetRange(1,1)
-	e2:SetCondition(c40009129.atkcon)
-	e2:SetTarget(c40009129.sumlimit)
-	c:RegisterEffect(e2)
-end
-function c40009129.cfilter(c)
-	return c:IsSetCard(0x7f1d) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
-end
-function c40009129.ovfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x6f1d)
-end
-function c40009129.xyzop(e,tp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c40009129.cfilter,tp,LOCATION_HAND,0,1,nil) and Duel.GetFlagEffect(tp,28346136)==0 end
-	Duel.DiscardHand(tp,c40009129.cfilter,1,1,REASON_COST,nil)
-	Duel.RegisterFlagEffect(tp,28346136,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
-end
-function c40009129.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsAbleToEnterBP()
-end
-function c40009129.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 c40009129.filter(c)
-	return c:IsFaceup() and not c:IsHasEffect(EFFECT_EXTRA_ATTACK)
-end
-function c40009129.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c40009129.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c40009129.filter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,c40009129.filter,tp,LOCATION_MZONE,0,1,1,nil)
-end
-function c40009129.operation(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_EXTRA_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		e1:SetValue(1)
-		tc:RegisterEffect(e1)
-	end
-end
-function c40009129.atkcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x7f1d)
-end
-function c40009129.sumlimit(e,c,sump,sumtype,sumpos,targetp)
-	return c:GetAttribute()~=ATTRIBUTE_WATER
-end
\ No newline at end of file

expansions/script/c40009724.lua

---苍岚业龙 灾漩逆
-local m=40009724
-local cm=_G["c"..m]
-cm.named_with_Reverse=1
-function c40009724.initial_effect(c)
-	--synchro summon
-	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x6f1d),aux.NonTuner(nil),1)
-	c:EnableReviveLimit()
-	c:SetUniqueOnField(1,0,40009724)	
-	--add type
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCondition(c40009724.tncon)
-	e1:SetOperation(c40009724.tnop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_MATERIAL_CHECK)
-	e2:SetValue(c40009724.valcheck)
-	e2:SetLabelObject(e1)
-	c:RegisterEffect(e2)
-	--disable
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009724,0))
-	e3:SetCategory(CATEGORY_NEGATE)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_CHAINING)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCondition(c40009724.discon)
-	e3:SetCost(c40009724.cost)
-	e3:SetTarget(c40009724.distg)
-	e3:SetOperation(c40009724.disop)
-	c:RegisterEffect(e3)
-end
-function c40009724.valcheck(e,c)
-	local g=c:GetMaterial()
-	if g:IsExists(Card.IsCode,1,nil,40009070) then
-		e:GetLabelObject():SetLabel(1)
-	else
-		e:GetLabelObject():SetLabel(0)
-	end
-end
-function c40009724.tncon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and e:GetLabel()==1
-end
-function c40009724.tnop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e1:SetValue(1)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetValue(600)
-	e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	c:RegisterEffect(e3)
-end
-function c40009724.discon(e,tp,eg,ep,ev,re,r,rp)
-	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
-end
-function c40009724.cfilter(c,tp)
-	return c:IsFaceup() and c:IsCanTurnSet()
-end
-function c40009724.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c40009724.cfilter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectMatchingCard(tp,c40009724.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
-end
-function c40009724.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	e:SetCategory(CATEGORY_NEGATE)
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-	if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE and re:GetHandler():IsRelateToEffect(re)
-		and not re:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then
-		e:SetCategory(CATEGORY_NEGATE+CATEGORY_POSITION)
-		Duel.SetOperationInfo(0,CATEGORY_POSITION,eg,1,0,0)
-	end
-end
-function c40009724.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateActivation(ev) and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE
-		and re:GetHandler():IsRelateToEffect(re) and not re:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then
-		Duel.BreakEffect()
-		if Duel.ChangePosition(re:GetHandler(),POS_FACEDOWN_DEFENSE)~=0 then
-			local og=Duel.GetOperatedGroup()
-			local tc=og:GetFirst()
-			while tc do
-				local e1=Effect.CreateEffect(e:GetHandler())
-				e1:SetType(EFFECT_TYPE_SINGLE)
-				e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION)
-				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-				tc:RegisterEffect(e1)
-				tc=og:GetNext()
-			end
-		end
-	end
-end
-
-
-
-

expansions/script/c40009726.lua

---苍岚旋龙 高傲灾漩
-function c40009726.initial_effect(c)
-	--synchro summon
-	c:SetUniqueOnField(1,0,40009726)	
-	--synchro summon
-	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x6f1d),aux.NonTuner(nil),1)
-	c:EnableReviveLimit()
-	--
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009726,1))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_DAMAGE_STEP_END)
-	e3:SetCondition(c40009726.effcon)
-	e3:SetTarget(c40009726.sptg)
-	e3:SetOperation(c40009726.spop)
-	c:RegisterEffect(e3)   
-	--negate
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(40009726,0))
-	e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
-	e4:SetType(EFFECT_TYPE_QUICK_O)
-	e4:SetCode(EVENT_CHAINING)
-	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetCondition(c40009726.negcon)
-	e4:SetTarget(c40009726.negtg)
-	e4:SetOperation(c40009726.negop)
-	c:RegisterEffect(e4)
-end
-function c40009726.effcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsRelateToBattle()
-end
-function c40009726.spfilter(c,e,tp)
-	return c:IsRankBelow(7) and c:IsAttribute(ATTRIBUTE_WATER) and e:GetHandler():IsCanBeXyzMaterial(c)
-		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
-end
-function c40009726.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,e:GetHandler())>-1
-		and aux.MustMaterialCheck(e:GetHandler(),tp,EFFECT_MUST_BE_XMATERIAL)
-		and Duel.IsExistingMatchingCard(c40009726.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c40009726.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if Duel.GetLocationCountFromEx(tp,tp,c)<=-1 or not aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) then return end
-	if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsControler(1-tp) or c:IsImmuneToEffect(e) then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c40009726.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-	local sc=g:GetFirst()
-	if sc then
-		local mg=c:GetOverlayGroup()
-		if mg:GetCount()~=0 then
-			Duel.Overlay(sc,mg)
-		end
-		sc:SetMaterial(Group.FromCards(c))
-		Duel.Overlay(sc,Group.FromCards(c))
-		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
-		sc:CompleteProcedure()
-	end
-end
-function c40009726.negcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if ep==tp or c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
-	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev) and e:GetHandler():GetFlagEffectLabel(40009727) and e:GetHandler():GetFlagEffectLabel(40009727)>0
-end
-function c40009726.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-end
-function c40009726.negop(e,tp,eg,ep,ev,re,r,rp)
-	local rc=re:GetHandler()
-	if Duel.NegateActivation(ev) and rc:IsRelateToEffect(re) and rc:IsCanTurnSet() then
-		rc:CancelToGrave()
-		Duel.MoveToField(rc,tp,tp,LOCATION_SZONE,POS_FACEDOWN,true)
-		Duel.RaiseEvent(rc,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
-	end
-end
-function c40009726.matcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and e:GetLabel()>0
-end
-function c40009726.matop(e,tp,eg,ep,ev,re,r,rp)
-	e:GetHandler():RegisterFlagEffect(40009727,RESET_EVENT+RESETS_STANDARD,0,1,e:GetLabel())
-end
-function c40009726.valcheck2(e,c)
-	local g=c:GetMaterial()
-	local ct=g:FilterCount(Card.IsSynchroType,nil,TYPE_TUNER)
-	e:GetLabelObject():SetLabel(ct)
-end
-

expansions/script/c6260301.lua

---破碎世界的太阳
-function c6260301.initial_effect(c)
-	--xyz summon  
-	aux.AddXyzProcedure(c,c6260301.mfilter,3,2,c6260301.ovfilter,aux.Stringid(6260301,0))  
-	c:EnableReviveLimit()  
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(6160301,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetHintTiming(0,TIMING_END_PHASE)
-	e1:SetCountLimit(1,6160301)
-	e1:SetCost(c6260301.spcost)
-	e1:SetTarget(c6260301.sptg)
-	e1:SetOperation(c6260301.spop)
-	c:RegisterEffect(e1)
-	--to hand
-	local e2=Effect.CreateEffect(c)  
-	e2:SetDescription(aux.Stringid(6260301,0))  
-	e2:SetCategory(CATEGORY_TOHAND)  
-	e2:SetType(EFFECT_TYPE_IGNITION)  
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)  
-	e2:SetRange(LOCATION_GRAVE)  
-	e2:SetCountLimit(1,6260301)  
-	e2:SetCondition(aux.exccon)  
-	e2:SetCost(aux.bfgcost)  
-	e2:SetTarget(c6260301.thtg)  
-	e2:SetOperation(c6260301.thop)  
-	c:RegisterEffect(e2)  
-end 
-function c6260301.mfilter(c)  
-	return c:IsRace(RACE_SPELLCASTER)
-end  
-function c6260301.ovfilter(c)  
-	return c:IsFaceup() and c:IsCode(6160202) 
-end 
-function c6260301.spcost(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 c6260301.filter(c,e,tp)  
-	return c:IsSetCard(0x616) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER) 
-end  
-function c6260301.sptg(e,tp,eg,ep,ev,re,r,rp,chk)  
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0   
-		and Duel.IsExistingMatchingCard(c6260301.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end  
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)  
-end  
-function c6260301.spop(e,tp,eg,ep,ev,re,r,rp)  
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)  
-	local g=Duel.SelectMatchingCard(tp,c6260301.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)  
-	if g:GetCount()>0 then  
-	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)		 
-end
-end
-function c6260301.spop(e,tp,eg,ep,ev,re,r,rp)  
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)  
-	local g=Duel.SelectMatchingCard(tp,c6260301.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)  
-	if g:GetCount()>0 then return end 
-	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)		 
-end  
-function c6260301.hdfilter(c)  
-	return c:IsFaceup() and c:IsSetCard(0x616) and c:IsAbleToHand() 
-end
-function c6260301.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)  
-	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c6260301.hdfilter(chkc) end  
-	if chk==0 then return Duel.IsExistingTarget(c6260301.thfilter,tp,LOCATION_REMOVED,0,1,nil) end  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)  
-	local sg=Duel.SelectTarget(tp,c6260301.hdfilter,tp,LOCATION_REMOVED,0,1,1,nil)  
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0)  
-end  
-function c6260301.thop(e,tp,eg,ep,ev,re,r,rp)  
-	local tc=Duel.GetFirstTarget()  
-	if tc:IsRelateToEffect(e) then  
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)  
-	end  
-end 
\ No newline at end of file

expansions/script/c72100214.lua

@@ -7,7 +7,7 @@ function c72100214.initial_effect(c)
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCountLimit(1,72100214+EFFECT_COUNT_CODE_OATH)
+	e1:SetCountLimit(1,72100214)
 	e1:SetCost(c72100214.cost)
 	e1:SetTarget(c72100214.target)
 	e1:SetOperation(c72100214.operation)
@@ -19,7 +19,7 @@ function c72100214.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetCountLimit(1,72110214+EFFECT_COUNT_CODE_OATH)
+	e2:SetCountLimit(1,72110214)
 	e2:SetCondition(aux.exccon)
 	e2:SetCost(aux.bfgcost)
 	e2:SetTarget(c72100214.drtg)
@@ -27,7 +27,7 @@ function c72100214.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function c72100214.cfilter(c)
-	return c:IsAttribute(RACE_SPELLCASTER) and c:IsAbleToGraveAsCost()
+	return c:IsRace(RACE_SPELLCASTER) and c:IsAbleToGraveAsCost()
 end
 function c72100214.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c72100214.cfilter,tp,LOCATION_DECK,0,1,nil) end
@@ -44,8 +44,8 @@ function c72100214.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c72100214.operation(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local tc=Duel.GetFirstMatchingCard(c72100214.filter,tp,LOCATION_DECK,0,nil)
-	if tc then
+	local tc=Duel.SelectMatchingCard(tp,c72100214.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if tc:GetCount()>0 then
 		Duel.SendtoHand(tc,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,tc)
 	end

expansions/script/c89390003.lua

@@ -98,6 +98,7 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
     Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
     local gy=Duel.SelectMatchingCard(tp,cm.gyfilter,tp,LOCATION_REMOVED,0,1,dc,nil)
     if #gy==0 then return end
+    Duel.HintSelection(gy)
     local yc=Duel.SendtoDeck(gy,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
     if yc<=0 then return end
     Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)

expansions/script/c98920046.lua

@@ -39,7 +39,7 @@ function c98920046.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
 function c98920046.spfilter1(c,e,tp)
-	return c:IsRace(RACE_DRAGON) and c:IsLevel(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
+	return c:IsRace(RACE_DRAGON) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
 end
 function c98920046.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0