rm

deck/21-01-16 BLOV(1104).ydk

-#created by ...
-#main
-101104201
-101104202
-101104203
-101104004
-101104005
-101104006
-101104007
-101104008
-101104009
-101104010
-101104011
-101104012
-101104013
-101104014
-101104015
-101104016
-101104017
-101104018
-101104019
-101104020
-101104021
-101104022
-101104023
-101104024
-101104025
-101104026
-101104027
-101104028
-101104029
-101104030
-101104031
-101104032
-101104206
-101104207
-101104208
-101104053
-101104054
-101104055
-101104056
-101104057
-101104058
-101104059
-101104060
-101104061
-101104062
-101104063
-101104064
-101104065
-101104066
-101104209
-101104068
-101104069
-101104070
-101104071
-101104072
-101104073
-101104074
-101104075
-101104076
-101104077
-#extra
-101104033
-101104034
-101104035
-101104036
-101104037
-101104038
-101104204
-101104205
-101104041
-101104042
-101104043
-!side
-101104044
-101104045
-101104046
-101104047
-101104048
-101104049
-101104078
-101104079
-101104080

deck/21-01-27 new cards.ydk

@@ -26,7 +26,6 @@
 100416037
 100416038
 100416039
-100200193
 100275001
 100274203
 #extra

expansions/pre-strings.conf

 #The first line is used for comment
-!counter 0x59 落魂指示物
 !counter 0x60 指示物（北极天熊北斗星）
 !counter 0x61 指示物（岩战之试炼）
 !victory 0x21 「混沌虚数No.1000 梦幻虚光神 原数天灵·原数天地」特殊胜利
-!setname 0x7e 异热同心
-!setname 0x107e 异热同心武器
-!setname 0x207e 异热同心从者
-!setname 0x15b 惊乐
-!setname 0x15c 游乐设施
-!setname 0x15d 烙印
-!setname 0x15e 降阶魔法
 !setname 0x261 北极天熊
 !setname 0x262 源质兽
 !setname 0x263 岩战

script/c100200193.lua

