wd 0716

expansions/lflist.conf

@@ -75,6 +75,7 @@
 10736541 0
 11163044 0
 11450000 0
+11450998 0
 11450999 0
 11451000 0
 11451011 0
@@ -114,7 +115,6 @@
 12678871 0
 13131365 0
 14000129 0
-14000600 0
 14000703 0
 14000704 0
 14000706 0
@@ -486,6 +486,7 @@
 60002082 0
 60002083 0
 60002084 0
+60002192 0
 60303246 0
 60969917 0
 61777317 0
@@ -1140,6 +1141,7 @@
 98920114 0
 98920183 0
 98920188 0
+98920193 0
 98920195 0
 98920198 0
 98920203 0
@@ -1181,6 +1183,7 @@
 98940046 0
 98941044 0
 98941045 0
+98941047 0
 99550610 0
 99700125 0
 99700135 0
@@ -1342,6 +1345,19 @@
 130006022 0
 130006023 0
 130006024 0
+130006050 0
+130006100 0
+130006101 0
+130006102 0
+130006103 0
+130006104 0
+130006105 0
+130006106 0
+130006107 0
+130006108 0
+130006109 0
+130006110 0
+130006111 0
 151194046 0
 192746535 0
 #Semi-Wild 1003

expansions/script/c11450998.lua

+--他力本愿
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--cost
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_ACTIVATE_COST)
+	e5:SetRange(LOCATION_DECK)
+	e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e5:SetTargetRange(1,0)
+	e5:SetCondition(cm.costcon)
+	e5:SetTarget(cm.actarget2)
+	e5:SetOperation(cm.costop2)
+	c:RegisterEffect(e5)
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_SINGLE)
+	e6:SetCode(m)
+	e6:SetRange(LOCATION_DECK)
+	c:RegisterEffect(e6)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetOperation(cm.imop)
+	c:RegisterEffect(e2)
+	--check add count
+	if not cm.global_check then
+		cm.global_check=true
+		cm[0]=0
+		cm[1]=0
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_TO_HAND)
+		ge1:SetOperation(cm.check)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+		ge2:SetOperation(cm.clear)
+		Duel.RegisterEffect(ge2,0)
+	end
+end
+function cm.check(e,tp,eg,ep,ev,re,r,rp)
+	for tc in aux.Next(eg) do
+		if tc:IsPreviousLocation(LOCATION_DECK) and tc:IsLocation(LOCATION_HAND) then
+			local p=tc:GetControler()
+			if p==0 or p==1 then cm[p]=cm[p]+1 end
+		end
+	end
+end
+function cm.clear(e,tp,eg,ep,ev,re,r,rp)
+	cm[0]=0
+	cm[1]=0
+end
+function cm.costcon(e)
+	cm[3]=false
+	return true
+end
+function cm.actarget2(e,te,tp)
+	if not cm[te] then e:SetLabelObject(te) end
+	return not cm[te]
+end
+function cm.extfilter(c)
+	return c:IsHasEffect(m) and c:IsAbleToGraveAsCost()
+end
+function cm.costop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local te=e:GetLabelObject()
+	if cm[3] or cm[te] then return end
+	local tg=te:GetTarget() or aux.TRUE
+	local tg2=function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+				if chkc then return tg(e,tp,eg,ep,ev,re,r,rp,0,1) end
+				if chk==0 then return tg(e,tp,eg,ep,ev,re,r,rp,0) end
+				tg(e,tp,eg,ep,ev,re,r,rp,1)
+				local extg=Duel.GetMatchingGroup(cm.extfilter,tp,LOCATION_DECK,0,nil)
+				if #extg>0 and cm[tp]<cm[1-tp] and Duel.GetFlagEffect(tp,m)==0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+					Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+					local g=extg:Select(tp,1,1,nil)
+					if #g>0 then Duel.SendtoGrave(g,REASON_COST) end
+				end
+			end
+	te:SetTarget(tg2)
+	cm[te]=true
+	cm[3]=true
+end
+function cm.imop(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_CHAIN_SOLVING)
+	e1:SetOperation(cm.thop)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsAbleToHand,rp,LOCATION_DECK,0,nil)
+	if #g>0 then--and Duel.SelectYesNo(rp,aux.Stringid(m,1)) then
+		Duel.Hint(HINT_SELECTMSG,rp,HINTMSG_ATOHAND)
+		local tc=g:Select(rp,0,1,nil):GetFirst()
+		if not tc then return end
+		tc:SetStatus(STATUS_TO_HAND_WITHOUT_CONFIRM,true)
+		if Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then
+			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e2:SetCode(EVENT_CHAIN_SOLVED)
+			e2:SetCountLimit(1)
+			e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+			e2:SetLabelObject(tc)
+			e2:SetCondition(cm.descon)
+			e2:SetOperation(cm.desop)
+			Duel.RegisterEffect(e2,tp)
+		end
+	end
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(m)~=0 then
+		return true
+	else
+		e:Reset()
+		return false
+	end
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c130006100.lua

