pres

expansions/script/c101003007.lua

@@ -8,7 +8,6 @@ function c101003007.initial_effect(c)
 	e1:SetCategory(CATEGORY_DESTROY)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_CHAINING)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,101003007)
 	e1:SetCondition(c101003007.descon)

expansions/script/c101003014.lua

@@ -28,33 +28,25 @@ function c101003014.initial_effect(c)
 	e3:SetCondition(c101003014.thcon)
 	c:RegisterEffect(e3)
 end
-function c101003014.cfilter(c,tp,seq)
-	local s=c:GetSequence()
-	if c:IsLocation(LOCATION_SZONE) and s==5 then return false end
-	if c:IsControler(tp) then
-		return s==seq or (seq==1 and s==5) or (seq==3 and s==6)
-	else
-		return s==4-seq or (seq==1 and s==6) or (seq==3 and s==5)
-	end
+function c101003014.cfilter(c)
+	return c:GetColumnGroupCount()>0
 end
 function c101003014.hspcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003014.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003014.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
 end
 function c101003014.hspval(e,c)
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003014.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003014.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return 0,zone
 end

expansions/script/c101003015.lua

@@ -25,33 +25,25 @@ function c101003015.initial_effect(c)
 	e2:SetOperation(c101003015.thop)
 	c:RegisterEffect(e2)
 end
-function c101003015.cfilter(c,tp,seq)
-	local s=c:GetSequence()
-	if c:IsLocation(LOCATION_SZONE) and s==5 then return false end
-	if c:IsControler(tp) then
-		return s==seq or (seq==1 and s==5) or (seq==3 and s==6)
-	else
-		return s==4-seq or (seq==1 and s==6) or (seq==3 and s==5)
-	end
+function c101003015.cfilter(c)
+	return c:GetColumnGroupCount()>0
 end
 function c101003015.hspcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003015.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003015.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
 end
 function c101003015.hspval(e,c)
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003015.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003015.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return 0,zone
 end

expansions/script/c101003016.lua

@@ -25,42 +25,37 @@ function c101003016.initial_effect(c)
 	e2:SetOperation(c101003016.spop)
 	c:RegisterEffect(e2)
 end
-function c101003016.cfilter(c,tp,seq)
-	local s=c:GetSequence()
-	if c:IsLocation(LOCATION_SZONE) and s==5 then return false end
-	if c:IsControler(tp) then
-		return s==seq or (seq==1 and s==5) or (seq==3 and s==6)
-	else
-		return s==4-seq or (seq==1 and s==6) or (seq==3 and s==5)
-	end
+function c101003016.cfilter(c)
+	return c:GetColumnGroupCount()>0
 end
 function c101003016.hspcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003016.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003016.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
 end
 function c101003016.hspval(e,c)
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003016.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003016.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return 0,zone
 end
-function c101003016.spcfilter(c,tp,seq)
-	local s=c:GetPreviousSequence()
-	return c:GetPreviousControler()~=tp and (s==4-seq or (seq==1 and s==6) or (seq==3 and s==5))
+function c101003016.spcfilter(c,tp,zone)
+	if c:GetPreviousControler()==tp or not zone then return false end
+	local seq=c:GetPreviousSequence()+16
+	return bit.extract(zone,seq)~=0
 end
 function c101003016.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c101003016.spcfilter,1,nil,tp,e:GetHandler():GetSequence())
+	local c=e:GetHandler()
+	local zone=bit.bor(0,c:GetColumnZone(LOCATION_MZONE),c:GetColumnZone(LOCATION_SZONE))
+	return eg:IsExists(c101003016.spcfilter,1,nil,tp,zone)
 end
 function c101003016.filter(c,e,tp)
 	return c:IsSetCard(0x20c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c101003017.lua

@@ -24,33 +24,25 @@ function c101003017.initial_effect(c)
 	e3:SetOperation(c101003017.operation)
 	c:RegisterEffect(e3)
 end
-function c101003017.cfilter(c,tp,seq)
-	local s=c:GetSequence()
-	if c:IsLocation(LOCATION_SZONE) and s==5 then return false end
-	if c:IsControler(tp) then
-		return s==seq or (seq==1 and s==5) or (seq==3 and s==6)
-	else
-		return s==4-seq or (seq==1 and s==6) or (seq==3 and s==5)
-	end
+function c101003017.cfilter(c)
+	return c:GetColumnGroupCount()>0
 end
 function c101003017.hspcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003017.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003017.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
 end
 function c101003017.hspval(e,c)
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003017.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003017.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return 0,zone
 end

expansions/script/c101003018.lua

@@ -24,33 +24,25 @@ function c101003018.initial_effect(c)
 	e3:SetOperation(c101003018.operation)
 	c:RegisterEffect(e3)
 end
-function c101003018.cfilter(c,tp,seq)
-	local s=c:GetSequence()
-	if c:IsLocation(LOCATION_SZONE) and s==5 then return false end
-	if c:IsControler(tp) then
-		return s==seq or (seq==1 and s==5) or (seq==3 and s==6)
-	else
-		return s==4-seq or (seq==1 and s==6) or (seq==3 and s==5)
-	end
+function c101003018.cfilter(c)
+	return c:GetColumnGroupCount()>0
 end
 function c101003018.hspcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003018.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003018.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
 end
 function c101003018.hspval(e,c)
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003018.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003018.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return 0,zone
 end

expansions/script/c101003020.lua

@@ -25,33 +25,25 @@ function c101003020.initial_effect(c)
 	e2:SetOperation(c101003020.thop)
 	c:RegisterEffect(e2)
 end
-function c101003020.cfilter(c,tp,seq)
-	local s=c:GetSequence()
-	if c:IsLocation(LOCATION_SZONE) and s==5 then return false end
-	if c:IsControler(tp) then
-		return s==seq or (seq==1 and s==5) or (seq==3 and s==6)
-	else
-		return s==4-seq or (seq==1 and s==6) or (seq==3 and s==5)
-	end
+function c101003020.cfilter(c)
+	return c:GetColumnGroupCount()>0
 end
 function c101003020.hspcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003020.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003020.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
 end
 function c101003020.hspval(e,c)
 	local tp=c:GetControler()
 	local zone=0
-	for i=0,4 do
-		if Duel.GetMatchingGroupCount(c101003020.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
-			zone=zone+math.pow(2,i)
-		end
+	local lg=Duel.GetMatchingGroup(c101003020.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetColumnZone(LOCATION_MZONE))
 	end
 	return 0,zone
 end