update

deck/21-10-17 new cards.ydk → deck/21-10-23 new cards.ydk

@@ -21,6 +21,7 @@
 100284002
 100284003
 #extra
+100426003
 100426034
 100283001
 !side

script/c10000010.lua

+--ラーの翼神竜
+function c10000010.initial_effect(c)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(10000010,2))
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c10000010.ttcon)
+	e1:SetOperation(c10000010.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c10000010.setcon)
+	c:RegisterEffect(e2)
+	--summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_CANNOT_DISABLE_SUMMON)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	c:RegisterEffect(e3)
+	--summon success
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_SUMMON_SUCCESS)
+	e4:SetOperation(c10000010.sumsuc)
+	c:RegisterEffect(e4)
+	--cannot special summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e5:SetValue(c10000010.splimit)
+	c:RegisterEffect(e5)
+	--One Turn Kill
+	local e6=Effect.CreateEffect(c)
+	e6:SetDescription(aux.Stringid(10000010,0))
+	e6:SetCategory(CATEGORY_ATKCHANGE)
+	e6:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e6:SetCode(EVENT_SUMMON_SUCCESS)
+	e6:SetCost(c10000010.atkcost)
+	e6:SetOperation(c10000010.atkop)
+	c:RegisterEffect(e6)
+	--destroy
+	local e7=Effect.CreateEffect(c)
+	e7:SetDescription(aux.Stringid(10000010,1))
+	e7:SetCategory(CATEGORY_DESTROY)
+	e7:SetType(EFFECT_TYPE_IGNITION)
+	e7:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e7:SetRange(LOCATION_MZONE)
+	e7:SetCost(c10000010.descost)
+	e7:SetTarget(c10000010.destg)
+	e7:SetOperation(c10000010.desop)
+	c:RegisterEffect(e7)
+end
+SUMMON_VALUE_MONSTER_REBORN=0x13
+function c10000010.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c10000010.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c10000010.setcon(e,c,minc)
+	if not c then return true end
+	return false
+end
+function c10000010.splimit(e,se,sp,st)
+	return Duel.IsPlayerAffectedByEffect(sp,41044418) and st&SUMMON_VALUE_MONSTER_REBORN>0
+		and e:GetHandler():IsControler(sp) and e:GetHandler():IsLocation(LOCATION_GRAVE)
+end
+function c10000010.genchainlm(c)
+	return	function (e,rp,tp)
+				return e:GetHandler()==c
+			end
+end
+function c10000010.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SetChainLimitTillChainEnd(c10000010.genchainlm(e:GetHandler()))
+end
+function c10000010.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLP(tp)>100 end
+	local lp=Duel.GetLP(tp)
+	e:SetLabel(lp-100)
+	Duel.PayLPCost(tp,lp-100)
+end
+function c10000010.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(e:GetLabel())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+		c:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_UPDATE_DEFENSE)
+		c:RegisterEffect(e2)
+	end
+end
+function c10000010.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	Duel.PayLPCost(tp,1000)
+end
+function c10000010.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c10000010.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c100285001.lua

@@ -4,28 +4,28 @@
 function c100285001.initial_effect(c)
 	--special summon rule(on self field)
 	local e1=Effect.CreateEffect(c)
-    e1:SetDescription(aux.Stringid(100285001,0))
+	e1:SetDescription(aux.Stringid(100285001,0))
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-    e1:SetCountLimit(1,100285001+EFFECT_COUNT_CODE_OATH)
+	e1:SetCountLimit(1,100285001+EFFECT_COUNT_CODE_OATH)
 	e1:SetCondition(c100285001.spcon)
 	e1:SetOperation(c100285001.spop)
-    c:RegisterEffect(e1)
+	c:RegisterEffect(e1)
 	--special summon rule(on oppent field)
 	local e2=Effect.CreateEffect(c)
-    e2:SetDescription(aux.Stringid(100285001,1))
+	e2:SetDescription(aux.Stringid(100285001,1))
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_SPSUMMON_PROC)
 	e2:SetRange(LOCATION_HAND)
 	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM)
 	e2:SetTargetRange(POS_FACEUP,1)
-    e2:SetCountLimit(1,100285001+EFFECT_COUNT_CODE_OATH)
+	e2:SetCountLimit(1,100285001+EFFECT_COUNT_CODE_OATH)
 	e2:SetCondition(c100285001.spcon2)
 	e2:SetOperation(c100285001.spop2)
-    c:RegisterEffect(e2)
-    --destroy
+	c:RegisterEffect(e2)
+	--destroy
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(100285001,2))
 	e3:SetCategory(CATEGORY_TOHAND)

script/c100343001.lua

@@ -31,7 +31,7 @@ function c100343001.disfilter(c)
 end
 function c100343001.discon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return Duel.IsExistingMatchingCard(c100343001.disfilter,tp,LOCATION_MZONE,0,1,nil) 
+	return Duel.IsExistingMatchingCard(c100343001.disfilter,tp,LOCATION_MZONE,0,1,nil)
 		and rp==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
 		and (c:IsLocation(LOCATION_MZONE) and not c:IsStatus(STATUS_BATTLE_DESTROYED) or c:IsLocation(LOCATION_HAND))
 end

script/c100426003.lua

+--N·As·H Knight
+--
+--Script by Trishula9
+function c100426003.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,5,2)
+	c:EnableReviveLimit()
+	--battle indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetCondition(c100426003.indcon)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--overlay
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100426003,0))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,100426003)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e2:SetCondition(c100426003.ovcon)
+	e2:SetCost(c100426003.ovcost)
+	e2:SetTarget(c100426003.ovtg)
+	e2:SetOperation(c100426003.ovop)
+	c:RegisterEffect(e2)
+end
+function c100426003.indfilter(c)
+	return c:IsSetCard(0x48) and c:IsFaceup()
+end
+function c100426003.indcon(e)
+	return Duel.IsExistingMatchingCard(c100426003.indfilter,0,LOCATION_MZONE,LOCATION_MZONE,1,nil)
+end
+function c100426003.ovcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
+end
+function c100426003.ovcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
+end
+function c100426003.ovfilter(c,sc)
+	local m=_G["c"..c:GetCode()]
+	if not m then return false end
+	local no=m.xyz_number
+	return no and no>=101 and no<=107 and c:IsCanBeXyzMaterial(sc)
+end
+function c100426003.ovtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c100426003.ovfilter,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end
+end
+function c100426003.ovop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100426003,0))
+	local mg=Duel.SelectMatchingCard(tp,c100426003.ovfilter,tp,LOCATION_EXTRA,0,1,1,nil,c)
+	Duel.Overlay(c,mg)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,c)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100426003,1)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100426003,0))
+		local tg=g:Select(tp,1,1,nil)
+		Duel.HintSelection(tg)
+		local tc=tg:GetFirst()
+		if not tc:IsImmuneToEffect(e) then
+			local og=tc:GetOverlayGroup()
+			if og:GetCount()>0 then
+				Duel.SendtoGrave(og,REASON_RULE)
+			end
+			Duel.Overlay(c,tg)
+		end
+	end
+end

script/c100426031.lua

+--海晶乙女スプリンガール
+--
+--Script by JustFish
+function c100426031.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(100426031,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,100426031)
+	e1:SetCost(c100426031.spcost)
+	e1:SetTarget(c100426031.sptg)
+	e1:SetOperation(c100426031.spop)
+	c:RegisterEffect(e1)
+	--mill
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100426031,1))
+	e2:SetCategory(CATEGORY_DECKDES+CATEGORY_TOGRAVE+CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetCountLimit(1,100426031+100)
+	e2:SetCondition(c100426031.tgcon)
+	e2:SetTarget(c100426031.tgtg)
+	e2:SetOperation(c100426031.tgop)
+	c:RegisterEffect(e2)
+end
+function c100426031.cfilter(c)
+	return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x12b)
+end
+function c100426031.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c100426031.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local sg=Duel.SelectMatchingCard(tp,c100426031.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(sg,POS_FACEUP,REASON_COST)
+end
+function c100426031.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 c100426031.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 c100426031.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_LINK and c:GetReasonCard():IsAttribute(ATTRIBUTE_WATER)
+end
+function c100426031.ctfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x12b)
+end
+function c100426031.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ct=Duel.GetMatchingGroupCount(c100426031.ctfilter,tp,LOCATION_MZONE,0,nil)
+	if chk==0 then return ct>0 and Duel.IsPlayerCanDiscardDeck(tp,ct) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,ct)
+end
+function c100426031.ctfilter2(c)
+	return c:IsLocation(LOCATION_GRAVE) and c:IsSetCard(0x12b)
+end
+function c100426031.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local ct1=Duel.GetMatchingGroupCount(c100426031.ctfilter,tp,LOCATION_MZONE,0,nil)
+	if ct1>0 then
+		if Duel.DiscardDeck(tp,ct1,REASON_EFFECT)~=0 then
+			local og=Duel.GetOperatedGroup()
+			local ct2=og:FilterCount(c100426031.ctfilter2,nil)
+			if ct2>0 then
+				Duel.Damage(tp,ct2*200,REASON_EFFECT)
+			end
+		end
+	end
+end

