reupdate

expansions/script/c12400091.lua

@@ -72,7 +72,7 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
 	local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
 end
-function s.activate(e,tp,eg,ep,ev,re,r,rp)
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	local ss=Duel.GetFlagEffect(tp,id)
 	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
@@ -92,6 +92,9 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
 			e4:SetReset(RESET_EVENT+RESETS_STANDARD)
 			tc:RegisterEffect(e4)
 		end
+	end
+	if e:GetHandler():IsRelateToEffect(e) then 
+	Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_EFFECT)
 	end
 	  Duel.RegisterFlagEffect(tp,id,0,0,0)
 end

expansions/script/c16114201.lua

@@ -65,7 +65,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		if e:GetLabel()==1 then Duel.RegisterFlagEffect(tp,15248873,RESET_CHAIN,0,1) end
 		local b2=te:IsActivatable(tp,true,true)
 		Duel.ResetFlagEffect(tp,15248873)
-		if b1 and (not b2 or Duel.SelectOption(tp,1190,1150)==0) then
+		if b1 and (not b2 or Duel.SelectOption(tp,1153,1150)==0) then
 			Duel.SSet(tp,tc)
 		else
 			local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)

expansions/script/c16114263.lua

 --白银仙精 小雪
 xpcall(function() dofile("expansions/script/c16199990.lua") end,function() dofile("script/c16199990.lua") end)
-local m,cm=rk.set(16114258)
+local m,cm=rk.set(16114263)
 function cm.initial_effect(c)
 	--summon with no tribute
 	local e0=Effect.CreateEffect(c)

expansions/script/c16114265.lua

@@ -24,7 +24,7 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.SelectMatchingCard(tp,cm.tgcheck,tp,LOCATION_DECK,0,1,1,nil,tp)
 	Duel.SendtoGrave(g,REASON_COST)
 end
-function s.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 Duel.IsExistingMatchingCard(cm.tfcheck,tp,LOCATION_DECK,0,1,nil,tp) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c60002149.lua

---创始生命的世界树
-local m=60002149
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--Evolve
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,1))
-	e3:SetCategory(CATEGORY_TOKEN+CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetTarget(cm.sptg)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-end
-function cm.filter(c)
-	return c:IsCode(m+1) and c:IsAbleToHand()
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		e:GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		if Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-			if g:GetCount()>0 then
-				Duel.SendtoHand(g,nil,REASON_EFFECT)
-				Duel.ConfirmCards(1-tp,g)
-			end
-		end
-	end
-end
\ No newline at end of file

expansions/script/c60002150.lua

---森罗万象的爱
-local m=60002150
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--recover
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCategory(CATEGORY_RECOVER+CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW+CATEGORY_TOKEN)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(cm.rectg)
-	e1:SetOperation(cm.recop)
-	c:RegisterEffect(e1)
-end
-function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(500)
-	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500)
-end
-function cm.thfilter(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.recop(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Recover(p,d,REASON_EFFECT)
-	Duel.RegisterFlagEffect(tp,60002150,RESET_PHASE+PHASE_END,0,1)
-	local x=Duel.GetFlagEffect(tp,60002150)
-	if math.floor(x/3)==x/3 then  ---0
-		local c=e:GetHandler()
-		local g1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
-		local g2=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_MZONE,0,nil)
-		for i=1,g2 do
-			local gm=g1:GetFirst()
-			if Card.IsCanAddCounter(gm,0x624,1) and gm:IsFaceup() then
-				gm:AddCounter(0x624,1)
-			end
-			g1:RemoveCard(g1:GetFirst())
-		end
-	elseif math.floor((x/3)+0.5)==math.floor(x/3)+1 then ---2
-		Duel.Draw(tp,1,REASON_EFFECT)
-	else ---1
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,cm.thfilter,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
-	end
-end
\ No newline at end of file

expansions/script/c60002151.lua

---神铁锻造师 蕾妮
-local m=60002151
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableReviveLimit()
-	c:EnableCounterPermit(0x624)
-	aux.AddLinkProcedure(c,cm.matfilter,2)
-	--search
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,0))
-	e3:SetCategory(CATEGORY_TOKEN+CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e3:SetCountLimit(1,m)
-	e3:SetTarget(cm.thtg)
-	e3:SetOperation(cm.thop)
-	c:RegisterEffect(e3)
-	--Evolve
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,1))
-	e3:SetCategory(CATEGORY_TOKEN)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCost(cm.spcost)
-	e3:SetTarget(cm.sptg)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-end
-function cm.matfilter(c)
-	return c:GetCounter(0x624)>0
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x624)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local sr=Duel.GetFlagEffect(tp,60002148)
-	if e:GetHandler():IsRelateToEffect(e) and sr~=0 then
-		e:GetHandler():AddCounter(0x624,sr)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		if sr>=5 and Duel.IsPlayerCanDraw(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-			Duel.Draw(tp,1,REASON_EFFECT)
-		end
-	end
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.filter(c)
-	return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsFaceup() 
-end
-function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		e:GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		if Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
-			local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
-			if g:GetCount()>0 then
-				g:GetFirst():AddCounter(0x624,1)
-				Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-			end
-		end
-	end
-end
-
-
-
-
-
-
-
-
-
-

expansions/script/c60002153.lua

---超越音速
-local m=60002153
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-end
-function cm.filter(c)
-	return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsAbleToHand()
-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,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function cm.cfilter(c)
-	return c:IsCode(m) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
-		Duel.ConfirmCards(1-tp,g)
-		local ct=Duel.GetMatchingGroupCount(cm.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
-		if ct>0 and Duel.GetMatchingGroupCount(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,nil,0x624,1)>0
-			and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
-			while ct>0 do
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
-				local tc=Duel.SelectMatchingCard(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,1,1,nil,0x624,1):GetFirst()
-				if not tc then break end
-				tc:AddCounter(0x624,1)
-				ct=ct-1
-			end
-		end
-	end
-end

expansions/script/c60002155.lua

---盛放舞者
-local m=60002155
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.condition)
-	e1:SetTarget(cm.sptg)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--search
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e5:SetCode(EVENT_LEAVE_FIELD_P)
-	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e5:SetOperation(cm.regop)
-	c:RegisterEffect(e5)
-	local e7=Effect.CreateEffect(c)
-	e7:SetDescription(aux.Stringid(28929131,2))
-	e7:SetCategory(CATEGORY_DRAW)
-	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e7:SetProperty(EFFECT_FLAG_DELAY)
-	e7:SetCode(EVENT_TO_GRAVE)
-	e7:SetCountLimit(1)
-	e7:SetCondition(cm.drcon)
-	e7:SetTarget(cm.drtg)
-	e7:SetOperation(cm.drop)
-	e7:SetLabelObject(e5)
-	c:RegisterEffect(e7)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-end
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsCanRemoveCounter(tp,1,0,0x624,1,REASON_RULE)
-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 e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-		c:AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-	end
-end
-function cm.regop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ct=c:GetCounter(0x624)
-	e:SetLabel(ct)
-end
-function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ct=e:GetLabelObject():GetLabel()
-	return ct>0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
-end
-function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.drop(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
\ No newline at end of file

expansions/script/c60002156.lua

---血艳领主 夕月
-local m=60002156
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--Evolve
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,1))
-	e3:SetCategory(CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCost(cm.spcost)
-	e3:SetTarget(cm.sptg)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.filter(c,e,tp)
-	return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local sr=Duel.GetFlagEffect(tp,60002148)
-	if sr>=3 then
-		local num=1
-		if sr>=5 then 
-			num=2
-		end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
-		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,0,num,nil)
-		Duel.Destroy(g,REASON_EFFECT)
-		Duel.Draw(tp,num,REASON_EFFECT)
-	end
-end
-function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		e:GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,cm.filter,tp,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)
-			g:GetFirst():AddCounter(0x624,1)
-			Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-			g:GetFirst():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-			local e2=Effect.CreateEffect(e:GetHandler())
-			e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-			e2:SetCode(EVENT_PHASE+PHASE_END)
-			e2:SetCountLimit(1)
-			e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-			e2:SetLabelObject(g:GetFirst())
-			e2:SetCondition(cm.descon)
-			e2:SetOperation(cm.desop)
-			Duel.RegisterEffect(e2,tp)
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_CANNOT_TRIGGER)
-			e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			g:GetFirst():RegisterEffect(e1,true)
-		end
-	end
-end
-function cm.descon(e,tp,eg,ep,ev,re,r,rp)
-	local tc=e:GetLabelObject()
-	if tc:GetFlagEffect(m)~=0 then
-		return true
-	else
-		e:Reset()
-		return false
-	end
-end
-function cm.desop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=e:GetLabelObject()
-	Duel.Destroy(tc,REASON_EFFECT)
-end

