new file: expansions/pics/11200018.jpg

new file:   expansions/pics/11200019.jpg
new file:   expansions/pics/11200020.jpg
new file:   expansions/pics/11200021.jpg
new file:   expansions/pics/11200022.jpg
new file:   expansions/pics/11200023.jpg
new file:   expansions/pics/11200024.jpg
new file:   expansions/pics/11200025.jpg
new file:   expansions/pics/11200026.jpg
new file:   expansions/pics/11200027.jpg
new file:   expansions/pics/11200028.jpg
new file:   expansions/pics/11200043.jpg
new file:   expansions/pics/11200064.jpg
new file:   expansions/pics/11200065.jpg
new file:   expansions/pics/11200066.jpg
new file:   expansions/pics/11200067.jpg
new file:   expansions/pics/11200068.jpg
new file:   expansions/pics/11200069.jpg
new file:   expansions/pics/11200070.jpg
new file:   expansions/pics/11200071.jpg
new file:   expansions/pics/11200074.jpg
new file:   expansions/pics/11200077.jpg
new file:   expansions/script/c11200021.lua
new file:   expansions/script/c11200023.lua
new file:   expansions/script/c11200043.lua
new file:   expansions/script/c11200064.lua
new file:   expansions/script/c11200065.lua
new file:   expansions/script/c11200067.lua
new file:   expansions/script/c11200068.lua
new file:   expansions/script/c11200069.lua
new file:   expansions/script/c11200070.lua
new file:   expansions/script/c11200071.lua
new file:   expansions/script/c11200074.lua
new file:   expansions/script/c11200077.lua

expansions/script/c11200021.lua