script/c100426032.lua

+--海晶乙女スリーピーメイデン
+--
+--Script by JustFish
+function c100426032.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(100426032,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,100426032)
+	e1:SetTarget(c100426032.sptg)
+	e1:SetOperation(c100426032.spop)
+	c:RegisterEffect(e1)
+	--equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100426032,1))
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,100426032+100)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c100426032.eqtg)
+	e2:SetOperation(c100426032.eqop)
+	c:RegisterEffect(e2)
+end
+function c100426032.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x12b)
+end
+function c100426032.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c100426032.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c100426032.filter,tp,LOCATION_ONFIELD,0,1,nil)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c100426032.filter,tp,LOCATION_ONFIELD,0,1,1,c,c)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c100426032.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local tc=Duel.GetFirstTarget()
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 and c:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
+		c:SetCardTarget(tc)
+		--indes
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_TARGET)
+		e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetValue(aux.indoval)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+	end
+end
+function c100426032.tgfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x12b) and c:IsType(TYPE_LINK)
+end
+function c100426032.eqfilter(c)
+	return c:IsSetCard(0x12b) and c:IsType(TYPE_LINK)
+end
+function c100426032.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100426032.tgfilter(chkc) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(c100426032.tgfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(c100426032.eqfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,c100426032.tgfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_GRAVE)
+end
+function c100426032.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c100426032.eqfilter),tp,LOCATION_GRAVE,0,1,1,nil)
+		local ec=g:GetFirst()
+		if ec then
+			if not Duel.Equip(tp,ec,tc) then return end
+			--equip limit
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_EQUIP_LIMIT)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetLabelObject(tc)
+			e1:SetValue(c100426032.eqlimit)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			ec:RegisterEffect(e1)
+		end
+	end
+end
+function c100426032.eqlimit(e,c)
+	return c==e:GetLabelObject()
+end

script/c100426034.lua

+--海晶乙女アクア・アルゴノート
+--
+--Script by JustFish
+function c100426034.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_WATER),2,4)
+	c:EnableReviveLimit()
+	--atk limit
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(0,LOCATION_MZONE)
+	e1:SetCondition(c100426034.atlcon)
+	e1:SetValue(c100426034.atlimit)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100426034,0))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,100426034)
+	e2:SetTarget(c100426034.thtg)
+	e2:SetOperation(c100426034.thop)
+	c:RegisterEffect(e2)
+	--negate
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(100426034,1))
+	e3:SetCategory(CATEGORY_DISABLE+CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetCountLimit(1,100426034+100)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c100426034.discon)
+	e3:SetTarget(c100426034.distg)
+	e3:SetOperation(c100426034.disop)
+	c:RegisterEffect(e3)
+end
+function c100426034.atlcon(e)
+	return e:GetHandler():GetSequence()>4
+end
+function c100426034.atlimit(e,c)
+	return c~=e:GetHandler()
+end
+function c100426034.thfilter(c)
+	return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand()
+end
+function c100426034.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	if chk==0 then return Duel.IsExistingTarget(c100426034.thfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g1=Duel.SelectTarget(tp,c100426034.thfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g2=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
+	g1:Merge(g2)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,2,0,0)
+end
+function c100426034.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local tg=g:Filter(Card.IsRelateToEffect,nil,e)
+	if tg:GetCount()>0 then
+		Duel.SendtoHand(tg,nil,REASON_EFFECT)
+	end
+end
+function c100426034.discon(e,tp,eg,ep,ev,re,r,rp)
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	return bit.band(loc,LOCATION_SZONE)~=0
+		and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainDisablable(ev) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+end
+function c100426034.spfilter(c,e,tp,ec)
+	return c:IsSetCard(0x12b) and c:GetEquipTarget()==ec and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c100426034.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c100426034.spfilter,tp,LOCATION_SZONE,0,1,nil,e,tp,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_SZONE)
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function c100426034.disop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c100426034.spfilter,tp,LOCATION_SZONE,0,1,1,nil,e,tp,c)
+	local tc=g:GetFirst()
+	if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		Duel.NegateEffect(ev)
+	end
+end
\ No newline at end of file

script/c100426035.lua

+--海晶乙女の潜逅
+--
+--Script by JustFish
+function c100426035.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,100426035+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c100426035.target)
+	e1:SetOperation(c100426035.activate)
+	c:RegisterEffect(e1)
+end
+function c100426035.spfilter(c,e,tp)
+	return c:IsSetCard(0x12b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsType(TYPE_LINK)
+end
+function c100426035.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100426035.spfilter(chkc,e,tp) end
+	local b1=Duel.IsExistingTarget(c100426035.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
+	local b2=Duel.IsExistingMatchingCard(c100426035.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
+		and Duel.IsEnvironment(91027843,tp,LOCATION_FZONE)
+	if chk==0 then return (b1 or b2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	local op=0
+	if b1 and b2 then
+		op=Duel.SelectOption(tp,aux.Stringid(100426035,0),aux.Stringid(100426035,1))
+	elseif b1 then
+		op=Duel.SelectOption(tp,aux.Stringid(100426035,0))
+	else
+		op=Duel.SelectOption(tp,aux.Stringid(100426035,1))+1
+	end
+	e:SetLabel(op)
+	if op==0 then
+		e:SetProperty(EFFECT_FLAG_CARD_TARGET)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectTarget(tp,c100426035.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+	else
+		e:SetProperty(0)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+	end
+end
+function c100426035.activate(e,tp,eg,ep,ev,re,r,rp)
+	local op=e:GetLabel()
+	if op==0 then
+		local tc=Duel.GetFirstTarget()
+		if tc:IsRelateToEffect(e) then
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	else
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local g=Duel.SelectMatchingCard(tp,c100426035.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+			if g:GetCount()>0 then
+				Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+			end
+		end
+	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+		e1:SetTargetRange(1,0)
+		e1:SetTarget(c100426035.splimit)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c100426035.splimit(e,c)
+	return not c:IsAttribute(ATTRIBUTE_WATER)
+end

script/c100426036.lua

+--海晶乙女環流
+--
+--Script by JustFish
+function c100426036.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e1:SetTarget(c100426036.target)
+	e1:SetOperation(c100426036.activate)
+	c:RegisterEffect(e1)
+	--act in hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e2:SetCondition(c100426036.handcon)
+	c:RegisterEffect(e2)
+end
+function c100426036.texfilter(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_LINK) and c:IsAttribute(ATTRIBUTE_WATER)
+		and Duel.IsExistingMatchingCard(c100426036.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c)
+end
+function c100426036.spfilter(c,e,tp,rc)
+	return c:IsSetCard(0x12b) and c:IsType(TYPE_LINK) and c:IsLink(rc:GetLink()) and not c:IsCode(rc:GetCode())
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_LINK,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,rc,c)>0
+end
+function c100426036.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100426036.texfilter(chkc,e,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c100426036.texfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	Duel.SelectTarget(tp,c100426036.texfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,g,1,0,0)
+end
+function c100426036.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_EXTRA) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,c100426036.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc)
+		local sc=g:GetFirst()
+		if sc then
+			sc:SetMaterial(nil)
+			if Duel.SpecialSummon(sc,SUMMON_TYPE_LINK,tp,tp,false,false,POS_FACEUP)~=0 then
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+				e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+				e1:SetRange(LOCATION_MZONE)
+				e1:SetValue(1)
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				sc:RegisterEffect(e1,true)
+				local e2=Effect.CreateEffect(c)
+				e2:SetType(EFFECT_TYPE_SINGLE)
+				e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
+				e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				sc:RegisterEffect(e2,true)
+				sc:CompleteProcedure()
+			end
+		end
+	end
+end
+function c100426036.hcfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x12b) and c:IsLinkAbove(3)
+end
+function c100426036.handcon(e)
+	return Duel.IsExistingMatchingCard(c100426036.hcfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end

script/c100426037.lua

+--海晶乙女渦輪
+--
+--Script by JustFish
+function c100426037.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCountLimit(1,100426037+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c100426037.target)
+	e1:SetOperation(c100426037.activate)
+	c:RegisterEffect(e1)
+	--extra attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c100426037.attg)
+	e2:SetOperation(c100426037.atop)
+	c:RegisterEffect(e2)
+end
+function c100426037.spfilter(c,e,tp)
+	return c:IsCode(67712104) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and (c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0
+			or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
+end
+function c100426037.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c100426037.spfilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_EXTRA)
+end
+function c100426037.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100426037.spfilter),tp,LOCATION_GRAVE+LOCATION_EXTRA,0,nil,e,tp)
+	if Duel.NegateAttack() and #g>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c100426037.tgfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x12b) and c:IsType(TYPE_LINK) and c:IsLinkAbove(2)
+end
+function c100426037.attg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100426037.tgfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c100426037.tgfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c100426037.tgfilter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c100426037.atop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EXTRA_ATTACK)
+		e1:SetValue(tc:GetLink())
+		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_NO_BATTLE_DAMAGE)
+		e2:SetCondition(c100426037.damcon)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e2:SetOwnerPlayer(tp)
+		tc:RegisterEffect(e2)
+		local e3=e2:Clone()
+		e3:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+		e3:SetCondition(c100426037.damcon2)
+		e3:SetValue(1)
+		tc:RegisterEffect(e3)
+	end
+end
+function c100426037.damcon(e)
+	return e:GetHandlerPlayer()==e:GetOwnerPlayer()
+end
+function c100426037.damcon2(e)
+	return 1-e:GetHandlerPlayer()==e:GetOwnerPlayer()
+end

