byd

expansions/lflist.conf

@@ -448,6 +448,7 @@
 16117101 0 --星皇 谜
 16120000 0 --白苍混成 B.W.M
 16130007 0 --B.O.W.感染犬
+16130008 0 --B.O.W.尖啸者
 16138001 0 --黄道带的灾厄
 16138003 0 --十二星天魔神 羯座
 16138005 0 --十二星天魔神 瓶座

expansions/script/c29930000.lua

+--森森挚深 烈蹄挽马
+local s,id,o=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,29930010,29930040)
+	c:EnableReviveLimit()
+	--material
+	aux.AddSynchroProcedure2(c,s.matfilter1,aux.NonTuner(s.matfilter2))
+	--set
+	local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(id,0))
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+    e1:SetCondition(s.showcon)
+    e1:SetCost(s.showcost)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.operation)
+	c:RegisterEffect(e1)
+    --battle
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+    --special summon
+	local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(id,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetTarget(s.sptg)
+	e4:SetOperation(s.spop)
+	c:RegisterEffect(e4)
+end
+function s.matfilter1(c)
+	return c:GetBaseAttack()==300 and c:GetBaseDefense()==100 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_WATER)
+    and c:IsLevel(2)
+end
+function s.matfilter2(c)
+	return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+end
+function s.showcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function s.showfilter(c)
+	return c:GetBaseAttack()==400 and c:GetBaseDefense()==0 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
+end
+function s.showcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.showfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,s.showfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function s.pfilter(c,tp)
+	return c:IsCode(29930010)
+		and not c:IsForbidden() and c:CheckUniqueOnField(tp)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
+	if tc then Duel.MoveToField(tc,tp,tp,LOCATION_MZONE,POS_FACEUP,true) end
+end
+function s.cfilter(c)
+	return c:IsFaceup() and not c:IsSetCard(0x48) and 
+    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)
+end
+function s.spfilter(c,e,tp)
+	return c:IsCode(29930040) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
+end
+function s.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,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	local c=e:GetHandler()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		tc:RegisterFlagEffect(s,RESET_EVENT+RESETS_STANDARD,0,1)
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(id,2))
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+		e1:SetCode(EFFECT_IMMUNE_EFFECT)
+        e1:SetValue(s.efilter)
+        e1:SetOwnerPlayer(tp)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e2:SetCode(EVENT_PHASE+PHASE_END)
+        e2:SetCountLimit(1)
+		e2:SetLabel(Duel.GetTurnCount()+1)
+		e2:SetLabelObject(tc)
+		e2:SetCondition(s.tdcon)
+		e2:SetOperation(s.tdop)
+		Duel.RegisterEffect(e2,tp)
+	end
+end
+function s.efilter(e,te)
+	return te:IsActiveType(TYPE_MONSTER) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
+end
+function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(s)~=0 then
+		return Duel.GetTurnCount()==e:GetLabel()
+	else
+		e:Reset()
+		return false
+	end
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.Hint(HINT_CARD,0,id)
+	Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c29930001.lua