expansions/script/c60002158.lua

---残酷的媚猫·帷
-local m=60002158
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_DRAW+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--Evolve
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,1))
-	e3:SetCategory(CATEGORY_TOKEN)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCost(cm.spcost)
-	e3:SetTarget(cm.sptg)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	--to grave
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(m,1))
-	e4:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e4:SetCode(EVENT_BATTLE_START)
-	e4:SetTarget(cm.tgtg)
-	e4:SetOperation(cm.tgop)
-	c:RegisterEffect(e4)
-	--maintain
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e4:SetCode(EVENT_PHASE+PHASE_END)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetCondition(cm.mtcon)
-	e4:SetOperation(cm.mtop)
-	c:RegisterEffect(e4)
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		e:GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-	end
-end
-function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local d=Duel.GetAttackTarget()
-	if chk==0 then return Duel.GetAttacker()==e:GetHandler() and d end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,d,1,0,0)
-end
-function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
-		local d=Duel.GetAttackTarget()
-		if d:IsRelateToBattle() then
-			Duel.SendtoGrave(d,REASON_EFFECT)
-		end
-end
-function cm.mtcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()==tp
-end
-function cm.mtop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetFlagEffect(tp,60002148)>=5 then
-		Duel.Recover(tp,1200,REASON_EFFECT)
-		Duel.Damage(1-tp,1200,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c60002160.lua

---憧憬的飞跃 苇剑
-local m=60002160
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--Evolve
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,1))
-	e3:SetCategory(CATEGORY_TOKEN)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCost(cm.spcost)
-	e3:SetTarget(cm.sptg)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-end
-function cm.thfilter(c)
-	return c:IsCode(m+1) and c:IsAbleToHand()
-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+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		e:GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-	end
-end
\ No newline at end of file

expansions/script/c60002161.lua

---幼狼的奋战
-local m=60002161
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--damage
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(cm.damtg)
-	e1:SetOperation(cm.damop)
-	c:RegisterEffect(e1)
-end
-function cm.filter(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetTargetPlayer(1-tp)
-	Duel.SetTargetParam(400)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,400)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function cm.damop(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Damage(p,d,REASON_EFFECT)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,cm.filter,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
-	if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,e,tp,m-1) then
-		Duel.Draw(tp,1,REASON_EFFECT)
-	end
-	if Duel.GetFlagEffect(tp,60002148)>=5 then
-		Duel.Damage(1-tp,1600,REASON_EFFECT)
-	end
-end
-
-
-
-
-
-
-
-
-
-
-

expansions/script/c60002162.lua

---奇幻之梦 爱丽丝
-local m=60002162
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	--extra summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,2))
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
-	e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
-	e2:SetCondition(cm.incon)
-	e2:SetRange(LOCATION_MZONE)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EFFECT_EXTRA_SET_COUNT)
-	c:RegisterEffect(e3)
-end
-function cm.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,c)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,c)
-	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.filter(c,e,tp)
-	return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local sr=Duel.GetFlagEffect(tp,60002148)
-	if sr>=3 then
-		if Duel.Draw(tp,2,REASON_EFFECT)~=0 then
-			Duel.ShuffleHand(tp)
-			Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
-			if e:GetHandler():IsRelateToEffect(e) then
-				e:GetHandler():AddCounter(0x624,1)
-				Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-			end
-		end
-		if sr>=5 then 
-			if e:GetHandler():IsRelateToEffect(e) then
-				local e1=Effect.CreateEffect(e:GetHandler())
-				e1:SetType(EFFECT_TYPE_SINGLE)
-				e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-				e1:SetCode(EFFECT_DIRECT_ATTACK)
-				e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-				e:GetHandler():RegisterEffect(e1)
-			end
-		end
-	end
-end
\ No newline at end of file

expansions/script/c60002163.lua

---庭院追忆 奥莉薇&希尔薇娅
-local m=60002163
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e1:SetCountLimit(1,m)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--Evolve
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,1))
-	e3:SetCategory(CATEGORY_TOKEN+CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCost(cm.spcost)
-	e3:SetTarget(cm.sptg)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-	--attackup
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCode(EFFECT_UPDATE_ATTACK)
-	e4:SetCondition(cm.incon)
-	e4:SetValue(800)
-	c:RegisterEffect(e4)
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE)
-	e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCode(EFFECT_UPDATE_DEFENSE)
-	e5:SetCondition(cm.incon)
-	e5:SetValue(800)
-	c:RegisterEffect(e5)
-end
-function cm.filter(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.filter2(c,e,tp)
-	return not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x624)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local sr=Duel.GetFlagEffect(tp,60002148)
-	if e:GetHandler():IsRelateToEffect(e) and sr~=0 then
-		e:GetHandler():AddCounter(0x624,sr)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-		if Duel.SelectYesNo(tp,aux.Stringid(m,0))==0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,cm.filter,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
-		if sr>=5 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-			local g=Duel.SelectMatchingCard(tp,cm.filter2,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
-		end
-	end
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		e:GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		local dmg=Card.GetCounter(e:GetHandler(),0x624)*400
-		local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil) 
-		local tc=g:GetFirst()
-		while tc do 
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_UPDATE_ATTACK)
-			e1:SetValue(-dmg)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1)   
-			if tc:GetAttack()==0 then
-				Duel.Destroy(tc,REASON_EFFECT)
-			end
-			tc=g:GetNext()
-		end 
-	end
-end
\ No newline at end of file

expansions/script/c60002165.lua

---失落武士 景光
-local m=60002165
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOKEN+CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	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(m,1))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.regcon)
-	e3:SetOperation(cm.regop)
-	c:RegisterEffect(e3)
-	--to grave
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(m,2))
-	e4:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e4:SetCode(EVENT_BATTLE_START)
-	e4:SetCondition(cm.incon)
-	e4:SetTarget(cm.tgtg)
-	e4:SetOperation(cm.tgop)
-	c:RegisterEffect(e4)
-	if not cm.global_check then
-		cm.global_check=true
-		local ge1=Effect.CreateEffect(c)
-		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(cm.checkop)
-		Duel.RegisterEffect(ge1,0)
-		local ge2=ge1:Clone()
-		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
-		Duel.RegisterEffect(ge2,0)
-	end
-end
-function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1000)
-		tc=eg:GetNext()
-	end
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetFlagEffect(tp,m)>=10 then
-		if e:GetHandler():IsRelateToEffect(e) then
-			e:GetHandler():AddCounter(0x624,1)
-			Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		end
-		Duel.Draw(tp,1,REASON_EFFECT)
-	end
-end
-function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
-end
-function cm.regop(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
-	e1:SetCountLimit(1)
-	e1:SetLabel(Duel.GetTurnCount())
-	e1:SetCondition(cm.spcon)
-	e1:SetOperation(cm.spop)
-	if Duel.GetCurrentPhase()<=PHASE_STANDBY then
-		e1:SetReset(RESET_PHASE+PHASE_STANDBY,2)
-	else
-		e1:SetReset(RESET_PHASE+PHASE_STANDBY)
-	end
-	Duel.RegisterEffect(e1,tp)
-end
-function cm.spfilter(c,e,tp)
-	return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnCount()~=e:GetLabel() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,m)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	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
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1)
-end
-function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local dmg=0
-	if Duel.GetFlagEffect(tp,60002148)>=5 then
-		dmg=800
-		if Duel.GetFlagEffect(tp,60002148)>=7 then
-			dmg=1600
-		end
-	end
-	Duel.Damage(1-tp,dmg,REASON_EFFECT)
-	local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil) 
-	local tc=g:GetFirst()
-	while tc do 
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(-dmg)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)   
-		if tc:GetAttack()==0 then
-			Duel.Destroy(tc,REASON_EFFECT)
-		end
-		tc=g:GetNext()
-	end 
-end

expansions/script/c60002167.lua

