fix

expansions/script/c17337399.lua

@@ -2,14 +2,16 @@
 local s,id=GetID()
 function s.initial_effect(c)
 	aux.AddCodeList(c,17337400)
+
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_REMOVE)
 	e1:SetRange(LOCATION_FZONE)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetTargetRange(0,1)
+	e1:SetTargetRange(0,1)  
 	e1:SetTarget(s.rmlimit)
 	c:RegisterEffect(e1)
+
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
@@ -25,7 +27,7 @@ end
 
 function s.rmlimit(e,c,rp,r,re)
 	local tp=e:GetHandlerPlayer()
-	return c:IsControler(1-tp) and c:IsLocation(LOCATION_GRAVE) and re:GetOwnerPlayer()~=tp
+	return c:IsControler(tp) and c:IsLocation(LOCATION_GRAVE) and re:GetOwnerPlayer()~=tp
 end
 
 function s.spcon(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c17337411.lua

@@ -58,7 +58,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 
 	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
 		if tc and tc:IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
-			Duel.Destroy(tc,REASON_EFFECT)
+			Duel.SendtoHand(tc,nil,REASON_EFFECT)
 		end
 
 		local e1=Effect.CreateEffect(c)

expansions/script/c17337428.lua

@@ -23,24 +23,29 @@ function s.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e2:SetCode(EFFECT_DESTROY_REPLACE)
 	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,id+o)
+	e2:SetCountLimit(1,id+1)
 	e2:SetTarget(s.reptg)
 	e2:SetValue(s.repval)
 	e2:SetOperation(s.repop)
 	c:RegisterEffect(e2)
 end
+
 function s.cfilter(c)
 	return c:IsFaceup() and c:IsCode(17337426)
 end
+
 function s.handcon(e)
 	return Duel.IsExistingMatchingCard(s.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
 end
+
 function s.condition2(c)
 	return c:IsFaceup() and c:IsSetCard(0x3f50)
 end
+
 function s.condition(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.IsExistingMatchingCard(s.condition2,tp,LOCATION_MZONE,0,1,nil)
 end
+
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,0,nil)
@@ -49,48 +54,76 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,0,nil)
 	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
 end
+
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,0,nil)
 	if #g>0 then
 		Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
 		Duel.BreakEffect()
+
 		local g2=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil)
 		if #g2>0 then
 			Duel.ChangePosition(g2,POS_FACEUP_ATTACK)
-			local colset={}
-			local g3=Duel.GetMatchingGroup(s.condition2,tp,LOCATION_MZONE,0,nil)
-			for tc in aux.Next(g3) do
-				local seq=tc:GetSequence()
-				colset[seq]=true
+		end
+
+		local g3=Duel.GetMatchingGroup(s.condition2,tp,LOCATION_MZONE,0,nil)
+		local dg=Group.CreateGroup()
+
+		local colset={}
+		for tc in aux.Next(g3) do
+			local seq=tc:GetSequence()
+			if tc:IsLocation(LOCATION_MZONE) then
+				if seq==5 then 
+					colset[3]=true
+				elseif seq==6 then 
+					colset[1]=true
+				elseif seq>=0 and seq<=4 then 
+					colset[seq]=true
+				end
 			end
-			local dg=Group.CreateGroup()
-			for i=0,4 do
-				if colset[i] then
-					local dg1=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
-					for tc in aux.Next(dg1) do
-						if tc:GetSequence()==i then
-							dg:AddCard(tc)
-						end
+		end
+
+		for i=0,4 do
+			if colset[i] then
+				local oc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i)
+				if oc then
+					dg:AddCard(oc)
+				end
+
+				if i==3 then 
+					local oc_ex=Duel.GetFieldCard(1-tp,LOCATION_MZONE,6)
+					if oc_ex then
+						dg:AddCard(oc_ex)
+					end
+				elseif i==1 then 
+					local oc_ex=Duel.GetFieldCard(1-tp,LOCATION_MZONE,5)
+					if oc_ex then
+						dg:AddCard(oc_ex)
 					end
 				end
 			end
-			if #dg>0 then
-				Duel.Destroy(dg,REASON_EFFECT)
-			end
+		end
+		
+		if #dg>0 then
+			Duel.Destroy(dg,REASON_EFFECT)
 		end
 	end
 end
