fix

expansions/script/c65133110.lua

 --幻叙 深度幻梦
+CATEGORY_MSET=0x100000000	--包含盖放怪兽效果
+CATEGORY_SSET=0x200000000	--包含盖放魔陷效果
 local s,id,o=GetID()
 function s.initial_effect(c)
 	--Activate
@@ -13,7 +15,7 @@ function s.initial_effect(c)
 	--sset
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
-	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetCategory(CATEGORY_SSET)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)

expansions/script/c65133150.lua

 --幻叙的大总理 将军
+CATEGORY_MSET=0x100000000	--包含盖放怪兽效果
+CATEGORY_SSET=0x200000000	--包含盖放魔陷效果
 local s,id,o=GetID()
 function s.initial_effect(c)
 	aux.AddCodeList(c,65133150)
@@ -56,7 +58,7 @@ function s.initial_effect(c)
 	c:RegisterEffect(e6)
 	--Set S/T cards
 	local e7=Effect.CreateEffect(c)
-	e7:SetCategory(CATEGORY_LEAVE_GRAVE)
+	e7:SetCategory(CATEGORY_SSET)
 	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e7:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e7:SetTarget(s.settg)
@@ -105,7 +107,7 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp)
 	local ct=3
 	if Duel.GetLocationCount(tp,LOCATION_SZONE)<3 then ct=Duel.GetLocationCount(tp,LOCATION_SZONE) end
 	if ct<=0 then return end
-	local g=Duel.GetMatchingGroup(s.setfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,id)
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.setfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,id)
 	if #g==0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
 	local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,3)

expansions/script/c65133228.lua

 --幻叙骑援「正义号」
+CATEGORY_MSET=0x100000000	--包含盖放怪兽效果
+CATEGORY_SSET=0x200000000	--包含盖放魔陷效果
 local s,id,o=GetID()
 function s.initial_effect(c)
 	--Activate
@@ -20,7 +22,7 @@ function s.initial_effect(c)
 	--Turn to set & Destroy
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
-	e1:SetCategory(CATEGORY_POSITION+CATEGORY_DESTROY)
+	e1:SetCategory(CATEGORY_POSITION+CATEGORY_DESTROY+CATEGORY_MSET)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_BE_BATTLE_TARGET)
 	e1:SetRange(LOCATION_SZONE)

expansions/script/c65133248.lua

 --幻叙幻现武装-“镇虎”空气压缩炮
+CATEGORY_MSET=0x100000000	--包含盖放怪兽效果
+CATEGORY_SSET=0x200000000	--包含盖放魔陷效果
 local s,id,o=GetID()
 function s.initial_effect(c)
 	aux.AddCodeList(c,id)
@@ -22,7 +24,7 @@ function s.initial_effect(c)
 	--Place Token
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
-	e2:SetCategory(CATEGORY_TOKEN)
+	e2:SetCategory(CATEGORY_TOKEN+CATEGORY_MSET)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCountLimit(1,id)

expansions/script/c65133254.lua

@@ -22,6 +22,7 @@ function s.initial_effect(c)
 	--Set S/T
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_SSET)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_MZONE)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)

expansions/script/c65133256.lua

@@ -46,7 +46,7 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	b[3]=true
 	b[4]=Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 	b[5]=true 
-	if chk==0 then return true end	
+	if chk==0 then return true end  
 	local ct=1
 	if Duel.IsExistingMatchingCard(s.cfilter2,tp,LOCATION_MZONE,0,1,nil) then
 		ct=3
@@ -70,6 +70,8 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 				Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK+LOCATION_REMOVED)
 			elseif op==4 then
 				Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+			elseif op==5 then
+				e:SetCategory(CATEGORY_SSET)
 			end
 		end
 		if not (b[1] or b[2] or b[3] or b[4] or b[5]) or num==ct or not Duel.SelectYesNo(tp,aux.Stringid(id,7)) then

expansions/script/c91300058.lua

@@ -76,7 +76,7 @@ function s.confilter(c)
 end
 function s.con1(e)
 	local tp=e:GetHandlerPlayer()
-	return e:GetHandler():IsExtraLinkState() and Duel.IsExistingMatchingCard(s,confilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil)
+	return e:GetHandler():IsExtraLinkState() and Duel.IsExistingMatchingCard(s.confilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil)
 end
 function s.con2(e,tp,eg,ep,ev,re,r,rp)
 	local tp=e:GetHandlerPlayer()

expansions/script/special.lua

@@ -240,6 +240,8 @@ function Auxiliary.PreloadUds()
 		if e:IsHasType(EFFECT_TYPE_SINGLE) and e:IsHasType(EFFECT_TYPE_TRIGGER_O) and e:GetCode()==EVENT_TO_DECK and not c:IsExtraDeckMonster() then
 			e:SetType(EFFECT_TYPE_QUICK_O)
 			e:SetRange(LOCATION_DECK)
+			local prop,prop2=e:GetProperty()
+			e:SetProperty(prop|(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL),prop2)
 			local con=e:GetCondition() or aux.TRUE
 			e:SetCondition(function(e,tp,eg,...) return eg:IsContains(e:GetHandler()) and con(e,tp,eg,...) end)
 		end