Merge branch '2023.01.08' into 'master'

2023.01.08

See merge request !4

expansions/lflist.conf

@@ -1513,6 +1513,8 @@
 60152803 0 --素晴的飞檐走壁的盗贼
 60152811 1 --素晴的惠惠好友
 60153101 0 --甜食派对 百江渚
+60153104 0 --淘气精灵 百江渚
+60153105 0 --梦游亡灵 百江渚
 60159907 0 --极夜的龙骑士
 60159912 1 --连锁束缚
 60159914 0 --地狱使者比尔姬
@@ -1621,6 +1623,8 @@
 65011004 0 --时终夜的坠落者
 #665
 66510022 1 --铁血工造 侦察者
+#666
+66660010 0 --幻星集 命运之轮
 #669
 66911000 0 --寒灵刻使 雾水
 66912000 1 --Unicorn Gundam
@@ -1641,6 +1645,7 @@
 67200610 1 --征冥天的灰羽姬
 67210102 0 --夏乡追忆 伊甸逐梦
 67210104 0 --夏乡追忆 初遇花田
+67220003 0 --忘却之剑
 #696
 69601003 0 --算命蟾蜍
 69696005 0 --钟馗大神
@@ -1666,6 +1671,7 @@
 71401001 0 --蝶现-「启」
 71401008 0 --蝶幻-「胧」
 71401009 0 --蝶蚀-「巡」
+71402004 0 --风来之国的旅者 约翰与珊
 #724
 72404123 1 --大庭院的慈萼 邦巴妮亚
 72404127 1 --大庭院的蝶舞 佩露露
@@ -1797,6 +1803,10 @@
 81902063 0 --TC.62 空想之上的人格保持者 古明地恋
 #854
 85402300 0 --栞
+#888
+88888244 0 --轮回崩坏 梅比乌斯
+88888255 0 --妖相百斩 SP洪荒无极
+88888277 0 --GOD•无冕之王
 #889
 88946426 1 --折幸 智语
 #923

expansions/script/c20000050.lua

---藏于心之Chein
-function c20000050.initial_effect(c)
+--幻梦帝无亘龙
+local cm,m,o=GetID()
+function cm.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCost(c20000050.co1)
-	e1:SetTarget(c20000050.tg1)
-	e1:SetOperation(c20000050.op1)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.FALSE)
 	c:RegisterEffect(e1)
-
-	if not c20000050.global_check then
-		c20000050.global_check=true
-		c20000050[0]=9
-		local ge1=Effect.CreateEffect(c)
-		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		ge1:SetCode(EVENT_CHAINING)
-		ge1:SetOperation(c20000050.checkop)
-		Duel.RegisterEffect(ge1,0)
-	end
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(cm.con2)
+	e2:SetOperation(cm.op2)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetValue(cm.val3)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1)
+	e4:SetCondition(cm.con4)
+	e4:SetOperation(cm.op4)
+	c:RegisterEffect(e4)
 end
