fix

expansions/script/c29005360.lua

---方舟骑士-伊内丝
-local m=29005360
-local cm=_G["c"..m]
-cm.named_with_Arknight=1
-function cm.initial_effect(c)
-	c:SetSPSummonOnce(29005360)
-	c:EnableCounterPermit(0x10ae)
-	if not Auxiliary.PendulumChecklist then
-		Auxiliary.PendulumChecklist=0
-		local ge1=Effect.GlobalEffect()
-		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		ge1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		ge1:SetOperation(Auxiliary.PendulumReset)
-		Duel.RegisterEffect(ge1,0)
-	end
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(1163)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC_G)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCondition(cm.PendConditionArcKnight())
-	e1:SetOperation(cm.PendOperationArcKnight())
-	e1:SetValue(SUMMON_TYPE_PENDULUM)
-	c:RegisterEffect(e1)
-	--register by default
-	if reg==nil or reg then
-		local e2=Effect.CreateEffect(c)
-		e2:SetDescription(1160)
-		e2:SetType(EFFECT_TYPE_ACTIVATE)
-		e2:SetCode(EVENT_FREE_CHAIN)
-		e2:SetRange(LOCATION_HAND)
-		e2:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-		c:RegisterEffect(e2)
-	end	
-	--Atk up
-	local e29=Effect.CreateEffect(c)
-	e29:SetType(EFFECT_TYPE_FIELD)
-	e29:SetCode(EFFECT_UPDATE_ATTACK)
-	e29:SetRange(LOCATION_MZONE)
-	e29:SetTargetRange(0,LOCATION_MZONE)
-	e29:SetValue(500)
-	e29:SetTarget(aux.TargetBoolFunction(Card.IsCode,29005360))
-	local e31=Effect.CreateEffect(c)
-	e31:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
-	e31:SetRange(LOCATION_MZONE)
-	e31:SetTargetRange(0,LOCATION_MZONE)
-	e31:SetTarget(cm.eftg)
-	e31:SetLabelObject(e29)
-	c:RegisterEffect(e31)
-	--Atk down
-	local e30=Effect.CreateEffect(c)
-	e30:SetType(EFFECT_TYPE_SINGLE)
-	e30:SetCode(EFFECT_UPDATE_ATTACK)
-	e30:SetRange(LOCATION_MZONE)
-	e30:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e30:SetValue(-500)
-	local e33=Effect.CreateEffect(c)
-	e33:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
-	e33:SetRange(LOCATION_MZONE)
-	e33:SetTargetRange(0,LOCATION_MZONE)
-	e33:SetTarget(cm.eftg)
-	e33:SetLabelObject(e30)
-	c:RegisterEffect(e33)
-	--token
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,2))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN+CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_PZONE)
-	e3:SetTarget(cm.tktg)
-	e3:SetOperation(cm.tkop)
-	c:RegisterEffect(e3)
-
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE)
-	e5:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-	--e5:SetCondition(function(e,tp) return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM|SUMMON_TYPE_NORMAL) end)
-	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e5:SetCondition(cm.rethcon)
-	e5:SetValue(LOCATION_HAND)
-	c:RegisterEffect(e5)
-end
-cm.kinkuaoi_Akscsst=true
-function cm.eftg(e,c)
-	return c:IsFaceup()
-end
-function cm.rethcon(e,tp)
-	local c=e:GetHandler()
-	return ((c:IsSummonType(SUMMON_TYPE_PENDULUM)) or (c:IsSummonType(SUMMON_TYPE_NORMAL))) and c:IsLocation(LOCATION_MZONE)
-end
-function cm.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsPlayerCanSpecialSummonMonster(tp,28674153,0,TYPES_TOKEN_MONSTER,1500,1500,6,RACE_WARRIOR,ATTRIBUTE_DARK) and e:GetHandler():IsAbleToHand() end
-	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
-end
-function cm.tkop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SendtoHand(c,nil,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_HAND) then
-	if Duel.GetFlagEffect(tp,m)==0 then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetDescription(aux.Stringid(m,0))
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
-		e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
-		e1:SetTarget(aux.TargetBoolFunction(cm.ArcKnightPCardFilter1))
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e1,tp)
-		Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-	end
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
-		or not Duel.IsPlayerCanSpecialSummonMonster(tp,m+1,0,TYPES_TOKEN_MONSTER,2800,0,7,RACE_FIEND,ATTRIBUTE_DARK) then return end
-	local token=Duel.CreateToken(tp,m+1)
-	Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-	e1:SetValue(1)
-	token:RegisterEffect(e1,true)
-	end
-end
-function cm.SetForceExtra(tp,res)
-	if forced_to_extra then
-		forced_to_extra[tp]=res
-	end
-end
-function cm.PConditionFilterArcKnight(c,e,tp,lscale,rscale,f,tc,eset)
-	local lv=0
-	if c.pendulum_level then
-		lv=c.pendulum_level
-	else
-		lv=c:GetLevel()
-	end
-	local bool=aux.PendulumSummonableBool(c)
-	return lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
-		and (Auxiliary.PendulumChecklist &(0x1<<tp)==0 or aux.PConditionExtraFilter(c,e,tp,lscale,rscale,eset))
-		and not c:IsForbidden() and (not f or f(c,tc))
-end
-function cm.GetPendulumCard(tp,seq)
-	return Duel.GetFieldCard(tp,LOCATION_PZONE,seq)
-end
-function cm.PendConditionArcKnight()
-	return  function(e,c,og,exfilter,flag)
-				if c==nil then return true end
-				local tp=c:GetControler()
-				if not exfilter then exfilter = aux.TRUE end
-				local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
-				if Auxiliary.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 and not flag then return false end
-				local rpz=cm.GetPendulumCard(tp,1)
-				if rpz==nil or c==rpz then return false end
-				local lscale=c:GetLeftScale()
-				local rscale=rpz:GetRightScale()
-				if lscale>rscale then lscale,rscale=rscale,lscale end
-				local ft=Duel.GetUsableMZoneCount(tp)
-				if ft<=0 then return false end
-				local mft=Duel.GetMZoneCount(tp)
-				cm.SetForceExtra(tp,true)
-				local eft=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
-				cm.SetForceExtra(tp,false)
-				local g=nil
-				if og then
-					g=og:Filter(aux.PConditionFilter,1,nil,e,tp,lscale,rscale,eset)
-				else
-					g=Duel.GetMatchingGroup(aux.PConditionFilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,nil,e,tp,lscale,rscale,eset)
-				end
-				local ext1={c:IsHasEffect(29036036)}
-				local ext2={rpz:IsHasEffect(29036036)} 
-				for i,te in pairs(ext1) do
-					local location,filter,maxcount=te:GetValue()()  
-					if (location==LOCATION_EXTRA and eft>0) or (location~=LOCATION_EXTRA and mft>0) then
-						local exg=Duel.GetMatchingGroup(cm.PConditionFilterArcKnight,tp,location,0,nil,e,tp,lscale,rscale,filter,te:GetHandler(),eset)
-						g:Merge(exg)
-					end
-				end
-				for i,te in pairs(ext2) do
-					local location,filter,maxcount=te:GetValue()()  
-					if (location==LOCATION_EXTRA and eft>0) or (location~=LOCATION_EXTRA and mft>0) then
-						local exg=Duel.GetMatchingGroup(cm.PConditionFilterArcKnight,tp,location,0,nil,e,tp,lscale,rscale,filter,te:GetHandler(),eset)
-						g:Merge(exg)
-					end
-				end
-				if mft<=0 then g=g:Filter(Card.IsLocation,nil,LOCATION_EXTRA) end
-				if eft<=0 then g:Remove(Card.IsLocation,nil,LOCATION_EXTRA) end
-				if exfilter then
-					g = g:Filter(exfilter,nil)
-				end
-				return #g>0
-			end
-end
-function cm.PendCheckAdditionalArcKnight(mft,maxlist)
-	return function(g)
-		if mft>0 and g:IsExists(Card.IsLocation,mft+1,nil,0xbf) then return false end
-		for loc,lct in pairs(maxlist) do
-			if lct>0 and g:IsExists(Card.IsLocation,lct+1,nil,loc) then return false end
-		end
-		return true
-	end
-end
-function cm.PendOperationArcKnight()
-	return  function(e,tp,eg,ep,ev,re,r,rp,c,sg,og,exfilter,flag)
-				local rpz=cm.GetPendulumCard(tp,1)
-				local lscale=c:GetLeftScale()
-				local rscale=rpz:GetRightScale()
-				if not exfilter then exfilter = ArkEffect_Pend_filter or aux.TRUE end
-				if lscale>rscale then lscale,rscale=rscale,lscale end
-								local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
-				local ft=Duel.GetUsableMZoneCount(tp)
-				local mft=Duel.GetMZoneCount(tp)
-				cm.SetForceExtra(tp,true)
-				local eft=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
-				cm.SetForceExtra(tp,false)
-				if Duel.IsPlayerAffectedByEffect(tp,59822133) then
-					mft=math.min(1,mft)
-					mft=math.min(1,eft)
-					ft=1
-				end
-				local tg=nil
-				local maxlist={}
-				if og then
-					tg=og:Filter(aux.PConditionFilter,1,nil,e,tp,lscale,rscale)
-				else
-					tg=Duel.GetMatchingGroup(aux.PConditionFilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,nil,e,tp,lscale,rscale,eset)
-				end
-				local ext1={c:IsHasEffect(29036036)}
-				local ext2={rpz:IsHasEffect(29036036)}  
-				for i,te in pairs(ext1) do
-					local location,filter,maxcount=te:GetValue()()
-					if (location==LOCATION_EXTRA and eft>0) or (location~=LOCATION_EXTRA and mft>0) then
-						local exg=Duel.GetMatchingGroup(cm.PConditionFilterArcKnight,tp,location,0,nil,e,tp,lscale,rscale,filter,te:GetHandler(),eset)
-						tg:Merge(exg)
-						local mct=maxcount
-						if mct and mct>0 and mct<ft then
-							maxlist[location]=mct
-						end
-					end
-				end
-				for i,te in pairs(ext2) do
-					local location,filter,maxcount=te:GetValue()()
-					if (location==LOCATION_EXTRA and eft>0) or (location~=LOCATION_EXTRA and mft>0) then
-						local exg=Duel.GetMatchingGroup(cm.PConditionFilterArcKnight,tp,location,0,nil,e,tp,lscale,rscale,filter,te:GetHandler(),eset)
-						tg:Merge(exg)
-						local mct=maxcount
-						if mct and mct>0 and mct<ft then
-							maxlist[location]=mct
-						end
-					end
-				end
-				if mft<=0 then tg=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA) end
-				if eft<=0 then tg:Remove(Card.IsLocation,nil,LOCATION_EXTRA) end
-				local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and math.min(c29724053[tp],eft) or eft
-				local left=maxlist[LOCATION_EXTRA]
-				if left then
-					maxlist[LOCATION_EXTRA]=math.min(left,ect)
-				else
-					maxlist[LOCATION_EXTRA]=ect
-				end
-				local ce=nil
-				local b1=Auxiliary.PendulumChecklist&(0x1<<tp)==0
-				local b2=#eset>0
-				if b1 and b2 then
-					local options={1163}
-					for _,te in ipairs(eset) do
-						table.insert(options,te:GetDescription())
-					end
-					local op=Duel.SelectOption(tp,table.unpack(options))
-					if op>0 then
-						ce=eset[op]
-					end
-				elseif b2 and not b1 then
-					local options={}
-					for _,te in ipairs(eset) do
-						table.insert(options,te:GetDescription())
-					end
-					local op=Duel.SelectOption(tp,table.unpack(options))
-					ce=eset[op+1]
-				end
-				if ce then
-					tg=tg:Filter(aux.PConditionExtraFilterSpecific,nil,e,tp,lscale,rscale,ce)
-				end
-				if exfilter then
-					tg = tg:Filter(exfilter,nil)
-				end
-				Auxiliary.GCheckAdditional=cm.PendCheckAdditionalArcKnight(mft,maxlist)
-				Duel.Hint(tp,HINT_SELECTMSG,desc)
-				local g=tg:SelectSubGroup(tp,aux.TRUE,true,1,ft)
-				Auxiliary.GCheckAdditional=nil
-				if not g then return end
-				if ce then
-					Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
-					ce:Reset()
-				elseif ArkEffect_Pend then
-					ArkEffect_Pend = false
-				else
-					Auxiliary.PendulumChecklist=Auxiliary.PendulumChecklist|(0x1<<tp)
-				end
-				sg:Merge(g)
-				Duel.HintSelection(Group.FromCards(c))
-				Duel.HintSelection(Group.FromCards(rpz))
-				cm.SetForceExtra(tp,true)
-			end
-end
-function cm.ArcKnightPCardFilter(c)
-	return (c:IsSetCard(0x87af) or (_G["c"..c:GetCode()] and  _G["c"..c:GetCode()].named_with_Arknight)) and c:IsType(TYPE_PENDULUM)
-end
-function cm.ArcKnightPCardFilter1(c)
-	return (c:IsSetCard(0x87af) or (_G["c"..c:GetCode()] and  _G["c"..c:GetCode()].named_with_Arknight))
-end
-function cm.ArcKnightPCardCheck(e)
-	return Duel.IsExistingMatchingCard(cm.ArcKnightPCardFilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler())
-end

