fix

expansions/script/c53722009.lua

@@ -24,7 +24,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
 	Duel.Hint(HINT_CARD,0,m)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,function(c,e,tp)return c:IsSetCard(0x3531) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)end,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,cm.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)
 	end

expansions/script/c91060008.lua

@@ -4,7 +4,7 @@ local cm=c91060008
 function c91060008.initial_effect(c)
 	aux.EnableChangeCode(c,95440946,LOCATION_MZONE+LOCATION_GRAVE)
 	c:EnableReviveLimit()
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_ZOMBIE),3,99,cm.lcheck)
+	aux.AddLinkProcedure(c,cm.lcheck,3)
 	 local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))
 	e2:SetType(EFFECT_TYPE_QUICK_O)
@@ -26,8 +26,8 @@ function c91060008.initial_effect(c)
 	e2:SetOperation(cm.activate2)
 	c:RegisterEffect(e2)
 end
-function cm.lcheck(g)
-	return g:IsExists(Card.IsLinkSetCard,1,nil,0x1142)
+function cm.lcheck(c)
+	return c:IsSetCard(0x1142) or c:IsSetCard(0x143)  or c:IsSetCard(0x2142)
 end
 function cm.filter(c)
 	return c:IsSetCard(0x143) and c:IsSSetable() and c:IsType(TYPE_SPELL+TYPE_TRAP)
@@ -64,7 +64,31 @@ function cm.activate2(e,tp,eg,ep,ev,re,r,rp)
 		return
 	end
 	Duel.ConfirmCards(tp,tc)
-	if tc:IsType(TYPE_TRAP+TYPE_SPELL) then
+	if tc:IsType(TYPE_TRAP) and tc:IsType(TYPE_CONTINUOUS) and tc:IsSetCard(0x143) then
+	local code=tc:GetOriginalCode()
+		local g=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0xff,0,nil,code)
+		local te=tc:CheckActivateEffect(true,true,false)
+		local op=te:GetOperation()
+		for hc in aux.Next(g) do
+			local pro1,pro2=te:GetProperty()
+			local e1=te:Clone()
+			e1:SetProperty(pro1|EFFECT_FLAG_SET_AVAILABLE,pro2)
+			e1:SetCountLimit(1,code+321+EFFECT_COUNT_CODE_OATH)
+			e1:SetOperation(function(ce,ctp,ceg,cep,cev,cre,cr,crp)
+							op(ce,ctp,ceg,cep,cev,cre,cr,crp) 
+							e1:Reset()
+							end)
+			hc:RegisterEffect(e1)
+		end
+		Duel.AdjustAll()
+	Debug.Message("服务器中暂时无法直接发动「黄金乡」永续陷阱卡，改为增加1次发动次数，并且可以在覆盖的回合发动")
+	  local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+			e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+	elseif tc:IsType(TYPE_TRAP+TYPE_SPELL) and not  tc:IsSetCard(0x143) then
 		local te=tc:GetActivateEffect()
 		local tep=tc:GetControler()
 		if not te then