script/c101107005.lua

+--ロード・オブ・ドラゴン－ドラゴンの独裁者－
+--
+--Script by JoyJ
+function c101107005.initial_effect(c)
+	aux.AddCodeList(c,89631139)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101107005,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101107005)
+	e1:SetCost(c101107005.spcost1)
+	e1:SetTarget(c101107005.sptg1)
+	e1:SetOperation(c101107005.spop1)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101107005,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,101107005+100)
+	e2:SetCost(c101107005.spcost2)
+	e2:SetTarget(c101107005.sptg2)
+	e2:SetOperation(c101107005.spop2)
+	c:RegisterEffect(e2)
+	--attack redirect
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EFFECT_PATRICIAN_OF_DARKNESS)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCondition(c101107005.podcond)
+	e3:SetTargetRange(0,1)
+	c:RegisterEffect(e3)
+end
+function c101107005.spcostfilter1(c)
+	return c:IsCode(89631139) and c:IsAbleToGraveAsCost()
+end
+function c101107005.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107005.spcostfilter1,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c101107005.spcostfilter1,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c101107005.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c101107005.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+end
+function c101107005.spcostfilter2(c)
+	return (c:IsCode(89631139) or aux.IsCodeListed(c,89631139)) and c:IsDiscardable()
+end
+function c101107005.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107005.spcostfilter2,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	Duel.DiscardHand(tp,c101107005.spcostfilter2,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function c101107005.spfilter2(c,e,tp)
+	return c:IsSetCard(0xdd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101107005.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101107005.spfilter2(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c101107005.spfilter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c101107005.spfilter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c101107005.spop2(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)
+	end
+end
+function c101107005.podfilter(c)
+	return c:IsSetCard(0xdd) and c:IsFaceup()
+end
+function c101107005.podcond(e)
+	local tp=e:GetOwnerPlayer()
+	return Duel.IsExistingMatchingCard(c101107005.podfilter,tp,LOCATION_MZONE,0,1,nil)
+end

script/c101107013.lua

+--DDグリフォン
+--
+--Script by JoyJ
+function c101107013.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,101107013)
+	e1:SetTarget(c101107013.atktg)
+	e1:SetOperation(c101107013.atkop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101107013,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCountLimit(1,101107013+100)
+	e2:SetCondition(c101107013.spcon)
+	e2:SetTarget(c101107013.sptg)
+	e2:SetOperation(c101107013.spop)
+	c:RegisterEffect(e2)
+	--spsummon success
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(101107013,1))
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,101107013+200)
+	e3:SetCondition(c101107013.drcon)
+	e3:SetCost(c101107013.drcost)
+	e3:SetTarget(c101107013.drtg)
+	e3:SetOperation(c101107013.drop)
+	c:RegisterEffect(e3)
+	--search
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(101107013,2))
+	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetCountLimit(1,101107013+300)
+	e4:SetCondition(c101107013.thcon)
+	e4:SetTarget(c101107013.thtg)
+	e4:SetOperation(c101107013.thop)
+	c:RegisterEffect(e4)
+end
+function c101107013.atkfilter1(c)
+	return c:IsFaceup() and c:IsRace(RACE_FIEND)
+end
+function c101107013.atkfilter2(c)
+	return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0xae)
+end
+function c101107013.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c101107013.atkfilter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c101107013.atkfilter1,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(c101107013.atkfilter2,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c101107013.atkfilter1,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c101107013.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local ct=Duel.GetMatchingGroupCount(c101107013.atkfilter2,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
+	local atk=g:GetClassCount(Card.GetCode)*500
+	if atk>0 and tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(atk)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		if not tc:IsImmuneToEffect(e1) then
+			Duel.BreakEffect()
+			Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+		end
+	end
+end
+function c101107013.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xaf)
+end
+function c101107013.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101107013.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c101107013.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,POS_FACEUP_DEFENSE) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c101107013.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
+end
+function c101107013.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM)
+end
+function c101107013.costfilter(c)
+	return c:IsSetCard(0xae,0xaf) and c:IsDiscardable()
+end
+function c101107013.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107013.drcostfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,c101107013.drcostfilter,1,1,REASON_COST+REASON_DISCARD)
+end
+function c101107013.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 c101107013.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 c101107013.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_GRAVE)
+end
+function c101107013.thfilter(c)
+	return c:IsSetCard(0xaf) and not c:IsCode(101107013) and c:IsAbleToHand()
+end
+function c101107013.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107013.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
+end
+function c101107013.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c101107013.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c101107016.lua

