update 240708

expansions/lflist.conf

@@ -6028,6 +6028,7 @@
 10111100 0
 10111101 0
 10111102 0
+89390011 0
 #limit
 33403513 1
 82204250 0
@@ -6267,7 +6268,7 @@
 87697574 0
 11533706 1
 11533701 1
-11533700 1
+11533700 2
 11533704 1
 11533703 1
 189132 1

expansions/script/c10202929.lua

@@ -45,7 +45,7 @@ function c10202929.nttg(e,c)
 end
 --2
 function c10202929.chainop(e,tp,eg,ep,ev,re,r,rp)
-	if re:GetHandler():IsCodeListed(c,22702055) and ep==tp then
+	if re:GetHandler():IsAttribute(ATTRIBUTE_WATER) and ep==tp then
 		Duel.SetChainLimit(c10202929.chainlm)
 	end
 end
@@ -59,9 +59,9 @@ end
 function c10202929.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and c10202929.tdfilter(chkc) end
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
-		and Duel.IsExistingTarget(c10202929.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,4,nil) end
+		and Duel.IsExistingTarget(c10202929.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectTarget(tp,c10202929.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,4,4,nil)
+	local g=Duel.SelectTarget(tp,c10202929.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,3,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
 end
@@ -74,6 +74,6 @@ function c10202929.drop(e,tp,eg,ep,ev,re,r,rp)
 	local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
 	if ct>0 then
 		Duel.BreakEffect()
-		Duel.Draw(tp,1,REASON_EFFECT)
+		Duel.Draw(tp,2,REASON_EFFECT)
 	end
 end
\ No newline at end of file

expansions/script/c11561008.lua

@@ -16,7 +16,7 @@ function c11561008.initial_effect(c)
 	e2:SetDescription(aux.Stringid(11561008,2))
 	e2:SetCategory(CATEGORY_ANNOUNCE) 
 	e2:SetType(EFFECT_TYPE_IGNITION) 
-	e2:SetRange(LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED) 
+	e2:SetRange(LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED)
 	e2:SetCountLimit(1,21561008)
 	e2:SetCost(c11561008.cancost) 
 	e2:SetTarget(c11561008.cgtg) 

expansions/script/c11561060.lua

+--空 泡 碧 水 弹 丸 龙
+local m=11561060
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_DRAGON),2,99)
+	c:EnableReviveLimit()
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11561060,0))
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,11561060)
+	e1:SetTarget(c11561060.tdtg)
+	e1:SetOperation(c11561060.tdop)
+	c:RegisterEffect(e1)
+	--mate
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
+	e2:SetCondition(c11561060.effcon)
+	e2:SetOperation(c11561060.effop)
+	c:RegisterEffect(e2)	
+end
+function c11561060.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return r==REASON_LINK and e:GetHandler():GetReasonCard():IsRace(RACE_DRAGON)
+end
+function c11561060.effop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=c:GetReasonCard()
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11561060,0))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e1:SetValue(aux.TRUE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e1,true)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
+	e2:SetValue(aux.imval1)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e2,true)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_PIERCE)
+	e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e3,true)
+end 
+
+function c11561060.tdfilter(c,e)
+	return c:IsCanBeEffectTarget(e) and c:IsAbleToDeck()
+end
+function c11561060.tdrf(c,e)
+	return c:IsRace(RACE_DRAGON) and c:IsFaceupEx()
+end
+function c11561060.gcheck(g,e,tp)
+	return g:IsExists(c11561060.tdrf,1,nil)
+end
+function c11561060.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c11561060.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
+	if chk==0 then return g:CheckSubGroup(c11561060.gcheck,1,4,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local sg=g:SelectSubGroup(tp,c11561060.gcheck,false,1,4,e,tp)
+	Duel.SetTargetCard(sg)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)
+end
+function c11561060.spfilter(c,e,tp,zone)
+	return c:IsRace(RACE_DRAGON) and c:IsFaceupEx() and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,tp,zone)
+end
+function c11561060.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	local zone=bit.band(e:GetHandler():GetLinkedZone(tp),0x1f)
+	if g:GetCount()>0 and Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 then
+	local off=1
+	local ops={}
+	local opval={}
+	if  Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c11561060.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp,zone) then
+		ops[off]=aux.Stringid(11561060,1)
+		opval[off-1]=1
+		off=off+1
+	end
+	if Duel.IsPlayerCanDraw(tp,1) then
+		ops[off]=aux.Stringid(11561060,2)
+		opval[off-1]=2
+		off=off+1
+	end
+	if off==1 then return end
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	if opval[op]==1 then
+			Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c11561060.spfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp,zone)
+		if zone~=0 and g:GetCount()>0 and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP_DEFENSE,zone) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			g:GetFirst():RegisterEffect(e1)
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_DISABLE_EFFECT)
+			e2:SetValue(RESET_TURN_SET)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			g:GetFirst():RegisterEffect(e2)
+		end
+		Duel.SpecialSummonComplete()
+	elseif opval[op]==2 then
+			Duel.BreakEffect()
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+
+	end
+end