---ステイセイラ・ロマリン
-
---Scripted by mallu11
-function c100200193.initial_effect(c)
-	--indes
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(100200193,0))
-	e1:SetCategory(CATEGORY_TOGRAVE)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCountLimit(1,100200193)
-	e1:SetTarget(c100200193.indtg)
-	e1:SetOperation(c100200193.indop)
-	c:RegisterEffect(e1)
-	--to grave
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(100200193,1))
-	e2:SetCategory(CATEGORY_TOGRAVE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_TO_GRAVE)
-	e2:SetCountLimit(1,100200293)
-	e2:SetCondition(c100200193.tgcon)
-	e2:SetTarget(c100200193.tgtg)
-	e2:SetOperation(c100200193.tgop)
-	c:RegisterEffect(e2)
-end
-function c100200193.indfilter(c,tp)
-	return c:IsFaceup() and Duel.IsExistingMatchingCard(c100200193.cfilter,tp,LOCATION_MZONE,0,1,c)
-end
-function c100200193.cfilter(c)
-	return c:IsFaceup() and c:IsRace(RACE_PLANT) and c:IsAbleToGrave()
-end
-function c100200193.indtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100200193.indfilter(chkc,tp) end
-	if chk==0 then return Duel.IsExistingTarget(c100200193.indfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c100200193.indfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_MZONE)
-end
-function c100200193.indop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	local exc=nil
-	if tc:IsRelateToEffect(e) then exc=tc end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c100200193.cfilter,tp,LOCATION_MZONE,0,1,1,exc)
-	local sc=g:GetFirst()
-	if sc then
-		Duel.HintSelection(g)
-		if Duel.SendtoGrave(sc,REASON_EFFECT)~=0 and sc:IsLocation(LOCATION_GRAVE) and tc:IsRelateToEffect(e) then
-			local e1=Effect.CreateEffect(c)
-			e1:SetDescription(aux.Stringid(100200193,2))
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
-			e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
-			e1:SetCountLimit(1)
-			e1:SetValue(c100200193.valcon)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e1)
-		end
-	end
-end
-function c100200193.valcon(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
-function c100200193.tgcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsReason(REASON_EFFECT)
-end
-function c100200193.tgfilter(c)
-	return c:IsLevelBelow(5) and c:IsRace(RACE_PLANT) and c:IsAbleToGrave()
-end
-function c100200193.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c100200193.tgfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
-end
-function c100200193.tgop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c100200193.tgfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoGrave(g,REASON_EFFECT)
-	end
-end

script/c101104004.lua

---覇蛇大公ゴルゴンダ
---Supreme Archserpent Golganda
---Scripted by Kohana Sonogami
-function c101104004.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104004,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCountLimit(1,101104004)
-	e1:SetCondition(c101104004.spcon)
-	e1:SetTarget(c101104004.sptg)
-	e1:SetOperation(c101104004.spop)
-	c:RegisterEffect(e1)
-	--destroy replace
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_DESTROY_REPLACE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,101104004+100)
-	e2:SetTarget(c101104004.reptg)
-	e2:SetValue(c101104004.repval)
-	c:RegisterEffect(e2)
-	--original ATK
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_SET_BASE_ATTACK)
-	e3:SetCondition(c101104004.atkcon)
-	e3:SetValue(3000)
-	c:RegisterEffect(e3)
-end
-function c101104004.spcon(e)
-	return Duel.IsExistingMatchingCard(Card.IsFaceup,e:GetHandlerPlayer(),LOCATION_FZONE,0,1,nil)
-end
-function c101104004.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 c101104004.spop(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
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		e1:SetValue(LOCATION_REMOVED)
-		c:RegisterEffect(e1,true)
-	end
-end
-function c101104004.repfilter(c)
-	return c:IsFaceup() and c:IsCode(60884672) and c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
-end
-function c101104004.rmfilter(c)
-	return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
-end
-function c101104004.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return eg:IsExists(c101104004.repfilter,1,nil)
-		and Duel.IsExistingMatchingCard(c101104004.rmfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	if Duel.SelectEffectYesNo(tp,e:GetHandler(),96) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-		local g=Duel.SelectMatchingCard(tp,c101104004.rmfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
-		return true
-	end
-	return false
-end
-function c101104004.repval(e,c)
-	return c101104004.repfilter(c)
-end
-function c101104004.atkcon(e)
-	return Duel.IsEnvironment(60884672)
-end

script/c101104005.lua

---スプリガンズ・ブラザーズ
---Sprigguns Brothers
---Scripted by Kohana Sonogami
-function c101104005.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104005,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_TO_GRAVE)
-	e1:SetCountLimit(1,101104005)
-	e1:SetCondition(c101104005.spcon)
-	e1:SetTarget(c101104005.sptg)
-	e1:SetOperation(c101104005.spop)
-	c:RegisterEffect(e1)
-	--overlay
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(101104005,1))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE)
-	e2:SetCountLimit(1,101104005+100)
-	e2:SetTarget(c101104005.ovtg)
-	e2:SetOperation(c101104005.ovop)
-	c:RegisterEffect(e2)
-end
-function c101104005.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_DECK)
-end
-function c101104005.spfilter(c,e,tp)
-	return c:IsSetCard(0x155) and not c:IsCode(101104005) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
-end
-function c101104005.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c101104005.spfilter(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c101104005.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c101104005.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
-end
-function c101104005.spop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
-	end
-end
-function c101104005.ovfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x155) and c:IsType(TYPE_XYZ)
-end
-function c101104005.ovtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c101104005.ovfilter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c101104005.ovfilter,tp,LOCATION_MZONE,0,1,e:GetHandler())
-		and e:GetHandler():IsCanOverlay() end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c101104005.ovfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
-	if e:GetHandler():IsLocation(LOCATION_GRAVE) then
-		Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
-	end
-end
-function c101104005.ovop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and not c:IsImmuneToEffect(e) then
-		local og=c:GetOverlayGroup()
-		if og:GetCount()>0 then
-			Duel.SendtoGrave(og,REASON_RULE)
-		end
-		Duel.Overlay(tc,Group.FromCards(c))
-	end
-end

