●修复「废狱的双心✿古明地觉&古明地恋」的红字bug。

●修复「白丽✿灵梦」丢弃手卡特招不算丢弃的bug。
●修复「『蔷薇地狱』」从游戏外拉上来无法回复到决斗开始时血量的bug。

script/c24111.lua

@@ -56,7 +56,12 @@ function c24111.activate(e,tp,eg,ep,ev,re,r,rp)
 	c24111.effectList[tp] = {e1,e2,e3}
 end
 function c24111.con(e,tp,eg,ep,ev,re,r,rp)
-	return c24111.lplist[e:GetLabel()]>Duel.GetLP(e:GetLabel())
+	local ct1=c24501.lplist[e:GetLabel()]
+	local ct2=c24111.lplist[e:GetLabel()]
+	if ct1 and ct1>ct2 then
+		ct2=ct1
+	end
+	return ct2>Duel.GetLP(e:GetLabel())
 end
 function c24111.damval(e,re,val,r,rp,rc)
 	if bit.band(r,REASON_BATTLE)~=0 then return val end
@@ -64,8 +69,13 @@ function c24111.damval(e,re,val,r,rp,rc)
 end
 function c24111.count(e,tp,eg,ep,ev,re,r,rp)
 	local lp=Duel.GetLP(tp)
-	if Duel.GetLP(tp)>=c24111.lplist[tp] then return end 
-	local rev=c24111.lplist[tp]-lp
+	local ct1=c24501.lplist[tp]
+	local ct2=c24111.lplist[tp]
+	if ct1 and ct1>ct2 then
+		ct2=ct1
+	end
+	if Duel.GetLP(tp)>=ct2 then return end 
+	local rev=ct2-lp
 	if rev>2000 then
 		Duel.Recover(tp,2000,REASON_EFFECT)
 	elseif rev>0 then
@@ -74,7 +84,12 @@ function c24111.count(e,tp,eg,ep,ev,re,r,rp)
 end
 function c24111.lpop(e,tp,eg,ep,ev,re,r,rp)
 	local lp=Duel.GetLP(tp)
-	if lp>=c24111.lplist[tp] then
+	local ct1=c24501.lplist[tp]
+	local ct2=c24111.lplist[tp]
+	if ct1 and ct1>ct2 then
+		ct2=ct1
+	end
+	if lp>=ct2 then
 		for _,v in pairs(c24111.effectList[tp]) do
 			v:Reset()
 		end

script/c24501.lua

@@ -40,6 +40,13 @@ function c24501.initial_effect(c)
 	e4:SetTarget(c24501.target)
 	e4:SetOperation(c24501.operation)
 	c:RegisterEffect(e4)
+	if c24501.counter==nil then
+		c24501.counter=true
+		c24501.lplist = {
+			[0] = Duel.GetLP(0),
+			[1] = Duel.GetLP(1),
+		}
+	end
 end
 function c24501.matfilter(c)
 	return not c:IsLinkType(TYPE_TOKEN) and c:GetBaseAttack()<=1600

script/c74561009.lua

@@ -108,7 +108,7 @@ end
 function cCardno.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,1,c)
-	Duel.SendtoGrave(g,REASON_COST)
+	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
 end
 --synlimit
 function cCardno.synlimit(e,c)

script/c86379797.lua

@@ -100,7 +100,7 @@ function c86379797.scop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=g:GetFirst()
 	if tc then
 		local lv=tc:GetLevel()
-		if lv=<ml+clv then
+		if lv<=ml+clv then
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
 			local rm=rg:FilterSelect(tp,c86379797.rsfilter,1,1,nil,lv-clv)
 			rm:AddCard(c)