+--S－Force ラプスウェル
+--
+--Script by JoyJ
+function c101107016.initial_effect(c)
+	--equip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101107016,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,101107016)
+	e1:SetTarget(c101107016.sptg)
+	e1:SetOperation(c101107016.spop)
+	c:RegisterEffect(e1)
+	--salvage
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetDescription(aux.Stringid(101107016,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,101107016+100)
+	e2:SetCost(c101107016.descost)
+	e2:SetTarget(c101107016.destg)
+	e2:SetOperation(c101107016.desop)
+	c:RegisterEffect(e2)
+end
+function c101107016.spfilter(c,e,tp)
+	return c:IsSetCard(0x156) and c:IsType(TYPE_MONSTER)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101107016.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101107016.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingTarget(c101107016.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c101107016.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c101107016.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c101107016.costfilter(c,e,tp)
+	if c:IsLocation(LOCATION_HAND) then
+		return c:IsSetCard(0x156) and c:IsAbleToRemoveAsCost()
+	else
+		return e:GetHandler():IsSetCard(0x156) and c:IsHasEffect(55049722,tp) and c:IsAbleToRemoveAsCost()
+	end
+end
+function c101107016.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107016.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local tg=Duel.SelectMatchingCard(tp,c101107016.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
+	local te=tg:GetFirst():IsHasEffect(55049722,tp)
+	if te then
+		te:UseCountLimit(tp)
+		Duel.Remove(tg,POS_FACEUP,REASON_REPLACE)
+	else
+		Duel.Remove(tg,POS_FACEUP,REASON_COST)
+	end
+end
+function c101107016.ggfilter(c,tp)
+	return c:IsSetCard(0x156) and c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsControler(tp)
+end
+function c101107016.desfilter(c,tp)
+	local g=c:GetColumnGroup()
+	return g:IsExists(c101107016.ggfilter,1,nil,tp)
+end
+function c101107016.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c101107016.desfilter,tp,0,LOCATION_MZONE,nil,tp)
+	if chk==0 then return #g>0 end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
+end
+function c101107016.desop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c101107016.desfilter,tp,0,LOCATION_MZONE,nil,tp)
+	Duel.Destroy(g,REASON_EFFECT)
+end

script/c101107017.lua

+--S－Force レトロアクティヴ
+--
+--Script by JoyJ
+function c101107017.initial_effect(c)
+	--hand link
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101107017)
+	e1:SetValue(c101107017.matval)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101107017,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,101107017+100)
+	e2:SetCondition(c101107017.spcon)
+	e2:SetTarget(c101107017.sptg)
+	e2:SetOperation(c101107017.spop)
+	c:RegisterEffect(e2)
+	--banish replace
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(55049722)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1,101107017+200)
+	c:RegisterEffect(e3)
+end
+function c101107017.mfilter(c)
+	return c:IsLocation(LOCATION_MZONE)
+end
+function c101107017.exmfilter(c)
+	return c:IsLocation(LOCATION_HAND) and c:IsCode(101107017)
+end
+function c101107017.matval(e,lc,mg,c,tp)
+	if not lc:IsSetCard(0x156) then return false,nil end
+	return true,not mg or mg:IsExists(c101107017.mfilter,1,nil) and not mg:IsExists(c101107017.exmfilter,1,nil)
+end
+function c101107017.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
+end
+function c101107017.spfilter(c,e,tp)
+	return c:IsSetCard(0x156) and c:IsLevelAbove(2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101107017.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetMZoneCount(tp,c)>0 and c:IsAbleToHand()
+		and Duel.IsExistingMatchingCard(c101107017.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_HAND)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
+end
+function c101107017.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.SendtoHand(c,nil,REASON_EFFECT)>0 and c:IsLocation(LOCATION_HAND) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,c101107017.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c101107018.lua

@@ -69,7 +69,7 @@ function c101107018.spthfilter(c,code)
 end
 function c101107018.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then 
+	if chk==0 then
 		if Duel.CheckReleaseGroup(tp,c101107018.costfilter,1,c,e,tp) then
 			e:SetLabel(1)
 			return true

script/c101107020.lua

+--磁石の戦士ε
+--
+--Script by JoyJ & mercury233
+function c101107020.initial_effect(c)
+	--cos
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101107020,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,101107020)
+	e1:SetCost(c101107020.cost)
+	e1:SetOperation(c101107020.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+end
+function c101107020.costfilter(c)
+	return c:IsSetCard(0x2066) and c:IsLevelBelow(4) and c:IsAbleToGraveAsCost() and not c:IsCode(101107020)
+end
+function c101107020.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107020.costfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local cg=Duel.SelectMatchingCard(tp,c101107020.costfilter,tp,LOCATION_DECK,0,1,1,nil)
+	Duel.SendtoGrave(cg,REASON_COST)
+	e:SetLabel(cg:GetFirst():GetCode())
+end
+function c101107020.cfilter(c,oc)
+	return c:IsFaceup() and c:IsCode(oc:GetCode())
+end
+function c101107020.spfilter(c,e,tp)
+	return c:IsSetCard(0x2066,0xe9) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and not Duel.IsExistingMatchingCard(c101107020.cfilter,tp,LOCATION_MZONE,0,1,nil,c)
+end
+function c101107020.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CHANGE_CODE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	e1:SetValue(e:GetLabel())
+	c:RegisterEffect(e1)
+	if Duel.IsExistingMatchingCard(c101107020.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
+		and Duel.SelectYesNo(tp,aux.Stringid(101107020,1)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,c101107020.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c101107023.lua

@@ -27,7 +27,7 @@ function c101107023.initial_effect(c)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e2)
-	--Summon Launch Effect 
+	--Summon Launch Effect
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(101107023,1))
 	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
@@ -75,7 +75,7 @@ function c101107023.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoGrave(g,REASON_COST)
 end
 function c101107023.thfilter(c)
-	return c:IsSetCard(0x12d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()   
+	return c:IsSetCard(0x12d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
 end
 function c101107023.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c101107023.thfilter,tp,LOCATION_DECK,0,1,nil) end

script/c101107024.lua

@@ -68,7 +68,7 @@ function c101107024.atkop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c101107024.thfilter(c)
-	return (c:IsSetCard(0xa4) and c:IsType(TYPE_MONSTER) or c:IsCode(40703222)) and c:IsAbleToHand()  
+	return (c:IsSetCard(0xa4) and c:IsType(TYPE_MONSTER) or c:IsCode(40703222)) and c:IsAbleToHand()
 end
 function c101107024.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c101107024.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end

script/c101107026.lua

+--模拘撮星人 エピゴネン
+--
+--Script by Trishula9
+function c101107026.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101107026)
+	e1:SetCost(c101107026.spcost)
+	e1:SetTarget(c101107026.sptg)
+	e1:SetOperation(c101107026.spop)
+	c:RegisterEffect(e1)
+end
+function c101107026.costfilter(c,tp)
+	return c:IsType(TYPE_EFFECT) and c:IsFaceup() and Duel.GetMZoneCount(tp,c)>=2
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,101107126,0,TYPES_TOKEN_MONSTER,0,0,1,c:GetOriginalRace(),c:GetOriginalAttribute())
+end
+function c101107026.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,c101107026.costfilter,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local rc=Duel.SelectReleaseGroup(tp,c101107026.costfilter,1,1,nil,tp):GetFirst()
+	e:SetLabel(rc:GetOriginalRace(),rc:GetOriginalAttribute())
+	Duel.Release(rc,REASON_COST)
+end
+function c101107026.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsPlayerCanSpecialSummonCount(tp,2) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+end
+function c101107026.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local race,attr=e:GetLabel()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,101107126,0,TYPES_TOKEN_MONSTER,0,0,1,race,attr) then
+		Duel.BreakEffect()
+		local token=Duel.CreateToken(tp,101107126)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_RACE)
+		e1:SetValue(race)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
+		token:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+		e2:SetValue(attr)
+		token:RegisterEffect(e2)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c101107027.lua

+--遊覧艇サブマリード
+--
+--Script by Trishula9
+function c101107027.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101107027)
+	e1:SetCondition(c101107027.spcon)
+	e1:SetTarget(c101107027.sptg)
+	e1:SetOperation(c101107027.spop)
+	c:RegisterEffect(e1)
+	--indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTarget(c101107027.indtg)
+	e2:SetCountLimit(1)
+	e2:SetValue(c101107027.indct)
+	c:RegisterEffect(e2)
+end
+function c101107027.filter(c)
+	return c:IsFaceup() and c:IsType(TYPE_NORMAL)
+end
+function c101107027.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101107027.filter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c101107027.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 c101107027.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 c101107027.indtg(e,c)
+	return c:IsType(TYPE_NORMAL) and c:IsFaceup()
+end
+function c101107027.indct(e,re,r,rp)
+	local a,d=Duel.GetBattleMonster(tp)
+	return bit.band(r,REASON_BATTLE)~=0 and d and d:IsType(TYPE_EFFECT)
+end
\ No newline at end of file

script/c101107028.lua