+--他人格 ～怠惰～
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+cm.AlterEgo=true
+function cm.initial_effect(c)
+	ae.initial(c)
+	--setpos
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SET_POSITION)
+	e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e1:SetValue(POS_FACEUP_ATTACK)
+	e1:SetCondition(function(e) return e:GetHandler():GetFlagEffect(m)>0 end)
+	e1:SetTarget(cm.target)
+	c:RegisterEffect(e1)
+	--cannot attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetCondition(function(e) return e:GetHandler():GetFlagEffect(m)>0 end)
+	e2:SetTarget(cm.target)
+	c:RegisterEffect(e2)
+	--cannot trigger
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_TRIGGER)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e3:SetCondition(function(e) return e:GetHandler():GetFlagEffect(m)>0 end)
+	e3:SetTarget(cm.target)
+	c:RegisterEffect(e3)
+	--immune
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_IMMUNE_EFFECT)
+	e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetTargetRange(0,LOCATION_MZONE)
+	e4:SetValue(cm.efilter)
+	c:RegisterEffect(e4)
+	--release
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_UNRELEASABLE_SUM)
+	e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetTargetRange(0,LOCATION_MZONE)
+	e5:SetValue(1)
+	c:RegisterEffect(e5)
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD)
+	e6:SetCode(EFFECT_UNRELEASABLE_NONSUM)
+	e6:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetTargetRange(0,LOCATION_MZONE)
+	e6:SetValue(1)
+	c:RegisterEffect(e6)
+	--material
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_FIELD)
+	e7:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
+	e7:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e7:SetRange(LOCATION_MZONE)
+	e7:SetTargetRange(0,LOCATION_MZONE)
+	e7:SetValue(1)
+	c:RegisterEffect(e7)
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_FIELD)
+	e8:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+	e8:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e8:SetRange(LOCATION_MZONE)
+	e8:SetTargetRange(0,LOCATION_MZONE)
+	e8:SetValue(1)
+	c:RegisterEffect(e8)
+	local e9=Effect.CreateEffect(c)
+	e9:SetType(EFFECT_TYPE_FIELD)
+	e9:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
+	e9:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e9:SetRange(LOCATION_MZONE)
+	e9:SetTargetRange(0,LOCATION_MZONE)
+	e9:SetValue(1)
+	c:RegisterEffect(e9)
+	local e10=Effect.CreateEffect(c)
+	e10:SetType(EFFECT_TYPE_FIELD)
+	e10:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e10:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e10:SetRange(LOCATION_MZONE)
+	e10:SetTargetRange(0,LOCATION_MZONE)
+	e10:SetValue(1)
+	c:RegisterEffect(e10)
+end
+function cm.target(e,c)
+	return not ae.filter(c)
+end
+function cm.efilter(e,te)
+	return not ae.cfilter(te:GetOwner())
+end
\ No newline at end of file

expansions/script/c130006101.lua

