update new card & scripts

deck/20-11-03 new cards.ydk → deck/20-11-07 new cards.ydk

 #created by ...
 #main
+100200191
 101102000
 101102081
 101102082

script/c100200191.lua

+--氷結界の随身
+--
+--LUA by Kohana Sonogami
+function c100200191.initial_effect(c)
+	--Special Summon 1
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(100200191,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,100200191)
+	e1:SetCost(c100200191.spcost1)
+	e1:SetTarget(c100200191.sptg1)
+	e1:SetOperation(c100200191.spop1)
+	c:RegisterEffect(e1)
+	--Special Summon 2
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100200191,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(aux.exccon)
+	e2:SetCountLimit(1,100200191+100)
+	e2:SetTarget(c100200191.sptg2)
+	e2:SetOperation(c100200191.spop2)
+	c:RegisterEffect(e2)
+end
+function c100200191.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c100200191.spfilter1(c,e,tp)
+	return c:IsSetCard(0x2f) and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c100200191.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
+		and Duel.IsExistingMatchingCard(c100200191.spfilter1,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c100200191.spop1(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c100200191.spfilter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c100200191.spfilter2(c)
+	return c:IsFaceup() and c:IsLevelAbove(3) and c:IsAttribute(ATTRIBUTE_WATER)
+end
+function c100200191.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100200191.spfilter2(chkc) end
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingTarget(c100200191.spfilter2,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c100200191.spfilter2,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c100200191.spop2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsImmuneToEffect(e) or tc:GetLevel()<3 then return end
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_LEVEL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e1:SetValue(-2)
+	tc:RegisterEffect(e1)
+	if not tc:IsImmuneToEffect(e1) and c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e2:SetValue(LOCATION_REMOVED)
+		c:RegisterEffect(e2,true)
+	end
+end		

script/c101102095.lua

@@ -39,7 +39,7 @@ function c101102095.tgfilter(c)
 	return c:IsType(TYPE_EFFECT) and c:IsFaceup() and not c:IsDisabled()
 end
 function c101102095.tgfilter2(c)
-	return c:IsSetCard(0x258) and c:IsAbleToRemove()
+	return c:IsSetCard(0x258) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
 end
 function c101102095.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return c101102095.tgfilter(chkc) and chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end
@@ -73,7 +73,6 @@ function c101102095.activate(e,tp,eg,ep,ev,re,r,rp)
 		end
 	end
 end
-
 function c101102095.drcon(e,tp,eg,ep,ev,re,r,rp)
 	local ec=Duel.GetAttacker()
 	local bc=ec:GetBattleTarget()

script/c101103023.lua

@@ -53,6 +53,7 @@ end
 function c101103023.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetTargetCard(eg)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
 function c101103023.spop(e,tp,eg,ep,ev,re,r,rp)
@@ -60,6 +61,7 @@ function c101103023.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
 	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 and Duel.SelectYesNo(tp,aux.Stringid(101103023,2)) then
+		Duel.BreakEffect()
 		local g=Group.FromCards(c)
 		if tc:IsRelateToEffect(e) then g:AddCard(tc) end
 		g=g:Filter(Card.IsFaceup,nil)

script/c101103046.lua

 --スプリガンズ・シップ エクスブロウラー
 
---Scripted by mallu11
+--Scripted by mallu11 & mercury233
 function c101103046.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,nil,8,2,nil,nil,99)
@@ -28,80 +28,81 @@ function c101103046.initial_effect(c)
 	e2:SetTarget(c101103046.rmtg)
 	e2:SetOperation(c101103046.rmop)
 	c:RegisterEffect(e2)
-end
-function c101103046.desfilter(c)
-	if c:IsLocation(LOCATION_SZONE) then
-		return c:GetSequence()<5
-	else
-		return true
-	end
-end
---str2 to str6 is Spell&Trap Zone(from right to left)
---str7 to str13 is Monster Zone(from right to left)
-function c101103046.seqfilter(c,i,chk)
-	local seq=c:GetSequence()
-	if i==11 then
-		return (seq==5 or (chk and seq==1)) and c:IsLocation(LOCATION_MZONE)
-	elseif i==12 then
-		return (seq==6 or (chk and seq==3)) and c:IsLocation(LOCATION_MZONE)
-	else
-		local loc
-		local j
-		if i<6 then
-			loc=LOCATION_MZONE
-			j=0
-		else
-			loc=LOCATION_SZONE
-			j=5
+	if Duel.SelectField==nil then
+function Duel.SelectField(tp,count,s,o,filter)
+	--temp lua ver
+	--assume count is always 1, s is always 0
+	local off=1
+	local ops={}
+	local opval={}
+	if o&LOCATION_MZONE>0 then
+		for i=0,4 do
+			if 1<<(i+16)&filter==0 then
+				ops[off]=aux.Stringid(101103046,i+2)
+				opval[off-1]=i
+				off=off+1
+			end
 		end
-		if c:IsLocation(loc) then
-			return seq==i-j-1
-		else
-			if i==7 then
-				return seq==i-j or seq==i-j-1 or seq==i-j-2 or seq==5
-			elseif i==9 then
-				return seq==i-j or seq==i-j-1 or seq==i-j-2 or seq==6
-			else
-				return (seq==i-j or seq==i-j-1 or seq==i-j-2) and seq<5
+	end
+	if o&LOCATION_SZONE>0 then
+		for i=5,9 do
+			if 1<<(i+4+16)&filter==0 then
+				ops[off]=aux.Stringid(101103046,i+2)
+				opval[off-1]=i+4
+				off=off+1
 			end
 		end
 	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local sel=Duel.SelectOption(tp,table.unpack(ops))
+	return 1<<(opval[sel]+16)
+end
+	end
+end
+function c101103046.desfilter(c)
+	return not c:IsLocation(LOCATION_SZONE) or c:GetSequence()<5
+end
+function c101103046.seqfilter(c,seq)
+	local loc=LOCATION_MZONE
+	if seq>8 then
+		loc=LOCATION_SZONE
+		seq=seq-8
+	end
+	if seq>=5 and seq<=7 then return false end
+	local cseq=c:GetSequence()
+	local cloc=c:GetLocation()
+	if cloc==LOCATION_SZONE and cseq>=5 then return false end
+	if cloc==LOCATION_MZONE and cseq>=5 and loc==LOCATION_MZONE
+		and (seq==1 and cseq==5 or seq==3 and cseq==6) then return true end
+	return cseq==seq or cloc==loc and math.abs(cseq-seq)==1
 end
 function c101103046.seqtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) and Duel.IsExistingMatchingCard(c101103046.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
-	local b={}
-	for i=1,12 do
-		b[i]=Duel.IsExistingMatchingCard(c101103046.seqfilter,tp,0,LOCATION_ONFIELD,1,nil,i)
-	end
-	local off=0
-	local ops={}
-	local opval={}
-	off=1
-	for i=1,12 do
-		if b[i] then
-			ops[off]=aux.Stringid(101103046,i+1)
-			opval[off-1]=i
-			off=off+1
+	if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT)
+		and Duel.IsExistingMatchingCard(c101103046.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
+	local filter=0
+	for i=0,16 do
+		if not Duel.IsExistingMatchingCard(c101103046.seqfilter,tp,0,LOCATION_ONFIELD,1,nil,i) then
+			filter=filter|1<<(i+16)
 		end
 	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
-	local op=Duel.SelectOption(tp,table.unpack(ops))
-	e:SetLabel(opval[op])
-	Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(101103046,opval[op]+1))
-	local g=Duel.GetMatchingGroup(c101103046.seqfilter,tp,0,LOCATION_ONFIELD,nil,opval[op],true)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local flag=Duel.SelectField(tp,1,0,LOCATION_ONFIELD,filter)
+	local seq=math.log(flag>>16,2)
+	e:SetLabel(seq)
+	local g=Duel.GetMatchingGroup(c101103046.seqfilter,tp,0,LOCATION_ONFIELD,nil,seq)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function c101103046.seqop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local i=e:GetLabel()
 	if not c:IsRelateToEffect(e) then return end
-	local ct=Duel.GetMatchingGroupCount(c101103046.seqfilter,tp,0,LOCATION_ONFIELD,nil,i,true)
+	local seq=e:GetLabel()
+	local ct=Duel.GetMatchingGroupCount(c101103046.seqfilter,tp,0,LOCATION_ONFIELD,nil,seq)
 	if ct<=0 or not c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) then return end
 	local count=c:RemoveOverlayCard(tp,1,ct,REASON_EFFECT)
 	if count<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectMatchingCard(tp,c101103046.seqfilter,tp,0,LOCATION_ONFIELD,count,count,nil,i,true)
