ndyd

expansions/script/c40006763.lua

+--睿智之蓝 LV8
+function c40006763.initial_effect(c)
+	c:EnableUnsummonable()  
+	--equip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(40006763,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetTarget(c40006763.target)
+	e1:SetCondition(c40006763.oncon)
+	e1:SetOperation(c40006763.operation)
+	c:RegisterEffect(e1)	
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(40006763,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetHintTiming(0,0x1e0)
+	e2:SetCondition(c40006763.spcon)
+	e2:SetCost(c40006763.spcost)
+	e2:SetTarget(c40006763.sptg)
+	e2:SetOperation(c40006763.spop)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(40006763,2))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetHintTiming(0,0x1e0)
+	e3:SetCost(c40006763.cost)
+	e3:SetTarget(c40006763.ctarget)
+	e3:SetOperation(c40006763.activate)
+	c:RegisterEffect(e3)
+end
+c40006763.lvupcount=2
+c40006763.lvup={40006762,40006764}
+c40006763.lvdncount=1
+c40006763.lvdn={40006762}
+function c40006763.oncon(e,tp,eg,ep,ev,re,r,rp)
+	if not re then return false end
+	local rc=re:GetHandler()
+	return rc:IsCode(40006762)
+end
+function c40006763.filter(c)
+	return c:IsRace(RACE_MACHINE) and c:IsAbleToHand()
+end
+function c40006763.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c40006763.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c40006763.operation(e,tp,eg,ep,ev,re,r,rp)
+	 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c40006763.filter,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
+function c40006763.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return tp==Duel.GetTurnPlayer() and e:GetHandler():IsLevelAbove(11)
+end
+function c40006763.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c40006763.spfilter(c,e,tp)
+	return c:IsCode(40006764) and c:IsCanBeSpecialSummoned(e,0,tp,true,true)
+end
+function c40006763.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
+		and Duel.IsExistingMatchingCard(c40006763.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function c40006763.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c40006763.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP)
+		tc:CompleteProcedure()
+	end
+end
+function c40006763.costfilter(c)
+	return c:IsType(TYPE_TUNER) and c:IsAbleToRemoveAsCost()
+end
+function c40006763.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c40006763.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c40006763.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c40006763.ctarget(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c40006763.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) and c:IsFaceup() and c:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(2)
+		e1:SetReset(RESET_EVENT+0x1ff0000)
+		c:RegisterEffect(e1)
+	end
+end

expansions/script/c40006765.lua

+--六武众的极意
+function c40006765.initial_effect(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(40006765,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,40006765)
+	e1:SetTarget(c40006765.thtg)
+	e1:SetOperation(c40006765.thop)
+	c:RegisterEffect(e1)	
+end
+function c40006765.thfilter(c)
+	return c:IsCode(27970830) and c:IsAbleToHand()
+end
+function c40006765.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c40006765.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c40006765.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c40006765.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
\ No newline at end of file

expansions/script/c40006767.lua

+--紫炎的新令
+function c40006767.initial_effect(c)
+	--counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_COUNTER)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c40006767.target)
+	e1:SetOperation(c40006767.activate)
+	c:RegisterEffect(e1)	
+	--synchro summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(40006767,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,40006767)
+	e2:SetCondition(c40006767.thcon)
+	e2:SetTarget(c40006767.thtg)
+	e2:SetOperation(c40006767.thop)
+	c:RegisterEffect(e2)
+end
+function c40006767.acfilter(c)
+	return c:IsFaceup() and c:IsCanAddCounter(0x3,1)
+end
+function c40006767.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and c40006767.acfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c40006767.acfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c40006767.acfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3)
+end
+function c40006767.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		if tc:IsCanAddCounter(0x3,2) and Duel.SelectYesNo(tp,aux.Stringid(40006767,0)) then
+			tc:AddCounter(0x3,2)
+		else
+			tc:AddCounter(0x3,1)
+		end
+	end
+end
+function c40006767.thfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0x3d) and c:IsControler(tp)
+end
+function c40006767.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c40006767.thfilter,1,nil,tp)
+end
+function c40006767.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHand() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function c40006767.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,c)
+	end
+end
\ No newline at end of file

expansions/script/c40006827.lua

+--睿智之蓝 LV3-改4
+function c40006827.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
+	c:EnableUnsummonable()
+	aux.EnablePendulumAttribute(c,false) 
+	--spsummon from hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetCondition(c40006827.hspcon)
+	e1:SetOperation(c40006827.hspop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetHintTiming(0,TIMING_END_PHASE)
+	e2:SetCountLimit(1,40006827)
+	e2:SetTarget(c40006827.target)
+	e2:SetOperation(c40006827.operation)
+	c:RegisterEffect(e2)
+--
+	local e6=Effect.CreateEffect(c)
+	e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e6:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e6:SetCode(EVENT_TO_DECK)
+	e6:SetCondition(c40006827.con6)
+	e6:SetTarget(c40006827.sptg)
+	e6:SetOperation(c40006827.spop)
+	c:RegisterEffect(e6)
+end
+c40006827.lvupcount=1
+c40006827.lvup={40006762}
+function c40006827.filter1(c,e,tp,lv)
+	local clv=c:GetLevel()
+	return clv>0 and c:IsType(TYPE_TUNER) and c:IsAbleToGrave()
+		and Duel.IsExistingMatchingCard(c40006827.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,lv+clv)
+end
+function c40006827.filter2(c,e,tp,lv)
+	return c:GetLevel()==lv and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c40006827.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c40006827.filter1(chkc,e,tp,e:GetHandler():GetLevel()) end
+	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsAbleToGrave()
+		and Duel.IsExistingTarget(c40006827.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp,e:GetHandler():GetLevel()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c40006827.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp,e:GetHandler():GetLevel())
+	g:AddCard(e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c40006827.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	local lv=c:GetLevel()+tc:GetLevel()
+	local g=Group.FromCards(c,tc)
+	if Duel.SendtoGrave(g,nil,REASON_EFFECT)==2 then
+		if Duel.GetLocationCountFromEx(tp)<=0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=Duel.SelectMatchingCard(tp,c40006827.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv)
+		if sg:GetCount()>0 then
+			Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function c40006827.hspfilter(c,tp)
+	return c:IsCode(40006826) and c:IsControler(tp)
+end
+function c40006827.hspcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local ct=0
+	if Duel.CheckReleaseGroup(tp,c40006827.hspfilter,1,nil,tp) then ct=ct-1 end
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>ct
+		and Duel.CheckReleaseGroupEx(tp,Card.IsCode,1,e:GetHandler(),40006826)
+end
+function c40006827.hspop(e,tp,eg,ep,ev,re,r,rp,c)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	local g=nil
+	if ft>0 then
+		g=Duel.SelectReleaseGroupEx(tp,Card.IsCode
+,1,1,e:GetHandler(),40006826)
+	else
+		g=Duel.SelectReleaseGroup(tp,c40006827.hspfilter,1,1,nil,tp)
+	end
+	Duel.Release(g,REASON_COST)
+	c:RegisterFlagEffect(0,RESET_EVENT+0x4fc0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(40006827,0))
+end
+function c40006827.con6(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsFaceup() and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsLocation(LOCATION_EXTRA)
+end
+function c40006827.filter(c,e,tp)
+	return c:IsCode(40006762) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c40006827.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c40006827.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
+end
+function c40006827.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c40006827.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c40006829.lua

+--等级重启
+function c40006829.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c40006829.target)
+	e1:SetOperation(c40006829.activate)
+	c:RegisterEffect(e1)
+end
+function c40006829.filter(c)
+	return c:IsSetCard(0x41) and c:IsAbleToDeck() and not c:IsPublic()
+end
+function c40006829.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp)
+		and Duel.IsExistingMatchingCard(c40006829.filter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
+end
+function c40006829.activate(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(p,c40006829.filter,p,LOCATION_HAND,0,1,63,nil)
+	if g:GetCount()>0 then
+		Duel.ConfirmCards(1-p,g)
+		local ct=Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+		Duel.ShuffleDeck(p)
+		Duel.BreakEffect()
+		Duel.Draw(p,ct+1,REASON_EFFECT)
+	end 
+end

expansions/script/c40006885.lua

@@ -74,13 +74,13 @@ function cm.thfilter2(c,e)
 	return cm.AShapeShifter(c) and c:IsCanBeEffectTarget(e) and c:IsAbleToHand()
 end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return false end
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter2(chkc) end
 	local g=Duel.GetMatchingGroup(cm.thfilter2,tp,LOCATION_GRAVE,0,nil,e)
-	if chk==0 then return g:GetClassCount(Card.GetCode)>=2 end
+	if chk==0 then return g:GetCount()>0 end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g1=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
+	local g1=g:SelectSubGroup(tp,aux.dncheck,false,1,2)
 	Duel.SetTargetCard(g1)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,g1:GetCount(),0,0)
 end
 function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)

expansions/script/c40008180.lua

 --极天之零点龙 乌尔提玛
-function c40008180.initial_effect(c)
+local m=40008180
+local cm=_G["c"..m]
+cm.named_with_ZerothDragon=1
+function cm.initial_effect(c)
 	--fusion material
 	c:EnableReviveLimit()
-	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),5,true)
+	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionType,TYPE_MONSTER),2,true)
+	--material limit
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_MATERIAL_LIMIT)
+	e0:SetValue(cm.matlimit)
+	c:RegisterEffect(e0)
 	--spsummon condition
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
@@ -12,109 +22,108 @@ function c40008180.initial_effect(c)
 	c:RegisterEffect(e1)
 	--draw
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(40008180,0))
-	e2:SetCategory(CATEGORY_DRAW)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,40008180+EFFECT_COUNT_CODE_DUEL)
-	e2:SetCondition(c40008180.con)
-	e2:SetTarget(c40008180.tg)
-	e2:SetOperation(c40008180.op)
+	e2:SetCountLimit(1)
+	e2:SetCondition(cm.con)
+	e2:SetTarget(cm.tg)
+	e2:SetOperation(cm.op)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE)
 	e3:SetCode(EFFECT_MATERIAL_CHECK)