+--他人格 ～贪食～
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+cm.AlterEgo=true
+function cm.initial_effect(c)
+	ae.initial(c)
+	--double damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetCondition(function(e) return e:GetHandler():GetFlagEffect(m)>0 end)
+	e1:SetTarget(cm.damtg)
+	e1:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
+	c:RegisterEffect(e1)
+	--atk
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_BATTLE_START)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.thcon)
+	e2:SetCost(cm.thcost)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+end
+function cm.damtg(e,c)
+	return ae.filter(c)
+end
+function cm.thcon(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 tc,bc=bc,tc end
+	e:SetLabelObject(tc)
+	return ae.filter(tc)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsDiscardable() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	local ct=Duel.GetMatchingGroupCount(ae.filter,tp,LOCATION_ONFIELD,0,nil)
+	if tc:IsFaceup() and tc:IsControler(tp) and tc:IsRelateToBattle() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(ct*1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
\ No newline at end of file

expansions/script/c130006102.lua

+--他人格 ～色欲～
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+cm.AlterEgo=true
+function cm.initial_effect(c)
+	ae.initial(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCondition(function(e) return e:GetHandler():GetFlagEffect(m)>0 end)
+	e1:SetCountLimit(1)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(cm.destg)
+	e1:SetOperation(cm.desop)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.discon)
+	e2:SetTarget(cm.distg)
+	e2:SetOperation(cm.disop)
+	c:RegisterEffect(e2)
+end
+function cm.mfilter(c)
+	return (bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0 and c:IsFaceup()) or (c:IsLocation(LOCATION_MZONE) and c:IsFacedown())
+end
+function cm.pfilter1(c)
+	return bit.band(c:GetOriginalType(),TYPE_PENDULUM)~=0 and c:IsFaceup()
+end
+function cm.nspfilter(c,tp)
+	return c:IsFaceup() and not Duel.IsPlayerCanSpecialSummon(tp,0,POS_FACEDOWN_DEFENSE,tp,c)
+end
+function cm.nsfilter(c,tp)
+	return c:IsFaceup() and not c:IsSSetable(true)
+end
+function cm.fselect(g,tp)
+	local g1=g:Filter(cm.mfilter,nil)
+	local pg1=g1:Filter(cm.pfilter1,nil)
+	local npg1=Group.__sub(g1,pg1)
+	local g2=Group.__sub(g,g1)
+	local fc=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	local pfc=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
+	local xfc=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_XYZ)
+	if #g1>0 and (not Duel.IsPlayerCanSpecialSummon(tp) or g1:IsExists(cm.nspfilter,1,nil,tp) or #npg1>fc or #pg1>pfc or #g1>xfc) then return false end
+	if #g2>0 and (not Duel.IsPlayerCanSSet(tp) or g2:IsExists(cm.nspfilter,1,nil,tp) or #g2>Duel.GetLocationCount(tp,LOCATION_SZONE)) then return false end
+	return true
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	local tg=Duel.GetMatchingGroup(Card.IsCanBeEffectTarget,tp,0,LOCATION_ONFIELD,nil,e)
+	if chk==0 then return tg:CheckSubGroup(cm.fselect,2,2,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=tg:SelectSubGroup(tp,cm.fselect,false,2,2,tp)
+	Duel.SetTargetCard(g)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
+	if g:IsExists(cm.mfilter,1,nil) then
+		e:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
+	else
+		e:SetCategory(CATEGORY_DESTROY)
+	end
+end
+function cm.pfilter(c)
+	return not ((c:IsLocation(LOCATION_HAND+LOCATION_DECK) or c:IsLocation(LOCATION_REMOVED) and c:IsFacedown())) and aux.NecroValleyFilter()(c)
+end
+function cm.msfilter(c,e,tp)
+	return c:IsType(TYPE_MONSTER) and (not c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 or c:IsLocation(LOCATION_EXTRA) and c:IsFaceup() and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
+end
+function cm.ssfilter(c)
+	return (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) and c:IsSSetable()
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	if Duel.Destroy(tg,REASON_EFFECT)>0 then
+		local og=Duel.GetOperatedGroup():Filter(cm.pfilter,nil)
+		local mg=og:Filter(cm.msfilter,nil,e,tp)
+		local sg=og:Filter(cm.ssfilter,nil)
+		if #mg>0 or #sg>0 then Duel.BreakEffect() end
+		if #mg>0 then
+			Duel.SpecialSummon(mg,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
+			Duel.ConfirmCards(1-tp,mg)
+		end
+		if #sg>0 then
+			Duel.SSet(tp,mg)
+		end
+	end
+end
+function cm.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)
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) then
+		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_OPERATECARD)
+		local g=Duel.SelectMatchingCard(1-tp,Card.IsType,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_MONSTER)
+		if g:GetCount()>0 then
+			Duel.BreakEffect()
+			local tc=g:GetFirst()
+			Duel.ConfirmCards(tp,tc)
+			if tc:IsAbleToHand() and (not tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE,tp) or Duel.SelectYesNo(tp,aux.Stringid(m,0))) then
+				Duel.SendtoHand(g,tp,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,g)
+			elseif tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE,tp) then
+				Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
+			end
+		end
+	end
+end
\ No newline at end of file

expansions/script/c130006103.lua

+--他人格 ～愤怒～
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+cm.AlterEgo=true
+function cm.initial_effect(c)
+	ae.initial(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(cm.thcon)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCountLimit(1,m)
+	e2:SetTarget(cm.distg)
+	e2:SetOperation(cm.disop)
+	c:RegisterEffect(e2)
+end
+function cm.thfilter(c)
+	return ae.cfilter(c) and c:IsAbleToHand()
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==1-tp and e:GetHandler():GetFlagEffect(m)>0
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 or Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,PLAYER_ALL,LOCATION_HAND)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
+	local op=Duel.AnnounceType(tp)
+	local g1=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+	local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	Duel.ConfirmCards(tp,g2)
+	g1:Merge(g2)
+	g1=g1:Filter(Card.IsType,nil,1<<op)
+	aux.PlaceCardsOnDeckBottom(tp,g1,REASON_EFFECT)
+end
+function cm.thfilter(c)
+	return ae.cfilter(c) and c:IsAbleToHand() and not c:IsCode(m)
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
+		Duel.ConfirmCards(1-tp,g)
+		Duel.SendtoDeck(e:GetHandler(),nil,0,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c130006104.lua

+--他人格 ～嫉妒～
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+cm.AlterEgo=true
+function cm.initial_effect(c)
+	ae.initial(c)
+	--activate cost
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_ACTIVATE_COST)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(0,1)
+	e1:SetCondition(cm.costcon)
+	e1:SetCost(cm.costchk)
+	e1:SetOperation(cm.costop)
+	c:RegisterEffect(e1)
+	--immune
+	local e6=Effect.CreateEffect(c)
+	e6:SetDescription(aux.Stringid(m,1))
+	e6:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e6:SetProperty(EFFECT_FLAG_DELAY)
+	e6:SetCode(EVENT_CHAINING)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetCondition(cm.spcon)
+	e6:SetTarget(cm.sptg)
+	e6:SetOperation(cm.spop)
+	c:RegisterEffect(e6)
+end
+function cm.costcon(e)
+	local tp=e:GetHandlerPlayer()
+	if e:GetHandler():GetFlagEffect(m)==0 then return false end
+	cm[0]=false
+	return true
+end
+function cm.filter(c,tpe)
+	return c:IsType(tpe) and c:IsDiscardable()
+end
+function cm.costchk(e,re,tp)
+	local rtype=bit.band(re:GetActiveType(),0x7)
+	if not Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,re:GetHandler(),rtype) then return false end
+	e:SetLabel(rtype)
+	return true
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+	if cm[0] then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	Duel.DiscardHand(tp,cm.filter,1,1,REASON_COST+REASON_DISCARD,nil,e:GetLabel())
+	cm[0]=true
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp
+end
+function cm.thfilter(c,tpe)
+	return c:IsType(tpe) and c:IsAbleToHand()
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local rtype=bit.band(re:GetActiveType(),0x7)
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil,rtype)
+	if chk==0 then return #g>0 end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local rtype=bit.band(re:GetActiveType(),0x7)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,rtype)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
\ No newline at end of file