+
 function s.repfilter(c,tp)
 	return c:IsFaceup() and c:IsSetCard(0x3f50) and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)
 		and c:IsReason(REASON_BATTLE)
 end
+
 function s.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(s.repfilter,1,nil,tp) end
 	return Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(id,2))
 end
+
 function s.repval(e,c)
 	return s.repfilter(c,e:GetHandlerPlayer())
 end
+
 function s.repop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
 end
\ No newline at end of file

expansions/script/c17337430.lua

@@ -2,7 +2,6 @@
 local s,id=GetID()
 function s.initial_effect(c)
 	aux.AddCodeList(c,17337400)
-
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
@@ -75,15 +74,19 @@ end
 
 function s.chainop(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e1:SetTargetRange(0,1)
-	e1:SetValue(s.aclimit)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetOperation(s.chainop2)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
 end
 
-function s.aclimit(e,re,tp)
-	return re:GetHandler():IsSetCard(0x3f50) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+function s.chainop2(e,tp,eg,ep,ev,re,r,rp)
+	if re:GetHandler():IsSetCard(0x3f50) and ep==tp then
+		Duel.SetChainLimit(s.chainlm)
+	end
+end
+
+function s.chainlm(e,rp,tp)
+	return tp==rp or tp~=e:GetHandlerPlayer()
 end
\ No newline at end of file

expansions/script/c17337500.lua

@@ -13,6 +13,7 @@ function s.initial_effect(c)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,id)
 	e1:SetCondition(s.negcon)
+	e1:SetCost(s.negcost)
 	e1:SetTarget(s.negtg)
 	e1:SetOperation(s.negop)
 	c:RegisterEffect(e1)
@@ -41,23 +42,30 @@ function s.tdfilter(c)
 	return c:IsAbleToDeck() and (c:IsSetCard(0x3f50) or aux.IsCodeListed(c,17337400))
 end
 
-function s.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
+function s.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,s.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	if #g>0 then
+		local tc=g:GetFirst()
+		e:SetLabelObject(tc) 
+		Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_COST)
+	end
+end
+
+function s.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)
-	local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE,0,nil)
-	if g:GetCount()>0 then
-		Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
+	local tc=e:GetLabelObject()
+	if tc and tc:IsCode(17337400) then
+		Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
 	end
 end
 
 function s.negop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,s.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	if #g==0 then return end
-	local tc=g:GetFirst()
-	if Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
-		if Duel.NegateActivation(ev) and tc:IsCode(17337400) and Duel.IsPlayerCanDraw(tp,1)
-			and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
+	if Duel.NegateActivation(ev) then
+		local tc=e:GetLabelObject()
+		if tc and tc:IsCode(17337400) and Duel.IsPlayerCanDraw(tp,1) then
 			Duel.BreakEffect()
 			Duel.Draw(tp,1,REASON_EFFECT)
 		end

expansions/script/c40020144.lua

@@ -33,7 +33,7 @@ function cm.initial_effect(c)
 	--special summon
 	local e4=Effect.CreateEffect(c)
 	e4:SetDescription(aux.Stringid(m,1))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+
 	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e4:SetProperty(EFFECT_FLAG_DELAY)
 	e4:SetCode(EVENT_MOVE)
@@ -63,7 +63,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0)
 end
 function cm.xyzfilter(c,mg)
-	return c:IsXyzSummonable(mg,2,2) and c:IsSetCard(0x10db)
+	return c:IsXyzSummonable(mg,2,2) and c:IsAttribute(ATTRIBUTE_DARK)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

expansions/script/c40020649.lua

@@ -20,7 +20,7 @@ function s.initial_effect(c)
 
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,0))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_DECKDES) 
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON) 
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_HAND+LOCATION_EXTRA) 
@@ -44,23 +44,23 @@ function s.indct(e,re,r,rp)
 	else return 0 end
 end
 
+function s.ymtcheck(tp)
+	return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_PZONE,0,1,nil,40020585) or
+		   Duel.IsExistingMatchingCard(aux.FilterBoolFunction(Card.IsCode,40020585),tp,LOCATION_EXTRA,0,1,nil)
+end
+
 function s.sccon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-
 	local ph=Duel.GetCurrentPhase()