script/c101104006.lua

---驚楽園の支配人 ＜∀rlechino＞
---Amazement Administrator <∀rlechino>
---Scripted by Kohana Sonogami
-function c101104006.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104006,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,101104006)
-	e1:SetCondition(c101104006.spcon)
-	e1:SetTarget(c101104006.sptg)
-	e1:SetOperation(c101104006.spop)
-	c:RegisterEffect(e1)
-	--equip
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(101104006,1))
-	e2:SetCategory(CATEGORY_EQUIP)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,101104006+100)
-	e2:SetTarget(c101104006.eqtg)
-	e2:SetOperation(c101104006.eqop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	--destroy
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(101104006,2))
-	e4:SetCategory(CATEGORY_DESTROY)
-	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e4:SetType(EFFECT_TYPE_IGNITION)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetCost(c101104006.descost)
-	e4:SetTarget(c101104006.destg)
-	e4:SetOperation(c101104006.desop)
-	c:RegisterEffect(e4)
-end
-function c101104006.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
-end
-function c101104006.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 c101104006.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)
-	end
-end
-function c101104006.eqfilter1(c,e,tp)
-	return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsCanBeEffectTarget(e) and c:GetSummonPlayer()==1-tp
-		and Duel.IsExistingMatchingCard(c101104006.eqfilter2,tp,LOCATION_DECK,0,1,nil)
-end
-function c101104006.eqfilter2(c)
-	return c:IsSetCard(0x15c) and c:IsType(TYPE_TRAP) and not c:IsForbidden()
-end
-function c101104006.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return eg:IsContains(chkc) and c101104006.eqfilter1(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and eg:IsExists(c101104006.eqfilter1,1,nil,e,tp) end
-	local g=eg:Clone()
-	if #eg>1 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-		g=eg:FilterSelect(tp,c101104006.eqfilter1,1,1,nil,e,tp)
-	end
-	Duel.SetTargetCard(g)
-end
-function c101104006.eqop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
-	if not tc:IsFaceup() or not tc:IsRelateToEffect(e) or tc:IsControler(tp) then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local sg=Duel.SelectMatchingCard(tp,c101104006.eqfilter2,tp,LOCATION_DECK,0,1,1,nil)
-	local sc=sg:GetFirst()
-	if sc then
-		if not Duel.Equip(tp,sc,tc) then return end
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_EQUIP_LIMIT)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		e1:SetValue(c101104006.eqlimit)
-		e1:SetLabelObject(tc)
-		sc:RegisterEffect(e1)
-	end
-end
-function c101104006.eqlimit(e,c)
-	return e:GetLabelObject()==c
-end
-function c101104006.costfilter(c)
-	return c:IsSetCard(0x15c) and c:IsType(TYPE_TRAP) and c:IsAbleToRemoveAsCost()
-end
-function c101104006.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101104006.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	local rt=Duel.GetTargetCount(nil,tp,0,LOCATION_ONFIELD,1,nil)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c101104006.costfilter,tp,LOCATION_GRAVE,0,1,rt,nil)
-	local cg=Duel.Remove(g,POS_FACEUP,REASON_COST)
-	e:SetLabel(cg)
-end
-function c101104006.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_ONFIELD,1,nil) end
-	local ct=e:GetLabel()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_ONFIELD,ct,ct,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0)
-end
-function c101104006.desop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local rg=tg:Filter(Card.IsRelateToEffect,nil,e)
-	if #rg>0 then
-		Duel.Destroy(rg,REASON_EFFECT)
-	end
-end

script/c101104007.lua

