Refresh on 2024-12-15 12:04:42

script/c101208009.lua

---紋章獸 グリフィン
+--紋章獣グリフォン
 local s,id,o=GetID()
 function s.initial_effect(c)
 	local e0=Effect.CreateEffect(c)
@@ -25,7 +25,7 @@ function s.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e2:SetCode(81096431)
 	e2:SetValue(id)
-	e2:SetRange(LOCATION_MZONE)
+	e2:SetRange(0xff)
 	e2:SetTarget(s.sxyzfilter)
 	e2:SetCountLimit(1,id+o)
 	c:RegisterEffect(e2)
@@ -58,7 +58,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetTarget(s.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
-	--
+	--material limit
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
@@ -68,6 +68,14 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	e2:SetValue(1)
 	e2:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e2,tp)
+	--must material
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(67120578)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetTargetRange(1,0)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
 end
 function s.splimit(e,c,sump,sumtype,sumpos,targetp,se)
 	return c:IsLocation(LOCATION_EXTRA) and bit.band(sumtype,SUMMON_TYPE_XYZ)~=SUMMON_TYPE_XYZ
@@ -123,7 +131,7 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 					function Auxiliary.XyzLevelFreeOperationAlter(f,gf,minc,maxc,alterf,alterdesc,alterop)
 						return  function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
 									if og and not min then
-										if og:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
+										if og:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
 											local et=maxc-og:GetCount()
 											local exg=og:Filter(Card.IsHasEffect,nil,81096431,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)
@@ -154,12 +162,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 										Duel.Overlay(c,og)
 									else
 										local mg=e:GetLabelObject()
-										if mg:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
+										if mg:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
 											local et=maxc-mg:GetCount()
 											local exg=mg:Filter(Card.IsHasEffect,nil,81096431,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)
 											if et==0 or 2-et==ext then
-												for ttc in aux.Next(mg) do
+												for ttc in aux.Next(exg) do
 													local tte=ttc:IsHasEffect(81096431,tp)
 													tte:UseCountLimit(tp)
 												end
@@ -201,12 +209,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 					function Auxiliary.XyzLevelFreeOperation(f,gf,minct,maxct)
 						return  function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
 									if og and not min then
-										if og:GetCount()<=maxc and mg:GetCount()>=minct and maxc==minc+2 then
+										if og:GetCount()<maxct and og:GetCount()>=minct and maxct==minct+2 then
 											local et=maxct-og:GetCount()
 											local exg=og:Filter(Card.IsHasEffect,nil,81096431,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)
 											if et==0 or 2-et==ext then
-												for ttc in aux.Next(og) do
+												for ttc in aux.Next(exg) do
 													local tte=ttc:IsHasEffect(81096431,tp)
 													tte:UseCountLimit(tp)
 												end
@@ -232,7 +240,7 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 										Duel.Overlay(c,og)
 									else
 										local mg=e:GetLabelObject()
-										if mg:GetCount()<=maxct and mg:GetCount()>=minct and maxct==minct+2 then
+										if mg:GetCount()<maxct and mg:GetCount()>=minct and maxct==minct+2 then
 											local et=maxct-mg:GetCount()
 											local exg=mg:Filter(Card.IsHasEffect,nil,81096431,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)

script/c101208010.lua

---紋章獸 スタット・ホエール
+--紋章獣スタット・ホエール
 local s,id,o=GetID()
 function s.initial_effect(c)
 	--
@@ -53,7 +53,7 @@ function s.spfilter(c,e,tp)
 		and c:IsCanBeEffectTarget(e)
 end
 function s.fselect(g)
-	return aux.SameValueCheck(g,Card.GetCode)
+	return g:GetClassCount(Card.GetCode)==1
 end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local c=e:GetHandler()
@@ -76,7 +76,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetTarget(s.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
-	--
+	--material limit
 	local e2=Effect.CreateEffect(e:GetHandler())
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
@@ -86,6 +86,14 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	e2:SetValue(1)
 	e2:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e2,tp)
+	--must material
+	local e3=Effect.CreateEffect(e:GetHandler())
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(67120578)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetTargetRange(1,0)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
 	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 	if ft<=0 then return end
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(aux.NecroValleyFilter(Card.IsRelateToEffect),nil,e)

script/c101208045.lua

---No.69 紋章神コート·オスアームズーコッド·シャーター
+--No.69 紋章神コート・オブ・アームズ－ゴッド・シャーター
 local s,id,o=GetID()
 function s.initial_effect(c)
 	aux.AddCodeList(c,2407234,101208046)
@@ -25,6 +25,7 @@ function s.initial_effect(c)
 	e2:SetOperation(s.spop2)
 	c:RegisterEffect(e2)
 end
+aux.xyz_number[id]=69
 function s.ovfilter(c)
 	return c:IsFaceup() and c:IsOriginalCodeRule(2407234)
 end

script/c101208046.lua