+--狂气的月兔 铃仙·优昙华院·因幡
+function c11200021.initial_effect(c)
+--
+	c:EnableReviveLimit()
+	aux.AddXyzProcedureLevelFree(c,c11200021.mfilter,nil,2,2)
+--
+	if not c11200021.global_check then
+		c11200021.global_check=true
+		local e0=Effect.GlobalEffect()
+		e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e0:SetCode(EVENT_CHAINING)
+		e0:SetCondition(c11200021.con0)
+		e0:SetOperation(c11200021.op0)
+		Duel.RegisterEffect(e0,0)
+	end
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11200021,0))
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_ATKCHANGE+CATEGORY_DAMAGE+CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetLabel(0)
+	e1:SetCost(c11200021.cost1)
+	e1:SetTarget(c11200021.tg1)
+	e1:SetOperation(c11200021.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(11200021,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_LEAVE_GRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,11200021)
+	e2:SetCondition(c11200021.con2)
+	e2:SetCost(c11200021.cost2)
+	e2:SetTarget(c11200021.tg2)
+	e2:SetOperation(c11200021.op2)
+	c:RegisterEffect(e2)
+--
+end
+--
+c11200021.xig_ihs_0x132=1
+--
+function c11200021.mfilter(c)
+	return c:IsCode(11200019)
+end
+--
+function c11200021.con0(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	return re:IsActiveType(TYPE_MONSTER)
+		and not (rc.xig_ihs_0x132 or rc:IsCode(11200019))
+end
+--
+function c11200021.op0(e,tp,eg,ep,ev,re,r,rp)
+	Duel.RegisterFlagEffect(rp,11200021,RESET_PHASE+PHASE_END,0,1)
+end
+--
+function c11200021.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	e:SetLabel(100)
+	if chk==0 then return true end
+end
+--
+function c11200021.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then
+		if e:GetLabel()~=100 then return false end
+		e:SetLabel(0)
+		return c:CheckRemoveOverlayCard(tp,1,REASON_COST)
+			and c:GetOverlayCount()>0
+	end
+	c:RemoveOverlayCard(tp,1,1,REASON_COST)
+	local mg=Duel.GetOperatedGroup()
+	mg:KeepAlive()
+	e:SetLabelObject(mg)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+--
+function c11200021.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local mg=e:GetLabelObject()
+	local dc=Duel.TossDice(tp,1)
+	local type1=0
+	local type2=0
+	local type3=0
+	local tc=mg:GetFirst()
+	while tc do
+		if tc:IsType(TYPE_MONSTER) then type1=1 end
+		if tc:IsType(TYPE_SPELL) then type2=1 end
+		if tc:IsType(TYPE_TRAP) then type3=1 end
+		tc=mg:GetNext()
+	end
+	if type1==1 then
+		local e1_1=Effect.CreateEffect(c)
+		e1_1:SetType(EFFECT_TYPE_SINGLE)
+		e1_1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1_1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1_1:SetValue(dc*300)
+		c:RegisterEffect(e1_1)
+	end
+	if type2==1 then Duel.Draw(tp,1,REASON_EFFECT) end
+	if type3==1 then Duel.Damage(1-tp,dc*300,REASON_EFFECT) end
+end
+--
+function c11200021.con2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffect(tp,11200021)<1
+end
+--
+function c11200021.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToExtraAsCost() end
+	local g=Group.CreateGroup()
+	g:AddCard(c)
+	Duel.HintSelection(g)
+	Duel.SendtoDeck(c,nil,2,REASON_COST)
+end
+--
+function c11200021.tfilter2(c)
+	return c:IsAbleToHand() and (c.xig_ihs_0x132 or c:IsCode(11200019))
+end
+function c11200021.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11200021.tfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+--
+function c11200021.op2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c11200021.tfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+--

expansions/script/c11200023.lua

+--你已经疯了！
+function c11200023.initial_effect(c)
+--
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,c11200023.mfilter,3,true)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11200023,0))
+	e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DESTROY)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,11200023)
+	e1:SetCondition(c11200023.con1)
+	e1:SetTarget(c11200023.tg1)
+	e1:SetOperation(c11200023.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(11200023,0))
+	e2:SetCategory(CATEGORY_DAMAGE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,11200023)
+	e2:SetCondition(c11200023.con2)
+	e2:SetTarget(c11200023.tg1)
+	e2:SetOperation(c11200023.op1)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TOSS_DICE_NEGATE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c11200023.con3)
+	e3:SetOperation(c11200023.op3)
+	c:RegisterEffect(e3)
+--
+end
+--
+c11200023.xig_ihs_0x132=1
+--
+function c11200023.mfilter(c)
+	return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_MONSTER)
+end
+--
+function c11200023.con1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local sg=c:GetMaterial()
+	return c:GetMaterialCount()>0 and c:IsSummonType(SUMMON_TYPE_FUSION)
+		and not sg:IsExists(Card.IsCode,1,nil,11200019)
+end
+function c11200023.con2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local sg=c:GetMaterial()
+	return c:GetMaterialCount()>0 and c:IsSummonType(SUMMON_TYPE_FUSION)
+		and sg:IsExists(Card.IsCode,1,nil,11200019)
+		and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
+end
+--
+function c11200023.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+--
+function c11200023.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc>0 and dc<6 then
+		if c:IsControler(1-tp) then return end
+		if c:IsImmuneToEffect(e) then return end
+		if Duel.GetMZoneCount(tp)<1 then return end
+		if not c:IsRelateToEffect(e) then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
+		local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
+		local nseq=math.log(s,2)
+		Duel.MoveSequence(c,nseq)
+		local sg=c:GetColumnGroup(LOCATION_MZONE)
+		local dg=sg:Filter(Card.IsControler,nil,1-tp)
+		if dg:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.Destroy(dg,REASON_EFFECT)
+		end
+	end
+	if dc>5 then Duel.Damage(1-tp,2000,REASON_EFFECT) end
+end
+--
+function c11200023.con3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsSummonType(SUMMON_TYPE_FUSION)
+		and c:GetFlagEffect(11200023)==0
+		and c:GetMaterial():IsExists(Card.IsCode,1,nil,11200065)
+end
+function c11200023.op3(e,tp,eg,ep,ev,re,r,rp)
+	local cc=Duel.GetCurrentChain()
+	local cid=Duel.GetChainInfo(cc,CHAININFO_CHAIN_ID)
+	if c11200023[0]~=cid and Duel.SelectYesNo(tp,aux.Stringid(11200023,1)) then
+		Duel.Hint(HINT_CARD,0,11200023)
+		e:GetHandler():RegisterFlagEffect(11200023,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+		local dc={Duel.GetDiceResult()}
+		local ac=1
+		local ct=bit.band(ev,0xff)+bit.rshift(ev,16)
+		if ct>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11200023,2))
+			local val,idx=Duel.AnnounceNumber(tp,table.unpack(dc,1,ct))
+			ac=idx+1
+		end
+		dc[ac]=7
+		Duel.SetDiceResult(table.unpack(dc))
+		c11200023[0]=cid
+	end
+end

