prescript

expansions/script/c100419009.lua

+--超進化の繭
+--Super Cocoon of Evolution
+--Scripted by Eerie Code
+function c100419009.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_RELEASE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c100419009.target)
+	e1:SetOperation(c100419009.activate)
+	c:RegisterEffect(e1)
+	--shuffle and draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCountLimit(1,100419009)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c100419009.tdtg)
+	e2:SetOperation(c100419009.tdop)
+	c:RegisterEffect(e2)
+end
+function c100419009.cfilter(c)
+	return c:IsFaceup() and c:IsRace(RACE_INSECT) and c:IsReleasableByEffect()
+		and c:GetEquipCount()>0
+end
+function c100419009.filter(c,e,tp)
+	return c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+end
+function c100419009.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then 
+		local loc=LOCATION_MZONE
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then loc=0 end
+		return Duel.IsExistingMatchingCard(c100419009.cfilter,tp,LOCATION_MZONE,loc,1,nil)
+			and Duel.IsExistingMatchingCard(c100419009.filter,tp,LOCATION_DECK,0,1,nil,e,tp)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c100419009.activate(e,tp,eg,ep,ev,re,r,rp)
+	local loc=LOCATION_MZONE
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then loc=0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=Duel.SelectMatchingCard(tp,c100419009.cfilter,tp,LOCATION_MZONE,loc,1,1,nil)
+	if g:GetCount()>0 and Duel.Release(g,REASON_EFFECT)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=Duel.SelectMatchingCard(tp,c100419009.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+		if sg:GetCount()>0 then
+			Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP)
+		end
+	end
+end
+function c100419009.tdfilter(c)
+	return c:IsRace(RACE_INSECT) and c:IsAbleToDeck()
+end
+function c100419009.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c100419009.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c100419009.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c100419009.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c100419009.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and	Duel.SendtoDeck(tc,nil,2,REASON_EFFECT) then
+		Duel.BreakEffect()
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end

expansions/script/c101003009.lua

+--ティンダングル・エンジェル 
+--Tindangle Angel
+function c101003009.initial_effect(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101003009,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FLIP+EFFECT_TYPE_SINGLE)
+	e1:SetCountLimit(1,101003009)
+	e1:SetTarget(c101003009.target)
+	e1:SetOperation(c101003009.operation)
+	c:RegisterEffect(e1)
+end
+function c101003009.filter(c,e,tp)
+	return c:IsSetCard(0x20b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
+end
+function c101003009.target(e,tp,eg,ep,ev,re,r,rp,chk)
+if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c101003009.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
+end
+function c101003009.operation(e,tp,eg,ep,ev,re,r,rp)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101003009.filter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,ft,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
+		Duel.ConfirmCards(1-tp,g)
+	end
+	local ph=Duel.GetCurrentPhase()
+	local tp=Duel.GetTurnPlayer() 
+	if return tp~=e:GetHandlerPlayer() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+	then
+		Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1)
+	end
+	
+end

expansions/script/c101003010.lua

+--ティンダングル・ベース・ガードナー
+--Tindangle Base Gardna
+function c101003010.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:SetCountLimit(1,101003010)
+	e1:SetCondition(c101003010.condition)
+	c:RegisterEffect(e1)
+	--Special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101003010,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCost(c101003010.spcost)
+	e2:SetCondition(c101003010.spcon)
+	e2:SetTarget(c101003010.sptg)
+	e2:SetOperation(c101003010.spop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+end
+function c101003010.filter(c)
+	return c:IsFacedown()
+end
+function c101003010.condition(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and
+		Duel.IsExistingMatchingCard(c101003010.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
+end
+function c101003010.cfilter(c,tp,zone)
+	local seq=c:GetSequence()
+	if c:IsControler(1-tp) then seq=seq+16 end
+	return bit.extract(zone,seq)~=0
+end
+function c101003010.lkfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_LINK)
+end
+function c101003010.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local zone=0
+	local lg=Duel.GetMatchingGroup(c101003010.lkfilter,tp,LOCATION_MZONE,0,nil)
+	for tc in aux.Next(lg) do
+		zone=bit.bor(zone,tc:GetLinkedZone())
+	end
+	return not eg:IsContains(e:GetHandler()) and eg:IsExists(c101003010.cfilter,1,nil,tp,zone)
+end
+function c101003010.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c101003010.spfilter(c,e,tp)
+	return c:IsSetCard(0x20b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101003010.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
+		and Duel.IsExistingMatchingCard(c101003010.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
+end
+function c101003010.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,aux.NecroValleyFilter(c101003010.spfilter),tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK)
+	end
+end

expansions/script/c101003011.lua

+--ティンダングル・ハウンド 
+--Tindangle Hound
+function c101003011.initial_effect(c)
+	--flip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101003011,0))
+	e1:SetCategory(CATEGORY_POSITION+CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c101003011.target)
+	e1:SetOperation(c101003011.operation)
+	c:RegisterEffect(e1)
+	--atk down
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(0,LOCATION_MZONE)
+	e2:SetValue(c101003011.val)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(101003011,1))
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCategory(CATEGORY_POSITION)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetTarget(c101003011.postg)
+	e3:SetOperation(c101003011.posop)
+	c:RegisterEffect(e3)
+end
+function c101003011.filter(c)
+	return c:IsFaceup() and c:IsCanTurnSet()
+end
+function c101003011.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c101003011.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c101003011.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c101003011.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
+end
+function c101003011.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc and c:IsRelateToEffect(e) and c:IsFaceup() then
+		local atk=tc:GetBaseAttack()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(atk)
+		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE)
+		c:RegisterEffect(e1)
+		Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
+	end
+end
+function c101003011.val(e,c)
+	return c:GetLinkedGroupCount()*-1000
+end
+function c101003011.posfilter(c)
+	return c:IsFacedown() and c:IsCanChangePosition()
+end
+function c101003011.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c101003011.posfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c101003011.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+	Duel.SelectTarget(tp,c101003011.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
+function c101003011.posop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and not tc:IsPosition(POS_FACEUP_DEFENSE) then
+		Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)
+	end
+end