expansions/script/c130006105.lua

+--他人格 ～物欲～
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+cm.AlterEgo=true
+function cm.initial_effect(c)
+	ae.initial(c)
+	--draw count
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_DRAW_COUNT)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetTargetRange(1,0)
+	e1:SetCondition(function(e) return e:GetHandler():GetFlagEffect(m)>0 end)
+	e1:SetValue(cm.drval)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DISABLE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.discon)
+	e2:SetTarget(cm.distg)
+	e2:SetOperation(cm.disop)
+	c:RegisterEffect(e2)
+end
+function cm.drval(e)
+	local g=Duel.GetMatchingGroup(ae.filter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,nil)
+	return #g
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainDisablable(ev)
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) then
+		local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+		if g:GetCount()>0 then
+			Duel.ConfirmCards(tp,g)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local sg=g:Select(tp,1,1,nil)
+			Duel.SendtoHand(sg,tp,REASON_EFFECT)
+			Duel.ShuffleHand(tp)
+			Duel.ShuffleHand(1-tp)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c130006106.lua

+--他人格 ～高慢～
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+cm.AlterEgo=true
+function cm.initial_effect(c)
+	ae.initial(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(cm.thcon)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DISABLE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.discon)
+	e2:SetTarget(cm.distg)
+	e2:SetOperation(cm.disop)
+	c:RegisterEffect(e2)
+end
+function cm.thfilter(c)
+	return ae.cfilter(c) and c:IsAbleToHand()
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp and e:GetHandler():GetFlagEffect(m)>0
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainDisablable(ev)
+end
+function cm.pcfilter(c)
+	return c:IsType(TYPE_PENDULUM) and not c:IsForbidden() and ae.cfilter(c)
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
+		and Duel.IsExistingMatchingCard(cm.pcfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) then
+		if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local g=Duel.SelectMatchingCard(tp,cm.pcfilter,tp,LOCATION_DECK,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c130006107.lua

+--罪恶的根源
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+function cm.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	--aux.AddLinkProcedure(c,ae.cfilter,1,99)
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(1166)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_EXTRA)
+	local max=c:GetLink()
+	e0:SetCondition(cm.LinkCondition(ae.cfilter,1,max))
+	e0:SetTarget(cm.LinkTarget(ae.cfilter,1,max))
+	e0:SetOperation(Auxiliary.LinkOperation(ae.cfilter,1,max))
+	e0:SetValue(SUMMON_TYPE_LINK)
+	c:RegisterEffect(e0)
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.linklimit)
+	c:RegisterEffect(e1)
+	--cannot be link material
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_SINGLE)
+	e8:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e8:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e8:SetValue(1)
+	c:RegisterEffect(e8)
+	--chainlm
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(cm.chainop)
+	c:RegisterEffect(e2)
+	--immune
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetValue(cm.efilter)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_IMMUNE_EFFECT)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetTargetRange(LOCATION_MZONE,0)
+	e4:SetTarget(aux.TargetBoolFunction(ae.filter))
+	e4:SetValue(cm.efilter2)
+	c:RegisterEffect(e4)
+	--cannot be target
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_SINGLE)
+	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e7:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
+	e7:SetRange(LOCATION_MZONE)
+	e7:SetValue(aux.imval1)
+	c:RegisterEffect(e7)
+	--negate
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e5:SetOperation(cm.labop)
+	c:RegisterEffect(e5)
+	local e6=Effect.CreateEffect(c)
+	e6:SetCategory(CATEGORY_DISABLE)
+	e6:SetType(EFFECT_TYPE_QUICK_F)
+	e6:SetCode(EVENT_CHAINING)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetCondition(cm.discon)
+	e6:SetTarget(cm.distg)
+	e6:SetOperation(cm.disop)
+	c:RegisterEffect(e6)
+	e5:SetLabelObject(e6)
+end
+function cm.LCheckGoal(sg,tp,lc,gf,lmat)
+	local ct=Duel.GetMatchingGroupCount(ae.filter,tp,LOCATION_ONFIELD,0,nil)
+	return sg:CheckWithSumEqual(Auxiliary.GetLinkCount,lc:GetLink()-ct,#sg,#sg)
+		and Duel.GetLocationCountFromEx(tp,tp,sg,lc)>0 and (not gf or gf(sg))
+		and not sg:IsExists(Auxiliary.LUncompatibilityFilter,1,nil,sg,lc,tp)
+		and (not lmat or sg:IsContains(lmat))
+end
+function cm.LinkCondition(f,minc,maxc,gf)
+	return  function(e,c,og,lmat,min,max)
+				if c==nil then return true end
+				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
+				local minc=minc
+				local maxc=maxc
+				if min then
+					if min>minc then minc=min end
+					if max<maxc then maxc=max end
+					if minc>maxc then return false end
+				end
+				local tp=c:GetControler()
+				local ct=Duel.GetMatchingGroupCount(ae.filter,tp,LOCATION_ONFIELD,0,nil)
+				--Debug.Message(c:GetLink()-ct)
+				if ct>=c:GetLink() then return false end
+				local mg=nil
+				if og then
+					mg=og:Filter(Auxiliary.LConditionFilter,nil,f,c,e)
+				else
+					mg=Auxiliary.GetLinkMaterials(tp,f,c,e)
+				end
+				if lmat~=nil then
+					if not Auxiliary.LConditionFilter(lmat,f,c,e) then return false end
+					mg:AddCard(lmat)
+				end
+				local fg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_LMATERIAL)
+				if fg:IsExists(Auxiliary.MustMaterialCounterFilter,1,nil,mg) then return false end
+				Duel.SetSelectedCard(fg)
+				return mg:CheckSubGroup(cm.LCheckGoal,minc,maxc,tp,c,gf,lmat)
+			end
+end
+function cm.LinkTarget(f,minc,maxc,gf)
+	return  function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,lmat,min,max)
+				local minc=minc
+				local maxc=maxc
+				if min then
+					if min>minc then minc=min end
+					if max<maxc then maxc=max end
+					if minc>maxc then return false end
+				end
+				local mg=nil
+				if og then
+					mg=og:Filter(Auxiliary.LConditionFilter,nil,f,c,e)
+				else
+					mg=Auxiliary.GetLinkMaterials(tp,f,c,e)
+				end
+				if lmat~=nil then
+					if not Auxiliary.LConditionFilter(lmat,f,c,e) then return false end
+					mg:AddCard(lmat)
+				end
+				local fg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_LMATERIAL)
+				Duel.SetSelectedCard(fg)
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
+				local cancel=Duel.IsSummonCancelable()
+				local sg=mg:SelectSubGroup(tp,cm.LCheckGoal,cancel,minc,maxc,tp,c,gf,lmat)
+				if sg then
+					sg:KeepAlive()
+					e:SetLabelObject(sg)
+					return true
+				else return false end
+			end
+end
+function cm.efilter(e,te)
+	return te:GetOwner()~=e:GetOwner()
+end
+function cm.efilter2(e,te)
+	return te:GetOwnerPlayer()~=e:GetHandlerPlayer()
+end
+function cm.chainop(e,tp,eg,ep,ev,re,r,rp)
+	if ae.cfilter(re:GetHandler()) and ep==tp then
+		Duel.SetChainLimit(cm.chainlm)
+	end
+end
+function cm.chainlm(e,rp,tp)
+	return tp==rp
+end
+function cm.thfilter(c)
+	return ae.cfilter(c) and c:IsAbleToHand()
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function cm.labop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetMatchingGroupCount(ae.filter,tp,LOCATION_ONFIELD,0,nil)
+	e:GetLabelObject():SetLabel(ct)
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainDisablable(ev)
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetLabel()>0 end
+	e:SetLabel(e:GetLabel()-1)
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
\ No newline at end of file