expansions/script/c11561061.lua

+--半龙女仆·回廊龙女
+local m=11561061
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--seach
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCountLimit(1,11561061)
+	e1:SetOperation(c11561061.thop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	
+end
+function c11561061.thop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c11561061.thcon2)
+	e1:SetOperation(c11561061.thop2)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c11561061.filter1(c,e,tp)
+	return c:IsSetCard(0xd70a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c11561061.thcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c11561061.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp)
+end
+function c11561061.thop2(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,aux.NecroValleyFilter(c11561061.filter1),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c11570001.lua

@@ -46,16 +46,16 @@ function c11570001.initial_effect(c)
 	c:RegisterEffect(e4)
 end
 function c11570001.spcfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x810) and c:IsAbleToGraveAsCost()
+	return c:IsFaceupEx() and c:IsSetCard(0x810) and c:IsAbleToGraveAsCost()
 end
 function c11570001.spcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
-	local mg=Duel.GetMatchingGroup(c11570001.spcfilter,tp,LOCATION_ONFIELD,0,nil)
+	local mg=Duel.GetMatchingGroup(c11570001.spcfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,nil)
 	return mg:CheckSubGroup(aux.mzctcheck,2,2,tp)
 end
 function c11570001.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	local mg=Duel.GetMatchingGroup(c11570001.spcfilter,tp,LOCATION_ONFIELD,0,nil)
+	local mg=Duel.GetMatchingGroup(c11570001.spcfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,nil)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local sg=mg:SelectSubGroup(tp,aux.mzctcheck,false,2,2,tp)
 	Duel.SendtoGrave(sg,REASON_COST)

expansions/script/c11638008.lua

@@ -62,22 +62,29 @@ function cm.activate1(e,tp,eg,ep,ev,re,r,rp)
 		end
 	end
 end
+function cm.filter2(c)
+	return c:IsCode(11638001) and c:IsFaceup()
+end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	local ph=Duel.GetCurrentPhase()
-	if chk==0 then return Duel.IsAbleToEnterBP() or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) end
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_MZONE,0,1,nil) and Duel.IsAbleToEnterBP() or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) end
 	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 end
 function cm.activate2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local tc=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
+	if not tc then return end
+	Duel.HintSelection(Group.FromCards(tc))
 	--extra attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_EXTRA_ATTACK)
-	e2:SetTargetRange(LOCATION_MZONE,0)
-	e2:SetTarget(cm.exatktg)
-	e2:SetValue(cm.exatkval)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e2,tp)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetDescription(aux.Stringid(m,4))
+	e1:SetValue(cm.exatkval)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
 	if Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
 		Duel.BreakEffect()
 		local tc=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
@@ -111,7 +118,7 @@ function cm.deffilter(c)
 end
 function cm.exatkval(e)
 	local tp=e:GetHandlerPlayer()
-	local g=Duel.GetMatchingGroup(cm.deffilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+	local g=Duel.GetMatchingGroup(cm.deffilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
 	return #g-1
 end
 function cm.descon(e,tp,eg,ep,ev,re,r,rp)
@@ -131,7 +138,7 @@ function cm.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local b=(Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0
 		and not Duel.IsExistingMatchingCard(cm.filter3,tp,LOCATION_MZONE,0,1,nil))
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.filter1(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and (Duel.IsAbleToEnterBP() or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)) and b end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_MZONE,0,1,nil) and (Duel.IsAbleToEnterBP() or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)) and b end
 	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF)
 	local g=Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil)
@@ -157,15 +164,19 @@ function cm.activate3(e,tp,eg,ep,ev,re,r,rp)
 			Duel.CalculateDamage(c1,c2,true)
 		end
 	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local tc=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
+	if not tc then return end
+	Duel.HintSelection(Group.FromCards(tc))
 	--extra attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_EXTRA_ATTACK)
-	e2:SetTargetRange(LOCATION_MZONE,0)
-	e2:SetTarget(cm.exatktg)
-	e2:SetValue(cm.exatkval)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e2,tp)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetDescription(aux.Stringid(m,4))
+	e1:SetValue(cm.exatkval)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
 	if Duel.IsExistingMatchingCard(cm.noatkfilter,tp,0,LOCATION_MZONE,1,c1) and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
 		Duel.BreakEffect()
 		local tc=Duel.SelectMatchingCard(tp,cm.noatkfilter,tp,0,LOCATION_MZONE,1,1,c1):GetFirst()

expansions/script/c11638009.lua

@@ -73,8 +73,11 @@ end
 function cm.ninjafilter(c)
 	return c:IsFaceup() and c:IsCode(11638001)
 end
+function cm.filter3(c)
+	return not c:IsCode(11638001) or c:IsFacedown()
+end
 function cm.con2(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.IsExistingMatchingCard(cm.ninjafilter,tp,LOCATION_MZONE,0,1,nil)
+	return Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.IsExistingMatchingCard(cm.ninjafilter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)<Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE) and not Duel.IsExistingMatchingCard(cm.filter3,tp,LOCATION_MZONE,0,1,nil)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0

