eme

expansions/script/c26806074.lua

@@ -9,13 +9,7 @@ function cm.initial_effect(c)
 	e0:SetCode(EVENT_FREE_CHAIN)
 	c:RegisterEffect(e0)
 	--change
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_SZONE+LOCATION_GRAVE)
-	e1:SetValue(26806000)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,26806000,LOCATION_SZONE+LOCATION_GRAVE)
 	--extra summon
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_IGNITION)

expansions/script/c26806076.lua

@@ -30,13 +30,7 @@ function cm.initial_effect(c)
 	e3:SetCondition(cm.tgcon)
 	c:RegisterEffect(e3)
 	--change
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e4:SetCode(EFFECT_CHANGE_CODE)
-	e4:SetRange(LOCATION_ONFIELD+LOCATION_GRAVE)
-	e4:SetValue(26806000)
-	c:RegisterEffect(e4)
+	aux.EnableChangeCode(c,26806000,LOCATION_ONFIELD+LOCATION_GRAVE)
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0

expansions/script/c26807006.lua

@@ -10,13 +10,7 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	c:RegisterEffect(e1)
 	--Code Change
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetRange(LOCATION_SZONE)
-	e0:SetValue(81010004)
-	c:RegisterEffect(e0)
+	aux.EnableChangeCode(c,81010004,LOCATION_SZONE)
 	--to hand
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))

expansions/script/c26812015.lua

@@ -4,13 +4,7 @@ local cm=_G["c"..m]
 Duel.LoadScript("c26800000.lua")
 function cm.initial_effect(c)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(33374561)
-	c:RegisterEffect(e0)
+	aux.EnableChangeCode(c,33374561,LOCATION_MZONE+LOCATION_GRAVE)
 	--summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))

expansions/script/c26821013.lua

@@ -8,13 +8,7 @@ function cm.initial_effect(c)
 	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),7,2)
 	c:EnableReviveLimit()
 	--code
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e1:SetValue(26821000)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,26821000,LOCATION_MZONE+LOCATION_GRAVE)
 	--destroy
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)

expansions/script/c26821014.lua

@@ -7,14 +7,7 @@ function cm.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,nil,7,3)
 	c:EnableReviveLimit()
-	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(26821000)
-	c:RegisterEffect(e0)
+	aux.EnableChangeCode(c,26821000,LOCATION_MZONE+LOCATION_GRAVE)
 	--banish extra
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_REMOVE)

expansions/script/c26821015.lua

@@ -8,13 +8,7 @@ function cm.initial_effect(c)
 	aux.AddLinkProcedure(c,cm.mfilter,2)
 	c:EnableReviveLimit()
 	--code
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e1:SetValue(26821000)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,26821000,LOCATION_MZONE+LOCATION_GRAVE)
 	--disable
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_DESTROY)

expansions/script/c26821020.lua

@@ -7,14 +7,7 @@ function cm.initial_effect(c)
 	--link summon
 	c:EnableReviveLimit()
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_BEAST),2)
-	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(26821000)
-	c:RegisterEffect(e0)
+	aux.EnableChangeCode(c,26821000,LOCATION_MZONE+LOCATION_GRAVE)
 	--handes
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_HANDES)

expansions/script/c28315000.lua

@@ -5,14 +5,6 @@ function cm.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,nil,8,2,nil,nil,99)
 	c:EnableReviveLimit()
-	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(28315001)
-	c:RegisterEffect(e0)
 	--announce
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))

expansions/script/c81000000.lua

@@ -80,13 +80,7 @@ end
 function Tenka.Asamiya(c)
 	c:EnableReviveLimit()
 	aux.AddCodeList(c,81027000)