expansions/script/c130006108.lua

+--埃瓦格里乌斯之教示
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+function cm.initial_effect(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(cm.discon)
+	e2:SetTarget(cm.distg)
+	e2:SetOperation(cm.disop)
+	c:RegisterEffect(e2)
+end
+function cm.filter(c,e,tp)
+	return ae.cfilter(c) and c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsForbidden()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil,e,tp)
+		return g:GetClassCount(Card.GetCode)>=3
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil,e,tp)
+	if g:GetClassCount(Card.GetCode)>=3 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local sg1=g:SelectSubGroup(tp,aux.dncheck,false,3,3)
+		Duel.ConfirmCards(1-tp,sg1)
+		Duel.ShuffleDeck(tp)
+		local tg=sg1:RandomSelect(1-tp,1)
+		local tc=tg:GetFirst()
+		if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
+			sg1:Sub(tg)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+			local tc=sg1:Select(tp,1,1,nil):GetFirst()
+			local b1=(Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
+			local b2=Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+			local b3=tc:IsAbleToHand()
+			local off=1
+			local ops={} 
+			local opval={}
+			if b1 then
+				ops[off]=aux.Stringid(m,0)
+				opval[off-1]=1
+				off=off+1
+			end
+			if b2 then
+				ops[off]=aux.Stringid(m,1)
+				opval[off-1]=2
+				off=off+1
+			end
+			if b3 then
+				ops[off]=aux.Stringid(m,2)
+				opval[off-1]=3
+				off=off+1
+			end
+			if off==1 then return end
+			local op=Duel.SelectOption(tp,table.unpack(ops))
+			if opval[op]==1 then
+				Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+			elseif opval[op]==2 then
+				if Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+					local e1=Effect.CreateEffect(tc)
+					e1:SetCode(EFFECT_CHANGE_TYPE)
+					e1:SetType(EFFECT_TYPE_SINGLE)
+					e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+					e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
+					e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+					tc:RegisterEffect(e1)
+					tc:RegisterFlagEffect(tc:GetOriginalCode(),RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(130006111,1))
+				end
+			elseif opval[op]==3 then
+				Duel.SendtoHand(tc,nil,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,tc)
+			end
+			sg1:RemoveCard(tc)
+			tc=sg1:GetFirst()
+			local b1=(Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
+			local b2=Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+			local b3=tc:IsAbleToHand()
+			local off=1
+			local ops={} 
+			local opval={}
+			if b1 then
+				ops[off]=aux.Stringid(m,0)
+				opval[off-1]=1
+				off=off+1
+			end
+			if b2 then
+				ops[off]=aux.Stringid(m,1)
+				opval[off-1]=2
+				off=off+1
+			end
+			if b3 then
+				ops[off]=aux.Stringid(m,2)
+				opval[off-1]=3
+				off=off+1
+			end
+			if off==1 then return end
+			local op=Duel.SelectOption(tp,table.unpack(ops))
+			if opval[op]==1 then
+				Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+			elseif opval[op]==2 then
+				if Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+					local e1=Effect.CreateEffect(tc)
+					e1:SetCode(EFFECT_CHANGE_TYPE)
+					e1:SetType(EFFECT_TYPE_SINGLE)
+					e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+					e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
+					e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+					tc:RegisterEffect(e1)
+					tc:RegisterFlagEffect(tc:GetOriginalCode(),RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(130006045,1))
+				end
+			elseif opval[op]==3 then
+				Duel.SendtoHand(tc,nil,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,tc)
+			end
+		end
+	end
+end
+function cm.tfilter(c,tp)
+	return c:IsLocation(LOCATION_ONFIELD) and ae.filter(c) and c:IsControler(tp) and c:IsFaceup()
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	if rp==tp then return false end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	return tg and tg:IsExists(cm.tfilter,1,nil,tp)
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 and Duel.IsPlayerCanDraw(tp,1) end
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.ChangeChainOperation(ev,cm.fff)
+end
+function cm.fff(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.Draw(1-tp,1,REASON_EFFECT)>0 then
+		local sg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+		local dg=sg:RandomSelect(tp,1)
+		Duel.SendtoGrave(dg,REASON_EFFECT+REASON_DISCARD)
+	end
+end
\ No newline at end of file

expansions/script/c130006109.lua

+--宾斯费尔德之遗作
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+function cm.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.rmtg)
+	e1:SetOperation(cm.rmop)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTarget(cm.destg)
+	e2:SetOperation(cm.desop)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(cm.destg2)
+	e3:SetOperation(cm.desop2)
+	c:RegisterEffect(e3)
+	--act in hand
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e4:SetCondition(cm.handcon)
+	c:RegisterEffect(e4)
+end
+function cm.handcon(e)
+	return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_ONFIELD,0)==0
+end
+function cm.filter(c)
+	return c:IsCode(m-1) and c:IsAbleToHand()
+end
+function cm.spfilter(c,e,tp)
+	return ae.cfilter(c) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+end
+function cm.tdfilter(c)
+	return ae.filter(c) and c:IsAbleToDeck()
+end
+function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_PZONE) and chkc:IsControler(tp) and cm.desfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(ae.filter,tp,LOCATION_PZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,ae.filter,tp,LOCATION_PZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+		end
+	end
+end
+function cm.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_PZONE,0,1,nil)
+		and e:GetHandler():IsSSetable(true) end
+	local g=Duel.GetMatchingGroup(tp,cm.tdfilter,tp,LOCATION_PZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0)
+end
+function cm.desop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetMatchingGroup(tp,cm.tdfilter,tp,LOCATION_PZONE,0,1,1,nil)
+	if Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 then
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+		e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+	end
+end
\ No newline at end of file