---肃清之器 梅希亚
-local m=60002167
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	aux.AddLinkProcedure(c,cm.matfilter,2)
-	c:EnableReviveLimit()
-	--search
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,0))
-	e3:SetCategory(CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e3:SetCountLimit(1,m)
-	e3:SetTarget(cm.thtg)
-	e3:SetOperation(cm.thop)
-	c:RegisterEffect(e3)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(cm.attackup)
-	c:RegisterEffect(e3)
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.attackup(e,c)
-	local atkup=(Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)*200)+(Duel.GetFlagEffect(tp,60002148)*400)+(Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)*800)
-	if Duel.GetTurnCount()>=8 then
-		atkup=atkup+(Duel.GetTurnCount()-8)*10000
-	end
-	return atkup
-end
-function cm.matfilter(c)
-	return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c)
-end
-function cm.thfilter(c,tp)
-	return c:IsAbleToHand()
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c63288573.thfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local sg=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		if Card.IsCanHaveCounter(tc,0x624) and e:GetHandler():IsRelateToEffect(e) then
-			e:GetHandler():AddCounter(0x624,1)
-			Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		end
-	end
-end
-
-
-
-
-
-
-
-
-
-
-
-
-
-

expansions/script/c60002171.lua

---约定的荣耀 高文
-local m=60002171
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	if not cm.global_check then
-		cm.global_check=true
-		local ge1=Effect.CreateEffect(c)
-		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(cm.checkop)
-		Duel.RegisterEffect(ge1,0)
-		local ge2=ge1:Clone()
-		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
-		Duel.RegisterEffect(ge2,0)
-	end
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetFlagEffect(tp,m)>=5 then
-		Duel.Draw(tp,1,REASON_EFFECT)
-	end
-	if Duel.GetFlagEffect(tp,m)>=10 then
-		if e:GetHandler():IsRelateToEffect(e) then
-			e:GetHandler():AddCounter(0x624,1)
-			Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		end
-	end
-	if Duel.GetFlagEffect(tp,m)>=15 then
-		if e:GetHandler():IsRelateToEffect(e) then
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e1:SetCode(EFFECT_DIRECT_ATTACK)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			e:GetHandler():RegisterEffect(e1)
-		end
-	end
-	if Duel.GetFlagEffect(tp,m)>=20 then
-		local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e1:SetCode(EFFECT_INDESTRUCTABLE)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			e:GetHandler():RegisterEffect(e1)
-		end
-end
-function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1000)
-		tc=eg:GetNext()
-	end
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
\ No newline at end of file

expansions/script/c60002172.lua

---荣光剑士 奥蕾莉亚
-local m=60002172
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--sp summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1)
-	e1:SetCondition(cm.tgcon)
-	e1:SetTarget(cm.tgtg)
-	e1:SetOperation(cm.tgop)
-	c:RegisterEffect(e1)
-	--disable spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCondition(cm.incon)
-	e1:SetTargetRange(0,1)
-	e1:SetTarget(cm.sumlimit)
-	c:RegisterEffect(e1)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(cm.incon)
-	e2:SetValue(2)
-	c:RegisterEffect(e2)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--to grave
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(m,2))
-	e4:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e4:SetCode(EVENT_BATTLE_START)
-	e4:SetCondition(cm.incon)
-	e4:SetTarget(cm.tgtg2)
-	e4:SetOperation(cm.tgop2)
-	c:RegisterEffect(e4)
-	if not cm.global_check then
-		cm.global_check=true
-		local ge1=Effect.CreateEffect(c)
-		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(cm.checkop)
-		Duel.RegisterEffect(ge1,0)
-		local ge2=ge1:Clone()
-		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
-		Duel.RegisterEffect(ge2,0)
-	end
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1000)
-		tc=eg:GetNext()
-	end
-end
-function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return rp==1-tp and re:IsActiveType(TYPE_MONSTER) and re:GetActivateLocation()==LOCATION_MZONE
-end
-function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
-		end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-		if Duel.GetFlagEffect(tp,m)>=7 then
-			Duel.Draw(tp,1,REASON_EFFECT)
-			if e:GetHandler():IsRelateToEffect(e) then
-				e:GetHandler():AddCounter(0x624,1)
-				Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-			end
-		end
-end
-function cm.tgtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1)
-end
-function cm.tgop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	Duel.Recover(tp,800,REASON_EFFECT)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_UPDATE_ATTACK)
-	e1:SetValue(800)
-	c:RegisterEffect(e1)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_UPDATE_DEFENSE)
-	e1:SetValue(800)
-	c:RegisterEffect(e1)
-end
-function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp)
-	return c:GetRace()==RACE_WARRIOR
-end
-
-

expansions/script/c60002178.lua

---绿宝石圣女
-local m=60002178
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,1))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+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:SetTarget(cm.target)
-	e1:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-	local e3=e1:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	--selfdes
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetCode(EFFECT_SELF_DESTROY)
-	e7:SetCondition(cm.descon)
-	c:RegisterEffect(e7)
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,3)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-	end
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(2)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function cm.filter(c)
-	return c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER) and not c:IsCode(m) and c:IsAbleToHand()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,_,exc)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,exc) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-		if Duel.GetFlagEffect(tp,60002177)>=5 then
-			Duel.Draw(tp,1,REASON_EFFECT)
-		end
-	end
-end
\ No newline at end of file

expansions/script/c60002179.lua

---荒天雷神
-local m=60002179
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--selfdes
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetCode(EFFECT_SELF_DESTROY)
-	e7:SetCondition(cm.descon)
-	c:RegisterEffect(e7)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCost(cm.thcost)
-	e2:SetTarget(cm.thtg)
-	e2:SetOperation(cm.thop)
-	c:RegisterEffect(e2)
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,1)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-	end
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
-end
-function cm.filter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP)
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chkc then return chkc:IsOnField() and cm.filter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0,LOCATION_SZONE,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,cm.filter,tp,0,LOCATION_SZONE,1,1,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c60002180.lua

---灵鼠族小丑
-local m=60002180
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--selfdes
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetCode(EFFECT_SELF_DESTROY)
-	e7:SetCondition(cm.descon)
-	c:RegisterEffect(e7)
-end
-function cm.filter(c,e,tp)
-	return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.thop(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,cm.filter,tp,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)
-			g:GetFirst():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_CANNOT_TRIGGER)
-			e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			g:GetFirst():RegisterEffect(e1,true)
-		end
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,3)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-	end
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
-		end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_CANNOT_TRIGGER)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-	e:GetHandler():RegisterEffect(e1,true)
-end
\ No newline at end of file

expansions/script/c60002181.lua