expansions/script/c11200043.lua

+--腹黑兔 因幡帝
+function c11200043.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11200043,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_HAND)
+	e1:SetCountLimit(1,11200043)
+	e1:SetCondition(c11200043.con1)
+	e1:SetTarget(c11200043.tg1)
+	e1:SetOperation(c11200043.op1)
+	c:RegisterEffect(e1)
+--
+end
+--
+c11200043.xig_ihs_0x133=1
+--
+function c11200043.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_DECK)
+end
+--
+function c11200043.tfilter1(c,tp)
+	return c.xig_ihs_0x133 and c:IsSSetable()
+		and c:IsType(TYPE_SPELL+TYPE_TRAP)
+		and (Duel.GetLocationCount(tp,LOCATION_SZONE)>0 or c:IsType(TYPE_FIELD))
+end
+function c11200043.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local b1=Duel.IsExistingMatchingCard(c11200043.tfilter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,tp)
+	local b2=Duel.IsPlayerCanDraw(tp,1)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (b1 or b2) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+--
+function c11200043.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
+		local off=1
+		local ops={}
+		local opval={}
+		local b1=Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingMatchingCard(c11200043.tfilter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,tp)
+		local b2=Duel.IsPlayerCanDraw(tp,1)
+		if b1 then
+			ops[off]=aux.Stringid(11200043,1)
+			opval[off-1]=1
+			off=off+1
+		end
+		if b2 then
+			ops[off]=aux.Stringid(11200043,2)
+			opval[off-1]=2
+			off=off+1
+		end
+		local op=Duel.SelectOption(tp,table.unpack(ops))
+		local sel=opval[op]
+		if sel==1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+			local g=Duel.SelectMatchingCard(tp,c11200043.tfilter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,tp)
+			Duel.BreakEffect()
+			Duel.SSet(tp,g)
+			Duel.ConfirmCards(1-tp,g)
+			local tc=g:GetFirst()
+			if tc:IsPreviousLocation(LOCATION_HAND) then
+				if tc:IsType(TYPE_QUICKPLAY) then
+					local e1_1=Effect.CreateEffect(c)
+					e1_1:SetType(EFFECT_TYPE_SINGLE)
+					e1_1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+					e1_1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+					e1_1:SetReset(RESET_EVENT+RESETS_STANDARD)
+					tc:RegisterEffect(e1_1,true)
+				end
+				if tc:IsType(TYPE_TRAP) then
+					local e1_2=Effect.CreateEffect(c)
+					e1_2:SetType(EFFECT_TYPE_SINGLE)
+					e1_2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+					e1_2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+					e1_2:SetReset(RESET_EVENT+RESETS_STANDARD)
+					tc:RegisterEffect(e1_2,true)
+				end
+				if tc:IsType(TYPE_SPELL) and not tc:IsType(TYPE_QUICKPLAY) then
+					local e1_3=tc:GetActivateEffect()
+					e1_3:SetProperty(0,EFFECT_FLAG2_COF)
+					e1_3:SetHintTiming(0,0x1e0+TIMING_CHAIN_END)
+					e1_3:SetCondition(c11200043.con1_3)
+					tc:RegisterFlagEffect(11200043,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
+					local e1_4=Effect.CreateEffect(c)
+					e1_4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+					e1_4:SetCode(EVENT_ADJUST)
+					e1_4:SetOperation(c11200043.op1_4)
+					e1_4:SetLabelObject(tc)
+					Duel.RegisterEffect(e1_4,tp)
+				end
+			end
+		end
+		if sel==2 then
+			Duel.BreakEffect()
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+	end
+end
+--
+function c11200043.con1_3(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentChain()<1
+end
+function c11200043.op1_4(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(11200043)>0 then return end
+	local e1_3_1=tc:GetActivateEffect()
+	e1_3_1:SetProperty(nil)
+	e1_3_1:SetHintTiming(0)
+	e1_3_1:SetCondition(aux.TRUE)
+	e:Reset()
+end
+--

expansions/script/c11200064.lua

+--幸运的白兔 因幡帝
+function c11200064.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11200064,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_HAND)
+	e1:SetCountLimit(1,11200064)
+	e1:SetCondition(c11200064.con1)
+	e1:SetTarget(c11200064.tg1)
+	e1:SetOperation(c11200064.op1)
+	c:RegisterEffect(e1)
+--
+end
+--
+function c11200064.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_DECK)
+end
+--
+function c11200064.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local b1=true
+	local b2=Duel.IsPlayerCanDraw(tp,1)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (b1 or b2) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+--
+function c11200064.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
+		local off=1
+		local ops={}
+		local opval={}
+		local b1=true
+		local b2=Duel.IsPlayerCanDraw(tp,1)
+		if b1 then
+			ops[off]=aux.Stringid(11200064,1)
+			opval[off-1]=1
+			off=off+1
+		end
+		if b2 then
+			ops[off]=aux.Stringid(11200064,2)
+			opval[off-1]=2
+			off=off+1
+		end
+		local op=Duel.SelectOption(tp,table.unpack(ops))
+		local sel=opval[op]
+		if sel==1 then
+			Duel.BreakEffect()
+			local e1_1=Effect.CreateEffect(c)
+			e1_1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e1_1:SetCode(EVENT_TOSS_DICE_NEGATE)
+			e1_1:SetRange(LOCATION_MZONE)
+			e1_1:SetCondition(c11200064.con1_1)
+			e1_1:SetOperation(c11200064.op1_1)
+			c:RegisterEffect(e1_1)
+		end
+		if sel==2 then
+			Duel.BreakEffect()
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+	end
+end
+--
+function c11200064.con1_1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:GetFlagEffect(11200064)==0
+end
+function c11200064.op1_1(e,tp,eg,ep,ev,re,r,rp)
+	local cc=Duel.GetCurrentChain()
+	local cid=Duel.GetChainInfo(cc,CHAININFO_CHAIN_ID)
+	if c11200064[0]~=cid and Duel.SelectYesNo(tp,aux.Stringid(11200064,1)) then
+		Duel.Hint(HINT_CARD,0,11200064)
+		e:GetHandler():RegisterFlagEffect(11200064,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+		local dc={Duel.GetDiceResult()}
+		local ac=1
+		local ct=bit.band(ev,0xff)+bit.rshift(ev,16)
+		if ct>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11200064,2))
+			local val,idx=Duel.AnnounceNumber(tp,table.unpack(dc,1,ct))
+			ac=idx+1
+		end
+		dc[ac]=7
+		Duel.SetDiceResult(table.unpack(dc))
+		c11200064[0]=cid
+	end
+end
+--