-	e3:SetValue(c40008180.valcheck)
+	e3:SetValue(cm.valcheck)
 	e3:SetLabelObject(e2)
 	c:RegisterEffect(e3)
 	--special summon
+	local e9=Effect.CreateEffect(c)
+	e9:SetType(EFFECT_TYPE_FIELD)
+	e9:SetCode(EFFECT_CANNOT_RELEASE)
+	e9:SetRange(LOCATION_MZONE)
+	e9:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e9:SetTargetRange(0,1)
+	e9:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_MONSTER))
+	e9:SetCondition(cm.con)
+	c:RegisterEffect(e9)
+	local e10=Effect.CreateEffect(c)
+	e10:SetType(EFFECT_TYPE_SINGLE)
+	e10:SetCode(EFFECT_MATERIAL_CHECK)
+	e10:SetValue(cm.valcheck)
+	e10:SetLabelObject(e9)
+	c:RegisterEffect(e10)
+	--cannot set
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(40008180,1))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_CANNOT_MSET)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1,40008181+EFFECT_COUNT_CODE_DUEL)
-	e4:SetCost(c40008180.cost)
-	e4:SetCondition(c40008180.spcon)
-	e4:SetTarget(c40008180.sptg)
-	e4:SetOperation(c40008180.spop)
+	e4:SetTargetRange(0,1)
+	e4:SetTarget(aux.TRUE)
+	e4:SetCondition(cm.con)
 	c:RegisterEffect(e4)
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE)
-	e5:SetCode(EFFECT_MATERIAL_CHECK)
-	e5:SetValue(c40008180.valcheck)
-	e5:SetLabelObject(e4)
+	local e5=e4:Clone()
+	e5:SetCode(EFFECT_CANNOT_SSET)
 	c:RegisterEffect(e5)
+	local e6=e4:Clone()
+	e6:SetCode(EFFECT_CANNOT_TURN_SET)
+	c:RegisterEffect(e6)
+	local e7=e4:Clone()
+	e7:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e7:SetTarget(cm.sumlimit)
+	c:RegisterEffect(e7)
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_SINGLE)
+	e8:SetCode(EFFECT_MATERIAL_CHECK)
+	e8:SetValue(cm.valcheck)
+	e8:SetLabelObject(e4)
+	c:RegisterEffect(e8)
 end
-function c40008180.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_BATTLE_PHASE)==0 end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_BP)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
-	e1:SetTargetRange(1,0)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-	local e2=Effect.CreateEffect(e:GetHandler())
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetTargetRange(1,0)
-	e2:SetCode(EFFECT_SKIP_TURN)
-	e2:SetReset(RESET_PHASE+PHASE_DRAW+RESET_SELF_TURN)
-	Duel.RegisterEffect(e2,tp)
+function cm.matlimit(e,c,fc,st)
+	if st~=SUMMON_TYPE_FUSION then return true end
+	return c:IsControler(fc:GetControler()) and c:IsLocation(LOCATION_ONFIELD+LOCATION_HAND)
 end
-function c40008180.valcheck(e,c)
-	local g=c:GetMaterial():Filter(Card.IsAttribute,nil,ATTRIBUTE_LIGHT)
-	if g:GetClassCount(Card.GetCode)==5 then e:GetLabelObject():SetLabel(1) end
+function cm.matlimit(e,c,st)
+	if st~=SUMMON_TYPE_FUSION then return true end
+	return c:IsControler()==e:GetHandlerPlayer() and c:IsLocation(LOCATION_ALL)
 end
-function c40008180.con(e,tp,eg,ep,ev,re,r,rp,chk)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION) and e:GetLabel()==1
+function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp)
+	return bit.band(sumpos,POS_FACEDOWN)>0
 end
-function c40008180.tg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		local h=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
-		return h<5 and Duel.IsPlayerCanDraw(tp,5-h)
+function cm.valcheck(e,c)
+	local g=c:GetMaterial()
+	if g:FilterCount(Card.IsType,nil,TYPE_FUSION)==#g then
+		e:GetLabelObject():SetLabel(1)
+	else
+		e:GetLabelObject():SetLabel(0)
 	end
-	local h=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(5-h)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,5-h)
-end
-function c40008180.op(e,tp,eg,ep,ev,re,r,rp)
-	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
-	local h=Duel.GetFieldGroupCount(p,LOCATION_HAND,0)
-	if h>=5 then return end
-	Duel.Draw(p,5-h,REASON_EFFECT)
 end
-function c40008180.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetLP(tp)<=2000 and e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION) and e:GetLabel()==1
+function cm.con(e,tp,eg,ep,ev,re,r,rp,chk)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION) and e:GetLabel()==1
 end
-function c40008180.filter(c,e,tp)
+function cm.thfilter(c,e,tp)
 	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c40008180.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1
-		and Duel.IsExistingMatchingCard(c40008180.filter,tp,LOCATION_DECK,0,2,nil,e,tp) and Duel.IsExistingMatchingCard(nil,tp,LOCATION_DECK,0,1,nil) and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end
+		and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,4,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
 end
-function c40008180.spop(e,tp,eg,ep,ev,re,r,rp)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if ft<=0 then return end
-	if ft>2 then ft=2 end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c40008180.filter,tp,LOCATION_DECK,0,2,2,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(40008180,2))
-	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DECK,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.ShuffleDeck(tp)
-		Duel.MoveSequence(tc,0)
-		Duel.ConfirmDecktop(tp,1)
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil,e,tp)
+	if g:GetCount()>=4 then
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg=g:Select(tp,4,4,nil)
+			Duel.ConfirmCards(1-tp,sg)
+				if sg:GetCount()>0 then
+				local tg=sg:Select(tp,2,2,nil)
+				Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
+				sg:Sub(tg)
+			end
+			Duel.SendtoGrave(sg,REASON_EFFECT+REASON_REVEAL)
+		end
 	end
 end
\ No newline at end of file

expansions/script/c40008612.lua

@@ -34,7 +34,7 @@ function c40008612.filtera(c)
 end
 function c40008612.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c40008612.filtera(chkc) end