expansions/script/c121082832.lua

@@ -182,3 +182,43 @@ end
 function c121082832.nofilter(e,re,tp)
     return re:GetHandler():IsCode(73468603)
 end
+
+local st=Effect.SetTarget
+Effect.SetTarget=function(e,tg)
+    if e:GetOwner():IsOriginalCodeRule(92746535) and e:GetCategory()==CATEGORY_TOHAND+CATEGORY_SEARCH then
+        return st(e,c121082832.thtg)
+    else
+        return st(e,tg)
+    end
+end
+local so=Effect.SetOperation
+Effect.SetOperation=function(e,op)
+    if e:GetOwner():IsOriginalCodeRule(92746535) and e:GetCategory()==CATEGORY_TOHAND+CATEGORY_SEARCH then
+        return so(e,c121082832.thop)
+    else
+        return so(e,op)
+    end
+end
+
+function c121082832.thfilter(c,code)
+    return c:IsCode(code) and c:IsAbleToHand()
+end
+function c121082832.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local sc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,e:GetHandler())
+    if chk==0 then return Duel.IsExistingMatchingCard(c121082832.thfilter,tp,LOCATION_DECK,0,1,nil,sc:GetCode()) end
+    Duel.SetTargetCard(sc)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,sc,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c121082832.thop(e,tp,eg,ep,ev,re,r,rp)
+    if not e:GetHandler():IsRelateToEffect(e) then return end
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+        local g=Duel.SelectMatchingCard(tp,c121082832.thfilter,tp,LOCATION_DECK,0,1,1,nil,tc:GetCode())
+        if g:GetCount()>0 then
+            Duel.SendtoHand(g,nil,REASON_EFFECT)
+            Duel.ConfirmCards(1-tp,g)
+        end
+    end
+end

expansions/script/c15005451.lua

+local m=15005451
+local cm=_G["c"..m]
+cm.name="织炎封缄"
+function cm.initial_effect(c)
+	--change effect
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(cm.cecondition)
+	e1:SetTarget(cm.cetarget)
+	e1:SetOperation(cm.ceoperation)
+	c:RegisterEffect(e1)
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DESTROY)
+	local sg=Duel.SelectMatchingCard(1-tp,cm.desfilter,1-tp,LOCATION_ONFIELD,0,1,1,nil)
+	if sg:GetCount()>0 then
+		Duel.HintSelection(sg)
+		Duel.Destroy(sg,REASON_EFFECT)
+	end
+end
+function cm.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xaf31) and c:IsType(TYPE_LINK)
+end
+function cm.cecondition(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.desfilter(c)
+	return ((not c:IsCode(15005451)) or c:IsFacedown())
+end
+function cm.cetarget(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter,rp,0,LOCATION_ONFIELD,1,nil) end
+end
+function cm.ceoperation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Group.CreateGroup()
+	Duel.ChangeTargetCard(ev,g)
+	Duel.ChangeChainOperation(ev,cm.repop)
+end
\ No newline at end of file

expansions/script/c15005452.lua

+local m=15005452
+local cm=_G["c"..m]
+cm.name="织炎鸟-灼火疾风"
+function cm.initial_effect(c)
+	--limit targeting
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e1:SetCondition(cm.ltcon)
+	e1:SetTarget(cm.lttg)
+	e1:SetOperation(cm.ltop)
+	c:RegisterEffect(e1)
+	--
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_TODECK)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetCode(EVENT_BE_MATERIAL)
+	e4:SetCountLimit(1,m+1)
+	e4:SetCondition(cm.con)
+	e4:SetTarget(cm.tg)
+	e4:SetOperation(cm.op)
+	c:RegisterEffect(e4)
+	local e5=Effect.Clone(e4)
+	e5:SetCode(EVENT_DESTROYED)
+	e5:SetCondition(aux.TRUE)
+	c:RegisterEffect(e5)
+end
+function cm.ltcon(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
+end
+function cm.lttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_HAND)
+end
+function cm.ltop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xaf31))
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetValue(aux.tgoval)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_LINK and c:GetReasonCard():IsSetCard(0xaf31)
+end
+function cm.thfilter(c)
+	return c:IsAbleToDeck() and (c:IsSetCard(0xaf31) or (c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WINDBEAST))) and  not c:IsCode(15005452)
+end
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,3,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c22020000.lua