expansions/script/c11200065.lua

+--因幡帝
+function c11200065.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11200065,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_HAND)
+	e1:SetCountLimit(1,11200065)
+	e1:SetCondition(c11200065.con1)
+	e1:SetTarget(c11200065.tg1)
+	e1:SetOperation(c11200065.op1)
+	c:RegisterEffect(e1)
+--
+end
+--
+c11200065.xig_ihs_0x132=1
+c11200065.xig_ihs_0x133=1
+--
+function c11200065.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_DECK)
+end
+--
+function c11200065.tfilter1(c,e,tp)
+	return c:IsType(TYPE_MONSTER)
+		and (c:IsSetCard(0x621) or c:IsCode(11200019))
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c11200065.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local b1=Duel.GetMZoneCount(tp)>1
+		and Duel.IsExistingMatchingCard(c11200065.tfilter1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,nil,e,tp)
+	local b2=Duel.IsPlayerCanDraw(tp,1)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (b1 or b2) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+--
+function c11200065.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
+		local off=1
+		local ops={}
+		local opval={}
+		local b1=Duel.GetMZoneCount(tp)>0 and Duel.IsExistingMatchingCard(c11200065.tfilter1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,nil,e,tp)
+		local b2=Duel.IsPlayerCanDraw(tp,1)
+		if b1 then
+			ops[off]=aux.Stringid(11200065,1)
+			opval[off-1]=1
+			off=off+1
+		end
+		if b2 then
+			ops[off]=aux.Stringid(11200065,2)
+			opval[off-1]=2
+			off=off+1
+		end
+		local op=Duel.SelectOption(tp,table.unpack(ops))
+		local sel=opval[op]
+		if sel==1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+			local g=Duel.SelectMatchingCard(tp,c11200065.tfilter1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil,e,tp)
+			if g:GetCount()>0 then
+				Duel.BreakEffect()
+				Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+			end
+		end
+		if sel==2 then
+			Duel.BreakEffect()
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+	end
+end
+--