---蓝宝石祭司
-local m=60002181
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,1))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+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:SetCost(cm.acost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-	local e3=e1:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	--return
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCategory(CATEGORY_DRAW)
-	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(cm.rtcon)
-	e2:SetTarget(cm.rttg)
-	e2:SetOperation(cm.rtop)
-	c:RegisterEffect(e2)
-	--atk up
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,m)
-	e2:SetTarget(cm.atktg1)
-	e2:SetOperation(cm.atkop1)
-	c:RegisterEffect(e2)
-end
-function cm.acost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.filter(c)
-	return (c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER)) or c:IsCode(m+2) and c:IsAbleToHand()
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,_,exc)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-	if Duel.GetFlagEffect(tp,60002177)>=5 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local g=Duel.SelectMatchingCard(tp,cm.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
-end
-function cm.tgfilter(c)
-	return c:IsType(TYPE_MONSTER) and c:IsFaceup()
-end
-function cm.rtcon(e,tp,eg,ep,ev,re,r,rp)
-	local at=Duel.GetAttacker()
-	return at and at:IsControler(tp) and Duel.GetFlagEffect(tp,60002177)>=5
-end
-function cm.rttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.rtop(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function cm.filter1(c)
-	return c:IsFaceup() and not c:IsCode(m)
-end
-function cm.atktg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter1(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil)
-end
-function cm.atkop1(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_DIRECT_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetDescription(aux.Stringid(m,2))
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
-		e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-		e1:SetValue(1)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)
-	end
-end
-
-
-
-
-
-
-
-

expansions/script/c60002182.lua

---俱灭之白骨圣堂教主
-local m=60002182
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER+CATEGORY_DAMAGE)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCost(cm.thcost)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--overlay
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,2))
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_DESTROYED)
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCondition(cm.ovcon)
-	e2:SetTarget(cm.ovtg)
-	e2:SetOperation(cm.ovop)
-	c:RegisterEffect(e2)
-end
-function cm.spcon(e,c)
-	if c==nil then return true end
-	return Duel.GetFlagEffect(tp,m)>=4
-end
-function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,500,REASON_EFFECT)
-	Duel.Recover(tp,500,REASON_EFFECT)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1000)
-end
-function cm.filter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP)
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
-	local sg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local sg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
-	Duel.Destroy(sg,REASON_EFFECT)
-	local c=e:GetHandler()
-	local dmg=1600
-	Duel.Damage(tp,dmg,REASON_EFFECT)
-	local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil) 
-	local tc=g:GetFirst()
-	while tc do 
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(-dmg)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)   
-		if tc:GetAttack()==0 then
-			Duel.Destroy(tc,REASON_EFFECT)
-		end
-		tc=g:GetNext()
-	end 
-end
-function cm.cfilter(c,tp)
-	return c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_ONFIELD)
-end
-function cm.ovcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(cm.cfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
-end
-function cm.ovtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToHand() and Duel.GetFlagEffect(tp,m+10000000)==0 end
-	Duel.RegisterFlagEffect(tp,m+10000000,RESET_CHAIN,0,1)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
-end
-function cm.ovop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c60002183.lua

---宝石圣堂
-local m=60002183
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,5))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW+CATEGORY_TOGRAVE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCost(cm.accost)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,6))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW+CATEGORY_TOGRAVE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	c:RegisterEffect(e1)
-	--return
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
-	e2:SetRange(LOCATION_SZONE)
-	e2:SetCondition(cm.rtcon)
-	e2:SetOperation(cm.rtop)
-	c:RegisterEffect(e2)
-	--immune
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-end
-function cm.accost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.filter1(c)
-	return c:IsLevelBelow(4) and c:IsRace(RACE_SPELLCASTER) and c:IsAbleToHand()
-end
-function cm.filter2(c)
-	return c:IsLevelAbove(7) and c:IsRace(RACE_FAIRY) and c:IsAbleToGrave()
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-		local op=0
-		op=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2),aux.Stringid(m,3))
-		if op==0 then
-			Duel.Draw(tp,1,REASON_EFFECT)
-		elseif op==1 then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local g=Duel.SelectMatchingCard(tp,cm.filter1,tp,LOCATION_DECK,0,1,1,nil)
-			if g:GetCount()>0 then
-				Duel.SendtoHand(g,nil,REASON_EFFECT)
-				Duel.ConfirmCards(1-tp,g)
-			end
-		elseif op==2 then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-			local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_DECK,0,1,1,nil)
-			if g:GetCount()>0 then
-				Duel.SendtoGrave(g,REASON_EFFECT)
-			end
-		end
-end
-function cm.rtcon(e,tp,eg,ep,ev,re,r,rp)
-	local at=Duel.GetAttacker()
-	return at and at:IsControler(tp) 
-end
-function cm.rtop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local dmg=0
-	if Duel.GetFlagEffect(tp,60002177)>=5 then
-		dmg=1200
-	else
-		dmg=400
-	end
-	local g1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
-	local tc=g1:GetFirst()
-	while tc do
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		e1:SetValue(dmg)
-		tc:RegisterEffect(e1)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_DEFENSE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		e1:SetValue(dmg)
-		tc:RegisterEffect(e1)
-		tc=g1:GetNext()
-	end
-end
\ No newline at end of file

expansions/script/c60002185.lua

---璀钻之主
-local m=60002185
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	
-	e1:SetCondition(cm.spcon)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCountLimit(1,m)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--change battle target
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCode(EVENT_BE_BATTLE_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,m+10000000)
-	e2:SetTarget(cm.cbtg)
-	e2:SetOperation(cm.cbop)
-	c:RegisterEffect(e2)
-	--change effect target
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e3:SetCode(EVENT_CHAINING)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,m+10000000)
-	e3:SetCondition(cm.cecon)
-	e3:SetTarget(cm.cbtg)
-	e3:SetOperation(cm.cbop)
-	c:RegisterEffect(e3)
-	--to grave
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(m,2))
-	e4:SetCategory(CATEGORY_DESTROY)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e4:SetCode(EVENT_BATTLE_START)
-	e4:SetOperation(cm.tgop)
-	c:RegisterEffect(e4)
-end
-function cm.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.filter(c)
-	return c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.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 cm.filter1(c)
-	return c:IsFaceup() and not c:IsCode(m)
-end
-function cm.cbtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter1(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil)
-end
-function cm.cbop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_DIRECT_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetDescription(aux.Stringid(m,2))
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
-		e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-		e1:SetValue(1)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)
-	end
-end
-function cm.cecon(e,tp,eg,ep,ev,re,r,rp)
-	if e==re or rp==tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
-	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
-	return g and g:GetCount()==1 and g:GetFirst()==e:GetHandler()
-end
-function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
-	local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
-	Duel.Destroy(sg,REASON_EFFECT)
-end
\ No newline at end of file

expansions/script/c60002186.lua

---雷导神鸟
-local m=60002186
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--selfdes
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetCode(EFFECT_SELF_DESTROY)
-	e7:SetCondition(cm.descon)
-	c:RegisterEffect(e7)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,1))
-	e1:SetCategory(CATEGORY_DRAW+CATEGORY_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:SetCost(cm.acost)
-	e1:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-	local e3=e1:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,2)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-	end
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.xfilter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(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 cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT)
-		if Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-			local g=Duel.SelectMatchingCard(tp,cm.xfilter,tp,0,LOCATION_MZONE,1,1,nil)
-			Duel.Destroy(g:GetFirst(),REASON_EFFECT)
-		end
-	end
-end
-function cm.acost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,_,exc)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.sumfilter(c)
-	return c:IsSummonable(true,nil) 
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Draw(tp,1,REASON_EFFECT)
-	if Duel.GetFlagEffect(tp,60002177)>=5 then
-		if Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil)
-			and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
-			Duel.BreakEffect()
-			Duel.ShuffleHand(tp)
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-			local sg=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
-			if sg:GetCount()>0 then
-				Duel.Summon(tp,sg:GetFirst(),true,nil)
-			end
-		end
-	end
-end
-
-
-
-

expansions/script/c60002187.lua

---恶浊神父
-local m=60002187
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_RECOVER)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--selfdes
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetCode(EFFECT_SELF_DESTROY)
-	e7:SetCondition(cm.descon)
-	c:RegisterEffect(e7)
-	--spsummon
-	local e8=Effect.CreateEffect(c)
-	e8:SetDescription(aux.Stringid(m,1))
-	e8:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e8:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e8:SetCode(EVENT_SUMMON_SUCCESS)
-	e8:SetTarget(cm.sptg)
-	e8:SetOperation(cm.spop)
-	c:RegisterEffect(e8)
-	local e2=e8:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local r=0
-	if math.floor(Duel.GetTurnCount()/2)==Duel.GetTurnCount()/2 then
-		r=1
-	else
-		r=3
-	end
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,r)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-	end
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.xfilter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
-		end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
-end
-function cm.filter(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-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.filter(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
-		Duel.Recover(tp,1500,REASON_EFFECT)
-	end
-	Duel.SpecialSummonComplete()
-end
\ No newline at end of file

expansions/script/c60002188.lua

---隐秘的代行者
-local m=60002188
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--selfdes
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetCode(EFFECT_SELF_DESTROY)
-	e7:SetCondition(cm.descon)
-	c:RegisterEffect(e7)
-	--spsummon
-	local e8=Effect.CreateEffect(c)
-	e8:SetDescription(aux.Stringid(m,1))
-	e8:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
-	e8:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e8:SetCode(EVENT_SUMMON_SUCCESS)
-	e8:SetTarget(cm.sptg2)
-	e8:SetOperation(cm.spop)
-	c:RegisterEffect(e8)
-	local e2=e8:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,2)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-	end
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
-		Duel.Destroy(g:GetFirst(),REASON_EFFECT)
-	end
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():IsRelateToEffect(e) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
-		Duel.Destroy(g:GetFirst(),REASON_EFFECT)
-		Duel.Draw(tp,1,REASON_EFFECT)
-	end
-end
-function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_MZONE)
-end
-
-