-function c20000050.checkop(e,tp,eg,ep,ev,re,r,rp)
-		c20000050[0] = c20000050[0] + 1
+--e2
+function cm.con2(e,tp)
+	return (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and e:GetHandler():IsSummonable(true,nil,1)
 end
-function c20000050.co1(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.opf2(g,rc,minc,maxc)
+	return Duel.CheckTribute(rc,minc,maxc,g) and (g:GetCount()==minc or g:GetCount()==maxc)
+end
+function cm.op2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if chk==0 then return c:IsAbleToDeckAsCost() and not c:IsPublic() end
-	Duel.SendtoDeck(c,tp,1,REASON_COST)
+	local g=Duel.GetTributeGroup(c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	g=g:SelectSubGroup(tp,cm.opf2,true,1,#g,c,c:GetTributeRequirement())
+	if not g then return end
+	g:KeepAlive()
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SUMMON_PROC)
+	e1:SetLabelObject(g)
+	e1:SetOperation(function (ce,ctp,ceg,cep,cev,cre,cr,crp,cc)
+						cc:SetMaterial(g)
+						Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+						e1:Reset()
+					end)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	Duel.Summon(tp,c,true,e1,0)
 end
-function c20000050.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(2)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+--e3
+function cm.val3(e,te)
+	return te:GetOwner():IsType(TYPE_MONSTER) and te:GetOwner():IsLevelBelow(5) and te:GetOwner():IsLevelAbove(1)
 end
-function c20000050.optg1(c)
-	return c:IsCode(20000050)
+--e4
+function cm.con4(e)
+	return Duel.GetTurnPlayer()==e:GetHandlerPlayer()
 end
-function c20000050.op1(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)
-	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
-	local g=c20000050[0]
-	Duel.ConfirmDecktop(tp,g)
-	local g1=Duel.GetDecktopGroup(tp,g)
-	local ct=g1:FilterCount(Card.IsCode,c20000050.optg1,20000050)
-	if ct~=0 then
-		Duel.SetLP(tp,0)
-	end
+function cm.op4(e,tp,eg,ep,ev,re,r,rp)
+	local n=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_EXTRA_ATTACK)
+	e1:SetValue(n-1)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
+	e:GetHandler():RegisterEffect(e1)
 end
\ No newline at end of file

expansions/script/c35700412.lua

@@ -9,27 +9,44 @@ function cm.initial_effect(c)
 	--cannot special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_DECK+LOCATION_HAND)
 	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
 	c:RegisterEffect(e1)
-	--summon with s/t
+	--summon with 3 tribute
 	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
 	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e4:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e4:SetTargetRange(LOCATION_HAND,0)
-	e4:SetTarget(cm.refilter)
-	e4:SetValue(POS_FACEUP_ATTACK)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e4:SetCondition(cm.ttcon)
+	e4:SetOperation(cm.ttop)
+	e4:SetValue(SUMMON_TYPE_ADVANCE)
 	c:RegisterEffect(e4)
-	--tribute limit
+	local e5=e4:Clone()
+	e5:SetCode(EFFECT_LIMIT_SET_PROC)
+	c:RegisterEffect(e5)
+	--
+	mh.hunters(c,m)
+	mh.lives(c,m,2)
+	mh.battle(c,m,800)
+	--indes
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_TRIBUTE_LIMIT)
-	e2:SetValue(cm.tlimit)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(mh.ctcon)
+	e2:SetValue(cm.efilter)
 	c:RegisterEffect(e2)
-	mh.hunters(c,m)
-	mh.lives(c,m,3)
-	mh.battle(c,m,800)
+	--cannot remove
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_SINGLE)
+	e6:SetCode(EFFECT_CANNOT_REMOVE)
+	e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetCondition(mh.ctcon)
+	e6:SetValue(cm.rmlimit)
+	--c:RegisterEffect(e6)
 	--atk
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(m,1))
@@ -41,33 +58,48 @@ function cm.initial_effect(c)
 	e3:SetOperation(cm.atkop)
 	c:RegisterEffect(e3)
 end
-function cm.refilter(e,c)
-	return c:IsSetCard(0x5b76) and c:IsType(TYPE_MONSTER) and c~=e:GetHandler()
+--summon 
+function cm.cfilter(c,ct)
+	return c:IsCode(35700410) and c:IsReleasable() and (ct>0 or c:IsLocation(LOCATION_MZONE))
+end
+function cm.ttcon(e,c,minc)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	return minc<=1 and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,c,ct)
 end
-function cm.tlimit(e,c)
-	return not c:IsSetCard(0x5b76)
+function cm.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,c,ct)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+--indes 
+function cm.efilter(e,re)
+	return re:GetHandler():IsType(TYPE_SPELL)
+end
+--cannot remove 
+function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetCounter(0xb76)>0 and re and re:GetHandler():IsType(TYPE_MONSTER+TYPE_SPELL)
+end
+function cm.rmlimit(e,re)
+	return re:IsActiveType(TYPE_MONSTER+TYPE_SPELL)
 end
 --atk
 function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local bc=c:GetBattleTarget()
