fix

expansions/script/c1000815.lua

 --追想的变奏
 function c1000815.initial_effect(c)
-	c:EnableCounterPermit(0x3b,LOCATION_SZONE)
+	c:EnableCounterPermit(0x3b)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
@@ -9,11 +9,10 @@ function c1000815.initial_effect(c)
 	c:RegisterEffect(e1)
 	--counter
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_COUNTER)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
 	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetRange(LOCATION_SZONE)
-	e2:SetCondition(c1000815.cntcon)
 	e2:SetOperation(c1000815.addc)
 	c:RegisterEffect(e2)
 	--atkup
@@ -59,14 +58,13 @@ function c1000815.initial_effect(c)
 	c:RegisterEffect(e7)
 	--
 end
-function c1000815.cnfilter(c,tp)
-	return c:GetOwner()==1-tp
+function c1000815.cfilter(c,tp)
+	return c:IsType(TYPE_MONSTER) and c:GetControler()==1-tp
 end
-function c1000815.cntcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c1000815.cnfilter,1,nil,tp)
-end
-function c1000815.addc(e,c)
+function c1000815.addc(e,tp,eg,ep,ev,re,r,rp)
+	if eg:IsExists(c1000815.cfilter,1,nil,tp) then
 		e:GetHandler():AddCounter(0x3b,1)
+	end
 end
 function c1000815.atkval(e,c)
 	return e:GetHandler():GetCounter(0x3b)*100
@@ -74,7 +72,7 @@ end
 function c1000815.cottg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return e:GetHandler():GetCounter(0x3b)>0 end
-	local dam=e:GetHandler():GetCounter(0x3b)*100
+	local dam=e:GetHandler():GetCounter(0x3b)*200
 	Duel.SetTargetPlayer(tp)
 	Duel.SetTargetParam(dam)
 	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,dam)

expansions/script/c1000816.lua

@@ -45,7 +45,7 @@ function c1000816.initial_effect(c)
 	c:RegisterEffect(e6)
 end
 function c1000816.cntcon(e,tp,eg,ep,ev,re,r,rp)
-	return ep==tp and ev>=1000 and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+	return ep==tp and rp==1-tp and (re or (Duel.GetAttacker() and Duel.GetAttacker():IsControler(1-tp)))
 end
 function c1000816.addc(e,c)
 	e:GetHandler():AddCounter(0x3b,1)