---驚楽園の大使 ＜Ｂｕｆｏ＞
---Amazement Ambassador <Bufo>
---Scripted by Kohana Sonogami
-function c101104007.initial_effect(c)
-	--equip
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104007,0))
-	e1:SetCategory(CATEGORY_EQUIP)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(c101104007.eqtg1)
-	e1:SetOperation(c101104007.eqop1)
-	c:RegisterEffect(e1)
-	--equip change
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(101104007,1))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,101104007)
-	e2:SetTarget(c101104007.eqtg2)
-	e2:SetOperation(c101104007.eqop2)
-	c:RegisterEffect(e2)
-end
-function c101104007.eqfilter(c)
-	return c:IsType(TYPE_TRAP) and c:IsSetCard(0x15c)
-end
-function c101104007.eqtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return false end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingTarget(c101104007.eqfilter,tp,LOCATION_GRAVE,0,1,nil)
-		and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local g1=Duel.SelectTarget(tp,c101104007.eqfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	e:SetLabelObject(g1:GetFirst())
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g2=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g1,1,0,0)
-end
-function c101104007.eqop1(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
-	local ec=e:GetLabelObject()
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local tc=g:GetFirst()
-	if tc==ec then tc=g:GetNext() end
-	if ec:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		Duel.Equip(tp,ec,tc)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
-		e1:SetCode(EFFECT_EQUIP_LIMIT)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		e1:SetValue(c101104007.eqlimit)
-		e1:SetLabelObject(tc)
-		ec:RegisterEffect(e1)
-	end
-end
-function c101104007.eqlimit(e,c)
-	return c==e:GetLabelObject()
-end
-function c101104007.eqfilter1(c,tp)
-	return c:IsSetCard(0x15c) and c:IsType(TYPE_TRAP) and c:IsFaceup() and c:GetEquipTarget()
-		and Duel.IsExistingTarget(c101104007.eqfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c:GetEquipTarget(),tp)
-end
-function c101104007.eqfilter2(c,tp)
-	return c:IsFaceup() and (c:IsSetCard(0x15b) or not c:IsControler(tp))
-end
-function c101104007.eqtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return false end
-	if chk==0 then return Duel.IsExistingTarget(c101104007.eqfilter1,tp,LOCATION_SZONE,0,1,nil,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g1=Duel.SelectTarget(tp,c101104007.eqfilter1,tp,LOCATION_SZONE,0,1,1,nil,tp)
-	local tc=g1:GetFirst()
-	e:SetLabelObject(tc)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local g2=Duel.SelectTarget(tp,c101104007.eqfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,tc:GetEquipTarget(),tp)
-end
-function c101104007.eqop2(e,tp,eg,ep,ev,re,r,rp)
-	local ec=e:GetLabelObject()
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local tc=g:GetFirst()
-	if tc==ec then tc=g:GetNext() end
-	if ec:IsFaceup() and ec:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		Duel.Equip(tp,ec,tc)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
-		e1:SetCode(EFFECT_EQUIP_LIMIT)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		e1:SetValue(c101104007.eqlimit2)
-		ec:RegisterEffect(e1)
-	end
-end
-function c101104007.eqlimit2(e,c)
-	return c:IsSetCard(0x15b) or c:IsControler(1-e:GetHandlerPlayer())
-end

script/c101104008.lua

---驚楽園の案内人 ＜Comica＞
---Amazement Attendant <Comica>
---Scripted by Kohana Sonogami
-function c101104008.initial_effect(c)
-	--set
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104008,0))
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(c101104008.settg)
-	e1:SetOperation(c101104008.setop)
-	c:RegisterEffect(e1)
-	--equip change
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(101104008,1))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,101104008)
-	e2:SetTarget(c101104008.eqtg)
-	e2:SetOperation(c101104008.eqop)
-	c:RegisterEffect(e2)
-end
-function c101104008.setfilter(c)
-	return c:IsSetCard(0x15c) and c:IsType(TYPE_TRAP) and c:IsSSetable()
-end
-function c101104008.settg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101104008.setfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c101104008.setop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-	local tc=Duel.SelectMatchingCard(tp,c101104008.setfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
-	if tc then
-		Duel.SSet(tp,tc)
-	end
-end
-function c101104008.eqfilter1(c,tp)
-	return c:IsSetCard(0x15c) and c:IsType(TYPE_TRAP) and c:IsFaceup() and c:GetEquipTarget()
-		and Duel.IsExistingTarget(c101104008.eqfilter2,0,LOCATION_MZONE,LOCATION_MZONE,1,c:GetEquipTarget(),tp)
-end
-function c101104008.eqfilter2(c,tp)
-	return c:IsFaceup() and (c:IsSetCard(0x15b) or not c:IsControler(tp))
-end
-function c101104008.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return false end
-	if chk==0 then return Duel.IsExistingTarget(c101104008.eqfilter1,tp,LOCATION_SZONE,0,1,nil,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g1=Duel.SelectTarget(tp,c101104008.eqfilter1,tp,LOCATION_SZONE,0,1,1,nil,tp)
-	local tc=g1:GetFirst()
-	e:SetLabelObject(tc)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local g2=Duel.SelectTarget(tp,c101104008.eqfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,tc:GetEquipTarget(),tp)
-end
-function c101104008.eqop(e,tp,eg,ep,ev,re,r,rp)
-	local ec=e:GetLabelObject()
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local tc=g:GetFirst()
-	if tc==ec then tc=g:GetNext() end
-	if ec:IsFaceup() and ec:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		Duel.Equip(tp,ec,tc)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
-		e1:SetCode(EFFECT_EQUIP_LIMIT)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		e1:SetValue(c101104008.eqlimit)
-		ec:RegisterEffect(e1)
-	end
-end
-function c101104008.eqlimit(e,c)
-	return c:IsSetCard(0x15b) or c:IsControler(1-e:GetHandlerPlayer())
-end

script/c101104009.lua

---ロクスローズ・ドラゴン
-
---Scripted by mallu11
-function c101104009.initial_effect(c)
-	aux.AddCodeList(c,73580471)
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104009,0))
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,101104009)
-	e1:SetTarget(c101104009.srtg)
-	e1:SetOperation(c101104009.srop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--to hand
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(101104009,1))
-	e3:SetCategory(CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCountLimit(1,101104109)
-	e3:SetCondition(c101104009.thcon)
-	e3:SetTarget(c101104009.thtg)
-	e3:SetOperation(c101104009.thop)
-	c:RegisterEffect(e3)
-end
-function c101104009.srfilter(c)
-	return aux.IsCodeListed(c,73580471) and not c:IsCode(101104009) and c:IsAbleToHand()
-end
-function c101104009.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101104009.srfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c101104009.srop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c101104009.srfilter,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 c101104009.cfilter(c,tp)
-	return c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)
-		and (c:IsPreviousSetCard(0x1123) or c:GetPreviousRaceOnField()&RACE_PLANT~=0 and c:GetPreviousTypeOnField()&TYPE_SYNCHRO~=0)
-		and (c:IsReason(REASON_BATTLE) or c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp)
-end
-function c101104009.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return not eg:IsContains(e:GetHandler()) and eg:IsExists(c101104009.cfilter,1,nil,tp)
-end
-function c101104009.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToHand() end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
-end
-function c101104009.thop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SendtoHand(c,nil,REASON_EFFECT)
-	end
-end

