eme

expansions/script/c6700052.lua

@@ -36,31 +36,34 @@ function cm.initial_effect(c)
 	e3:SetOperation(cm.op2)
 	c:RegisterEffect(e3)
 end
-function cm.tgfilter(c)
+function cm.tgfilter1(c)
 	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x3940) and c:IsAbleToGrave()
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local g=Duel.GetMatchingGroup(cm.tgfilter,tp,LOCATION_DECK,0,nil)
+	local g=Duel.GetMatchingGroup(cm.tgfilter1,tp,LOCATION_DECK,0,nil)
 	if g:GetCount()>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 		local sg=g:Select(tp,1,1,nil)
 		Duel.SendtoGrave(sg,REASON_EFFECT)
 	end
 end
-function cm.cfilter(c)
+function cm.cfilter1(c)
 	return c:IsFaceup() and c:IsSetCard(0x3940)
 end
+function cm.cfilter2(c)
+	return c:IsFaceup() and c:IsSetCard(0x3940) and c:IsType(TYPE_MONSTER)
+end
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil)
+	return Duel.IsExistingMatchingCard(cm.cfilter1,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(cm.cfilter2,tp,LOCATION_GRAVE,0,1,nil)
 end
-function cm.tgfilter(c)
+function cm.tgfilter2(c)
 	return c:IsSetCard(0x940)
 end
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
+	local g=Duel.SelectMatchingCard(tp,cm.tgfilter2,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
 	Duel.SendtoGrave(g,REASON_COST)
 end
 function cm.thfilter1(c)