-	if chk==0 then return true end
+	if chk==0 then return Duel.IsExistingTarget(c40008612.filtera,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
 	local g=Duel.SelectTarget(tp,c40008612.filtera,tp,LOCATION_GRAVE,0,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)

expansions/script/c40008626.lua

@@ -12,7 +12,6 @@ function c40008626.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
 	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e2:SetCode(EFFECT_ADD_ATTRIBUTE)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
 	e2:SetRange(LOCATION_MZONE)
 	e2:SetValue(ATTRIBUTE_DARK)
 	c:RegisterEffect(e2)

expansions/script/c40008677.lua

@@ -30,15 +30,15 @@ if cm then
 function cm.initial_effect(c)
 	local e1=rsef.ACT(c,nil,nil,{1,m,1},"se,th,tg",nil,nil,nil,rsop.target(cm.thfilter,"th",LOCATION_DECK),cm.activate)
 	--splimit
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetTargetRange(1,0)
-	e1:SetCondition(cm.atkcon)
-	e1:SetTarget(cm.splimit)
-	c:RegisterEffect(e1)
+	--local e1=Effect.CreateEffect(c)
+	--e1:SetType(EFFECT_TYPE_FIELD)
+	--e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	--e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	--e1:SetRange(LOCATION_FZONE)
+	--e1:SetTargetRange(1,0)
+	--e1:SetCondition(cm.atkcon)
+	--e1:SetTarget(cm.splimit)
+	--c:RegisterEffect(e1)
 	--activate from hand
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)

expansions/script/c40009152.lua

 --骑士王 阿尔弗雷德
-function c40009152.initial_effect(c)
+local m=40009152
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+cm.named_with_ALFRED=1
+function cm.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_LIGHT),2)
 	c:EnableReviveLimit()  
 	--to hand
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(40009152,0))
+	e2:SetDescription(aux.Stringid(m,0))
 	e2:SetCategory(CATEGORY_ATKCHANGE)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	e2:SetCountLimit(1,40009152+EFFECT_COUNT_CODE_DUEL)
-	e2:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
-	e2:SetCondition(c40009152.thcon)
-	e2:SetTarget(c40009152.atkktg)
-	e2:SetOperation(c40009152.atkop)
+	e2:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
+	e2:SetCondition(cm.thcon)
+	e2:SetTarget(cm.atkktg)  
+	e2:SetOperation(cm.atkop)
 	c:RegisterEffect(e2)  
 	--special summon  
 	local e1=Effect.CreateEffect(c)  
-	e1:SetDescription(aux.Stringid(40009152,1))  
+	e1:SetDescription(aux.Stringid(m,1))  
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)  
 	e1:SetType(EFFECT_TYPE_IGNITION)  
 	e1:SetRange(LOCATION_MZONE)  
-	e1:SetCountLimit(1,40009153) 
-	e1:SetCost(c40009152.cost) 
-	e1:SetTarget(c40009152.target)  
-	e1:SetOperation(c40009152.operation)  
+	e1:SetCountLimit(1,m+1) 
+	e1:SetCost(cm.cost) 
+	e1:SetTarget(cm.target)  
+	e1:SetOperation(cm.operation)  
 	c:RegisterEffect(e1) 
 	--atk
 	local e3=Effect.CreateEffect(c)
@@ -33,59 +35,61 @@ function c40009152.initial_effect(c)
 	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e3:SetRange(LOCATION_MZONE)
 	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(c40009152.atkcon)
+	e3:SetCondition(cm.atkcon)
 	e3:SetValue(2000)
 	c:RegisterEffect(e3)
 	local e4=e3:Clone()
 	e4:SetCode(EFFECT_PIERCE)
 	c:RegisterEffect(e4) 
 end
-function c40009152.thcon(e,tp,eg,ep,ev,re,r,rp)
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end
-function c40009152.atkktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	Duel.SetChainLimit(c40009152.chlimit)
+function cm.atkktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetChainLimit(cm.chlimit)
 end
-function c40009152.chlimit(e,ep,tp)
-	return tp==ep
-end
-function c40009152.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_UPDATE_ATTACK)
 	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetCondition(c40009152.discon)
-	e1:SetTarget(c40009152.atktg)
+	e1:SetCondition(cm.discon)
+	e1:SetTarget(cm.atktg)
 	e1:SetValue(2000)
 	Duel.RegisterEffect(e1,tp)
-	Duel.SetChainLimit(c40009152.chlimit)
+	--Duel.SetChainLimit(cm.chlimit)
+end
+function cm.chlimit(e,ep,tp)
+	return tp==ep
 end
-function c40009152.discon(e)
+function cm.discon(e)
 	local ph=Duel.GetCurrentPhase()
-	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE 
 end
-function c40009152.atktg(e,c)
+function cm.atktg(e,c)
 	return c:GetSequence()>=5
 end
-function c40009152.cost(e,tp,eg,ep,ev,re,r,rp,chk)  
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)  
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
 	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) 
 end  
-function c40009152.filter(c,e,tp,zone)  
+function cm.filter(c,e,tp,zone)  
 	return c:IsCode(40009154) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)  
 end  
-function c40009152.target(e,tp,eg,ep,ev,re,r,rp,chk)  
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)  
 	if chk==0 then  
 		local zone=e:GetHandler():GetLinkedZone(tp)  
-		return zone~=0 and Duel.IsExistingMatchingCard(c40009152.filter,tp,LOCATION_DECK,0,1,nil,e,tp,zone)  
+		return zone~=0 and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil,e,tp,zone)  
 	end  
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)  
 end  
-function c40009152.operation(e,tp,eg,ep,ev,re,r,rp)  
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)  
 		local zone=e:GetHandler():GetLinkedZone(tp)
 		if zone==0 then return end  
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local sg=Duel.SelectMatchingCard(tp,c40009152.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp,zone)
+		local sg=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp,zone)
 		local tc=sg:GetFirst()
 		if tc and Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP,zone) then
 		local e1=Effect.CreateEffect(e:GetHandler())
@@ -97,9 +101,9 @@ function c40009152.operation(e,tp,eg,ep,ev,re,r,rp)
 		end
 	Duel.SpecialSummonComplete()
 end  
-function c40009152.atkfilter(c)
+function cm.atkfilter(c)
 	return c:IsFaceup() and c:IsCode(40009154)
 end
-function c40009152.atkcon(e)
-	return Duel.IsExistingMatchingCard(c40009152.atkfilter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,nil)
+function cm.atkcon(e)
+	return Duel.IsExistingMatchingCard(cm.atkfilter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,nil)
 end

expansions/script/c40009154.lua

 --狂风剑刃
-function c40009154.initial_effect(c)
+local m=40009154
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+cm.named_with_BLASTERBlade=1
+function cm.initial_effect(c)
 	--spsummon
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(40009154,0))
+	e2:SetDescription(aux.Stringid(m,0))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetCountLimit(1,40009154)
-	e2:SetTarget(c40009154.sptg)
-	e2:SetOperation(c40009154.spop)
+	e2:SetCountLimit(1,m)
+	e2:SetTarget(cm.sptg)
+	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)
 	local e3=e2:Clone()
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e3)   
 	--to grave
 	local e1=Effect.CreateEffect(c)  
-	e1:SetDescription(aux.Stringid(40009155,1)) 
+	e1:SetDescription(aux.Stringid(m,1)) 
 	e1:SetCategory(CATEGORY_TOGRAVE)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCountLimit(1,40009155)
-	e1:SetCost(c40009154.cost)
-	e1:SetTarget(c40009154.tg)  
-	e1:SetOperation(c40009154.op)  
+	e1:SetCountLimit(1,m+1)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.tg)  
+	e1:SetOperation(cm.op)  
 	c:RegisterEffect(e1)  
 	--destroy replace
 	local e4=Effect.CreateEffect(c)
 	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
 	e4:SetCode(EFFECT_DESTROY_REPLACE)
 	e4:SetRange(LOCATION_MZONE)
-	e4:SetTarget(c40009154.reptg)
-	e4:SetValue(c40009154.repval)
-	e4:SetOperation(c40009154.repop)
+	e4:SetTarget(cm.reptg)
+	e4:SetValue(cm.repval)
+	e4:SetOperation(cm.repop)
 	c:RegisterEffect(e4)
 end