+--悪魔嬢アリス
+--
+--Script by Trishula9
+function c101107028.initial_effect(c)
+	--self spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101107028)
+	e1:SetCost(c101107028.sscost)
+	e1:SetTarget(c101107028.sstg)
+	e1:SetOperation(c101107028.ssop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetTarget(c101107028.sptg)
+	e2:SetOperation(c101107028.spop)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_RELEASE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,101107028+100)
+	e3:SetTarget(c101107028.thtg)
+	e3:SetOperation(c101107028.thop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_DESTROYED)
+	e4:SetCondition(c101107028.thcon)
+	c:RegisterEffect(e4)
+end
+function c101107028.costfilter(c)
+	return c:IsType(TYPE_TRAP) and c:IsAbleToRemoveAsCost()
+end
+function c101107028.sscost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107028.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c101107028.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c101107028.sstg(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 c101107028.ssop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c101107028.spfilter(c,e,tp)
+	return c:IsSetCard(0x274) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101107028.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101107028.spfilter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c101107028.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c101107028.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c101107028.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)
+	end
+end
+function c101107028.thfilter(c)
+	return c:IsRace(RACE_FIEND) and not c:IsCode(101107028) and c:IsAbleToHand()
+		and c:IsAttackAbove(0) and c:IsDefenseAbove(0) and c:GetAttack()+c:GetDefense()==2000
+end
+function c101107028.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107028.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c101107028.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c101107028.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
+function c101107028.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and e:GetHandler():IsPreviousControler(tp)
+end

script/c101107029.lua

+--枯鰈葉リプレース
+--
+--Script by Trishula9
+function c101107029.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetCountLimit(1,101107029)
+	e1:SetCondition(c101107029.spcon)
+	e1:SetTarget(c101107029.sptg)
+	e1:SetOperation(c101107029.spop)
+	c:RegisterEffect(e1)
+	--atk/def
+	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(c101107029.adval)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_UPDATE_DEFENSE)
+	c:RegisterEffect(e3)
+end
+function c101107029.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return tp==Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)<Duel.GetFieldGroupCount(tp,0,LOCATION_GRAVE)
+end
+function c101107029.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 c101107029.spop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c101107029.adval(e,c)
+	return Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_GRAVE)*200
+end

script/c101107032.lua

+--ピースリア
+--
+--Script by Trishula9
+function c101107032.initial_effect(c)
+	c:EnableCounterPermit(0x161)
+	c:SetCounterLimit(0x161,4)
+	--battle indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--add counter
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_COUNTER)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_DAMAGE_STEP_END)
+	e2:SetTarget(c101107032.cttg)
+	e2:SetOperation(c101107032.ctop)
+	c:RegisterEffect(e2)
+end
+function c101107032.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=e:GetHandler():GetBattleTarget()
+	if chk==0 then return tc and e:GetHandler():IsCanAddCounter(0x161,1) end
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x161)
+end
+function c101107032.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		c:AddCounter(0x161,1)
+		local ct=c:GetCounter(0x161)
+		local dg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_DECK,0,nil,TYPE_MONSTER)
+		if ct==1 and dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(101107032,0)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(101107032,4))
+			local g=dg:Select(tp,1,1,nil)
+			local tc=g:GetFirst()
+			if tc then
+				Duel.ShuffleDeck(tp)
+				Duel.MoveSequence(tc,0)
+				Duel.ConfirmDecktop(tp,1)
+			end
+		end
+		if ct==2 and Duel.IsPlayerCanDraw(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(101107032,1)) then
+			Duel.BreakEffect()
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+		local mg=Duel.GetMatchingGroup(c101107032.mfilter,tp,LOCATION_DECK,0,nil)
+		if ct==3 and mg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(101107032,2)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local g=mg:Select(tp,1,1,nil)
+			if g:GetCount()>0 then
+				Duel.SendtoHand(g,nil,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,g)
+			end
+		end
+		local cg=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_DECK,0,nil)
+		if ct==4 and cg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(101107032,3)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local g=cg:Select(tp,1,1,nil)
+			if g:GetCount()>0 then
+				Duel.SendtoHand(g,nil,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,g)
+			end
+		end
+	end
+end
+function c101107032.mfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end

script/c101107033.lua

+--機怪獣ダレトン
+--
+--Script by Trishula9
+function c101107033.initial_effect(c)
+	--atk change
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetOperation(c101107033.operation)
+	c:RegisterEffect(e1)
+end
+function c101107033.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	local tc=g:GetFirst()
+	local atk=0
+	while tc do
+		local batk=tc:GetBaseAttack()
+		local catk=tc:GetAttack()
+		atk=math.abs(catk-batk)+atk
+		tc=g:GetNext()
+	end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_BASE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(atk)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+	c:RegisterEffect(e1)
+end
\ No newline at end of file

script/c101107038.lua

@@ -12,7 +12,7 @@ function c101107038.initial_effect(c)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetValue(c101107038.adval)
 	c:RegisterEffect(e1)
-	--copy 
+	--copy
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_FREE_CHAIN)

script/c101107040.lua

+--ガーディアン・キマイラ
+--
+--Script by JoyJ & mercury233
+function c101107040.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,c101107040.ffilter,3,false)
+	--material limit
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_MATERIAL_LIMIT)
+	e0:SetValue(c101107040.matlimit)
+	c:RegisterEffect(e0)
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(c101107040.splimit)
+	c:RegisterEffect(e1)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101107040,0))
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetCondition(c101107040.drcon)
+	e2:SetTarget(c101107040.drtg)
+	e2:SetOperation(c101107040.drop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_MATERIAL_CHECK)
+	e3:SetValue(c101107040.valcheck)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--cannot target
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(c101107040.indcon)
+	e4:SetValue(aux.tgoval)
+	c:RegisterEffect(e4)
+end
+function c101107040.ffilter(c,fc,sub,mg,sg)
+	if not sg then return true end
+	return not sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode())
+		and #sg<2 or sg:IsExists(aux.NOT(Card.IsLocation),1,c,c:GetLocation())
+end
+function c101107040.matlimit(e,c,fc,st)
+	if st~=SUMMON_TYPE_FUSION then return true end
+	return c:IsLocation(LOCATION_HAND) or c:IsControler(fc:GetControler()) and c:IsLocation(LOCATION_MZONE)
+end
+function c101107040.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA)
+		or st&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
+end
+function c101107040.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return re and re:IsActiveType(TYPE_SPELL)
+end
+function c101107040.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local dr,des=e:GetLabel()
+	if chk==0 then return c:IsSummonType(SUMMON_TYPE_FUSION) and dr and des and Duel.IsPlayerCanDraw(tp,dr)
+		and Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>=des end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,0,dr,tp,0)
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(dr)
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c101107040.drop(e,tp,eg,ep,ev,re,r,rp)
+	local dr,des=e:GetLabel()
+	if Duel.Draw(tp,dr,REASON_EFFECT)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,des,des,nil)
+		if #g==des then
+			Duel.HintSelection(g)
+			Duel.Destroy(g,REASON_EFFECT)
+		end
+	end
+end
+function c101107040.valcheck(e,c)
+	local mg=c:GetMaterial()
+	local mg1=mg:Filter(Card.IsLocation,nil,LOCATION_HAND)
+	local mg2=mg:Filter(Card.IsLocation,nil,LOCATION_ONFIELD)
+	e:GetLabelObject():SetLabel(#mg1,#mg2)
+end
+function c101107040.indcon(e)
+	return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil,24094653)
+end

script/c101107044.lua

