7

expansions/script/c71403013.lua

+--气泡方块使 O
+if not c71403001 then dofile("expansions/script/c71403001.lua") end
+function c71403013.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c,true)
+	--scale
+	local ep1=Effect.CreateEffect(c)
+	ep1:SetType(EFFECT_TYPE_SINGLE)
+	ep1:SetCode(EFFECT_CHANGE_LSCALE)
+	ep1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	ep1:SetRange(LOCATION_PZONE)
+	ep1:SetCondition(yume.PPTOtherScaleCheck)
+	ep1:SetValue(0)
+	c:RegisterEffect(ep1)
+	local ep1a=ep1:Clone()
+	ep1a:SetCode(EFFECT_CHANGE_RSCALE)
+	c:RegisterEffect(ep1a)
+	--change pos
+	local ep2=Effect.CreateEffect(c)
+	ep2:SetCategory(CATEGORY_POSITION+CATEGORY_TOEXTRA)
+	ep2:SetType(EFFECT_TYPE_IGNITION)
+	ep2:SetCode(EVENT_FREE_CHAIN)
+	ep2:SetRange(LOCATION_PZONE)
+	ep2:SetDescription(aux.Stringid(71403013,0))
+	ep2:SetCountLimit(1,71503004)
+	ep2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	ep2:SetCost(yume.PPTLimitCost)
+	ep2:SetTarget(c71403013.tgp2)
+	ep2:SetOperation(c71403013.opp2)
+	c:RegisterEffect(ep2)
+	--monster movement effect
+	yume.RegPPTTetrisBasicMoveEffect(c,71403013)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71403013,1))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,71513004)
+	e1:SetCondition(yume.PPTMainPhaseCon)
+	e1:SetCost(yume.PPTLimitCost)
+	e1:SetTarget(c71403013.tg1)
+	e1:SetOperation(c71403013.op1)
+	c:RegisterEffect(e1)
+	yume.PPTCounter()
+end
+function c71403013.filterp2a(c)
+	return c:GetSequence()>4 and c:IsFaceup() and c:IsSetCard(0x715) and c:IsCanChangePosition()
+end
+function c71403013.filterp2b(c)
+	return c:IsSetCard(0x715) and c:IsFaceup() and c:IsAbleToDeck()
+end
+function c71403013.tgp2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c71403013.filterp2a(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c71403013.filterp2a,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(c71403013.filterp2b,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+	local g=Duel.SelectTarget(tp,c71403013.filterp2a,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,#g,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_REMOVED)
+end
+function c71403013.opp2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local g=Duel.GetMatchingGroup(c71403013.filterp2b,tp,LOCATION_REMOVED,0,1,nil)
+	if tc:IsRelateToEffect(e)
+		and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)~=0
+		and g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g=Duel.SelectMatchingCard(tp,c71403013.filterp2b,tp,LOCATION_REMOVED,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.SendtoDeck(g,SEQ_DECKSHUFFLE,REASON_EFFECT)
+		end
+	end
+end
+function c71403013.filter1(c)
+	return c:IsSetCard(0x715) and c:IsAbleToDeck()
+end
+function c71403013.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return
+		chkc:IsOnField() and chkc:IsControler(tp) and chkc~=c
+	end
+	local gyg=Duel.GetMatchingGroup(c71403013.filter1,tp,LOCATION_GRAVE,0,nil)
+	if chk==0 then
+		return (c:GetSequence()<5 or c:IsLocation(LOCATION_HAND))
+		and gyg:GetCount()>0
+		and Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,0,1,c)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,0,1,1,c)
+	if c:IsLocation(LOCATION_MZONE) then
+		g:AddCard(c)
+	else
+		Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,c,1,0,0)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,gyg,1,tp,LOCATION_GRAVE)
+end
+function c71403013.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local c_is_in_hand=c:IsLocation(LOCATION_HAND)
+	if not (c:IsRelateToEffect(e) and (c_is_in_hand or c:GetSequence()<5)) then return end
+	if c_is_in_hand then
+		op_flag=Duel.SendtoExtraP(c,nil,REASON_EFFECT)>0 and c:IsLocation(LOCATION_EXTRA) and c:IsFaceup()
+	else
+		op_flag=Duel.Destroy(c,REASON_EFFECT)==1
+	end
+	if not op_flag then return end
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) then return end
+	Duel.BreakEffect()
+	if Duel.Destroy(tc,REASON_EFFECT)==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c71403013.filter1,tp,LOCATION_GRAVE,0,1,2,nil)
+	if g:GetCount()==0 then return end
+	Duel.SendtoDeck(g,SEQ_DECKSHUFFLE,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c71403023.lua

@@ -15,18 +15,18 @@ function c71403023.initial_effect(c)
 	yume.RegPPTSTGraveEffect(c,71403023)
 	yume.PPTCounter()
 end
-function c71403023.filtertg1(c)
+function c71403023.filtertg1(c,tp)
 	return c:IsType(TYPE_PENDULUM) and c:IsFaceup()
-		and Duel.IsExistingMatchingCard(c71403023.filter1,tp,LOCATION_DECK,0,1,nil,c:GetLeftScale())
+		and Duel.IsExistingMatchingCard(c71403023.filter1,tp,LOCATION_DECK,0,1,nil,c:GetCurrentScale())
 end
 function c71403023.filter1(c,scale)
-	return c:IsSetCard(0x715) and c:IsType(TYPE_PENDULUM) and c:GetLeftScale()~=scale and c:IsAbleToHand()
+	return c:IsSetCard(0x715) and c:IsType(TYPE_PENDULUM) and c:GetCurrentScale()~=scale and c:IsAbleToHand()
 end
 function c71403023.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return c71403023.filtertg1(chkc) and chkc:IsControler(tp) end
-	if chk==0 then return Duel.IsExistingTarget(c71403023.filtertg1,tp,LOCATION_ONFIELD,0,1,nil) end
+	if chkc then return c71403023.filtertg1(chkc,tp) and chkc:IsControler(tp) end
+	if chk==0 then return Duel.IsExistingTarget(c71403023.filtertg1,tp,LOCATION_ONFIELD,0,1,nil,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,c71403023.filtertg1,tp,LOCATION_ONFIELD,0,1,1,nil)
+	local g=Duel.SelectTarget(tp,c71403023.filtertg1,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
@@ -34,12 +34,13 @@ function c71403023.op1(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	local th_flag=false
 	if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
-		local scale=c:GetLeftScale()
+		local scale=tc:GetCurrentScale()
 		local thg=Duel.SelectMatchingCard(tp,c71403023.filter1,tp,LOCATION_DECK,0,1,1,nil,scale)
 		if thg:GetCount()>0 then
 			Duel.SendtoHand(thg,nil,REASON_EFFECT)
 			Duel.ConfirmCards(1-tp,thg)
-			th_flag=thg:Filter(Card.IsLocation,nil,LOCATION_HAND)>0
+			thg=Duel.GetOperatedGroup()
+			th_flag=thg:IsExists(Card.IsLocation,1,nil,LOCATION_HAND)
 		end
 	end
 	if th_flag and (Duel.CheckLocation(tp,LOCATION_PZONE,0)