+--森森挚深 恋翼兔狲
+local s,id,o=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,29930011,29930040)
+	c:EnableReviveLimit()
+	--material
+	aux.AddSynchroProcedure2(c,s.matfilter1,aux.NonTuner(s.matfilter2))
+	--set
+	local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(id,0))
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+    e1:SetCondition(s.showcon)
+    e1:SetCost(s.showcost)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.operation)
+	c:RegisterEffect(e1)
+    --battle
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+    --special summon
+	local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(id,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetTarget(s.sptg)
+	e4:SetOperation(s.spop)
+	c:RegisterEffect(e4)
+end
+function s.matfilter1(c)
+	return c:GetBaseAttack()==300 and c:GetBaseDefense()==100 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_WATER)
+    and c:IsLevel(2)
+end
+function s.matfilter2(c)
+	return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+end
+function s.showcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function s.showfilter(c)
+	return c:GetBaseAttack()==200 and c:GetBaseDefense()==200 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
+end
+function s.showcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.showfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,s.showfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function s.pfilter(c,tp)
+	return c:IsCode(29930011)
+		and not c:IsForbidden() and c:CheckUniqueOnField(tp)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
+	if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
+end
+function s.cfilter(c)
+	return c:IsFaceup() and not c:IsSetCard(0x48) and 
+    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)
+end
+function s.spfilter(c,e,tp)
+	return c:IsCode(29930040) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
+end
+function s.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,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	local c=e:GetHandler()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		tc:RegisterFlagEffect(s,RESET_EVENT+RESETS_STANDARD,0,1)
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(id,2))
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+		e1:SetCode(EFFECT_IMMUNE_EFFECT)
+        e1:SetValue(s.efilter)
+        e1:SetOwnerPlayer(tp)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e2:SetCode(EVENT_PHASE+PHASE_END)
+        e2:SetCountLimit(1)
+		e2:SetLabel(Duel.GetTurnCount()+1)
+		e2:SetLabelObject(tc)
+		e2:SetCondition(s.tdcon)
+		e2:SetOperation(s.tdop)
+		Duel.RegisterEffect(e2,tp)
+	end
+end
+function s.efilter(e,te)
+	return te:IsActiveType(TYPE_SPELL) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
+end
+function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(s)~=0 then
+		return Duel.GetTurnCount()==e:GetLabel()
+	else
+		e:Reset()
+		return false
+	end
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.Hint(HINT_CARD,0,id)
+	Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c29930002.lua

+--森森挚深 凌甲野狼
+local s,id,o=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,29930012,29930040)
+	c:EnableReviveLimit()
+	--material
+	aux.AddSynchroProcedure2(c,s.matfilter1,aux.NonTuner(s.matfilter2))
+	--set
+	local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(id,0))
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+    e1:SetCondition(s.showcon)
+    e1:SetCost(s.showcost)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.operation)
+	c:RegisterEffect(e1)
+    --battle
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+    --special summon
+	local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(id,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetTarget(s.sptg)
+	e4:SetOperation(s.spop)
+	c:RegisterEffect(e4)
+end
+function s.matfilter1(c)
+	return c:GetBaseAttack()==300 and c:GetBaseDefense()==100 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_WATER)
+    and c:IsLevel(2)
+end
+function s.matfilter2(c)
+	return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+end
+function s.showcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function s.showfilter(c)
+	return c:GetBaseAttack()==300 and c:GetBaseDefense()==100 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
+end
+function s.showcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.showfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,s.showfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function s.pfilter(c,tp)
+	return c:IsCode(29930012)
+		and not c:IsForbidden() and c:CheckUniqueOnField(tp)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
+	if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
+end
+function s.cfilter(c)
+	return c:IsFaceup() and not c:IsSetCard(0x48) and 
+    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)
+end
+function s.spfilter(c,e,tp)
+	return c:IsCode(29930040) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
+end
+function s.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,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	local c=e:GetHandler()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		tc:RegisterFlagEffect(s,RESET_EVENT+RESETS_STANDARD,0,1)
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(id,2))
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+		e1:SetCode(EFFECT_IMMUNE_EFFECT)
+        e1:SetValue(s.efilter)
+        e1:SetOwnerPlayer(tp)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e2:SetCode(EVENT_PHASE+PHASE_END)
+        e2:SetCountLimit(1)
+		e2:SetLabel(Duel.GetTurnCount()+1)
+		e2:SetLabelObject(tc)
+		e2:SetCondition(s.tdcon)
+		e2:SetOperation(s.tdop)
+		Duel.RegisterEffect(e2,tp)
+	end
+end
+function s.efilter(e,te)
+	return te:IsActiveType(TYPE_TRAP) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
+end
+function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(s)~=0 then
+		return Duel.GetTurnCount()==e:GetLabel()
+	else
+		e:Reset()
+		return false
+	end
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.Hint(HINT_CARD,0,id)
+	Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c29930010.lua