+	local g=Duel.SelectMatchingCard(tp,c101103046.seqfilter,tp,0,LOCATION_ONFIELD,count,count,nil,seq)
 	Duel.HintSelection(g)
 	Duel.Destroy(g,REASON_EFFECT)
 end

script/c101103069.lua

 --スプリガンズ・ブラスト！
 
---Scripted by mallu11
+--Scripted by mallu11 & mercury233
 function c101103069.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
@@ -13,6 +13,36 @@ function c101103069.initial_effect(c)
 	e1:SetTarget(c101103069.target)
 	e1:SetOperation(c101103069.activate)
 	c:RegisterEffect(e1)
+	if Duel.SelectField==nil then
+function Duel.SelectField(tp,count,s,o,filter)
+	--temp lua ver
+	--assume count is always 1, s is always 0
+	local off=1
+	local ops={}
+	local opval={}
+	if o&LOCATION_MZONE>0 then
+		for i=0,4 do
+			if 1<<(i+16)&filter==0 then
+				ops[off]=aux.Stringid(101103046,i+2)
+				opval[off-1]=i
+				off=off+1
+			end
+		end
+	end
+	if o&LOCATION_SZONE>0 then
+		for i=5,9 do
+			if 1<<(i+4+16)&filter==0 then
+				ops[off]=aux.Stringid(101103046,i+2)
+				opval[off-1]=i+4
+				off=off+1
+			end
+		end
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local sel=Duel.SelectOption(tp,table.unpack(ops))
+	return 1<<(opval[sel]+16)
+end
+	end
 end
 function c101103069.confilter(c)
 	return c:IsFaceup() and c:IsSetCard(0x257)