-function c40009154.filter1(c,e,tp)
-	return c:IsSetCard(0xbf1d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function cm.BLASTER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_BLASTER
 end
-function c40009154.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.filter1(c,e,tp)
+	return cm.BLASTER(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c40009154.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) end
+		and Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
-function c40009154.spop(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c40009154.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,cm.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	end
@@ -57,22 +65,22 @@ function c40009154.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetTargetRange(1,0)
-	e1:SetTarget(c40009154.splimit)
+	e1:SetTarget(cm.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
 end
-function c40009154.splimit(e,c)
-	return not c:IsSetCard(0xbf1d) and c:IsLocation(LOCATION_EXTRA)
+function cm.splimit(e,c)
+	return not cm.BLASTER(c) and c:IsLocation(LOCATION_EXTRA)
 end
-function c40009154.cost(e,tp,eg,ep,ev,re,r,rp,chk)  
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)  
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,2,e:GetHandler()) end
 	Duel.DiscardHand(tp,Card.IsDiscardable,2,2,REASON_COST+REASON_DISCARD)
 end  
-function c40009154.tg(e,tp,eg,ep,ev,re,r,rp,chk)  
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)  
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,PLAYER_ALL,LOCATION_MZONE) 
 end  
-function c40009154.op(e,tp,eg,ep,ev,re,r,rp)  
+function cm.op(e,tp,eg,ep,ev,re,r,rp)  
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 	if g:GetCount()>0 then
@@ -80,19 +88,19 @@ function c40009154.op(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoGrave(g,REASON_EFFECT)
 	end
 end 
-function c40009154.filter(c,tp)
+function cm.filter(c,tp)
 	return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)
 		and c:GetSequence()>=5 
 end
-function c40009154.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return eg:IsExists(c40009154.filter,1,nil,tp)
+	if chk==0 then return eg:IsExists(cm.filter,1,nil,tp)
 		and c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED) end
 	return Duel.SelectEffectYesNo(tp,c,97)
 end
-function c40009154.repval(e,c)
-	return c40009154.filter(c,e:GetHandlerPlayer())
+function cm.repval(e,c)
+	return cm.filter(c,e:GetHandlerPlayer())
 end
-function c40009154.repop(e,tp,eg,ep,ev,re,r,rp)
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Destroy(e:GetHandler(),REASON_EFFECT+REASON_REPLACE)
 end
\ No newline at end of file

expansions/script/c40009156.lua

 --狂风领主
-function c40009156.initial_effect(c)
+local m=40009156
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+function cm.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkCode,40009154),1,1)
 	c:EnableReviveLimit()   
 	--effect
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_ATKCHANGE)
-	e1:SetDescription(aux.Stringid(40009156,0))
+	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetCountLimit(1,40009156)
+	e1:SetCountLimit(1,m)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetCost(c40009156.cost)
-	e1:SetOperation(c40009156.operation)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 	--spsummon
 	local e3=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(40009156,1))
+	e1:SetDescription(aux.Stringid(m,1))
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_TO_GRAVE)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCountLimit(1,40009157)
-	e3:SetCondition(c40009156.spcon)
-	e3:SetTarget(c40009156.sptg)
-	e3:SetOperation(c40009156.spop)
+	e3:SetCountLimit(1,m+1)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
 	c:RegisterEffect(e3)
 end
-function c40009156.cfilter1(c)
+function cm.BLASTER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_BLASTER
+end
+function cm.cfilter1(c)
 	return c:IsCode(40009154) and ((c:IsFaceup() and c:IsLocation(LOCATION_MZONE)) or c:IsLocation(LOCATION_HAND)) and c:IsAbleToGraveAsCost()
 end
-function c40009156.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c40009156.cfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,tp) end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c40009156.cfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,tp)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,tp)
 	Duel.SendtoGrave(g,REASON_COST)
 end
-function c40009156.operation(e,tp,eg,ep,ev,re,r,rp)
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e1:SetCode(EVENT_BATTLE_START)
-		e1:SetOperation(c40009156.atkop)
+		e1:SetOperation(cm.atkop)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 		c:RegisterEffect(e1)
 end
-function c40009156.atkop(e,tp,eg,ep,ev,re,r,rp)
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
@@ -55,23 +62,23 @@ function c40009156.atkop(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetValue(2100)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE)
 		c:RegisterEffect(e1)
-		c:RegisterFlagEffect(40009156,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE,0,1)
+		c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE,0,1)
 end
-function c40009156.spcon(e,tp,eg,ep,ev,re,r,rp)
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
 end
-function c40009156.spfilter(c,e,tp)
-	return not c:IsCode(40009156) and c:IsSetCard(0xbf1d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function cm.spfilter(c,e,tp)
+	return not c:IsCode(m) and cm.BLASTER(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c40009156.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c40009156.spfilter(chkc,e,tp) end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.spfilter(chkc,e,tp) end
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c40009156.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+		and Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c40009156.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	local g=Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
 end
-function c40009156.spop(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) then
 		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
@@ -81,10 +88,10 @@ function c40009156.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetTargetRange(1,0)
-	e1:SetTarget(c40009156.splimit)
+	e1:SetTarget(cm.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
 end
-function c40009156.splimit(e,c)
-	return not c:IsSetCard(0xbf1d) and c:IsLocation(LOCATION_EXTRA)
+function cm.splimit(e,c)
+	return not cm.BLASTER(c) and c:IsLocation(LOCATION_EXTRA)
 end

expansions/script/c40009158.lua

 --狂风匕首
-function c40009158.initial_effect(c)
+local m=40009158
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+function cm.initial_effect(c)
 	--tohand
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(40009158,0))
+	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,40009158)
-	e1:SetTarget(c40009158.thtg)
-	e1:SetOperation(c40009158.thop)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
 	c:RegisterEffect(e1)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e2)  
 	--special summon
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009158,1))
+	e3:SetDescription(aux.Stringid(m,1))
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,40009159)
-	e3:SetCost(c40009158.spcost)
-	e3:SetTarget(c40009158.sptg)
-	e3:SetOperation(c40009158.spop)
+	e3:SetCountLimit(1,m+1)
+	e3:SetCost(cm.spcost)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
 	c:RegisterEffect(e3)  
 end
-function c40009158.thfilter(c)
-	return c:IsSetCard(0xbf1d) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsCode(40009158)
+function cm.BLASTER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_BLASTER
 end
-function c40009158.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c40009158.thfilter,tp,LOCATION_DECK,0,1,nil) end
+function cm.thfilter(c)
+	return cm.BLASTER(c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsCode(m)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
-function c40009158.thop(e,tp,eg,ep,ev,re,r,rp)
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c40009158.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
 	if #g>0 then
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,g)
 	end
 end
-function c40009158.cfilter(c)
+function cm.cfilter(c)
 	return c:IsCode(40009154) and c:IsAbleToDeckAsCost()
 end
-function c40009158.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(c40009158.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c40009158.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
 	Duel.Release(e:GetHandler(),REASON_COST)
 	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
-function c40009158.spfilter(c,e,tp)
-	return c:IsSetCard(0xbf1d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function cm.spfilter(c,e,tp)
+	return cm.BLASTER(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c40009158.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
-		and Duel.IsExistingMatchingCard(c40009158.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
-function c40009158.spop(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,c40009158.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
 		if g:GetCount()>0 then
 			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 		end
@@ -72,10 +79,10 @@ function c40009158.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetTargetRange(1,0)
-	e1:SetTarget(c40009158.splimit)
+	e1:SetTarget(cm.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
 end
-function c40009158.splimit(e,c)
-	return not c:IsSetCard(0xbf1d) and c:IsLocation(LOCATION_EXTRA)
+function cm.splimit(e,c)
+	return not cm.BLASTER(c) and c:IsLocation(LOCATION_EXTRA)
 end

expansions/script/c40009160.lua

 --狂风标枪
-function c40009160.initial_effect(c)
+local m=40009160
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+function cm.initial_effect(c)
 	--tohand
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(40009160,0))
+	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_DRAW)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,40009160)
-	e1:SetTarget(c40009160.target)
-	e1:SetOperation(c40009160.activate)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e2) 
 	--special summon
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009160,1))
+	e3:SetDescription(aux.Stringid(m,1))
 	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,40009161)