expansions/script/c130006110.lua

+--阿利吉耶里之七冠
+local cm,m=GetID()
+if not pcall(function() require("expansions/script/c130006111") end) then require("script/c130006111") end
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DISABLE+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetRange(LOCATION_DECK)
+	e2:SetCondition(cm.condition2)
+	e2:SetCost(cm.cost2)
+	c:RegisterEffect(e2)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_ACTIVATE_COST)
+	e4:SetRange(LOCATION_DECK)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetTarget(cm.actarget)
+	e4:SetOperation(cm.costop)
+	c:RegisterEffect(e4)
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_SPSUMMON_PROC_G)
+	e5:SetRange(LOCATION_DECK)
+	e5:SetCondition(cm.condition2)
+	c:RegisterEffect(e5)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return rp~=tp and Duel.IsChainDisablable(ev)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function cm.target(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():IsAbleToRemove() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
+	end
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Remove(eg,POS_FACEDOWN,REASON_EFFECT)
+	end
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetCurrentChain()
+	local fd=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_LOCATION)
+	return rp==tp and ae.cfilter(re:GetHandler()) and fd&LOCATION_ONFIELD>0
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp)
+		and e:GetHandler():IsAbleToDeck() end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.Draw(tp,1,REASON_EFFECT) and e:GetHandler():IsRelateToEffect(e) then
+		Duel.SendtoDeck(e:GetHandler(),nil,1,REASON_EFFECT)
+	end
+end
+function cm.actarget(e,te,tp)
+	e:SetLabelObject(te)
+	return te:GetHandler()==e:GetHandler() and te:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,false)
+	local te=e:GetLabelObject()
+	e:GetHandler():CreateEffectRelation(te)
+	local c=e:GetHandler()
+	local ev0=Duel.GetCurrentChain()+1
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_CHAIN_SOLVED)
+	e1:SetCountLimit(1)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return ev==ev0 end)
+	e1:SetOperation(cm.rsop)
+	e1:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_CHAIN_NEGATED)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if e:GetCode()==EVENT_CHAIN_SOLVED and rc:IsRelateToEffect(re) then
+		rc:SetStatus(STATUS_EFFECT_ENABLED,true)
+	end
+	if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
+		rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
+	end
+end
+function cm.condition2(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetMatchingGroupCount(ae.filter,tp,LOCATION_ONFIELD,0,nil)
+	if ct>0 then return rp~=tp and Duel.IsChainDisablable(ev) end
+	for i=1,Duel.GetCurrentChain() do
+		local te=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT)
+		if ae.cfilter(te:GetHandler()) then
+			return rp~=tp and Duel.IsChainDisablable(ev)
+		end
+	end
+	return false
+end
+function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
\ No newline at end of file