+--DDD赦俿王デス・マキナ
+--
+--Script by JoyJ
+function c101107044.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_FIEND),10,2,c101107044.ovfilter,aux.Stringid(101107044,0))
+	c:EnableReviveLimit()
+	--pendulum summon
+	aux.EnablePendulumAttribute(c,false)
+	c:SetUniqueOnField(1,0,101107044,LOCATION_MZONE)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101107044,1))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,101107044)
+	e1:SetTarget(c101107044.sptg)
+	e1:SetOperation(c101107044.spop)
+	c:RegisterEffect(e1)
+	--overlay
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101107044,2))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetCondition(c101107044.ovlcon)
+	e2:SetTarget(c101107044.ovltg)
+	e2:SetOperation(c101107044.ovlop)
+	c:RegisterEffect(e2)
+	--to pendulum
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(101107044,3))
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c101107044.pencon)
+	e3:SetTarget(c101107044.pentg)
+	e3:SetOperation(c101107044.penop)
+	c:RegisterEffect(e3)
+end
+function c101107044.ovfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x10af)
+end
+function c101107044.sptgfilter(c)
+	return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+end
+function c101107044.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,c)
+	if chk==0 then return tc and Duel.GetMZoneCount(tp)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingTarget(c101107044.sptgfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(101107044,4))
+	local g=Duel.SelectTarget(tp,c101107044.sptgfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,0)
+end
+function c101107044.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,c)
+	local fc=Duel.GetFirstTarget()
+	if not tc or Duel.GetMZoneCount(tp)<1 then return end
+	if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
+		if not fc:IsRelateToEffect(e) then return end
+		Duel.MoveToField(fc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+	end
+end
+function c101107044.ovlcon(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	return rc:IsControler(1-tp) and rc:GetOriginalType()&TYPE_MONSTER~=0 and re:GetActivateLocation()&LOCATION_ONFIELD~=0
+end
+function c101107044.ovltgfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xae)
+end
+function c101107044.ovltg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local rc=re:GetHandler()
+	if chk==0 then return c:GetFlagEffect(101107044)==0
+		and (c:CheckRemoveOverlayCard(tp,2,REASON_EFFECT)
+			or Duel.IsExistingMatchingCard(c101107044.ovltgfilter,tp,LOCATION_ONFIELD,0,1,nil))
+		and rc:IsRelateToEffect(re) and rc:IsCanBeXyzMaterial(c) end
+	c:RegisterFlagEffect(101107044,RESET_CHAIN,0,1)
+end
+function c101107044.ovlop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=re:GetHandler()
+	local opt1=c:IsRelateToEffect(e) and c:CheckRemoveOverlayCard(tp,2,REASON_EFFECT)
+	local opt2=Duel.IsExistingMatchingCard(c101107044.ovltgfilter,tp,LOCATION_ONFIELD,0,1,nil)
+	local result=0
+	if not opt1 and not opt2 then return end
+	if opt1 and not opt2 then result=0 end
+	if opt2 and not opt1 then result=1 end
+	if opt1 and opt2 then result=Duel.SelectOption(tp,aux.Stringid(101107044,5),aux.Stringid(101107044,6)) end
+	if result==0 then
+		result=c:RemoveOverlayCard(tp,2,2,REASON_EFFECT)
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,c101107044.ovltgfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+		Duel.HintSelection(g)
+		result=Duel.Destroy(g,REASON_EFFECT)
+	end
+	if result>0 and c:IsRelateToEffect(e) and rc:IsRelateToEffect(re) then
+		local og=rc:GetOverlayGroup()
+		if og:GetCount()>0 then
+			Duel.SendtoGrave(og,REASON_RULE)
+		end
+		Duel.Overlay(c,rc)
+	end
+end
+function c101107044.pencon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c101107044.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
+end
+function c101107044.penop(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+	end
+end

script/c101107046.lua

@@ -2,7 +2,7 @@
 --
 --Script by Trishula9
 function c101107046.initial_effect(c)
-	--xyz summon 
+	--xyz summon
 	aux.AddXyzProcedure(c,nil,2,2,nil,nil,99)
 	c:EnableReviveLimit()
 	--remove

script/c101107050.lua

+--青ぎ眼の幻出
+--
+--Script by Trishula9
+function c101107050.initial_effect(c)
+	aux.AddCodeList(c,89631139)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,101107050+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c101107050.target)
+	e1:SetOperation(c101107050.activate)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c101107050.sptg)
+	e2:SetOperation(c101107050.spop)
+	c:RegisterEffect(e2)
+end
+function c101107050.showfilter(c)
+	return c:IsCode(89631139) and not c:IsPublic()
+end
+function c101107050.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101107050.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c101107050.showfilter,tp,LOCATION_HAND,0,1,nil)
+		and Duel.IsExistingMatchingCard(c101107050.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
+		and Duel.SelectYesNo(tp,aux.Stringid(101107050,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=Duel.SelectMatchingCard(tp,c101107050.showfilter,tp,LOCATION_HAND,0,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+		e:SetLabel(1)
+		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+	else
+		e:SetLabel(0)
+		e:SetCategory(0)
+	end
+end
+function c101107050.activate(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetLabel()==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=Duel.SelectMatchingCard(tp,c101107050.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+		if sg:GetCount()>0 then
+			Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function c101107050.thfilter(c)
+	return c:IsAbleToHand() and c:IsFaceup()
+end
+function c101107050.spfilter2(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0xdd)
+end
+function c101107050.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c101107050.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c101107050.thfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c101107050.thfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c101107050.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local code=tc:GetOriginalCode()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
+		local g1=Duel.GetMatchingGroup(c101107050.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
+		if code==89631139 and #g1>0
+			and Duel.SelectYesNo(tp,aux.Stringid(101107050,1)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg1=g1:Select(tp,1,1,nil)
+			Duel.SpecialSummon(sg1,0,tp,tp,false,false,POS_FACEUP)
+		end
+		local g2=Duel.GetMatchingGroup(c101107050.spfilter2,tp,LOCATION_HAND,0,nil,e,tp)
+		if code~=89631139 and #g2>0
+			and Duel.SelectYesNo(tp,aux.Stringid(101107050,1)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg2=g2:Select(tp,1,1,nil)
+			Duel.SpecialSummon(sg2,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end

script/c101107056.lua

+--特許権の契約書類
+--
+--Script by Trishula9 & mercury233
+function c101107056.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--spsummon limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCondition(c101107056.spcon)
+	e2:SetTarget(c101107056.sptg)
+	e2:SetOperation(c101107056.spop)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,101107056)
+	e3:SetTarget(c101107056.thtg)
+	e3:SetOperation(c101107056.thop)
+	c:RegisterEffect(e3)
+end
+function c101107056.limfilter(c,tp)
+	local rtype=c:GetType()&(TYPE_FUSION|TYPE_SYNCHRO|TYPE_XYZ|TYPE_LINK)
+	return c:GetSummonPlayer()==1-tp and rtype>0
+		and Duel.IsExistingMatchingCard(c101107056.cfilter,tp,LOCATION_MZONE,0,1,nil,rtype)
+end
+function c101107056.cfilter(c,rtype)
+	return c:IsFaceup() and c:IsSetCard(0x10af) and c:GetType()&rtype>0
+end
+function c101107056.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c101107056.limfilter,1,nil,tp)
+end
+function c101107056.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(1000)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000)
+end
+function c101107056.spop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Damage(1-tp,1000,REASON_EFFECT)
+	local c=e:GetHandler()
+	local g=eg:Filter(c101107056.limfilter,nil,tp)
+	local tc=g:GetFirst()
+	while tc do
+		local rtype=tc:GetType()&(TYPE_FUSION|TYPE_SYNCHRO|TYPE_XYZ|TYPE_LINK)
+		local reset=RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+		e1:SetRange(LOCATION_FZONE)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetReset(reset)
+		e1:SetTargetRange(0,1)
+		e1:SetLabel(rtype)
+		e1:SetTarget(c101107056.sumlimit)
+		c:RegisterEffect(e1)
+		if (rtype&TYPE_FUSION)>0 and c:GetFlagEffect(101107056)==0 then
+			c:RegisterFlagEffect(101107056,reset,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101107056,0))
+		end
+		if (rtype&TYPE_SYNCHRO)>0 and c:GetFlagEffect(101107056+100)==0 then
+			c:RegisterFlagEffect(101107056+100,reset,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101107056,1))
+		end
+		if (rtype&TYPE_XYZ)>0 and c:GetFlagEffect(101107056+200)==0 then
+			c:RegisterFlagEffect(101107056+200,reset,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101107056,2))
+		end
+		if (rtype&TYPE_LINK)>0 and c:GetFlagEffect(101107056+300)==0 then
+			c:RegisterFlagEffect(101107056+300,reset,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101107056,3))
+		end
+		tc=g:GetNext()
+	end
+end
+function c101107056.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsType(e:GetLabel())
+end
+function c101107056.thfilter(c)
+	return (c:IsLocation(LOCATION_EXTRA) and c:IsFaceup() and c:IsType(TYPE_PENDULUM) or c:IsLocation(LOCATION_GRAVE))
+		and c:IsSetCard(0xaf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c101107056.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107056.thfilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_EXTRA)
+end
+function c101107056.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101107056.thfilter),tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+end

script/c101107058.lua

+--溟界の大蛟
+--
+--Script by Trishula9
+function c101107058.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,101107058)
+	e2:SetCost(c101107058.spcost)
+	e2:SetTarget(c101107058.sptg)
+	e2:SetOperation(c101107058.spop)
+	c:RegisterEffect(e2)
+	--to grave
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOGRAVE)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,101107058+100)
+	e3:SetCondition(c101107058.tgcon)
+	e3:SetTarget(c101107058.tgtg)
+	e3:SetOperation(c101107058.tgop)
+	c:RegisterEffect(e3)
+end
+function c101107058.costfilter(c,e,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() and Duel.GetMZoneCount(tp,c)>0
+		and Duel.IsExistingTarget(c101107058.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,c:GetOriginalAttribute())
+end
+function c101107058.spfilter(c,e,tp,attr)
+	return c:IsRace(RACE_REPTILE) and c:GetOriginalAttribute()~=attr and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101107058.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107058.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c101107058.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	e:SetLabel(tc:GetOriginalAttribute())
+	Duel.SendtoGrave(tc,REASON_COST)
+end
+function c101107058.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local attr=e:GetLabel()
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101107058.spfilter(chkc,e,tp,attr) end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c101107058.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,attr)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c101107058.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)
+	end
+end
+function c101107058.cfilter(c,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsControler(1-tp)
+end
+function c101107058.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and eg:IsExists(c101107058.cfilter,1,nil,tp)
+end
+function c101107058.tgfilter(c)
+	return c:IsRace(RACE_REPTILE) and c:IsAbleToGrave()
+end
+function c101107058.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107058.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c101107058.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c101107058.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end

script/c101107060.lua

@@ -23,7 +23,7 @@ function c101107060.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c101107060.thfilter(c)
-	return (c:IsSetCard(0x16d) and c:IsType(TYPE_MONSTER) or c:IsSetCard(0x16d) and c:IsType(TYPE_FIELD)) and c:IsAbleToHand()  
+	return (c:IsSetCard(0x16d) and c:IsType(TYPE_MONSTER) or c:IsSetCard(0x16d) and c:IsType(TYPE_FIELD)) and c:IsAbleToHand()
 end
 function c101107060.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c101107060.thfilter,tp,LOCATION_DECK,0,1,nil) end