-	e3:SetCost(c40009160.spcost)
-	e3:SetTarget(c40009160.settg)
-	e3:SetOperation(c40009160.setop)
+	e3:SetCountLimit(1,m+1)
+	e3:SetCost(cm.spcost)
+	e3:SetTarget(cm.settg)
+	e3:SetOperation(cm.setop)
 	c:RegisterEffect(e3)	  
 end
-function c40009160.filter(c)
-	return c:IsSetCard(0xbf1d) and c:IsDiscardable(REASON_EFFECT)
+function cm.BLASTER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_BLASTER
 end
-function c40009160.target(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.filter(c)
+	return cm.BLASTER(c) and c:IsDiscardable(REASON_EFFECT)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
-		and Duel.IsExistingMatchingCard(c40009160.filter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
 end
-function c40009160.activate(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.DiscardHand(tp,c40009160.filter,1,1,REASON_EFFECT+REASON_DISCARD,nil)~=0 then
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.DiscardHand(tp,cm.filter,1,1,REASON_EFFECT+REASON_DISCARD,nil)~=0 then
 		Duel.BreakEffect()
 		Duel.Draw(tp,2,REASON_EFFECT)
 	end
 end
-function c40009160.cfilter(c)
+function cm.cfilter(c)
 	return c:IsCode(40009154) and c:IsAbleToDeckAsCost()
 end
-function c40009160.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(c40009160.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c40009160.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
 	Duel.Release(e:GetHandler(),REASON_COST)
 	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
-function c40009160.setfilter(c)
+function cm.setfilter(c)
 	return c:IsCode(40009166) and c:IsSSetable()
 end
-function c40009160.settg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c40009160.setfilter,tp,LOCATION_DECK,0,1,nil) end
+function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil) end
 end
-function c40009160.setop(e,tp,eg,ep,ev,re,r,rp)
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-	local g=Duel.SelectMatchingCard(tp,c40009160.setfilter,tp,LOCATION_DECK,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_DECK,0,1,1,nil)
 	if #g>0 then
 		Duel.SSet(tp,g)
 	end

expansions/script/c40009162.lua

 --狂风刺剑
-function c40009162.initial_effect(c)
+local m=40009162
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+function cm.initial_effect(c)
 	--tohand
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(40009162,0))
+	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,40009162)
-	e1:SetTarget(c40009162.sptg)
-	e1:SetOperation(c40009162.spop)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e2)  
 	--special summon
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009162,1))
+	e3:SetDescription(aux.Stringid(m,1))
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,40009163)
-	e3:SetCost(c40009162.spcost)
-	e3:SetTarget(c40009162.thtg)
-	e3:SetOperation(c40009162.thop)
+	e3:SetCountLimit(1,m+1)
+	e3:SetCost(cm.spcost)
+	e3:SetTarget(cm.thtg)
+	e3:SetOperation(cm.thop)
 	c:RegisterEffect(e3)	
 end
-function c40009162.spfilter(c,e,tp)
-	return c:IsSetCard(0xbf1d) and not c:IsCode(40009162) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function cm.BLASTER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_BLASTER
 end
-function c40009162.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.spfilter(c,e,tp)
+	return cm.BLASTER(c) and not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c40009162.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
-function c40009162.spop(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c40009162.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	end
@@ -47,32 +54,32 @@ function c40009162.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetTargetRange(1,0)
-	e1:SetTarget(c40009162.splimit)
+	e1:SetTarget(cm.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
 end
-function c40009162.splimit(e,c)
-	return not c:IsSetCard(0xbf1d) and c:IsLocation(LOCATION_EXTRA)
+function cm.splimit(e,c)
+	return not cm.BLASTER(c) and c:IsLocation(LOCATION_EXTRA)
 end
-function c40009162.cfilter(c)
+function cm.cfilter(c)
 	return c:IsCode(40009154) and c:IsAbleToDeckAsCost()
 end
-function c40009162.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(c40009162.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c40009162.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
 	Duel.Release(e:GetHandler(),REASON_COST)
 	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
-function c40009162.thfilter(c)
+function cm.thfilter(c)
 	return c:IsCode(40009168) and c:IsAbleToHand()
 end
-function c40009162.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c40009162.thfilter,tp,LOCATION_DECK,0,1,nil) end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
-function c40009162.thop(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tg=Duel.GetFirstMatchingCard(c40009162.thfilter,tp,LOCATION_DECK,0,nil)
+function cm.thop(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tg=Duel.GetFirstMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,nil)
 	if tg then
 		Duel.SendtoHand(tg,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,tg)

expansions/script/c40009164.lua

 --狂风箭矢
-function c40009164.initial_effect(c)
+local m=40009164
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+function cm.initial_effect(c)
 	--tohand
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(40009164,0))
+	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DESTROY)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,40009164)
-	e1:SetTarget(c40009164.target)
-	e1:SetOperation(c40009164.operation)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e2)   
 	--special summon
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009164,1))
+	e3:SetDescription(aux.Stringid(m,1))
 	e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
 	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,40009165)
-	e3:SetCost(c40009164.spcost)
-	e3:SetTarget(c40009164.tdtg)
-	e3:SetOperation(c40009164.tdop)
+	e3:SetCountLimit(1,m+1)
+	e3:SetCost(cm.spcost)
+	e3:SetTarget(cm.tdtg)
+	e3:SetOperation(cm.tdop)
 	c:RegisterEffect(e3)	
 end
-function c40009164.filter(c)
+function cm.filter(c)
 	return c:IsCode(40009154) and c:IsAbleToGrave()
 end
-function c40009164.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c40009164.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil) end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
 end
-function c40009164.operation(e,tp,eg,ep,ev,re,r,rp)
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c40009164.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil)
 	if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
 	local sg=Duel.SelectMatchingCard(tp,Card.IsType,tp,0,LOCATION_ONFIELD,1,1,nil,TYPE_SPELL+TYPE_TRAP)
-	if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(40009164,2)) then
+	if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
 		Duel.BreakEffect()
 		Duel.HintSelection(sg)
 		Duel.Destroy(sg,REASON_EFFECT)
 	end
 end
-function c40009164.cfilter(c)
+function cm.cfilter(c)
 	return c:IsCode(40009154) and c:IsAbleToDeckAsCost()
 end
-function c40009164.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(c40009164.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c40009164.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
 	Duel.Release(e:GetHandler(),REASON_COST)
 	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
-function c40009164.tdfilter(c)
+function cm.tdfilter(c)
 	return c:IsRace(RACE_WARRIOR) and c:IsAbleToDeck()
 end
-function c40009164.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c40009164.tdfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c40009164.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
+function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectTarget(tp,c40009164.tdfilter,tp,LOCATION_GRAVE,0,1,3,nil)
+	local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE,0,1,3,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
 end
-function c40009164.tdop(e,tp,eg,ep,ev,re,r,rp)
+function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
 	if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 then
 		Duel.ShuffleDeck(tp)

expansions/script/c40009166.lua

 --救世主式·狂风领主
-function c40009166.initial_effect(c)
+local m=40009166
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+function cm.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,40009166+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(c40009166.target)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(cm.target)
 	c:RegisterEffect(e1)   
 	--atkup
 	local e2=Effect.CreateEffect(c)
@@ -18,30 +21,33 @@ function c40009166.initial_effect(c)
 	c:RegisterEffect(e2) 
 	--atkdown
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009166,1))
+	e3:SetDescription(aux.Stringid(m,1))
 	e3:SetCategory(CATEGORY_ATKCHANGE)
 	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e3:SetProperty(EFFECT_FLAG_DELAY)
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e3:SetRange(LOCATION_SZONE)
-	e3:SetCountLimit(1,40009166+EFFECT_COUNT_CODE_DUEL)
-	e3:SetCondition(c40009166.atkcon2)
-	e3:SetTarget(c40009166.atkktg)
-	e3:SetCost(c40009166.spcost)
-	e3:SetOperation(c40009166.atkop)
+	e3:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
+	e3:SetCondition(cm.atkcon2)
+	e3:SetTarget(cm.atkktg)
+	e3:SetCost(cm.spcost)
+	e3:SetOperation(cm.atkop)
 	c:RegisterEffect(e3)
 end
