Added new card script

Author: pyrQ

pre-release/c101304048.lua

@@ -0,0 +1,71 @@
+--黒智天至イリスフィール
+--Cherubidamn Irisfiel
+--scripted by pyrQ
+local s,id=GetID()
+function s.initial_effect(c)
+	c:EnableReviveLimit()
+	--Xyz Summon procedure: 2 Level 8 monsters, OR 1 Xyz Monster you control that has not activated its effect in the Monster Zone this turn
+	Xyz.AddProcedure(c,nil,8,2,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
+	--Keep track of Xyz Monsters that have activated their effect in the Monster Zone each turn
+	aux.GlobalCheck(s,function()
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_CHAIN_SOLVED)
+		ge1:SetOperation(s.checkop)
+		Duel.RegisterEffect(ge1,0)
+	end)
+	--If this card is Xyz Summoned: You can activate this effect; this turn, Xyz Monsters you control gain ATK equal to their own Rank x 100 during the Battle Phase only
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,1))
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(function(e) return e:GetHandler():IsXyzSummoned() end)
+	e1:SetOperation(s.atkop)
+	c:RegisterEffect(e1)
+	--If this card would be destroyed by battle or card effect, you can detach 1 material from a monster you control instead
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,id)
+	e2:SetTarget(s.reptg)
+	c:RegisterEffect(e2)
+end
+s.listed_names={id}
+function s.ovfilter(c,tp,xyzc)
+	return c:IsXyzMonster() and not c:HasFlagEffect(id) and c:IsFaceup()
+end
+function s.xyzop(e,tp,chk)
+	if chk==0 then return not Duel.HasFlagEffect(tp,id) end
+	return Duel.RegisterFlagEffect(tp,id,RESET_PHASE|PHASE_END,EFFECT_FLAG_OATH,1)
+end
+function s.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if re:IsMonsterEffect() and rc:IsXyzMonster() and rc:IsRelateToEffect(re)
+		and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE then
+		rc:RegisterFlagEffect(id,RESETS_STANDARD_PHASE_END,0,1)
+	end
+end
+function s.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	aux.RegisterClientHint(c,nil,tp,1,0,aux.Stringid(id,2))
+	--This turn, Xyz Monsters you control gain ATK equal to their own Rank x 100 during the Battle Phase only
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetTarget(function(e,c) return c:IsXyzMonster() end)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetCondition(function() return Duel.IsBattlePhase() end)
+	e1:SetValue(function(e,c) return c:GetRank()*100 end)
+	e1:SetReset(RESET_PHASE|PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function s.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsReason(REASON_BATTLE|REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
+		and Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_EFFECT) end
+	return Duel.SelectEffectYesNo(tp,c,96) and Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_EFFECT)>0
+end