expansions/script/c11200067.lua

+--兔符『因幡的白兔』
+function c11200067.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_DRAW+CATEGORY_TODECK+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,11200067+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c11200067.con1)
+	e1:SetCost(c11200067.cost1)
+	e1:SetTarget(c11200067.tg1)
+	e1:SetOperation(c11200067.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_DRAW_COUNT)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetTargetRange(1,0)
+	e3:SetValue(2)
+	c:RegisterEffect(e3)
+--
+end
+--
+c11200067.xig_ihs_0x133=1
+--
+function c11200067.con1(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsLocation(LOCATION_HAND)
+end
+--
+function c11200067.cfilter1(c)
+	return c:IsAbleToGraveAsCost() and c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_LIGHT)
+end
+function c11200067.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11200067.cfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND+LOCATION_MZONE,0,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local sg=Duel.SelectMatchingCard(tp,c11200067.cfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
+	local sg2=Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,sg)
+	sg:Merge(sg2)
+	Duel.Release(sg,REASON_COST)
+end
+--
+function c11200067.tfilter1(c)
+	return c:IsAbleToHand() and (c:IsCode(11200067) or c.xig_ihs_0x133)
+end
+function c11200067.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local b1=Duel.IsPlayerCanDraw(tp,1)
+	local b2=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11200067.tfilter1,tp,LOCATION_DECK,0,1,nil) and (b1 or b2) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+--
+function c11200067.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c11200067.tfilter1,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+		local off=1
+		local ops={}
+		local opval={}
+		local b1=Duel.IsPlayerCanDraw(tp,1)
+		local b2=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil)
+		if b1 then
+			ops[off]=aux.Stringid(11200067,0)
+			opval[off-1]=1
+			off=off+1
+		end
+		if b2 then
+			ops[off]=aux.Stringid(11200067,1)
+			opval[off-1]=2
+			off=off+1
+		end
+		local op=Duel.SelectOption(tp,table.unpack(ops))
+		local sel=opval[op]
+		if sel==1 then
+			Duel.BreakEffect()
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+		if sel==2 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+			local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil)
+			if sg:GetCount()<1 then return end
+			Duel.BreakEffect()
+			Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
+		end
+	end
+end
+--

expansions/script/c11200068.lua