+--人理保障 藤丸立香
+function c22020000.initial_effect(c)
+	--summon success
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SUMMON_SUCCESS)
+	e0:SetOperation(c22020000.sumsuc)
+	c:RegisterEffect(e0)
+	local e4=e0:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+	local e5=e0:Clone()
+	e5:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e5)
+	--synchro custom
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SYNCHRO_MATERIAL_CUSTOM)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetTarget(c22020000.syntg)
+	e1:SetValue(1)
+	e1:SetOperation(c22020000.synop)
+	c:RegisterEffect(e1)
+	--hand synchro
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM)
+	e2:SetCode(EFFECT_HAND_SYNCHRO)
+	e2:SetTargetRange(0,1)
+	c:RegisterEffect(e2)
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(22020000,0))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCost(c22020000.cost)
+	e3:SetTarget(c22020000.target)
+	e3:SetOperation(c22020000.operation)
+	c:RegisterEffect(e3)
+	--Ereshkigal
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(22020000,5))
+	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCountLimit(1)
+	e4:SetCondition(c22020000.erescon)
+	e4:SetCost(c22020000.cost1)
+	e4:SetTarget(c22020000.target)
+	e4:SetOperation(c22020000.operation)
+	c:RegisterEffect(e4)
+end
+c22020000.effect_with_master=true
+function c22020000.erescon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsPlayerAffectedByEffect(tp,22020980)
+end
+function c22020000.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	Duel.SelectOption(tp,aux.Stringid(22020000,1))
+	Duel.SelectOption(tp,aux.Stringid(22020000,2))
+	Duel.SelectOption(tp,aux.Stringid(22020000,3))
+	Duel.RegisterEffect(e1,tp)
+end
+function c22020000.cost(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.SelectOption(tp,aux.Stringid(22020000,4))
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c22020000.cost1(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.SelectOption(tp,aux.Stringid(22020000,6))
+	Duel.Hint(HINT_CARD,0,22020980)
+	Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c22020000.filter(c)
+	return c:IsSetCard(0xff1) and not c:IsSetCard(0x3ff1) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c22020000.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22020000.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c22020000.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c22020000.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.SelectOption(tp,aux.Stringid(22020000,2))
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c22020000.synfilter(c,syncard,tuner,f)
+	return c:IsFaceupEx() and c:IsCanBeSynchroMaterial(syncard,tuner) and (f==nil or f(c,syncard))
+end
+function c22020000.syncheck(c,g,mg,tp,lv,syncard,minc,maxc)
+	g:AddCard(c)
+	local ct=g:GetCount()
+	local res=c22020000.syngoal(g,tp,lv,syncard,minc,ct)
+		or (ct<maxc and mg:IsExists(c22020000.syncheck,1,g,g,mg,tp,lv,syncard,minc,maxc))
+	g:RemoveCard(c)
+	return res
+end
+function c22020000.syngoal(g,tp,lv,syncard,minc,ct)
+	return ct>=minc
+		and g:CheckWithSumEqual(Card.GetSynchroLevel,lv,ct,ct,syncard)
+		and Duel.GetLocationCountFromEx(tp,tp,g,syncard)>0
+		and g:FilterCount(Card.IsLocation,nil,LOCATION_HAND)<=1
+		and aux.MustMaterialCheck(g,tp,EFFECT_MUST_BE_SMATERIAL)
+end
+function c22020000.syntg(e,syncard,f,min,max)
+	local minc=min+1
+	local maxc=max+1
+	local c=e:GetHandler()
+	local tp=syncard:GetControler()
+	local lv=syncard:GetLevel()
+	if lv<=c:GetLevel() then return false end
+	local g=Group.FromCards(c)
+	local mg=Duel.GetSynchroMaterial(tp):Filter(c22020000.synfilter,c,syncard,c,f)
+	local exg=Duel.GetMatchingGroup(c22020000.synfilter,tp,LOCATION_HAND,0,c,syncard,c,f)
+	mg:Merge(exg)
+	return mg:IsExists(c22020000.syncheck,1,g,g,mg,tp,lv,syncard,minc,maxc)
+end
+function c22020000.synop(e,tp,eg,ep,ev,re,r,rp,syncard,f,min,max)
+	local minc=min+1
+	local maxc=max+1
+	local c=e:GetHandler()
+	local lv=syncard:GetLevel()
+	local g=Group.FromCards(c)
+	local mg=Duel.GetSynchroMaterial(tp):Filter(c22020000.synfilter,c,syncard,c,f)
+	local exg=Duel.GetMatchingGroup(c22020000.synfilter,tp,LOCATION_HAND,0,c,syncard,c,f)
+	mg:Merge(exg)
+	for i=1,maxc do
+		local cg=mg:Filter(c22020000.syncheck,g,g,mg,tp,lv,syncard,minc,maxc)
+		if cg:GetCount()==0 then break end
+		local minct=1
+		if c22020000.syngoal(g,tp,lv,syncard,minc,i) then
+			minct=0
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
+		local sg=cg:Select(tp,minct,1,nil)
+		if sg:GetCount()==0 then break end
+		g:Merge(sg)
+	end
+	Duel.SetSynchroMaterial(g)
+end
\ No newline at end of file

expansions/script/c22020010.lua

+--人理之基 清姬
+function c22020010.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22020010,3))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,22020010)
+	e1:SetTarget(c22020010.sptg)
+	e1:SetOperation(c22020010.spop)
+	c:RegisterEffect(e1)
+end
+function c22020010.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0xff1) and c:IsDefenseAbove(1)
+end
+function c22020010.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c22020010.filter(chkc) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingTarget(c22020010.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.SelectOption(tp,aux.Stringid(22020010,0))
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,c22020010.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c22020010.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CANNOT_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+		local tc=Duel.GetFirstTarget()
+		if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_SET_DEFENSE_FINAL)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			e1:SetValue(0)
+			tc:RegisterEffect(e1)
+		end
+		if not tc:IsRelateToEffect(e) or not tc:IsFaceup() then
+		Duel.SelectOption(tp,aux.Stringid(22020010,1))
+		end
+	end
+end