expansions/script/c29005361.lua

---影哨衍生物
-function c29005361.initial_effect(c)
-	
-end

expansions/script/c29092320.lua

---方舟骑士团-逻各斯
-function c29092320.initial_effect(c)
---xyz summon
-	aux.AddXyzProcedure(c,nil,6,2)
-	c:EnableReviveLimit()
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(29092320,0))
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,29092320)
-	e1:SetCondition(c29092320.thcon)
-	e1:SetTarget(c29092320.thtg)
-	e1:SetOperation(c29092320.thop)
-	c:RegisterEffect(e1)
-	--殁亡
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_REMOVE)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,29092321)
-	e2:SetCost(c29092320.tgco)
-	e2:SetTarget(c29092320.tgtg)
-	e2:SetOperation(c29092320.tgop)
-	c:RegisterEffect(e2)
-	--remove
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-	e3:SetCode(EFFECT_TO_GRAVE_REDIRECT)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTarget(c29092320.rmtarget)
-	e3:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
-	e3:SetValue(LOCATION_REMOVED)
-	c:RegisterEffect(e3)
-end
---xyz summon
-function c29092320.mfilter(c,xyzc)
-	local b1=c:IsSetCard(0x87af)
-	local b2=c:IsXyzLevel(xyzc,5)
-	local b3=c:IsXyzLevel(xyzc,6)
-	return b1 and (b2 or b3)
-end
---e1
-function c29092320.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
-end
-function c29092320.thfilter(c)
-	return c:IsSetCard(0x87af) and c:IsAbleToHand() and c:IsType(TYPE_SPELL)
-end
-function c29092320.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c29092320.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c29092320.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c29092320.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
---e2
-function c29092320.tgco(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c29092320.tgfilter(c,atk)
-	return c:IsFaceup() and c:IsAttackBelow(atk) and c:IsAbleToRemove()
-end
-function c29092320.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.IsExistingMatchingCard(c29092320.tgfilter,tp,0,LOCATION_MZONE,1,c,c:GetAttack()) end
-	local g=Duel.GetMatchingGroup(c29092320.tgfilter,tp,0,LOCATION_MZONE,c,c:GetAttack())
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
-end
-function c29092320.tgop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
-	local g=Duel.GetMatchingGroup(c29092320.tgfilter,tp,0,LOCATION_MZONE,c,c:GetAttack())
-	if #g>0 then
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-	end
-end
---e3
-function c29092320.rmtarget(e,c)
-	return c:IsType(TYPE_MONSTER) and c:GetOwner()~=e:GetHandlerPlayer()
-end
\ No newline at end of file

expansions/script/c9911607.lua

@@ -81,9 +81,10 @@ end
 function c9911607.spop(e,tp,eg,ep,ev,re,r,rp)
 	local count=2
 	while count>0 do
+		Duel.AdjustAll()
 		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-			and Duel.IsExistingMatchingCard(c9911607.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) and
-			(count==2 or Duel.SelectYesNo(tp,aux.Stringid(9911607,0))) then
+			and Duel.IsExistingMatchingCard(c9911607.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp)
+			and (count==2 or Duel.SelectYesNo(tp,aux.Stringid(9911607,0))) then
 			if count<2 then Duel.BreakEffect() end
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 			local g=Duel.SelectMatchingCard(tp,c9911607.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)