+--兔符『开运大纹』
+function c11200068.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,11200068+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c11200068.con1)
+	e1:SetTarget(c11200068.tg1)
+	e1:SetOperation(c11200068.op1)
+	c:RegisterEffect(e1)
+--
+end
+--
+c11200068.xig_ihs_0x133=1
+--
+function c11200068.con1(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsLocation(LOCATION_HAND)
+end
+--
+function c11200068.tfilter1(c)
+	return c:IsSetCard(0x621) or c.xig_ihs_0x133 and (c:IsLocation(LOCATION_DECK) or c:IsAbleToDeck())
+end
+function c11200068.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local alnum=0
+	if Duel.GetFieldGroupCount(1-tp,LOCATION_HAND+LOCATION_ONFIELD,0)>Duel.GetFieldGroupCount(tp,LOCATION_HAND+LOCATION_ONFIELD,0) then
+		alnum=Duel.GetFieldGroupCount(1-tp,LOCATION_HAND+LOCATION_ONFIELD,0)-Duel.GetFieldGroupCount(tp,LOCATION_HAND+LOCATION_ONFIELD,0)
+	end
+	local b1=Duel.IsPlayerCanDraw(tp,1)
+	local b2=Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil)
+	if chk==0 then return (alnum<2 or (b1 and b2))
+		and Duel.IsExistingMatchingCard(c11200068.tfilter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
+	e:SetLabel(alnum)
+	if alnum>2 then
+		Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+		Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1100)
+	end
+end
+--
+function c11200068.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local alnum=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RESOLVECARD)
+	local sg=Duel.SelectMatchingCard(tp,c11200068.tfilter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+	if sg:GetCount()>0 then
+		local tc=sg:GetFirst()
+		if tc:IsLocation(LOCATION_DECK) then
+			Duel.MoveSequence(tc,0)
+		else
+			Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)
+		end
+		Duel.ConfirmDecktop(tp,1)
+	end
+	if alnum<3 then
+		local b1=Duel.IsPlayerCanDraw(tp,1)
+		local b2=true
+		local b3=Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil)
+		local b4=c:IsRelateToEffect(e) and c:IsCanTurnSet()
+		local off=1
+		local ops={}
+		local opval={}
+		if b1 then
+			ops[off]=aux.Stringid(11200068,0)
+			opval[off-1]=1
+			off=off+1
+		end
+		if b2 then
+			ops[off]=aux.Stringid(11200068,1)
+			opval[off-1]=2
+			off=off+1
+		end
+		if b3 then
+			ops[off]=aux.Stringid(11200068,3)
+			opval[off-1]=3
+			off=off+1
+		end
+		if b4 then
+			ops[off]=aux.Stringid(11200068,4)
+			opval[off-1]=4
+			off=off+1
+		end
+		local op=Duel.SelectOption(tp,table.unpack(ops))
+		local sel=opval[op]
+		if sel==1 then Duel.Draw(tp,1,REASON_EFFECT) end
+		if sel==2 then Duel.Damage(1-tp,1100,REASON_EFFECT) end
+		if sel==3 then
+			local lg=Duel.GetFieldGroup(Card.IsFaceup,0,LOCATION_MZONE)
+			local lc=lg:GetFirst()
+			while lc do
+				local e1_1=Effect.CreateEffect(c)
+				e1_1:SetType(EFFECT_TYPE_SINGLE)
+				e1_1:SetCode(EFFECT_UPDATE_ATTACK)
+				e1_1:SetReset(RESET_EVENT+RESETS_STANDARD)
+				e1_1:SetValue(-550)
+				lc:RegisterEffect(e1_1)
+				local e1_2=e1_1:Clone()
+				e1_1:SetCode(EFFECT_UPDATE_DEFENSE)
+				lc:RegisterEffect(e1_2)
+				lc=lg:GetNext()
+			end
+		end
+		if sel==4 then
+			c:CancelToGrave()
+			Duel.ChangePosition(c,POS_FACEDOWN)
+			Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+	if alnum>2 then
+		Duel.Draw(tp,1,REASON_EFFECT)
+		Duel.Damage(1-tp,1100,REASON_EFFECT)
+		local lg=Duel.GetFieldGroup(Card.IsFaceup,0,LOCATION_MZONE)
+		local lc=lg:GetFirst()
+		while lc do
+			local e1_1=Effect.CreateEffect(c)
+			e1_1:SetType(EFFECT_TYPE_SINGLE)
+			e1_1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1_1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1_1:SetValue(-550)
+			lc:RegisterEffect(e1_1)
+			local e1_2=e1_1:Clone()
+			e1_1:SetCode(EFFECT_UPDATE_DEFENSE)
+			lc:RegisterEffect(e1_2)
+			lc=lg:GetNext()
+		end
+		if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
+			c:CancelToGrave()
+			Duel.ChangePosition(c,POS_FACEDOWN)
+			Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+--

expansions/script/c11200069.lua

