强度补正 2

2025.txt

@@ -88,5 +88,5 @@
 ①：原本控制者是对方的卡的包含对自己效果伤害的效果发动时，可以把手卡的这张卡丢弃。那次伤害变成对方受到这个效果10倍的伤害。这个效果每适用过1次，游戏每进行过1回合，这个倍数下降3（最多下降至0）。
 ②：这张卡被对方的卡的效果除外时发动。自己除外的卡全部返回卡组洗切，从对方卡组上方选那个数量3倍的卡里侧表示除外，那之后，可以把对方的场地魔法卡除外。
 ③：鸽了
-④：对方的卡的效果让手卡的这张卡从手卡离开的场合发动。直到手卡变成5张为止从卡组抽卡，变成这个回合的结束阶段。
+④：对方的卡的效果让手卡的这张卡从手卡离开的场合发动（移动至未公开区域也能发动）。直到手卡变成5张为止从卡组抽卡，变成这个回合的结束阶段。
 提示文本：防止效果伤害、防止被除外、防止被无效（鸽了）、防止离开手卡、是否要把1张加入手卡？、是否要防止伤害？、是否要把对方的场地魔法除外？

MyDIY.txt

@@ -73,7 +73,7 @@
 
 # 抄自万智牌「霰散弹」
 因果王法(172016009) 炎 3星 恶魔/调整 0 1800 (Custom)
-①：对方把10次以上卡的效果发动过的回合，对方的手卡·场上的卡合计数量比自己的手卡·场上的卡合计数量多的场合，在连锁1把这张卡从手卡送去墓地才能发动。给这张卡的原本持有者自己场上特殊召唤的怪兽x50点的伤害。这回合中每有1次效果发动，依序令那张卡发动1次这个效果的复制，与这个效果组成连锁。
+①：对方把10次以上卡的效果发动过的回合，对方的手卡·场上的卡合计数量比自己的手卡·场上的卡合计数量多的场合，在连锁1把这张卡从手卡送去墓地才能发动。给这张卡的原本持有者自己场上特殊召唤的怪兽x50点的伤害（伤害为0也可以发动）。这回合中每有1次效果发动，依序令那张卡发动1次这个效果的复制，与这个效果组成连锁。
 分类：常驻-DIY
 效果分类：LP伤害
 
@@ -137,11 +137,11 @@ SHUT UP！(172016014) 通常魔法 (Custom)
 转瞬即逝的噩梦(172016018) 永续陷阱 (Custom)
 ①：双方的主要阶段，支付1000基本分才能发动。手卡的这张卡在自己场上表侧表示放置。这个效果在1组连锁上只能发动1次。
 ②：这张卡在场上表侧表示存在，场上有这张卡以外的魔法·陷阱卡存在的场合，支付1000基本分以那张卡为对象发动。那张卡破坏。这个效果在1组连锁上对每张卡只能发动1次。
-③：结束阶段，场上没有「催眠妹妹」存在的场合，这张卡破坏，自己受到3000伤害。
+③：这张卡的②效果破坏过灵摆卡的回合的结束阶段，场上没有「催眠妹妹」存在的场合，这张卡破坏，自己受到3000伤害。
 分类：常驻-DIY
 
 深渊的暗中谋划(172016019) 通常魔法 (Custom)
-①：自己场上有「深渊的冥王」或者对方的场上有「冥界的魔王 哈·迪斯」存在的场合才能发动。从卡组选「技能抽取」「精神抽取」「灵魂抽取」各1张发动（Cost仍需照常支付）。
+①：从卡组选「技能抽取」「精神抽取」「灵魂抽取」各1张发动。自己场上有「深渊的冥王」或者对方的场上有「冥界的魔王 哈·迪斯」存在的场合，那次发动的Cost无需支付。
 分类：常驻-DIY
 
 # 暗黑界的减速康

script/c172016018.lua

 --转瞬即逝的噩梦
 local s,id,o=GetID()
+o=1e9
 function s.initial_effect(c)
     --activate
     local e0=Effect.CreateEffect(c)
@@ -72,15 +73,17 @@ end
 
 function s.desop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
-	Duel.Destroy(tc,REASON_EFFECT)
+	if Duel.Destroy(tc,REASON_EFFECT)>0 and tc:IsType(TYPE_PENDULUM) then
+        e:GetHandler():RegisterFlagEffect(id+o,RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+    end
 end
 
 function s.sdcon(e,tp,eg,ep,ev,re,r,rp)
-    return not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,22200403)
+    return e:GetHandler():GetFlagEffect(id+o)>0 and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,22200403)
 end
 function s.sdop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
     if Duel.Damage(tp,3000,REASON_EFFECT)>0 then
         Duel.Destroy(c,REASON_EFFECT)
     end
-end
\ No newline at end of file
+end

script/c172016019.lua

@@ -21,9 +21,7 @@ function s.cfilter(c,id)
 	return c:IsFaceup() and c:IsCode(id)
 end
 function s.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetLocationCount(tp,LOCATION_SZONE)>=3 and (
-           Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil,53375573)
-        or Duel.IsExistingMatchingCard(s.cfilter,tp,0,LOCATION_ONFIELD,1,nil,53982768))
+	return Duel.GetLocationCount(tp,LOCATION_SZONE)>=3
 end
 function s.filter(c,tp,code)
 	return c:IsCode(code) and c:GetActivateEffect():IsActivatable(tp,true,true)
@@ -35,6 +33,8 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
     end
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
+    local skip=Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil,53375573)
+            or Duel.IsExistingMatchingCard(s.cfilter,tp,0,LOCATION_ONFIELD,1,nil,53982768)
     for _, tid in ipairs({82732705,73599290,68937720}) do
         local tc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil,tp,tid):GetFirst()
         if tc then
@@ -42,8 +42,10 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
             local te=tc:GetActivateEffect()
             te:UseCountLimit(tp,1,true)
             local tep=tc:GetControler()
-            local cost=te:GetCost()
-            if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
+            if not skip then
+                local cost=te:GetCost()
+                if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
+            end
             Duel.RaiseEvent(tc,tid,te,0,tp,tp,Duel.GetCurrentChain())
         else
             return

script/c172016041.lua

@@ -6,6 +6,7 @@ function s.initial_effect(c)
 	e1:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_SPSUMMON)
+	e1:SetCondition(s.con1)
 	e1:SetCost(s.cost1)
 	e1:SetTarget(s.target1)
 	e1:SetOperation(s.activate1)
@@ -18,6 +19,9 @@ function s.initial_effect(c)
 	c:RegisterEffect(e2)
 	Duel.AddCustomActivityCounter(id,ACTIVITY_CHAIN,s.chainfilter)
 end
+function s.con1(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp
+end
 function s.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
 	local lp=math.floor(Duel.GetLP(tp)/2)

script/c172016099.lua

@@ -19,7 +19,7 @@ function s.initial_effect(c)
 	e2:SetCategory(CATEGORY_DESTROY)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e2:SetCode(EVENT_REMOVE)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_SET_AVAILABLE)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
 	e2:SetCondition(s.rmcon)
 	e2:SetTarget(s.rmtg)
 	e2:SetOperation(s.rmop)