script/c101107065.lua

+--運命のウラドラ
+--
+--Script by Trishula9 & mercury233
+function c101107065.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c101107065.cost)
+	e1:SetTarget(c101107065.target)
+	e1:SetOperation(c101107065.operation)
+	c:RegisterEffect(e1)
+end
+function c101107065.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	Duel.PayLPCost(tp,1000)
+end
+function c101107065.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c101107065.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetValue(1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetDescription(aux.Stringid(101107065,0))
+		e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+		e2:SetCode(EVENT_BATTLE_DESTROYING)
+		e2:SetLabelObject(tc)
+		e2:SetCondition(c101107065.cmcon)
+		e2:SetTarget(c101107065.cmtg)
+		e2:SetOperation(c101107065.cmop)
+		e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+		Duel.RegisterEffect(e2,tp)
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e3:SetCode(EFFECT_DESTROY_REPLACE)
+		e3:SetRange(LOCATION_MZONE)
+		e3:SetCondition(c101107065.regcon)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+		tc:RegisterEffect(e3)
+	end
+end
+function c101107065.regcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:GetBattleTarget() and r==REASON_BATTLE then
+		c:RegisterFlagEffect(101107065,RESET_PHASE+PHASE_DAMAGE,0,1)
+	end
+	return false
+end
+function c101107065.cmcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	return eg:IsContains(tc) and tc:GetFlagEffect(101107065)~=0
+end
+function c101107065.cmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
+end
+function c101107065.cmop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
+	if g:GetCount()==0 then return end
+	local tc=g:GetMinGroup(Card.GetSequence):GetFirst()
+	Duel.MoveSequence(tc,0)
+	Duel.ConfirmDecktop(tp,1)
+	local opt=Duel.SelectOption(tp,aux.Stringid(101107065,1),aux.Stringid(101107065,2))
+	Duel.MoveSequence(tc,opt)
+	if tc:IsRace(RACE_DRAGON) or tc:IsRace(RACE_DINOSAUR) or tc:IsRace(RACE_SEASERPENT) or tc:IsRace(RACE_WYRM) then
+		local d=math.floor(tc:GetAttack()/1000)
+		local dn=Duel.Draw(tp,d,REASON_EFFECT)
+		if dn>0 then
+			Duel.BreakEffect()
+			Duel.Recover(tp,dn*1000,REASON_EFFECT)
+		end
+	end
+end

script/c101107069.lua

@@ -57,7 +57,7 @@ function c101107069.operation(e,tp,eg,ep,ev,re,r,rp)
 				e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 				tc:RegisterEffect(e1)
 			end
-			tc=g:GetNext()	
+			tc=g:GetNext()
 		end
 	end
 	Duel.SpecialSummonComplete()

script/c101107072.lua

@@ -27,7 +27,7 @@ function c101107072.cfilter(c)
 	return c:IsSetCard(0x273) and c:IsFaceup()
 end
 function c101107072.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c101107072.cfilter,tp,LOCATION_MZONE,0,1,nil) 
+	return Duel.IsExistingMatchingCard(c101107072.cfilter,tp,LOCATION_MZONE,0,1,nil)
 		and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) and rp==1-tp
 end
 function c101107072.cost(e,tp,eg,ep,ev,re,r,rp,chk)

script/c101107075.lua

+--DDDへッドハント
+--
+--Script by Trishula9
+function c101107075.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_CONTROL)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCountLimit(1,101107075+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c101107075.condition)
+	e1:SetTarget(c101107075.target)
+	e1:SetOperation(c101107075.operation)
+	c:RegisterEffect(e1)
+end
+function c101107075.cfilter(c)
+	return c:IsSetCard(0x10af) and c:IsFaceup()
+end
+function c101107075.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101107075.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c101107075.filter(c)
+	return c:IsFaceup() and c:IsControlerCanBeChanged()
+end
+function c101107075.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return c101107075.filter(chkc) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(c101107075.filter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,c101107075.filter,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+end
+function c101107075.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp,PHASE_END,2)~=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CANNOT_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,2)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,2)
+		tc:RegisterEffect(e2)
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_DISABLE_EFFECT)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,2)
+		tc:RegisterEffect(e3)
+		if tc:IsSummonLocation(LOCATION_EXTRA) then
+			local e4=Effect.CreateEffect(c)
+			e4:SetType(EFFECT_TYPE_SINGLE)
+			e4:SetCode(EFFECT_ADD_SETCODE)
+			e4:SetValue(0x10af)
+			e4:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,2)
+			tc:RegisterEffect(e4)
+		end
+	end
+end

script/c101107077.lua

 --死者所生
 --
---Script by JoyJ
---not fully implemented
-SUMTYPE_MONSTER_REBORN = 83764718
+--Script by JoyJ & mercury233
 function c101107077.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
@@ -15,20 +13,21 @@ function c101107077.initial_effect(c)
 	e1:SetTarget(c101107077.target)
 	e1:SetOperation(c101107077.activate)
 	c:RegisterEffect(e1)
-	if not c101107077.last_turn then
-		c101107077.last_turn=-1
+	if not c101107077.global_check then
+		c101107077.globle_check=true
 		local ge1=Effect.CreateEffect(c)
 		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		ge1:SetCode(EVENT_BATTLE_DESTROYED)
-		ge1:SetOperation(c101107077.checkop1)
+		ge1:SetOperation(c101107077.checkop)
 		Duel.RegisterEffect(ge1,0)
 	end
 end
-function c101107077.checkop1(e,tp,eg,ep,ev,re,r,rp)
-	c101107077.last_turn=Duel.GetTurnCount()
+SUMMON_VALUE_MONSTER_REBORN=0x13
+function c101107077.checkop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.RegisterFlagEffect(0,101107077,RESET_PHASE+PHASE_END,0,1)
 end
 function c101107077.condition(e,tp,eg,ep,ev,re,r,rp)