-
-function c40009166.tgfilter(c)
+function cm.BLASTER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_BLASTER
+end
+function cm.tgfilter(c)
 	return c:IsCode(40009154) and c:IsAbleToGrave()
 end
-function c40009166.target(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	if Duel.IsExistingMatchingCard(c40009166.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil)
-		and Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(40009166,0)) then
+	if Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil)
+		and Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(m,0)) then
 		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
-		e:SetOperation(c40009166.activate)
-		local rg=Duel.SelectMatchingCard(tp,c40009166.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil)
+		e:SetOperation(cm.activate)
+		local rg=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil)
 		e:SetLabel(1)
 		Duel.SendtoGrave(rg,REASON_EFFECT)
 		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
@@ -51,15 +57,15 @@ function c40009166.target(e,tp,eg,ep,ev,re,r,rp,chk)
 		e:SetOperation(nil)
 	end
 end
-function c40009166.spfilter(c,e,tp)
-	return c:IsSetCard(0xbf1d) and c:IsType(TYPE_MONSTER) 
+function cm.spfilter(c,e,tp)
+	return cm.BLASTER(c) and c:IsType(TYPE_MONSTER) 
 		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c40009166.activate(e,tp,eg,ep,ev,re,r,rp)
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	if e:GetHandler():IsRelateToEffect(e) and e:GetLabel()==1 then
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c40009166.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	end
@@ -68,44 +74,46 @@ function c40009166.activate(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetTargetRange(1,0)
-	e1:SetTarget(c40009166.splimit)
+	e1:SetTarget(cm.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
 end
 end
-function c40009166.splimit(e,c)
-	return not c:IsSetCard(0xbf1d) and c:IsLocation(LOCATION_EXTRA)
+function cm.splimit(e,c)
+	return not cm.BLASTER(c) and c:IsLocation(LOCATION_EXTRA)
 end
-function c40009166.atkcon2(e,tp,eg,ep,ev,re,r,rp)
+function cm.atkcon2(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(Card.IsCode,1,nil,tp,SUMMON_TYPE_LINK,40009156)
 end
-function c40009166.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return c:IsAbleToGraveAsCost() end
 	Duel.SendtoGrave(c,REASON_COST)
 end
-function c40009166.atkktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	Duel.SetChainLimit(c40009166.chlimit)
-end
-function c40009166.chlimit(e,ep,tp)
-	return tp==ep
+function cm.atkktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetChainLimit(cm.chlimit)
 end
-function c40009166.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_UPDATE_ATTACK)
 	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetCondition(c40009166.discon)
-	e1:SetTarget(c40009166.atktg)
+	e1:SetCondition(cm.discon)
+	e1:SetTarget(cm.atktg)
 	e1:SetValue(2000)
 	Duel.RegisterEffect(e1,tp)
-	Duel.SetChainLimit(c40009166.chlimit)
+	--Duel.SetChainLimit(cm.chlimit)
+end
+function cm.chlimit(e,ep,tp)
+	return tp==ep
 end
-function c40009166.discon(e)
+function cm.discon(e)
 	local ph=Duel.GetCurrentPhase()
-	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE 
 end
-function c40009166.atktg(e,c)
+function cm.atktg(e,c)
 	return c:GetSequence()>=5
 end
 

expansions/script/c40009168.lua

 --阿尔弗雷德的宣告
-function c40009168.initial_effect(c)
+local m=40009168
+local cm=_G["c"..m]
+cm.named_with_ALFRED=1
+function cm.initial_effect(c)
 	--effect
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,40009168+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(c40009168.target)
-	e1:SetOperation(c40009168.activate)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)	
 end
-function c40009168.battlecheck(tp)
+function cm.SAVER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_SAVER
+end
+function cm.ALFRED(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_ALFRED
+end
+function cm.battlecheck(tp)
 	if not Duel.CheckEvent(EVENT_BATTLED) then return false end
 	local a=Duel.GetAttacker()
 	local d=Duel.GetAttackTarget()
 	if not d then return false end
 	if d:IsControler(tp) then a,d=d,a end
-	local res=a:IsType(TYPE_LINK) and a:IsSetCard(0xaf1d)
+	local res=a:IsType(TYPE_LINK) and cm.ALFRED(a)
 		and d:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsPlayerCanDraw(tp,a:GetLink())
 	return res,a
 end
-function c40009168.gvfilter(c)
+function cm.gvfilter(c)
 	return c:IsFaceup() and c:IsCode(40009154) and c:IsAbleToGrave() 
 end
-function c40009168.spfilter(c,e,tp)
-	return c:IsSetCard(0x1f1e) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+function cm.spfilter(c,e,tp)
+	return (cm.SAVER(c) or c:IsCode(82593786)) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
 end
-function c40009168.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local b1=Duel.IsExistingTarget(c40009168.gvfilter,tp,LOCATION_MZONE,0,1,nil) 
-	local b2,a=c40009168.battlecheck(tp)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.IsExistingTarget(cm.gvfilter,tp,LOCATION_MZONE,0,1,nil) 
+	local b2,a=cm.battlecheck(tp)
 	if chk==0 then return b1 or b2 end
 	if b1 then
 		e:SetLabel(1)
-		Duel.SelectOption(tp,aux.Stringid(40009168,0))
+		Duel.SelectOption(tp,aux.Stringid(m,0))
 		e:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
 		e:SetProperty(EFFECT_FLAG_CARD_TARGET)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-		local g=Duel.SelectTarget(tp,c40009168.gvfilter,tp,LOCATION_MZONE,0,1,1,nil)
+		local g=Duel.SelectTarget(tp,cm.gvfilter,tp,LOCATION_MZONE,0,1,1,nil)
 		Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
 		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
-		Duel.SetChainLimit(c40009168.chlimit)
+		Duel.SetChainLimit(cm.chlimit)
 	else
 		e:SetLabel(2)
-		Duel.SelectOption(tp,aux.Stringid(40009168,1))
+		Duel.SelectOption(tp,aux.Stringid(m,1))
 		e:SetCategory(CATEGORY_DRAW)
 		e:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_PLAYER_TARGET)
 		e:SetLabelObject(a)
@@ -51,15 +62,15 @@ function c40009168.target(e,tp,eg,ep,ev,re,r,rp,chk)
 		Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,a:GetLink())
 	end
 end
-function c40009168.activate(e,tp,eg,ep,ev,re,r,rp)
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	if e:GetLabel()==1 then
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) then
 		if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE)
 			and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-			and Duel.IsExistingMatchingCard(c40009168.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) then
+			and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) then
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-			local g=Duel.SelectMatchingCard(tp,c40009168.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
+			local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
 			if g:GetCount()>0 then
 				Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
 			end
@@ -73,6 +84,6 @@ function c40009168.activate(e,tp,eg,ep,ev,re,r,rp)
 		end
 	end
 end
-function c40009168.chlimit(e,ep,tp)
+function cm.chlimit(e,ep,tp)
 	return tp==ep
 end
\ No newline at end of file

expansions/script/c40009170.lua

 --首领赎救龙
-function c40009170.initial_effect(c)
+local m=40009170
+local cm=_G["c"..m]
+cm.named_with_SAVER=1
+function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	--Cannot special summon
 	local e1=Effect.CreateEffect(c)
@@ -14,19 +17,19 @@ function c40009170.initial_effect(c)
 	e2:SetCode(EFFECT_IMMUNE_EFFECT)
 	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetValue(c40009170.efilter)
+	e2:SetValue(cm.efilter)
 	c:RegisterEffect(e2) 
 	--to hand
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009170,0))
+	e3:SetDescription(aux.Stringid(m,0))
 	e3:SetCategory(CATEGORY_ATKCHANGE)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	e3:SetCountLimit(1,40009170+EFFECT_COUNT_CODE_DUEL)
+	e3:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
 	e3:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
-	e3:SetTarget(c40009170.atkktg)
-	e3:SetOperation(c40009170.atkop)
+	e3:SetTarget(cm.atkktg)
+	e3:SetOperation(cm.atkop)
 	c:RegisterEffect(e3)  
 	--atk up
 	local e4=Effect.CreateEffect(c)
@@ -34,88 +37,94 @@ function c40009170.initial_effect(c)
 	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e4:SetRange(LOCATION_MZONE)
 	e4:SetCode(EFFECT_UPDATE_ATTACK)