expansions/script/c60002189.lua

---绚彩瑰石 文奇
-local m=60002189
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,1))
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-	local e3=e1:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-end
-function cm.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	local tcr=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
-	local tcc=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)
-	for i=1,tcc do
-	local tc=tcr:GetFirst()
-		if tc:IsFaceup() and tc:IsRelateToEffect(e) then
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e1:SetCode(EFFECT_DIRECT_ATTACK)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e1)
-			if  Duel.GetFlagEffect(tp,60002177)>=5 then
-				local e1=Effect.CreateEffect(e:GetHandler())
-				e1:SetDescription(aux.Stringid(m,2))
-				e1:SetType(EFFECT_TYPE_SINGLE)
-				e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
-				e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-				e1:SetValue(1)
-				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-				tc:RegisterEffect(e1)
-			end
-		end
-		tcr:RemoveCard(tc)
-	end
-end
\ No newline at end of file

expansions/script/c60002191.lua

---月晖圣骑士 阿斯托尔福
-local m=60002191
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624,LOCATION_ONFIELD)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--selfdes
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetCode(EFFECT_SELF_DESTROY)
-	e7:SetCondition(cm.descon)
-	c:RegisterEffect(e7)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetCountLimit(1,m)
-	e1:SetCost(cm.acost)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--to hand2
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetCountLimit(1,m)
-	e1:SetCost(cm.acost)
-	e1:SetTarget(cm.thtg2)
-	e1:SetOperation(cm.thop2)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-end
-function cm.acost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.thfilter(c,e,tp)
-	return c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(m)
-end
-function cm.thfilter2(c,e,tp)
-	return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(m)
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1
-		and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,2,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1
-		and Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_DECK,0,2,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,cm.thfilter,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
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,cm.thfilter2,tp,LOCATION_DECK,0,2,2,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-		g:GetFirst():GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		g:RemoveCard(g:GetFirst())
-		g:GetFirst():GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-	end
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,1)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-		if Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-			local g=Duel.SelectMatchingCard(tp,cm.xfilter,tp,0,LOCATION_MZONE,1,1,nil)
-			Duel.Destroy(g:GetFirst(),REASON_EFFECT)
-		end
-	end
-end
-function cm.xfilter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
\ No newline at end of file

expansions/script/c60002205.lua

---崇高圣体
-local m=60002205
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--attackup
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(cm.incon)
-	e3:SetValue(1600)
-	c:RegisterEffect(e3)
-	--untargetable
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_IGNORE_BATTLE_TARGET)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(cm.rincon)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-	--search
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e5:SetCode(EVENT_LEAVE_FIELD_P)
-	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e5:SetOperation(cm.regop)
-	c:RegisterEffect(e5)
-	local e7=Effect.CreateEffect(c)
-	e7:SetDescription(aux.Stringid(m,2))
-	e7:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e7:SetProperty(EFFECT_FLAG_DELAY)
-	e7:SetCode(EVENT_TO_GRAVE)
-	e7:SetCountLimit(1)
-	e7:SetCondition(cm.drcon)
-	e7:SetTarget(cm.drtg)
-	e7:SetOperation(cm.drop)
-	e7:SetLabelObject(e5)
-	c:RegisterEffect(e7)
-end
-function cm.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.rincon(e)
-	return not Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-function cm.regop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ct=c:GetCounter(0x624)
-	e:SetLabel(ct)
-end
-function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ct=e:GetLabelObject():GetLabel()
-	return ct==0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
-end
-function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function cm.drop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
-		c:AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		if not e:GetHandler():IsCanRemoveCounter(tp,0x624,1,REASON_COST) then
-			Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE)
-		end
-	end
-end
\ No newline at end of file

expansions/script/c60002206.lua

---红宝石飞鹰
-local m=60002178
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
-	--summon with s/t
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
-	e1:SetTargetRange(LOCATION_SZONE,0)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
-	e1:SetValue(POS_FACEUP_ATTACK)
-	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetTarget(cm.thtg2)
-	e2:SetOperation(cm.thop2)
-	c:RegisterEffect(e2)
-	--spsummon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCondition(cm.spcon2)
-	e3:SetTarget(cm.sptg2)
-	e3:SetOperation(cm.spop2)
-	c:RegisterEffect(e3)
-	--spsummon
-	local e8=Effect.CreateEffect(c)
-	e8:SetDescription(aux.Stringid(m,1))
-	e8:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e8:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e8:SetCode(EVENT_SUMMON_SUCCESS)
-	e8:SetTarget(cm.sptg)
-	e8:SetOperation(cm.spop)
-	c:RegisterEffect(e8)
-	local e2=e8:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--direct attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_DIRECT_ATTACK)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetTarget(cm.datg)
-	c:RegisterEffect(e1)
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetCode(EFFECT_CHANGE_TYPE)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
-		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
-		c:RegisterEffect(e1)
-		e:GetHandler():AddCounter(0x625,1)
-		Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
-		--cost
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e4:SetCountLimit(1)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		e4:SetRange(LOCATION_SZONE)
-		e4:SetOperation(cm.ccost)
-		e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		c:RegisterEffect(e4)
-		--selfdes
-		local e7=Effect.CreateEffect(c)
-		e7:SetType(EFFECT_TYPE_SINGLE)
-		e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-		e7:SetRange(LOCATION_SZONE)
-		e7:SetCode(EFFECT_SELF_DESTROY)
-		e7:SetCondition(cm.descon)
-		c:RegisterEffect(e7)
-	end
-end
-function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
-	if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
-		Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
-	end
-end
-function cm.descon(e)
-	return Card.GetCounter(e:GetHandler(),0x625)==0
-end
-function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
-end
-function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function cm.filter(c,e,tp)
-	return ((c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER)) or c:IsLevelBelow(2)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(m)
-end
-function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-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(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_HAND)
-end
-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,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
-		Duel.SpecialSummonComplete()
-	end
-end
-function cm.datg(e,c)
-	return c:IsPosition(POS_FACEUP)
-end
\ No newline at end of file

expansions/script/c60002207.lua

---紫水晶雄狮
-local m=60002207
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,1))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+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:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-	local e3=e1:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-end
-function cm.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	local count=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_SZONE,0,nil)
-	local num={}
-	local i=1
-	while i<=count do
-		num[i]=i
-		i=i+1
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
-	count=Duel.AnnounceNumber(tp,table.unpack(num))
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,count,REASON_COST)
-end
\ No newline at end of file

expansions/script/c60002223.lua

---机锋的罪人 卡特斯罗特
-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e0:SetCode(EVENT_TO_HAND)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetOperation(cm.op0)
-	c:RegisterEffect(e0)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.con1)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_SUMMON_PROC)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
-	e2:SetCondition(cm.con2)
-	e2:SetOperation(cm.op2)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_SUMMON_SUCCESS)
-	e3:SetOperation(cm.op3)
-	c:RegisterEffect(e3)
-	local e4=e3:Clone()
-	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e4)
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_DAMAGE+CATEGORY_ATKCHANGE)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(cm.cos5)
-	e5:SetTarget(cm.tg5)
-	e5:SetOperation(cm.op5)
-	c:RegisterEffect(e5)
-end
---e0
-function cm.op0(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetHandler():GetFieldID()<=172 then return end
-	e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-end
---e1
-function cm.con1(e,c)
-	if c==nil then return true end
-	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and c:GetFlagEffect(m)>0
-end
---e2
-function cm.con2(e,c,minc)
-	if c==nil then return true end
-	return minc<=1 and Duel.CheckTribute(c,1)
-end
-function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
-	g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
-	for tc in aux.Next(g) do
-		if tc:IsLocation(LOCATION_GRAVE) then 
-			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-		end
-	end
-end
---e3
-function cm.op3f1(c,mc)
-	return not aux.IsCodeListed(c,mc:GetCode())
-end
-function cm.op3con1f(c,tp)
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and (c:IsReason(REASON_COST) or c:IsReason(REASON_SUMMON+REASON_MATERIAL))
-end
-function cm.op3con1(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(cm.op3con1f,1,nil,tp)
-end
-function cm.op3op1(e,tp,eg,ep,ev,re,r,rp)
-	if #eg-1<=0 then return end
-	Duel.Draw(tp,#eg-1,REASON_EFFECT)
-end
-function cm.op3(e,tp,eg,ep,ev,re,r,rp)
-	local c,g=e:GetHandler(),Duel.GetFieldGroup(tp,LOCATION_DECK,0)
-	Duel.ConfirmCards(1-tp,g)
-	g=g:Filter(cm.op3f1,nil,c)
-	if g:GetClassCount(Card.GetCode)==#g then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e1:SetCode(EVENT_RELEASE)
-		e1:SetCondition(cm.op3con1)
-		e1:SetOperation(cm.op3op1)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
---e5
-function cm.cos5f1(c)
-	return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
-end
-function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,99,nil)
-	e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
-end
-function cm.tg5(e,tp,eg,ep,ev,re,r,rp,chk)
-	local dam=e:GetLabel()>2 and 4000 or 2000
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(1-tp)
-	Duel.SetTargetParam(dam)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam)
-end
-function cm.op5(e,tp,eg,ep,ev,re,r,rp)
-	local dam=e:GetLabel()>2 and 4000 or 2000
-	if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_UPDATE_ATTACK)
-	e1:SetValue(dam)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	e:GetHandler():RegisterEffect(e1)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Damage(p,d,REASON_EFFECT)
-end

