ndyd

expansions/script/c85401860.lua

@@ -33,20 +33,22 @@ function c85401860.f(c)
 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) end
+function c85401860.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	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)
 	local g=Duel.GetMatchingGroup(c85401860.f,tp,0,LOCATION_MZONE,nil)
 	if g:GetCount()>0 then
 		local sc=g:GetFirst()
+		local sg=Group.CreateGroup(sg)
 		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)
+			local sg=sg:AddCard(sc)
 			sc=g:GetNext()
 		end
+		local t=Duel.Destroy(sg,REASON_EFFECT)
+		local s=(8000-Duel.GetLP(tp))/5
+		Duel.Damage(1-tp,s*t,REASON_EFFECT)
 	end
 end