+--脱兔『Fluster Escape』
+function c11200069.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e1:SetCondition(c11200069.con1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_ACTIVATE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCountLimit(1,11200069+EFFECT_COUNT_CODE_OATH)
+	e3:SetTarget(c11200069.tg3)
+	e3:SetOperation(c11200069.op3)
+	c:RegisterEffect(e3)
+--
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(11200069,0))
+	e4:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW+CATEGORY_LEAVE_GRAVE)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_CHAINING)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCountLimit(1,11200169)
+	e4:SetCondition(c11200069.con4)
+	e4:SetTarget(c11200069.tg4)
+	e4:SetOperation(c11200069.op4)
+	c:RegisterEffect(e4)
+--
+end
+--
+c11200069.xig_ihs_0x132=1
+c11200069.xig_ihs_0x133=1
+--
+function c11200069.cfilter1(c)
+	return not (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_LIGHT))
+end
+function c11200069.con1(e)
+	local c=e:GetHandler()
+	local tp=c:GetControler()
+	return not Duel.IsExistingMatchingCard(c11200069.cfilter1,tp,LOCATION_MZONE,0,1,nil)
+end
+--
+function c11200069.tfilter3(c,e,tp)
+	return (c:IsSetCard(0x621) or c:IsCode(11200019) or c.xig_ihs_0x132)
+		and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c11200069.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingMatchingCard(c11200069.tfilter3,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+--
+function c11200069.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetMZoneCount(tp)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=Duel.SelectMatchingCard(tp,c11200069.tfilter3,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if sg:GetCount()<1 then return end
+	Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+end
+--
+function c11200069.con4(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	return not rc:IsSetCard(0x621)
+end
+--
+function c11200069.tfilter4(c)
+	return c:IsSetCard(0x621) and c:IsAbleToDeck()
+end
+function c11200069.tg4(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToDeck() or Duel.IsExistingMatchingCard(c11200069.tfilter4,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,LOCATION_GRAVE+LOCATION_MZONE)
+end
+--
+function c11200069.op4(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local sg=Duel.GetFieldGroup(tp,LOCATION_GRAVE+LOCATION_MZONE,0)
+	local tg=sg:Filter(c11200069.tfilter4,nil)
+	if c:IsRelateToEffect(e) then tg:AddCard(c) end
+	if tg:GetCount()<1 then return end
+	if Duel.SendtoDeck(tg,nil,1,REASON_EFFECT)>0 then
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end
+--

expansions/script/c11200070.lua

+--借符『大穴牟迟大人的药』
+function c11200070.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e1:SetCondition(c11200070.con1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DISABLE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCountLimit(1,11200070+EFFECT_COUNT_CODE_OATH)
+	e2:SetTarget(c11200070.tg2)
+	e2:SetOperation(c11200070.op2)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCondition(c11200070.con3)
+	e3:SetTarget(c11200070.tg3)
+	e3:SetOperation(c11200070.op3)
+	c:RegisterEffect(e3)
+--
+end
+--
+c11200070.xig_ihs_0x133=1
+--
+function c11200070.cfilter1(c)
+	return not (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_LIGHT))
+end
+function c11200070.con1(e)
+	local c=e:GetHandler()
+	local tp=c:GetControler()
+	return not Duel.IsExistingMatchingCard(c11200070.cfilter1,tp,LOCATION_MZONE,0,1,nil)
+end
+--
+function c11200070.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) end
+	if chk==0 then return e:IsHasType(EFFECT_TYPE_ACTIVATE)
+		and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+--
+function c11200070.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsLocation(LOCATION_SZONE) then return end
+	if not c:IsRelateToEffect(e) then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,c,tc)
+		local e2_1=Effect.CreateEffect(c)
+		e2_1:SetType(EFFECT_TYPE_SINGLE)
+		e2_1:SetCode(EFFECT_EQUIP_LIMIT)
+		e2_1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e2_1:SetValue(c11200070.val2_1)
+		e2_1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e2_1)
+		if Duel.SelectYesNo(tp,aux.Stringid(11200070,0)) then
+			Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+			local e2_2=Effect.CreateEffect(c)
+			e2_2:SetType(EFFECT_TYPE_SINGLE)
+			e2_2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e2_2:SetCode(EFFECT_DISABLE)
+			e2_2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2_2)
+		end
+		c:CancelToGrave()
+	else
+		c:CancelToGrave(false)
+	end
+end
+--
+function c11200070.val2_1(e,c)
+	return e:GetHandler():GetEquipTarget()==c
+end
+--
+function c11200070.cfilter3(c,tp)
+	return c:IsSetCard(0x621) and c:IsType(TYPE_MONSTER)
+end
+function c11200070.con3(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c11200070.cfilter3,1,nil)
+		and not eg:IsContains(e:GetHandler())
+end
+--
+function c11200070.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsSSetable() end
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+function c11200070.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsSSetable() then
+		Duel.SSet(tp,c)
+		Duel.ConfirmCards(1-tp,c)
+		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)
+	end
+end
+--

