ndyd

expansions/script/c85401860.lua

@@ -25,24 +25,28 @@ function c85401860.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c85401860.gl,tp,LOCATION_MZONE,0,1,nil) end
 	local g=Duel.SelectMatchingCard(tp,c85401860.gl,tp,LOCATION_MZONE,0,1,1,nil)
 	Duel.HintSelection(g)
-	e:SetLabel(g:GetFirst():GetAttack()-Duel.GetLP(tp))
+	local b=Duel.GetLP(tp)
+	e:SetLabel(g:GetFirst():GetAttack())
 end
-function c85401860.f(c,e)
-	return c:IsDestructable() and c:IsFaceup() and c:GetDefense()<=e:GetLabel()
+function c85401860.f(c)
+	return c:IsDestructable() and c:IsFaceup()
 end
 
 
 function c85401860.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c85401860.f,tp,0,LOCATION_MZONE,1,nil,e) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c85401860.f,tp,0,LOCATION_MZONE,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0)
 end
 function c85401860.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.GetMatchingGroup(c85401860.f,tp,0,LOCATION_MZONE,nil,e)
+	local g=Duel.GetMatchingGroup(c85401860.f,tp,0,LOCATION_MZONE,nil)
 	if g:GetCount()>0 then
-		local t=Duel.Destroy(g,REASON_EFFECT)
-		local s=(8000-Duel.GetLP(tp))/5
-		Duel.Damage(1-tp,s*t,REASON_EFFECT)
+		local sc=g:GetFirst()
+		while sc and sc:GetDefense()<=e:GetLabel()-Duel.GetLP(tp) do
+			Duel.Destroy(sc,REASON_EFFECT)
+			local s=(8000-Duel.GetLP(tp))/5
+			Duel.Damage(1-tp,s,REASON_EFFECT)
+			sc=g:GetNext()
+		end
 	end
 end