fix 0004#15 qp act

expansions/script/c4204015.lua

@@ -8,7 +8,8 @@ function cm.initial_effect(c)
 		.e("SetType",EFFECT_TYPE_ACTIVATE)		
 		.e("SetCode",EVENT_FREE_CHAIN)
 		.e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
-			if chk==0 then return Duel.IsExistingMatchingCard(cm.dishdfilter,tp,LOCATION_HAND,0,1,nil)  end
+			local c = e:GetHandler()
+			if chk==0 then return Duel.IsExistingMatchingCard(cm.dishdfilter,tp,LOCATION_HAND,0,1,c)  end
 			Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 			if Duel.IsExistingMatchingCard(function(c) return c:IsCode(4204000) end,tp,LOCATION_ONFIELD,0,1,nil) then
 			else
@@ -29,12 +30,12 @@ function cm.initial_effect(c)
 			if Duel.IsExistingMatchingCard(function(c) return c:IsCode(4204000) end,tp,LOCATION_ONFIELD,0,1,nil) then
 				local e1=Effect.CreateEffect(e:GetHandler())
 				e1:SetType(EFFECT_TYPE_FIELD)
-				e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+				e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
 				e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
 				e1:SetTargetRange(LOCATION_SZONE,0)
 				e1:SetCountLimit(7)
 				e1:SetTarget(function(e,c)
-					return c:GetType()==TYPE_QUICKPLAY
+					return c:IsType(TYPE_QUICKPLAY)
 				end)
 				e1:SetReset(RESET_PHASE+PHASE_END)
 				Duel.RegisterEffect(e1,tp)