-	e4:SetValue(c40009170.value)
+	e4:SetValue(cm.value)
 	c:RegisterEffect(e4)
 	--special summon
 	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(40009170,1))
+	e5:SetDescription(aux.Stringid(m,1))
 	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e5:SetType(EFFECT_TYPE_IGNITION)
 	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1,40009171)
-	e5:SetCost(c40009170.spcost)
-	e5:SetTarget(c40009170.target)
-	e5:SetOperation(c40009170.activate)
+	e5:SetCountLimit(1,m+1)
+	e5:SetCost(cm.spcost)
+	e5:SetTarget(cm.target)
+	e5:SetOperation(cm.activate)
 	c:RegisterEffect(e5)   
 end
-function c40009170.efilter(e,te)
+function cm.BLASTER(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_BLASTER
+end
+function cm.efilter(e,te)
 	local c=e:GetHandler()
 	local ec=te:GetHandler()
 	if ec:IsHasCardTarget(c) or (te:IsHasType(EFFECT_TYPE_ACTIONS) and te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) and c:IsRelateToEffect(te)) then return false
 	end
 	return true
 end
-function c40009170.atkktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	Duel.SetChainLimit(c40009170.chlimit)
-end
-function c40009170.chlimit(e,ep,tp)
-	return tp==ep
+function cm.atkktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetChainLimit(cm.chlimit)
 end
-function c40009170.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_UPDATE_ATTACK)
 	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetCondition(c40009170.discon)
-	e1:SetTarget(c40009170.atktg)
+	e1:SetCondition(cm.discon)
+	e1:SetTarget(cm.atktg)
 	e1:SetValue(2000)
 	Duel.RegisterEffect(e1,tp)
-	Duel.SetChainLimit(c40009170.chlimit)
+	--Duel.SetChainLimit(cm.chlimit)
+end
+function cm.chlimit(e,ep,tp)
+	return tp==ep
 end
-function c40009170.discon(e)
+function cm.discon(e)
 	local ph=Duel.GetCurrentPhase()
-	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE 
 end
-function c40009170.atktg(e,c)
+function cm.atktg(e,c)
 	return c:GetSequence()>=5
 end
-function c40009170.cfilter(c)
+function cm.cfilter(c)
 	return c:IsRace(RACE_WARRIOR) and c:IsAbleToRemoveAsCost()
 end
-function c40009170.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,3,nil) and Duel.IsExistingMatchingCard(c40009170.cfilter,tp,LOCATION_GRAVE,0,3,nil) end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,3,nil) and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,3,nil) end
 	Duel.DiscardHand(tp,Card.IsDiscardable,3,3,REASON_COST+REASON_DISCARD)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c40009170.cfilter,tp,LOCATION_GRAVE,0,3,3,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,3,3,nil)
 	Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
-function c40009170.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0xbf1d)
+function cm.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and cm.BLASTER(c)
 end
-function c40009170.fcheck(c,g)
+function cm.fcheck(c,g)
 	return g:IsExists(Card.IsOriginalCodeRule,1,c,c:GetOriginalCodeRule())
 end
-function c40009170.fselect(g)
-	return g:GetClassCount(Card.GetLocation)==g:GetCount() and not g:IsExists(c40009170.fcheck,1,nil,g)
+function cm.fselect(g)
+	return g:GetClassCount(Card.GetLocation)==g:GetCount() and not g:IsExists(cm.fcheck,1,nil,g)
 end
-function c40009170.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(c40009170.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
-	if chk==0 then return g:CheckSubGroup(c40009170.fselect,3,3) end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
+	if chk==0 then return g:CheckSubGroup(cm.fselect,3,3) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
 end
-function c40009170.activate(e,tp,eg,ep,ev,re,r,rp)
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
-	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c40009170.spfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg=g:SelectSubGroup(tp,c40009170.fselect,false,3,3)
+	local sg=g:SelectSubGroup(tp,cm.fselect,false,3,3)
 	if sg and sg:GetCount()==3 then
 		Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
 	end
 end
-function c40009170.vfilter(c)
-	return c:IsFaceup() and c:GetSequence()>=5
+function cm.vfilter(c,tp)
+	return c:IsLocation(LOCATION_MZONE) and c:GetSequence()>=5 and c:IsControler(tp)
 end
-function c40009170.value(e,c)
-	local g=Duel.GetMatchingGroup(c40009170.vfilter,tp,LOCATION_MZONE,0,c)
+function cm.value(e,c)
+	local g=Duel.GetMatchingGroup(cm.vfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
 	return g:GetSum(Card.GetBaseAttack)
 end
\ No newline at end of file

expansions/script/c40009173.lua

 --狂风剑刃·超限
-function c40009173.initial_effect(c)
+local m=40009173
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+cm.named_with_BLASTERBlade=1
+function cm.initial_effect(c)
 	--xyz summon
-	aux.AddXyzProcedure(c,c40009173.mfilter,7,2,c40009173.ovfilter,aux.Stringid(40009173,0),2,c40009173.xyzop)
+	aux.AddXyzProcedure(c,cm.mfilter,7,2,cm.ovfilter,aux.Stringid(m,0),2,cm.xyzop)
 	c:EnableReviveLimit()  
 	--code
 	local e1=Effect.CreateEffect(c)
@@ -13,79 +17,80 @@ function c40009173.initial_effect(c)
 	c:RegisterEffect(e1)
 	--to hand
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(40009173,0))
+	e2:SetDescription(aux.Stringid(m,0))
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	e2:SetCountLimit(1,40009173+EFFECT_COUNT_CODE_DUEL)
+	e2:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
 	e2:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
-	e2:SetCondition(c40009173.atkcon)
-	e2:SetTarget(c40009173.atkktg)
-	e2:SetOperation(c40009173.atkop)
+	e2:SetCondition(cm.atkcon)
+	e2:SetTarget(cm.atkktg)
+	e2:SetOperation(cm.atkop)
 	c:RegisterEffect(e2)
 	--to grave
 	local e8=Effect.CreateEffect(c)
-	e8:SetDescription(aux.Stringid(40009173,1))
+	e8:SetDescription(aux.Stringid(m,1))
 	e8:SetCategory(CATEGORY_TOGRAVE)
 	e8:SetType(EFFECT_TYPE_QUICK_O)
 	e8:SetCode(EVENT_FREE_CHAIN)
 	e8:SetRange(LOCATION_MZONE)
 	e8:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e8:SetCountLimit(1)
-	e8:SetCost(c40009173.spcost)
-	e8:SetTarget(c40009173.tgtg)
-	e8:SetOperation(c40009173.tgop)
+	e8:SetCost(cm.spcost)
+	e8:SetTarget(cm.tgtg)
+	e8:SetOperation(cm.tgop)
 	c:RegisterEffect(e8)   
 end
-function c40009173.mfilter(c)
+function cm.mfilter(c)
 	return c:IsRace(RACE_WARRIOR) 
 end
-function c40009173.ovfilter(c)
+function cm.ovfilter(c)
 	return c:IsFaceup() and c:IsCode(40009154)
 end
-function c40009173.xyzop(e,tp,chk)
-	if chk==0 then return Duel.GetFlagEffect(tp,40009173)==0 end
-	Duel.RegisterFlagEffect(tp,40009173,RESET_PHASE+PHASE_END,0,1)
+function cm.xyzop(e,tp,chk)
+	if chk==0 then return Duel.GetFlagEffect(tp,m)==0 end
+	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
 end
-function c40009173.atkcon(e,tp,eg,ep,ev,re,r,rp)
+function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
 end
-function c40009173.atkktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	Duel.SetChainLimit(c40009173.chlimit)
+function cm.atkktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return true end
+	Duel.SetChainLimit(cm.chlimit)
 end
-function c40009173.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)>0 end
-	local flag=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
-	e:SetLabel(flag)
-	Duel.Hint(HINT_ZONE,tp,flag)
-end
-function c40009173.chlimit(e,ep,tp)
+--function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+   -- local c=e:GetHandler()
+   -- if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)>0 end
+   -- local flag=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
+   -- e:SetLabel(flag)
+   -- Duel.Hint(HINT_ZONE,tp,flag)
+--end
+function cm.chlimit(e,ep,tp)
 	return tp==ep
 end
