update scripts

deck/20-04-18 new cards.ydk → deck/20-04-21 new cards.ydk

 #created by ...
 #main
+100266029
+100266030
+100266031
+100266032
+100266033
 100266005
 100266012
 100266013
@@ -27,3 +32,15 @@
 100266006
 100424001
 !side
+101012000
+101012081
+101012082
+101012083
+101012084
+101012085
+101012086
+101012087
+101012088
+101012089
+101012090
+101012091
\ No newline at end of file

script/c100266029.lua

+--花札衛－桜－
+--Flower Cardian Cherry Blossom
+--Scripted by: XGlitchy30
+function c100266029.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c100266029.spcon)
+	e1:SetTarget(c100266029.sptg)
+	e1:SetOperation(c100266029.spop)
+	c:RegisterEffect(e1)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(c100266029.drawcost)
+	e2:SetTarget(c100266029.drawtg)
+	e2:SetOperation(c100266029.drawop)
+	c:RegisterEffect(e2)
+end
+function c100266029.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xe6) and c:IsLevelBelow(2)
+end
+function c100266029.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c100266029.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c100266029.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 c100266029.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
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c100266029.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_SUMMON)
+	Duel.RegisterEffect(e2,tp)
+end
+function c100266029.splimit(e,c)
+	return not c:IsSetCard(0xe6)
+end
+function c100266029.drawcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0xe6) end
+	local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0xe6)
+	Duel.Release(g,REASON_COST)
+end
+function c100266029.drawtg(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 c100266029.sfilter(c,e,tp)
+	return c:IsSetCard(0xe6) and c:IsType(TYPE_MONSTER) and not c:IsCode(100266029)
+		and (c:IsAbleToHand() or (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
+end
+function c100266029.drawop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	if Duel.Draw(p,d,REASON_EFFECT)~=0 then
+		local tc=Duel.GetOperatedGroup():GetFirst()
+		Duel.ConfirmCards(1-p,tc)
+		if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) and Duel.IsExistingMatchingCard(c100266029.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(100266029,0)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+			local sg=Duel.SelectMatchingCard(tp,c100266029.sfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+			if #sg>0 then
+				if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and sg:GetFirst():IsCanBeSpecialSummoned(e,0,tp,false,false)
+				and (not sg:GetFirst():IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
+					Duel.SpecialSummon(sg:GetFirst(),0,tp,tp,false,false,POS_FACEUP)
+				else
+					Duel.SendtoHand(sg,nil,REASON_EFFECT)
+					Duel.ConfirmCards(1-tp,sg)
+				end
+			end
+		else
+			Duel.SendtoGrave(tc,REASON_EFFECT)
+		end
+		Duel.ShuffleHand(tp)
+	end
+end

script/c100266030.lua

+--超勝負！
+--Super All-In!
+--Scripted by: XGlitchy30
+function c100266030.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOEXTRA+CATEGORY_DESTROY+CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c100266030.target)
+	e1:SetOperation(c100266030.activate)
+	c:RegisterEffect(e1)
+	--register GY effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCondition(c100266030.regcon)
+	e2:SetOperation(c100266030.regop)
+	c:RegisterEffect(e2)
+end
+function c100266030.exfilter(c,tp)
+	return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsAbleToExtra() and Duel.GetMZoneCount(tp,c)>=4
+end
+function c100266030.spfilter(c,e,tp)
+	return c:IsSetCard(0xe6) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
+end
+function c100266030.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c100266030.exfilter,tp,LOCATION_MZONE,0,1,nil,tp) and not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and Duel.IsExistingMatchingCard(c100266030.spfilter,tp,LOCATION_GRAVE,0,4,nil,e,tp) and Duel.IsPlayerCanDraw(tp,1)
+	end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_MZONE)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,4,tp,LOCATION_GRAVE)
+end
+function c100266030.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c100266030.exfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
+	local tg=g:GetFirst()
+	if tg and Duel.SendtoDeck(tg,nil,2,REASON_EFFECT)~=0 and tg:IsLocation(LOCATION_EXTRA) then
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<4 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c100266030.spfilter),tp,LOCATION_GRAVE,0,4,4,nil,e,tp)
+		if #sg>0 then
+			if Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)~=0 then
+				Duel.BreakEffect()
+				local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+				if Duel.Draw(p,d,REASON_EFFECT)~=0 then
+					local tc=Duel.GetOperatedGroup():GetFirst()
+					Duel.ConfirmCards(1-p,tc)
+					if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then
+						if tc:IsCanBeSpecialSummoned(e,0,tp,true,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+							and Duel.SelectYesNo(tp,aux.Stringid(100266030,0)) then
+							Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)
+						end
+					else
+						local rg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
+						if #rg>0 and Duel.Destroy(rg,REASON_EFFECT)>0 then
+							Duel.SetLP(tp,math.ceil(Duel.GetLP(tp)/2))
+						end
+					end
+				end
+			end
+		end
+	end
+end
+function c100266030.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return re and re:GetHandler():IsSetCard(0xe6) and re:GetHandler():IsType(TYPE_MONSTER) and bit.band(r,REASON_EFFECT)>0
+end
+function c100266030.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(100266030,1))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c100266030.thtg)
+	e1:SetOperation(c100266030.thop)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	c:RegisterEffect(e1)
+end
+function c100266030.thfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+end
+function c100266030.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c100266030.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function c100266030.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c100266030.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c100266031.lua

+--極氷獣ブリザード・ウルフ
+--
+--Script by JoyJ
+function c100266031.initial_effect(c)
+	--disable attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(100266031,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,100266031)
+	e1:SetTarget(c100266031.atktg)
+	e1:SetOperation(c100266031.atkop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100266031,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,100266031+100)
+	e2:SetCondition(c100266031.spcon)
+	e2:SetTarget(c100266031.sptg)
+	e2:SetOperation(c100266031.spop)
+	c:RegisterEffect(e2)
+end
+function c100266031.spfilter(c,e,tp)
+	return c:IsAttribute(ATTRIBUTE_WATER) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c100266031.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c100266031.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c100266031.atkop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateAttack() then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tc=Duel.SelectMatchingCard(tp,c100266031.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp):GetFirst()
+		if tc then
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function c100266031.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return tp~=Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
+end
+function c100266031.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c100266031.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)>0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e1:SetValue(LOCATION_REMOVED)
+		c:RegisterEffect(e1,true)
+	end
+end

script/c100266032.lua

+--極氷獣ポーラ・ペンギン
+--
+--Script by JoyJ
+function c100266032.initial_effect(c)
+	--tohand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(100266032,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,100266032)
+	e1:SetTarget(c100266032.thtg)
+	e1:SetOperation(c100266032.thop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100266032,0))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_DESTROYED)
+	e2:SetCountLimit(1,100266032)
+	e2:SetCondition(c100266032.thcon2)
+	e2:SetTarget(c100266032.thtg2)
+	e2:SetOperation(c100266032.thop2)
+	c:RegisterEffect(e2)
+end
+function c100266032.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
+end
+function c100266032.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function c100266032.thcon2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_BATTLE+REASON_EFFECT)
+end
+function c100266032.thtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c100266032.thop2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end

script/c100266033.lua

+--極氷獣アイスバーグ・ナーワル
+--
+--Script by JoyJ
+function c100266033.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsAttribute,ATTRIBUTE_WATER),1)
+	c:EnableReviveLimit()
+	--damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(100266033,0))
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_DESTROYED)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c100266033.condition)
+	e1:SetTarget(c100266033.target)
+	e1:SetOperation(c100266033.operation)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(100266033,1))
+	e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,100266033)
+	e2:SetCondition(c100266033.discon)
+	e2:SetTarget(c100266033.distg)
+	e2:SetOperation(c100266033.disop)
+	c:RegisterEffect(e2)
+end
+function c100266033.filter(c,tp,rp)
+	return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)
+		and ((c:IsReason(REASON_EFFECT) and rp==1-tp) or (c:IsReason(REASON_BATTLE) and Duel.GetAttacker():IsControler(1-tp)))
+end
+function c100266033.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c100266033.filter,1,nil,tp,rp)
+end
+function c100266033.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(600)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,1-tp,600)
+end
+function c100266033.operation(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Damage(p,d,REASON_EFFECT)
+end
+function c100266033.discon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainDisablable(ev) and ep==1-tp
+		and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,c)
+end
+function c100266033.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c100266033.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c10060427.lua

+--コアキメイル・ルークロード
+function c10060427.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c10060427.mtcon)
+	e1:SetOperation(c10060427.mtop)
+	c:RegisterEffect(e1)
+	--summon with 1 tribute
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(10060427,3))
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_SUMMON_PROC)
+	e2:SetCondition(c10060427.otcon)
+	e2:SetOperation(c10060427.otop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_SET_PROC)
+	c:RegisterEffect(e3)
+	--summon success
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(10060427,4))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetCost(c10060427.descost)
+	e3:SetTarget(c10060427.destg)
+	e3:SetOperation(c10060427.desop)
+	c:RegisterEffect(e3)
+end
+function c10060427.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c10060427.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c10060427.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_WARRIOR) and not c:IsPublic()
+end
+function c10060427.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c10060427.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c10060427.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(10060427,0),aux.Stringid(10060427,1),aux.Stringid(10060427,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(10060427,0),aux.Stringid(10060427,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(10060427,1),aux.Stringid(10060427,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(10060427,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c10060427.otfilter(c,tp)
+	return c:IsSetCard(0x1d) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c10060427.otcon(e,c,minc)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local mg=Duel.GetMatchingGroup(c10060427.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
+	return c:IsLevelAbove(7) and minc<=1 and Duel.CheckTribute(c,1,1,mg)
+end
+function c10060427.otop(e,tp,eg,ep,ev,re,r,rp,c)
+	local mg=Duel.GetMatchingGroup(c10060427.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
+	local sg=Duel.SelectTribute(tp,c,1,1,mg)
+	c:SetMaterial(sg)
+	Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL)
+end
+function c10060427.dfilter(c)
+	return c:IsSetCard(0x1d) and c:IsAbleToRemoveAsCost()
+end
+function c10060427.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c10060427.dfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c10060427.dfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c10060427.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c10060427.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local g=tg:Filter(Card.IsRelateToEffect,nil,e)
+	if g:GetCount()>0 then
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end

script/c101012000.lua

+--Piwraithe the Ghost Pirate
+--
+--Script by JoyJ
+function c101012000.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012000,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_DESTROYED)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCountLimit(1,101012000)
+	e1:SetCondition(c101012000.spcon)
+	e1:SetTarget(c101012000.sptg)
+	e1:SetOperation(c101012000.spop)
+	c:RegisterEffect(e1)
+end
+function c101012000.spfilter2(c,tp)
+	return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)
+		and c:IsPreviousPosition(POS_FACEUP) and (c:IsReason(REASON_BATTLE) or c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp)
+		and (c:GetPreviousAttributeOnField() & ATTRIBUTE_WATER) > 0
+end
+function c101012000.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c101012000.spfilter2,1,nil,tp)
+end
+function c101012000.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c101012000.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if (not c:IsRelateToEffect(e)) or Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(Duel.GetMatchingGroupCount(Card.IsAttribute,tp,LOCATION_GRAVE,0,nil,ATTRIBUTE_WATER) * 100)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
+		c:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e2:SetValue(LOCATION_REMOVED)
+		c:RegisterEffect(e2,true)
+	end
+end

script/c101012081.lua

+--Rose Girl
+--
+--Scripted by: XGlitchy30
+function c101012081.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012081,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101012081)
+	e1:SetCondition(c101012081.spcon)
+	e1:SetTarget(c101012081.sptg)
+	e1:SetOperation(c101012081.spop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101012081,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,101012081)
+	e2:SetCondition(c101012081.thcon)
+	e2:SetTarget(c101012081.thtg)
+	e2:SetOperation(c101012081.thop)
+	c:RegisterEffect(e2)
+end
+function c101012081.cfilter(c,tp)
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and c:IsPreviousPosition(POS_FACEUP)
+		and bit.band(c:GetPreviousRaceOnField(),RACE_PLANT)>0
+end
+function c101012081.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c101012081.cfilter,1,nil,tp)
+end
+function c101012081.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 c101012081.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)
+end
+function c101012081.filter(c)
+	return c:IsFaceup() and c:IsRace(RACE_PLANT)
+end
+function c101012081.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101012081.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
+end
+function c101012081.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHand() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function c101012081.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c and c:IsRelateToEffect(e) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,c)
+	end
+end

script/c101012082.lua

+--Scrypton
+--
+--Scrypted by: XGlitchy30
+function c101012082.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012082,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101012082)
+	e1:SetCost(c101012082.spcost)
+	e1:SetTarget(c101012082.sptg)
+	e1:SetOperation(c101012082.spop)
+	c:RegisterEffect(e1)
+	--shuffle
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101012082,1))
+	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetCountLimit(1,101012182)
+	e2:SetCondition(c101012082.tdcon)
+	e2:SetTarget(c101012082.tdtg)
+	e2:SetOperation(c101012082.tdop)
+	c:RegisterEffect(e2)
+end
+function c101012082.cfilter(c)
+	return c:IsRace(RACE_CYBERSE) and c:IsAbleToRemoveAsCost() and not c:IsCode(101012082)
+end
+function c101012082.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101012082.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c101012082.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+	end
+end
+function c101012082.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 c101012082.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c and c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c101012082.tdcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_LINK and c:GetReasonCard():IsRace(RACE_CYBERSE)
+end
+function c101012082.tdfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
+end
+function c101012082.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c101012082.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c101012082.tdfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c101012082.tdfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c101012082.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
+	end
+end

script/c101012083.lua

+--Taotie Dragon
+--
+--Script by JoyJ
+function c101012083.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,c101012083.matfilter,2)
+	--effect gain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(c101012083.regcon)
+	e1:SetOperation(c101012083.regop)
+	c:RegisterEffect(e1)
+end
+function c101012083.matfilter(c)
+	return c:GetSummonLocation()==LOCATION_EXTRA
+end
+function c101012083.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c101012083.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:GetMaterial():FilterCount(Card.IsLinkType,nil,TYPE_FUSION)>0 then
+		--activate limit - fusion -> monster
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetTargetRange(0,1)
+		e1:SetCondition(c101012083.condition1)
+		e1:SetValue(c101012083.aclimit1)
+		c:RegisterEffect(e1)
+		c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101012083,0))
+	end
+	if c:GetMaterial():FilterCount(Card.IsLinkType,nil,TYPE_SYNCHRO)>0 then
+		--activate limit - synchro -> spell/trap
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD)
+		e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e2:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e2:SetRange(LOCATION_MZONE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e2:SetTargetRange(0,1)
+		e2:SetCondition(c101012083.condition2)
+		e2:SetValue(c101012083.aclimit2)
+		c:RegisterEffect(e2)
+		c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101012083,1))
+	end
+	if c:GetMaterial():FilterCount(Card.IsLinkType,nil,TYPE_XYZ)>0 then
+		--activate limit - XYZ -> grave
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD)
+		e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e3:SetRange(LOCATION_MZONE)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e3:SetTargetRange(0,1)
+		e3:SetCondition(c101012083.condition3)
+		e3:SetValue(c101012083.aclimit3)
+		c:RegisterEffect(e3)
+		c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101012083,2))
+	end
+end
+function c101012083.condition1(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c101012083.aclimit1(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER)
+end
+function c101012083.condition2(e)
+	local ph=Duel.GetCurrentPhase()
+	return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and Duel.GetTurnPlayer()==e:GetControler()
+end
+function c101012083.aclimit2(e,re,tp)
+	return re:IsActiveType(TYPE_SPELL) or re:IsActiveType(TYPE_TRAP)
+end
+function c101012083.condition3(e)
+	local ph=Duel.GetCurrentPhase()
+	return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)) and Duel.GetTurnPlayer()==e:GetControler()
+end
+function c101012083.aclimit3(e,re,tp)
+	return re:GetHandler():IsLocation(LOCATION_GRAVE)
+end

script/c101012084.lua