expansions/script/c60002227.lua

---熔铁亲信
-local m=60002227
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	aux.AddCodeList(c,60002223)
-	--爆能强化
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_SUMMON_PROC)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
-	e2:SetCondition(cm.con2)
-	e2:SetOperation(cm.op2)
-	c:RegisterEffect(e2)
-	--进化
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE+CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(cm.cos5)
-	e5:SetOperation(cm.op5)
-	c:RegisterEffect(e5)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-end
-function cm.con2(e,c,minc)
-	if c==nil then return true end
-	return minc<=1 and Duel.CheckTribute(c,1)
-end
-function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
-	g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
-	for tc in aux.Next(g) do
-		if tc:IsLocation(LOCATION_GRAVE) then 
-			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-		end
-	end
-end
-function cm.cos5f1(c)
-	return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
-end
-function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,1,99,nil)
-	e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
-end
-function cm.op5(e,tp,eg,ep,ev,re,r,rp)
-	local dam=e:GetLabel()
-	if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
-	if dam>=1 then
-		local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil) 
-		local tc=g:GetFirst()
-		while tc do 
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_UPDATE_ATTACK)
-			e1:SetValue(-800)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1)   
-			if tc:GetAttack()==0 then
-				Duel.Destroy(tc,REASON_EFFECT)
-			end
-			tc=g:GetNext()
-		end 
-		if dam>=2 then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local g=Duel.SelectMatchingCard(tp,cm.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
-	end
-end
-function cm.thfilter(c)
-	return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-end
-function cm.thfilter2(c)
-	return c:IsLevel(1) and c:IsAbleToHand()
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.thfilter2,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		if not g:GetFirst():IsCode(60002223) and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
-			Duel.ConfirmCards(1-tp,g)
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_FIELD)
-			e1:SetCode(EFFECT_CANNOT_SUMMON)
-			e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-			e1:SetTargetRange(1,0)
-			e1:SetTarget(cm.sumlimit)
-			e1:SetLabel(g:GetFirst():GetCode())
-			e1:SetReset(RESET_PHASE+PHASE_END)
-			Duel.RegisterEffect(e1,tp)
-			local e2=e1:Clone()
-			e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-			Duel.RegisterEffect(e2,tp)
-			local e3=e1:Clone()
-			e3:SetCode(EFFECT_CANNOT_MSET)
-			Duel.RegisterEffect(e3,tp)
-			local e4=e1:Clone()
-			e4:SetCode(EFFECT_CANNOT_ACTIVATE)
-			e4:SetValue(cm.aclimit)
-			Duel.RegisterEffect(e4,tp)
-		end
-	end
-end
-function cm.sumlimit(e,c)
-	return c:IsCode(e:GetLabel())
-end
-function cm.aclimit(e,re,tp)
-	return re:GetHandler():IsCode(e:GetLabel()) and re:IsActiveType(TYPE_MONSTER)
-end
\ No newline at end of file

expansions/script/c60002228.lua

---镀黑小卒
-local m=60002228
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	aux.AddCodeList(c,60002223)
-	--爆能强化
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_SUMMON_PROC)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
-	e2:SetCondition(cm.con2)
-	e2:SetOperation(cm.op2)
-	c:RegisterEffect(e2)
-	--进化
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_ATKCHANGE)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(cm.cos5)
-	e5:SetOperation(cm.op5)
-	c:RegisterEffect(e5)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,2))
-	e1:SetCategory(CATEGORY_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCost(cm.spcost)
-	e1:SetTarget(cm.sptg)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-end
-function cm.con2(e,c,minc)
-	if c==nil then return true end
-	return minc<=1 and Duel.CheckTribute(c,1)
-end
-function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
-	g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
-	for tc in aux.Next(g) do
-		if tc:IsLocation(LOCATION_GRAVE) then 
-			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-		end
-	end
-end
-function cm.cos5f1(c)
-	return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
-end
-function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,1,99,nil)
-	e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
-end
-function cm.op5(e,tp,eg,ep,ev,re,r,rp)
-	local dam=e:GetLabel()
-	if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
-	if dam==1 then
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,cm.filter,tp,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
-	if dam>=2 then
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,2,2,nil,e,tp)
-		if g:GetCount()>0 then
-			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-		end
-		local g1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
-		local tc=g1:GetFirst()
-		while tc do
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_UPDATE_ATTACK)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			e1:SetValue(1000)
-			tc:RegisterEffect(e1)
-			local e1=Effect.CreateEffect(e:GetHandler())
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_UPDATE_DEFENSE)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			e1:SetValue(1000)
-			tc:RegisterEffect(e1)
-			tc=g1:GetNext()
-		end
-	end
-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,1,nil) end
-	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,0,0,0)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	Duel.Summon(tp,c,true,nil)
-	if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,60002223) then
-		Duel.Draw(tp,1,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c60002229.lua

---精炼保镳
-local m=60002229
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	aux.AddCodeList(c,60002223)
-	--爆能强化
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_SUMMON_PROC)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
-	e2:SetCondition(cm.con2)
-	e2:SetOperation(cm.op2)
-	c:RegisterEffect(e2)
-	--进化
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(cm.cos5)
-	e5:SetOperation(cm.op5)
-	c:RegisterEffect(e5)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER+CATEGORY_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCost(cm.cost)
-	e2:SetOperation(cm.operation)
-	c:RegisterEffect(e2)
-end
-function cm.con2(e,c,minc)
-	if c==nil then return true end
-	return minc<=1 and Duel.CheckTribute(c,1)
-end
-function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
-	g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
-	for tc in aux.Next(g) do
-		if tc:IsLocation(LOCATION_GRAVE) then 
-			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-		end
-	end
-end
-function cm.cos5f1(c)
-	return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
-end
-function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,2,nil)
-	e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
-end
-function cm.op5(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
-	Duel.Draw(tp,2,REASON_EFFECT)
-	Duel.Recover(tp,2000,REASON_EFFECT)
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
-end
-function cm.filter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-		if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,60002223) then
-			Duel.Draw(tp,1,REASON_EFFECT)
-			Duel.Recover(tp,1000,REASON_EFFECT)
-		end
-	end
-end
\ No newline at end of file

expansions/script/c60002230.lua

