new

expansions/script/c37564349.lua

+--Another Infinity
+local m=37564349
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/c37564765") end,function() require("script/c37564765") end)
+function cm.initial_effect(c)
+	Senya.AddSummonMusic(c,m*16)
+	c:EnableReviveLimit()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e1)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(function(e,c)
+		if c==nil then return true end
+		return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE+LOCATION_HAND,0,nil)<=1
+			and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+	end)
+	c:RegisterEffect(e1)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTarget(cm.target1)
+	e3:SetOperation(cm.operation1)
+	c:RegisterEffect(e3)
+	local ex1=Effect.CreateEffect(c)
+	ex1:SetType(EFFECT_TYPE_FIELD)
+	ex1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	ex1:SetRange(LOCATION_MZONE)
+	ex1:SetCode(EFFECT_CANNOT_LOSE_KOISHI)
+	ex1:SetTargetRange(1,0)
+	ex1:SetValue(1)
+	c:RegisterEffect(ex1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_ADJUST)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetLabel(Senya.order_table_new({}))
+	e2:SetOperation(cm.op)
+	c:RegisterEffect(e2)
+	local ex=Effect.CreateEffect(c)
+	ex:SetType(EFFECT_TYPE_SINGLE)
+	ex:SetCode(m)
+	ex:SetRange(LOCATION_MZONE)
+	ex:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SINGLE_RANGE)
+	c:RegisterEffect(ex)
+	local ex=Effect.CreateEffect(c)
+	ex:SetType(EFFECT_TYPE_SINGLE)
+	ex:SetCode(m-1000)
+	ex:SetRange(LOCATION_MZONE)
+	ex:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	c:RegisterEffect(ex)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetAttacker()
+	return tc:GetControler()==1-tp and tc:IsAttackAbove(Duel.GetLP(tp)) and Duel.GetAttackTarget()==nil
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)~=0 then
+		c:CompleteProcedure()
+	end
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLP(tp)>0 end
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() and not c:IsImmuneToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_BASE_ATTACK)
+		e1:SetValue(Duel.GetLP(tp))
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_BASE_DEFENSE)
+		e1:SetValue(Duel.GetLP(tp))
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+		Duel.SetLP(tp,0)
+	end
+end
+function cm.copyfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_EFFECT) and not c:IsType(TYPE_TRAPMONSTER) and not c:IsHasEffect(m)
+end
+function cm.gfilter(c,g)
+	if not g then return true end
+	return not g:IsContains(c)
+end
+function cm.gfilter1(c,g)
+	if not g then return true end
+	return not g:IsExists(cm.gfilter2,1,nil,c:GetOriginalCode())
+end
+function cm.gfilter2(c,code)
+	return c:GetOriginalCode()==code
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local copyt=Senya.order_table[e:GetLabel()]
+	local exg=Group.CreateGroup()
+	for tc,cid in pairs(copyt) do
+		if tc and cid then exg:AddCard(tc) end
+	end
+	local g=Duel.GetMatchingGroup(cm.copyfilter,tp,0,LOCATION_MZONE,nil)
+	local dg=exg:Filter(cm.gfilter,nil,g)
+	for tc in aux.Next(dg) do
+		c:ResetEffect(copyt[tc],RESET_COPY)
+		exg:RemoveCard(tc)
+		copyt[tc]=nil
+	end
+	local cg=g:Filter(cm.gfilter1,nil,exg)
+	local f=Card.RegisterEffect
+	Card.RegisterEffect=function(tc,e,forced)
+		e:SetCondition(cm.rcon(e:GetCondition(),tc,copyt))
+		e:SetCost(cm.rcost(e:GetCost()))
+		if e:IsHasType(EFFECT_TYPE_IGNITION) then
+			e:SetType((e:GetType()-EFFECT_TYPE_IGNITION | EFFECT_TYPE_QUICK_O))
+			e:SetCode(EVENT_FREE_CHAIN)
+			e:SetHintTiming(0,0x1c0)
+		end
+		f(tc,e,forced)
+	end
+	for tc in aux.Next(cg) do
+		copyt[tc]=c:CopyEffect(tc:GetOriginalCode(),RESET_EVENT+0x1fe0000,1)
+	end
+	Card.RegisterEffect=f
+end
+function cm.rcon(con,tc,copyt)
+	return function(e,tp,eg,ep,ev,re,r,rp)
+		local c=e:GetHandler()
+		if not c:IsHasEffect(m-1000) then
+			c:ResetEffect(c,copyt[tc],RESET_COPY)
+			copyt[tc]=nil
+			return false
+		end
+		return not con or con(e,tp,eg,ep,ev,re,r,rp) or e:IsHasType(0x7e0)
+	end
+end
+function cm.rcost(cost)
+	return function(e,tp,eg,ep,ev,re,r,rp,chk)
+		if chk==0 then return not cost or cost(e,tp,eg,ep,ev,re,r,rp,0) or e:IsHasType(0x7e0) end
+		return not cost or e:IsHasType(0x7e0) or cost(e,tp,eg,ep,ev,re,r,rp,1)
+	end
+end
\ No newline at end of file