+	
 	local b1 = (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE and Duel.GetTurnPlayer()==tp)
 	local b2 = ((ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and Duel.GetTurnPlayer()==1-tp)
 	if not (b1 or b2) then return false end
 	
-
 	if c:IsLocation(LOCATION_HAND) then
 		return true
 	elseif c:IsLocation(LOCATION_EXTRA) then
-
-		return c:IsFaceup() and (
-			Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_PZONE,0,1,nil,40020585) or
-			Duel.IsExistingMatchingCard(aux.FilterBoolFunction(Card.IsCode,40020585),tp,LOCATION_EXTRA,0,1,nil)
-		)
+		return c:IsFaceup() and s.ymtcheck(tp)
 	end
 	return false
 end
@@ -69,10 +69,15 @@ function s.mfilter(c)
 	return s.ForceFighter(c) and c:IsFaceup() and c:GetLevel()>0
 end
 
-function s.synchk(c,tc,tp,sc_card)
-	return sc_card:GetLevel() == c:GetLevel() + tc:GetLevel()
-		and s.ForceFighter(sc_card)
-		and sc_card:IsSynchroSummonable(nil, Group.FromCards(c,tc))
+function s.synchk_manual(sc,c,tc)
+
+	if not (s.ForceFighter(sc) and sc:IsType(TYPE_SYNCHRO)) then return false end
+
+	if sc:GetLevel() ~= c:GetLevel() + tc:GetLevel() then return false end
+
+	if tc:IsType(TYPE_TUNER) then return false end
+
+	return sc:IsCanBeSpecialSummoned(nil,SUMMON_TYPE_SYNCHRO,c:GetControler(),false,false)
 end
 
 function s.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
@@ -84,10 +89,8 @@ function s.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 			or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return false end
 
 		local mg=Duel.GetMatchingGroup(s.mfilter,tp,LOCATION_MZONE,0,nil)
-
 		for tc in aux.Next(mg) do
-
-			if Duel.IsExistingMatchingCard(s.synchk,tp,LOCATION_EXTRA,0,1,nil,c,tc,tp) then
+			if Duel.IsExistingMatchingCard(s.synchk_manual,tp,LOCATION_EXTRA,0,1,nil,c,tc) then
 				return true
 			end
 		end
@@ -96,6 +99,7 @@ function s.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
 	local g=Duel.SelectTarget(tp,s.mfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 	
@@ -113,13 +117,15 @@ function s.scop(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
 		if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsImmuneToEffect(e) then
 			local mg=Group.FromCards(c,tc)
-
-			local sc_g=Duel.GetMatchingGroup(s.synchk,tp,LOCATION_EXTRA,0,nil,c,tc,tp)
+			
+			local sc_g=Duel.GetMatchingGroup(function(sc)
+				return s.ForceFighter(sc) and sc:IsSynchroSummonable(nil,mg)
+			end,tp,LOCATION_EXTRA,0,nil)
 			
 			if sc_g:GetCount()>0 then
 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 				local sc=sc_g:Select(tp,1,1,nil):GetFirst()
-
+				
 				if e:GetLabel()==1 then
 					for mat in aux.Next(mg) do
 						local e_redirect=Effect.CreateEffect(c)
@@ -132,8 +138,9 @@ function s.scop(e,tp,eg,ep,ev,re,r,rp)
 					end
 				end
 				
+				-- 5. 进行同调召唤
 				Duel.SynchroSummon(tp,sc,nil,mg)
 			end
 		end
 	end
-end
+end
\ No newline at end of file

expansions/script/c40020651.lua

@@ -21,7 +21,7 @@ function s.initial_effect(c)
 
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_LVCHANGE)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
 	e2:SetCode(EVENT_SUMMON_SUCCESS)
@@ -96,7 +96,7 @@ function s.resop(e,tp,eg,ep,ev,re,r,rp)
 				e1:SetType(EFFECT_TYPE_SINGLE)
 				e1:SetCode(EFFECT_UPDATE_LEVEL)
 				e1:SetValue(-2)
-				e1:SetReset(RESET_EVENT+RESETS_STANDARD_DISABLE)
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
 				c:RegisterEffect(e1)
 			end
 		end