script/c101104010.lua

---紅蓮薔薇の魔女
-
---Scripted by mallu11
-function c101104010.initial_effect(c)
-	aux.AddCodeList(c,73580471)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104010,0))
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,101104010)
-	e1:SetCost(c101104010.thcost)
-	e1:SetTarget(c101104010.thtg)
-	e1:SetOperation(c101104010.thop)
-	c:RegisterEffect(e1)
-	--to extra
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(101104010,1))
-	e2:SetCategory(CATEGORY_TOEXTRA)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,101104110)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c101104010.tetg)
-	e2:SetOperation(c101104010.teop)
-	c:RegisterEffect(e2)
-end
-function c101104010.thcost(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 c101104010.thfilter(c,tp,solve)
-	return c:IsCode(17720747) and c:IsAbleToHand() and (solve or Duel.IsExistingMatchingCard(c101104010.dtfilter,tp,LOCATION_DECK,0,1,c))
-end
-function c101104010.dtfilter(c)
-	return c:IsLevelBelow(3) and c:IsRace(RACE_PLANT)
-end
-function c101104010.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101104010.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,0,0,0)
-end
-function c101104010.sumfilter(c)
-	return c:IsCode(17720747) and c:IsSummonable(true,nil)
-end
-function c101104010.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c101104010.thfilter,tp,LOCATION_DECK,0,1,1,nil,tp,true)
-	local tc=g:GetFirst()
-	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
-		Duel.ConfirmCards(1-tp,tc)
-		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(101104010,2))
-		local dg=Duel.SelectMatchingCard(tp,c101104010.dtfilter,tp,LOCATION_DECK,0,1,1,nil)
-		local dc=dg:GetFirst()
-		if dc then
-			Duel.ShuffleDeck(tp)
-			Duel.MoveSequence(dc,0)
-			Duel.ConfirmDecktop(tp,1)
-			if Duel.IsExistingMatchingCard(c101104010.sumfilter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(101104010,3)) then
-				Duel.BreakEffect()
-				Duel.ShuffleHand(tp)
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-				local sg=Duel.SelectMatchingCard(tp,c101104010.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
-				local sc=sg:GetFirst()
-				if sc then
-					Duel.Summon(tp,sc,true,nil)
-				end
-			end
-		end
-	end
-end
-function c101104010.tefilter(c)
-	return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsCode(73580471,101104035) and c:IsAbleToExtra()
-end
-function c101104010.tetg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101104010.tefilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler()) end
-	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
-end
-function c101104010.teop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101104010.tefilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
-	end
-end