expansions/script/c130006111.lua

+--AlterEgo Library
+AlterEgo={}
+ae=AlterEgo
+local m=130006111
+function ae.initial(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--atk&def
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_SET_ATTACK)
+	e1:SetValue(ae.value)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_SET_DEFENSE)
+	c:RegisterEffect(e2)
+	--redirect
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetCondition(ae.recon)
+	e3:SetValue(LOCATION_DECKBOT)
+	c:RegisterEffect(e3)
+	--replace
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_DESTROYED)
+	e4:SetCondition(ae.repcon)
+	e4:SetOperation(ae.repop)
+	c:RegisterEffect(e4)
+	--spsummon
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e5:SetCode(EVENT_DESTROYED)
+	e5:SetCountLimit(1,c:GetOriginalCode()+1000)
+	e5:SetProperty(EFFECT_FLAG_DELAY)
+	e5:SetTarget(ae.sptg)
+	e5:SetOperation(ae.spop)
+	c:RegisterEffect(e5)
+	--ptos
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e6:SetCode(EVENT_FREE_CHAIN)
+	e6:SetRange(LOCATION_PZONE)
+	e6:SetCondition(ae.ptoscon)
+	e6:SetOperation(ae.ptosop)
+	c:RegisterEffect(e6)
+end
+function ae.value(e,c)
+	return Duel.GetMatchingGroupCount(ae.filter,c:GetControler(),LOCATION_ONFIELD,0,nil)*1000
+end
+function ae.filter(c)
+	local com=_G["c"..c:GetCode()]
+	return com and com.AlterEgo and c:IsFaceup()
+end
+function ae.cfilter(c)
+	local com=_G["c"..c:GetCode()]
+	return com and com.AlterEgo
+end
+function ae.recon(e)
+	return e:GetHandler():IsLocation(LOCATION_SZONE) and not e:GetHandler():IsLocation(LOCATION_PZONE)
+end
+function ae.repcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetPreviousLocation()==LOCATION_MZONE
+end
+function ae.repop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tp=c:GetPreviousControler()
+	local num=0
+	if Duel.CheckLocation(tp,LOCATION_PZONE,0) then num=num+1 end
+	if Duel.CheckLocation(tp,LOCATION_PZONE,1) then num=num+1 end
+	if (num==0 or not Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)) and not (c:IsLocation(LOCATION_DECK) and c:IsControler(c:GetOwner())) then
+		Duel.SendtoDeck(c,nil,1,REASON_EFFECT)
+	end
+end
+function ae.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsLocation(LOCATION_EXTRA) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function ae.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 ae.ptoscon(e,tp,eg,ep,ev,re,r,rp)
+	return (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and Duel.GetCurrentChain()==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+end
+function ae.ptosop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetCode(EFFECT_CHANGE_TYPE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
+		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+		c:RegisterEffect(e1)
+		c:RegisterFlagEffect(c:GetOriginalCode(),RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
+	end
+end
\ No newline at end of file

expansions/script/c34500350.lua

@@ -43,7 +43,7 @@ function c34500350.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c34500350.thfilter(c)
-	return c:IsSetCard(0x345) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+	return c:IsSetCard(0xacf) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
 end
 function c34500350.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c34500350.thfilter,tp,LOCATION_DECK,0,1,nil) end

expansions/script/c60002192.lua

+--俱灭之白骨圣堂教主II
+local m=60002192
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+	e1:SetRange(LOCATION_HAND+LOCATION_DECK)
+	e1:SetCondition(cm.con)
+	e1:SetOperation(cm.op)
+	c:RegisterEffect(e1)
+end
+function cm.fil(c)
+	return c:IsType(TYPE_MONSTER) and not c:IsCode(m)
+end
+function cm.con(e,tp)
+	return Duel.GetFlagEffect(tp,m)==0
+end
+function cm.op(e,tp)
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(cm.fil,tp,LOCATION_HAND+LOCATION_DECK,LOCATION_HAND+LOCATION_DECK,nil) 
+	Duel.Hint(HINT_CARD,0,m) 
+	local tc=g:GetFirst() 
+	while tc do  
+		tc:SetCardData(CARDDATA_CODE,32274490) 
+		tc:ReplaceEffect(32274490,0,1) 
+		tc=g:GetNext() 
+	end   
+	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1000)
+end

expansions/script/c98920193.lua

+--超原始太阳 赫利俄斯
+function c98920193.initial_effect(c)
+	 --code
+	aux.EnableChangeCode(c,54493213,LOCATION_MZONE+LOCATION_HAND)
+	 --place
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920193,0))
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCountLimit(1,98920193)
+	e1:SetTarget(c98920193.tftg)
+	e1:SetOperation(c98920193.tfop)
+	c:RegisterEffect(e1)
+	local e3=e1:Clone()
+	e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--atk/def
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_SET_ATTACK)
+	e2:SetValue(c98920193.value)
+	c:RegisterEffect(e2)
+	local e4=e2:Clone()
+	e4:SetCode(EFFECT_SET_DEFENSE)
+	c:RegisterEffect(e4)
+	 --spsummon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(98920193,1))
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e5:SetProperty(EFFECT_FLAG_DELAY)
+	e5:SetCode(EVENT_REMOVE)
+	e5:SetTarget(c98920193.sptg)
+	e5:SetOperation(c98920193.spop)
+	c:RegisterEffect(e5)
+end
+function c98920193.tffilter(c,tp)
+	return c:IsType(TYPE_TRAP) and c:IsCode(30241314)
+		and not c:IsForbidden() and c:CheckUniqueOnField(tp)
+end
+function c98920193.tftg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(c98920193.tffilter,tp,LOCATION_DECK,0,1,nil,tp) end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+end
+function c98920193.tfop(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,c98920193.tffilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
+	if tc then
+		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) 
+		tc:RegisterFlagEffect(98920193,RESET_EVENT+RESETS_REDIRECT,0,1)
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e1:SetCode(EVENT_PHASE+PHASE_END)
+			e1:SetCountLimit(1)
+			e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+			e1:SetLabel(Duel.GetTurnCount()+1)
+			e1:SetLabelObject(tc)
+			e1:SetReset(RESET_PHASE+PHASE_END,2)
+			e1:SetCondition(c98920193.rmcon)
+			e1:SetOperation(c98920193.rmop)
+			Duel.RegisterEffect(e1,tp)
+	end		   
+end
+function c98920193.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(98920193)~=0 then
+		return Duel.GetTurnCount()==e:GetLabel()
+	else
+		e:Reset()
+		return false
+	end
+end
+function c98920193.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if not Duel.IsExistingMatchingCard(c98920193.cfilter0,tp,LOCATION_ONFIELD,0,1,nil) then
+	   Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
+	end
+end
+function c98920193.cfilter0(c)
+	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsFaceup()
+end
+function c98920193.value(e,c)
+	return Duel.GetMatchingGroupCount(aux.TRUE,0,LOCATION_REMOVED,LOCATION_REMOVED,nil)*100
+end
+function c98920193.sfilter(c,e,tp)
+	return c:IsCode(80887952) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920193.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c98920193.sfilter,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 c98920193.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,c98920193.sfilter,tp,LOCATION_HAND+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
\ No newline at end of file