---No.69 紋章神コート·オスアームズーコッド·レイジ
+--No.69 紋章神コート・オブ・アームズ－ゴッド・レイジ
 local s,id,o=GetID()
 function s.initial_effect(c)
 	--xyz summon
@@ -37,6 +37,7 @@ function s.initial_effect(c)
 	e4:SetOperation(s.disop)
 	c:RegisterEffect(e4)
 end
+aux.xyz_number[id]=69
 function s.codecost(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)
@@ -64,8 +65,8 @@ function s.codeop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function s.discon(e,tp,eg,ep,ev,re,r,rp)
-	local code,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
-	return rp==1-tp and (code==id+o or code2==id+o or re:GetHandler():IsCode(id+o))
+	if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end
+	return rp==1-tp and re:GetHandler():IsCode(id+o)
 end
 function s.disop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_CARD,0,id)

script/c191919191.lua

@@ -9,7 +9,6 @@ function s.initial_effect(c)
 	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(id,0))
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	e2:SetCode(EFFECT_SPSUMMON_PROC)
@@ -19,7 +18,6 @@ function s.initial_effect(c)
 	e2:SetOperation(s.sprop)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(id,1))
 	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e3:SetRange(LOCATION_MZONE)
 	e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
@@ -28,7 +26,7 @@ function s.initial_effect(c)
 	e3:SetOperation(s.atkop)
 	c:RegisterEffect(e3)
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(id,2))
+	e4:SetDescription(aux.Stringid(id,0))
 	e4:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
 	e4:SetType(EFFECT_TYPE_QUICK_O)
 	e4:SetCode(EVENT_CHAINING)
@@ -40,7 +38,7 @@ function s.initial_effect(c)
 	e4:SetOperation(s.disop)
 	c:RegisterEffect(e4)
 	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(id,3))
+	e5:SetDescription(aux.Stringid(id,1))
 	e5:SetCategory(CATEGORY_DISABLE)
 	e5:SetType(EFFECT_TYPE_QUICK_O)
 	e5:SetCode(EVENT_FREE_CHAIN)

script/c81096431.lua

@@ -26,7 +26,7 @@ function s.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e2:SetCode(id)
 	e2:SetValue(id)
-	e2:SetRange(LOCATION_MZONE)
+	e2:SetRange(0xff)
 	e2:SetTarget(s.sxyzfilter)
 	e2:SetCountLimit(1,id+o)
 	c:RegisterEffect(e2)
@@ -91,12 +91,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 					function Auxiliary.XyzLevelFreeOperationAlter(f,gf,minc,maxc,alterf,alterdesc,alterop)
 						return  function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
 									if og and not min then
-										if og:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
+										if og:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
 											local et=maxc-og:GetCount()
 											local exg=og:Filter(Card.IsHasEffect,nil,id,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)
 											if et==0 or 2-et==ext then
-												for ttc in aux.Next(og) do
+												for ttc in aux.Next(exg) do
 													local tte=ttc:IsHasEffect(id,tp)
 													tte:UseCountLimit(tp)
 												end
@@ -122,12 +122,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 										Duel.Overlay(c,og)
 									else
 										local mg=e:GetLabelObject()
-										if mg:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
+										if mg:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
 											local et=maxc-mg:GetCount()
 											local exg=mg:Filter(Card.IsHasEffect,nil,id,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)
 											if et==0 or 2-et==ext then
-												for ttc in aux.Next(mg) do
+												for ttc in aux.Next(exg) do
 													local tte=ttc:IsHasEffect(id,tp)
 													tte:UseCountLimit(tp)
 												end
@@ -169,12 +169,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 					function Auxiliary.XyzLevelFreeOperation(f,gf,minct,maxct)
 						return  function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
 									if og and not min then
-										if mg:GetCount()<=maxc and mg:GetCount()>=minct and maxc==minc+2 then
+										if mg:GetCount()<maxct and mg:GetCount()>=minct and maxct==minct+2 then
 											local et=maxct-mg:GetCount()
 											local exg=mg:Filter(Card.IsHasEffect,nil,id,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)
 											if et==0 or 2-et==ext then
-												for ttc in aux.Next(mg) do
+												for ttc in aux.Next(exg) do
 													local tte=ttc:IsHasEffect(id,tp)
 													tte:UseCountLimit(tp)
 												end
@@ -200,12 +200,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
 										Duel.Overlay(c,og)
 									else
 										local mg=e:GetLabelObject()
-										if mg:GetCount()<=maxct and mg:GetCount()>=minct and maxct==minct+2 then
+										if mg:GetCount()<maxct and mg:GetCount()>=minct and maxct==minct+2 then
 											local et=maxct-mg:GetCount()
 											local exg=mg:Filter(Card.IsHasEffect,nil,id,tp)
 											local ext=exg:GetClassCount(s.eftfilter,tp)
 											if et==0 or 2-et==ext then
-												for ttc in aux.Next(mg) do
+												for ttc in aux.Next(exg) do
 													local tte=ttc:IsHasEffect(id,tp)
 													tte:UseCountLimit(tp)
 												end