---冲沙滑板手
-local m=60002230
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--爆能强化
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_SUMMON_PROC)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
-	e2:SetCondition(cm.con2)
-	e2:SetOperation(cm.op2)
-	c:RegisterEffect(e2)
-	--进化
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_DAMAGE)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(cm.cos5)
-	e5:SetOperation(cm.op5)
-	c:RegisterEffect(e5)
-end
-function cm.con2(e,c,minc)
-	if c==nil then return true end
-	return minc<=1 and Duel.CheckTribute(c,1)
-end
-function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
-	g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
-	for tc in aux.Next(g) do
-		if tc:IsLocation(LOCATION_GRAVE) then 
-			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-		end
-	end
-end
-function cm.xfilter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function cm.cos5f1(c)
-	return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
-end
-function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,2,nil)
-	e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
-end
-function cm.op5(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectMatchingCard(tp,cm.xfilter,tp,LOCATION_MZONE,,1,1,nil)
-	local dmg=g:GetFirst():GetAttack()
-	Duel.Damage(1-tp,dmg,REASON_EFFECT)
-end
\ No newline at end of file

expansions/script/c60002231.lua

---宣告的天使
-local m=60002231
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--爆能强化
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_SUMMON_PROC)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
-	e2:SetCondition(cm.con2)
-	e2:SetOperation(cm.op2)
-	c:RegisterEffect(e2)
-	--进化
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_DAMAGE)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(cm.cos5)
-	e5:SetOperation(cm.op5)
-	c:RegisterEffect(e5)
-end
-function cm.con2(e,c,minc)
-	if c==nil then return true end
-	return minc<=1 and Duel.CheckTribute(c,1)
-end
-function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
-	g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
-	for tc in aux.Next(g) do
-		if tc:IsLocation(LOCATION_GRAVE) then 
-			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-		end
-	end
-end
-function cm.xfilter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function cm.cos5f1(c)
-	return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
-end
-function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,2,nil)
-	e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
-end
-function cm.op5(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_UPDATE_ATTACK)
-	e1:SetValue(2000)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	e:GetHandler():RegisterEffect(e1)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_UPDATE_DEFENSE)
-	e1:SetValue(2000)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	e:GetHandler():RegisterEffect(e1)
-	Duel.Damage(1-tp,2000,REASON_EFFECT)
-end

expansions/script/c60002232.lua

---喷射炮手
-local m=60002232
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	aux.AddCodeList(c,60002223)
-	--爆能强化
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_SUMMON_PROC)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
-	e2:SetCondition(cm.con2)
-	e2:SetOperation(cm.op2)
-	c:RegisterEffect(e2)
-	--进化
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE+CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(cm.cos5)
-	e5:SetOperation(cm.op5)
-	c:RegisterEffect(e5)
-	
-end
-function cm.con2(e,c,minc)
-	if c==nil then return true end
-	return minc<=1 and Duel.CheckTribute(c,1)
-end
-function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
-	g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
-	for tc in aux.Next(g) do
-		if tc:IsLocation(LOCATION_GRAVE) then 
-			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
-		end
-	end
-end
-function cm.cos5f1(c)
-	return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
-end
-function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,99,nil)
-	e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
-end
-function cm.op5(e,tp,eg,ep,ev,re,r,rp)
-	local dam=e:GetLabel()
-	if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
-	if dam==2 then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(1600)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-		e:GetHandler():RegisterEffect(e1)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_DEFENSE)
-		e1:SetValue(1600)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-		e:GetHandler():RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
-		e2:SetValue(1)
-		c:RegisterEffect(e2)
-	end
-	if dam>=3 then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(3200)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-		e:GetHandler():RegisterEffect(e1)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_DEFENSE)
-		e1:SetValue(3200)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-		e:GetHandler():RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
-		e2:SetValue(2)
-		c:RegisterEffect(e2)
-	end
-end
\ No newline at end of file

expansions/script/c60002255.lua

---和平维系者·宾森特
-local m=60002255
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-	e1:SetRange(LOCATION_DECK)
-	e1:SetCountLimit(1,m)
-	e1:SetCondition(cm.con)
-	e1:SetOperation(cm.op)
-	c:RegisterEffect(e1)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-	e1:SetRange(LOCATION_DECK)
-	e1:SetCountLimit(1,m)
-	e1:SetCondition(cm.con2)
-	e1:SetOperation(cm.op2)
-	c:RegisterEffect(e1)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-end
-function cm.con(e,c)
-	local tp=e:GetHandlerPlayer()
-	if c==nil then return true end
-	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLP(tp)>=Duel.GetLP(1-tp)*4 and Duel.GetTurnPlayer()==tp
-end
-function cm.con2(e,c)
-	local tp=e:GetHandlerPlayer()
-	if c==nil then return true end
-	return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.GetLP(1-tp)>=Duel.GetLP(tp)*4 and Duel.GetTurnPlayer()==tp
-end
-function cm.op(e,tp)
-	local c=e:GetHandler()
-	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-end
-function cm.op2(e,tp)
-	local c=e:GetHandler()
-	Duel.SpecialSummon(c,0,tp,1-tp,false,false,POS_FACEUP)
-end
-function cm.thfilter(c)
-	return c:IsCode(60002256)
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,tp,LOCATION_MZONE)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
-	local g=Duel.SelectMatchingCard(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
-	if #g>0 then
-		Duel.HintSelection(g)
-		Duel.GetControl(g:GetFirst(),tp,PHASE_END,1)
-		if e:GetHandler():IsPreviousLocation(LOCATION_HAND) and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil)and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local g=Duel.SelectMatchingCard(tp,cm.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
-	end
-end
\ No newline at end of file

expansions/script/c60002256.lua

---宣判之词
-local m=60002256
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DISABLE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.NegateMonsterFilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
-	Duel.SelectTarget(tp,aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsCanBeDisabledByEffect(e) then
-		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_DISABLE_EFFECT)
-		e2:SetValue(RESET_TURN_SET)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e2)
-		if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,60002255) and Duel.IsPlayerCanDraw(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then 
-			Duel.Draw(tp,1,REASON_EFFECT)
-		end
-	end
-end
\ No newline at end of file

expansions/script/c60002278.lua

---飓风天枪·格里姆尼尔
-function c60002278.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to e1
-	local e1=Effect.CreateEffect(c) 
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) 
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(c60002278.ddtg)
-	e1:SetOperation(c60002278.ddop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--to e3
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(60002278,1))
-	e3:SetCategory(CATEGORY_COUNTER+CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCost(c60002278.spcost)
-	e3:SetTarget(c60002278.sptg)
-	e3:SetOperation(c60002278.spop)
-	c:RegisterEffect(e3)
-
-	--to e4
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCode(EFFECT_UPDATE_ATTACK)
-	e4:SetCondition(c60002278.incon)
-	e4:SetValue(800)
-	c:RegisterEffect(e4)
-	local e5=e4:Clone()
-	e5:SetCode(EFFECT_UPDATE_DEFENSE) 
-	c:RegisterEffect(e5)
-end
---exto e1
-function c60002278.bigbaka(c) 
-	return c:IsAttackBelow(800) and c:IsFaceup()
-end 
-function c60002278.zhuzhu(c) 
-	return c:IsAttackBelow(2000) and c:IsFaceup()
-end
-function c60002278.ddtg(e,tp,eg,ep,ev,re,r,rp,chk) 
-	if chk==0 then return Duel.IsExistingMatchingCard(c60002278.bigbaka,tp,0,LOCATION_MZONE,2,nil) or Duel.IsExistingMatchingCard(c60002278.zhuzhu,tp,0,LOCATION_MZONE,2,nil) end  
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,2,1-tp,LOCATION_MZONE) 
-end  
-function c60002278.ddop(e,tp,eg,ep,ev,re,r,rp)  
-	local c=e:GetHandler() 
-	local g=Duel.GetMatchingGroup(c60002278.bigbaka,tp,0,LOCATION_MZONE,nil)
-	local g1=Duel.GetMatchingGroup(c60002278.zhuzhu,tp,0,LOCATION_MZONE,nil)
-  if Duel.GetFlagEffect(tp,60002148)<=5 and g:GetCount()>=2  then
-		local dg=g:Select(tp,2,2,nil) 
-		if Duel.Destroy(dg,REASON_EFFECT)~=0 then 
-			Duel.Damage(1-tp,800,REASON_EFFECT)  
-		end 
-   elseif Duel.GetFlagEffect(tp,60002148)>=5 and g1:GetCount()>=2 then
-		 local xg=g1:Select(tp,2,2,nil) 
-		if Duel.Destroy(xg,REASON_EFFECT)~=0 then 
-			Duel.Damage(1-tp,2000,REASON_EFFECT)  
-		end 
-	end 
-end 
---exto e3
-function c60002278.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
-end
-function c60002278.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c60002278.bigbaka,tp,0,LOCATION_MZONE,2,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,2,1-tp,LOCATION_MZONE) 
-end
-function c60002278.spop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c60002278.bigbaka,tp,0,LOCATION_MZONE,nil)
-	if e:GetHandler():IsRelateToEffect(e) and g:GetCount()>=2 then
-		if e:GetHandler():AddCounter(0x624,1)~=0 then
-			local dg=g:Select(tp,2,2,nil)
-			Duel.Destroy(dg,REASON_EFFECT)
-			Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		end
-	end
-end
---exto e4
-function c60002278.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end