expansions/script/c98941047.lua

+--方界邪帝 超越之梵姆
+function c98941047.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c98941047.spcon)
+	e2:SetOperation(c98941047.spop)
+	c:RegisterEffect(e2)
+	--act limit
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetTargetRange(1,0)
+	e4:SetCondition(c98941047.actconb)
+	e4:SetValue(c98941047.actlimit)
+	c:RegisterEffect(e4)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(98941047,0))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCondition(c98941047.spcon1)
+	e3:SetTarget(c98941047.sptg1)
+	e3:SetOperation(c98941047.spop1)
+	c:RegisterEffect(e3)
+end
+function c98941047.spfilter(c,tp)
+	return c:IsFaceup() and c:IsLevelAbove(4) and c:IsSetCard(0xe3) and c:IsAbleToGraveAsCost() and Duel.GetMZoneCount(tp,c)>0
+end
+function c98941047.spcon(e,c)
+	if c==nil then return true end
+	return Duel.IsExistingMatchingCard(c98941047.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil,c:GetControler())
+end
+function c98941047.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c98941047.spfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
+	Duel.SendtoGrave(g,REASON_COST)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(3200)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	c:RegisterEffect(e1)
+end
+function c98941047.sumfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xe3) and not c:IsCode(98941047)
+end
+function c98941047.actconb(e)
+	local tp=e:GetHandlerPlayer()
+	return Duel.IsExistingMatchingCard(c98941047.sumfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c98941047.actlimit(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER)
+end
+function c98941047.spcon1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) and rp==1-tp and c:IsPreviousControler(tp)
+end
+function c98941047.spfilter1(c,e,tp)
+	return c:IsCode(30270176) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+end
+function c98941047.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c98941047.spfilter1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
+end
+function c98941047.spop1(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(c98941047.spfilter1),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
+	end
+end
\ No newline at end of file