+--Necroquip Prism
+--
+--Script by JoyJ
+function c101012084.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_EQUIP)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,101012084)
+	e1:SetTarget(c101012084.target)
+	e1:SetOperation(c101012084.activate)
+	c:RegisterEffect(e1)
+end
+function c101012084.spfilter(c,e,tp,lv)
+	return c:IsType(TYPE_MONSTER) and c:IsLevelBelow(lv) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101012084.filter(c,e,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsLevelBelow(4)
+		and Duel.IsExistingMatchingCard(c101012084.spfilter,tp,LOCATION_HAND,0,1,nil,c:GetLevel(),e,tp)
+		and (not c:IsForbidden())
+end
+function c101012084.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp)
+		and chkc:IsType(TYPE_MONSTER) and chkc:IsLevelBelow(4) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and (Duel.GetLocationCount(tp,LOCATION_SZONE)>1
+			or e:GetHandler():IsLocation(LOCATION_SZONE) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0)
+		and Duel.IsExistingTarget(c101012084.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,c101012084.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
+end
+function c101012084.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) then return end
+	local lv=tc:GetLevel()
+	local atk=tc:GetAttack()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sc=Duel.SelectMatchingCard(tp,c101012084.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp,lv):GetFirst()
+	if sc and Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+		and (not tc:IsForbidden())
+		and Duel.Equip(tp,tc,sc) then
+		if atk>0 then
+			local e1=Effect.CreateEffect(tc)
+			e1:SetType(EFFECT_TYPE_EQUIP)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetValue(math.ceil(atk/2))
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+		end
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_FIELD)
+		e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e2:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e2:SetTargetRange(1,0)
+		e2:SetValue(c101012084.aclimit)
+		e2:SetLabel(tc:GetCode())
+		e2:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e2,tp)
+		--equip limit
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e3:SetCode(EFFECT_EQUIP_LIMIT)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e3:SetLabelObject(sc)
+		e3:SetValue(c101012084.eqlimit)
+		tc:RegisterEffect(e3)
+	end
+end
+function c101012084.aclimit(e,re,tp)
+	return re:GetHandler():IsCode(e:GetLabel())
+end
+function c101012084.eqlimit(e,c)
+	return c==e:GetLabelObject()
+end

script/c101012085.lua

+--Bluebeard, the Plunder Patroll Shipwright
+--
+--Script by JoyJ
+function c101012085.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012085,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101012085)
+	e1:SetCondition(c101012085.spcon)
+	e1:SetTarget(c101012085.sptg)
+	e1:SetOperation(c101012085.spop)
+	c:RegisterEffect(e1)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101012085,1))
+	e2:SetCategory(CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCountLimit(1,101012085+100)
+	e2:SetCondition(c101012085.drcon)
+	e2:SetCost(c101012085.drcost)
+	e2:SetTarget(c101012085.drtg)
+	e2:SetOperation(c101012085.drop)
+	c:RegisterEffect(e2)
+end
+function c101012085.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x13f) and not c:IsCode(101012085)
+end
+function c101012085.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101012085.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c101012085.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 c101012085.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)
+end
+function c101012085.drcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) or c:IsPreviousLocation(LOCATION_HAND)
+end
+function c101012085.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function c101012085.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 c101012085.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

script/c101012086.lua

+--Goldenhair, the Newest Plunder Patroll
+--
+--Script by JoyJ
+function c101012086.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012086,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101012086)
+	e1:SetCost(c101012086.spcost)
+	e1:SetTarget(c101012086.sptg)
+	e1:SetOperation(c101012086.spop)
+	c:RegisterEffect(e1)
+	--special summon from grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(33420078,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,101012086+100)
+	e2:SetCost(c101012086.cost)
+	e2:SetTarget(c101012086.target)
+	e2:SetOperation(c101012086.operation)
+	c:RegisterEffect(e2)
+end
+function c101012086.cfilter(c,tp)
+	return c:IsAbleToGraveAsCost() and c:IsSetCard(0x13f) and Duel.GetMZoneCount(tp,c)>0
+end
+function c101012086.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101012086.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,e:GetHandler(),tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c101012086.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,1,e:GetHandler(),tp)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c101012086.sptg(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 c101012086.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)
+end
+function c101012086.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function c101012086.target(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 c101012086.operation(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
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c101012086.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c101012086.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsSetCard(0x13f)
+end

script/c101012087.lua

+--Plunder Patrollship Lys
+--
+--Script by JoyJ
+function c101012087.initial_effect(c)
+	--fusion summon
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0x13f),2,true)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012087,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_MAIN_END)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,101012087)
+	e1:SetCondition(c101012087.spcon)
+	e1:SetTarget(c101012087.sptg)
+	e1:SetOperation(c101012087.spop)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(27346636,0))
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,101012087+100)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetCondition(c101012087.discon)
+	e2:SetCost(c101012087.discost)
+	e2:SetTarget(c101012087.distg)
+	e2:SetOperation(c101012087.disop)
+	c:RegisterEffect(e2)
+end
+function c101012087.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
+end
+function c101012087.spfilter(c,e,tp)
+	return c:IsSetCard(0x13f) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101012087.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101012087.spfilter,tp,LOCATION_SZONE+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_SZONE+LOCATION_HAND)
+end
+function c101012087.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.SelectMatchingCard(tp,c101012087.spfilter,tp,LOCATION_SZONE+LOCATION_HAND,0,1,1,nil,e,tp):GetFirst()
+	Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+end
+function c101012087.discon(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp==1-tp
+		and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+end
+function c101012087.discfilter(c)
+	return c:IsDiscardable() and c:IsSetCard(0x13f)
+end
+function c101012087.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101012087.discfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c101012087.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c101012087.thfilter(c)
+	return c:IsSetCard(0x13f) and c:IsAbleToHand()
+end
+function c101012087.disop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsFaceup() or not c:IsRelateToEffect(e) then return end
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re)
+		and Duel.Destroy(eg,REASON_EFFECT)>0
+		and c:GetEquipGroup()
+		and c:GetEquipGroup():IsExists(Card.IsSetCard,1,nil,0x13f)
+		and Duel.IsExistingMatchingCard(c101012087.thfilter,tp,LOCATION_DECK,0,1,nil)
+		and Duel.SelectYesNo(tp,aux.Stringid(101012087,2)) then
+		local g=Duel.SelectMatchingCard(tp,c101012087.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c101012088.lua

+--Plunder Patroll Shipshape Ships Shipping
+--
+--Script by JoyJ
+function c101012088.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012088,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c101012088.target)
+	e1:SetOperation(c101012088.activate)
+	c:RegisterEffect(e1)
+	--equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101012088,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,101012088)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c101012088.eqtg)
+	e2:SetOperation(c101012088.eqop)
+	c:RegisterEffect(e2)
+end
+function c101012088.filter1(c,e)
+	return not c:IsImmuneToEffect(e)
+end
+function c101012088.filter2(c,e,tp,m,f,chkf)
+	return c:IsType(TYPE_FUSION) and c:IsRace(RACE_FIEND) and (not f or f(c))
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
+end
+function c101012088.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local chkf=tp
+		local mg1=Duel.GetFusionMaterial(tp)
+		local res=Duel.IsExistingMatchingCard(c101012088.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
+		if not res then
+			local ce=Duel.GetChainMaterial(tp)
+			if ce~=nil then
+				local fgroup=ce:GetTarget()
+				local mg2=fgroup(ce,e,tp)
+				local mf=ce:GetValue()
+				res=Duel.IsExistingMatchingCard(c101012088.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
+			end
+		end
+		return res
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c101012088.activate(e,tp,eg,ep,ev,re,r,rp)
+	local chkf=tp
+	local mg1=Duel.GetFusionMaterial(tp):Filter(c101012088.filter1,nil,e)
+	local sg1=Duel.GetMatchingGroup(c101012088.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local mg2=nil
+	local sg2=nil
+	local ce=Duel.GetChainMaterial(tp)
+	if ce~=nil then
+		local fgroup=ce:GetTarget()
+		mg2=fgroup(ce,e,tp)
+		local mf=ce:GetValue()
+		sg2=Duel.GetMatchingGroup(c101012088.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
+	end
+	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
+		local sg=sg1:Clone()
+		if sg2 then sg:Merge(sg2) end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=sg:Select(tp,1,1,nil)
+		local tc=tg:GetFirst()
+		if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
+			local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
+			tc:SetMaterial(mat1)
+			Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
+			Duel.BreakEffect()
+			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		else
+			local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
+			local fop=ce:GetOperation()
+			fop(ce,e,tp,tc,mat2,SUMMON_TYPE_FUSION)
+		end
+		tc:CompleteProcedure()
+	end
+end
+function c101012088.eqfilter(c)
+	return ((c:IsType(TYPE_MONSTER) and c:IsSetCard(0x13f)) or c:IsCode(101012089)) and (not c:IsForbidden())
+end
+function c101012088.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x13f)
+end
+function c101012088.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c101012088.cfilter(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c101012088.cfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c101012088.cfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_DECK)
+end
+function c101012088.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<1 then return end
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+		local g=Duel.SelectMatchingCard(tp,c101012088.eqfilter,tp,LOCATION_DECK,0,1,1,nil)
+		local sc=g:GetFirst()
+		if not Duel.Equip(tp,sc,tc) then return end
+		--equip limit
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetLabelObject(tc)
+		e1:SetValue(c101012088.eqlimit)
+		sc:RegisterEffect(e1)
+	end
+end
+function c101012088.eqlimit(e,c)
+	return c==e:GetLabelObject()
+end

script/c101012089.lua

+--Emblem of the Plunder Patroll
+--
+--Script by JoyJ
+function c101012089.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CONTINUOUS_TARGET)
+	e1:SetTarget(c101012089.target)
+	e1:SetOperation(c101012089.operation)
+	c:RegisterEffect(e1)
+	--Equip limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_EQUIP_LIMIT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetValue(c101012089.eqlimit)
+	c:RegisterEffect(e2)
+	--Atk up
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_EQUIP)
+	e3:SetCode(EFFECT_UPDATE_ATTACK)
+	e3:SetValue(500)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e4:SetValue(aux.tgoval)
+	c:RegisterEffect(e4)
+	--spsummon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(101012089,1))
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetCountLimit(1,101012089)
+	e5:SetCost(c101012089.spcost)
+	e5:SetTarget(c101012089.sptg)
+	e5:SetOperation(c101012089.spop)
+	c:RegisterEffect(e5)
+end
+function c101012089.eqfilter1(c)
+	return c:IsFaceup() and c:IsSetCard(0x13f)
+end
+function c101012089.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c101012089.eqfilter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c101012089.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,c101012089.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function c101012089.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() and c:CheckUniqueOnField(tp) then
+		Duel.Equip(tp,c,tc)
+	end
+end
+function c101012089.eqlimit(e,c)
+	return c:IsSetCard(0x13f)
+end
+function c101012089.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	e:SetLabelObject(e:GetHandler():GetEquipTarget())
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c101012089.spfilter(c,e,tp)
+	return c:IsSetCard(0x13f)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+		and Duel.IsExistingMatchingCard(Card.IsAttribute,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,nil,c:GetAttribute())
+end
+function c101012089.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101012089.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetTargetCard(e:GetLabelObject())
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c101012089.spop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tc=Duel.SelectMatchingCard(tp,c101012089.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp):GetFirst()
+	if not tc then return end
+	Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	local ec=e:GetLabelObject()
+	if not ec:IsRelateToEffect(e) then return end
+	Duel.BreakEffect()
+	Duel.Equip(tp,ec,tc)
+	--Atk up
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_EQUIP)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e1:SetValue(500)
+	ec:RegisterEffect(e1)
+	--equip limit
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetCode(EFFECT_EQUIP_LIMIT)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e2:SetLabelObject(tc)
+	e2:SetValue(c101012089.eqlimit2)
+	ec:RegisterEffect(e2)
+end
+function c101012089.eqlimit2(e,c)
+	return c==e:GetLabelObject()
+end

script/c101012090.lua

+--Pride of the Plunder Patroll
+--
+--Script by JoyJ
+function c101012090.initial_effect(c)
+	--activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101012090,0))
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_BATTLE_DESTROYING)
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1,101012090)
+	e1:SetCondition(c101012090.drcon)
+	e1:SetTarget(c101012090.drtg)
+	e1:SetOperation(c101012090.drop)
+	c:RegisterEffect(e1)
+	--hand to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101012090,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,101012090+100)
+	e2:SetCondition(c101012090.tgcond)
+	e2:SetCost(c101012090.tgcost)
+	e2:SetTarget(c101012090.tgtg)
+	e2:SetOperation(c101012090.tgop)
+	c:RegisterEffect(e2)
+	--extra to grave
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(101012090,2))
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCategory(CATEGORY_TOGRAVE)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,101012090+100)
+	e3:SetCondition(c101012090.tgcond)
+	e3:SetCost(c101012090.tgcost)
+	e3:SetTarget(c101012090.tgtg2)
+	e3:SetOperation(c101012090.tgop2)
+	c:RegisterEffect(e3)
+end
+function c101012090.drcon(e,tp,eg,ep,ev,re,r,rp)
+	local rc=eg:GetFirst()
+	return rc:IsRelateToBattle() and rc:IsStatus(STATUS_OPPO_BATTLE)
+		and rc:IsFaceup() and rc:IsSetCard(0x13f) and rc:IsControler(tp)
+end
+function c101012090.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 c101012090.drop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect() then return end
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end
+function c101012090.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x13f)
+end
+function c101012090.tgcond(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101012090.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c101012090.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c101012090.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(1-tp,1) end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,1,1-tp,1)
+	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,1,1-tp,1)
+end
+function c101012090.tgfilter1(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function c101012090.tgop(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)
+	Duel.BreakEffect()
+	local g=Duel.GetFieldGroup(p,LOCATION_HAND,0)
+	if g:GetCount()>0 then
+		Duel.ConfirmCards(1-p,g)
+		Duel.Hint(HINT_SELECTMSG,1-p,HINTMSG_DISCARD)
+		local sg=g:Filter(c101012090.tgfilter1,nil)
+		sg=g:Select(1-p,1,1,nil)
+		Duel.SendtoGrave(sg,REASON_EFFECT)
+		Duel.ShuffleHand(p)
+	end
+end
+function c101012090.tgtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,1-tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_EXTRA)
+end
+function c101012090.tgop2(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
+	Duel.ConfirmCards(tp,tg)
+	tg=tg:Filter(Card.IsAbleToGrave,nil)
+	local tc=tg:Select(tp,1,1,nil):GetFirst()
+	if tc then
+		Duel.SendtoGrave(tc,REASON_EFFECT)
+	end
+end

script/c101012091.lua

+--Plunder Patroll Parrrty
+--
+--Script by JoyJ
+function c101012091.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,101012091)
+	e1:SetCondition(c101012091.condition)
+	e1:SetTarget(c101012091.target)
+	e1:SetOperation(c101012091.activate)
+	c:RegisterEffect(e1)
+	--equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101012091,1))
+	e2:SetCountLimit(1,101012091+EFFECT_COUNT_CODE_DUEL)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCategory(CATEGORY_LEAVE_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,101012091+100+EFFECT_COUNT_CODE_DUEL)
+	e2:SetCondition(c101012091.eqcon)
+	e2:SetTarget(c101012091.eqtg)
+	e2:SetOperation(c101012091.eqop)
+	c:RegisterEffect(e2)
+end
+function c101012091.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x13f)
+end
+function c101012091.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101012091.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c101012091.drfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_EQUIP)
+end
+function c101012091.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local i=Duel.GetMatchingGroupCount(c101012091.drfilter,tp,LOCATION_ONFIELD,0,nil)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,i+1) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(i+1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,i+1)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,tp,i)
+end
+function c101012091.activate(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	local i=Duel.GetMatchingGroupCount(c101012091.drfilter,p,LOCATION_ONFIELD,0,nil)
+	if Duel.Draw(p,i+1,REASON_EFFECT)==0 then return end
+	Duel.ShuffleHand(tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,i,i,nil)
+	if i>0 then
+		Duel.BreakEffect()
+		if g:GetCount()>0 then
+			Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+		end
+	end
+end
+function c101012091.cfilter(c,tp)
+	return c:GetSummonLocation()==LOCATION_EXTRA and c:GetPreviousControler()==tp
+		and c:GetControler()==tp and c:IsSetCard(0x13f) and c:IsFaceup()
+end
+function c101012091.eqcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c101012091.cfilter,1,nil,tp)
+end
+function c101012091.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+function c101012091.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<1 then return end
+	local g=eg:Filter(c101012091.cfilter,nil,tp)
+	local tc
+	if #g==1 then
+		tc=g:GetFirst()
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+		tc=g:Select(tp,1,1,nil):GetFirst()
+	end
+	if tc and Duel.Equip(tp,c,tc) then
+		--Add Equip limit
+		local e1=Effect.CreateEffect(tc)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(c101012091.eqlimit)
+		c:RegisterEffect(e1)
+		--Atk up
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_EQUIP)
+		e2:SetCode(EFFECT_UPDATE_ATTACK)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e2:SetValue(500)
+		c:RegisterEffect(e2)
+	end
+end
+function c101012091.eqlimit(e,c)
+	return e:GetOwner()==c
+end

script/c101101030.lua

