Merge branch 'patch-4' into 'master'

fix--青い涙の乙女

See merge request !27

script/c100220206.lua

 --青い涙の乙女
 local s,id,o=GetID()
 function s.initial_effect(c)
+    --same effect send this card to grave and summon another card check
+    local e0=aux.AddThisCardInGraveAlreadyCheck(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
@@ -19,6 +21,7 @@ function s.initial_effect(c)
 	e2:SetCode(EVENT_DAMAGE)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetLabelObject(e0)
 	e2:SetCountLimit(1,id)
 	e2:SetCondition(s.setcon)
 	e2:SetCost(aux.bfgcost)
@@ -61,7 +64,8 @@ function s.desop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function s.setcon(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT)~=0
+    local se=e:GetLabelObject():GetLabelObject()
+    return bit.band(r,REASON_EFFECT)~=0 and (se==nil or e:GetHandler():GetReasonEffect()~=se)
 end
 function s.setfilter(c)
 	return c:IsFaceupEx() and c:GetType()==TYPE_SPELL and c:IsSSetable()