-	local ea=Effect.CreateEffect(c)
-	ea:SetType(EFFECT_TYPE_SINGLE)
-	ea:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	ea:SetCode(EFFECT_CHANGE_CODE)
-	ea:SetRange(LOCATION_MZONE+LOCATION_HAND)
-	ea:SetValue(81027000)
-	c:RegisterEffect(ea)
+	aux.EnableChangeCode(c,81027000,LOCATION_MZONE+LOCATION_HAND)
 end
 --
 function Tenka.Einstein(c)

expansions/script/c81002001.lua

@@ -4,13 +4,7 @@ local cm=_G["c"..m]
 function cm.initial_effect(c)
 	aux.AddCodeList(c,81002000)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))

expansions/script/c81002003.lua

@@ -14,13 +14,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.spop)
 	c:RegisterEffect(e0)
 	--code
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e1:SetValue(81002000)
-	c:RegisterEffect(e1)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--special summon
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_QUICK_O)

expansions/script/c81002004.lua

@@ -5,13 +5,7 @@ Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
 	aux.AddCodeList(c,81002000)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)

expansions/script/c81002005.lua

@@ -14,13 +14,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.spop)
 	c:RegisterEffect(e0)
 	--code
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e1:SetValue(81002000)
-	c:RegisterEffect(e1)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--tohand
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_DECKDES)

expansions/script/c81002006.lua

@@ -6,13 +6,7 @@ cm.named_with_Urban=true
 function cm.initial_effect(c)
 	aux.AddCodeList(c,81002000)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_ADD_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--draw
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW)

expansions/script/c81002007.lua

@@ -6,13 +6,7 @@ cm.named_with_Urban=true
 function cm.initial_effect(c)
 	aux.AddCodeList(c,81002000)
 	--code
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_ADD_CODE)
-	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e1:SetValue(81002000)
-	c:RegisterEffect(e1)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--spsummon
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)

expansions/script/c81002008.lua

@@ -6,13 +6,7 @@ cm.named_with_Urban=true
 function cm.initial_effect(c)
 	aux.AddCodeList(c,81002000)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_ADD_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--tohand
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)

expansions/script/c81002009.lua

@@ -8,13 +8,7 @@ function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	aux.AddFusionProcCode2(c,81002000,1110196,true,true)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_ADD_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--spsummon condition
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c81002011.lua

@@ -8,13 +8,7 @@ function cm.initial_effect(c)
 	aux.AddXyzProcedure(c,nil,8,2,cm.ovfilter,aux.Stringid(m,0))
 	c:EnableReviveLimit()
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--xyzlimit
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c81002012.lua

@@ -8,13 +8,7 @@ function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	aux.AddCodeList(c,81002000)
 	--code
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e1:SetValue(81002000)
-	c:RegisterEffect(e1)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--search
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)

expansions/script/c81002013.lua

@@ -9,13 +9,7 @@ function cm.initial_effect(c)
 	aux.AddSynchroProcedure(c,cm.sfilter,aux.NonTuner(nil),1)
 	c:EnableReviveLimit()
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_ADD_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)

expansions/script/c81002014.lua

@@ -10,13 +10,7 @@ function cm.initial_effect(c)
 	aux.AddSynchroMixProcedure(c,aux.FilterBoolFunction(Card.IsCode,81002000),nil,nil,cm.mfilter,1,1)
 	c:EnableReviveLimit()
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_ADD_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_IGNITION)

expansions/script/c81002015.lua

@@ -37,7 +37,7 @@ function cm.initial_effect(c)
 	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e5:SetProperty(EFFECT_FLAG_DELAY)
 	e5:SetCode(EVENT_DESTROYED)
-	e5:SetCountLimit(1,81011947)
+	e5:SetCountLimit(1,m+900)
 	e5:SetCondition(cm.setcon)
 	e5:SetTarget(cm.settg)
 	e5:SetOperation(cm.setop)

expansions/script/c81002016.lua