+--コアキメイル・サプライヤー
+--
+--Script by JoyJ
+function c101101030.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101101030,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101101030)
+	e1:SetCondition(c101101030.spcon)
+	e1:SetTarget(c101101030.sptg)
+	e1:SetOperation(c101101030.spop)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101101030,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,101101030+100)
+	e2:SetTarget(c101101030.thtg)
+	e2:SetOperation(c101101030.tgop)
+	c:RegisterEffect(e2)
+end
+function c101101030.spfilter(c)
+	return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP)
+		and (c:GetPreviousRaceOnField()&RACE_ROCK)>0
+end
+function c101101030.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c101101030.spfilter,1,nil)
+end
+function c101101030.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 c101101030.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 c101101030.thfilter(c)
+	return (not c:IsCode(101101030)) and (aux.IsCodeListed(c,36623431) or c:IsCode(36623431))
+end
+function c101101030.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101101030.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c101101030.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c101101030.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

script/c101101032.lua

+--機巧辰－高闇御津羽靇
+--
+--Scripted by: shizuru
+function c101101032.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,101101032)
+	e1:SetCondition(c101101032.spcon)
+	e1:SetTarget(c101101032.sptg)
+	e1:SetOperation(c101101032.spop)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101101032,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCost(c101101032.descost)
+	e2:SetTarget(c101101032.destg)
+	e2:SetOperation(c101101032.desop)
+	c:RegisterEffect(e2)
+	--recover
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(101101032,2))
+	e3:SetCategory(CATEGORY_REMOVE+CATEGORY_RECOVER)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCountLimit(1,101101032+100)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(c101101032.recon)
+	e3:SetTarget(c101101032.retg)
+	e3:SetOperation(c101101032.reop)
+	c:RegisterEffect(e3)
+end
+function c101101032.spfilter(c)
+	return c:GetSummonLocation()==LOCATION_EXTRA
+end
+function c101101032.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101101032.spfilter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil)
+end
+function c101101032.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 c101101032.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)
+end
+function c101101032.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1500) end
+	Duel.PayLPCost(tp,1500)
+end
+function c101101032.desfilter(c)
+	return c:GetSummonLocation()==LOCATION_EXTRA
+end
+function c101101032.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101101032.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	local sg=Duel.GetMatchingGroup(c101101032.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
+end
+function c101101032.desop(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(c101101032.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.Destroy(sg,REASON_EFFECT)
+	local c=e:GetHandler()
+	--check
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetOperation(c101101032.checkop)
+	Duel.RegisterEffect(e1,tp)
+	--cannot announce
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	e2:SetCondition(c101101032.atkcon)
+	e2:SetTarget(c101101032.atktg)
+	e1:SetLabelObject(e2)
+	Duel.RegisterEffect(e2,tp)
+end
+function c101101032.checkop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFlagEffect(tp,101101032)~=0 then return end
+	local fid=eg:GetFirst():GetFieldID()
+	Duel.RegisterFlagEffect(tp,101101032,RESET_PHASE+PHASE_END,0,1)
+	e:GetLabelObject():SetLabel(fid)
+end
+function c101101032.atkcon(e)
+	return Duel.GetFlagEffect(e:GetHandlerPlayer(),101101032)>0
+end
+function c101101032.atktg(e,c)
+	return c:GetFieldID()~=e:GetLabel()
+end
+function c101101032.recon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return rp==1-tp and c:GetPreviousControler()==tp
+end
+function c101101032.filter(c)
+	return c:IsAbleToRemove() and c:IsType(TYPE_MONSTER)
+end
+function c101101032.retg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101101032.filter,tp,0,LOCATION_GRAVE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,LOCATION_GRAVE)
+end
+function c101101032.reop(e,tp,eg,ep,ev,re,r,rp,chk)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local tc=Duel.SelectMatchingCard(tp,c101101032.filter,tp,0,LOCATION_GRAVE,1,1,nil):GetFirst()
+	if not tc then return end
+	local atk=tc:GetTextAttack()
+	if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 and atk>0 then
+		Duel.BreakEffect()
+		Duel.Recover(tp,atk,REASON_EFFECT)
+	end
+end

script/c101101034.lua

+--レッドポータン
+--
+--Scripted by:零界
+function c101101034.initial_effect(c)
+	--tuner
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,101101034)
+	e1:SetTarget(c101101034.chtg)
+	e1:SetOperation(c101101034.chop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,101101034+100)
+	e2:SetCondition(c101101034.spcon)
+	e2:SetTarget(c101101034.sptg)
+	e2:SetOperation(c101101034.spop)
+	c:RegisterEffect(e2)
+end
+function c101101034.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x250) and not c:IsType(TYPE_TUNER)
+end
+function c101101034.chtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c101101034.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c101101034.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c101101034.filter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c101101034.chop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) then return end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_ADD_TYPE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetValue(TYPE_TUNER)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
+	tc:RegisterEffect(e1)
+end
+function c101101034.confil(c,tp)
+	return (c:GetSummonPlayer()==tp or c:GetSummonPlayer()==1-tp) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c101101034.spfilter(c,e,tp)
+	return c:IsSetCard(0x250) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101101034.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c101101034.confil,1,nil,tp)
+end
+function c101101034.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c101101034.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function c101101034.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c101101034.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c101101035.lua

+--龍狸燈
+--
+--Script by JoyJ
+function c101101035.initial_effect(c)
+	--atkup
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101101035,0))
+	e1:SetCategory(CATEGORY_DEFCHANGE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCost(c101101035.defcost)
+	e1:SetOperation(c101101035.defop)
+	c:RegisterEffect(e1)
+	--atk up
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c101101035.atkcon)
+	e2:SetOperation(c101101035.atkop)
+	c:RegisterEffect(e2)
+end
+function c101101035.defcostfilter(c)
+	return c:IsDiscardable() and c:IsRace(RACE_WYRM)
+end
+function c101101035.defcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101101035.defcostfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,c101101035.defcostfilter,1,1,REASON_COST+REASON_DISCARD)
+end
+function c101101035.defop(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:SetCode(EFFECT_UPDATE_DEFENSE)
+		e1:SetValue(1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+	end
+end
+function c101101035.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ac=Duel.GetAttacker()
+	local bc=Duel.GetAttackTarget()
+	return bc and (ac==c or bc==c)
+		and ac:IsPosition(POS_ATTACK)
+		and bc:IsPosition(POS_ATTACK)
+end
+function c101101035.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local a=Duel.GetAttacker()
+	local d=Duel.GetAttackTarget()
+	if a:IsRelateToBattle() and d and d:IsRelateToBattle() then
+		local ea=Effect.CreateEffect(c)
+		ea:SetType(EFFECT_TYPE_SINGLE)
+		if EFFECT_SET_BATTLE_ATTACK then
+			ea:SetCode(EFFECT_SET_BATTLE_ATTACK)
+		else
+			ea:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
+			ea:SetCode(EFFECT_SET_ATTACK_FINAL)	
+			ea:SetRange(LOCATION_MZONE)
+		end
+		ea:SetReset(RESET_PHASE+PHASE_DAMAGE)
+		ea:SetValue(a:GetDefense())
+		a:RegisterEffect(ea,true)
+		local ed=Effect.CreateEffect(c)
+		ed:SetType(EFFECT_TYPE_SINGLE)
+		if EFFECT_SET_BATTLE_ATTACK then
+			ed:SetCode(EFFECT_SET_BATTLE_ATTACK)
+		else
+			ed:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
+			ed:SetCode(EFFECT_SET_ATTACK_FINAL)
+			ed:SetRange(LOCATION_MZONE)
+		end
+		ed:SetReset(RESET_PHASE+PHASE_DAMAGE)
+		ed:SetValue(d:GetDefense())
+		d:RegisterEffect(ed,true)
+	end
+end

script/c101101047.lua

+--旋壊のヴェスペネイト
+--
+--Script by JoyJ
+function c101101047.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,5,2,c101101047.ovfilter,aux.Stringid(101101047,0),2,c101101047.xyzop)
+	c:EnableReviveLimit()
+	--can not be xyz material
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
+	e1:SetCondition(c101101047.xyzcon)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--pierce
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_PIERCE)
+	c:RegisterEffect(e2)
+	--SpecialSummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetCountLimit(1,101101047)
+	e3:SetCondition(c101101047.spcon)
+	e3:SetTarget(c101101047.sptg)
+	e3:SetOperation(c101101047.spop)
+	c:RegisterEffect(e3)
+end
+function c101101047.ovfilter(c)
+	return c:IsFaceup() and c:IsRank(4)
+end
+function c101101047.xyzop(e,tp,chk)
+	if chk==0 then return Duel.GetFlagEffect(tp,101101047)==0 end
+	Duel.RegisterFlagEffect(tp,101101047,RESET_PHASE+PHASE_END,0,1)
+end
+function c101101047.xyzcon(e)
+	local c=e:GetHandler()
+	return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsSummonType(SUMMON_TYPE_XYZ)
+end
+function c101101047.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return rp==1-tp and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_XYZ)
+end
+function c101101047.spfilter(c,e,tp)
+	return c:IsLevelBelow(5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c101101047.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingTarget(c101101047.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c101101047.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE)
+end
+function c101101047.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetMZoneCount(tp)<1 then return end
+	local c=Duel.GetFirstTarget()
+	if c and c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c101101067.lua

+--賽挑戦
+--
+--Script by JoyJ
+function c101101067.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCountLimit(1,101101067)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c101101067.target)
+	e1:SetOperation(c101101067.activate)
+	c:RegisterEffect(e1)
+	--remain field
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+end
+c101101067.toss_dice=true
+function c101101067.filter(c)
+	return c.toss_dice and c:IsAbleToHand()
+end
+function c101101067.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,0,tp,LOCATION_DECK)
+end
+function c101101067.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dice1=Duel.TossDice(tp,1)
+	if (dice1==1 or dice1==6) then
+		local tc=Duel.SelectMatchingCard(tp,c101101067.filter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+		if tc then
+			Duel.SendtoHand(tc,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tc)
+		end
+		return
+	end
+	c:CancelToGrave()
+	local dice2=Duel.TossDice(tp,1)
+	if (dice2==1 or dice2==6) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		return
+	end
+	Duel.SendtoDeck(c,nil,0,REASON_EFFECT)
+end

script/c101101080.lua

+--ジャンクスリープ
+--
+--Scripted by:零界
+function c101101080.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--turn faceup
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(101101080,0))
+	e2:SetCategory(CATEGORY_POSITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,101101080)
+	e2:SetCondition(c101101080.chcon)
+	e2:SetTarget(c101101080.chtg)
+	e2:SetOperation(c101101080.chop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--turn facedown
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(101101080,1))
+	e4:SetCategory(CATEGORY_POSITION)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_PHASE+PHASE_END)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCountLimit(1,101101080+100)
+	e4:SetTarget(c101101080.chtg2)
+	e4:SetOperation(c101101080.chop2)
+	c:RegisterEffect(e4)
+end
+function c101101080.filter(c,tp)
+	return c:GetSummonPlayer()==1-tp
+end
+function c101101080.chcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c101101080.filter,1,nil,tp)
+end
+function c101101080.chfilter(c)
+	return c:IsFacedown() and c:IsCanChangePosition()
+end
+function c101101080.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c101101080.chfilter,tp,LOCATION_MZONE,0,1,nil) end
+	local g=Duel.GetMatchingGroup(c101101080.chfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c101101080.chop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c101101080.chfilter,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()>0 then
+		Duel.ChangePosition(g,POS_FACEUP_ATTACK)
+	end
+end
+function c101101080.chtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsCanTurnSet,tp,LOCATION_MZONE,0,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c101101080.chop2(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()>0 then
+		Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
+	end
+end

script/c10960419.lua

+--タイムマジック・ハンマー
+function c10960419.initial_effect(c)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	c:RegisterEffect(e1)
+	--equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetTarget(c10960419.eqtg)
+	e2:SetOperation(c10960419.eqop)
+	c:RegisterEffect(e2)
+end
+c10960419.material_race=RACE_SPELLCASTER
+c10960419.toss_dice=true
+function c10960419.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc~=e:GetHandler() end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
+end
+function c10960419.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc then return end
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:IsLocation(LOCATION_SZONE) or c:IsFacedown() then return end
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) then
+		Duel.SendtoGrave(c,REASON_EFFECT)
+		return
+	end
+	Duel.Equip(tp,c,tc)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_EQUIP_LIMIT)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetValue(c10960419.eqlimit)
+	e1:SetLabelObject(tc)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:RegisterEffect(e1)
+	--remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_DICE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_BATTLE_START)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCondition(c10960419.rmcon)
+	e2:SetTarget(c10960419.rmtg)
+	e2:SetOperation(c10960419.rmop)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:RegisterEffect(e2)
+end
+function c10960419.eqlimit(e,c)
+	return c==e:GetLabelObject()
+end
+function c10960419.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetEquipTarget()
+end
+function c10960419.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ec=e:GetHandler():GetEquipTarget()
+	local tc=ec:GetBattleTarget()
+	if chk==0 then return tc and tc:IsAbleToRemove() end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,tc,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c10960419.rmop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local ec=e:GetHandler():GetEquipTarget()
+	local tc=ec:GetBattleTarget()
+	if tc:IsRelateToBattle() then
+		local ct=Duel.TossDice(tp,1)
+		if Duel.Remove(tc,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then
+			tc:SetTurnCounter(0)
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+			e1:SetReset(RESET_PHASE+PHASE_STANDBY,ct)
+			e1:SetLabel(ct)
+			e1:SetLabelObject(tc)
+			e1:SetCountLimit(1)
+			e1:SetCondition(c10960419.turncon)
+			e1:SetOperation(c10960419.turnop)
+			Duel.RegisterEffect(e1,tp)
+			local e2=e1:Clone()
+			e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+			e2:SetCondition(c10960419.retcon)
+			e2:SetOperation(c10960419.retop)
+			Duel.RegisterEffect(e2,tp)
+			tc:RegisterFlagEffect(1082946,RESET_PHASE+PHASE_STANDBY,0,ct)
+			local mt=_G["c"..tc:GetCode()]
+			mt[tc]=e1
+		end
+	end
+end
+function c10960419.turncon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	return tc:GetFlagEffect(1082946)~=0
+end
+function c10960419.turnop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	local ct=tc:GetTurnCounter()
+	ct=ct+1
+	tc:SetTurnCounter(ct)
+	if ct>e:GetLabel() then
+		tc:ResetFlagEffect(1082946)
+		e:Reset()
+	end
+end
+function c10960419.retcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	local ct=tc:GetTurnCounter()
+	if ct==e:GetLabel() then
+		return true
+	end
+	if ct>e:GetLabel() then
+		e:Reset()
+	end
+	return false
+end
+function c10960419.retop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.ReturnToField(tc)
+end

script/c11596936.lua

+--レクリスパワー
+function c11596936.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetCost(c11596936.cost)
+	e1:SetTarget(c11596936.target)
+	e1:SetOperation(c11596936.activate)
+	c:RegisterEffect(e1)
+end
+function c11596936.cfilter(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c11596936.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11596936.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c11596936.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c11596936.filter(c)
+	return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c11596936.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11596936.filter,tp,0,LOCATION_ONFIELD,1,nil) end
+	local sg=Duel.GetMatchingGroup(c11596936.filter,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
+end
+function c11596936.activate(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(c11596936.filter,tp,0,LOCATION_ONFIELD,aux.ExceptThisCard(e))
+	Duel.Destroy(sg,REASON_EFFECT)
+end

script/c12216615.lua

+--コアキメイルの障壁
+function c12216615.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCondition(c12216615.condition)
+	e1:SetTarget(c12216615.target)
+	e1:SetOperation(c12216615.activate)
+	c:RegisterEffect(e1)
+end
+function c12216615.condition(e,tp,eg,ep,ev,re,r,rp)
+	return tp~=Duel.GetTurnPlayer() and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,2,nil,36623431)
+end
+function c12216615.filter(c)
+	return c:IsPosition(POS_FACEUP_ATTACK)
+end
+function c12216615.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c12216615.filter,tp,0,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(c12216615.filter,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c12216615.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c12216615.filter,tp,0,LOCATION_MZONE,nil)
+	if g:GetCount()>0 then
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end

script/c12435193.lua

+--コアキメイル・ドラゴ
+function c12435193.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c12435193.mtcon)
+	e1:SetOperation(c12435193.mtop)
+	c:RegisterEffect(e1)
+	--disable spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,1)
+	e2:SetTarget(c12435193.disspsum)
+	c:RegisterEffect(e2)
+end
+function c12435193.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c12435193.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c12435193.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_DRAGON) and not c:IsPublic()
+end
+function c12435193.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c12435193.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c12435193.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(12435193,0),aux.Stringid(12435193,1),aux.Stringid(12435193,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(12435193,0),aux.Stringid(12435193,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(12435193,1),aux.Stringid(12435193,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(12435193,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c12435193.disspsum(e,c)
+	return c:IsAttribute(ATTRIBUTE_DARK+ATTRIBUTE_LIGHT)
+end

script/c126218.lua

+--悪魔のサイコロ
+function c126218.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(TIMING_DAMAGE_STEP)
+	e1:SetCondition(aux.dscon)
+	e1:SetTarget(c126218.target)
+	e1:SetOperation(c126218.activate)
+	c:RegisterEffect(e1)
+end
+c126218.toss_dice=true
+function c126218.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
+end
+function c126218.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+	if g:GetCount()>0 then
+		local d=Duel.TossDice(tp,1)*100
+		local sc=g:GetFirst()
+		while sc do
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			e1:SetValue(-d)
+			sc:RegisterEffect(e1)
+			local e2=e1:Clone()
+			e2:SetCode(EFFECT_UPDATE_DEFENSE)
+			sc:RegisterEffect(e2)
+			sc=g:GetNext()
+		end
+	end
+end
\ No newline at end of file

script/c13997673.lua

+--コア濃度圧縮
+function c13997673.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c13997673.cost)
+	e1:SetTarget(c13997673.target)
+	e1:SetOperation(c13997673.activate)
+	c:RegisterEffect(e1)
+end
+function c13997673.cfilter1(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c13997673.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1d) and c:IsDiscardable()
+end
+function c13997673.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c13997673.cfilter1,tp,LOCATION_HAND,0,1,nil)
+		and Duel.IsExistingMatchingCard(c13997673.cfilter2,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g1=Duel.SelectMatchingCard(tp,c13997673.cfilter1,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g1)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	local g2=Duel.SelectMatchingCard(tp,c13997673.cfilter2,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.SendtoGrave(g2,REASON_COST+REASON_DISCARD)
+	Duel.ShuffleHand(tp)
+end
+function c13997673.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(2)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c13997673.activate(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

script/c14309486.lua

+--コアキメイル・オーバードーズ
+function c14309486.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c14309486.mtcon)
+	e1:SetOperation(c14309486.mtop)
+	c:RegisterEffect(e1)
+	--disable spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(14309486,3))
+	e2:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_SUMMON)
+	e2:SetCondition(c14309486.condition)
+	e2:SetCost(c14309486.cost)
+	e2:SetTarget(c14309486.target)
+	e2:SetOperation(c14309486.operation)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_FLIP_SUMMON)
+	c:RegisterEffect(e3)
+	local e4=e2:Clone()
+	e4:SetCode(EVENT_SPSUMMON)
+	c:RegisterEffect(e4)
+end
+function c14309486.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c14309486.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c14309486.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic()
+end
+function c14309486.mtop(e,tp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c14309486.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c14309486.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(14309486,0),aux.Stringid(14309486,1),aux.Stringid(14309486,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(14309486,0),aux.Stringid(14309486,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(14309486,1),aux.Stringid(14309486,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(14309486,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c14309486.condition(e,tp,eg,ep,ev,re,r,rp)
+	return tp~=ep and Duel.GetCurrentChain()==0
+end
+function c14309486.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c14309486.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0)
+end
+function c14309486.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateSummon(eg)
+	Duel.Destroy(eg,REASON_EFFECT)
+end

script/c15521027.lua

+--D・スマホン
+function c15521027.initial_effect(c)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(15521027,0))
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c15521027.spcon)
+	e1:SetOperation(c15521027.spop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(15521027,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c15521027.cona)
+	e2:SetTarget(c15521027.tga)
+	e2:SetOperation(c15521027.opa)
+	c:RegisterEffect(e2)
+	--sort deck
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(15521027,2))
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c15521027.cond)
+	e3:SetTarget(c15521027.tgd)
+	e3:SetOperation(c15521027.opd)
+	c:RegisterEffect(e3)
+end
+c15521027.toss_dice=true
+function c15521027.spfilter(c)
+	return c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
+end
+function c15521027.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c15521027.spfilter,tp,LOCATION_GRAVE,0,1,nil)
+end
+function c15521027.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c15521027.spfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c15521027.cona(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAttackPos()
+end
+function c15521027.tga(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c15521027.filter(c)
+	return c:IsSetCard(0x26) and c:IsAbleToHand()
+end
+function c15521027.opa(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
+	local dc=Duel.TossDice(tp,1)
+	Duel.ConfirmDecktop(tp,dc)
+	local dg=Duel.GetDecktopGroup(tp,dc)
+	local g=dg:Filter(c15521027.filter,nil)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SendtoHand(sg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,sg)
+	end
+	Duel.ShuffleDeck(tp)
+end
+function c15521027.cond(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsDefensePos()
+end
+function c15521027.tgd(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c15521027.opd(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
+	local dc=Duel.TossDice(tp,1)
+	local g=Duel.GetDecktopGroup(tp,dc)
+	local ct=g:GetCount()
+	Duel.ConfirmCards(tp,g)
+	local op=Duel.SelectOption(tp,aux.Stringid(15521027,3),aux.Stringid(15521027,4))
+	Duel.SortDecktop(tp,tp,ct)
+	if op==0 then return end
+	for i=1,ct do
+		local tg=Duel.GetDecktopGroup(tp,1)
+		Duel.MoveSequence(tg:GetFirst(),1)
+	end
+end

script/c15744417.lua

+--ゴッドオーガス
+function c15744417.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(15744417,0))
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_ATKCHANGE+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c15744417.target)
+	e1:SetOperation(c15744417.operation)
+	c:RegisterEffect(e1)
+end
+c15744417.toss_dice=true
+function c15744417.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,3)
+end
+function c15744417.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local d1,d2,d3=Duel.TossDice(tp,3)
+	local atk=(d1+d2+d3)*100
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(atk)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END,2)
+	c:RegisterEffect(e1)
+	local res12=false
+	local res34=false
+	local res56=false
+	if d1==d2 and d2==d3 then
+		res12=true
+		res34=true
+		res56=true
+	elseif (d1==d2 and (d1==1 or d1==2)) or (d1==d3 and (d1==1 or d1==2)) or (d2==d3 and (d2==1 or d2==2)) then
+		res12=true
+	elseif (d1==d2 and (d1==3 or d1==4)) or (d1==d3 and (d1==3 or d1==4)) or (d2==d3 and (d2==3 or d2==4)) then
+		res34=true
+	elseif (d1==d2 and (d1==5 or d1==6)) or (d1==d3 and (d1==5 or d1==6)) or (d2==d3 and (d2==5 or d2==6)) then
+		res56=true
+	end
+	if not res12 and not res34 and not res56 then return end
+	Duel.BreakEffect()
+	if res12 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+		e1:SetValue(1)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
+		c:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+		c:RegisterEffect(e2)
+	end
+	if res34 then
+		Duel.Draw(tp,2,REASON_EFFECT)
+	end
+	if res56 then
+		local e3=Effect.CreateEffect(c)
+		e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_DIRECT_ATTACK)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e3)
+	end
+end

script/c16135253.lua

+--アギド
+function c16135253.initial_effect(c)
+	--dice
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(16135253,0))
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_BATTLE_DESTROYED)
+	e1:SetCondition(c16135253.condition)
+	e1:SetTarget(c16135253.target)
+	e1:SetOperation(c16135253.operation)
+	c:RegisterEffect(e1)
+end
+c16135253.toss_dice=true
+function c16135253.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE)
+end
+function c16135253.filter(c,e,tp,lv)
+	if (lv~=6 and not c:IsLevel(lv) and c:IsLevelAbove(1)) or (lv==6 and c:IsLevelBelow(5)) then return false end
+	return c:IsRace(RACE_FAIRY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c16135253.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c16135253.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local dc=Duel.TossDice(tp,1)
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c16135253.filter),tp,LOCATION_GRAVE,0,nil,e,tp,dc)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(16135253,1)) 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

