update 251027 wd

expansions/lflist.conf

@@ -7126,6 +7126,8 @@
 71688208 0
 22024690 0
 71688492 0
+7419750 0
+7473898 0
 #limit
 33403513 1
 82204250 0

expansions/script/c134079868.lua

@@ -2,16 +2,11 @@
 local s,id,o=GetID()
 function s.initial_effect(c)
 	aux.EnablePendulumAttribute(c)
-	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(s.splimit)
-	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_PZONE)
+	e2:SetCountLimit(1,id)
 	e2:SetTarget(s.sptg)
 	e2:SetOperation(s.spop)
 	c:RegisterEffect(e2)
@@ -21,7 +16,6 @@ function s.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_QUICK_O)
 	e3:SetCode(EVENT_FREE_CHAIN)
 	e3:SetRange(LOCATION_HAND)
-	e3:SetCountLimit(1,id)
 	e3:SetCost(s.descost)
 	e3:SetTarget(s.destg)
 	e3:SetOperation(s.desop)
@@ -31,18 +25,27 @@ function s.initial_effect(c)
 	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e5:SetProperty(EFFECT_FLAG_DELAY)
 	e5:SetCode(EVENT_DESTROYED)
+	e5:SetCountLimit(1,id+1)
 	e5:SetTarget(s.sptg2)
 	e5:SetOperation(s.spop2)
 	c:RegisterEffect(e5)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,id+2)
+	e1:SetOperation(s.regop)
+	c:RegisterEffect(e1)
 end
 function s.splimit(e,se,sp,st)
 	return se:IsHasType(EFFECT_TYPE_ACTIONS)
 end
 function s.spfilter(c,e,tp)
-	return c:IsSetCard(0xc7) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+	return c:IsSetCard(0xc7) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDestructable() and Duel.GetMZoneCount(tp)>0 and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	if chk==0 then return Duel.GetMZoneCount(tp)>0 and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
@@ -52,21 +55,22 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
 		if g:GetCount()>0 then
-			Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 		end
 	end
 end
 function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return not e:GetHandler():IsPublic() end
+	if chk==0 then return not Duel.GetFlagEffectLabel(tp,id) end
+	Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,2)
 end
 function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
-	local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function s.desop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
 	if #g>0 then
 		Duel.HintSelection(g)
 		Duel.Destroy(g,REASON_EFFECT)
@@ -81,7 +85,34 @@ function s.spop2(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
 		if g:GetCount()>0 then
-			Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 		end
 	end
 end
+function s.regop(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:SetCountLimit(1)
+	e1:SetCondition(s.thcon)
+	e1:SetOperation(s.thop)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function s.thfilter(c)
+	return c:IsFaceup() and c:IsAbleToDeck()
+end
+function s.gcheck(g)
+	return g:IsExists(Card.IsSetCard,1,nil,0xc7)
+end
+function s.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetMatchingGroup(s.thfilter,tp,LOCATION_EXTRA,0,nil):CheckSubGroup(s.gcheck,5,5)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,id)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local tg=Duel.GetMatchingGroup(s.thfilter,tp,LOCATION_EXTRA,0,nil):SelectSubGroup(tp,s.gcheck,false,5,5)
+	Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	Duel.BreakEffect()
+	Duel.Draw(tp,1,REASON_EFFECT)
+end

expansions/script/c7419750.lua

+--玉莲帮
+local m=7419750
+local cm=_G["c"..m]
+function cm.Qingyu(c)
+	local m=_G["c"..c:GetCode()]
+	return (m and m.named_with_Qingyu) or c:IsCode(7419700)
+end
+
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(cm.splimit)
+	c:RegisterEffect(e1)
+	--adjust
+	local e01=Effect.CreateEffect(c)
+	e01:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e01:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e01:SetCode(EVENT_ADJUST)
+	e01:SetRange(0xff)
+	e01:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
+	e01:SetOperation(cm.adjustop)
+	c:RegisterEffect(e01)
+end
+function cm.splimit(e,se,sp,st)
+	return bit.band(st,SUMMON_TYPE_LINK)==0 
+end
+function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
+	--
+	if not cm.global_effect then
+		cm.global_effect=true
+		local c=e:GetHandler()
+		Duel.ConfirmCards(0,c)
+		Duel.Hint(HINT_CARD,0,m)
+		local atkc=Duel.GetRegistryValue("Jade_Lotus_Match_Count")
+		if atkc then
+			local atkc=tonumber(Duel.GetRegistryValue("Jade_Lotus_Match_Count"))
+			if atkc>0 then
+				for i=0,atkc do
+					Duel.RegisterFlagEffect(tp,7419700,0,0,1)
+					local e2=Effect.CreateEffect(c)
+					e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+					e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+					e2:SetOperation(cm.sucop)
+					Duel.RegisterEffect(e2,tp)
+				end
+			end
+		else
+			Duel.SetRegistryValue("Jade_Lotus_Match_Count",0)
+		end
+		local DRegisterFlagEffect=Duel.RegisterFlagEffect
+		Duel.RegisterFlagEffect=function(pl,code,reset_flag,property,reset_count,label)
+			if code==7419700 then
+				local atkc=tonumber(Duel.GetRegistryValue("Jade_Lotus_Match_Count"))+1
+				Duel.SetRegistryValue("Jade_Lotus_Match_Count",atkc)
+			end
+			local val=Duel.GetFlagEffect(pl,7419700)
+			return DRegisterFlagEffect(pl,code,reset_flag,property,reset_count,label)
+		end
+	end
+	e:Reset()
+end
+function cm.sucfilter(c,tp)
+	return c:IsCode(7419700)
+end
+function cm.sucop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=eg:Filter(cm.sucfilter,nil,tp)
+	if tg:GetCount()>0 then
+		local tc=tg:GetFirst()
+		while tc do
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_SET_BASE_ATTACK)
+			e1:SetValue(tc:GetBaseAttack()+500)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+			local e2=e1:Clone()
+			e2:SetCode(EFFECT_SET_BASE_DEFENSE)
+			e2:SetValue(tc:GetBaseDefense()+500)
+			tc:RegisterEffect(e2)
+			local e3=e1:Clone()
+			e3:SetCode(EFFECT_UPDATE_LEVEL)
+			e3:SetValue(1)
+			tc:RegisterEffect(e3)
+			tc=tg:GetNext()
+		end
+	end
+end