1145141919810

expansions/script/c33380000.lua

@@ -20,10 +20,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:SetLabel(1)
 	return true

expansions/script/c33380001.lua

@@ -20,10 +20,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e4)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil)and Duel.GetFlagEffect(tp,m)==0 end
 	Duel.RegisterFlagEffect(tp,m,RESET_CHAIN,0,1)

expansions/script/c33380002.lua

@@ -21,10 +21,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.atkfilter1(c,tp)
 	return Duel.IsExistingTarget(cm.atkfilter2,tp,LOCATION_MZONE,0,1,c)
 end

expansions/script/c33380004.lua

@@ -28,10 +28,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.thfilter(c,tid)
 	return c:GetTurnID()==tid and not c:IsReason(REASON_RETURN) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
 end

expansions/script/c33500988.lua

@@ -30,12 +30,8 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e5)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.anna(c)
-	return cm.IsShirayukiAnna(c) and c:IsType(TYPE_LINK)
+	return c.is_named_with_shirayukianna and c:IsType(TYPE_LINK)
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return not Duel.IsExistingMatchingCard(cm.anna,tp,LOCATION_MZONE,0,1,nil)
@@ -46,7 +42,7 @@ function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
 end
 function cm.spfilter(c,e,tp)
-	return cm.IsShirayukiAnna(c) and c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+	return c.is_named_with_shirayukianna and c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
 end
 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetMatchingGroupCount(Card.IsAbleToHand,tp,LOCATION_MZONE,0,nil)>0

expansions/script/c81002080.lua

 --双色的华恋
-function c81002080.initial_effect(c)
+local m=81002080
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	aux.AddCodeList(c,81002000)
 	--activate
 	local e1=Effect.CreateEffect(c)
@@ -8,8 +10,8 @@ function c81002080.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMING_END_PHASE)
-	e1:SetTarget(c81002080.target)
-	e1:SetOperation(c81002080.activate)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 	--shuffle and draw
 	local e2=Effect.CreateEffect(c)
@@ -18,26 +20,22 @@ function c81002080.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c81002080.tdtg)
-	e2:SetOperation(c81002080.tdop)
+	e2:SetTarget(cm.tdtg)
+	e2:SetOperation(cm.tdop)
 	c:RegisterEffect(e2)
 end
-function c81002080.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
-function c81002080.filter(c,e,tp)
+function cm.filter(c,e,tp)
 	return c:IsType(TYPE_MONSTER) and (aux.IsCodeListed(c,81002000) or c:IsCode(81002000)) and (c:IsFaceup() or not c:IsLocation(LOCATION_MZONE))
-		and c:IsAbleToRemove() and Duel.IsExistingMatchingCard(c81002080.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c)
+		and c:IsAbleToRemove() and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c)
 end
-function c81002080.spfilter(c,e,tp,rc)
-	return c81002080.IsShirayukiAnna(c) and c:IsLinkBelow(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,rc,c)>0
+function cm.spfilter(c,e,tp,rc)
+	return c.is_named_with_shirayukianna and c:IsLinkBelow(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,rc,c)>0
 end
-function c81002080.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_MZONE) and chkc:IsControler(tp) and c81002080.filter(chkc,e,tp) end
-	if chk==0 then return Duel.IsExistingTarget(c81002080.filter,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,nil,e,tp) end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter(chkc,e,tp) end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,nil,e,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectTarget(tp,c81002080.filter,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,1,nil,e,tp)
+	local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,1,nil,e,tp)
 	if g:GetFirst():IsLocation(LOCATION_GRAVE) then
 		Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,tp,LOCATION_GRAVE)
 	else
@@ -45,29 +43,29 @@ function c81002080.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
-function c81002080.activate(e,tp,eg,ep,ev,re,r,rp)
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) and Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,c81002080.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
 		if g:GetCount()>0 then
 			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 		end
 	end
 end
-function c81002080.tdfilter(c)
-	return (c81002080.IsShirayukiAnna(c) or aux.IsCodeListed(c,81002000) or c:IsCode(81002000)) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
+function cm.tdfilter(c)
+	return (c.is_named_with_shirayukianna or aux.IsCodeListed(c,81002000) or c:IsCode(81002000)) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
 end