script/c17530001.lua

+--キューブン
+function c17530001.initial_effect(c)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(17530001,0))
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c17530001.target)
+	e1:SetOperation(c17530001.operation)
+	c:RegisterEffect(e1)
+end
+c17530001.toss_dice=true
+function c17530001.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c17530001.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFacedown() or not c:IsRelateToEffect(e) then return end
+	local dc=Duel.TossDice(tp,1)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_CANNOT_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetTargetRange(1,1)
+	e1:SetTarget(c17530001.tglimit)
+	e1:SetLabel(dc)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	c:RegisterEffect(e2)
+end
+function c17530001.tglimit(e,c)
+	return c:IsLevel(e:GetLabel())
+end

script/c19642889.lua

+--コアキメイル・パワーハンド
+function c19642889.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c19642889.mtcon)
+	e1:SetOperation(c19642889.mtop)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetOperation(c19642889.disop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_BE_BATTLE_TARGET)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_DISABLE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e4:SetTarget(c19642889.distg)
+	c:RegisterEffect(e4)
+	local e5=e4:Clone()
+	e5:SetCode(EFFECT_DISABLE_EFFECT)
+	c:RegisterEffect(e5)
+end
+function c19642889.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c19642889.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c19642889.cfilter2(c)
+	return c:GetType()==TYPE_TRAP and not c:IsPublic()
+end
+function c19642889.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c19642889.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c19642889.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(19642889,0),aux.Stringid(19642889,1),aux.Stringid(19642889,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(19642889,0),aux.Stringid(19642889,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(19642889,1),aux.Stringid(19642889,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(19642889,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c19642889.disop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=c:GetBattleTarget()
+	if tc and tc:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) then
+		tc:RegisterFlagEffect(19642889,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE,0,1)
+	end
+end
+function c19642889.distg(e,c)
+	return c:GetFlagEffect(19642889)~=0
+end

script/c22802010.lua

+--無差別崩壊
+function c22802010.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetTarget(c22802010.target)
+	e1:SetOperation(c22802010.activate)
+	c:RegisterEffect(e1)
+end
+c22802010.toss_dice=true
+function c22802010.filter(c,lv)
+	return c:IsFaceup() and (c:IsLevelBelow(lv) or c:IsRankBelow(lv))
+end
+function c22802010.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22802010.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,11) end
+	local g=Duel.GetMatchingGroup(c22802010.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,1)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,2)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c22802010.activate(e,tp,eg,ep,ev,re,r,rp)
+	local d1,d2=Duel.TossDice(tp,2)
+	local g=Duel.GetMatchingGroup(c22802010.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,d1+d2-1)
+	if g:GetCount()>0 then
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end

script/c30707994.lua

+--マキシマム・シックス
+function c30707994.initial_effect(c)
+	--dice
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(30707994,0))
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCondition(c30707994.condition)
+	e1:SetTarget(c30707994.target)
+	e1:SetOperation(c30707994.operation)
+	c:RegisterEffect(e1)
+end
+c30707994.toss_dice=true
+function c30707994.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
+end
+function c30707994.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c30707994.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		local dice=Duel.TossDice(tp,1)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+		e1:SetValue(dice*200)
+		c:RegisterEffect(e1)
+	end
+end

script/c30770156.lua

+--コア転送ユニット
+function c30770156.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(30770156,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(c30770156.cost)
+	e2:SetTarget(c30770156.target)
+	e2:SetOperation(c30770156.operation)
+	c:RegisterEffect(e2)
+end
+function c30770156.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c30770156.filter(c)
+	return c:IsCode(36623431) and c:IsAbleToHand()
+end
+function c30770156.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c30770156.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c30770156.operation(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c30770156.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c30936186.lua

+--コアキメイル・ウルナイト
+function c30936186.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c30936186.mtcon)
+	e1:SetOperation(c30936186.mtop)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(30936186,3))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(c30936186.spcost)
+	e2:SetTarget(c30936186.sptg)
+	e2:SetOperation(c30936186.spop)
+	c:RegisterEffect(e2)
+end
+function c30936186.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c30936186.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c30936186.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEASTWARRIOR) and not c:IsPublic()
+end
+function c30936186.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c30936186.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c30936186.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(30936186,0),aux.Stringid(30936186,1),aux.Stringid(30936186,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(30936186,0),aux.Stringid(30936186,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(30936186,1),aux.Stringid(30936186,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(30936186,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c30936186.cfilter(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c30936186.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c30936186.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c30936186.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c30936186.spfilter(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsSetCard(0x1d) and c:GetCode()~=30936186 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c30936186.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c30936186.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c30936186.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c30936186.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

script/c31692182.lua

+--コアキメイル・フルバリア
+function c31692182.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(31692182,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c31692182.cost)
+	e1:SetOperation(c31692182.operation)
+	c:RegisterEffect(e1)
+end
+function c31692182.cfilter(c)
+	return c:IsCode(36623431) and c:IsAbleToDeckAsCost()
+end
+function c31692182.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c31692182.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c31692182.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,0,REASON_COST)
+end
+function c31692182.filter(e,c)
+	return c:IsType(TYPE_EFFECT) and not c:IsSetCard(0x1d)
+end
+function c31692182.operation(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e1:SetTarget(c31692182.filter)
+	e1:SetCode(EFFECT_DISABLE)
+	e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN)
+	Duel.RegisterEffect(e1,tp)
+end

script/c31863912.lua

+--出目出し
+function c31863912.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_SPSUMMON)
+	e1:SetTarget(c31863912.target1)
+	e1:SetOperation(c31863912.operation)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(31863912,0))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTarget(c31863912.target2)
+	e2:SetOperation(c31863912.operation)
+	e2:SetLabel(1)
+	c:RegisterEffect(e2)
+end
+c31863912.toss_dice=true
+function c31863912.cfilter(c,sp)
+	return c:IsFaceup() and c:GetSummonPlayer()==sp
+end
+function c31863912.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_SPSUMMON_SUCCESS,true)
+	if res and teg:IsExists(c31863912.cfilter,1,nil,1-tp) then
+		e:SetLabel(1)
+		Duel.SetTargetCard(teg)
+		Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+	else
+		e:SetLabel(0)
+	end
+end
+function c31863912.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(c31863912.cfilter,1,nil,1-tp) end
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c31863912.filter(c,sp,e,lv)
+	return c:IsFaceup() and c:GetSummonPlayer()==sp and c:IsLevel(lv) and c:IsAbleToHand() and c:IsRelateToEffect(e)
+end
+function c31863912.operation(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end
+	local dc=Duel.TossDice(tp,1)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c31863912.filter,nil,1-tp,e,dc)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+end

script/c32015116.lua

+--無差別破壊
+function c32015116.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	c:RegisterEffect(e1)
+	--roll and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(32015116,0))
+	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DICE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1)
+	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e2:SetCondition(c32015116.rdcon)
+	e2:SetTarget(c32015116.rdtg)
+	e2:SetOperation(c32015116.rdop)
+	c:RegisterEffect(e2)
+end
+c32015116.toss_dice=true
+function c32015116.rdcon(e,tp,eg,ep,ev,re,r,rp)
+	return tp==Duel.GetTurnPlayer()
+end
+function c32015116.rdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c32015116.rdfilter(c,lv)
+	if lv<=5 then
+		return c:IsFaceup() and c:IsLevel(lv)
+	elseif lv==6 then
+		return c:IsFaceup() and c:IsLevelAbove(6)
+	else
+		return false
+	end
+end
+function c32015116.rdop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local d1=Duel.TossDice(tp,1)
+	local g=Duel.GetMatchingGroup(c32015116.rdfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,d1)
+	Duel.Destroy(g,REASON_EFFECT)
+end

script/c32314730.lua