expansions/script/c22020020.lua

+--人理之基 阿尔托莉雅
+function c22020020.initial_effect(c)
+	--draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22020020,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCountLimit(1,22020020)
+	e1:SetTarget(c22020020.target)
+	e1:SetOperation(c22020020.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(22020020,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetCountLimit(1,22020021)
+	e3:SetCondition(c22020020.spcon)
+	e3:SetTarget(c22020020.sptg)
+	e3:SetOperation(c22020020.spop)
+	c:RegisterEffect(e3)
+end
+function c22020020.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SelectOption(tp,aux.Stringid(22020020,2))
+	Duel.SelectOption(tp,aux.Stringid(22020020,3))
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c22020020.operation(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end
+
+function c22020020.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	return tc:IsControler(tp) and tc:IsSetCard(0xff1) and tc:IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c22020020.sptg(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 c22020020.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)
+	end
+end
\ No newline at end of file

expansions/script/c22020030.lua

+--人理保障 玛修·基列莱特
+function c22020030.initial_effect(c)
+	--summon success
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SUMMON_SUCCESS)
+	e0:SetOperation(c22020030.sumsuc)
+	c:RegisterEffect(e0)
+	local e4=e0:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+	local e5=e0:Clone()
+	e5:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e5)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22020030,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_HAND)
+	e1:SetCountLimit(1,c22020030)
+	e1:SetCondition(c22020030.spcon)
+	e1:SetTarget(c22020030.sptg)
+	e1:SetOperation(c22020030.spop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(22020030,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_HAND)
+	e2:SetCountLimit(1,c22020030)
+	e2:SetCondition(c22020030.spcon)
+	e2:SetTarget(c22020030.thtg)
+	e2:SetOperation(c22020030.thop)
+	c:RegisterEffect(e2)
+	--To hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(22020030,2))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_BE_MATERIAL)
+	e3:SetCondition(c22020030.descon)
+	e3:SetCountLimit(1,22020031)
+	e3:SetTarget(c22020030.thtg1)
+	e3:SetOperation(c22020030.thop1)
+	c:RegisterEffect(e3)
+end
+c22020030.effect_with_master=true
+function c22020030.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	Duel.SelectOption(tp,aux.Stringid(22020030,3))
+	Duel.SelectOption(tp,aux.Stringid(22020030,4))
+	Duel.SelectOption(tp,aux.Stringid(22020030,5))
+	Duel.RegisterEffect(e1,tp)
+end
+function c22020030.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsReason(REASON_DRAW)
+end
+function c22020030.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c22020030.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end
+end
+function c22020030.thfilter(c)
+	return c:IsSetCard(0xff1) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+end
+function c22020030.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22020030.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c22020030.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c22020030.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c22020030.descon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
+end
+function c22020030.thfilter1(c)
+	return c:IsSetCard(0x3ff1) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c22020030.thtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c22020030.thfilter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22020030.thfilter1,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c22020030.thfilter1,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c22020030.thop1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end

expansions/script/c22020040.lua