-function c81002080.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and c81002080.tdfilter(chkc) end
+function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
-		and Duel.IsExistingTarget(c81002080.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil) end
+		and Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectTarget(tp,c81002080.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,3,nil)
+	local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,3,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,3,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
 end
-function c81002080.tdop(e,tp,eg,ep,ev,re,r,rp)
+function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
 	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
 	if tg:GetCount()<=0 then return end
 	Duel.SendtoDeck(tg,nil,0,REASON_EFFECT)

expansions/script/c81007000.lua

@@ -45,10 +45,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end

expansions/script/c81007001.lua

@@ -30,10 +30,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.atkfilter(c,e)
 	return c:IsRace(RACE_SPELLCASTER) and c:IsType(TYPE_LINK) and (c:IsLocation(LOCATION_GRAVE) or (c:IsLocation(LOCATION_REMOVED) and c:IsFaceup()))
 		and c:IsCanBeEffectTarget(e)

expansions/script/c81007002.lua

@@ -30,10 +30,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_FZONE,LOCATION_FZONE,1,nil) end
 	local g=Duel.GetMatchingGroup(nil,tp,LOCATION_FZONE,LOCATION_FZONE,nil)

expansions/script/c81007003.lua

@@ -28,10 +28,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.matfilter(c)
 	return c:IsLinkType(TYPE_EFFECT) and c:IsLinkAttribute(ATTRIBUTE_WIND)
 end

expansions/script/c81007004.lua

@@ -33,10 +33,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetCurrentChain()>2 and Duel.CheckChainUniqueness()
 end

expansions/script/c81007005.lua

@@ -30,10 +30,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)  
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK) or e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+SUMMON_VALUE_SELF
 end

expansions/script/c81007006.lua

@@ -40,10 +40,6 @@ function cm.initial_effect(c)
 end
 cm.pendulum_level=3
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.counterfilter(c)
 	return c:IsRace(RACE_SPELLCASTER)
 end

expansions/script/c81007007.lua

@@ -34,10 +34,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.tdcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end

expansions/script/c81007008.lua

@@ -28,10 +28,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.lcheck(g)
 	return g:GetClassCount(Card.GetLinkAttribute)==1
 end

expansions/script/c81007010.lua

@@ -38,10 +38,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e5)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.lcheck(g)
 	return g:IsExists(Card.IsLevel,1,nil,1)
 end

expansions/script/c81007012.lua

@@ -32,10 +32,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.mfilter(c)
 	return c:IsLevel(4)
 end

expansions/script/c81007013.lua

@@ -31,10 +31,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.mfilter(c)
 	return c:IsLinkType(TYPE_LINK)
 end

expansions/script/c81007014.lua

@@ -32,10 +32,6 @@ function cm.initial_effect(c)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_ATTACK,cm.counterfilter)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.counterfilter(c)
 	return bit.band(c:GetType(),0x81)==0x81
 end

expansions/script/c81007015.lua

@@ -30,10 +30,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end

expansions/script/c81007016.lua

@@ -39,10 +39,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.matfilter(c)
 	return c:IsLevel(1) and c:IsAttack(500)
 end

expansions/script/c81007017.lua

@@ -32,6 +32,7 @@ function cm.initial_effect(c)
 	e3:SetCode(EVENT_TO_DECK)
 	c:RegisterEffect(e3)
 end
+cm.is_named_with_shirayukianna=1
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
 	local ph=Duel.GetCurrentPhase()
 	return  Duel.GetTurnPlayer()==tp and Duel.GetCurrentChain()==0 and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)

expansions/script/c81007018.lua

@@ -31,10 +31,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.spcost(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)

expansions/script/c81007020.lua

@@ -36,10 +36,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.subcon(e)
 	return e:GetHandler():IsLocation(LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 end

expansions/script/c81007021.lua

@@ -29,10 +29,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 cm.is_named_with_shirayukianna=1
-function cm.IsShirayukiAnna(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_shirayukianna
-end
 function cm.mfilter(c,xyzc)
 	return c:IsXyzType(TYPE_LINK) and c:IsRace(RACE_SPELLCASTER) and c:GetBaseAttack()==2400
 end