+--コアキメイル・クルセイダー
+function c32314730.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c32314730.mtcon)
+	e1:SetOperation(c32314730.mtop)
+	c:RegisterEffect(e1)
+	--salvage
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(32314730,0))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_BATTLE_DESTROYING)
+	e2:SetCondition(c32314730.thcon)
+	e2:SetTarget(c32314730.thtg)
+	e2:SetOperation(c32314730.thop)
+	c:RegisterEffect(e2)
+end
+function c32314730.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c32314730.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c32314730.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEASTWARRIOR) and not c:IsPublic()
+end
+function c32314730.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c32314730.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c32314730.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(32314730,0),aux.Stringid(32314730,1),aux.Stringid(32314730,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(32314730,0),aux.Stringid(32314730,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(32314730,1),aux.Stringid(32314730,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(32314730,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c32314730.thcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsRelateToBattle() and c:GetBattleTarget():IsType(TYPE_MONSTER)
+end
+function c32314730.filter(c)
+	return c:IsSetCard(0x1d) and c:IsAbleToHand()
+end
+function c32314730.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c32314730.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c32314730.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c32314730.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c32314730.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end

script/c3280747.lua

+--第六感
+function c3280747.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_DECKDES+CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c3280747.target)
+	e1:SetOperation(c3280747.activate)
+	c:RegisterEffect(e1)
+end
+c3280747.toss_dice=true
+function c3280747.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=6 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,2)
+end
+function c3280747.activate(e,tp,eg,ep,ev,re,r,rp)
+	local t={}
+	local i=1
+	local p=1
+	for i=1,6 do t[i]=i end
+	local a1=Duel.AnnounceNumber(tp,table.unpack(t))
+	for i=1,6 do 
+		if a1~=i then t[p]=i p=p+1 end
+	end
+	t[p]=nil
+	local a2=Duel.AnnounceNumber(tp,table.unpack(t))
+	local dc=Duel.TossDice(1-tp,1)
+	if dc==a1 or dc==a2 then Duel.Draw(tp,dc,REASON_EFFECT)
+	else Duel.DiscardDeck(tp,dc,REASON_EFFECT) end
+end

script/c34545235.lua

+--鋼核の輝き
+function c34545235.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c34545235.condition)
+	e1:SetCost(c34545235.cost)
+	e1:SetTarget(c34545235.target)
+	e1:SetOperation(c34545235.activate)
+	c:RegisterEffect(e1)
+end
+function c34545235.condition(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
+end
+function c34545235.cfilter(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c34545235.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c34545235.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c34545235.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c34545235.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c34545235.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c3493058.lua

+--サイコロン
+function c3493058.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE+CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetTarget(c3493058.target)
+	e1:SetOperation(c3493058.activate)
+	c:RegisterEffect(e1)
+end
+c3493058.toss_dice=true
+function c3493058.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c3493058.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(c3493058.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c3493058.activate(e,tp,eg,ep,ev,re,r,rp)
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 or dc==6 then
+		Duel.Damage(tp,1000,REASON_EFFECT)
+	elseif dc==5 then
+		local g=Duel.GetMatchingGroup(c3493058.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
+		if g:GetCount()<2 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local dg=g:Select(tp,2,2,nil)
+		Duel.Destroy(dg,REASON_EFFECT)
+	elseif dc>=2 and dc<=4 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,c3493058.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,aux.ExceptThisCard(e))
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end

script/c3549275.lua

+--ダイス・ポット
+function c3549275.initial_effect(c)
+	--flip
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP)
+	e1:SetTarget(c3549275.target)
+	e1:SetOperation(c3549275.operation)
+	c:RegisterEffect(e1)
+end
+c3549275.toss_dice=true
+function c3549275.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,PLAYER_ALL,1)
+end
+function c3549275.operation(e,tp,eg,ep,ev,re,r,rp)
+	local d1=0
+	local d2=0
+	while d1==d2 do
+		d1,d2=Duel.TossDice(tp,1,1)
+	end
+	if d1<d2 then
+		if d2==6 then
+			Duel.Damage(tp,6000,REASON_EFFECT)
+		elseif d2>=2 and d2<=5 then
+			Duel.Damage(tp,d2*500,REASON_EFFECT)
+		end
+	else
+		if d1==6 then
+			Duel.Damage(1-tp,6000,REASON_EFFECT)
+		elseif d1>=2 and d1<=5 then
+			Duel.Damage(1-tp,d1*500,REASON_EFFECT)
+		end
+	end
+end

script/c35606858.lua

+--パーペチュアルキングデーモン
+function c35606858.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_FIEND),2,2)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c35606858.mtcon)
+	e1:SetOperation(c35606858.mtop)
+	c:RegisterEffect(e1)
+	--tograve
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(35606858,0))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_PAY_LPCOST)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c35606858.tgcon)
+	e2:SetCost(c35606858.tgcost)
+	e2:SetTarget(c35606858.tgtg)
+	e2:SetOperation(c35606858.tgop)
+	c:RegisterEffect(e2)
+	--dice
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(35606858,1))
+	e3:SetCategory(CATEGORY_DICE+CATEGORY_TOHAND+CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCost(c35606858.dccost)
+	e3:SetTarget(c35606858.dctg)
+	e3:SetOperation(c35606858.dcop)
+	c:RegisterEffect(e3)
+end
+c35606858.toss_dice=true
+function c35606858.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c35606858.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(35606858,2)) then
+		Duel.PayLPCost(tp,500)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c35606858.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp
+end
+function c35606858.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:GetFlagEffect(35606858)==0 end
+	c:RegisterFlagEffect(35606858,RESET_CHAIN,0,1)
+end
+function c35606858.tgfilter(c,val)
+	return c:IsRace(RACE_FIEND) and c:IsType(TYPE_MONSTER) and (c:IsAttack(val) or c:IsDefense(val)) and c:IsAbleToGrave()
+end
+function c35606858.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c35606858.tgfilter,tp,LOCATION_DECK,0,1,nil,ev) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c35606858.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c35606858.tgfilter,tp,LOCATION_DECK,0,1,1,nil,ev)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
+function c35606858.dccost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:GetFlagEffect(35606859)==0 end
+	c:RegisterFlagEffect(35606859,RESET_CHAIN,0,1)
+end
+function c35606858.cfilter(c,e,tp)
+	return c:IsRace(RACE_FIEND) and c:IsType(TYPE_MONSTER) and c:IsLocation(LOCATION_GRAVE) and c:IsControler(tp)
+		and (c:IsAbleToHand() or c:IsAbleToDeck() or Duel.GetLocationCount(tp,LOCATION_MZONE)>0)
+end
+function c35606858.dctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanSpecialSummon(tp) and eg:IsExists(c35606858.cfilter,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c35606858.dcop(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	local g=eg:Filter(aux.NecroValleyFilter(c35606858.cfilter),nil,e,tp)
+	if g:GetCount()==0 then return end
+	local tc=nil
+	if g:GetCount()>1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		tc=g:Select(tp,1,1,nil):GetFirst()
+	else
+		tc=g:GetFirst()
+	end
+	if d==1 then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	elseif d==6 then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	elseif d>=2 and d<=5 then
+		Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
+	end
+end

script/c35772782.lua

+--No.67 パラダイスマッシャー
+function c35772782.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,5,2,nil,nil,99)
+	c:EnableReviveLimit()
+	--dice
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(35772782,0))
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c35772782.dccon)
+	e1:SetCost(c35772782.dccost)
+	e1:SetTarget(c35772782.dctg)
+	e1:SetOperation(c35772782.dcop)
+	c:RegisterEffect(e1)
+	--dice
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TOSS_DICE_NEGATE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c35772782.dicecon)
+	e2:SetOperation(c35772782.diceop)
+	c:RegisterEffect(e2)
+end
+c35772782.xyz_number=67
+c35772782.toss_dice=true
+function c35772782.dccon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()==PHASE_MAIN1
+end
+function c35772782.dccost(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 c35772782.dctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,PLAYER_ALL,2)
+end
+function c35772782.dcop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local d1,d2,d3,d4=Duel.TossDice(tp,2,2)
+	if d1+d2>d3+d4 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e1:SetTargetRange(1,0)
+		e1:SetValue(c35772782.actlimit)
+		e1:SetReset(RESET_PHASE+PHASE_END,2)
+		Duel.RegisterEffect(e1,tp)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD)
+		e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+		e2:SetTargetRange(1,0)
+		e2:SetReset(RESET_PHASE+PHASE_END,2)
+		Duel.RegisterEffect(e2,tp)
+	elseif d1+d2<d3+d4 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e1:SetTargetRange(0,1)
+		e1:SetValue(c35772782.actlimit)
+		e1:SetReset(RESET_PHASE+PHASE_END,2)
+		Duel.RegisterEffect(e1,tp)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD)
+		e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+		e2:SetTargetRange(0,1)
+		e2:SetReset(RESET_PHASE+PHASE_END,2)
+		Duel.RegisterEffect(e2,tp)
+	end
+end
+function c35772782.actlimit(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER)
+end
+function c35772782.dicecon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:GetOverlayCount()>0 and c:GetFlagEffect(35772782)==0
+end
+function c35772782.diceop(e,tp,eg,ep,ev,re,r,rp)
+	local cc=Duel.GetCurrentChain()
+	local cid=Duel.GetChainInfo(cc,CHAININFO_CHAIN_ID)
+	if c35772782[0]~=cid and Duel.SelectYesNo(tp,aux.Stringid(35772782,1)) then
+		Duel.Hint(HINT_CARD,0,35772782)
+		e:GetHandler():RegisterFlagEffect(35772782,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+		local dc={Duel.GetDiceResult()}
+		local ac=1
+		local ct=bit.band(ev,0xff)+bit.rshift(ev,16)
+		if ct>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(35772782,2))
+			local val,idx=Duel.AnnounceNumber(tp,table.unpack(dc,1,ct))
+			ac=idx+1
+		end
+		dc[ac]=7
+		Duel.SetDiceResult(table.unpack(dc))
+		c35772782[0]=cid
+	end
+end

script/c35798491.lua

+--ダークビショップデーモン
+function c35798491.initial_effect(c)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c35798491.mtcon)
+	e1:SetOperation(c35798491.mtop)
+	c:RegisterEffect(e1)
+	--disable and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(c35798491.disop)
+	c:RegisterEffect(e2)
+end
+c35798491.toss_dice=true
+function c35798491.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c35798491.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,500) then
+		Duel.PayLPCost(tp,500)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c35798491.filter(c,tp)
+	return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:IsFaceup() and c:IsSetCard(0x45)
+end
+function c35798491.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not tg or not tg:IsExists(c35798491.filter,1,nil,tp) or not Duel.IsChainDisablable(ev) then return false end
+	local rc=re:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 or dc==3 or dc==6 then
+		if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
+			Duel.Destroy(rc,REASON_EFFECT)
+		end
+	end
+end

script/c35975813.lua

+--ジェノサイドキングデーモン
+function c35975813.initial_effect(c)
+	--sumlimit
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_SUMMON)
+	e1:SetCondition(c35975813.excon)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
+	c:RegisterEffect(e2)
+	--maintain
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c35975813.mtcon)
+	e3:SetOperation(c35975813.mtop)
+	c:RegisterEffect(e3)
+	--disable and destroy
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_CHAIN_SOLVING)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetOperation(c35975813.disop)
+	c:RegisterEffect(e4)
+	--disable
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_BATTLED)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetOperation(c35975813.disop2)
+	c:RegisterEffect(e5)
+end
+c35975813.toss_dice=true
+function c35975813.exfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x45)
+end
+function c35975813.excon(e)
+	return not Duel.IsExistingMatchingCard(c35975813.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function c35975813.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c35975813.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,800) then
+		Duel.PayLPCost(tp,800)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c35975813.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not tg or not tg:IsContains(e:GetHandler()) or not Duel.IsChainDisablable(ev) then return false end
+	local rc=re:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc~=2 and dc~=5 then return end
+	if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
+		Duel.Destroy(rc,REASON_EFFECT)
+	end
+end
+function c35975813.disop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=c:GetBattleTarget()
+	if tc and tc:IsType(TYPE_EFFECT) and tc:IsStatus(STATUS_BATTLE_DESTROYED) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetReset(RESET_EVENT+0x17a0000)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetReset(RESET_EVENT+0x17a0000)
+		tc:RegisterEffect(e2)
+	end
+end

script/c36560997.lua

+--オーバー・コアリミット
+function c36560997.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--atk
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x1d))
+	e2:SetValue(500)
+	c:RegisterEffect(e2)
+	--atkup
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(36560997,0))
+	e3:SetCategory(CATEGORY_TOGRAVE)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetCost(c36560997.atcost)
+	e3:SetTarget(c36560997.attg)
+	e3:SetOperation(c36560997.atop)
+	c:RegisterEffect(e3)
+end
+function c36560997.cfilter(c)
+	return c:IsCode(36623431) and c:IsDiscardable()
+end
+function c36560997.atcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c36560997.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,c36560997.cfilter,1,1,REASON_COST+REASON_DISCARD)
+end
+function c36560997.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x1d)
+end
+function c36560997.attg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c36560997.filter,tp,LOCATION_MZONE,0,1,nil) end
+end
+function c36560997.atop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(c36560997.filter,tp,LOCATION_MZONE,0,nil)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		tc=g:GetNext()
+	end
+end

script/c36708764.lua

+--ルーレット・スパイダー
+function c36708764.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_DAMAGE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCondition(c36708764.condition)
+	e1:SetTarget(c36708764.target)
+	e1:SetOperation(c36708764.activate)
+	c:RegisterEffect(e1)
+end
+c36708764.toss_dice=true
+function c36708764.condition(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp
+end
+function c36708764.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local at=Duel.GetAttacker()
+	Duel.SetTargetCard(at)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c36708764.activate(e,tp,eg,ep,ev,re,r,rp)
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 then
+		local lp=Duel.GetLP(tp)
+		Duel.SetLP(tp,math.ceil(lp/2))
+		return
+	elseif dc==2 then
+		Duel.ChangeAttackTarget(nil)
+		return
+	elseif dc==3 then
+		local bc=Duel.GetAttackTarget()
+		local g=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,bc)
+		if g:GetCount()>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(36708764,0))
+			local tc=g:Select(tp,1,1,nil):GetFirst()
+			local at=Duel.GetAttacker()
+			if at:IsAttackable() and not at:IsImmuneToEffect(e) and not tc:IsImmuneToEffect(e) then
+				Duel.CalculateDamage(at,tc)
+			end
+		end
+		return
+	elseif dc==4 then
+		local at=Duel.GetAttacker()
+		local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,at)
+		if g:GetCount()>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(36708764,0))
+			local tc=g:Select(tp,1,1,nil):GetFirst()
+			local at=Duel.GetAttacker()
+			if at:IsAttackable() and not at:IsImmuneToEffect(e) and not tc:IsImmuneToEffect(e) then
+				Duel.CalculateDamage(at,tc)
+			end
+		end
+		return
+	elseif dc==5 then
+		local at=Duel.GetFirstTarget()
+		if at:IsRelateToEffect(e) and Duel.NegateAttack() and at:GetAttack()>0 then
+			Duel.Damage(1-tp,at:GetAttack(),REASON_EFFECT)
+		end
+		return
+	elseif dc==6 then
+		local at=Duel.GetFirstTarget()
+		if at:IsRelateToEffect(e) and at:IsControler(1-tp) and at:IsType(TYPE_MONSTER) then
+			Duel.Destroy(at,REASON_EFFECT)
+		end
+	end
+end

script/c38299233.lua

+--ニードル・ウォール
+function c38299233.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	c:RegisterEffect(e1)
+	--roll and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(38299233,0))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1)
+	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e2:SetCondition(c38299233.rdcon)
+	e2:SetTarget(c38299233.rdtg)
+	e2:SetOperation(c38299233.rdop)
+	c:RegisterEffect(e2)
+end
+c38299233.toss_dice=true
+function c38299233.rdcon(e,tp,eg,ep,ev,re,r,rp)
+	return tp==Duel.GetTurnPlayer()
+end
+function c38299233.mzfilter(c)
+	return c:GetSequence()<5
+end
+function c38299233.rdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+	local g=Duel.GetMatchingGroup(c38299233.mzfilter,tp,0,LOCATION_MZONE,nil)
+	if #g>=5 then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	end
+end
+function c38299233.rdop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local d1=6
+	while d1==6 do
+		d1=Duel.TossDice(tp,1)
+	end
+	if d1>5 then return end
+	local tc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,d1-1)
+	if tc then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c39037517.lua