@@ -5,13 +5,7 @@ xpcall(function() require("expansions/script/c1110198") end,function() require("
 function cm.initial_effect(c)
 	aux.AddCodeList(c,81002000)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)

expansions/script/c81002017.lua

@@ -9,13 +9,7 @@ function cm.initial_effect(c)
 	aux.AddSynchroProcedure(c,nil,aux.FilterBoolFunction(Card.IsCode,81002000),1,1)
 	c:EnableReviveLimit()
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81002000)
-	c:RegisterEffect(e0)
+    aux.EnableChangeCode(c,81002000,LOCATION_MZONE+LOCATION_GRAVE)
 	--negate
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))

expansions/script/c81008099.lua

@@ -11,13 +11,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.sumsuc)
 	c:RegisterEffect(e1)
 	--change
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetCode(EFFECT_CHANGE_CODE)
-	e2:SetRange(LOCATION_FZONE+LOCATION_GRAVE)
-	e2:SetValue(81010004)
-	c:RegisterEffect(e2)
+	aux.EnableChangeCode(c,81010004,LOCATION_MZONE+LOCATION_GRAVE)
 	--search
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)

expansions/script/c81009006.lua

@@ -9,13 +9,7 @@ function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	Tenka.PyroLink(c)
 	--change name
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetCode(EFFECT_CHANGE_CODE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetValue(81009000)
-	c:RegisterEffect(e2)
+	aux.EnableChangeCode(c,81009000,LOCATION_MZONE)
 	--
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(m,0))

expansions/script/c81009007.lua

@@ -9,13 +9,7 @@ function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	Tenka.PyroLink(c)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(81009000)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81009000,LOCATION_MZONE)
 	--material
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))

expansions/script/c81009026.lua

@@ -9,13 +9,7 @@ function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	Tenka.PyroLink(c)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(81009000)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81009000,LOCATION_MZONE)
 	--Unclassified Effect as material
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(m,1))

expansions/script/c81010001.lua

@@ -10,13 +10,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.sumsuc)
 	c:RegisterEffect(e0)
 	--change
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_FZONE+LOCATION_GRAVE)
-	e1:SetValue(81010004)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81010004,LOCATION_MZONE+LOCATION_GRAVE)
 	--tograve
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))

expansions/script/c81010002.lua

@@ -11,13 +11,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.sumsuc)
 	c:RegisterEffect(e0)
 	--change
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_FZONE+LOCATION_GRAVE)
-	e1:SetValue(81010004)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81010004,LOCATION_MZONE+LOCATION_GRAVE)
 	--spsummon
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)

expansions/script/c81010003.lua

 --水晶之泪
 function c81010003.initial_effect(c)
 	aux.AddCodeList(c,81010004)
-	--change
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_FZONE+LOCATION_GRAVE)
-	e0:SetValue(81010004)
-	c:RegisterEffect(e0)
+	aux.EnableChangeCode(c,81010004,LOCATION_MZONE+LOCATION_GRAVE)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)

expansions/script/c81011129.lua

@@ -3,13 +3,7 @@ function c81011129.initial_effect(c)
 	--Activate
 	aux.AddRitualProcGreater2(c,c81011129.filter,nil,c81011129.mfilter,c81011129.mfilter)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_REMOVED+LOCATION_GRAVE)
-	e1:SetValue(81011107)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81011107,LOCATION_REMOVED+LOCATION_GRAVE)
 	--to hand
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_TOKEN)

expansions/script/c81026070.lua

@@ -3,15 +3,10 @@ local m=81026070
 local cm=_G["c"..m]
 Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
+	aux.AddCodeList(c,33334568)
 	aux.AddRitualProcGreater2(c,cm.ritual_filter)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
-	e1:SetValue(33334568)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,33334568,LOCATION_GRAVE+LOCATION_REMOVED)
 	--draw
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))

expansions/script/c81041016.lua

@@ -24,13 +24,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
 	--change name
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetCode(EFFECT_CHANGE_CODE)
-	e2:SetRange(LOCATION_REMOVED)
-	e2:SetValue(81041005)
-	c:RegisterEffect(e2)
+	aux.EnableChangeCode(c,81041005,LOCATION_REMOVED)
 end
 cm.Attack_Defense_Listed=1
 function cm.Mayumi(c)