+--人理之基 阿尔托莉雅·彼面
+function c22020040.initial_effect(c)
+	--xyz summon
+	c:EnableReviveLimit()
+	aux.AddXyzProcedure(c,nil,4,2,nil,nil,99)
+	--attack up
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetDescription(aux.Stringid(22020040,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c22020040.cost)
+	e1:SetOperation(c22020040.operation)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(22020040,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCost(c22020040.cost)
+	e2:SetTarget(c22020040.destg)
+	e2:SetOperation(c22020040.desop)
+	c:RegisterEffect(e2)
+end
+function c22020040.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 c22020040.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		Duel.SelectOption(tp,aux.Stringid(22020040,2))
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(1800)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END,2)
+		c:RegisterEffect(e1)
+	end
+end
+function c22020040.filter(c,atk)
+	return c:IsFaceup() and c:IsAttackBelow(atk)
+end
+function c22020040.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(c22020040.filter,tp,0,LOCATION_MZONE,1,c,c:GetAttack()) end
+	local g=Duel.GetMatchingGroup(c22020040.filter,tp,0,LOCATION_MZONE,c,c:GetAttack())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c22020040.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local g=Duel.GetMatchingGroup(c22020040.filter,tp,LOCATION_MZONE,LOCATION_MZONE,aux.ExceptThisCard(e),c:GetAttack())
+	Duel.SelectOption(tp,aux.Stringid(22020040,3))
+	local ct=Duel.Destroy(g,REASON_EFFECT)
+	if ct>=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CANNOT_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+	end
+end

expansions/script/c22020050.lua

+--人理之诗 誓约胜利之剑
+function c22020050.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c22020050.target)
+	e1:SetOperation(c22020050.operation)
+	c:RegisterEffect(e1)
+	--equip limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_EQUIP_LIMIT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetValue(c22020050.eqlimit)
+	c:RegisterEffect(e2)
+	--Atk up
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_EQUIP)
+	e3:SetCode(EFFECT_UPDATE_ATTACK)
+	e3:SetValue(c22020050.atkval)
+	c:RegisterEffect(e3)
+	--destroy
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(22020050,0))
+	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE+CATEGORY_DRAW)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCountLimit(1,22020050)
+	e4:SetTarget(c22020050.destg)
+	e4:SetOperation(c22020050.desop)
+	c:RegisterEffect(e4)
+end
+c22020050.effect_with_altria=true
+function c22020050.eqlimit(e,c)
+	return c:IsFaceup() and (c:IsSetCard(0xff9) or c.effect_canequip_hogu)
+end
+function c22020050.filter(c)
+	return c:IsFaceup() and (c:IsSetCard(0xff9) or c.effect_canequip_hogu)
+end
+function c22020050.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c22020050.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22020050.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,c22020050.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function c22020050.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,c,tc)
+		Duel.SelectOption(tp,aux.Stringid(22020050,1))
+	end
+end
+function c22020050.atkval(e,c)
+	if c:IsType(TYPE_XYZ) then return c:GetRank()*300
+	else
+		return c:GetLevel()*300
+	end
+end
+function c22020050.filter1(c,atk)
+	return c:IsFaceup() and c:IsAttackBelow(atk)
+end
+function c22020050.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local atk=c:GetEquipTarget():GetAttack()
+	if chk==0 then return Duel.IsExistingMatchingCard(c22020050.filter1,tp,0,LOCATION_MZONE,1,c,atk) end
+	local g=Duel.GetMatchingGroup(c22020050.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,c,atk)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c22020050.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local atk=c:GetEquipTarget():GetAttack()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local g=Duel.GetMatchingGroup(c22020050.filter1,tp,0,LOCATION_MZONE,aux.ExceptThisCard(e),atk)
+	local ct=Duel.Destroy(g,REASON_EFFECT)
+	Duel.SelectOption(tp,aux.Stringid(22020050,2))
+	if ct>0 then
+		Duel.BreakEffect()
+		Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c22020060.lua

+--人理之诗 遥远的理想乡
+function c22020060.initial_effect(c)
+	c:EnableCounterPermit(0xfee)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_COUNTER)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(c22020060.condition)
+	e1:SetTarget(c22020060.target)
+	e1:SetOperation(c22020060.activate)
+	c:RegisterEffect(e1)
+	--cannot be target
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetTargetRange(LOCATION_ONFIELD,0)
+	e2:SetTarget(c22020060.tgtg)
+	e2:SetValue(aux.tgoval)
+	c:RegisterEffect(e2)
+	--destroy replace
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_DESTROY_REPLACE)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetTarget(c22020060.desreptg)
+	e3:SetValue(c22020060.desrepval)
+	e3:SetOperation(c22020060.desrepop)
+	c:RegisterEffect(e3)
+end
+c22020060.effect_with_avalon=true
+c22020060.effect_with_altria=true
+function c22020060.ctfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xff9)
+end
+function c22020060.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c22020060.ctfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c22020060.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local ct=Duel.GetMatchingGroupCount(c22020060.ctfilter,tp,LOCATION_MZONE,0,c)
+	local c=e:GetHandler()
+	if chk==0 and ct>0 then return Duel.IsCanAddCounter(tp,0xfee,ct,c) end
+end
+function c22020060.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=Duel.GetMatchingGroupCount(c22020060.ctfilter,tp,LOCATION_MZONE,0,c)
+	if c:IsRelateToEffect(e) and ct>0 then
+		c:AddCounter(0xfee,ct)
+		Duel.SelectOption(tp,aux.Stringid(22020060,0))
+		Duel.SelectOption(tp,aux.Stringid(22020060,1))
+	end
+end
+function c22020060.tgtg(e,c)
+	return c:IsSetCard(0xff1) and c~=e:GetHandler()
+end
+function c22020060.repfilter(c,tp)
+	return c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD)
+		and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
+end
+function c22020060.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return eg:IsExists(c22020060.repfilter,1,nil,tp)
+		and e:GetHandler():IsCanRemoveCounter(tp,0xfee,1,REASON_EFFECT) end
+	return Duel.SelectEffectYesNo(tp,c,96)
+end
+function c22020060.desrepval(e,c)
+	return c22020060.repfilter(c,e:GetHandlerPlayer())
+end
+function c22020060.desrepop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RemoveCounter(tp,0xfee,1,REASON_EFFECT)
+end

expansions/script/c22020070.lua