expansions/script/c101003014.lua

+--蒼穹の機界騎士
+--Mekk-Knight of the Blue Sky
+--Scripted by Eerie Code
+function c101003014.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:SetCountLimit(1,101003014)
+	e1:SetCondition(c101003014.spcon)
+	e1:SetValue(c101003014.spval)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101003014,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,101003014+100)
+	e2:SetTarget(c101003014.thtg)
+	e2:SetOperation(c101003014.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetCondition(c101003014.thcon)
+	c:RegisterEffect(e3)
+end
+function c101003014.cfilter(c,tp,seq)
+	local s=c:GetSequence()
+	if c:IsLocation(LOCATION_SZONE) and s==5 then return false end
+	if c:IsControler(tp) then
+		return s==seq or (seq==1 and s==5) or (seq==3 and s==6)		
+	else
+		return s==4-seq or (seq==1 and s==6) or (seq==3 and s==5)
+	end
+end
+function c101003014.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local zone=0
+	for i=0,4 do
+		if Duel.GetMatchingGroupCount(c101003014.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
+			zone=zone+math.pow(2,i)
+		end
+	end
+	return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
+end
+function c101003014.spval(e,c)
+	local zone=0
+	for i=0,4 do
+		if Duel.GetMatchingGroupCount(c101003014.cfilter,c:GetControler(),LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp,i)>=2 then
+			zone=zone+math.pow(2,i)
+		end
+	end
+	return 0,zone
+end
+function c101003014.thfilter(c)
+	return c:IsSetCard(0x20c) and not c:IsCode(101003014) and c:IsAbleToHand()
+end
+function c101003014.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c101003014.thfilter,tp,LOCATION_DECK,0,nil)
+	local ct=e:GetHandler():GetColumnGroup():FilterCount(Card.IsControler,nil,1-tp)
+	if chk==0 then return ct>0 and g:GetClassCount(Card.GetCode)>=ct end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,ct,tp,LOCATION_DECK)
+end
+function c101003014.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(c101003014.thfilter,tp,LOCATION_DECK,0,nil)
+	local ct=e:GetHandler():GetColumnGroup():FilterCount(Card.IsControler,nil,1-tp)
+	if ct<=0 or g:GetClassCount(Card.GetCode)<ct then return end
+	local hg=Group.CreateGroup()
+	for i=1,ct do
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local tc=g:Select(tp,1,1,nil):GetFirst()
+		hg:AddCard(tc)
+		g:Remove(Card.IsCode,nil,tc:GetCode())
+	end
+	Duel.SendtoHand(hg,nil,REASON_EFFECT)
+	Duel.ConfirmCards(1-tp,hg)
+end

expansions/script/c101003045.lua

+--ティンダングル・アキュート・ケルベロス 
+--Tindangle Acute Cerberus
+function c101003045.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x20b),3,3)
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c101003045.atkcon)
+	e1:SetValue(3000)
+	c:RegisterEffect(e1)	
+	--atk
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(c101003045.atkval)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(101003045,0))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_BATTLE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c101003045.spcon)
+	e3:SetTarget(c101003045.sptg)
+	e3:SetOperation(c101003045.spop)
+	c:RegisterEffect(e3)
+end
+function c101003045.filter(c)
+	return c:IsFaceup() and c:IsCode(101003010)
+end
+function c101003045.atkcon(e,c)
+	if c==nil then return true end
+	if Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)<=0 then return false end
+	return Duel.GetMatchingGroup(Card.IsSetCard,c:GetControler(),LOCATION_GRAVE,0,nil,0x20b):GetClassCount(Card.GetCode)>=3
+	and Duel.IsExistingMatchingCard(c101003045.filter,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil)
+end
+function c101003045.atkfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x20b) 
+end
+function c101003045.atkval(e,c)
+	local lg=c:GetLinkedGroup():Filter(c101003045.atkfilter,nil)
+	return lg::GetCount()*600
+end
+function c101003045.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return aux.gbspcon(e,tp,eg,ep,ev,re,r,rp)
+		and e:GetHandler():GetBattledGroupCount()>0
+end
+function c101003045.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c101003045.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	if not Duel.IsPlayerCanSpecialSummonMonster(tp,101003145,0x20b,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then return end
+	local token=Duel.CreateToken(tp,101003145)
+	Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+end