expansions/script/c81041023.lua

@@ -13,13 +13,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.rsop)
 	c:RegisterEffect(e0)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetValue(81041005)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81041005,LOCATION_GRAVE)
 	--set
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_TODECK)

expansions/script/c81041033.lua

@@ -13,13 +13,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.rsop)
 	c:RegisterEffect(e0)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_GRAVE+LOCATION_HAND)
-	e1:SetValue(81041005)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81041005,LOCATION_GRAVE+LOCATION_HAND)
 	--spsummon
 	local e4=Effect.CreateEffect(c)
 	e4:SetCategory(CATEGORY_TOHAND)

expansions/script/c81041036.lua

@@ -12,13 +12,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.rsop)
 	c:RegisterEffect(e0)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
-	e1:SetValue(81041005)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81041005,LOCATION_GRAVE+LOCATION_REMOVED)
 	--to deck
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_TODECK)

expansions/script/c81041056.lua

@@ -27,13 +27,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.atkop)
 	c:RegisterEffect(e1)
 	--change name
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetCode(EFFECT_CHANGE_CODE)
-	e2:SetRange(LOCATION_REMOVED)
-	e2:SetValue(81041005)
-	c:RegisterEffect(e2)
+	aux.EnableChangeCode(c,81041005,LOCATION_REMOVED)
 	--act in hand
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c81041058.lua

@@ -13,13 +13,7 @@ function cm.initial_effect(c)
 	e0:SetOperation(cm.activate)
 	c:RegisterEffect(e0)
 	--change name
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_CODE)
-	e1:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
-	e1:SetValue(81041005)
-	c:RegisterEffect(e1)
+	aux.EnableChangeCode(c,81041005,LOCATION_GRAVE+LOCATION_REMOVED)
 	--material
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)

expansions/script/c81048018.lua

@@ -13,13 +13,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 	--change name
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetCode(EFFECT_CHANGE_CODE)
-	e2:SetRange(LOCATION_GRAVE+LOCATION_HAND)
-	e2:SetValue(33310200)
-	c:RegisterEffect(e2)
+	aux.EnableChangeCode(c,33310200,LOCATION_GRAVE+LOCATION_HAND)
 end
 function cm.filter1(c,e)
 	return not c:IsImmuneToEffect(e)

expansions/script/c81048037.lua

@@ -13,13 +13,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
 	--change code
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCode(EFFECT_CHANGE_CODE)
-	e2:SetValue(81048010)
-	c:RegisterEffect(e2)
+	aux.EnableChangeCode(c,81048010,LOCATION_GRAVE)
 	--destroy
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_DESTROY)

expansions/script/c81048039.lua

@@ -29,13 +29,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.scop)
 	c:RegisterEffect(e1)
 	--change code
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCode(EFFECT_CHANGE_CODE)
-	e2:SetValue(81048009)
-	c:RegisterEffect(e2)
+	aux.EnableChangeCode(c,81048009,EFFECT_CHANGE_CODE)
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)

expansions/script/c81058001.lua

@@ -4,13 +4,7 @@ local cm=_G["c"..m]
 Duel.LoadScript("c26800000.lua")
 function cm.initial_effect(c)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81058000)
-	c:RegisterEffect(e0)
+	aux.EnableChangeCode(c,81058000,LOCATION_MZONE+LOCATION_GRAVE)
 	--effect gain
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)

expansions/script/c81058003.lua

@@ -6,13 +6,7 @@ function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,cm.lcheck)
 	--code
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetCode(EFFECT_CHANGE_CODE)
-	e0:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e0:SetValue(81058000)
-	c:RegisterEffect(e0)
+	aux.EnableChangeCode(c,81058000,LOCATION_MZONE+LOCATION_GRAVE)
 	--Attach
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)