+--拟似展开/人理之础
+function c22020070.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c22020070.cost)
+	e1:SetCondition(c22020070.condition)
+	e1:SetOperation(c22020070.activate)
+	c:RegisterEffect(e1)
+end
+function c22020070.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SelectOption(tp,aux.Stringid(22020070,0))
+end
+function c22020070.cfilter1(c)
+	return c:IsFaceup() and c:IsSetCard(0xff1)
+end
+function c22020070.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c22020070.cfilter1,tp,LOCATION_MZONE,0,1,nil)
+end
+function c22020070.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SelectOption(tp,aux.Stringid(22020070,1))
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetValue(1)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CHANGE_DAMAGE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetValue(c22020070.damval1)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+	local e3=Effect.CreateEffect(e:GetHandler())
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetTargetRange(LOCATION_MZONE,0)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	e3:SetValue(1)
+	Duel.RegisterEffect(e3,tp)
+	local e4=Effect.CreateEffect(e:GetHandler())
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e4:SetTargetRange(LOCATION_MZONE,0)
+	e4:SetReset(RESET_PHASE+PHASE_END)
+	e4:SetValue(1)
+	Duel.RegisterEffect(e4,tp)
+end
+function c22020070.damval1(e,re,val,r,rp,rc)
+	if bit.band(r,REASON_EFFECT)~=0 then return 0
+	else return val end
+end
\ No newline at end of file

expansions/script/c22020080.lua

+--人理之基 阿尔托莉雅·莉莉
+function c22020080.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--summon success
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetOperation(c22020080.sumsuc)
+	c:RegisterEffect(e2)
+	--splimit
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e0:SetCondition(c22020080.regcon)
+	e0:SetOperation(c22020080.regop)
+	c:RegisterEffect(e0)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22020080,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCondition(c22020080.thcon)
+	e1:SetTarget(c22020080.thtg)
+	e1:SetOperation(c22020080.thop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(22020080,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCondition(c22020080.spcon)
+	e3:SetTarget(c22020080.sptg)
+	e3:SetOperation(c22020080.spop)
+	c:RegisterEffect(e3)
+end
+function c22020080.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	Duel.SelectOption(tp,aux.Stringid(22020080,2))
+	Duel.SelectOption(tp,aux.Stringid(22020080,3))
+	Duel.SelectOption(tp,aux.Stringid(22020080,4))
+	Duel.RegisterEffect(e1,tp)
+end
+function c22020080.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO 
+end
+function c22020080.regop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTarget(c22020080.splimit)
+	Duel.RegisterEffect(e1,tp)
+end
+function c22020080.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsCode(22020080) and bit.band(sumtype,SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO 
+end
+function c22020080.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c22020080.thfilter(c)
+	return c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c.effect_with_altria
+end
+function c22020080.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22020080.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c22020080.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c22020080.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c22020080.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c22020080.spfilter(c,e,tp)
+	return c:IsSetCard(0xff1) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c22020080.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c22020080.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c22020080.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,c22020080.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

expansions/script/c22020090.lua

 --大魔术师 梅林
 function c22020090.initial_effect(c)
+	--summon success
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SUMMON_SUCCESS)
+	e0:SetOperation(c22020090.sumsuc)
+	c:RegisterEffect(e0)
+	local e4=e0:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+	local e5=e0:Clone()
+	e5:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e5)
 	--special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
@@ -8,18 +20,24 @@ function c22020090.initial_effect(c)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(c22020090.spcon)
 	c:RegisterEffect(e1)
-	--spsummon
+	--counter
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(22020090,0))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,22020090)
-	e2:SetTarget(c22020090.target)
-	e2:SetOperation(c22020090.operation)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCost(c22020090.cost)
+	e2:SetTarget(c22020090.cttg)
+	e2:SetOperation(c22020090.ctop)
 	c:RegisterEffect(e2)
 end
+c22020090.effect_with_avalon=true
+function c22020090.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	Duel.SelectOption(tp,aux.Stringid(22020090,1))
+	Duel.RegisterEffect(e1,tp)
+end
 function c22020090.filter(c)
 	return c:IsFaceup() and c:IsSetCard(0xff1)
 end