@@ -23,37 +53,21 @@ end
 function c101103069.cfilter(c)
 	return c:IsFaceup() and c:IsType(TYPE_FUSION) and aux.IsMaterialListCode(c,68468459)
 end
-function c101103069.disfilter(c)
-	return c:IsFaceup() and c:GetSequence()<5
+function c101103069.fdfilter(c,i)
+	return c:IsFacedown() and c:GetSequence()==i
 end
 function c101103069.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101103069.disfilter,tp,0,LOCATION_MZONE,1,nil) or Duel.GetLocationCount(1-tp,LOCATION_MZONE,PLAYER_NONE,0)>0 end
-	local ct=1
-	if Duel.IsExistingMatchingCard(c101103069.cfilter,tp,LOCATION_MZONE,0,1,nil) then ct=2 end
-	local min=0
-	if Duel.GetLocationCount(1-tp,LOCATION_MZONE,PLAYER_NONE,0)<=0 then min=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectMatchingCard(tp,c101103069.disfilter,tp,0,LOCATION_MZONE,min,ct,nil)
-	ct=ct-#g
-	local dis=0
-	if ct>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE,PLAYER_NONE,0)>0 then
-		if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(101103069,0)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLEZONE)
-			dis=Duel.SelectDisableField(tp,1,0,LOCATION_MZONE,0)|dis
-		elseif #g==0 then
-			if ct==2 and Duel.GetLocationCount(1-tp,LOCATION_MZONE,PLAYER_NONE,0)>1 and Duel.SelectYesNo(tp,aux.Stringid(101103069,1)) then
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLEZONE)
-				dis=Duel.SelectDisableField(tp,2,0,LOCATION_MZONE,0)|dis
-			else
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLEZONE)
-				dis=Duel.SelectDisableField(tp,1,0,LOCATION_MZONE,0)|dis
-			end
+	local fdzone=0
+	for i=0,4 do
+		if Duel.IsExistingMatchingCard(c101103069.fdfilter,tp,0,LOCATION_MZONE,1,nil,i) then
+			fdzone=fdzone|1<<i
 		end
 	end
-	local tc=g:GetFirst()
-	while tc do
-		dis=(2^tc:GetSequence())*0x10000|dis
-		tc=g:GetNext()
+	if chk==0 then return ~fdzone&0x1f>0 end
+	local dis=Duel.SelectField(tp,1,0,LOCATION_MZONE,(fdzone|0x60)<<16)
+	if Duel.IsExistingMatchingCard(c101103069.cfilter,tp,LOCATION_MZONE,0,1,nil) and ~(fdzone|(dis>>16))&0x1f>0
+		and Duel.SelectYesNo(tp,aux.Stringid(101103069,0)) then
+		dis=dis|Duel.SelectField(tp,1,0,LOCATION_MZONE,(fdzone|(dis>>16)|0x60)<<16)
 	end
 	e:SetLabel(dis)
 	Duel.Hint(HINT_ZONE,tp,dis)