+--コアキメイル・ビートル
+function c39037517.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c39037517.mtcon)
+	e1:SetOperation(c39037517.mtop)
+	c:RegisterEffect(e1)
+	--poschange
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(39037517,3))
+	e2:SetCategory(CATEGORY_POSITION)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(c39037517.target)
+	e2:SetOperation(c39037517.operation)
+	c:RegisterEffect(e2)
+end
+function c39037517.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c39037517.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c39037517.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_INSECT) and not c:IsPublic()
+end
+function c39037517.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c39037517.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c39037517.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(39037517,0),aux.Stringid(39037517,1),aux.Stringid(39037517,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(39037517,0),aux.Stringid(39037517,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(39037517,1),aux.Stringid(39037517,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(39037517,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c39037517.filter(c,e)
+	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK)
+		and (not e or c:IsRelateToEffect(e))
+end
+function c39037517.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(c39037517.filter,1,nil) end
+	Duel.SetTargetCard(eg)
+end
+function c39037517.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(c39037517.filter,nil,e)
+	Duel.ChangePosition(g,POS_FACEUP_DEFENSE)
+end

script/c41139112.lua

+--サモン・ダイス
+function c41139112.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,41139112+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(c41139112.cost)
+	e1:SetTarget(c41139112.target)
+	e1:SetOperation(c41139112.activate)
+	c:RegisterEffect(e1)
+end
+c41139112.toss_dice=true
+function c41139112.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 c41139112.filter1(c)
+	return c:IsSummonable(true,nil)
+end
+function c41139112.filter2(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c41139112.filter3(c,e,tp)
+	return c:IsLevelAbove(5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c41139112.filter(c,e,tp)
+	return Duel.IsExistingMatchingCard(c41139112.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil)
+		or Duel.IsExistingMatchingCard(c41139112.filter2,tp,LOCATION_GRAVE,0,1,nil,e,tp)
+		or Duel.IsExistingMatchingCard(c41139112.filter3,tp,LOCATION_HAND,0,1,nil,e,tp)
+end
+function c41139112.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c41139112.activate(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	if d==1 or d==2 then
+		local g=Duel.GetMatchingGroup(c41139112.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil)
+		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(41139112,0)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+			local tc=g:Select(tp,1,1,nil):GetFirst()
+			Duel.Summon(tp,tc,true,nil)
+		end
+	elseif d==3 or d==4 then
+		local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c41139112.filter2),tp,LOCATION_GRAVE,0,nil,e,tp)
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(41139112,1)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local tc=g:Select(tp,1,1,nil):GetFirst()
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	elseif d==7 then
+		return
+	else
+		local g=Duel.GetMatchingGroup(c41139112.filter3,tp,LOCATION_HAND,0,nil,e,tp)
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(41139112,2)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local tc=g:Select(tp,1,1,nil):GetFirst()
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end

script/c41201555.lua

+--コアキメイル・グラヴィローズ
+function c41201555.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c41201555.mtcon)
+	e1:SetOperation(c41201555.mtop)
+	c:RegisterEffect(e1)
+	--send to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(41201555,3))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e2:SetCondition(c41201555.condition)
+	e2:SetTarget(c41201555.target)
+	e2:SetOperation(c41201555.operation)
+	c:RegisterEffect(e2)
+end
+function c41201555.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c41201555.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c41201555.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_PLANT) and not c:IsPublic()
+end
+function c41201555.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c41201555.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c41201555.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(41201555,0),aux.Stringid(41201555,1),aux.Stringid(41201555,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(41201555,0),aux.Stringid(41201555,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(41201555,1),aux.Stringid(41201555,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(41201555,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c41201555.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c41201555.tgfilter(c)
+	return c:IsLevelBelow(3) and c:IsAbleToGrave()
+end
+function c41201555.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c41201555.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c41201555.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c41201555.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end

script/c42421606.lua

+--No.85 クレイジー・ボックス
+function c42421606.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,4,2)
+	c:EnableReviveLimit()
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(42421606,0))
+	e2:SetCategory(CATEGORY_DICE+CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(c42421606.efcost)
+	e2:SetTarget(c42421606.eftg)
+	e2:SetOperation(c42421606.efop)
+	c:RegisterEffect(e2)
+end
+c42421606.xyz_number=85
+c42421606.toss_dice=true
+function c42421606.efcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c42421606.eftg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c42421606.efop(e,tp,eg,ep,ev,re,r,rp)
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 then
+		Duel.SetLP(tp,math.ceil(Duel.GetLP(tp)/2))
+	elseif dc==2 then
+		Duel.Draw(tp,1,REASON_EFFECT)
+	elseif dc==3 then
+		if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 then
+			Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)
+		end
+	elseif dc==4 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+		local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.HintSelection(g)
+			local tc=g:GetFirst()
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCode(EFFECT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e2:SetCode(EFFECT_DISABLE_EFFECT)
+			e2:SetValue(RESET_TURN_SET)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e2)
+		end
+	elseif dc==5 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.HintSelection(g)
+			Duel.Destroy(g,REASON_EFFECT)
+		end
+	elseif dc==6 then
+		if e:GetHandler():IsRelateToEffect(e) then
+			Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+		end
+	end
+end

script/c43061293.lua

+--ファイアーダーツ
+function c43061293.initial_effect(c)
+	--damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DICE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(c43061293.damcon)
+	e1:SetTarget(c43061293.damtg)
+	e1:SetOperation(c43061293.damop)
+	c:RegisterEffect(e1)
+end
+c43061293.toss_dice=true
+function c43061293.damcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0
+end
+function c43061293.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,3)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0)
+end
+function c43061293.damop(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	local d1,d2,d3=Duel.TossDice(tp,3)
+	Duel.Damage(p,(d1+d2+d3)*100,REASON_EFFECT)
+end

script/c45041488.lua

+--コアキメイル・ガーディアン
+function c45041488.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c45041488.mtcon)
+	e1:SetOperation(c45041488.mtop)
+	c:RegisterEffect(e1)
+	--Negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(45041488,3))
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c45041488.condition)
+	e2:SetCost(c45041488.cost)
+	e2:SetTarget(c45041488.target)
+	e2:SetOperation(c45041488.operation)
+	c:RegisterEffect(e2)
+end
+function c45041488.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c45041488.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c45041488.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic()
+end
+function c45041488.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c45041488.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c45041488.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	Duel.Hint(HINT_SELECTMSG,tp,0)
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(45041488,0),aux.Stringid(45041488,1),aux.Stringid(45041488,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(45041488,0),aux.Stringid(45041488,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(45041488,1),aux.Stringid(45041488,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(45041488,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c45041488.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:IsActiveType(TYPE_MONSTER)
+		and Duel.IsChainNegatable(ev)
+end
+function c45041488.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c45041488.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c45041488.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c46089249.lua

+--コアキリング
+function c46089249.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c46089249.cost)
+	e1:SetTarget(c46089249.target)
+	e1:SetOperation(c46089249.activate)
+	c:RegisterEffect(e1)
+end
+function c46089249.cfilter(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c46089249.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c46089249.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c46089249.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c46089249.filter(c)
+	return c:IsFaceup()
+end
+function c46089249.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c46089249.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c46089249.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c46089249.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,1000)
+end
+function c46089249.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		if Duel.Destroy(tc,REASON_EFFECT)>0 then
+			Duel.Damage(1-tp,1000,REASON_EFFECT,true)
+			Duel.Damage(tp,1000,REASON_EFFECT,true)
+			Duel.RDComplete()
+		end
+	end
+end

script/c46303688.lua

+--ルーレットボマー
+function c46303688.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(46303688,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c46303688.target)
+	e1:SetOperation(c46303688.activate)
+	c:RegisterEffect(e1)
+end
+c46303688.toss_dice=true
+function c46303688.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,2)
+end
+function c46303688.dfilter(c,lv)
+	return c:IsFaceup() and c:IsLevel(lv)
+end
+function c46303688.activate(e,tp,eg,ep,ev,re,r,rp)
+	local d1,d2=Duel.TossDice(tp,2)
+	local sel=d1
+	if d1>d2 then d1,d2=d2,d1 end
+	if d1~=d2 then
+		sel=Duel.AnnounceNumber(tp,d1,d2)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local dg=Duel.SelectMatchingCard(tp,c46303688.dfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,sel)
+	if dg:GetCount()>0 then
+		Duel.Destroy(dg,REASON_EFFECT)
+	end
+end

script/c47558785.lua

+--マイルド・ターキー
+function c47558785.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--scale change
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(47558785,0))
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c47558785.sctg)
+	e1:SetOperation(c47558785.scop)
+	c:RegisterEffect(e1)
+end
+c47558785.toss_dice=true
+function c47558785.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetLeftScale()>1 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c47558785.scop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:GetLeftScale()<=1 then return end
+	local dc=Duel.TossDice(tp,1)
+	local sch=math.min(c:GetLeftScale()-1,dc)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_LSCALE)
+	e1:SetValue(-sch)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_UPDATE_RSCALE)
+	c:RegisterEffect(e2)
+end

script/c49680980.lua

+--コアキメイル・サンドマン
+function c49680980.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c49680980.mtcon)
+	e1:SetOperation(c49680980.mtop)
+	c:RegisterEffect(e1)
+	--Negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(49680980,3))
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c49680980.condition)
+	e2:SetCost(c49680980.cost)
+	e2:SetTarget(c49680980.target)
+	e2:SetOperation(c49680980.operation)
+	c:RegisterEffect(e2)
+end
+function c49680980.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c49680980.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c49680980.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic()
+end
+function c49680980.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c49680980.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c49680980.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	Duel.Hint(HINT_SELECTMSG,tp,0)
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(49680980,0),aux.Stringid(49680980,1),aux.Stringid(49680980,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(49680980,0),aux.Stringid(49680980,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(49680980,1),aux.Stringid(49680980,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(49680980,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c49680980.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and ep~=tp
+		and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) and Duel.IsChainNegatable(ev)
+end
+function c49680980.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c49680980.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c49680980.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c53039326.lua

+--鋼核合成獣研究所
+function c53039326.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--maintain
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c53039326.mtcon)
+	e2:SetOperation(c53039326.mtop)
+	c:RegisterEffect(e2)
+	--search
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e4:SetDescription(aux.Stringid(53039326,2))
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_EVENT_PLAYER)
+	e4:SetCode(EVENT_CUSTOM+53039326)
+	e4:SetTarget(c53039326.target)
+	e4:SetOperation(c53039326.operation)
+	c:RegisterEffect(e4)
+	if not c53039326.global_check then
+		c53039326.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_DESTROY)
+		ge1:SetOperation(c53039326.check)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+function c53039326.cfilter(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c53039326.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c53039326.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g=Duel.GetMatchingGroup(c53039326.cfilter,tp,LOCATION_HAND,0,nil)
+	local sel=1
+	if g:GetCount()~=0 then
+		sel=Duel.SelectOption(tp,aux.Stringid(53039326,0),aux.Stringid(53039326,1))
+	else
+		sel=Duel.SelectOption(tp,aux.Stringid(53039326,1))+1
+	end
+	if sel==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local cg=g:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,cg)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c53039326.check(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetCurrentPhase()~=PHASE_END then return end
+	local tc=eg:GetFirst()
+	local turnp=Duel.GetTurnPlayer()
+	local g1=Group.CreateGroup()
+	local g2=Group.CreateGroup()
+	while tc do
+		if tc:IsFaceup() and tc:IsLocation(LOCATION_MZONE) and tc:IsSetCard(0x1d) then
+			if tc:GetOwner()==turnp then g1:AddCard(tc) else g2:AddCard(tc) end
+		end
+		tc=eg:GetNext()
+	end
+	if g1:GetCount()>0 then Duel.RaiseEvent(g1,EVENT_CUSTOM+53039326,re,r,rp,turnp,0) end
+	if g2:GetCount()>0 then Duel.RaiseEvent(g2,EVENT_CUSTOM+53039326,re,r,rp,1-turnp,0) end
+end
+function c53039326.filter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1d) and c:IsAbleToHand()
+end
+function c53039326.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c53039326.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c53039326.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c53039326.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c54520292.lua

+--コアキメイル・アイス
+function c54520292.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c54520292.mtcon)
+	e1:SetOperation(c54520292.mtop)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(54520292,3))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCost(c54520292.descost)
+	e2:SetTarget(c54520292.destg)
+	e2:SetOperation(c54520292.desop)
+	c:RegisterEffect(e2)
+end
+function c54520292.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c54520292.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c54520292.cfilter2(c)
+	return c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS and not c:IsPublic()
+end
+function c54520292.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c54520292.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c54520292.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(54520292,0),aux.Stringid(54520292,1),aux.Stringid(54520292,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(54520292,0),aux.Stringid(54520292,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(54520292,1),aux.Stringid(54520292,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(54520292,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c54520292.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c54520292.filter(c)
+	return c:IsSummonType(SUMMON_TYPE_SPECIAL)
+end
+function c54520292.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c54520292.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c54520292.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c54520292.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c54520292.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/c55117418.lua

+--能力吸収コア
+function c55117418.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c55117418.condition)
+	e1:SetTarget(c55117418.target)
+	e1:SetOperation(c55117418.activate)
+	c:RegisterEffect(e1)
+end
+function c55117418.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x1d)
+end
+function c55117418.condition(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+		and Duel.IsExistingMatchingCard(c55117418.cfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,36623431)
+end
+function c55117418.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c55117418.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c5641251.lua

+--F.A.デッド・ヒート
+function c5641251.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:SetDescription(aux.Stringid(5641251,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,5641251)
+	e2:SetCondition(c5641251.spcon)
+	e2:SetTarget(c5641251.sptg)
+	e2:SetOperation(c5641251.spop)
+	c:RegisterEffect(e2)
+	--atk up
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(5641251,1))
+	e3:SetCategory(CATEGORY_LVCHANGE+CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_BATTLE_CONFIRM)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCondition(c5641251.lvlcon)
+	e3:SetOperation(c5641251.lvlop)
+	c:RegisterEffect(e3)
+end
+c5641251.toss_dice=true
+function c5641251.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil
+end
+function c5641251.spfilter(c,e,tp)
+	return c:IsSetCard(0x107) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
+end
+function c5641251.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c5641251.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c5641251.spop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c5641251.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
+function c5641251.lvlcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetAttacker()
+	local bc=Duel.GetAttackTarget()
+	if not bc then return false end
+	if tc:IsControler(1-tp) then bc,tc=tc,bc end
+	return bc:IsFaceup() and tc:IsFaceup() and tc:IsSetCard(0x107)
+end
+function c5641251.lvlop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local tc=Duel.GetAttacker()
+	local bc=Duel.GetAttackTarget()
+	if not bc then return false end
+	if tc:IsControler(1-tp) then bc,tc=tc,bc end
+	local d1=0
+	local d2=0
+	while d1==d2 do
+		d1,d2=Duel.TossDice(tp,1,1)
+	end
+	if d1>d2 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e1:SetValue(4)
+		tc:RegisterEffect(e1)
+	else
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c5817857.lua

+--コアキメイル・グールズスレイブ
+function c5817857.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c5817857.mtcon)
+	e1:SetOperation(c5817857.mtop)
+	c:RegisterEffect(e1)
+	--destroy replace
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(c5817857.destg)
+	e2:SetValue(1)
+	e2:SetOperation(c5817857.desop)
+	c:RegisterEffect(e2)
+end
+function c5817857.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c5817857.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c5817857.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ZOMBIE) and not c:IsPublic()
+end
+function c5817857.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c5817857.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c5817857.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(5817857,0),aux.Stringid(5817857,1),aux.Stringid(5817857,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(5817857,0),aux.Stringid(5817857,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(5817857,1),aux.Stringid(5817857,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(5817857,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c5817857.rfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1d) and c:IsAbleToRemove()
+end
+function c5817857.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		if eg:GetCount()~=1 then return false end
+		local tc=eg:GetFirst()
+		return tc:IsFaceup() and tc:IsLocation(LOCATION_MZONE) and tc:IsSetCard(0x1d) and tc:IsReason(REASON_BATTLE+REASON_EFFECT) and not tc:IsReason(REASON_REPLACE)
+			and Duel.IsExistingMatchingCard(c5817857.rfilter,tp,LOCATION_GRAVE,0,1,nil)
+	end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function c5817857.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c5817857.rfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+end

script/c58990631.lua

+--オートマチック・レーザー
+function c58990631.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate(summon)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCost(c58990631.cost)
+	e1:SetTarget(c58990631.target)
+	e1:SetOperation(c58990631.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetCost(c58990631.cost)
+	e2:SetTarget(c58990631.target2)
+	e2:SetOperation(c58990631.activate2)
+	c:RegisterEffect(e2)
+end
+function c58990631.cfilter(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c58990631.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c58990631.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c58990631.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c58990631.filter(c,tp,ep)
+	return c:IsFaceup() and c:IsAttackAbove(1000)
+		and ep~=tp
+end
+function c58990631.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=eg:GetFirst()
+	if chk==0 then return c58990631.filter(tc,tp,ep) end
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0)
+end
+function c58990631.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackAbove(1000) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end
+function c58990631.filter2(c,tp)
+	return c:IsFaceup() and c:IsAttackAbove(1000) and c:GetSummonPlayer()~=tp
+end
+function c58990631.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(c58990631.filter2,1,nil,tp) end
+	local g=eg:Filter(c58990631.filter2,nil,tp)
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c58990631.filter3(c,e,tp)
+	return c:IsFaceup() and c:IsAttackAbove(1000) and c:GetSummonPlayer()~=tp
+		and c:IsRelateToEffect(e)
+end
+function c58990631.activate2(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(c58990631.filter3,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end

script/c61370518.lua

+--迅雷の魔王－スカル・デーモン
+function c61370518.initial_effect(c)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c61370518.mtcon)
+	e1:SetOperation(c61370518.mtop)
+	c:RegisterEffect(e1)
+	--disable and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(c61370518.disop)
+	c:RegisterEffect(e2)
+end
+c61370518.toss_dice=true
+function c61370518.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c61370518.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,500) then
+		Duel.PayLPCost(tp,500)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c61370518.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not tg or not tg:IsContains(e:GetHandler()) or not Duel.IsChainDisablable(ev) then return false end
+	local rc=re:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 or dc==3 or dc==6 then
+		if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
+			Duel.Destroy(rc,REASON_EFFECT)
+		end
+	end
+end

script/c62893810.lua

+--サイコロプス
+function c62893810.initial_effect(c)
+	--dice
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_HANDES+CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c62893810.target)
+	e1:SetOperation(c62893810.operation)
+	c:RegisterEffect(e1)
+end
+c62893810.toss_dice=true
+function c62893810.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g1=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND)
+	if chk==0 then return g1:GetCount()~=0 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+	Duel.SetOperationInfo(0,CATEGORY_HANDES,g1,1,0,0)
+end
+function c62893810.operation(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	if d==1 then
+		local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+		if g:GetCount()==0 then return end
+		Duel.ConfirmCards(tp,g)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD)
+		Duel.ShuffleHand(1-tp)
+	elseif d==6 then
+		local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+		if g:GetCount()==0 then return end
+		Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
+	elseif d>=2 and d<=5 then
+		local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+		if g:GetCount()==0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD)
+		Duel.ShuffleHand(tp)
+	end
+end

script/c63018036.lua

+--緊急鋼核処分
+function c63018036.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c63018036.target)
+	e1:SetOperation(c63018036.activate)
+	c:RegisterEffect(e1)
+end
+function c63018036.tgfilter(c)
+	return c:IsCode(36623431) and c:IsAbleToGrave()
+end
+function c63018036.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c63018036.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c63018036.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c63018036.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end

script/c6320631.lua

+--コアキメイル・ロック
+function c6320631.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(6320631,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_BATTLE_DESTROYED)
+	e1:SetCondition(c6320631.condition)
+	e1:SetTarget(c6320631.target)
+	e1:SetOperation(c6320631.operation)
+	c:RegisterEffect(e1)
+end
+function c6320631.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE)
+end
+function c6320631.filter(c)
+	return (c:IsCode(36623431) or (c:IsLevelBelow(4) and c:IsSetCard(0x1d))) and c:IsAbleToHand()
+end
+function c6320631.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c6320631.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c6320631.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c6320631.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c65026212.lua