@@ -28,36 +46,24 @@ function c22020090.spcon(e,c)
 	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and
 		Duel.IsExistingMatchingCard(c22020090.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
 end
-function c22020090.filter1(c,e,tp,lv)
-	local clv=c:GetLevel()
-	return clv>0 and not c:IsType(TYPE_TUNER) and c:IsSetCard(0xff1) and c:IsAbleToRemove()
-		and Duel.IsExistingMatchingCard(c22020090.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,lv+clv)
+function c22020090.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
 end
-function c22020090.filter2(c,e,tp,lv)
-	return c:IsLevel(lv) and c:IsSetCard(0xff9) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+function c22020090.ctfilter(c)
+	return c:IsFaceup() and c:IsCanAddCounter(0xfee,3)
 end
-function c22020090.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c22020090.filter1(chkc,e,tp,e:GetHandler():GetLevel()) end
-	if chk==0 then return e:GetHandler():IsAbleToRemove()
-		and Duel.IsExistingTarget(c22020090.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp,e:GetHandler():GetLevel()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectTarget(tp,c22020090.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,e:GetHandler():GetLevel())
-	g:AddCard(e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,2,tp,LOCATION_GRAVE)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+function c22020090.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c22020090.ctfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22020090.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.SelectOption(tp,aux.Stringid(22020090,2))
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c22020090.ctfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,3,0,0xfee)
 end
-function c22020090.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
+function c22020090.ctop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
-	if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end
-	local lv=c:GetLevel()+tc:GetLevel()
-	local g=Group.FromCards(c,tc)
-	if Duel.Remove(g,POS_FACEUP,REASON_EFFECT)==2 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local sg=Duel.SelectMatchingCard(tp,c22020090.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv)
-		if sg:GetCount()>0 then
-			Duel.SpecialSummon(sg,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)
-			sg:GetFirst():CompleteProcedure()
-		end
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		tc:AddCounter(0xfee,3)
 	end
 end
\ No newline at end of file

expansions/script/c22020100.lua

+--光辉之路
+function c22020100.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--Activate
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(22020100,0))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,22020100)
+	e3:SetCost(c22020100.cost)
+	e3:SetTarget(c22020100.target)
+	e3:SetOperation(c22020100.activate)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(22020100,2))
+	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCost(c22020100.cost)
+	e4:SetCountLimit(1,22020100)
+	e4:SetCondition(c22020100.actcon)
+	e4:SetTarget(c22020100.target1)
+	e4:SetOperation(c22020100.activate1)
+	c:RegisterEffect(e4)
+end
+c22020100.effect_with_altria=true
+function c22020100.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	Duel.PayLPCost(tp,1000)
+end
+function c22020100.filter1(c,code,e,tp)
+	return c:IsFaceup() and c:IsSetCard(0xff1) and Duel.IsExistingMatchingCard(c22020100.filter2,tp,LOCATION_DECK,0,1,nil,c:GetCode(),e,tp)
+end
+function c22020100.filter2(c,code,e,tp)
+	return aux.IsCodeListed(c,code) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() and c:IsSetCard(0xff1)
+end
+function c22020100.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c22020100.filter1(chkc,e,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c22020100.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(22020100,1))
+	Duel.SelectTarget(tp,c22020100.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c22020100.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg=Duel.SelectMatchingCard(tp,c22020100.filter2,tp,LOCATION_DECK,0,1,1,nil,tc:GetCode(),e,tp)
+		if sg:GetCount()>0 then
+			Duel.SendtoHand(sg,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,sg)
+		end
+	end
+end
+function c22020100.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xff9)
+end
+function c22020100.actcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c22020100.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c22020100.thfilter(c)
+	return c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c.effect_with_altria
+end
+function c22020100.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22020100.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c22020100.activate1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c22020100.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

expansions/script/c22020110.lua

+--人理之诗 转身火生三昧
+function c22020110.initial_effect(c)
+	aux.AddCodeList(c,22020010,22020120)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22020110,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,22020110+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(c22020110.cost0)
+	e1:SetTarget(c22020110.target)
+	e1:SetOperation(c22020110.activate)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(22020110,1))
+	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(c22020110.cost)
+	e2:SetCountLimit(1,22020110+EFFECT_COUNT_CODE_OATH)
+	e2:SetTarget(c22020110.destg)
+	e2:SetOperation(c22020110.desop)
+	c:RegisterEffect(e2)
+end
+function c22020110.cost0(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SelectOption(tp,aux.Stringid(22020110,3))
+end
+function c22020110.filter(c)
+	return c:IsFaceup() and c:IsAttackBelow(1800)
+end
+function c22020110.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22020110.filter,tp,0,LOCATION_MZONE,1,nil) end
+	local sg=Duel.GetMatchingGroup(c22020110.filter,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
+	Duel.SelectOption(tp,aux.Stringid(22020110,4))
+end
+function c22020110.activate(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(c22020110.filter,tp,0,LOCATION_MZONE,nil)
+	Duel.SelectOption(tp,aux.Stringid(22020110,5))
+	Duel.Destroy(sg,REASON_EFFECT)
+end
+function c22020110.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+	Duel.SelectOption(tp,aux.Stringid(22020110,7))
+end
+function c22020110.spfilter(c,e,tp)
+	return c:IsCode(22020120) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c22020110.desop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+	if g:GetCount()>0 then
+		Duel.SelectOption(tp,aux.Stringid(22020110,8))
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+	local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c22020110.spfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
+	if sg:GetCount()~=0 and Duel.SelectYesNo(tp,aux.Stringid(22020110,2)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sp=sg:Select(tp,1,1,nil)
+		Duel.SpecialSummon(sp,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c22020110.cfilter(c,tp)
+	return c:IsFaceup() and c:IsCode(22020010) and Duel.GetMZoneCount(tp,c)>0
+end
+function c22020110.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,c22020110.cfilter,1,nil,tp) end
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,c22020110.cfilter,1,1,nil,tp)
+	Duel.SelectOption(tp,aux.Stringid(22020110,6))
+	Duel.Release(g,REASON_COST)
+end
\ No newline at end of file