-function c40009173.atkop(e,tp,eg,ep,ev,re,r,rp)
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
 	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetTarget(c40009173.atktg1)
+	e1:SetTarget(cm.atktg1)
 	e1:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
 	Duel.RegisterEffect(e1,tp)
-	Duel.SetChainLimit(c40009173.chlimit)
+	--Duel.SetChainLimit(cm.chlimit)
 end
-function c40009173.atktg1(e,c)
+function cm.atktg1(e,c)
 	return c:GetSequence()>=5
 end
-function c40009173.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
 	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
 	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
-function c40009173.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE+LOCATION_HAND)>0 end
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,LOCATION_MZONE+LOCATION_HAND)
 end
-function c40009173.tgop(e,tp,eg,ep,ev,re,r,rp)
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(Card.IsType,1-tp,LOCATION_MZONE+LOCATION_HAND,0,nil,TYPE_MONSTER)
 	if g:GetCount()>0 then
 		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE)

expansions/script/c40009175.lua

 --圣骑士王 阿尔弗雷德·神圣赎救
-function c40009175.initial_effect(c)
+local m=40009175
+local cm=_G["c"..m]
+cm.named_with_BLASTER=1
+cm.named_with_ALFRED=1
+cm.named_with_SAVER=1
+function cm.initial_effect(c)
 	--synchro summon
 	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_WARRIOR),1)
 	c:EnableReviveLimit()   
@@ -8,48 +13,55 @@ function c40009175.initial_effect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e0:SetCondition(c40009175.regcon)
-	e0:SetOperation(c40009175.regop)
+	e0:SetCondition(cm.regcon)
+	e0:SetOperation(cm.regop)
 	c:RegisterEffect(e0)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_MATERIAL_CHECK)
-	e1:SetValue(c40009175.valcheck)
+	e1:SetValue(cm.valcheck)
 	e1:SetLabelObject(e0)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
 	e2:SetCode(EFFECT_EXTRA_ATTACK)
-	e2:SetCondition(c40009175.condition)
+	e2:SetCondition(cm.condition)
 	e2:SetValue(1)
 	c:RegisterEffect(e2)
 	--to hand
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(40009175,0))
+	e3:SetDescription(aux.Stringid(m,0))
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	e3:SetCountLimit(1,40009175+EFFECT_COUNT_CODE_DUEL)
+	e3:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
 	e3:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
-	e3:SetCondition(c40009175.atkcon)
-	e3:SetTarget(c40009175.atkktg)
-	e3:SetOperation(c40009175.atkop)
+	e3:SetCondition(cm.atkcon)
+	e3:SetTarget(cm.atkktg)
+	e3:SetOperation(cm.atkop)
 	c:RegisterEffect(e3)
 	--disable and destroy
+	--to deck
 	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e4:SetDescription(aux.Stringid(m,1))
+	e4:SetCategory(CATEGORY_TOGRAVE)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_FREE_CHAIN)
 	e4:SetRange(LOCATION_MZONE)
-	e4:SetCode(EVENT_CHAIN_SOLVING)
-	e4:SetOperation(c40009175.disop)
+	e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e4:SetCountLimit(1)
+	e4:SetCondition(cm.tdcon)
+	e4:SetTarget(cm.tdtg)
+	e4:SetOperation(cm.tdop)
 	c:RegisterEffect(e4)
 end
-function c40009175.regcon(e,tp,eg,ep,ev,re,r,rp)
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and e:GetLabel()==1
 end
-function c40009175.regop(e,tp,eg,ep,ev,re,r,rp)
-	e:GetHandler():RegisterFlagEffect(40009175,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(40009175,2))
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
 end
-function c40009175.valcheck(e,c)
+function cm.valcheck(e,c)
 	local g=c:GetMaterial()
 	if g:IsExists(Card.IsCode,1,nil,40009154) then
 		e:GetLabelObject():SetLabel(1)
@@ -57,42 +69,56 @@ function c40009175.valcheck(e,c)
 		e:GetLabelObject():SetLabel(0)
 	end
 end
-function c40009175.condition(e)
-	return e:GetHandler():GetFlagEffect(40009175)>0
+function cm.condition(e)
+	return e:GetHandler():GetFlagEffect(m)>0
 end
-function c40009175.atkcon(e,tp,eg,ep,ev,re,r,rp)
+function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
 end
-function c40009175.atkktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	Duel.SetChainLimit(c40009175.chlimit)
+function cm.atkktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return true end
+	Duel.SetChainLimit(cm.chlimit)
 end
-function c40009175.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)>0 end
-	local flag=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
-	e:SetLabel(flag)
-	Duel.Hint(HINT_ZONE,tp,flag)
-end
-function c40009175.chlimit(e,ep,tp)
+--function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+   -- local c=e:GetHandler()
+   -- if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)>0 end
+   -- local flag=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
+   -- e:SetLabel(flag)
+	--Duel.Hint(HINT_ZONE,tp,flag)
+--end
+function cm.chlimit(e,ep,tp)
 	return tp==ep
 end
-function c40009175.atkop(e,tp,eg,ep,ev,re,r,rp)
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
 	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetTarget(c40009175.atktg1)
+	e1:SetTarget(cm.atktg1)
 	e1:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
 	Duel.RegisterEffect(e1,tp)
-	Duel.SetChainLimit(c40009175.chlimit)
+  -- Duel.SetChainLimit(cm.chlimit)
 end
-function c40009175.atktg1(e,c)
+function cm.atktg1(e,c)
 	return c:GetSequence()>=5
 end
-function c40009175.disop(e,tp,eg,ep,ev,re,r,rp)
-	if ep==tp or e:GetHandler():GetAttack()<=6000 then return end
-	local rc=re:GetHandler()
-	if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
-		Duel.Destroy(rc,REASON_EFFECT)
+function cm.tdcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAttackAbove(6000)
+end
+function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
+	if chk==0 then return c:IsAbleToGrave() and g:GetCount()>0 end
+	g:AddCard(c)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
+end
+function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
+		if g:GetCount()>0 then
+			g:AddCard(c)
+			Duel.SendtoGrave(g,REASON_EFFECT)
+		end
 	end
-end
+end
\ No newline at end of file

expansions/script/c40009593.lua

@@ -26,8 +26,8 @@ function c40009593.initial_effect(c)
 	c:RegisterEffect(e2)   
 end
 function c40009593.filter(c,e,tp)
-	return c:IsFaceup() and (c:IsSetCard(0xaf1b) and c:IsAbleToDeck()
-		and Duel.IsExistingMatchingCard(c40009593.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode()) or (c:IsAttackAbove(1) or c:IsDefenseAbove(1) or aux.disfilter1(c)))
+	return c:IsFaceup() and ((c:IsControler(tp) and c:IsAbleToDeck()
+		and Duel.IsExistingMatchingCard(c40009593.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode())) or ((c:IsAttackAbove(1) or c:IsDefenseAbove(1) or aux.disfilter1(c)) and c:IsControler(1-tp)))
 end
 function c40009593.spfilter(c,e,tp,code)
 	return c:IsSetCard(0xaf1b) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
@@ -45,13 +45,13 @@ function c40009593.operation(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if not (tc:IsRelateToEffect(e) and tc:IsFaceup()) then return end
 	if tc:IsControler(tp) then
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end	 
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end   
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local g1=Duel.SelectMatchingCard(tp,c40009593.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,tc:GetCode())
 		if g1:GetCount()>0 then
 			Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP)
 			Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
-		end	  
+		end   
 	else
 		local e0=Effect.CreateEffect(c)
 		e0:SetType(EFFECT_TYPE_SINGLE)
@@ -77,7 +77,7 @@ function c40009593.operation(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c40009593.thfilter(c,e,tp)
-	return c:IsFaceup() and c:IsRace(RACE_WARRIOR) and c:IsAbleToDeck()
+	return c:IsFaceup() and c:IsLevelAbove(1) and c:IsRace(RACE_WARRIOR) and c:IsAbleToDeck()
 		and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
 		and Duel.IsExistingMatchingCard(c40009593.spfilter1,tp,LOCATION_EXTRA,0,1,nil,e,tp,c)
 end