+--コアキメイル・マキシマム
+function c65026212.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	c:EnableReviveLimit()
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c65026212.mtcon)
+	e1:SetOperation(c65026212.mtop)
+	c:RegisterEffect(e1)
+	--spsummon proc
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c65026212.spcon)
+	e2:SetOperation(c65026212.spop)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(65026212,3))
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c65026212.destg)
+	e3:SetOperation(c65026212.desop)
+	c:RegisterEffect(e3)
+end
+function c65026212.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c65026212.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c65026212.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1d) and c:IsAbleToGraveAsCost()
+end
+function c65026212.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c65026212.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c65026212.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(65026212,0),aux.Stringid(65026212,1),aux.Stringid(65026212,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(65026212,0),aux.Stringid(65026212,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(65026212,1),aux.Stringid(65026212,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(65026212,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c65026212.spfilter(c)
+	return c:IsCode(36623431) and c:IsAbleToRemoveAsCost()
+end
+function c65026212.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c65026212.spfilter,tp,LOCATION_HAND,0,1,nil)
+end
+function c65026212.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c65026212.spfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c65026212.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c65026212.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/c66816282.lua

+--コアキメイル・ウォール
+function c66816282.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c66816282.mtcon)
+	e1:SetOperation(c66816282.mtop)
+	c:RegisterEffect(e1)
+	--Negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(66816282,3))
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c66816282.condition)
+	e2:SetCost(c66816282.cost)
+	e2:SetTarget(c66816282.target)
+	e2:SetOperation(c66816282.operation)
+	c:RegisterEffect(e2)
+end
+function c66816282.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c66816282.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c66816282.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic()
+end
+function c66816282.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c66816282.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c66816282.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	Duel.Hint(HINT_SELECTMSG,tp,0)
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(66816282,0),aux.Stringid(66816282,1),aux.Stringid(66816282,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(66816282,0),aux.Stringid(66816282,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(66816282,1),aux.Stringid(66816282,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(66816282,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c66816282.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and ep~=tp
+		and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and Duel.IsChainNegatable(ev)
+end
+function c66816282.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c66816282.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c66816282.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c68809475.lua

+--コアキメイル・スピード
+function c68809475.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c68809475.mtcon)
+	e1:SetOperation(c68809475.mtop)
+	c:RegisterEffect(e1)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(68809475,3))
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_DRAW)
+	e2:SetCondition(c68809475.drcon)
+	e2:SetCost(c68809475.drcost)
+	e2:SetTarget(c68809475.drtg)
+	e2:SetOperation(c68809475.drop)
+	c:RegisterEffect(e2)
+end
+function c68809475.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c68809475.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c68809475.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_MACHINE) and not c:IsPublic()
+end
+function c68809475.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c68809475.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c68809475.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(68809475,0),aux.Stringid(68809475,1),aux.Stringid(68809475,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(68809475,0),aux.Stringid(68809475,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(68809475,1),aux.Stringid(68809475,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(68809475,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c68809475.filter(c)
+	return c:IsCode(36623431) and not c:IsPublic()
+end
+function c68809475.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp and Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_DRAW
+end
+function c68809475.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(c68809475.filter,1,nil) end
+	local g=eg:Filter(c68809475.filter,nil)
+	if g:GetCount()==1 then
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,sg)
+		Duel.ShuffleHand(tp)
+	end
+end
+function c68809475.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 c68809475.drop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsFacedown() or not e:GetHandler():IsRelateToEffect(e) then return end
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end

script/c69170403.lua

+--アストラグールズ
+function c69170403.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(69170403,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c69170403.sptg)
+	e1:SetOperation(c69170403.spop)
+	c:RegisterEffect(e1)
+	--dice
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(69170403,1))
+	e2:SetCategory(CATEGORY_DICE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c69170403.dctg)
+	e2:SetOperation(c69170403.dcop)
+	c:RegisterEffect(e2)
+end
+c69170403.toss_dice=true
+function c69170403.spfilter(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
+end
+function c69170403.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c69170403.spfilter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c69170403.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c69170403.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c69170403.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e2)
+		local fid=c:GetFieldID()
+		tc:RegisterFlagEffect(69170403,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e3:SetCode(EVENT_PHASE+PHASE_END)
+		e3:SetCountLimit(1)
+		e3:SetLabel(fid)
+		e3:SetLabelObject(tc)
+		e3:SetCondition(c69170403.rmcon)
+		e3:SetOperation(c69170403.rmop)
+		Duel.RegisterEffect(e3,tp)
+	end
+	Duel.SpecialSummonComplete()
+end
+function c69170403.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffectLabel(69170403)~=e:GetLabel() then
+		e:Reset()
+		return false
+	else return true end
+end
+function c69170403.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetLabelObject(),POS_FACEUP,REASON_EFFECT)
+end
+function c69170403.dcfilter(c)
+	return c:IsFaceup() and c:IsLevelAbove(1)
+end
+function c69170403.dctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c69170403.dcfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c69170403.dcop(e,tp,eg,ep,ev,re,r,rp)
+	local dc=Duel.TossDice(tp,1)
+	local g=Duel.GetMatchingGroup(c69170403.dcfilter,tp,LOCATION_MZONE,0,nil)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(dc)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		tc=g:GetNext()
+	end
+end

script/c72192100.lua

+--デスルークデーモン
+function c72192100.initial_effect(c)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c72192100.mtcon)
+	e1:SetOperation(c72192100.mtop)
+	c:RegisterEffect(e1)
+	--disable and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(c72192100.disop)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetDescription(aux.Stringid(72192100,0))
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetRange(LOCATION_HAND)
+	e3:SetCost(c72192100.spcost)
+	e3:SetTarget(c72192100.sptg)
+	e3:SetOperation(c72192100.spop)
+	c:RegisterEffect(e3)
+end
+c72192100.toss_dice=true
+function c72192100.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c72192100.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,500) then
+		Duel.PayLPCost(tp,500)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c72192100.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not tg or not tg:IsContains(e:GetHandler()) or not Duel.IsChainDisablable(ev) then return false end
+	local rc=re:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc~=3 then return end
+	if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
+		Duel.Destroy(rc,REASON_EFFECT)
+	end
+end
+function c72192100.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c72192100.filter(c,e,tp)
+	return c:IsCode(35975813) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD)
+		and c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c72192100.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return eg:IsContains(chkc) and c72192100.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and eg:IsExists(c72192100.filter,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=eg:FilterSelect(tp,c72192100.filter,1,1,nil,e,tp)
+	Duel.SetTargetCard(g)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c72192100.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c72258771.lua

+--コアキメイル・ヴァラファール
+function c72258771.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c72258771.mtcon)
+	e1:SetOperation(c72258771.mtop)
+	c:RegisterEffect(e1)
+	--summon with 1 tribute
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(72258771,2))
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_SUMMON_PROC)
+	e2:SetCondition(c72258771.otcon)
+	e2:SetOperation(c72258771.otop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--pierce
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_PIERCE)
+	c:RegisterEffect(e3)
+	--indes
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetValue(c72258771.efilter)
+	c:RegisterEffect(e4)
+end
+function c72258771.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c72258771.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c72258771.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c72258771.cfilter1,tp,LOCATION_HAND,0,nil)
+	local select=1
+	if g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(72258771,0),aux.Stringid(72258771,1))
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(72258771,1))+1
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c72258771.otfilter(c,tp)
+	return c:IsSetCard(0x1d) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c72258771.otcon(e,c,minc)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local mg=Duel.GetMatchingGroup(c72258771.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
+	return c:IsLevelAbove(7) and minc<=1 and Duel.CheckTribute(c,1,1,mg)
+end
+function c72258771.otop(e,tp,eg,ep,ev,re,r,rp,c)
+	local mg=Duel.GetMatchingGroup(c72258771.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
+	local sg=Duel.SelectTribute(tp,c,1,1,mg)
+	c:SetMaterial(sg)
+	Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL)
+end
+function c72258771.efilter(e,re,rp)
+	return re:IsActiveType(TYPE_TRAP)
+end

script/c73219648.lua

+--ヘルポーンデーモン
+function c73219648.initial_effect(c)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c73219648.mtcon)
+	e1:SetOperation(c73219648.mtop)
+	c:RegisterEffect(e1)
+	--disable and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(c73219648.disop)
+	c:RegisterEffect(e2)
+	--cannot be battle target
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_MZONE)
+	e3:SetValue(c73219648.atktg)
+	c:RegisterEffect(e3)
+end
+c73219648.toss_dice=true
+function c73219648.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c73219648.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,500) then
+		Duel.PayLPCost(tp,500)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c73219648.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not tg or not tg:IsContains(e:GetHandler()) or not Duel.IsChainDisablable(ev) then return false end
+	local rc=re:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc~=3 then return end
+	if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
+		Duel.Destroy(rc,REASON_EFFECT)
+	end
+end
+function c73219648.atktg(e,c)
+	return c:IsFaceup() and c:IsSetCard(0x45) and c:GetCode()~=73219648
+end

script/c74137509.lua

+--天使のサイコロ
+function c74137509.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(TIMING_DAMAGE_STEP)
+	e1:SetCondition(c74137509.condition)
+	e1:SetTarget(c74137509.target)
+	e1:SetOperation(c74137509.activate)
+	c:RegisterEffect(e1)
+end
+c74137509.toss_dice=true
+function c74137509.condition(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetCurrentPhase()==PHASE_DAMAGE and Duel.IsDamageCalculated() then return false end
+	return true
+end
+function c74137509.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
+end
+function c74137509.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()>0 then
+		local d=Duel.TossDice(tp,1)
+		local sc=g:GetFirst()
+		while sc do
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			e1:SetValue(d*100)
+			sc:RegisterEffect(e1)
+			local e2=e1:Clone()
+			e2:SetCode(EFFECT_UPDATE_DEFENSE)
+			sc:RegisterEffect(e2)
+			sc=g:GetNext()
+		end
+	end
+end

script/c74576482.lua

+--コアキメイル・シーパンサー
+function c74576482.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c74576482.mtcon)
+	e1:SetOperation(c74576482.mtop)
+	c:RegisterEffect(e1)
+	--to deck
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(74576482,3))
+	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(c74576482.tdcost)
+	e2:SetTarget(c74576482.tdtg)
+	e2:SetOperation(c74576482.tdop)
+	c:RegisterEffect(e2)
+end
+function c74576482.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c74576482.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c74576482.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_WATER) and not c:IsPublic()
+end
+function c74576482.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c74576482.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c74576482.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(74576482,0),aux.Stringid(74576482,1),aux.Stringid(74576482,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(74576482,0),aux.Stringid(74576482,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(74576482,1),aux.Stringid(74576482,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(74576482,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c74576482.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c74576482.cfilter1,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c74576482.cfilter1,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c74576482.filter(c)
+	return c:IsType(TYPE_SPELL) and c:IsAbleToDeck()
+end
+function c74576482.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74576482.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c74576482.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c74576482.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c74576482.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)
+	end
+end

script/c76895648.lua

+--デンジャラスマシン TYPE－6
+function c76895648.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)	
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--dice
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(76895648,0))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)	
+	e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DRAW)
+	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c76895648.condition)
+	e2:SetTarget(c76895648.target)
+	e2:SetOperation(c76895648.operation)
+	c:RegisterEffect(e2)
+end
+c76895648.toss_dice=true
+function c76895648.condition(e,tp,eg,ep,ev,re,r,rp)
+	return tp==Duel.GetTurnPlayer()
+end
+function c76895648.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c76895648.operation(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local dice=Duel.TossDice(tp,1)
+	if dice==1 then
+		Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)
+	elseif dice==2 then
+		Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)
+	elseif dice==3 then
+		Duel.Draw(tp,1,REASON_EFFECT)
+	elseif dice==4 then
+		Duel.Draw(1-tp,1,REASON_EFFECT)
+	elseif dice==5 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+	elseif dice==6 then
+		Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+	end
+end

script/c77994337.lua

+--ハロハロ
+function c77994337.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--level
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(77994337,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c77994337.lvtg)
+	e1:SetOperation(c77994337.lvop)
+	c:RegisterEffect(e1)
+end
+c77994337.toss_dice=true
+function c77994337.lvfilter(c)
+	return c:IsFaceup() and c:GetLevel()>0
+end
+function c77994337.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c77994337.lvfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c77994337.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c77994337.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
+function c77994337.lvop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local dc=Duel.TossDice(tp,1)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(dc)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+end

script/c80367387.lua