-	return c101107077.last_turn==Duel.GetTurnCount()
+	return Duel.GetFlagEffect(0,101107077)~=0
 end
 function c101107077.cfilter(c)
 	return c:IsCode(83764718) and c:IsAbleToGraveAsCost()
@@ -40,18 +39,18 @@ function c101107077.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoGrave(g,REASON_COST)
 end
 function c101107077.tgfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,SUMTYPE_MONSTER_REBORN,tp,false,false)
+	return c:IsCanBeSpecialSummoned(e,SUMMON_VALUE_MONSTER_REBORN,tp,false,false)
 end
 function c101107077.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return c101107077.tgfilter(chkc,e,tp) and chkc:IsLocation(LOCATION_GRAVE) end
 	if chk==0 then return Duel.IsExistingTarget(c101107077.tgfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c101107077.tgfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
+	local g=Duel.SelectTarget(tp,c101107077.tgfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
 end
-function c101107077.operation(e,tp,eg,ep,ev,re,r,rp)
+function c101107077.activate(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,SUMTYPE_MONSTER_REBORN,tp,tp,false,false,POS_FACEUP)
+		Duel.SpecialSummon(tc,SUMMON_VALUE_MONSTER_REBORN,tp,tp,false,false,POS_FACEUP)
 	end
 end

script/c101107078.lua

+--ドライブ・ドライブ
+--
+--Script by Trishula9
+function c101107078.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,101107078+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c101107078.target)
+	e1:SetOperation(c101107078.operation)
+	c:RegisterEffect(e1)
+end
+function c101107078.filter(c,e,tp,race)
+	return c:IsType(TYPE_MONSTER) and (c:IsAbleToHand() or c:IsCanBeSpecialSummoned(e,0,tp,false,false)) and c:IsRace(race)
+end
+function c101107078.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local mg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	local ct1=mg:GetClassCount(Card.GetRace)
+	local mc=mg:GetFirst()
+	local mrc=0
+	while mc do
+		mrc=mrc|mc:GetRace()
+		mc=mg:GetNext()
+	end
+	local g=Duel.GetMatchingGroup(c101107078.filter,tp,LOCATION_DECK,0,nil,e,tp,mrc)
+	local ct2=g:GetClassCount(Card.GetRace)
+	if chk==0 then return ct1>=3 and ct2>=3 and g:CheckSubGroup(aux.drccheck,3,3) end
+end
+function c101107078.operation(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	local ct1=mg:GetClassCount(Card.GetRace)
+	local mc=mg:GetFirst()
+	local mrc=0
+	while mc do
+		mrc=mrc|mc:GetRace()
+		mc=mg:GetNext()
+	end
+	local g=Duel.GetMatchingGroup(c101107078.filter,tp,LOCATION_DECK,0,nil,e,tp,mrc)
+	local ct2=g:GetClassCount(Card.GetRace)
+	if ct1<3 or ct2<3 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local sg=g:SelectSubGroup(tp,aux.drccheck,false,3,3)
+	if sg then
+		Duel.ConfirmCards(1-tp,sg)
+		local tc=sg:RandomSelect(1-tp,1):GetFirst()
+		Duel.ConfirmCards(tp,tc)
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
+			and Duel.SelectOption(tp,1190,1152)==1 then
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		else
+			Duel.SendtoHand(tc,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tc)
+		end
+		sg:RemoveCard(tc)
+		Duel.SendtoDeck(sg,nil,0,REASON_EFFECT)
+		Duel.SortDecktop(p,p,2)
+		for i=1,2 do
+			local mg=Duel.GetDecktopGroup(p,1)
+			Duel.MoveSequence(mg:GetFirst(),1)
+		end
+	end
+end

script/c101107079.lua

@@ -2,7 +2,7 @@
 --
 --Script by Trishula9
 function c101107079.initial_effect(c)
-	--activate 
+	--activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
@@ -24,8 +24,8 @@ function c101107079.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	local dif=Duel.GetLP(1-tp)-Duel.GetLP(tp)
 	local c=e:GetHandler()
 	local b1=Duel.IsExistingMatchingCard(c101107079.desfilter,tp,0,LOCATION_MZONE,1,nil,dif)
-	local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
-		and Duel.IsExistingMatchingCard(c101107079.spfilter,tp,LOCATION_GRAVE,0,1,nil,dif,e,tp)	
+	local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c101107079.spfilter,tp,LOCATION_GRAVE,0,1,nil,dif,e,tp)
 	if chk==0 then return b1 or b2 end
 	local s=0
 	if b1 and not b2 then

script/c101107080.lua

@@ -2,7 +2,7 @@
 --
 --Script by Trishula9
 function c101107080.initial_effect(c)
-	--activate 
+	--activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_DRAW)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)

script/c41044418.lua

+--千年の啓示
+function c41044418.initial_effect(c)
+	aux.AddCodeList(c,10000010)
+	--activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(41044418,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1,41044418)
+	e1:SetCost(c41044418.thcost)
+	e1:SetTarget(c41044418.thtg)
+	e1:SetOperation(c41044418.thop)
+	c:RegisterEffect(e1)
+	--Reborn
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(41044418,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,41044419)
+	e2:SetCondition(c41044418.rbcon)
+	e2:SetCost(c41044418.rbcost)
+	e2:SetTarget(c41044418.rbtg)
+	e2:SetOperation(c41044418.rbop)
+	c:RegisterEffect(e2)
+end
+SUMMON_VALUE_MONSTER_REBORN=0x13
+function c41044418.costfilter(c)
+	return c:IsRace(RACE_DIVINE) and c:IsAbleToGraveAsCost()
+end
+function c41044418.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c41044418.costfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c41044418.costfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c41044418.thfilter(c)
+	return c:IsCode(83764718) and c:IsAbleToHand()
+end
+function c41044418.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c41044418.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function c41044418.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c41044418.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 c41044418.rbcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED)
+end
+function c41044418.rbcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(c,REASON_COST)
+end
+function c41044418.rbtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFlagEffect(tp,41044418)==0 end
+end
+function c41044418.rbop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFlagEffect(tp,41044418)~=0 then return end
+	local c=e:GetHandler()
+	--rebirth
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(41044418)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	--reg
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e0:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e0:SetReset(RESET_PHASE+PHASE_END)
+	e0:SetCondition(c41044418.regcon)
+	e0:SetOperation(c41044418.regop)
+	Duel.RegisterEffect(e0,tp)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c41044418.tgcon)
+	e2:SetOperation(c41044418.tgop)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+	Duel.RegisterFlagEffect(tp,41044418,RESET_PHASE+PHASE_END,0,1)
+end
+function c41044418.regfilter(c)
+	return c:IsCode(10000010) and c:GetSummonType()==SUMMON_TYPE_SPECIAL+SUMMON_VALUE_MONSTER_REBORN
+end
+function c41044418.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(Card.IsCode,1,nil,10000010)
+end
+function c41044418.regop(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(Card.IsCode,nil,10000010)
+	for tc in aux.Next(g) do
+		tc:RegisterFlagEffect(41044418,RESET_EVENT+0x1fe0000,0,0)
+	end
+end
+function c41044418.tgfilter(c)
+	return c:IsFaceup() and c:GetFlagEffect(41044418)~=0
+end
+function c41044418.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c41044418.tgfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c41044418.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c41044418.tgfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.HintSelection(g)
+	Duel.SendtoGrave(g,REASON_RULE)
+end

script/c83764718.lua

+--死者蘇生
+function c83764718.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c83764718.target)
+	e1:SetOperation(c83764718.activate)
+	c:RegisterEffect(e1)
+end
+SUMMON_VALUE_MONSTER_REBORN=0x13
+function c83764718.filter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,SUMMON_VALUE_MONSTER_REBORN,tp,false,false)
+end
+function c83764718.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c83764718.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c83764718.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c83764718.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c83764718.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,SUMMON_VALUE_MONSTER_REBORN,tp,tp,false,false,POS_FACEUP)
+	end
+end