expansions/script/c60002280.lua

---饥饿之王·嘉德路
-function c60002280.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to e1
-	local e1=Effect.CreateEffect(c) 
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW+CATEGORY_COUNTER) 
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(c60002280.ddtg)
-	e1:SetOperation(c60002280.ddop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--to e3
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(c60002280.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e4=e3:Clone()
-	e4:SetCode(EFFECT_UPDATE_DEFENSE) 
-	c:RegisterEffect(e4)
-	--to e5
-	local e5=Effect.CreateEffect(c) 
-	e5:SetCategory(CATEGORY_RECOVER)
-	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e5:SetCode(EVENT_PRE_DAMAGE_CALCULATE) 
-	e5:SetCondition(c60002280.rccon)
-	e5:SetTarget(c60002280.rctg)
-	e5:SetOperation(c60002280.rcop)
-	c:RegisterEffect(e5)
-
-end
---exto e1
-function c60002280.ddtg(e,tp,eg,ep,ev,re,r,rp,chk) 
-	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,e:GetHandler(),e,tp) end  
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_MZONE) 
-end  
-function c60002280.ddop(e,tp,eg,ep,ev,re,r,rp)  
-   local c=e:GetHandler()
-   local tc=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,c,e,tp):GetFirst()
-	if tc:GetCounter(0x624)==0 then
-		if Duel.Destroy(tc,REASON_EFFECT)~=0 then
-			Duel.Draw(tp,1,REASON_EFFECT)
-		end
-	elseif tc:GetCounter(0x624)~=0 then
-		if Duel.Destroy(tc,REASON_EFFECT)~=0 then
-			c:AddCounter(0x624,1)
-			Duel.Draw(tp,2,REASON_EFFECT)
-			Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-		end
-	end
-end 
---exto e3
-function c60002280.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
-
---exto e5
-function c60002280.rccon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE) and c:GetCounter(0x624)>=1
-end 
-function c60002280.rctg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end 
-	local atk=e:GetHandler():GetAttack()
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(atk)
-	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,atk)
-end
-function c60002280.rcop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()  
-	local atk=e:GetHandler():GetAttack()
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Recover(p,atk,REASON_EFFECT)
-end
\ No newline at end of file

expansions/script/c60002281.lua

---希望的断片·奇利烨
-function c60002281.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to e1
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(c60002281.thtg)
-	e1:SetOperation(c60002281.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--to e3
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(60002281,1))
-	e3:SetCategory(CATEGORY_COUNTER+CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCost(c60002281.spcost)
-	e3:SetTarget(c60002281.sptg)
-	e3:SetOperation(c60002281.spop)
-	c:RegisterEffect(e3)
-	--to e4
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCode(EFFECT_UPDATE_ATTACK)
-	e4:SetCondition(c60002281.incon)
-	e4:SetValue(800)
-	c:RegisterEffect(e4)
-	local e5=e4:Clone()
-	e5:SetCode(EFFECT_UPDATE_DEFENSE) 
-	c:RegisterEffect(e5)
-
-
-end
---exto e1
-function c60002281.thfilter(c)
-	return c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
-end
-function c60002281.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
-	if chk==0 then return g:GetClassCount(Card.GetCode)>=3 end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
-end
-function c60002281.thop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
-	if g:GetClassCount(Card.GetCode)>=3 then
-		local cg=Group.CreateGroup()
-		for i=1,3 do
-			local sg=g:RandomSelect(tp,1,1,nil)
-			g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode())
-			cg:Merge(sg)
-		end
-		Duel.ShuffleDeck(tp)
-		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND)
-		Duel.ConfirmCards(1-tp,cg)
-		local tg=cg:Select(1-tp,1,1,nil)
-		local tc=tg:GetFirst()
-		if tc:IsAbleToHand() and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
-		   Duel.ConfirmCards(1-tp,tc)  
-		   cg:RemoveCard(tc)
-		end
-		Duel.SendtoDeck(cg,tp,SEQ_DECKSHUFFLE,REASON_EFFECT)
-	end
-end
---exto e3
-function c60002281.cao(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(4) and c:IsType(TYPE_MONSTER)
-end
-function c60002281.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
-end
-function c60002281.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
-	if chk==0 then return g:GetClassCount(Card.GetCode)>=3 end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
-end
-function c60002281.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
-	if c:IsRelateToEffect(e) and c:AddCounter(0x624,1)~=0 then
-		   if g:GetClassCount(Card.GetCode)>=3 then
-		local cg=Group.CreateGroup()
-		for i=1,3 do
-			local sg=g:RandomSelect(tp,1,1,nil)
-			g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode())
-			cg:Merge(sg)
-		end
-		Duel.ShuffleDeck(tp)
-		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND)
-		local tg=cg:Select(1-tp,1,1,nil)
-		local tc=tg:GetFirst()
-		if tc:IsAbleToHand() and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
-		   Duel.ConfirmCards(1-tp,tc)  
-		   cg:RemoveCard(tc)
-		end
-		 Duel.SendtoDeck(cg,tp,SEQ_DECKSHUFFLE,REASON_EFFECT)
-	  end
-	   if Duel.IsExistingMatchingCard(c60002281.cao,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(60002281,0)) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
-		 local g1=Duel.SelectMatchingCard(tp,c60002281.cao,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-			Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP)
-		end
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
-	end
-end
-
---exto e4
-function c60002281.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
\ No newline at end of file

expansions/script/c60002282.lua

---混沌的终幕·辛恩
-function c60002282.initial_effect(c)
-	c:EnableCounterPermit(0x624)
-	--to e1
-	local e1=Effect.CreateEffect(c) 
-	e1:SetCategory(CATEGORY_COUNTER) 
-	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetCondition(c60002282.con)
-	e1:SetTarget(c60002282.ddtg)
-	e1:SetOperation(c60002282.ddop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--to e3
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetCondition(c60002282.incon)
-	e3:SetValue(800)
-	c:RegisterEffect(e3)
-	local e4=e3:Clone()
-	e4:SetCode(EFFECT_UPDATE_DEFENSE) 
-	c:RegisterEffect(e4)
-	--to e5
-	local e5=Effect.CreateEffect(c) 
-	e5:SetDescription(aux.Stringid(60002282,0))
-	e5:SetCategory(CATEGORY_DAMAGE) 
-	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
-	e5:SetCode(EVENT_PHASE+PHASE_END)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCondition(c60002282.excon)
-	e5:SetTarget(c60002282.damtg)
-	e5:SetOperation(c60002282.damop)
-	c:RegisterEffect(e5) 
-end
---exto e1
-function c60002282.con(e,tp)
-   return Duel.GetFlagEffect(tp,60002148)>=5
-end  
-function c60002282.ddtg(e,tp,eg,ep,ev,re,r,rp,chk) 
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
-end  
-function c60002282.ddop(e,tp,eg,ep,ev,re,r,rp) 
-	if e:GetHandler():IsRelateToEffect(e) then
-		e:GetHandler():AddCounter(0x624,1)
-		Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000) 
-	end
-end 
---exto e3
-function c60002282.incon(e)
-	return Card.GetCounter(e:GetHandler(),0x624)>=1
-end
---exto e5
-function c60002282.excon(e,tp)
-   return Duel.GetFlagEffect(tp,60002148)>=10 and Card.GetCounter(e:GetHandler(),0x624)>=1 and Duel.GetTurnPlayer()==tp
-end 
-function c60002282.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return  Duel.IsPlayerCanDraw(tp,3) end 
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,1-tp,4000) 
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,3)
-	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,4000)
-end
-function c60002282.damop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
-	   if Duel.Damage(1-tp,4000,REASON_EFFECT)~=0 then
-		   if Duel.Recover(tp,4000,REASON_EFFECT)~=0 then
-			  if  Duel.Draw(tp,3,REASON_EFFECT)~=0 then
-				 if g:GetCount()>=3 then
-					Duel.DiscardHand(1-tp,nil,3,3,REASON_EFFECT+REASON_DISCARD)
-				elseif g:GetCount()<3 then
-					Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
-				 end
-			  end
-		  end
-	  end
-end
\ No newline at end of file