+--コアキメイル・ベルグザーク
+function c80367387.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c80367387.mtcon)
+	e1:SetOperation(c80367387.mtop)
+	c:RegisterEffect(e1)
+	--chain attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(80367387,3))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_BATTLE_DESTROYING)
+	e2:SetCondition(c80367387.atcon)
+	e2:SetOperation(c80367387.atop)
+	c:RegisterEffect(e2)
+end
+function c80367387.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c80367387.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c80367387.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_WARRIOR) and not c:IsPublic()
+end
+function c80367387.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c80367387.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c80367387.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	Duel.Hint(HINT_SELECTMSG,tp,0)
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(80367387,0),aux.Stringid(80367387,1),aux.Stringid(80367387,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(80367387,0),aux.Stringid(80367387,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(80367387,1),aux.Stringid(80367387,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(80367387,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c80367387.atcon(e,tp,eg,ep,ev,re,r,rp)
+	return aux.bdocon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():IsChainAttackable()
+end
+function c80367387.atop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.ChainAttack()
+end

script/c80925836.lua

+--コアキメイル・デビル
+function c80925836.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c80925836.mtcon)
+	e1:SetOperation(c80925836.mtop)
+	c:RegisterEffect(e1)
+	--disable
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetOperation(c80925836.disop)
+	c:RegisterEffect(e2)
+end
+function c80925836.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c80925836.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c80925836.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_FIEND) and not c:IsPublic()
+end
+function c80925836.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c80925836.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c80925836.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	Duel.Hint(HINT_SELECTMSG,tp,0)
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(80925836,0),aux.Stringid(80925836,1),aux.Stringid(80925836,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(80925836,0),aux.Stringid(80925836,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(80925836,1),aux.Stringid(80925836,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(80925836,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c80925836.disop(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	if (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and re:IsActiveType(TYPE_MONSTER)
+		and re:GetHandler():IsAttribute(ATTRIBUTE_DARK+ATTRIBUTE_LIGHT) then
+		Duel.NegateEffect(ev)
+	end
+end

script/c82308875.lua

+--No.7 ラッキー・ストライプ
+function c82308875.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,7,3)
+	c:EnableReviveLimit()
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(82308875,0))
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c82308875.cost)
+	e1:SetTarget(c82308875.target)
+	e1:SetOperation(c82308875.operation)
+	c:RegisterEffect(e1)
+end
+c82308875.xyz_number=7
+c82308875.toss_dice=true
+function c82308875.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c82308875.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,2)
+end
+function c82308875.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c82308875.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local d1,d2=Duel.TossDice(tp,2)
+	if d2>d1 then d1,d2=d2,d1 end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+	e1:SetValue(d1*700)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
+	c:RegisterEffect(e1)
+	if d1+d2==7 then
+		local b1=Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)>1
+		local spg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c82308875.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,LOCATION_GRAVE,nil,e,tp)
+		local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and spg:GetCount()>0
+		local b3=Duel.IsPlayerCanDraw(tp,3)
+		if not b1 and not b2 and not b3 then return end
+		local op=0
+		if b1 and not b2 and not b3 then op=Duel.SelectOption(tp,aux.Stringid(82308875,1))
+		elseif not b1 and b2 and not b3 then op=Duel.SelectOption(tp,aux.Stringid(82308875,2))+1
+		elseif not b1 and not b2 and b3 then op=Duel.SelectOption(tp,aux.Stringid(82308875,3))+2
+		elseif b1 and b2 and not b3 then op=Duel.SelectOption(tp,aux.Stringid(82308875,1),aux.Stringid(82308875,2))
+		elseif b1 and not b2 and b3 then op=Duel.SelectOption(tp,aux.Stringid(82308875,1),aux.Stringid(82308875,3)) if op==1 then op=2 end
+		elseif not b1 and b2 and b3 then op=Duel.SelectOption(tp,aux.Stringid(82308875,2),aux.Stringid(82308875,3))+1
+		else op=Duel.SelectOption(tp,aux.Stringid(82308875,1),aux.Stringid(82308875,2),aux.Stringid(82308875,3)) end
+		if op==0 then
+			local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
+			Duel.SendtoGrave(g,REASON_EFFECT)
+		elseif op==1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg=spg:Select(tp,1,1,nil)
+			Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+		else
+			Duel.Draw(tp,3,REASON_EFFECT)
+			Duel.BreakEffect()
+			Duel.DiscardHand(tp,aux.TRUE,2,2,REASON_EFFECT+REASON_DISCARD)
+		end
+	end
+end

script/c83241722.lua

+--リバースダイス
+function c83241722.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c83241722.regop)
+	c:RegisterEffect(e1)
+end
+c83241722.toss_dice=true
+function c83241722.regop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_TOSS_DICE_NEGATE)
+	e1:SetCondition(c83241722.coincon)
+	e1:SetOperation(c83241722.coinop)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c83241722.coincon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffect(tp,83241722)==0
+end
+function c83241722.coinop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFlagEffect(tp,83241722)~=0 then return end
+	if Duel.SelectYesNo(tp,aux.Stringid(83241722,0)) then
+		Duel.Hint(HINT_CARD,0,83241722)
+		Duel.RegisterFlagEffect(tp,83241722,RESET_PHASE+PHASE_END,0,1)
+		local ct1=bit.band(ev,0xff)
+		local ct2=bit.rshift(ev,16)
+		Duel.TossDice(ep,ct1,ct2)
+	end
+end

script/c84046493.lua

+--ゴースト・ビーフ
+function c84046493.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--scale change
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(84046493,0))
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c84046493.sctg)
+	e1:SetOperation(c84046493.scop)
+	c:RegisterEffect(e1)
+end
+c84046493.toss_dice=true
+function c84046493.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetLeftScale()<10 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c84046493.scop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:GetLeftScale()>=10 then return end
+	local dc=Duel.TossDice(tp,1)
+	local sch=math.min(10-c:GetLeftScale(),dc)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_LSCALE)
+	e1:SetValue(sch)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_UPDATE_RSCALE)
+	c:RegisterEffect(e2)
+end

script/c84290642.lua

+--スナイプストーカー
+function c84290642.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(84290642,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c84290642.cost)
+	e1:SetTarget(c84290642.target)
+	e1:SetOperation(c84290642.activate)
+	c:RegisterEffect(e1)
+end
+c84290642.toss_dice=true
+function c84290642.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c84290642.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c84290642.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		local d=Duel.TossDice(tp,1)
+		if d~=1 and d~=6 then
+			Duel.Destroy(tc,REASON_EFFECT)
+		end
+	end
+end

script/c84397023.lua

+--レベル変換実験室
+function c84397023.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c84397023.tg)
+	e1:SetOperation(c84397023.op)
+	c:RegisterEffect(e1)
+end
+c84397023.toss_dice=true
+function c84397023.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_HAND,0,1,nil,TYPE_MONSTER) end
+end
+function c84397023.op(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_HAND,0,1,1,nil,TYPE_MONSTER)
+	if g:GetCount()>0 then
+		Duel.ConfirmCards(1-tp,g)
+		local ct=Duel.TossDice(tp,1)
+		if ct==1 then Duel.SendtoGrave(g,REASON_EFFECT)
+		elseif ct>=2 and ct<=6 then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_CHANGE_LEVEL)
+			e1:SetValue(ct)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_PHASE+PHASE_END)
+			g:GetFirst():RegisterEffect(e1)
+			Duel.ShuffleHand(tp)
+		end
+	end
+end

script/c85704698.lua

+--リサイコロ
+function c85704698.initial_effect(c)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DICE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c85704698.sptg)
+	e1:SetOperation(c85704698.spop)
+	c:RegisterEffect(e1)
+	--Synchro Summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c85704698.syntg)
+	e2:SetOperation(c85704698.synop)
+	c:RegisterEffect(e2)
+end
+c85704698.toss_dice=true
+function c85704698.filter(c,e,tp)
+	return c:IsSetCard(0x2016) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c85704698.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c85704698.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c85704698.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c85704698.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c85704698.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1,true)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e2,true)
+		Duel.SpecialSummonComplete()
+		local lv=Duel.TossDice(tp,1)
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_CHANGE_LEVEL)
+		e3:SetValue(lv)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e3)
+	end
+end
+function c85704698.mfilter(c)
+	return c:IsSetCard(0x2016) and c:IsType(TYPE_TUNER)
+end
+function c85704698.cfilter(c,syn)
+	return syn:IsSynchroSummonable(c)
+end
+function c85704698.spfilter(c,mg)
+	return c:IsAttribute(ATTRIBUTE_WIND) and mg:IsExists(c85704698.cfilter,1,nil,c)
+end
+function c85704698.syntg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetMatchingGroup(c85704698.mfilter,tp,LOCATION_MZONE,0,nil)
+		return Duel.IsExistingMatchingCard(c85704698.spfilter,tp,LOCATION_EXTRA,0,1,nil,mg)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c85704698.synop(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetMatchingGroup(c85704698.mfilter,tp,LOCATION_MZONE,0,nil)
+	local g=Duel.GetMatchingGroup(c85704698.spfilter,tp,LOCATION_EXTRA,0,nil,mg)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
+		local tg=mg:FilterSelect(tp,c85704698.cfilter,1,1,nil,sg:GetFirst())
+		Duel.SynchroSummon(tp,sg:GetFirst(),tg:GetFirst())
+	end
+end

script/c8581705.lua

+--インフェルノクインデーモン
+function c8581705.initial_effect(c)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c8581705.mtcon)
+	e1:SetOperation(c8581705.mtop)
+	c:RegisterEffect(e1)
+	--disable and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(c8581705.disop)
+	c:RegisterEffect(e2)
+	--atkup
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(8581705,0))
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCountLimit(1)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTarget(c8581705.atktg)
+	e3:SetOperation(c8581705.atkop)
+	c:RegisterEffect(e3)
+end
+c8581705.toss_dice=true
+function c8581705.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c8581705.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,500) then
+		Duel.PayLPCost(tp,500)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c8581705.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not tg or not tg:IsContains(e:GetHandler()) or not Duel.IsChainDisablable(ev) then return false end
+	local rc=re:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc~=2 and dc~=5 then return end
+	if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
+		Duel.Destroy(rc,REASON_EFFECT)
+	end
+end
+function c8581705.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x45)
+end
+function c8581705.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c8581705.filter(chkc) end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c8581705.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
+function c8581705.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+end

script/c8868767.lua

+--ダイスエット
+function c8868767.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_DECKDES+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetTarget(c8868767.target)
+	e1:SetOperation(c8868767.activate)
+	c:RegisterEffect(e1)
+end
+c8868767.toss_dice=true
+function c8868767.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if Duel.GetTurnPlayer()==tp then
+		if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,nil) end
+		Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_GRAVE)
+	else
+		if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end
+		Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,1)
+	end
+end
+function c8868767.activate(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	if Duel.GetTurnPlayer()==tp then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsAbleToRemove),tp,LOCATION_GRAVE,0,d,d,nil)
+		if g:GetCount()>0 then
+			Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+		end
+		if d==1 then
+			Duel.DiscardDeck(tp,6,REASON_EFFECT)
+		end
+	else
+		Duel.DiscardDeck(tp,d,REASON_EFFECT)
+		if d==6 then
+			local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsAbleToRemove),tp,LOCATION_GRAVE,0,1,1,nil)
+			if g:GetCount()>0 then
+				Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+			end			
+		end
+	end
+end
\ No newline at end of file

script/c91985515.lua

+--鋼核初期化
+function c91985515.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c91985515.cost)
+	e1:SetTarget(c91985515.target)
+	e1:SetOperation(c91985515.activate)
+	c:RegisterEffect(e1)
+end
+function c91985515.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x1d) end
+	local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x1d)
+	Duel.Release(g,REASON_COST)
+end
+function c91985515.filter(c)
+	return c:IsCode(36623431) and c:IsAbleToHand()
+end
+function c91985515.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c91985515.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function c91985515.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c91985515.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c93542102.lua

+--D・モバホン
+function c93542102.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(93542102,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c93542102.cona)
+	e1:SetTarget(c93542102.tga)
+	e1:SetOperation(c93542102.opa)
+	c:RegisterEffect(e1)
+	--confirm
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(93542102,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCountLimit(1)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c93542102.cond)
+	e2:SetTarget(c93542102.tgd)
+	e2:SetOperation(c93542102.opd)
+	c:RegisterEffect(e2)
+end
+c93542102.toss_dice=true
+function c93542102.cona(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsDisabled() and e:GetHandler():IsAttackPos()
+end
+function c93542102.cond(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos()
+end
+function c93542102.cfilter(c)
+	return c:IsLevelBelow(4) and c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER)
+end
+function c93542102.tga(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0
+		and Duel.IsExistingMatchingCard(c93542102.cfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_DECK)
+end
+function c93542102.tgd(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c93542102.filter(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+end
+function c93542102.opa(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
+	local dc=Duel.TossDice(tp,1)
+	Duel.ConfirmDecktop(tp,dc)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local g=Duel.GetDecktopGroup(tp,dc)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:FilterSelect(tp,c93542102.filter,1,1,nil,e,tp)
+	Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP)
+	Duel.ShuffleDeck(tp)
+end
+function c93542102.opd(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
+	local dc=Duel.TossDice(tp,1)
+	local g=Duel.GetDecktopGroup(tp,dc)
+	Duel.ConfirmCards(tp,g)
+end

script/c95090813.lua

+--コアキメイル・ウォーアームズ
+function c95090813.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c95090813.mtcon)
+	e1:SetOperation(c95090813.mtop)
+	c:RegisterEffect(e1)
+	--equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(95090813,3))
+	e2:SetCategory(CATEGORY_LEAVE_GRAVE+CATEGORY_EQUIP)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c95090813.eqtg)
+	e2:SetOperation(c95090813.eqop)
+	c:RegisterEffect(e2)
+end
+function c95090813.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c95090813.cfilter1(c)
+	return c:IsCode(36623431) and c:IsAbleToGraveAsCost()
+end
+function c95090813.cfilter2(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_WARRIOR) and not c:IsPublic()
+end
+function c95090813.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g1=Duel.GetMatchingGroup(c95090813.cfilter1,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c95090813.cfilter2,tp,LOCATION_HAND,0,nil)
+	local select=2
+	if g1:GetCount()>0 and g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(95090813,0),aux.Stringid(95090813,1),aux.Stringid(95090813,2))
+	elseif g1:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(95090813,0),aux.Stringid(95090813,2))
+		if select==1 then select=2 end
+	elseif g2:GetCount()>0 then
+		select=Duel.SelectOption(tp,aux.Stringid(95090813,1),aux.Stringid(95090813,2))+1
+	else
+		select=Duel.SelectOption(tp,aux.Stringid(95090813,2))
+		select=2
+	end
+	if select==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=g1:Select(tp,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+	elseif select==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local g=g2:Select(tp,1,1,nil)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+function c95090813.filter(c)
+	return c:IsLevelBelow(3) and c:IsRace(RACE_WARRIOR) and not c:IsForbidden()
+end
+function c95090813.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c95090813.filter(chkc) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(c95090813.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,c95090813.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
+end
+function c95090813.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		if not Duel.Equip(tp,tc,c,false) then return end
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(c95090813.eqlimit)
+		tc:RegisterEffect(e1)
+		local atk=tc:GetAttack()
+		if atk<0 then atk=0 end
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_EQUIP)
+		e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e2:SetCode(EFFECT_UPDATE_ATTACK)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e2:SetValue(math.ceil(atk/2))
+		tc:RegisterEffect(e2)
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_EQUIP)
+		e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e3:SetCode(EFFECT_DESTROY_SUBSTITUTE)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e3:SetValue(c95090813.subval)
+		tc:RegisterEffect(e3)
+	end
+end
+function c95090813.eqlimit(e,c)
+	return e:GetOwner()==c
+end
+function c95090813.subval(e,re,r,rp)
+	return bit.band(r,REASON_BATTLE)~=0
+end

script/c95204084.lua

+--コアキメイル・トルネード
+function c95204084.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(95204084,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c95204084.cost)
+	e1:SetTarget(c95204084.target)
+	e1:SetOperation(c95204084.operation)
+	c:RegisterEffect(e1)
+end
+function c95204084.cfilter(c)
+	return c:IsCode(36623431) and c:IsAbleToDeckAsCost()
+end
+function c95204084.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c95204084.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c95204084.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,0,REASON_COST)
+end
+function c95204084.filter(c)
+	return c:IsSummonType(SUMMON_TYPE_SPECIAL)
+end
+function c95204084.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c95204084.filter,tp,0,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(c95204084.filter,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c95204084.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c95204084.filter,tp,0,LOCATION_MZONE,nil)
+	Duel.Destroy(g,REASON_EFFECT)
+end

script/c96015976.lua

+--再転
+function c96015976.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(96015976,0))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c96015976.target)
+	e2:SetOperation(c96015976.operation)
+	c:RegisterEffect(e2)
+end
+c96015976.toss_dice=true
+function c96015976.filter(c)
+	local lv=c:GetLevel()
+	return c:IsFaceup() and lv~=0 and lv~=c:GetOriginalLevel()
+end
+function c96015976.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c96015976.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c96015976.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c96015976.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
+function c96015976.operation(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local dc=Duel.TossDice(tp,1)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(dc)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end

script/c9603356.lua

+--シャドウナイトデーモン
+function c9603356.initial_effect(c)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c9603356.mtcon)
+	e1:SetOperation(c9603356.mtop)
+	c:RegisterEffect(e1)
+	--disable and destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(c9603356.disop)
+	c:RegisterEffect(e2)
+	--damage reduce
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
+	e3:SetValue(aux.ChangeBattleDamage(1,HALF_DAMAGE))
+	c:RegisterEffect(e3)
+end
+c9603356.toss_dice=true
+function c9603356.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c9603356.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,900) then
+		Duel.PayLPCost(tp,900)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
+function c9603356.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not tg or not tg:IsContains(e:GetHandler()) or not Duel.IsChainDisablable(ev) then return false end
+	local rc=re:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc~=3 then return end
+	if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
+		Duel.Destroy(rc,REASON_EFFECT)
+	end
+end

script/c97642679.lua

+--闇の支配者－ゾーク
+function c97642679.initial_effect(c)
+	c:EnableReviveLimit()
+	--dice
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(97642679,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c97642679.target)
+	e1:SetOperation(c97642679.operation)
+	c:RegisterEffect(e1)
+end
+c97642679.toss_dice=true
+function c97642679.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+	local g1=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+	local g2=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
+	if g1:GetCount()~=0 and g2:GetCount()~=0 then
+		g1:Merge(g2)
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0)
+	end
+end
+function c97642679.operation(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	if d==1 or d==2 then
+		local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+	elseif d==6 then
+		local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+	elseif d>=3 and d<=5 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end

script/c99002135.lua

+--緊急合成
+function c99002135.initial_effect(c)
+	aux.AddCodeList(c,36623431)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c99002135.cost)
+	e1:SetTarget(c99002135.target)
+	e1:SetOperation(c99002135.activate)
+	c:RegisterEffect(e1)
+end
+function c99002135.cfilter(c)
+	return c:IsCode(36623431) and c:IsAbleToDeckAsCost()
+end
+function c99002135.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c99002135.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c99002135.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
+end
+function c99002135.spfilter(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsSetCard(0x1d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c99002135.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c99002135.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
+end
+function c99002135.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c99002135.spfilter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end