+--地隆啸天大终结
+function c29930010.initial_effect(c)
+	aux.AddCodeList(c,29930000)
+	c:SetUniqueOnField(1,0,29930010)
+	--cannot be 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_FUSION_MATERIAL)
+	e1:SetValue(c29930010.fuslimit)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
+	c:RegisterEffect(e3)
+	local e4=e2:Clone()
+	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	c:RegisterEffect(e4)
+	--cannot summon or special summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e5)
+	--cannot attack
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_SINGLE)
+	e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e6:SetCode(EFFECT_CANNOT_ATTACK)
+	c:RegisterEffect(e6)
+	--indes
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_FIELD)
+	e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e7:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e7:SetRange(LOCATION_MZONE)
+	e7:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e7:SetTarget(c29930010.indtg)
+	e7:SetValue(1)
+	c:RegisterEffect(e7)
+	--no battle damage
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_SINGLE)
+	e8:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e8:SetCode(EFFECT_NO_BATTLE_DAMAGE)
+	c:RegisterEffect(e8)
+	local e9=Effect.CreateEffect(c)
+	e9:SetType(EFFECT_TYPE_SINGLE)
+	e9:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e9:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+	e9:SetValue(1)
+	c:RegisterEffect(e9)
+	--horse token
+	local e10=Effect.CreateEffect(c)
+	e10:SetDescription(aux.Stringid(29930010,0))
+	e10:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e10:SetType(EFFECT_TYPE_IGNITION)
+	e10:SetRange(LOCATION_HAND)
+	e10:SetCountLimit(1,29930010)
+	e10:SetCost(c29930010.tkcost)
+	e10:SetTarget(c29930010.tktg)
+	e10:SetOperation(c29930010.tkop)
+	c:RegisterEffect(e10)
+	--negated
+	local e11=Effect.CreateEffect(c)
+	e11:SetDescription(aux.Stringid(29930010,1))
+	e11:SetCategory(CATEGORY_DISABLE)
+	e11:SetType(EFFECT_TYPE_QUICK_O)
+	e11:SetCode(EVENT_CHAINING)
+	e11:SetRange(LOCATION_MZONE)
+	e11:SetCountLimit(1)
+	e11:SetCondition(c29930010.discon)
+	e11:SetCost(c29930010.discost)
+	e11:SetTarget(c29930010.distg)
+	e11:SetOperation(c29930010.disop)
+	local e12=Effect.CreateEffect(c)
+	e12:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e12:SetRange(LOCATION_MZONE)
+	e12:SetTargetRange(LOCATION_MZONE,0)
+	e12:SetTarget(c29930010.eftg)
+	e12:SetLabelObject(e11)
+	c:RegisterEffect(e12)
+	--level&atk&def
+	local e13=Effect.CreateEffect(c)
+	e13:SetType(EFFECT_TYPE_SINGLE)
+	e13:SetCode(EFFECT_UPDATE_ATTACK)
+	e13:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e13:SetRange(LOCATION_MZONE)
+	e13:SetValue(2000)
+	local e15=e13:Clone()
+	e15:SetCode(EFFECT_CHANGE_LEVEL)
+	e15:SetValue(10)
+	local e16=Effect.CreateEffect(c)
+	e16:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e16:SetRange(LOCATION_MZONE)
+	e16:SetTargetRange(LOCATION_MZONE,0)
+	e16:SetTarget(c29930010.eftg)
+	e16:SetLabelObject(e13)
+	c:RegisterEffect(e16)
+	local e18=e16:Clone()
+	e18:SetLabelObject(e15)
+	c:RegisterEffect(e18)
+	Duel.AddCustomActivityCounter(29930010,ACTIVITY_SPSUMMON,c29930010.counterfilter)
+end
+function c29930010.fuslimit(e,c,sumtype)
+	return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
+end
+function c29930010.counterfilter(c)
+	return not c:IsSummonLocation(LOCATION_EXTRA) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)) 
+	or (c:GetBaseAttack()==9)
+end
+function c29930010.indtg(e,c)
+	local tc=e:GetHandler()
+	return c==tc or c==tc:GetBattleTarget()
+end
+function c29930010.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(29930010,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c29930010.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function c29930010.splimit(e,c)
+	return c:IsLocation(LOCATION_EXTRA) and 
+	not((c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)) 
+	or (c:GetBaseAttack()==9))
+end
+function c29930010.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	and Duel.IsPlayerCanSpecialSummonMonster(tp,29930013,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) end
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c29930010.tkop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	if Duel.IsPlayerCanSpecialSummonMonster(tp,29930013,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) then
+		local token=Duel.CreateToken(tp,29930013)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c29930010.eftg(e,c)
+	return c:IsFaceup() and c:IsOriginalCodeRule(29930000)
+end
+function c29930010.discon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_MONSTER)
+end
+function c29930010.cfilter(c)
+	return c:GetBaseAttack()==400 and c:GetBaseDefense()==0 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
+end
+function c29930010.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c29930010.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c29930010.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c29930010.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function c29930010.setfilter(c)
+	return c:IsCanTurnSet() and c:IsFaceup()
+end
+function c29930010.thfilter(c)
+	return c:IsAbleToDeck() and c:IsFaceup() and c:IsType(TYPE_MONSTER)
+end
+function c29930010.disop(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(c29930010.setfilter,tp,0,LOCATION_MZONE,nil)
+	if Duel.NegateEffect(ev) and sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930010,2)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+		local tg=sg:Select(tp,1,1,nil)
+		Duel.BreakEffect()
+		local sg2=Duel.GetMatchingGroup(c29930010.thfilter,tp,0,LOCATION_ONFIELD,tg)
+		if Duel.ChangePosition(tg,POS_FACEDOWN_DEFENSE)~=0 and sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930010,3)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local tg2=sg2:Select(tp,1,1,nil)
+		Duel.BreakEffect()
+		Duel.SendtoDeck(tg2,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
+		end
+	end
+end

expansions/script/c29930011.lua

+--唯意谨献散燎华
+function c29930011.initial_effect(c)
+	aux.AddCodeList(c,29930001)
+	c:SetUniqueOnField(1,0,29930011)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
+	e1:SetValue(c29930011.fuslimit)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
+	c:RegisterEffect(e3)
+	local e4=e2:Clone()
+	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	c:RegisterEffect(e4)
+	--cat token
+	local e10=Effect.CreateEffect(c)
+	e10:SetDescription(aux.Stringid(29930011,0))
+	e10:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e10:SetType(EFFECT_TYPE_IGNITION)
+	e10:SetRange(LOCATION_HAND)
+	e10:SetCountLimit(1,29930011)
+	e10:SetCost(c29930011.tkcost)
+	e10:SetTarget(c29930011.tktg)
+	e10:SetOperation(c29930011.tkop)
+	c:RegisterEffect(e10)
+    --negated
+	local e11=Effect.CreateEffect(c)
+	e11:SetDescription(aux.Stringid(29930011,1))
+	e11:SetCategory(CATEGORY_DISABLE)
+	e11:SetType(EFFECT_TYPE_QUICK_O)
+	e11:SetCode(EVENT_CHAINING)
+	e11:SetRange(LOCATION_MZONE)
+	e11:SetCountLimit(1)
+	e11:SetCondition(c29930011.discon)
+	e11:SetCost(c29930011.discost)
+	e11:SetTarget(c29930011.distg)
+	e11:SetOperation(c29930011.disop)
+	local e12=Effect.CreateEffect(c)
+	e12:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e12:SetRange(LOCATION_SZONE)
+	e12:SetTargetRange(LOCATION_MZONE,0)
+	e12:SetTarget(c29930011.eftg)
+	e12:SetLabelObject(e11)
+	c:RegisterEffect(e12)
+	--level&atk&def
+	local e13=Effect.CreateEffect(c)
+	e13:SetType(EFFECT_TYPE_SINGLE)
+	e13:SetCode(EFFECT_UPDATE_ATTACK)
+	e13:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e13:SetRange(LOCATION_MZONE)
+	e13:SetValue(1000)
+	local e14=e13:Clone()
+	e14:SetCode(EFFECT_UPDATE_DEFENSE)
+	e14:SetValue(1000)
+	local e15=e13:Clone()
+	e15:SetCode(EFFECT_CHANGE_LEVEL)
+	e15:SetValue(10)
+	local e16=Effect.CreateEffect(c)
+	e16:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e16:SetRange(LOCATION_SZONE)
+	e16:SetTargetRange(LOCATION_MZONE,0)
+	e16:SetTarget(c29930011.eftg)
+	e16:SetLabelObject(e13)
+	c:RegisterEffect(e16)
+	local e17=e16:Clone()
+	e17:SetLabelObject(e14)
+	c:RegisterEffect(e17)
+	local e18=e16:Clone()
+	e18:SetLabelObject(e15)
+	c:RegisterEffect(e18)
+	Duel.AddCustomActivityCounter(29930011,ACTIVITY_SPSUMMON,c29930011.counterfilter)
+end
+function c29930011.fuslimit(e,c,sumtype)
+	return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
+end
+function c29930011.counterfilter(c)
+	return not c:IsSummonLocation(LOCATION_EXTRA) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)) 
+	or (c:GetBaseAttack()==9)
+end
+function c29930011.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(29930011,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c29930011.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function c29930011.splimit(e,c)
+	return c:IsLocation(LOCATION_EXTRA) and 
+	not((c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)) 
+	or (c:GetBaseAttack()==9))
+end
+function c29930011.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	and Duel.IsPlayerCanSpecialSummonMonster(tp,29930014,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) end
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c29930011.tkop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	if Duel.IsPlayerCanSpecialSummonMonster(tp,29930014,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) then
+		local token=Duel.CreateToken(tp,29930014)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c29930011.eftg(e,c)
+	return c:IsFaceup() and c:IsOriginalCodeRule(29930001)
+end
+function c29930011.discon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_SPELL)
+end
+function c29930011.cfilter(c)
+	return c:GetBaseAttack()==200 and c:GetBaseDefense()==200 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
+end
+function c29930011.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c29930011.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c29930011.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c29930011.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function c29930011.thfilter(c)
+	return c:IsAbleToDeck() and c:IsFaceup() and c:IsType(TYPE_SPELL)
+end
+function c29930011.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) and Duel.SelectYesNo(tp,aux.Stringid(29930011,2)) then
+		Duel.BreakEffect()
+		local sg2=Duel.GetMatchingGroup(c29930011.thfilter,tp,0,LOCATION_ONFIELD,nil)
+		if Duel.Recover(tp,1000,REASON_EFFECT)~=0 and sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930011,3)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local tg2=sg2:Select(tp,1,1,nil)
+		Duel.BreakEffect()
+		Duel.SendtoDeck(tg2,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
+		end
+	end
+end

expansions/script/c29930012.lua

+--躁飞乱打猛群击
+function c29930012.initial_effect(c)
+	aux.AddCodeList(c,29930002)
+	c:SetUniqueOnField(1,0,29930012)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
+	e1:SetValue(c29930012.fuslimit)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
+	c:RegisterEffect(e3)
+	local e4=e2:Clone()
+	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	c:RegisterEffect(e4)
+	--dog token
+	local e10=Effect.CreateEffect(c)
+	e10:SetDescription(aux.Stringid(29930012,0))
+	e10:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e10:SetType(EFFECT_TYPE_IGNITION)
+	e10:SetRange(LOCATION_HAND)
+	e10:SetCountLimit(1,29930012)
+	e10:SetCost(c29930012.tkcost)
+	e10:SetTarget(c29930012.tktg)
+	e10:SetOperation(c29930012.tkop)
+	c:RegisterEffect(e10)
+	    --negated
+		local e11=Effect.CreateEffect(c)
+		e11:SetDescription(aux.Stringid(29930012,1))
+		e11:SetCategory(CATEGORY_DISABLE)
+		e11:SetType(EFFECT_TYPE_QUICK_O)
+		e11:SetCode(EVENT_CHAINING)
+		e11:SetRange(LOCATION_MZONE)
+		e11:SetCountLimit(1)
+		e11:SetCondition(c29930012.discon)
+		e11:SetCost(c29930012.discost)
+		e11:SetTarget(c29930012.distg)
+		e11:SetOperation(c29930012.disop)
+		local e12=Effect.CreateEffect(c)
+		e12:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+		e12:SetRange(LOCATION_SZONE)
+		e12:SetTargetRange(LOCATION_MZONE,0)
+		e12:SetTarget(c29930012.eftg)
+		e12:SetLabelObject(e11)
+		c:RegisterEffect(e12)
+		--level&atk&def
+		local e13=Effect.CreateEffect(c)
+		e13:SetType(EFFECT_TYPE_SINGLE)
+		e13:SetCode(EFFECT_UPDATE_ATTACK)
+		e13:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e13:SetRange(LOCATION_MZONE)
+		e13:SetValue(1500)
+		local e14=e13:Clone()
+		e14:SetCode(EFFECT_UPDATE_DEFENSE)
+		e14:SetValue(500)
+		local e15=e13:Clone()
+		e15:SetCode(EFFECT_CHANGE_LEVEL)
+		e15:SetValue(10)
+		local e16=Effect.CreateEffect(c)
+		e16:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+		e16:SetRange(LOCATION_SZONE)
+		e16:SetTargetRange(LOCATION_MZONE,0)
+		e16:SetTarget(c29930012.eftg)
+		e16:SetLabelObject(e13)
+		c:RegisterEffect(e16)
+		local e17=e16:Clone()
+		e17:SetLabelObject(e14)
+		c:RegisterEffect(e17)
+		local e18=e16:Clone()
+		e18:SetLabelObject(e15)
+		c:RegisterEffect(e18)
+		Duel.AddCustomActivityCounter(29930012,ACTIVITY_SPSUMMON,c29930012.counterfilter)
+end
+function c29930012.fuslimit(e,c,sumtype)
+	return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
+end
+function c29930012.counterfilter(c)
+	return not c:IsSummonLocation(LOCATION_EXTRA) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)) 
+	or (c:GetBaseAttack()==9)
+end
+function c29930012.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(29930012,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c29930012.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function c29930012.splimit(e,c)
+	return c:IsLocation(LOCATION_EXTRA) and 
+	not((c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsRank(2) and c:IsType(TYPE_XYZ)) 
+	or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)) 
+	or (c:GetBaseAttack()==9))
+end
+function c29930012.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	and Duel.IsPlayerCanSpecialSummonMonster(tp,29930015,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) end
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c29930012.tkop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	if Duel.IsPlayerCanSpecialSummonMonster(tp,29930015,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) then
+		local token=Duel.CreateToken(tp,29930015)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c29930012.eftg(e,c)
+	return c:IsFaceup() and c:IsOriginalCodeRule(29930002)
+end
+function c29930012.discon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_TRAP)
+end
+function c29930012.cfilter(c)
+	return c:GetBaseAttack()==300 and c:GetBaseDefense()==100 
+    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
+    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
+end
+function c29930012.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c29930012.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c29930012.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c29930012.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function c29930012.thfilter(c)
+	return c:IsAbleToDeck() and c:IsFaceup() and c:IsType(TYPE_TRAP)
+end
+function c29930012.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) and Duel.SelectYesNo(tp,aux.Stringid(29930012,2)) then
+		Duel.BreakEffect()
+		local sg2=Duel.GetMatchingGroup(c29930012.thfilter,tp,0,LOCATION_ONFIELD,nil)
+		if Duel.Damage(1-tp,1000,REASON_EFFECT)~=0 and sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930012,3)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local tg2=sg2:Select(tp,1,1,nil)
+		Duel.BreakEffect()
+		Duel.SendtoDeck(tg2,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c5012628.lua

@@ -32,7 +32,7 @@ function s.initial_effect(c)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
+	--e2:SetRange(LOCATION_MZONE)
 	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 	e2:SetCost(s.rmcost)
 	e2:SetTarget(s.rmtg)