54188

expansions/script/c81024031.lua

@@ -43,34 +43,32 @@ end
 function cm.bacon(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
 end
-function cm.filter1(c,tp)
-	return c:IsAttackable() and c:IsAttack(1550) and c:IsDefense(1050) and c:IsPosition(POS_FACEUP_ATTACK) and Duel.IsExistingTarget(cm.filter2,tp,0,LOCATION_MZONE,1,c,c)
+function cm.bafilter(c)
+	return c:IsAttackable() and c:IsAttack(1550) and c:IsDefense(1050)
 end
-function cm.filter2(c,tc)
-	return c:IsCanBeBattleTarget(tc) and c:IsFaceup()
+function cm.bbfilter(c)
+	return c:IsFaceup()
 end
 function cm.batg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return false end
-	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,e:GetHandler()) and Duel.IsExistingTarget(cm.filter2,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF)
-	local g1=Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),tp)
-	local ac=g1:GetFirst()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO)
-	local g2=Duel.SelectTarget(tp,cm.filter2,tp,0,LOCATION_MZONE,1,1,ac,ac)
-	e:SetLabelObject(ac)
-end
-function cm.cf(c,e)
-	return not c:IsRelateToEffect(e)
+	if chk==0 then return Duel.IsExistingTarget(cm.bafilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingTarget(cm.bbfilter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,cm.bafilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g2=Duel.SelectTarget(tp,cm.bbfilter,tp,0,LOCATION_MZONE,1,1,nil)
+	e:SetLabelObject(g2:GetFirst())
 end
 function cm.baop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	if #g>1 and not g:IsExists(cm.cf,1,nil,e) then
-		local tc=g:GetFirst()
-		local sc=g:GetNext()
-		local ac=e:GetLabelObject()
-		if tc==ac then tc=sc end
-		if ac:IsAttackable() then Duel.CalculateDamage(ac,tc) end
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	if g:GetCount()==2 then
+		local c1=g:GetFirst()
+		local c2=g:GetNext()
+		if c1~=e:GetLabelObject() then c1,c2=c2,c1 end
+		if c2:IsControler(tp) and c2:IsPosition(POS_FACEUP_ATTACK) and not c2:IsImmuneToEffect(e)
+			and c1:IsControler(1-tp) then
+			Duel.CalculateDamage(c2,c1,true)
+		end
 	end
 end
 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)

expansions/script/c81024045.lua

@@ -50,33 +50,31 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SpecialSummonComplete()
 	end
 end
-function cm.filter1(c,tp)
-	return c:IsAttackable() and c:IsAttack(1550) and c:IsDefense(1050) and Duel.IsExistingTarget(cm.filter2,tp,0,LOCATION_MZONE,1,c,c)
+function cm.bafilter(c)
+	return c:IsAttackable() and c:IsAttack(1550) and c:IsDefense(1050)
 end
-function cm.filter2(c,tc)
-	return c:IsCanBeBattleTarget(tc) and c:IsPosition(POS_FACEUP_ATTACK) and c:IsAttackBelow(1500)
+function cm.bbfilter(c)
+	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsAttackBelow(1500)
 end
 function cm.batg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return false end
-	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,e:GetHandler()) and Duel.IsExistingTarget(cm.filter2,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF)
-	local g1=Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),tp)
-	local ac=g1:GetFirst()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO)
-	local g2=Duel.SelectTarget(tp,cm.filter2,tp,0,LOCATION_MZONE,1,1,ac,ac)
-	e:SetLabelObject(ac)
-end
-function cm.cf(c,e)
-	return not c:IsRelateToEffect(e)
+	if chk==0 then return Duel.IsExistingTarget(cm.bafilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingTarget(cm.bbfilter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,cm.bafilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g2=Duel.SelectTarget(tp,cm.bbfilter,tp,0,LOCATION_MZONE,1,1,nil)
+	e:SetLabelObject(g2:GetFirst())
 end
 function cm.baop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	if #g>1 and not g:IsExists(cm.cf,1,nil,e) then
-		local tc=g:GetFirst()
-		local sc=g:GetNext()
-		local ac=e:GetLabelObject()
-		if tc==ac then tc=sc end
-		if ac:IsAttackable() then Duel.CalculateDamage(ac,tc) end
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	if g:GetCount()==2 then
+		local c1=g:GetFirst()
+		local c2=g:GetNext()
+		if c1~=e:GetLabelObject() then c1,c2=c2,c1 end
+		if c2:IsControler(tp) and c2:IsPosition(POS_FACEUP_ATTACK) and not c2:IsImmuneToEffect(e)
+			and c1:IsControler(1-tp) then
+			Duel.CalculateDamage(c2,c1,true)
+		end
 	end
 end