-	if not bc then return bc end
-	if not bc:IsLocation(LOCATION_MZONE) then
-		return (bc:IsPosition(POS_ATTACK) and bc:GetPreviousAttackOnField()>c:GetAttack()) 
-			or (bc:IsPosition(POS_DEFENSE) and bc:GetPreviousDefenseOnField()>c:GetAttack())
-	end
-	return (bc:IsPosition(POS_ATTACK) and bc:GetAttack()>c:GetAttack())
-		or (bc:IsPosition(POS_DEFENSE) and bc:GetDefense()>c:GetAttack())
+	e:SetLabelObject(bc)
+	return c==Duel.GetAttacker() and aux.dsercon(e)
+		and bc and c:IsStatus(STATUS_OPPO_BATTLE) and bc:IsOnField() and bc:IsRelateToBattle()
 end
 function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local bc=c:GetBattleTarget()
-	if chk==0 then return c:IsStatus(STATUS_OPPO_BATTLE) and bc~=nil and c:GetCounter(0xb76)>0 end
+	if chk==0 then return c:GetCounter(0xb76)>0 end
 end
 function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local bc=c:GetBattleTarget()
-	local bc=e:GetHandler():GetBattleTarget()
+	local bc=e:GetLabelObject()
 	if bc:IsRelateToBattle() then
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c35700413.lua

@@ -11,7 +11,6 @@ function cm.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,m+m)
 	e2:SetCondition(cm.condition)
 	e2:SetCost(cm.cost)
 	e2:SetTarget(cm.target)
@@ -29,33 +28,35 @@ function cm.setfilter(c)
 	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) 
-		or Duel.IsExistingMatchingCard(cm.setfilter,tp,0,LOCATION_GRAVE,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
 end
 function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	local a=Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) 
-	local b=Duel.IsExistingMatchingCard(cm.setfilter,tp,0,LOCATION_GRAVE,1,nil)
-	local op=-1
-	if a and b then op=Duel.SelectOption(tp,aux.Stringid(m,2),aux.Stringid(m,3))
-	elseif a then op=Duel.SelectOption(tp,aux.Stringid(m,2))
-	elseif b then op=Duel.SelectOption(tp,aux.Stringid(m,3))+1
-	else return end
-	if op==0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
-		local tc=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil):GetFirst()
-		if tc then
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_CANNOT_TRIGGER)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e1)
-		end
-	end
-	if op==1 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-		local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.setfilter),tp,0,LOCATION_GRAVE,1,1,nil):GetFirst()
-		if tc then
-			 Duel.SSet(tp,tc)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+	local tc=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil):GetFirst()
+	if tc then
+		local c=e:GetHandler()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CANNOT_TRIGGER)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		if tc:IsType(TYPE_MONSTER) then
+			local e3=Effect.CreateEffect(c)
+			e3:SetType(EFFECT_TYPE_SINGLE)
+			e3:SetCode(EFFECT_UPDATE_ATTACK)
+			e3:SetValue(-500)
+			e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e3)
+			local e2=e1:Clone()
+			e2:SetCode(EFFECT_UPDATE_DEFENSE)
+			tc:RegisterEffect(e2)
+			--cannot announce
+			local e8=Effect.CreateEffect(c)
+			e8:SetType(EFFECT_TYPE_SINGLE)
+			e8:SetRange(LOCATION_MZONE)
+			e8:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+			e8:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e8)
 		end
 	end
 end

expansions/script/c35700414.lua

@@ -25,21 +25,16 @@ function cm.setfilter(c)
 	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) 
-		or Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end
 end
 function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	local a=Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil)
-	local b=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0
-	local op=-1
-	if a and b then op=Duel.SelectOption(tp,aux.Stringid(m,2),aux.Stringid(m,3))
-	elseif a then op=Duel.SelectOption(tp,aux.Stringid(m,2))
-	elseif b then op=Duel.SelectOption(tp,aux.Stringid(m,3))+1
-	else return end
-	if op==0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-		local tc=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
-		if tc then
+	local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	if g:GetCount()>0 then
+		Duel.ConfirmCards(tp,g)
+		Duel.ShuffleHand(1-tp)
+		if Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+			local tc=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
 			local e1=Effect.CreateEffect(e:GetHandler())
 			e1:SetType(EFFECT_TYPE_SINGLE)
 			e1:SetCode(EFFECT_UPDATE_ATTACK)
@@ -51,9 +46,4 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			tc:RegisterEffect(e2)
 		end
 	end
-	if op==1 then
-		local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
-		Duel.ConfirmCards(tp,g)
-		Duel.ShuffleHand(1-tp)
-	end
 end
\ No newline at end of file