script/c101104011.lua

---ダンマリ@イグニスター
-
---Scripted by mallu11
-function c101104011.initial_effect(c)
-	--negate attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(101104011,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,101104011)
-	e1:SetCondition(c101104011.condition)
-	e1:SetTarget(c101104011.target)
-	e1:SetOperation(c101104011.operation)
-	c:RegisterEffect(e1)
-	--disable
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(101104011,1))
-	e2:SetCategory(CATEGORY_DISABLE)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e2:SetCountLimit(1,101104111)
-	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
-	e2:SetCondition(c101104011.discon)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c101104011.distg)
-	e2:SetOperation(c101104011.disop)
-	c:RegisterEffect(e2)
-end
-function c101104011.condition(e,tp,eg,ep,ev,re,r,rp)
-	local at=Duel.GetAttacker()
-	if not at:IsControler(tp) then at=Duel.GetAttackTarget() end
-	return at and at:IsControler(tp) and at:IsFaceup() and at:IsSetCard(0x135)
-end
-function c101104011.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then
-		return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
-end
-function c101104011.operation(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
-		Duel.NegateAttack()
-	end
-end
-function c101104011.cfilter(c)
-	return c:IsFaceup() and c:IsLink(6)
-end
-function c101104011.discon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c101104011.cfilter,tp,LOCATION_MZONE,0,1,nil)
-end
-function c101104011.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and aux.disfilter1(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(aux.disfilter1,tp,0,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
-	local g=Duel.SelectTarget(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
-end
-function c101104011.disop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsDisabled() then
-		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_DISABLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_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:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e2:SetValue(RESET_TURN_SET)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e2)
-		if tc:IsType(TYPE_TRAPMONSTER) then
-			local e3=Effect.CreateEffect(c)
-			e3:SetType(EFFECT_TYPE_SINGLE)
-			e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
-			e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e3)
-		end
-	end
-end