update

deck/21-03-03 new cards.ydk

 #created by ...
 #main
 100277002
-100416001
-100416002
-100416003
-100416004
-100416005
-100416006
-100416007
-100416008
-100416009
-100416010
-100416011
-100416012
-100416013
-100416014
-100416015
-100416016
-100416017
-100416018
-100416019
-100416020
-100416021
-100416023
-100416024
-100416025
-100416026
-100416036
 101105201
 101105202
 101105203
@@ -35,22 +9,10 @@
 101105207
 101105208
 100276001
-100416027
-100416028
-100416029
-100416030
-100416031
-100416032
-100416037
-100416038
-100416039
 100274203
 #extra
 100277001
 101105204
-100416033
-100416034
-100416035
 100274201
 100274202
 !side

deck/21-03-04 DBAG.ydk

+#created by ...
+#main
+100416001
+100416002
+100416003
+100416004
+100416005
+100416006
+100416007
+100416008
+100416009
+100416010
+100416011
+100416012
+100416013
+100416014
+100416015
+100416016
+100416017
+100416018
+100416019
+100416020
+100416021
+100416022
+100416023
+100416024
+100416025
+100416026
+100416027
+100416028
+100416029
+100416030
+100416031
+100416032
+100416036
+100416037
+100416038
+100416039
+#extra
+100416033
+100416034
+100416035
+!side

script/c100416022.lua

+--ドレミコード・エレガンス
+
+--scripted by Warspite & mercury233
+function c100416022.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,100416022+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c100416022.target)
+	e1:SetOperation(c100416022.activate)
+	c:RegisterEffect(e1)
+end
+function c100416022.getscale(c)
+	if c:GetSequence()>0 and c:IsLocation(LOCATION_PZONE) then return c:GetRightScale() else return c:GetLeftScale() end
+end
+function c100416022.pendfilter(c)
+	return c:IsSetCard(0x265) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+end
+function c100416022.pendfilter1(c)
+	return c100416022.pendfilter(c) and c100416022.getscale(c)%2~=0
+end
+function c100416022.pendfilter2(c)
+	return c100416022.pendfilter(c) and c100416022.getscale(c)%2==0
+end
+function c100416022.toexfilter(c)
+	return c:IsSetCard(0x265) and c:IsType(TYPE_PENDULUM)
+end
+function c100416022.toexfilter1(c)
+	return c:GetLeftScale()%2~=0 or c:GetRightScale()%2~=0
+end
+function c100416022.toexfilter2(c)
+	return c:GetLeftScale()%2==0 or c:GetRightScale()%2==0
+end
+function c100416022.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.IsExistingMatchingCard(c100416022.pendfilter,tp,LOCATION_DECK,0,1,nil)
+		and (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)) 
+	local b2=Duel.IsExistingMatchingCard(c100416022.toexfilter,tp,LOCATION_HAND,0,1,nil)
+		and Duel.IsExistingMatchingCard(c100416022.pendfilter1,tp,LOCATION_DECK,0,1,nil)
+		and Duel.IsExistingMatchingCard(c100416022.pendfilter2,tp,LOCATION_DECK,0,1,nil)
+		and Duel.CheckLocation(tp,LOCATION_PZONE,0) and Duel.CheckLocation(tp,LOCATION_PZONE,1)
+	local b3=Duel.IsExistingMatchingCard(c100416022.toexfilter1,tp,LOCATION_PZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(c100416022.toexfilter2,tp,LOCATION_PZONE,0,1,nil)
+		and Duel.IsPlayerCanDraw(tp,2) 
+	if chk==0 then return b1 or b2 or b3 end
+	local off=1
+	local ops,opval={},{}
+	if b1 then
+		ops[off]=aux.Stringid(100416022,0)
+		opval[off]=0
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(100416022,1)
+		opval[off]=1
+		off=off+1
+	end
+	if b3 then
+		ops[off]=aux.Stringid(100416022,2)
+		opval[off]=2
+		off=off+1
+	end
+	local op=Duel.SelectOption(tp,table.unpack(ops))+1
+	local sel=opval[op]
+	e:SetLabel(sel)
+	if sel==0 then
+		e:SetCategory(0)
+	elseif sel==1 then
+		e:SetCategory(0)
+	else
+		e:SetCategory(CATEGORY_DRAW)
+		Duel.SetTargetPlayer(tp)
+		Duel.SetTargetParam(2)
+		Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+	end
+end
+function c100416022.activate(e,tp,eg,ep,ev,re,r,rp)
+	local sel=e:GetLabel()
+	if sel==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local sg=Duel.SelectMatchingCard(tp,c100416022.pendfilter,tp,LOCATION_DECK,0,1,1,nil)
+		local tc=sg:GetFirst()
+		if tc then
+			Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+		end
+	elseif sel==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100416022,3))
+		local g=Duel.SelectMatchingCard(tp,c100416022.toexfilter,tp,LOCATION_HAND,0,1,1,nil)
+		if g:GetCount()>0 and Duel.SendtoExtraP(g,tp,REASON_EFFECT)~=0 then
+			local g1=Duel.GetMatchingGroup(c100416022.pendfilter1,tp,LOCATION_DECK,0,nil) 
+			local g2=Duel.GetMatchingGroup(c100416022.pendfilter2,tp,LOCATION_DECK,0,nil) 
+			if g1:GetCount()>0 and g2:GetCount()>0 then
+				Duel.BreakEffect()
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+				local sg1=g1:Select(tp,1,1,nil) 
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+				local sg2=g2:Select(tp,1,1,nil)
+				sg1:Merge(sg2) 
+				local tc=sg1:GetFirst() 
+				while tc do
+					Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+					tc=sg1:GetNext()
+				end
+			end
+		end
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100416022,3))
+		local g1=Duel.SelectMatchingCard(tp,c100416022.toexfilter1,tp,LOCATION_PZONE,0,1,1,nil)
+		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100416022,3))
+		local g2=Duel.SelectMatchingCard(tp,c100416022.toexfilter2,tp,LOCATION_PZONE,0,1,1,nil)
+		g1:Merge(g2)
+		if Duel.SendtoExtraP(g1,tp,REASON_EFFECT)~=0 then
+			local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+			Duel.Draw(p,d,REASON_EFFECT)
+		end
+	end
+end