expansions/script/c11200071.lua

+--『Ancient Duper』
+function c11200071.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCountLimit(1,11200071+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c11200071.tg1)
+	e1:SetOperation(c11200071.op1)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(11200071,1))
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,11200171)
+	e3:SetCost(c11200071.cost3)
+	e3:SetTarget(c11200071.tg3)
+	e3:SetOperation(c11200071.op3)
+	c:RegisterEffect(e3)
+--
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e4)
+--
+end
+--
+c11200071.xig_ihs_0x133=1
+--
+function c11200071.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if not eg then return false end
+	local tc=eg:GetFirst()
+	if chkc then return chkc==tc end
+	if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetAttack()>=1000 and tc:IsOnField() and tc:IsCanBeEffectTarget(e) end
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0)
+end
+--
+function c11200071.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=eg:GetFirst()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+		local e1_1=Effect.CreateEffect(c)
+		e1_1:SetDescription(aux.Stringid(11200071,0))
+		e1_1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+		e1_1:SetType(EFFECT_TYPE_SINGLE)
+		e1_1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
+		e1_1:SetValue(1)
+		e1_1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1_1)
+		local e1_2=Effect.CreateEffect(c)
+		e1_2:SetType(EFFECT_TYPE_SINGLE)
+		e1_2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+		e1_2:SetValue(1)
+		e1_2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1_2)
+		local e1_3=Effect.CreateEffect(c)
+		e1_3:SetType(EFFECT_TYPE_SINGLE)
+		e1_3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
+		e1_3:SetValue(1)
+		e1_3:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1_3)
+		local e1_4=Effect.CreateEffect(c)
+		e1_4:SetType(EFFECT_TYPE_SINGLE)
+		e1_4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+		e1_4:SetValue(1)
+		e1_4:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1_4)
+		local e1_5=Effect.CreateEffect(c)
+		e1_5:SetType(EFFECT_TYPE_SINGLE)
+		e1_5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1_5:SetCode(EFFECT_DISABLE)
+		e1_5:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1_5)
+	end
+end
+--
+function c11200071.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+--
+function c11200071.tfilter3(c,tp)
+	return c.xig_ihs_0x133 and c:IsType(TYPE_SPELL+TYPE_TRAP)
+		and (Duel.GetLocationCount(tp,LOCATION_SZONE)>0 or c:IsType(TYPE_FIELD)) and not c:IsCode(11200071)
+end
+function c11200071.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11200071.tfilter3,tp,LOCATION_GRAVE,0,1,nil,tp) end
+end
+--
+function c11200071.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectMatchingCard(tp,c11200071.tfilter3,tp,LOCATION_GRAVE,0,1,1,nil,tp)
+	Duel.SSet(tp,g)
+	Duel.ConfirmCards(1-tp,g)
+end
+--

expansions/script/c11200077.lua

+--团子
+function c11200077.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_RECOVER+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,11200077+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c11200077.tg1)
+	e1:SetOperation(c11200077.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_RECOVER)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_RECOVER)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(c11200077.con2)
+	e2:SetCost(c11200077.cost2)
+	e2:SetTarget(c11200077.tg2)
+	e2:SetOperation(c11200077.op2)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e3)
+--
+end
+--
+function c11200077.tfilter1(c)
+	return c:IsCode(11200077) and c:IsAbleToHand()
+end
+function c11200077.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11200077.tfilter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,0,tp,LOCATION_DECK)
+end
+--
+function c11200077.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.Recover(tp,1100,REASON_EFFECT)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local sg=Duel.SelectMatchingCard(tp,c11200077.tfilter1,tp,LOCATION_DECK,0,1,1,nil)
+	if sg:GetCount()>0 then
+		Duel.SendtoHand(sg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,sg)
+	end
+end
+--
+function c11200077.con2(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp
+end
+--
+function c11200077.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToDeckAsCost() end
+	local g=Group.CreateGroup()
+	g:AddCard(c)
+	Duel.HintSelection(g)
+	Duel.SendtoDeck(c,nil,2,REASON_COST)
+end
+--
+function c11200077.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1100)
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1100)
+end
+--
+function c11200077.op2(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)
+end
+--